From d4aafaebb0067b0bec9751edb1422e85ef10d6cf Mon Sep 17 00:00:00 2001 From: =?utf8?q?S=C3=A9bastien=20Villemot?= Date: Wed, 28 Aug 2019 20:39:51 +0100 Subject: [PATCH] Import ffcall_2.2.orig.tar.gz [dgit import orig ffcall_2.2.orig.tar.gz] --- COPYING | 340 + ChangeLog | 5421 ++++ DEPENDENCIES | 69 + INSTALL.os2 | 10 + INSTALL.windows | 263 + Makefile.devel | 29 + Makefile.in | 239 + Makefile.maint | 176 + NEWS | 222 + PLATFORMS | 52 + README | 112 + VERSION | 1 + aclocal.m4 | 1194 + avcall/COPYING | 340 + avcall/DOC | 133 + avcall/Makefile.devel | 266 + avcall/Makefile.in | 410 + avcall/Makefile.maint | 24 + avcall/PLATFORMS | 80 + avcall/README | 73 + avcall/avcall-alist.h | 209 + avcall/avcall-alpha-linux.s | 191 + avcall/avcall-alpha-macro.S | 192 + avcall/avcall-alpha.c | 168 + avcall/avcall-arm-macro.S | 112 + avcall/avcall-arm.c | 148 + avcall/avcall-arm64-macro.S | 329 + avcall/avcall-arm64.c | 362 + avcall/avcall-armhf-macro.S | 346 + avcall/avcall-armhf.c | 209 + avcall/avcall-compat.c | 24 + avcall/avcall-hppa-linux.s | 258 + avcall/avcall-hppa-macro.S | 263 + avcall/avcall-hppa.c | 273 + avcall/avcall-hppa64-linux.s | 532 + avcall/avcall-hppa64-macro.S | 511 + avcall/avcall-hppa64.c | 402 + avcall/avcall-i386-linux.s | 145 + avcall/avcall-i386-macro.S | 148 + avcall/avcall-i386-msvc.c | 148 + avcall/avcall-i386.c | 147 + avcall/avcall-ia64-linux.s | 1174 + avcall/avcall-ia64-macro.S | 1177 + avcall/avcall-ia64.c | 317 + avcall/avcall-internal.h | 1508 ++ avcall/avcall-libapi.c | 79 + avcall/avcall-m68k-linux.s | 167 + avcall/avcall-m68k-sun.s | 163 + avcall/avcall-m68k.c | 148 + avcall/avcall-m68k.mit.S | 166 + avcall/avcall-m68k.motorola.S | 167 + avcall/avcall-mips.c | 155 + avcall/avcall-mips64.c | 495 + avcall/avcall-mips64eb-linux.s | 734 + avcall/avcall-mips64eb-macro.S | 728 + avcall/avcall-mips64el-linux.s | 729 + avcall/avcall-mips64el-macro.S | 723 + avcall/avcall-mipseb-linux.s | 350 + avcall/avcall-mipseb-macro.S | 344 + avcall/avcall-mipsel-linux.s | 350 + avcall/avcall-mipsel-macro.S | 344 + avcall/avcall-mipsn32.c | 496 + avcall/avcall-mipsn32eb-linux.s | 733 + avcall/avcall-mipsn32eb-macro.S | 727 + avcall/avcall-mipsn32el-linux.s | 731 + avcall/avcall-mipsn32el-macro.S | 725 + avcall/avcall-powerpc-aix.s | 214 + avcall/avcall-powerpc-linux-macro.S | 169 + avcall/avcall-powerpc-linux.s | 168 + avcall/avcall-powerpc-macos.s | 177 + avcall/avcall-powerpc-sysv4-macro.S | 169 + avcall/avcall-powerpc.c | 216 + avcall/avcall-powerpc64-aix.s | 207 + avcall/avcall-powerpc64-elfv2-linux.S | 304 + avcall/avcall-powerpc64-linux.S | 202 + avcall/avcall-powerpc64.c | 330 + avcall/avcall-riscv32-ilp32d-linux.s | 327 + avcall/avcall-riscv32-ilp32d-macro.S | 329 + avcall/avcall-riscv32.c | 280 + avcall/avcall-riscv64-lp64d-linux.s | 329 + avcall/avcall-riscv64-lp64d-macro.S | 331 + avcall/avcall-riscv64.c | 343 + avcall/avcall-s390-linux.s | 148 + avcall/avcall-s390-macro.S | 150 + avcall/avcall-s390.c | 146 + avcall/avcall-s390x-linux.s | 269 + avcall/avcall-s390x-macro.S | 270 + avcall/avcall-s390x.c | 193 + avcall/avcall-sparc-linux.s | 170 + avcall/avcall-sparc-macro.S | 172 + avcall/avcall-sparc.c | 192 + avcall/avcall-sparc64-linux.s | 525 + avcall/avcall-sparc64-macro.S | 526 + avcall/avcall-sparc64.c | 521 + avcall/avcall-structcpy.c | 22 + avcall/avcall-x86_64-linux.s | 647 + avcall/avcall-x86_64-macro.S | 650 + avcall/avcall-x86_64-windows-macro.S | 372 + avcall/avcall-x86_64-windows.c | 228 + avcall/avcall-x86_64-windows.s | 369 + avcall/avcall-x86_64-x32-linux.s | 632 + avcall/avcall-x86_64.c | 342 + avcall/avcall.3 | 280 + avcall/avcall.h | 462 + avcall/avcall.html | 277 + avcall/avcall.man | 198 + avcall/minitests-c++.cc | 18 + avcall/minitests.c | 19 + avcall/tests.c | 1548 ++ build-aux/ar-lib | 271 + build-aux/compile | 348 + build-aux/config.guess | 1662 ++ build-aux/config.rpath | 684 + build-aux/config.sub | 1793 ++ build-aux/depcomp | 791 + build-aux/install-sh | 518 + build-aux/ltmain.sh | 11149 ++++++++ build-aux/missing | 215 + callback/COPYING | 340 + callback/MIGRATION | 79 + callback/Makefile.in | 236 + callback/Makefile.maint | 29 + callback/PLATFORMS | 43 + callback/README | 66 + callback/callback-compat.c | 24 + callback/callback-libapi.c | 53 + callback/callback.3 | 273 + callback/callback.h | 90 + callback/callback.html | 290 + callback/callback.man | 164 + callback/elf-hack.txt | 53 + callback/minitests-c++.cc | 18 + callback/minitests.c | 19 + callback/test1.c | 52 + callback/tests.c | 2386 ++ callback/trampoline_r/COPYING | 340 + callback/trampoline_r/Makefile.devel | 217 + callback/trampoline_r/Makefile.in | 257 + callback/trampoline_r/Makefile.maint | 30 + callback/trampoline_r/PORTING | 95 + callback/trampoline_r/README | 12 + callback/trampoline_r/cache-alpha-linux.s | 20 + callback/trampoline_r/cache-alpha-macro.S | 21 + callback/trampoline_r/cache-alpha.c | 24 + callback/trampoline_r/cache-hppa-linux.s | 33 + callback/trampoline_r/cache-hppa-macro.S | 36 + callback/trampoline_r/cache-hppa.c | 65 + callback/trampoline_r/cache-hppa64-linux.s | 35 + callback/trampoline_r/cache-hppa64-macro.S | 37 + .../trampoline_r/cache-powerpc-linux-macro.S | 31 + callback/trampoline_r/cache-powerpc-linux.s | 42 + callback/trampoline_r/cache-powerpc-macos.s | 17 + callback/trampoline_r/cache-powerpc.c | 32 + .../cache-powerpc64-elfv2-linux.s | 42 + .../cache-powerpc64-elfv2-macro.S | 35 + callback/trampoline_r/cache-powerpc64.c | 30 + callback/trampoline_r/cache-sparc-linux.s | 15 + callback/trampoline_r/cache-sparc-macro.S | 17 + callback/trampoline_r/cache-sparc.c | 29 + callback/trampoline_r/cache-sparc64-linux.s | 13 + callback/trampoline_r/cache-sparc64-macro.S | 14 + callback/trampoline_r/cache.c | 143 + callback/trampoline_r/test1.c | 105 + callback/trampoline_r/test2.c | 52 + callback/trampoline_r/tramp-hppa-macro.S | 49 + callback/trampoline_r/tramp-hppa64-macro.S | 48 + callback/trampoline_r/tramp-ia64-macro.S | 43 + callback/trampoline_r/tramp-powerpc-aix.S | 49 + callback/trampoline_r/tramp-powerpc64-aix.S | 55 + callback/trampoline_r/trampoline.c | 1505 ++ callback/trampoline_r/trampoline_r.3 | 120 + callback/trampoline_r/trampoline_r.h | 41 + callback/trampoline_r/trampoline_r.html | 135 + callback/trampoline_r/trampoline_r.man | 71 + callback/vacall_r/COPYING | 340 + callback/vacall_r/Makefile.devel | 229 + callback/vacall_r/Makefile.in | 351 + callback/vacall_r/Makefile.maint | 17 + callback/vacall_r/README | 9 + callback/vacall_r/get_receiver.c | 24 + callback/vacall_r/vacall-alpha-linux.s | 196 + callback/vacall_r/vacall-alpha-macro.S | 197 + callback/vacall_r/vacall-arm-macro.S | 110 + callback/vacall_r/vacall-arm64-macro.S | 190 + callback/vacall_r/vacall-armhf-macro.S | 167 + callback/vacall_r/vacall-hppa-linux.s | 218 + callback/vacall_r/vacall-hppa-macro.S | 224 + callback/vacall_r/vacall-hppa64-linux.s | 251 + callback/vacall_r/vacall-hppa64-macro.S | 252 + callback/vacall_r/vacall-i386-linux.s | 172 + callback/vacall_r/vacall-i386-macro.S | 167 + callback/vacall_r/vacall-i386-msvc.c | 166 + callback/vacall_r/vacall-ia64-linux.s | 851 + callback/vacall_r/vacall-ia64-macro.S | 854 + callback/vacall_r/vacall-libapi.c | 210 + callback/vacall_r/vacall-m68k-linux.s | 185 + callback/vacall_r/vacall-m68k-sun.s | 178 + callback/vacall_r/vacall-m68k.mit.S | 183 + callback/vacall_r/vacall-m68k.motorola.S | 187 + callback/vacall_r/vacall-mips64eb-linux.s | 385 + callback/vacall_r/vacall-mips64eb-macro.S | 379 + callback/vacall_r/vacall-mips64el-linux.s | 389 + callback/vacall_r/vacall-mips64el-macro.S | 383 + callback/vacall_r/vacall-mipseb-linux.s | 322 + callback/vacall_r/vacall-mipseb-macro.S | 316 + callback/vacall_r/vacall-mipsel-linux.s | 322 + callback/vacall_r/vacall-mipsel-macro.S | 316 + callback/vacall_r/vacall-mipsn32eb-linux.s | 381 + callback/vacall_r/vacall-mipsn32eb-macro.S | 375 + callback/vacall_r/vacall-mipsn32el-linux.s | 385 + callback/vacall_r/vacall-mipsn32el-macro.S | 379 + callback/vacall_r/vacall-powerpc-aix.s | 194 + .../vacall_r/vacall-powerpc-linux-macro.S | 179 + callback/vacall_r/vacall-powerpc-linux.s | 178 + callback/vacall_r/vacall-powerpc-macos.s | 154 + .../vacall_r/vacall-powerpc-sysv4-macro.S | 179 + callback/vacall_r/vacall-powerpc64-aix.s | 176 + .../vacall_r/vacall-powerpc64-elfv2-linux.S | 241 + callback/vacall_r/vacall-powerpc64-linux.S | 164 + .../vacall_r/vacall-riscv32-ilp32d-linux.s | 174 + .../vacall_r/vacall-riscv32-ilp32d-macro.S | 176 + .../vacall_r/vacall-riscv64-lp64d-linux.s | 205 + .../vacall_r/vacall-riscv64-lp64d-macro.S | 207 + callback/vacall_r/vacall-s390-linux.s | 160 + callback/vacall_r/vacall-s390-macro.S | 162 + callback/vacall_r/vacall-s390x-linux.s | 148 + callback/vacall_r/vacall-s390x-macro.S | 149 + callback/vacall_r/vacall-sparc-linux.s | 129 + callback/vacall_r/vacall-sparc-macro.S | 131 + callback/vacall_r/vacall-sparc64-linux.s | 319 + callback/vacall_r/vacall-sparc64-macro.S | 320 + callback/vacall_r/vacall-structcpy.c | 22 + callback/vacall_r/vacall-x86_64-linux.s | 300 + callback/vacall_r/vacall-x86_64-macro.S | 303 + .../vacall_r/vacall-x86_64-windows-macro.S | 390 + callback/vacall_r/vacall-x86_64-windows.s | 387 + callback/vacall_r/vacall-x86_64-x32-linux.s | 338 + callback/vacall_r/vacall_r.h | 548 + common/asm-alpha.sh | 44 + common/asm-arm.h | 59 + common/asm-arm.sh | 62 + common/asm-hppa.h | 73 + common/asm-hppa.sh | 68 + common/asm-hppa64.h | 69 + common/asm-hppa64.sh | 63 + common/asm-i386.h | 297 + common/asm-i386.sh | 184 + common/asm-m68k.h | 61 + common/asm-m68k.sh | 96 + common/asm-mips.h | 25 + common/asm-mips.sh | 54 + common/asm-powerpc.sh | 46 + common/asm-riscv.sh | 44 + common/asm-s390.sh | 44 + common/asm-sparc.h | 69 + common/asm-sparc.sh | 58 + common/asm-x86_64.h | 285 + common/asm-x86_64.sh | 149 + common/noexecstack-arm.h | 3 + common/noexecstack.h | 3 + common/structcpy.c | 33 + common/uniq-u.c | 277 + config.h.in | 542 + configure | 21711 ++++++++++++++++ configure.ac | 229 + dummy/ffcall-version.h | 1 + ffcall-abi.h | 251 + ffcall-stdint.h | 40 + ffcall-version.c | 26 + ffcall-version.in.h | 34 + gnulib-lib/Makefile.am | 287 + gnulib-lib/Makefile.in | 1013 + gnulib-lib/_Noreturn.h | 33 + gnulib-lib/glthread/lock.c | 506 + gnulib-lib/glthread/lock.h | 666 + gnulib-lib/glthread/threadlib.c | 73 + gnulib-lib/limits.in.h | 104 + gnulib-lib/stdint.in.h | 726 + gnulib-lib/stdnoreturn.in.h | 60 + gnulib-lib/sys_types.in.h | 106 + gnulib-lib/windows-initguard.h | 35 + gnulib-lib/windows-mutex.c | 95 + gnulib-lib/windows-mutex.h | 51 + gnulib-lib/windows-once.c | 62 + gnulib-lib/windows-once.h | 47 + gnulib-lib/windows-recmutex.c | 127 + gnulib-lib/windows-recmutex.h | 57 + gnulib-lib/windows-rwlock.c | 373 + gnulib-lib/windows-rwlock.h | 68 + gnulib-m4/00gnulib.m4 | 46 + gnulib-m4/absolute-header.m4 | 102 + gnulib-m4/ansi-c++.m4 | 138 + gnulib-m4/asm-underscore.m4 | 72 + gnulib-m4/extensions.m4 | 189 + gnulib-m4/gnulib-cache.m4 | 70 + gnulib-m4/gnulib-common.m4 | 424 + gnulib-m4/gnulib-comp.m4 | 300 + gnulib-m4/gnulib-tool.m4 | 57 + gnulib-m4/host-cpu-c-abi.m4 | 644 + gnulib-m4/include_next.m4 | 224 + gnulib-m4/lib-ld.m4 | 168 + gnulib-m4/lib-link.m4 | 774 + gnulib-m4/lib-prefix.m4 | 249 + gnulib-m4/limits-h.m4 | 43 + gnulib-m4/lock.m4 | 47 + gnulib-m4/longlong.m4 | 113 + gnulib-m4/multiarch.m4 | 62 + gnulib-m4/nocrash.m4 | 131 + gnulib-m4/off_t.m4 | 18 + gnulib-m4/onceonly.m4 | 104 + gnulib-m4/pthread_rwlock_rdlock.m4 | 165 + gnulib-m4/ssize_t.m4 | 23 + gnulib-m4/stdint.m4 | 544 + gnulib-m4/stdnoreturn.m4 | 51 + gnulib-m4/sys_types_h.m4 | 60 + gnulib-m4/threadlib.m4 | 359 + gnulib-m4/wint_t.m4 | 74 + m4/as-underscore.m4 | 24 + m4/cc-gcc.m4 | 36 + m4/codeexec.m4 | 362 + m4/endianness.m4 | 70 + m4/general.m4 | 34 + m4/getpagesize.m4 | 47 + m4/ireg.m4 | 40 + m4/libtool.m4 | 8369 ++++++ m4/ln.m4 | 51 + m4/ltoptions.m4 | 437 + m4/ltsugar.m4 | 124 + m4/ltversion.m4 | 23 + m4/lt~obsolete.m4 | 99 + m4/mach-vm.m4 | 22 + m4/mmap.m4 | 140 + m4/mprotect.m4 | 152 + m4/proto.m4 | 33 + m4/shm.m4 | 80 + m4/smallstruct.m4 | 66 + testcases.c | 807 + trampoline/COPYING | 340 + trampoline/Makefile.devel | 217 + trampoline/Makefile.in | 272 + trampoline/Makefile.maint | 18 + trampoline/PLATFORMS | 40 + trampoline/PORTING | 95 + trampoline/README | 70 + trampoline/cache-alpha-linux.s | 20 + trampoline/cache-alpha-macro.S | 21 + trampoline/cache-alpha.c | 24 + trampoline/cache-hppa-linux.s | 33 + trampoline/cache-hppa-macro.S | 36 + trampoline/cache-hppa.c | 65 + trampoline/cache-hppa64-linux.s | 35 + trampoline/cache-hppa64-macro.S | 37 + trampoline/cache-powerpc-linux-macro.S | 37 + trampoline/cache-powerpc-linux.s | 54 + trampoline/cache-powerpc-macos.s | 23 + trampoline/cache-powerpc.c | 35 + trampoline/cache-powerpc64-elfv2-linux.s | 54 + trampoline/cache-powerpc64-elfv2-macro.S | 43 + trampoline/cache-powerpc64.c | 32 + trampoline/cache-sparc-linux.s | 15 + trampoline/cache-sparc-macro.S | 17 + trampoline/cache-sparc.c | 31 + trampoline/cache-sparc64-linux.s | 13 + trampoline/cache-sparc64-macro.S | 14 + trampoline/cache.c | 143 + trampoline/test1.c | 45 + trampoline/test2-c++.cc | 18 + trampoline/test2.c | 51 + trampoline/tramp-hppa-macro.S | 53 + trampoline/tramp-hppa64-macro.S | 50 + trampoline/tramp-ia64-macro.S | 46 + trampoline/tramp-powerpc-aix.S | 51 + trampoline/tramp-powerpc64-aix.S | 57 + trampoline/trampoline.3 | 124 + trampoline/trampoline.c | 1741 ++ trampoline/trampoline.h | 85 + trampoline/trampoline.html | 144 + trampoline/trampoline.man | 75 + vacall/COPYING | 340 + vacall/Makefile.devel | 308 + vacall/Makefile.in | 380 + vacall/Makefile.maint | 24 + vacall/PLATFORMS | 51 + vacall/README | 78 + vacall/minitests-c++.cc | 18 + vacall/minitests.c | 19 + vacall/tests.c | 2216 ++ vacall/vacall-alpha-linux.s | 174 + vacall/vacall-alpha-macro.S | 175 + vacall/vacall-alpha.c | 161 + vacall/vacall-arm-linux-pic.s | 100 + vacall/vacall-arm-linux.s | 95 + vacall/vacall-arm-macro.S | 198 + vacall/vacall-arm.c | 149 + vacall/vacall-arm64-macro.S | 182 + vacall/vacall-arm64.c | 229 + vacall/vacall-armhf-linux-pic.s | 155 + vacall/vacall-armhf-linux.s | 149 + vacall/vacall-armhf-macro.S | 305 + vacall/vacall-armhf.c | 195 + vacall/vacall-hppa-linux.s | 182 + vacall/vacall-hppa-macro.S | 188 + vacall/vacall-hppa.c | 256 + vacall/vacall-hppa64-linux.s | 225 + vacall/vacall-hppa64-macro.S | 226 + vacall/vacall-hppa64.c | 294 + vacall/vacall-i386-linux-pic.s | 159 + vacall/vacall-i386-linux.s | 150 + vacall/vacall-i386-macro.S | 288 + vacall/vacall-i386-msvc.c | 291 + vacall/vacall-i386.c | 163 + vacall/vacall-ia64-linux.s | 842 + vacall/vacall-ia64-macro.S | 845 + vacall/vacall-ia64.c | 282 + vacall/vacall-internal.h | 1204 + vacall/vacall-libapi.c | 232 + vacall/vacall-m68k-linux.s | 171 + vacall/vacall-m68k-sun.s | 167 + vacall/vacall-m68k.c | 136 + vacall/vacall-m68k.mit.S | 172 + vacall/vacall-m68k.motorola.S | 173 + vacall/vacall-mips.c | 139 + vacall/vacall-mips64.c | 508 + vacall/vacall-mips64eb-linux.s | 362 + vacall/vacall-mips64eb-macro.S | 356 + vacall/vacall-mips64el-linux.s | 366 + vacall/vacall-mips64el-macro.S | 360 + vacall/vacall-mipseb-linux.s | 295 + vacall/vacall-mipseb-macro.S | 289 + vacall/vacall-mipsel-linux.s | 295 + vacall/vacall-mipsel-macro.S | 289 + vacall/vacall-mipsn32.c | 508 + vacall/vacall-mipsn32eb-linux.s | 357 + vacall/vacall-mipsn32eb-macro.S | 351 + vacall/vacall-mipsn32el-linux.s | 361 + vacall/vacall-mipsn32el-macro.S | 355 + vacall/vacall-powerpc-aix.s | 171 + vacall/vacall-powerpc-linux-macro.S | 143 + vacall/vacall-powerpc-linux.s | 142 + vacall/vacall-powerpc-macos.s | 142 + vacall/vacall-powerpc-sysv4-macro.S | 143 + vacall/vacall-powerpc.c | 181 + vacall/vacall-powerpc64-aix.s | 151 + vacall/vacall-powerpc64-elfv2-linux.S | 225 + vacall/vacall-powerpc64-linux.S | 146 + vacall/vacall-powerpc64.c | 293 + vacall/vacall-riscv32-ilp32d-linux.s | 163 + vacall/vacall-riscv32-ilp32d-macro.S | 165 + vacall/vacall-riscv32.c | 226 + vacall/vacall-riscv64-lp64d-linux.s | 190 + vacall/vacall-riscv64-lp64d-macro.S | 192 + vacall/vacall-riscv64.c | 238 + vacall/vacall-s390-linux.s | 144 + vacall/vacall-s390-macro.S | 146 + vacall/vacall-s390.c | 142 + vacall/vacall-s390x-linux.s | 127 + vacall/vacall-s390x-macro.S | 128 + vacall/vacall-s390x.c | 134 + vacall/vacall-sparc-linux-pic.s | 138 + vacall/vacall-sparc-linux.s | 130 + vacall/vacall-sparc-macro.S | 271 + vacall/vacall-sparc.c | 141 + vacall/vacall-sparc64-linux-pic.s | 328 + vacall/vacall-sparc64-linux.s | 323 + vacall/vacall-sparc64-macro.S | 652 + vacall/vacall-sparc64.c | 460 + vacall/vacall-structcpy.c | 22 + vacall/vacall-x86_64-linux.s | 258 + vacall/vacall-x86_64-macro.S | 261 + vacall/vacall-x86_64-windows-macro.S | 350 + vacall/vacall-x86_64-windows.c | 191 + vacall/vacall-x86_64-windows.s | 347 + vacall/vacall-x86_64-x32-linux.s | 286 + vacall/vacall-x86_64.c | 234 + vacall/vacall.3 | 295 + vacall/vacall.h | 457 + vacall/vacall.html | 315 + vacall/vacall.man | 192 + 478 files changed, 160387 insertions(+) create mode 100644 COPYING create mode 100644 ChangeLog create mode 100644 DEPENDENCIES create mode 100644 INSTALL.os2 create mode 100644 INSTALL.windows create mode 100644 Makefile.devel create mode 100644 Makefile.in create mode 100644 Makefile.maint create mode 100644 NEWS create mode 100644 PLATFORMS create mode 100644 README create mode 100644 VERSION create mode 100644 aclocal.m4 create mode 100644 avcall/COPYING create mode 100644 avcall/DOC create mode 100644 avcall/Makefile.devel create mode 100644 avcall/Makefile.in create mode 100644 avcall/Makefile.maint create mode 100644 avcall/PLATFORMS create mode 100644 avcall/README create mode 100644 avcall/avcall-alist.h create mode 100644 avcall/avcall-alpha-linux.s create mode 100644 avcall/avcall-alpha-macro.S create mode 100644 avcall/avcall-alpha.c create mode 100644 avcall/avcall-arm-macro.S create mode 100644 avcall/avcall-arm.c create mode 100644 avcall/avcall-arm64-macro.S create mode 100644 avcall/avcall-arm64.c create mode 100644 avcall/avcall-armhf-macro.S create mode 100644 avcall/avcall-armhf.c create mode 100644 avcall/avcall-compat.c create mode 100644 avcall/avcall-hppa-linux.s create mode 100644 avcall/avcall-hppa-macro.S create mode 100644 avcall/avcall-hppa.c create mode 100644 avcall/avcall-hppa64-linux.s create mode 100644 avcall/avcall-hppa64-macro.S create mode 100644 avcall/avcall-hppa64.c create mode 100644 avcall/avcall-i386-linux.s create mode 100644 avcall/avcall-i386-macro.S create mode 100644 avcall/avcall-i386-msvc.c create mode 100644 avcall/avcall-i386.c create mode 100644 avcall/avcall-ia64-linux.s create mode 100644 avcall/avcall-ia64-macro.S create mode 100644 avcall/avcall-ia64.c create mode 100644 avcall/avcall-internal.h create mode 100644 avcall/avcall-libapi.c create mode 100644 avcall/avcall-m68k-linux.s create mode 100644 avcall/avcall-m68k-sun.s create mode 100644 avcall/avcall-m68k.c create mode 100644 avcall/avcall-m68k.mit.S create mode 100644 avcall/avcall-m68k.motorola.S create mode 100644 avcall/avcall-mips.c create mode 100644 avcall/avcall-mips64.c create mode 100644 avcall/avcall-mips64eb-linux.s create mode 100644 avcall/avcall-mips64eb-macro.S create mode 100644 avcall/avcall-mips64el-linux.s create mode 100644 avcall/avcall-mips64el-macro.S create mode 100644 avcall/avcall-mipseb-linux.s create mode 100644 avcall/avcall-mipseb-macro.S create mode 100644 avcall/avcall-mipsel-linux.s create mode 100644 avcall/avcall-mipsel-macro.S create mode 100644 avcall/avcall-mipsn32.c create mode 100644 avcall/avcall-mipsn32eb-linux.s create mode 100644 avcall/avcall-mipsn32eb-macro.S create mode 100644 avcall/avcall-mipsn32el-linux.s create mode 100644 avcall/avcall-mipsn32el-macro.S create mode 100644 avcall/avcall-powerpc-aix.s create mode 100644 avcall/avcall-powerpc-linux-macro.S create mode 100644 avcall/avcall-powerpc-linux.s create mode 100644 avcall/avcall-powerpc-macos.s create mode 100644 avcall/avcall-powerpc-sysv4-macro.S create mode 100644 avcall/avcall-powerpc.c create mode 100644 avcall/avcall-powerpc64-aix.s create mode 100644 avcall/avcall-powerpc64-elfv2-linux.S create mode 100644 avcall/avcall-powerpc64-linux.S create mode 100644 avcall/avcall-powerpc64.c create mode 100644 avcall/avcall-riscv32-ilp32d-linux.s create mode 100644 avcall/avcall-riscv32-ilp32d-macro.S create mode 100644 avcall/avcall-riscv32.c create mode 100644 avcall/avcall-riscv64-lp64d-linux.s create mode 100644 avcall/avcall-riscv64-lp64d-macro.S create mode 100644 avcall/avcall-riscv64.c create mode 100644 avcall/avcall-s390-linux.s create mode 100644 avcall/avcall-s390-macro.S create mode 100644 avcall/avcall-s390.c create mode 100644 avcall/avcall-s390x-linux.s create mode 100644 avcall/avcall-s390x-macro.S create mode 100644 avcall/avcall-s390x.c create mode 100644 avcall/avcall-sparc-linux.s create mode 100644 avcall/avcall-sparc-macro.S create mode 100644 avcall/avcall-sparc.c create mode 100644 avcall/avcall-sparc64-linux.s create mode 100644 avcall/avcall-sparc64-macro.S create mode 100644 avcall/avcall-sparc64.c create mode 100644 avcall/avcall-structcpy.c create mode 100644 avcall/avcall-x86_64-linux.s create mode 100644 avcall/avcall-x86_64-macro.S create mode 100644 avcall/avcall-x86_64-windows-macro.S create mode 100644 avcall/avcall-x86_64-windows.c create mode 100644 avcall/avcall-x86_64-windows.s create mode 100644 avcall/avcall-x86_64-x32-linux.s create mode 100644 avcall/avcall-x86_64.c create mode 100644 avcall/avcall.3 create mode 100644 avcall/avcall.h create mode 100644 avcall/avcall.html create mode 100644 avcall/avcall.man create mode 100644 avcall/minitests-c++.cc create mode 100644 avcall/minitests.c create mode 100644 avcall/tests.c create mode 100755 build-aux/ar-lib create mode 100755 build-aux/compile create mode 100755 build-aux/config.guess create mode 100755 build-aux/config.rpath create mode 100755 build-aux/config.sub create mode 100755 build-aux/depcomp create mode 100755 build-aux/install-sh create mode 100644 build-aux/ltmain.sh create mode 100755 build-aux/missing create mode 100644 callback/COPYING create mode 100644 callback/MIGRATION create mode 100644 callback/Makefile.in create mode 100644 callback/Makefile.maint create mode 100644 callback/PLATFORMS create mode 100644 callback/README create mode 100644 callback/callback-compat.c create mode 100644 callback/callback-libapi.c create mode 100644 callback/callback.3 create mode 100644 callback/callback.h create mode 100644 callback/callback.html create mode 100644 callback/callback.man create mode 100644 callback/elf-hack.txt create mode 100644 callback/minitests-c++.cc create mode 100644 callback/minitests.c create mode 100644 callback/test1.c create mode 100644 callback/tests.c create mode 100644 callback/trampoline_r/COPYING create mode 100644 callback/trampoline_r/Makefile.devel create mode 100644 callback/trampoline_r/Makefile.in create mode 100644 callback/trampoline_r/Makefile.maint create mode 100644 callback/trampoline_r/PORTING create mode 100644 callback/trampoline_r/README create mode 100644 callback/trampoline_r/cache-alpha-linux.s create mode 100644 callback/trampoline_r/cache-alpha-macro.S create mode 100644 callback/trampoline_r/cache-alpha.c create mode 100644 callback/trampoline_r/cache-hppa-linux.s create mode 100644 callback/trampoline_r/cache-hppa-macro.S create mode 100644 callback/trampoline_r/cache-hppa.c create mode 100644 callback/trampoline_r/cache-hppa64-linux.s create mode 100644 callback/trampoline_r/cache-hppa64-macro.S create mode 100644 callback/trampoline_r/cache-powerpc-linux-macro.S create mode 100644 callback/trampoline_r/cache-powerpc-linux.s create mode 100644 callback/trampoline_r/cache-powerpc-macos.s create mode 100644 callback/trampoline_r/cache-powerpc.c create mode 100644 callback/trampoline_r/cache-powerpc64-elfv2-linux.s create mode 100644 callback/trampoline_r/cache-powerpc64-elfv2-macro.S create mode 100644 callback/trampoline_r/cache-powerpc64.c create mode 100644 callback/trampoline_r/cache-sparc-linux.s create mode 100644 callback/trampoline_r/cache-sparc-macro.S create mode 100644 callback/trampoline_r/cache-sparc.c create mode 100644 callback/trampoline_r/cache-sparc64-linux.s create mode 100644 callback/trampoline_r/cache-sparc64-macro.S create mode 100644 callback/trampoline_r/cache.c create mode 100644 callback/trampoline_r/test1.c create mode 100644 callback/trampoline_r/test2.c create mode 100644 callback/trampoline_r/tramp-hppa-macro.S create mode 100644 callback/trampoline_r/tramp-hppa64-macro.S create mode 100644 callback/trampoline_r/tramp-ia64-macro.S create mode 100644 callback/trampoline_r/tramp-powerpc-aix.S create mode 100644 callback/trampoline_r/tramp-powerpc64-aix.S create mode 100644 callback/trampoline_r/trampoline.c create mode 100644 callback/trampoline_r/trampoline_r.3 create mode 100644 callback/trampoline_r/trampoline_r.h create mode 100644 callback/trampoline_r/trampoline_r.html create mode 100644 callback/trampoline_r/trampoline_r.man create mode 100644 callback/vacall_r/COPYING create mode 100644 callback/vacall_r/Makefile.devel create mode 100644 callback/vacall_r/Makefile.in create mode 100644 callback/vacall_r/Makefile.maint create mode 100644 callback/vacall_r/README create mode 100644 callback/vacall_r/get_receiver.c create mode 100644 callback/vacall_r/vacall-alpha-linux.s create mode 100644 callback/vacall_r/vacall-alpha-macro.S create mode 100644 callback/vacall_r/vacall-arm-macro.S create mode 100644 callback/vacall_r/vacall-arm64-macro.S create mode 100644 callback/vacall_r/vacall-armhf-macro.S create mode 100644 callback/vacall_r/vacall-hppa-linux.s create mode 100644 callback/vacall_r/vacall-hppa-macro.S create mode 100644 callback/vacall_r/vacall-hppa64-linux.s create mode 100644 callback/vacall_r/vacall-hppa64-macro.S create mode 100644 callback/vacall_r/vacall-i386-linux.s create mode 100644 callback/vacall_r/vacall-i386-macro.S create mode 100644 callback/vacall_r/vacall-i386-msvc.c create mode 100644 callback/vacall_r/vacall-ia64-linux.s create mode 100644 callback/vacall_r/vacall-ia64-macro.S create mode 100644 callback/vacall_r/vacall-libapi.c create mode 100644 callback/vacall_r/vacall-m68k-linux.s create mode 100644 callback/vacall_r/vacall-m68k-sun.s create mode 100644 callback/vacall_r/vacall-m68k.mit.S create mode 100644 callback/vacall_r/vacall-m68k.motorola.S create mode 100644 callback/vacall_r/vacall-mips64eb-linux.s create mode 100644 callback/vacall_r/vacall-mips64eb-macro.S create mode 100644 callback/vacall_r/vacall-mips64el-linux.s create mode 100644 callback/vacall_r/vacall-mips64el-macro.S create mode 100644 callback/vacall_r/vacall-mipseb-linux.s create mode 100644 callback/vacall_r/vacall-mipseb-macro.S create mode 100644 callback/vacall_r/vacall-mipsel-linux.s create mode 100644 callback/vacall_r/vacall-mipsel-macro.S create mode 100644 callback/vacall_r/vacall-mipsn32eb-linux.s create mode 100644 callback/vacall_r/vacall-mipsn32eb-macro.S create mode 100644 callback/vacall_r/vacall-mipsn32el-linux.s create mode 100644 callback/vacall_r/vacall-mipsn32el-macro.S create mode 100644 callback/vacall_r/vacall-powerpc-aix.s create mode 100644 callback/vacall_r/vacall-powerpc-linux-macro.S create mode 100644 callback/vacall_r/vacall-powerpc-linux.s create mode 100644 callback/vacall_r/vacall-powerpc-macos.s create mode 100644 callback/vacall_r/vacall-powerpc-sysv4-macro.S create mode 100644 callback/vacall_r/vacall-powerpc64-aix.s create mode 100644 callback/vacall_r/vacall-powerpc64-elfv2-linux.S create mode 100644 callback/vacall_r/vacall-powerpc64-linux.S create mode 100644 callback/vacall_r/vacall-riscv32-ilp32d-linux.s create mode 100644 callback/vacall_r/vacall-riscv32-ilp32d-macro.S create mode 100644 callback/vacall_r/vacall-riscv64-lp64d-linux.s create mode 100644 callback/vacall_r/vacall-riscv64-lp64d-macro.S create mode 100644 callback/vacall_r/vacall-s390-linux.s create mode 100644 callback/vacall_r/vacall-s390-macro.S create mode 100644 callback/vacall_r/vacall-s390x-linux.s create mode 100644 callback/vacall_r/vacall-s390x-macro.S create mode 100644 callback/vacall_r/vacall-sparc-linux.s create mode 100644 callback/vacall_r/vacall-sparc-macro.S create mode 100644 callback/vacall_r/vacall-sparc64-linux.s create mode 100644 callback/vacall_r/vacall-sparc64-macro.S create mode 100644 callback/vacall_r/vacall-structcpy.c create mode 100644 callback/vacall_r/vacall-x86_64-linux.s create mode 100644 callback/vacall_r/vacall-x86_64-macro.S create mode 100644 callback/vacall_r/vacall-x86_64-windows-macro.S create mode 100644 callback/vacall_r/vacall-x86_64-windows.s create mode 100644 callback/vacall_r/vacall-x86_64-x32-linux.s create mode 100644 callback/vacall_r/vacall_r.h create mode 100755 common/asm-alpha.sh create mode 100644 common/asm-arm.h create mode 100755 common/asm-arm.sh create mode 100644 common/asm-hppa.h create mode 100755 common/asm-hppa.sh create mode 100644 common/asm-hppa64.h create mode 100755 common/asm-hppa64.sh create mode 100644 common/asm-i386.h create mode 100755 common/asm-i386.sh create mode 100644 common/asm-m68k.h create mode 100755 common/asm-m68k.sh create mode 100644 common/asm-mips.h create mode 100755 common/asm-mips.sh create mode 100755 common/asm-powerpc.sh create mode 100755 common/asm-riscv.sh create mode 100755 common/asm-s390.sh create mode 100644 common/asm-sparc.h create mode 100755 common/asm-sparc.sh create mode 100644 common/asm-x86_64.h create mode 100755 common/asm-x86_64.sh create mode 100644 common/noexecstack-arm.h create mode 100644 common/noexecstack.h create mode 100644 common/structcpy.c create mode 100644 common/uniq-u.c create mode 100644 config.h.in create mode 100755 configure create mode 100644 configure.ac create mode 100644 dummy/ffcall-version.h create mode 100644 ffcall-abi.h create mode 100644 ffcall-stdint.h create mode 100644 ffcall-version.c create mode 100644 ffcall-version.in.h create mode 100644 gnulib-lib/Makefile.am create mode 100644 gnulib-lib/Makefile.in create mode 100644 gnulib-lib/_Noreturn.h create mode 100644 gnulib-lib/glthread/lock.c create mode 100644 gnulib-lib/glthread/lock.h create mode 100644 gnulib-lib/glthread/threadlib.c create mode 100644 gnulib-lib/limits.in.h create mode 100644 gnulib-lib/stdint.in.h create mode 100644 gnulib-lib/stdnoreturn.in.h create mode 100644 gnulib-lib/sys_types.in.h create mode 100644 gnulib-lib/windows-initguard.h create mode 100644 gnulib-lib/windows-mutex.c create mode 100644 gnulib-lib/windows-mutex.h create mode 100644 gnulib-lib/windows-once.c create mode 100644 gnulib-lib/windows-once.h create mode 100644 gnulib-lib/windows-recmutex.c create mode 100644 gnulib-lib/windows-recmutex.h create mode 100644 gnulib-lib/windows-rwlock.c create mode 100644 gnulib-lib/windows-rwlock.h create mode 100644 gnulib-m4/00gnulib.m4 create mode 100644 gnulib-m4/absolute-header.m4 create mode 100644 gnulib-m4/ansi-c++.m4 create mode 100644 gnulib-m4/asm-underscore.m4 create mode 100644 gnulib-m4/extensions.m4 create mode 100644 gnulib-m4/gnulib-cache.m4 create mode 100644 gnulib-m4/gnulib-common.m4 create mode 100644 gnulib-m4/gnulib-comp.m4 create mode 100644 gnulib-m4/gnulib-tool.m4 create mode 100644 gnulib-m4/host-cpu-c-abi.m4 create mode 100644 gnulib-m4/include_next.m4 create mode 100644 gnulib-m4/lib-ld.m4 create mode 100644 gnulib-m4/lib-link.m4 create mode 100644 gnulib-m4/lib-prefix.m4 create mode 100644 gnulib-m4/limits-h.m4 create mode 100644 gnulib-m4/lock.m4 create mode 100644 gnulib-m4/longlong.m4 create mode 100644 gnulib-m4/multiarch.m4 create mode 100644 gnulib-m4/nocrash.m4 create mode 100644 gnulib-m4/off_t.m4 create mode 100644 gnulib-m4/onceonly.m4 create mode 100644 gnulib-m4/pthread_rwlock_rdlock.m4 create mode 100644 gnulib-m4/ssize_t.m4 create mode 100644 gnulib-m4/stdint.m4 create mode 100644 gnulib-m4/stdnoreturn.m4 create mode 100644 gnulib-m4/sys_types_h.m4 create mode 100644 gnulib-m4/threadlib.m4 create mode 100644 gnulib-m4/wint_t.m4 create mode 100644 m4/as-underscore.m4 create mode 100644 m4/cc-gcc.m4 create mode 100644 m4/codeexec.m4 create mode 100644 m4/endianness.m4 create mode 100644 m4/general.m4 create mode 100644 m4/getpagesize.m4 create mode 100644 m4/ireg.m4 create mode 100644 m4/libtool.m4 create mode 100644 m4/ln.m4 create mode 100644 m4/ltoptions.m4 create mode 100644 m4/ltsugar.m4 create mode 100644 m4/ltversion.m4 create mode 100644 m4/lt~obsolete.m4 create mode 100644 m4/mach-vm.m4 create mode 100644 m4/mmap.m4 create mode 100644 m4/mprotect.m4 create mode 100644 m4/proto.m4 create mode 100644 m4/shm.m4 create mode 100644 m4/smallstruct.m4 create mode 100644 testcases.c create mode 100644 trampoline/COPYING create mode 100644 trampoline/Makefile.devel create mode 100644 trampoline/Makefile.in create mode 100644 trampoline/Makefile.maint create mode 100644 trampoline/PLATFORMS create mode 100644 trampoline/PORTING create mode 100644 trampoline/README create mode 100644 trampoline/cache-alpha-linux.s create mode 100644 trampoline/cache-alpha-macro.S create mode 100644 trampoline/cache-alpha.c create mode 100644 trampoline/cache-hppa-linux.s create mode 100644 trampoline/cache-hppa-macro.S create mode 100644 trampoline/cache-hppa.c create mode 100644 trampoline/cache-hppa64-linux.s create mode 100644 trampoline/cache-hppa64-macro.S create mode 100644 trampoline/cache-powerpc-linux-macro.S create mode 100644 trampoline/cache-powerpc-linux.s create mode 100644 trampoline/cache-powerpc-macos.s create mode 100644 trampoline/cache-powerpc.c create mode 100644 trampoline/cache-powerpc64-elfv2-linux.s create mode 100644 trampoline/cache-powerpc64-elfv2-macro.S create mode 100644 trampoline/cache-powerpc64.c create mode 100644 trampoline/cache-sparc-linux.s create mode 100644 trampoline/cache-sparc-macro.S create mode 100644 trampoline/cache-sparc.c create mode 100644 trampoline/cache-sparc64-linux.s create mode 100644 trampoline/cache-sparc64-macro.S create mode 100644 trampoline/cache.c create mode 100644 trampoline/test1.c create mode 100644 trampoline/test2-c++.cc create mode 100644 trampoline/test2.c create mode 100644 trampoline/tramp-hppa-macro.S create mode 100644 trampoline/tramp-hppa64-macro.S create mode 100644 trampoline/tramp-ia64-macro.S create mode 100644 trampoline/tramp-powerpc-aix.S create mode 100644 trampoline/tramp-powerpc64-aix.S create mode 100644 trampoline/trampoline.3 create mode 100644 trampoline/trampoline.c create mode 100644 trampoline/trampoline.h create mode 100644 trampoline/trampoline.html create mode 100644 trampoline/trampoline.man create mode 100644 vacall/COPYING create mode 100644 vacall/Makefile.devel create mode 100644 vacall/Makefile.in create mode 100644 vacall/Makefile.maint create mode 100644 vacall/PLATFORMS create mode 100644 vacall/README create mode 100644 vacall/minitests-c++.cc create mode 100644 vacall/minitests.c create mode 100644 vacall/tests.c create mode 100644 vacall/vacall-alpha-linux.s create mode 100644 vacall/vacall-alpha-macro.S create mode 100644 vacall/vacall-alpha.c create mode 100644 vacall/vacall-arm-linux-pic.s create mode 100644 vacall/vacall-arm-linux.s create mode 100644 vacall/vacall-arm-macro.S create mode 100644 vacall/vacall-arm.c create mode 100644 vacall/vacall-arm64-macro.S create mode 100644 vacall/vacall-arm64.c create mode 100644 vacall/vacall-armhf-linux-pic.s create mode 100644 vacall/vacall-armhf-linux.s create mode 100644 vacall/vacall-armhf-macro.S create mode 100644 vacall/vacall-armhf.c create mode 100644 vacall/vacall-hppa-linux.s create mode 100644 vacall/vacall-hppa-macro.S create mode 100644 vacall/vacall-hppa.c create mode 100644 vacall/vacall-hppa64-linux.s create mode 100644 vacall/vacall-hppa64-macro.S create mode 100644 vacall/vacall-hppa64.c create mode 100644 vacall/vacall-i386-linux-pic.s create mode 100644 vacall/vacall-i386-linux.s create mode 100644 vacall/vacall-i386-macro.S create mode 100644 vacall/vacall-i386-msvc.c create mode 100644 vacall/vacall-i386.c create mode 100644 vacall/vacall-ia64-linux.s create mode 100644 vacall/vacall-ia64-macro.S create mode 100644 vacall/vacall-ia64.c create mode 100644 vacall/vacall-internal.h create mode 100644 vacall/vacall-libapi.c create mode 100644 vacall/vacall-m68k-linux.s create mode 100644 vacall/vacall-m68k-sun.s create mode 100644 vacall/vacall-m68k.c create mode 100644 vacall/vacall-m68k.mit.S create mode 100644 vacall/vacall-m68k.motorola.S create mode 100644 vacall/vacall-mips.c create mode 100644 vacall/vacall-mips64.c create mode 100644 vacall/vacall-mips64eb-linux.s create mode 100644 vacall/vacall-mips64eb-macro.S create mode 100644 vacall/vacall-mips64el-linux.s create mode 100644 vacall/vacall-mips64el-macro.S create mode 100644 vacall/vacall-mipseb-linux.s create mode 100644 vacall/vacall-mipseb-macro.S create mode 100644 vacall/vacall-mipsel-linux.s create mode 100644 vacall/vacall-mipsel-macro.S create mode 100644 vacall/vacall-mipsn32.c create mode 100644 vacall/vacall-mipsn32eb-linux.s create mode 100644 vacall/vacall-mipsn32eb-macro.S create mode 100644 vacall/vacall-mipsn32el-linux.s create mode 100644 vacall/vacall-mipsn32el-macro.S create mode 100644 vacall/vacall-powerpc-aix.s create mode 100644 vacall/vacall-powerpc-linux-macro.S create mode 100644 vacall/vacall-powerpc-linux.s create mode 100644 vacall/vacall-powerpc-macos.s create mode 100644 vacall/vacall-powerpc-sysv4-macro.S create mode 100644 vacall/vacall-powerpc.c create mode 100644 vacall/vacall-powerpc64-aix.s create mode 100644 vacall/vacall-powerpc64-elfv2-linux.S create mode 100644 vacall/vacall-powerpc64-linux.S create mode 100644 vacall/vacall-powerpc64.c create mode 100644 vacall/vacall-riscv32-ilp32d-linux.s create mode 100644 vacall/vacall-riscv32-ilp32d-macro.S create mode 100644 vacall/vacall-riscv32.c create mode 100644 vacall/vacall-riscv64-lp64d-linux.s create mode 100644 vacall/vacall-riscv64-lp64d-macro.S create mode 100644 vacall/vacall-riscv64.c create mode 100644 vacall/vacall-s390-linux.s create mode 100644 vacall/vacall-s390-macro.S create mode 100644 vacall/vacall-s390.c create mode 100644 vacall/vacall-s390x-linux.s create mode 100644 vacall/vacall-s390x-macro.S create mode 100644 vacall/vacall-s390x.c create mode 100644 vacall/vacall-sparc-linux-pic.s create mode 100644 vacall/vacall-sparc-linux.s create mode 100644 vacall/vacall-sparc-macro.S create mode 100644 vacall/vacall-sparc.c create mode 100644 vacall/vacall-sparc64-linux-pic.s create mode 100644 vacall/vacall-sparc64-linux.s create mode 100644 vacall/vacall-sparc64-macro.S create mode 100644 vacall/vacall-sparc64.c create mode 100644 vacall/vacall-structcpy.c create mode 100644 vacall/vacall-x86_64-linux.s create mode 100644 vacall/vacall-x86_64-macro.S create mode 100644 vacall/vacall-x86_64-windows-macro.S create mode 100644 vacall/vacall-x86_64-windows.c create mode 100644 vacall/vacall-x86_64-windows.s create mode 100644 vacall/vacall-x86_64-x32-linux.s create mode 100644 vacall/vacall-x86_64.c create mode 100644 vacall/vacall.3 create mode 100644 vacall/vacall.h create mode 100644 vacall/vacall.html create mode 100644 vacall/vacall.man diff --git a/COPYING b/COPYING new file mode 100644 index 0000000..a3d1815 --- /dev/null +++ b/COPYING @@ -0,0 +1,340 @@ + GNU GENERAL PUBLIC LICENSE + Version 2, June 1991 + + Copyright (C) 1989, 1991 Free Software Foundation, Inc. + 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + + Preamble + + The licenses for most software are designed to take away your +freedom to share and change it. By contrast, the GNU General Public +License is intended to guarantee your freedom to share and change free +software--to make sure the software is free for all its users. This +General Public License applies to most of the Free Software +Foundation's software and to any other program whose authors commit to +using it. (Some other Free Software Foundation software is covered by +the GNU Library General Public License instead.) You can apply it to +your programs, too. + + When we speak of free software, we are referring to freedom, not +price. Our General Public Licenses are designed to make sure that you +have the freedom to distribute copies of free software (and charge for +this service if you wish), that you receive source code or can get it +if you want it, that you can change the software or use pieces of it +in new free programs; and that you know you can do these things. + + To protect your rights, we need to make restrictions that forbid +anyone to deny you these rights or to ask you to surrender the rights. +These restrictions translate to certain responsibilities for you if you +distribute copies of the software, or if you modify it. + + For example, if you distribute copies of such a program, whether +gratis or for a fee, you must give the recipients all the rights that +you have. You must make sure that they, too, receive or can get the +source code. And you must show them these terms so they know their +rights. + + We protect your rights with two steps: (1) copyright the software, and +(2) offer you this license which gives you legal permission to copy, +distribute and/or modify the software. + + Also, for each author's protection and ours, we want to make certain +that everyone understands that there is no warranty for this free +software. If the software is modified by someone else and passed on, we +want its recipients to know that what they have is not the original, so +that any problems introduced by others will not reflect on the original +authors' reputations. + + Finally, any free program is threatened constantly by software +patents. We wish to avoid the danger that redistributors of a free +program will individually obtain patent licenses, in effect making the +program proprietary. To prevent this, we have made it clear that any +patent must be licensed for everyone's free use or not licensed at all. + + The precise terms and conditions for copying, distribution and +modification follow. + + GNU GENERAL PUBLIC LICENSE + TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION + + 0. This License applies to any program or other work which contains +a notice placed by the copyright holder saying it may be distributed +under the terms of this General Public License. The "Program", below, +refers to any such program or work, and a "work based on the Program" +means either the Program or any derivative work under copyright law: +that is to say, a work containing the Program or a portion of it, +either verbatim or with modifications and/or translated into another +language. (Hereinafter, translation is included without limitation in +the term "modification".) Each licensee is addressed as "you". + +Activities other than copying, distribution and modification are not +covered by this License; they are outside its scope. The act of +running the Program is not restricted, and the output from the Program +is covered only if its contents constitute a work based on the +Program (independent of having been made by running the Program). +Whether that is true depends on what the Program does. + + 1. You may copy and distribute verbatim copies of the Program's +source code as you receive it, in any medium, provided that you +conspicuously and appropriately publish on each copy an appropriate +copyright notice and disclaimer of warranty; keep intact all the +notices that refer to this License and to the absence of any warranty; +and give any other recipients of the Program a copy of this License +along with the Program. + +You may charge a fee for the physical act of transferring a copy, and +you may at your option offer warranty protection in exchange for a fee. + + 2. You may modify your copy or copies of the Program or any portion +of it, thus forming a work based on the Program, and copy and +distribute such modifications or work under the terms of Section 1 +above, provided that you also meet all of these conditions: + + a) You must cause the modified files to carry prominent notices + stating that you changed the files and the date of any change. + + b) You must cause any work that you distribute or publish, that in + whole or in part contains or is derived from the Program or any + part thereof, to be licensed as a whole at no charge to all third + parties under the terms of this License. + + c) If the modified program normally reads commands interactively + when run, you must cause it, when started running for such + interactive use in the most ordinary way, to print or display an + announcement including an appropriate copyright notice and a + notice that there is no warranty (or else, saying that you provide + a warranty) and that users may redistribute the program under + these conditions, and telling the user how to view a copy of this + License. (Exception: if the Program itself is interactive but + does not normally print such an announcement, your work based on + the Program is not required to print an announcement.) + +These requirements apply to the modified work as a whole. If +identifiable sections of that work are not derived from the Program, +and can be reasonably considered independent and separate works in +themselves, then this License, and its terms, do not apply to those +sections when you distribute them as separate works. But when you +distribute the same sections as part of a whole which is a work based +on the Program, the distribution of the whole must be on the terms of +this License, whose permissions for other licensees extend to the +entire whole, and thus to each and every part regardless of who wrote it. + +Thus, it is not the intent of this section to claim rights or contest +your rights to work written entirely by you; rather, the intent is to +exercise the right to control the distribution of derivative or +collective works based on the Program. + +In addition, mere aggregation of another work not based on the Program +with the Program (or with a work based on the Program) on a volume of +a storage or distribution medium does not bring the other work under +the scope of this License. + + 3. You may copy and distribute the Program (or a work based on it, +under Section 2) in object code or executable form under the terms of +Sections 1 and 2 above provided that you also do one of the following: + + a) Accompany it with the complete corresponding machine-readable + source code, which must be distributed under the terms of Sections + 1 and 2 above on a medium customarily used for software interchange; or, + + b) Accompany it with a written offer, valid for at least three + years, to give any third party, for a charge no more than your + cost of physically performing source distribution, a complete + machine-readable copy of the corresponding source code, to be + distributed under the terms of Sections 1 and 2 above on a medium + customarily used for software interchange; or, + + c) Accompany it with the information you received as to the offer + to distribute corresponding source code. (This alternative is + allowed only for noncommercial distribution and only if you + received the program in object code or executable form with such + an offer, in accord with Subsection b above.) + +The source code for a work means the preferred form of the work for +making modifications to it. For an executable work, complete source +code means all the source code for all modules it contains, plus any +associated interface definition files, plus the scripts used to +control compilation and installation of the executable. However, as a +special exception, the source code distributed need not include +anything that is normally distributed (in either source or binary +form) with the major components (compiler, kernel, and so on) of the +operating system on which the executable runs, unless that component +itself accompanies the executable. + +If distribution of executable or object code is made by offering +access to copy from a designated place, then offering equivalent +access to copy the source code from the same place counts as +distribution of the source code, even though third parties are not +compelled to copy the source along with the object code. + + 4. You may not copy, modify, sublicense, or distribute the Program +except as expressly provided under this License. Any attempt +otherwise to copy, modify, sublicense or distribute the Program is +void, and will automatically terminate your rights under this License. +However, parties who have received copies, or rights, from you under +this License will not have their licenses terminated so long as such +parties remain in full compliance. + + 5. You are not required to accept this License, since you have not +signed it. However, nothing else grants you permission to modify or +distribute the Program or its derivative works. These actions are +prohibited by law if you do not accept this License. Therefore, by +modifying or distributing the Program (or any work based on the +Program), you indicate your acceptance of this License to do so, and +all its terms and conditions for copying, distributing or modifying +the Program or works based on it. + + 6. Each time you redistribute the Program (or any work based on the +Program), the recipient automatically receives a license from the +original licensor to copy, distribute or modify the Program subject to +these terms and conditions. You may not impose any further +restrictions on the recipients' exercise of the rights granted herein. +You are not responsible for enforcing compliance by third parties to +this License. + + 7. If, as a consequence of a court judgment or allegation of patent +infringement or for any other reason (not limited to patent issues), +conditions are imposed on you (whether by court order, agreement or +otherwise) that contradict the conditions of this License, they do not +excuse you from the conditions of this License. If you cannot +distribute so as to satisfy simultaneously your obligations under this +License and any other pertinent obligations, then as a consequence you +may not distribute the Program at all. For example, if a patent +license would not permit royalty-free redistribution of the Program by +all those who receive copies directly or indirectly through you, then +the only way you could satisfy both it and this License would be to +refrain entirely from distribution of the Program. + +If any portion of this section is held invalid or unenforceable under +any particular circumstance, the balance of the section is intended to +apply and the section as a whole is intended to apply in other +circumstances. + +It is not the purpose of this section to induce you to infringe any +patents or other property right claims or to contest validity of any +such claims; this section has the sole purpose of protecting the +integrity of the free software distribution system, which is +implemented by public license practices. Many people have made +generous contributions to the wide range of software distributed +through that system in reliance on consistent application of that +system; it is up to the author/donor to decide if he or she is willing +to distribute software through any other system and a licensee cannot +impose that choice. + +This section is intended to make thoroughly clear what is believed to +be a consequence of the rest of this License. + + 8. If the distribution and/or use of the Program is restricted in +certain countries either by patents or by copyrighted interfaces, the +original copyright holder who places the Program under this License +may add an explicit geographical distribution limitation excluding +those countries, so that distribution is permitted only in or among +countries not thus excluded. In such case, this License incorporates +the limitation as if written in the body of this License. + + 9. The Free Software Foundation may publish revised and/or new versions +of the General Public License from time to time. Such new versions will +be similar in spirit to the present version, but may differ in detail to +address new problems or concerns. + +Each version is given a distinguishing version number. If the Program +specifies a version number of this License which applies to it and "any +later version", you have the option of following the terms and conditions +either of that version or of any later version published by the Free +Software Foundation. If the Program does not specify a version number of +this License, you may choose any version ever published by the Free Software +Foundation. + + 10. If you wish to incorporate parts of the Program into other free +programs whose distribution conditions are different, write to the author +to ask for permission. For software which is copyrighted by the Free +Software Foundation, write to the Free Software Foundation; we sometimes +make exceptions for this. Our decision will be guided by the two goals +of preserving the free status of all derivatives of our free software and +of promoting the sharing and reuse of software generally. + + NO WARRANTY + + 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY +FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN +OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES +PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED +OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF +MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS +TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE +PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, +REPAIR OR CORRECTION. + + 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING +WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR +REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, +INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING +OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED +TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY +YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER +PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE +POSSIBILITY OF SUCH DAMAGES. + + END OF TERMS AND CONDITIONS + + Appendix: How to Apply These Terms to Your New Programs + + If you develop a new program, and you want it to be of the greatest +possible use to the public, the best way to achieve this is to make it +free software which everyone can redistribute and change under these terms. + + To do so, attach the following notices to the program. It is safest +to attach them to the start of each source file to most effectively +convey the exclusion of warranty; and each file should have at least +the "copyright" line and a pointer to where the full notice is found. + + + Copyright (C) + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software Foundation, + Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. + +Also add information on how to contact you by electronic and paper mail. + +If the program is interactive, make it output a short notice like this +when it starts in an interactive mode: + + Gnomovision version 69, Copyright (C) year name of author + Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. + This is free software, and you are welcome to redistribute it + under certain conditions; type `show c' for details. + +The hypothetical commands `show w' and `show c' should show the appropriate +parts of the General Public License. Of course, the commands you use may +be called something other than `show w' and `show c'; they could even be +mouse-clicks or menu items--whatever suits your program. + +You should also get your employer (if you work as a programmer) or your +school, if any, to sign a "copyright disclaimer" for the program, if +necessary. Here is a sample; alter the names: + + Yoyodyne, Inc., hereby disclaims all copyright interest in the program + `Gnomovision' (which makes passes at compilers) written by James Hacker. + + , 1 April 1989 + Ty Coon, President of Vice + +This General Public License does not permit incorporating your program into +proprietary programs. If your program is a subroutine library, you may +consider it more useful to permit linking proprietary applications with the +library. If this is what you want to do, use the GNU Library General +Public License instead of this License. diff --git a/ChangeLog b/ChangeLog new file mode 100644 index 0000000..7c401db --- /dev/null +++ b/ChangeLog @@ -0,0 +1,5421 @@ +2019-08-24 Bruno Haible + + Bump shared library version numbers. + * Makefile.in (LIBFFCALL_VERSION_INFO): Bump to 0:2:0. + * avcall/Makefile.in (LIBAVCALL_VERSION_INFO): Bump to 1:2:0. + * trampoline/Makefile.in (LIBTRAMPOLINE_VERSION_INFO): Likewise. + * callback/Makefile.in (LIBCALLBACK_VERSION_INFO): Likewise. + +2019-08-24 Bruno Haible + + hppa: Add comments about structure arguments. + * avcall/avcall-hppa.c: Add comment. + * avcall/avcall-internal.h (__av_struct): Likewise. + * vacall/vacall-internal.h (__va_arg_struct): Likewise. + +2019-08-24 Bruno Haible + + Add a test for by-value passing. + * testcases.c (v_clobber_K): New function. + * avcall/tests.c (by_value_tests): New function. + (main): Invoke it. + * vacall/tests.c (simulator, main): Test v_clobber_K. + * callback/tests.c (v_clobber_K_simulator): New function. + (main): Test it. + +2019-08-24 Bruno Haible + + hppa: Implement correct floating-point argument passing on Linux. + * avcall/avcall.h (__AV_ALIST_WORDS): Add comment. + * avcall/avcall-alist.h (__av_alist) [__hppa__]: Add farg_mask, + darg_mask. + * avcall/avcall-internal.h (__av_start1) [__hppa__]: Initialize + farg_mask, darg_mask. + (_av_float) [__hppa__]: Set a bit in farg_mask. + (_av_double) [__hppa__]: Set a bit in darg_mask. + * avcall/avcall-hppa.c (avcall_call): Copy floating-point arguments + among the first 4 words to %fr4L...%fr7L and %fr5,%fr7. + * vacall/vacall-internal.h (_va_arg_float, _va_arg_double) [__hppa__]: + For floating-point arguments among the first 4 words, use the value + passed in floating-point registers. + * PLATFORMS, */PLATFORMS: List the Linux/hppa ABI. + * NEWS: Mention the new port. + +2019-08-24 Bruno Haible + + hppa: Fix stack corruption in avcall. + * avcall/avcall-hppa.c (avcall_call): Don't let GCC optimize away the + stack-allocated array. + * NEWS: Mention the fix. + +2019-08-24 Bruno Haible + + Add another integer test. + * testcases.c (i17, ..., i32): New variables. + (i_i32): New function. + * avcall/tests.c (int_tests): Test it. + * vacall/tests.c (simulator, main): Likewise. + * callback/tests.c (i_i32_simulator): New function. + (main): Test it. + +2019-08-24 Bruno Haible + + cross-tools: Add support for GCC 8 and 9. + * cross-tools/cross-build.sh (func_build_gcc): Handle also GCC 8 and 9. + +2019-08-21 Bruno Haible + + mips: Change the default 32-bit ABI from fp32 to fpxx. + Reported by Sébastien Villemot + at . + He also found the trick with -fno-tree-dce. + * porting-tools/abis/mips-abis.txt: New file. + * cross-tools/cross.conf (mips): Use gcc 5 and binutils 2.27. + * common/asm-mips.sh: Eliminate .nan and .module lines. + * avcall/avcall-mipsn32.c (avcall_call): Use return value of + __builtin_alloca instead of accessing the stack pointer directly. + * avcall/Makefile.devel (avcall-mipseb-linux.s, avcall-mipsel-linux.s): + Build with gcc 5, with option -mfpxx (for compatibility with current + Debian), with -march=mips2 (required by -mfpxx), and -fno-tree-dce + (required to avoid that gcc eliminates the __builtin_alloca call). + (avcall-mipsn32eb-linux.s, avcall-mipsn32el-linux.s, + avcall-mips64eb-linux.s, avcall-mips64el-linux.s): Build with gcc 5. + * vacall/Makefile.devel (vacall-mipseb-linux.s, vacall-mipsel-linux.s): + Build with gcc 5, with option -mfpxx (for compatibility with current + Debian) and -march=mips2 (required by -mfpxx). + (vacall-mipsn32eb-linux.s, vacall-mipsn32el-linux.s, + vacall-mips64eb-linux.s, vacall-mips64el-linux.s): Build with gcc 5. + * callback/vacall_r/Makefile.devel (vacall-mipseb-linux.s, + vacall-mipsel-linux.s): Build with gcc 5, with option -mfpxx (for + compatibility with current Debian) and -march=mips2 (required by + -mfpxx). + (vacall-mipsn32eb-linux.s, vacall-mipsn32el-linux.s, + vacall-mips64eb-linux.s, vacall-mips64el-linux.s): Build with gcc 5. + * NEWS: Mention the change. + +2019-08-20 Bruno Haible + + riscv32: Add support for riscv32-ilp32d ABI. + * cross-tools/cross.conf: Add configuration for riscv32 cross tools. + * porting-tools/emulation/buildroot-riscv-2018-10-20-riscv32.config: New + file. + * porting-tools/emulation/tinyemu-riscv32.txt: New file. + * porting-tools/emulation/README: Refer to it. + * porting-tools/abis/README: Tweaks. + * porting-tools/abis/call-used-registers.txt: Add info about riscv32. + * porting-tools/abis/reg-struct-return.txt: Likewise. + * porting-tools/abis/stack-frame.txt: Likewise. + * porting-tools/execstack/voidfunc.c: Add command for riscv32. + * porting-tools/execstack/voidfunc-riscv32.o: New generated file. + * porting-tools/execstack/README: Add info about riscv32. + * ffcall-abi.h: Add support for riscv32-lp64. + * configure.ac: Check for also on riscv32. + * avcall/avcall.h (__AV_STRUCT_RETURN): Add code for __riscv32__. + * avcall/avcall-alist.h (__av_alist): Likewise. + * avcall/avcall-internal.h: Add code for __riscv32__, especially + __av_start1, __av_reg_struct_return, __av_start_struct4, __av_word, + __av_longlong, __av_ulonglong, __av_arg_longlong, _av_float, _av_double, + __av_struct. + * avcall/avcall-riscv32.c: New file. + * avcall/Makefile.devel (avcall-riscv32-ilp32d-linux.s, + avcall-riscv32-ilp32d-macro.S): New targets. + * avcall/Makefile.in (avcall-riscv32-ilp32d.lo, + avcall-riscv32-ilp32d.s): New targets. + (clean): Remove avcall-riscv32-ilp32d.s. + (SOURCE_FILES): Add avcall-riscv32.c, avcall-riscv32-ilp32d-linux.s, + avcall-riscv32-ilp32d-macro.S. + * vacall/vacall.h (__VA_STRUCT_RETURN): Add code for __riscv32__. + * vacall/vacall-internal.h: Add code for __riscv32__, especially + __va_alist, __va_reg_struct_return, __va_start_struct2, + __va_arg_leftadjusted, __va_arg_adjusted, _va_arg_longlong, + _va_arg_ulonglong, __va_arg_longlong, __va_align_double, _va_arg_float, + _va_arg_double, __va_arg_struct. + * vacall/vacall-riscv32.c: New file. + * vacall/Makefile.devel (vacall-riscv32-ilp32d-linux.s, + vacall-riscv32-ilp32d-macro.S): New targets. + * vacall/Makefile.in (vacall-riscv32-ilp32d.@OBJEXT@, + vacall-riscv32-ilp32d.s): New targets. + (clean): Remove vacall-riscv32-ilp32d.s. + (SOURCE_FILES): Add vacall-riscv32.c, vacall-riscv32-ilp32d-linux.s, + vacall-riscv32-ilp32d-macro.S. + * callback/vacall_r/vacall_r.h (__VA_STRUCT_RETURN): Add code for + __riscv32__. + * callback/vacall_r/Makefile.devel (vacall-riscv32-ilp32d-linux.s, + vacall-riscv32-ilp32d-macro.S): New targets. + * callback/vacall_r/Makefile.in (vacall-riscv32-ilp32d.lo, + vacall-riscv32-ilp32d.s): New targets. + (clean): Remove vacall-riscv32-ilp32d.s. + (SOURCE_FILES): Add vacall-riscv32-ilp32d-linux.s, + vacall-riscv32-ilp32d-macro.S. + * trampoline/Makefile.devel (proto-riscv32.s, tramp-riscv32.o): New + targets. + * trampoline/proto-riscv32.s: New generated file. + * trampoline/tramp-riscv32.old.s: New file. + * trampoline/tramp-riscv32.old.o: New generated file. + * trampoline/tramp-riscv32.s: New file. + * trampoline/tramp-riscv32.o: New generated file. + * trampoline/trampoline.c: Implement for __riscv32__. + * callback/trampoline_r/Makefile.devel (proto-riscv32.s, + tramp-riscv32.o): New targets. + * callback/trampoline_r/proto.c: Add code for __riscv32__. + * callback/trampoline_r/proto-riscv32.s: New generated file. + * callback/trampoline_r/tramp-riscv32.old.s: New file. + * callback/trampoline_r/tramp-riscv32.old.o: New generated file. + * callback/trampoline_r/tramp-riscv32.s: New file. + * callback/trampoline_r/tramp-riscv32.o: New generated file. + * callback/trampoline_r/trampoline.c: Implement for __riscv32__. + * callback/trampoline_r/test1.c: Add support for __riscv32__. + * PLATFORMS, */PLATFORMS: List the 32-bit RISC-V ABI. + * NEWS: Mention the new port. + +2019-08-19 Bruno Haible + + Add some more general-purpose args boundary tests. + * testcases.c (l_l0J, l_l1J, l_l2J, l_l3J, l_l4J, l_l5J, l_l6J, l_l7J): + New functions. + * avcall/tests.c (gpargs_boundary_tests): Test them. + * vacall/tests.c (simulator, main): Likewise. + * callback/tests.c (l_l*J_simulator): New functions. + (main): Test them. + * porting-tools/abis/gpargs*.c: Add a corresponding test here as well. + +2019-08-19 Bruno Haible + + riscv64: Fix bug regarding passing of more than 8 arguments. + * porting-tools/abis/stack-frame.txt: Correct information about riscv64 + ABI. + * avcall/avcall-alist.h (__av_alist) [__riscv64__]: Remove ianum and + iargs. + * avcall/avcall-internal.h (__av_start1, __av_start_struct4, __av_long, + __av_ulong, __av_ptr, _av_float, _av_double, __av_struct) [__riscv64__]: + Change accordingly. + * avcall/avcall-riscv64.c (avcall_call): Likewise. + * vacall/vacall-internal.h (__va_arg_adjusted): Deal with a split struct + that spans the 8th and 9th argument words. + * vacall/vacall-riscv64.c (struct gpargsequence): New type. + (vacall_receiver): Use it to make sure that room is allocated when a + struct is passed that spans the 8th and 9th argument words. + +2019-08-19 Bruno Haible + + arm64: Fix bug regarding passing of more than 8 arguments. + * vacall/vacall-internal.h (__va_arg_adjusted): Bump (LIST)->ianum when + switching from registers to the stack. + * NEWS: Mention it. + +2019-08-19 Bruno Haible + + avcall: Remove unnecessary parentheses. + * avcall/avcall-internal.h (av_double, _av_float, _av_double): Remove + unnecessary level of parentheses. + +2019-05-11 Bruno Haible + + Update bug reporting instructions. + * README: Tell users to report bugs in the bug tracker or by email. + * cross-tools/cross-build.sh (func_usage): Likewise. + +2019-04-01 Bruno Haible + + build: Separate git operations from build operations. + * gitsub.sh: New file, from gnulib. + * .gitmodules: New file. + * autogen.sh: Remove all git operations. Look at GNULIB_SRCDIR + environment variable. Ignore the GNULIB_TOOL environment variable. + * README-hacking: Explain when to use gitsub.sh. + +2019-01-19 Bruno Haible + + Record support for NetBSD/SPARC64. + * PLATFORMS, */PLATFORMS: List this platform. + +2018-05-04 Bruno Haible + + Simplify code. Drop support for Borland C++ on Windows. + * common/asm-x86_64.h, common/asm-x86_64.sh, ffcall-stdint.h: + Simplify 'defined _WIN32 || defined __WIN32__' to just 'defined _WIN32'. + * avcall/avcall.h, avcall/avcall-alist.h: Likewise. + * vacall/vacall.h, vacall/vacall-internal.h: Likewise. + * callback/vacall_r/vacall_r.h: Likewise. + * trampoline/trampoline.c: Likewise. + * callback/trampoline_r/trampoline.c: Likewise. + +2018-04-08 Bruno Haible + + riscv64: Add support for riscv64-lp64d ABI. + * cross-tools/cross-build.sh (func_build_gcc): Add support for GCC 7.2.0 + and 7.3.0. + * cross-tools/cross.conf: Add configuration for riscv64 cross tools. + * porting-tools/emulation/qemu-riscv64.txt: New file. + * porting-tools/emulation/README: Refer to it. + * porting-tools/abis/README: Tweaks. + * porting-tools/abis/call-used-registers.txt: Add info about riscv64. + * porting-tools/abis/reg-struct-return.txt: Likewise. + * porting-tools/abis/stack-frame.txt: Likewise. + * porting-tools/abis/function-pointer.txt: Clarify file locations. + * porting-tools/execstack/voidfunc.c: Add command for riscv64. + * porting-tools/execstack/voidfunc-riscv64.o: New generated file. + * porting-tools/execstack/main.c (voidfunc): Define also for riscv. + * porting-tools/execstack/README: Add info about riscv64. + * ffcall-abi.h: Add support for riscv64-lp64. + * common/asm-riscv.sh: New file. + * Makefile.in (SOURCE_FILES): Add it. + * configure.ac: Check for also on riscv64. + * avcall/avcall.h (__AV_STRUCT_RETURN, __AV_REGISTER_STRUCT_RETURN): Add + code for __riscv64__. + * avcall/avcall-alist.h (__av_alist): Likewise. + * avcall/avcall-internal.h: Add code for __riscv64__, especially + __av_start1, __av_reg_struct_return, __av_start_struct4, __av_word, + __av_long, __av_ulong, __av_ptr, __av_longlong, __av_ulonglong, + _av_float, _av_double, __av_struct. + * avcall/avcall-riscv64.c: New file. + * avcall/Makefile.devel (avcall-riscv64-lp64d-linux.s, + avcall-riscv64-lp64d-macro.S): New targets. + * avcall/Makefile.in (avcall-riscv64-lp64d.lo, avcall-riscv64-lp64d.s): + New targets. + (clean): Remove avcall-riscv64-lp64d.s. + (SOURCE_FILES): Add avcall-riscv64.c, avcall-riscv64-lp64d-linux.s, + avcall-riscv64-lp64d-macro.S. + * vacall/vacall.h (__VA_STRUCT_RETURN, __VA_REGISTER_STRUCT_RETURN): Add + code for __riscv64__. + * vacall/vacall-internal.h: Add code for __riscv64__, especially + __va_alist, __va_reg_struct_return, __va_start_struct2, + __va_arg_leftadjusted, __va_arg_adjusted, _va_arg_longlong, + _va_arg_ulonglong, __va_align_double, _va_arg_float, _va_arg_double, + __va_arg_struct, _va_return_longlong. + * vacall/vacall-riscv64.c: New file. + * vacall/Makefile.devel (vacall-riscv64-lp64d-linux.s, + vacall-riscv64-lp64d-macro.S): New targets. + * vacall/Makefile.in (vacall-riscv64-lp64d.@OBJEXT@, + vacall-riscv64-lp64d.s): New targets. + (clean): Remove vacall-riscv64-lp64d.s. + (SOURCE_FILES): Add vacall-riscv64.c, vacall-riscv64-lp64d-linux.s, + vacall-riscv64-lp64d-macro.S. + * callback/vacall_r/vacall_r.h (__VA_STRUCT_RETURN, + __VA_REGISTER_STRUCT_RETURN): Add code for __riscv64__. + * callback/vacall_r/Makefile.devel (vacall-riscv64-lp64d-linux.s, + vacall-riscv64-lp64d-macro.S): New targets. + * callback/vacall_r/Makefile.in (vacall-riscv64-lp64d.lo, + vacall-riscv64-lp64d.s): New targets. + (clean): Remove vacall-riscv64-lp64d.s. + (SOURCE_FILES): Add vacall-riscv64-lp64d-linux.s, + vacall-riscv64-lp64d-macro.S. + * trampoline/Makefile.devel (proto-riscv64.s, tramp-riscv64.o): New + targets. + * trampoline/proto-riscv64.s: New generated file. + * trampoline/tramp-riscv64.s: New file. + * trampoline/tramp-riscv64.o: New generated file. + * trampoline/trampoline.c: Implement for __riscv64__. + * callback/trampoline_r/Makefile.devel (proto-riscv64.s, + tramp-riscv64.o): New targets. + * callback/trampoline_r/proto64.c: Add code for __riscv64__. + * callback/trampoline_r/proto-riscv64.s: New generated file. + * callback/trampoline_r/tramp-riscv64.s: New file. + * callback/trampoline_r/tramp-riscv64.o: New generated file. + * callback/trampoline_r/trampoline.c: Implement for __riscv64__. + * callback/trampoline_r/test1.c: Add support for __riscv64__. + * PLATFORMS, */PLATFORMS: List the 64-bit RISC-V ABI. + * NEWS: Mention the new port. + +2018-04-08 Bruno Haible + + s390x: Trivial tweak. + * avcall/avcall-s390x.c (avcall_call): Rename result variable from 'i' + to 'iret'. + +2018-02-26 Bruno Haible + + Add support for Linux/arm on Raspberry Pi. + Reported by Simon Dales . + * avcall/Makefile.devel (avcall-armhf-macro.S): Pass option + '-march=armv6' to gcc. + * vacall/Makefile.devel (vacall-arm-linux.s, vacall-arm-linux-pic.s): + Likewise. + * callback/vacall_r/Makefile.devel (vacall-armhf-macro.S): Likewise. + * PLATFORMS, */PLATFORMS: List this platform. + * NEWS: Mention this. + +2018-02-24 Bruno Haible + + Add support for Linux/i386 with PIE-enabled gcc. + * vacall/Makefile.devel (vacall-i386-linux-pic.s): New target. + (vacall-i386-macro.S): Include code for the PIC and the non-PIC case. + * vacall/Makefile.in (SOURCE_FILES): Add vacall-i386-linux-pic.s. + +2018-02-18 Bruno Haible + + Avoid undesired compiler optimizations. + Reported by Jerry James . + * configure.ac (DISABLE_TYPE_BASED_ALIASING): New substituted variable. + * avcall/Makefile.in (avcall-libapi.lo): Use it. + * vacall/Makefile.in (vacall-libapi.o): Likewise. + * callback/vacall_r/Makefile.in (vacall-libapi.lo): Likewise. + +2018-02-17 Bruno Haible + + Bump version number. + * VERSION: Set to 2.2. + * NEWS: Open new section for 2.2. + +2018-02-17 Bruno Haible + + Bump shared library version numbers. + * Makefile.in (LIBFFCALL_VERSION_INFO): Bump to 0:1:0. + * avcall/Makefile.in (LIBAVCALL_VERSION_INFO): Bump to 1:1:0. + * trampoline/Makefile.in (LIBTRAMPOLINE_VERSION_INFO): Likewise. + * callback/Makefile.in (LIBCALLBACK_VERSION_INFO): Likewise. + +2018-02-17 Bruno Haible + + Add support for HardenedBSD. + The fix was done in gnulib today. + * NEWS: Mention this. + +2018-02-17 Bruno Haible + + Add support for Linux/arm with PIE-enabled gcc. + Reported by Nelson Beebe. + * vacall/Makefile.devel (vacall-arm-linux.s, vacall-arm-linux-pic.s, + vacall-armhf-linux.s, vacall-armhf-linux-pic.s): New targets. + (vacall-arm-macro.S, vacall-armhf-macro.S): Include code for the PIC and + the non-PIC case. + * vacall/Makefile.in (SOURCE_FILES): Add vacall-arm*-linux*.s. + +2018-02-17 Bruno Haible + + Add support for OpenBSD 6.1 and newer. + Reported by Nelson Beebe. + * m4/codeexec.m4 (FFCALL_CODEEXEC_PAX): Also test whether mprotect + returns with errno=ENOTSUP. + * NEWS: Mention this. + +2018-01-30 Bruno Haible + + Verify support for Minix/i386. + * PLATFORMS, */PLATFORMS: List this platform. + +2018-01-27 Bruno Haible + + Rename some files. + * INSTALL.windows: Renamed from README.windows. + * INSTALL.os2: Renamed from README.os2. + * Makefile.in (SOURCE_FILES): Update. + +2018-01-09 Bruno Haible + + Make processing of assembly-language files work with GNU clisp. + * common/asm-arm.sh: Don't introduce C() macro in .req lines. + * common/asm-hppa.h (DEF): Don't use token-pasting operator here, since + the result would not be a valid token. + * common/asm-hppa64.h (DEF): Likewise. + * common/asm-i386.h (INSN2SHCL): Omit the cl register only on Solaris. + All other assemblers support it. + (P2ALIGN): Use __SVR4, not __sun, to detect Solaris. + * common/asm-i386.sh: Allow spaces instead of tabs after .type and + .size. Recognize INSN2SHCL without assuming an 'shcl' macro. + +2017-11-28 Bruno Haible + + mips, mipsn32, mips64: Improvement for ELF format. + * common/asm-mips.h (DECLARE_FUNCTION): Test __ELF__, not __GNU__. + +2017-11-25 Bruno Haible + + mips64: Fix crash on some real hardware mips64el (Octeon). + Reported by Sébastien Villemot . + Reminder: Some real MIPS hardware executes the "branch delay slot" + after a branch or jump instruction. See + + + * trampoline/trampoline.c (alloc_trampoline) [__mips64__]: Store the + instructions as 32-bit words, so that the instructions come out as + expected, regardless of the endianness. + * trampoline/tramp-mips*.s: Update comments. + * callback/trampoline_r/tramp-mips*.s: Likewise. + +2017-10-29 Bruno Haible + + Verify support for Haiku/i386. + * PLATFORMS, */PLATFORMS: List this platform. + +2017-10-22 Bruno Haible + + x86_64-x32: Fix passing of pointers. + * avcall/avcall-internal.h (__av_start_struct4, __av_ptr): For pointer + values, use zero-extend instead of cast from 'void*' to '__avword'. + * vacall/vacall-x86_64.c (vacall_receiver): For pointer values, use + zero-extend instead of cast from 'void*' to '__vaword'. + +2017-10-21 Bruno Haible + + Include libtool fix for Solaris 11.3. + Reported at . + * Makefile.maint (libtool-imported-files): Download and apply said fix. + +2017-10-09 Bruno Haible + + Avoid build failures caused by parallel make. + Reported by Riccardo G Corsi . + * Makefile.in (GNUMAKEFLAGS): New variable. + +2017-09-24 Bruno Haible + + Update NEWS. + * NEWS: Mention the API changes in 2.0. + +2017-09-15 Bruno Haible + + tests: Consistency. + * avcall/tests.c (pointer_tests): Move before the mixed_number_tests. + (gpargs_boundary_tests): Fix weakness in the f_f17l3L test. + +2017-09-12 Bruno Haible + + sparc: Verify support for NetBSD. + * PLATFORMS, */PLATFORMS: List this platform. + +2017-09-11 Bruno Haible + + Bump version number. + * VERSION: Set to 2.1. + * NEWS: Open new section for 2.1. + +2017-09-10 Bruno Haible + + Install the libraries as shared libraries by default. + * configure.ac (LT_INIT): Remove option 'disable-shared'. + * README: Remove outdated text. + * NEWS: Mention the change. + +2017-09-10 Bruno Haible + + Install a library named libffcall. + * ffcall-version.c: New file. + * ffcall-version.in.h: Rename double-inclusion guard. + (ffcall_get_version): New declaration. + * Makefile.in: Add variables for using libtool. + (LIBFFCALL_EXPORTED_SYMBOLS_REGEX, LIBFFCALL_VERSION_INFO): New + variables. + (all-subdirs, ffcall-version.lo, libffcall.la): New targets. + (all): Depend on them. + (install): Install also libffcall.la. + (installdirs): Create also $(libdir). + (uninstall): Uninstall also libffcall.la. + (MOSTLYCLEANDIRS, MOSTLYCLEANFILES): New variables. + (mostlyclean, clean, distclean, maintainer-clean): Delete these. + (SOURCE_FILES): Add ffcall-version.c. + * README: Mention libffcall.{a,so}. Mark libavcall and libcallback as + deprecated. + * NEWS: Mention the change. + +2017-09-10 Bruno Haible + + Move the backward compatibility code to separate object files. + * avcall/avcall-compat.c: New file, extracted from + avcall/avcall-libapi.c. + * avcall/Makefile.in (SOURCE_FILES): Add it. + (avcall-compat.lo): New target. + (OBJECTS): Add it. + * avcall/avcall-libapi.c (__builtin_avcall): Remove function. + * callback/callback-compat.c: New file, extracted from + callback/callback-libapi.c. + * callback/Makefile.in (SOURCE_FILES): Add it. + (callback-compat.lo): New target. + (libcallback.la): Include it. + * callback/callback-libapi.c (trampoline_r_data0): Remove function. + +2017-09-10 Bruno Haible + + vacall: Fix build failure with gcc configured with --enable-default-pie. + Works around a GCC bug, reported at + . + * configure.ac (WORKAROUND_BUG_81653): New variable. + * vacall/Makefile.in (vacall-sparc.@OBJEXT@, vacall-sparc.s): Use it. + +2017-09-10 Bruno Haible + + Fix build failure "error: narrowing conversion" with g++ on arm. + * testcases.c (C5): Cast -1 to 'char' explicitly. + +2017-09-10 Bruno Haible + + Fix build failure with --enable-shared on Solaris/x86 with cc. + * common/asm-i386.h: Test __SVR4, not __svr4__. + +2017-09-10 Bruno Haible + + Support building shared libraries on native Windows. + * configure.ac (LT_INIT): Add option 'win32-dll'. + * avcall/Makefile.in (avcall-x86_64.lo): Copy object file into .libs/ + directory. + * callback/vacall_r/Makefile.in (vacall-x86_64.lo): Likewise. + +2017-09-09 Bruno Haible + + i386: Verify support for Hurd. + * NEWS: List this platform. + +2017-09-09 Bruno Haible + + x86_64: Verify support for FreeBSD, NetBSD, OpenBSD. + * PLATFORMS, */PLATFORMS: List these platforms. + * NEWS: Likewise. + +2017-09-09 Bruno Haible + + i386: Restore support for FreeBSD, NetBSD, OpenBSD, DragonFly BSD. + * avcall/avcall.h (__AV_STRUCT_RETURN): Enable __AV_SMALL_STRUCT_RETURN + on FreeBSD/i386, OpenBSD/i386, DragonFly/i386. + * vacall/vacall.h (__VA_STRUCT_RETURN): Enable __VA_SMALL_STRUCT_RETURN + on FreeBSD/i386, OpenBSD/i386, DragonFly/i386. + * callback/vacall_r/vacall_r.h: Likewise. + * avcall/avcall-i386.c: Update comments. + * vacall/vacall-i386.c (vacall_receiver): Return the structure address + in %eax also for other platforms than MSVC. + * PLATFORMS, */PLATFORMS: List these platforms. + * NEWS: Likewise. + +2017-09-09 Bruno Haible + + i386: Assume MSVC struct return convention also on 32-bit mingw. + * avcall/avcall.h (__AV_STRUCT_RETURN): Enable __AV_MSVC_STRUCT_RETURN + on 32-bit mingw. + * vacall/vacall.h (__VA_STRUCT_RETURN): Enable __VA_MSVC_STRUCT_RETURN + on 32-bit mingw. + * callback/vacall_r/vacall_r.h: Likewise. + * NEWS: Mention the fix. + +2017-09-09 Bruno Haible + + vacall: Fix warnings on DragonFly BSD. + * vacall/vacall-internal.h (__va_start, __va_arg): Undefine first. + +2017-09-09 Bruno Haible + + avcall, vacall: Optimize struct return of small structs. + * avcall/avcall-arm64.c (avcall_call): Add alternative optimized code + for struct return. + * avcall/avcall-hppa.c (avcall_call): Likewise. + * avcall/avcall-ia64.c (avcall_call): Likewise. + * avcall/avcall-mipsn32.c (avcall_call): Likewise. + * avcall/avcall-mips64.c (avcall_call): Likewise. + * avcall/avcall-powerpc64.c (avcall_call): Likewise. + * avcall/avcall-sparc64.c (avcall_call): Likewise. + * avcall/avcall-x86_64.c (avcall_call): Likewise. + * avcall/avcall-x86_64-windows.c (avcall_call): Likewise. + * avcall/avcall-hppa64.c (avcall_call): Likewise, but don't enable it. + * vacall/vacall-arm64.c (vacall_receiver): Add alternative optimized + code for struct return. + * vacall/vacall-hppa.c (vacall_receiver): Likewise. + * vacall/vacall-ia64.c (vacall_receiver): Likewise. + * vacall/vacall-mipsn32.c (vacall_receiver): Likewise. + * vacall/vacall-mips64.c (vacall_receiver): Likewise. + * vacall/vacall-powerpc64.c (vacall_receiver): Likewise. + * vacall/vacall-sparc64.c (vacall_receiver): Likewise. + * vacall/vacall-x86_64.c (vacall_receiver): Likewise. + * vacall/vacall-x86_64-windows.c (vacall_receiver): Likewise. + * vacall/vacall-hppa64.c (vacall_receiver): Likewise. + +2017-09-09 Bruno Haible + + avcall, vacall: Align code style. + * avcall/avcall-hppa.c (avcall_call): Use variable name 'iret', like + for the other ABIs. + * avcall/avcall-ia64.c: Likewise. + * avcall/avcall-arm64.c (avcall_call): Use variable names 'iret' and + 'iret2', like for the other ABIs. + * avcall/avcall-x86_64.c: Likewise. + * avcall/avcall-sparc64.c (avcall_call): Use variable names 'iret', + 'iret2', 'iret3', 'iret4', for consistency. + * vacall/vacall-sparc64 (vacall_receiver): Likewise. + +2017-09-09 Bruno Haible + + x86_64: Remove register pressure on gcc. + * avcall/avcall-x86_64.c: Don't declare iarg[1-6]. + (avcall_call): Pass the integer arguments through arguments. + * avcall/avcall-x86_64-windows.c: Don't declare iarg[1-4]. + (avcall_call): Pass the integer arguments through arguments. + * vacall/vacall-x86_64.c: Don't declare iarg[1-6]. + (vacall_receiver): Use another way to save the integer registers. + * vacall/vacall-x86_64-windows.c: Don't declare iarg[1-4]. + +2017-09-09 Bruno Haible + + Fix preprocessor warning "does not give a valid preprocessing token". + * common/asm-i386.h (NUM): Don't use token concatenation between '$' + and a possibly negative number. + * common/asm-x86_64.h (NUM): Likewise. + +2017-09-09 Bruno Haible + + hppa64: Simplify trampoline. + * trampoline/tramp-hppa64-old.s: Renamed from trampoline/tramp-hppa64.s. + * trampoline/tramp-hppa64-old.o: Renamed from trampoline/tramp-hppa64.o. + * trampoline/tramp-hppa64-macro.S: New file. + * trampoline/Makefile.in (tramp-hppa64.lo, tramp-hppa64.s): New targets. + (clean): Remove tramp-hppa64.s. + (SOURCE_FILES): Add tramp-hppa64-macro.S. + * trampoline/trampoline.c: Distinguish __hppa64old__ and __hppa64new__. + Implement trampoline for __hppa64new__. + * callback/trampoline_r/tramp-hppa64-old.s: Renamed from + callback/trampoline_r/tramp-hppa64.s. + * callback/trampoline_r/tramp-hppa64-old.o: Renamed from + callback/trampoline_r/tramp-hppa64.o. + * callback/trampoline_r/tramp-hppa64-macro.S: New file. + * callback/trampoline_r/Makefile.in (tramp-hppa64.lo, tramp-hppa64.s): + New targets. + (clean): Remove tramp-hppa64.s. + (SOURCE_FILES): Add tramp-hppa64-macro.S. + * callback/trampoline_r/trampoline.c: Distinguish __hppa64old__ and + __hppa64new__. Implement trampoline for __hppa64new__. + * configure.ac (CPU_OBJECTS): Augment with tramp-hppa64.lo. + +2017-09-09 Bruno Haible + + hppa64: Add support for HP-PA in 64-bit mode on HP-UX. + * cross-tools/cross.conf: Add configuration for hppa64 cross tools. + * porting-tools/abis/README: Add details about platforms where function + pointers are actually pointers to some struct. + * porting-tools/abis/call-used-registers.txt: Add info about hppa64. + Fix info about hppa. + * porting-tools/abis/reg-struct-return.txt: Add info about hppa64. + * porting-tools/abis/stack-frame.txt: Likewise. + * porting-tools/execstack/voidfunc-hppa64.o: New file. + * common/asm-hppa64.h: New file. + * common/asm-hppa64.sh: New file. + * Makefile.in (SOURCE_FILES): Add them. + * avcall/avcall.h (__AV_REGISTER_STRUCT_RETURN): Add code for + __hppa64__. + * avcall/avcall-alist.h (__av_alist): Likewise. + * avcall/avcall-internal.h: Add code for __hppa64__, especially + __av_start1, __av_reg_struct_return, __av_start_struct4, __av_word, + __av_longlong, __av_ulonglong, _av_float, _av_double, + __av_struct_leftadjusted, __av_struct. + * avcall/avcall-hppa64.c: New file. + * avcall/Makefile.devel (avcall-hppa64-linux.s, avcall-hppa64-macro.S): + New targets. + * avcall/Makefile.in (avcall-hppa64.lo, avcall-hppa64.s): New targets. + (clean): Remove avcall-hppa64.s. + (SOURCE_FILES): Add avcall-hppa64.c, avcall-hppa64-linux.s, + avcall-hppa64-macro.S. + * vacall/vacall.h (__VA_REGISTER_STRUCT_RETURN): Add code for + __hppa64__. + * vacall/vacall-internal.h: Add code for __hppa64__, especially + __va_alist, __va_reg_struct_return, __va_start_struct2, + __va_arg_leftadjusted, __va_arg_rightadjusted, __va_arg_adjusted, + _va_arg_longlong, _va_arg_ulonglong, __va_align_double, _va_arg_float, + _va_arg_double, __va_arg_struct, _va_return_longlong. + * vacall/vacall-hppa64.c: New file. + * vacall/Makefile.devel (vacall-hppa64-linux.s, vacall-hppa64-macro.S): + New targets. + * vacall/Makefile.in (vacall-hppa64.@OBJEXT@, vacall-hppa64.s): New + targets. + (clean): Remove vacall-hppa64.s. + (SOURCE_FILES): Add vacall-hppa64.c, vacall-hppa64-linux.s, + vacall-hppa64-macro.S. + * callback/vacall_r/vacall_r.h (__VA_REGISTER_STRUCT_RETURN): Add code + for __hppa64__. + * callback/vacall_r/Makefile.devel (vacall-hppa64-linux.s, + vacall-hppa64-macro.S): New targets. + * callback/vacall_r/Makefile.in (vacall-hppa64.lo, vacall-hppa64.s): New + targets. + (clean): Remove vacall-hppa64.s. + (SOURCE_FILES): Add vacall-hppa64-linux.s, vacall-hppa64-macro.S. + * trampoline/Makefile.devel (cache-hppa64-linux.s, + cache-hppa64-macro.S): New targets. + (proto-hppa64.s, tramp-hppa64.o): New targets. + * trampoline/proto-hppa64.s: New generated file. + * trampoline/tramp-hppa64.s: New file. + * trampoline/tramp-hppa64.o: New generated file. + * trampoline/tramp-hppa-macro.S: Fix comment. + * trampoline/cache-hppa.c: Add code for __hppa64__. + * trampoline/trampoline.c: Implement for __hppa64__. + * trampoline/Makefile.in (cache-hppa64.lo, cache-hppa64.s): New targets. + (clean): Remove cache-hppa64.s. + (SOURCE_FILES): Add cache-hppa64-linux.s, cache-hppa64-macro.S. + * callback/trampoline_r/Makefile.devel (cache-hppa64-linux.s, + cache-hppa64-macro.S): New targets. + (proto-hppa64.s, tramp-hppa64.o): New targets. + * callback/trampoline_r/proto64.c: Add code for __hppa64__. + * callback/trampoline_r/proto-hppa64.s: New generated file. + * callback/trampoline_r/tramp-hppa64.s: New file. + * callback/trampoline_r/tramp-hppa64.o: New generated file. + * callback/trampoline_r/tramp-hppa-macro.S: Fix comment. + * callback/trampoline_r/trampoline.c: Implement for __hppa64__. + * callback/trampoline_r/test1.c: Add support for __hppa64__. + * callback/trampoline_r/Makefile.in (cache-hppa64.lo, cache-hppa64.s): + New targets. + (clean): Remove cache-hppa64.s. + (SOURCE_FILES): Add cache-hppa64-linux.s, cache-hppa64-macro.S. + * configure.ac (CPU_OBJECTS): Augment also for hppa64 ABI. + * PLATFORMS, */PLATFORMS: List the 64-bit HP-PA machine. + * NEWS: Mention the new port. + +2017-09-09 Bruno Haible + + Don't violate ISO C rules. + * avcall/avcall-internal.h (__av_struct): Don't store an unaligned + pointer in (LIST).aptr. + +2017-09-09 Bruno Haible + + Assume the C preprocessor discards // comments. + * common/asm-i386.h: Renamed from common/asm-i386.hh. + * Makefile.maint (common/asm-i386.h): Remove target. + * Makefile.in (SOURCE_FILES): Add common/asm-i386.h. Remove + common/asm-i386.hh. + (GENERATED_FILES): Remove common/asm-i386.h. + +2017-09-09 Bruno Haible + + avcall: Optimize struct return of small structs. + * avcall/avcall-*.c: Cache l->raddr in a local variable. + +2017-09-09 Bruno Haible + + x86_64: Improve processing of assembly-language files. + * common/asm-x86_64.sh: Eliminate #APP and #NO_APP directives. + In the MEM* patterns, recognize all 64-bit register names. + +2017-09-09 Bruno Haible + + Fix compilation error on HP-UX (regression from 2017-09-03). + * avcall/avcall-libapi.c: Include before ffcall-stdint.h. + +2017-09-03 Bruno Haible + + i386: Align processing of assembly-language files with x86_64 case. + * common/asm-i386.hh (INSN2MOVXL): Renamed from INSN2MOVX. + * common/asm-i386.sh: Generate INSN2MOVXL instead of INSN2MOVX. + +2017-09-03 Bruno Haible + + i386: Provide disambiguating size prefixes in more cases. + * common/asm-i386.sh: Introduce size prefixes also for the second + operand of instructions with two operands. + +2017-09-03 Bruno Haible + + i386: Simplify processing of assembly-language files. + * common/asm-i386.sh: Remove unused introduction of FUNEND. Remove + no-op rule for GLOBL. + +2017-09-03 Bruno Haible + + x86_64: Add support for MSVC 14. + * common/asm-x86_64.h (R, NUM, ADDR, ADDR_PCRELATIVE, X1, X2, X4, X8, + MEM, MEM_DISP, MEM_INDEX, MEM_SHINDEX, MEM_DISP_SHINDEX0, + MEM_DISP_SHINDEX, MEM_PCRELATIVE, INDIR, INSNCONC, INSN1, INSN2, + INSN2S, INSN2MOVXL, INSN2MOVXQ, INSN2MOVXLQ, _): New macros. + (TEXT, P2ALIGN, DECLARE_FUNCTION, FUNBEGIN, FUNEND): Implement for MSVC. + * common/asm-x86_64.sh: Generate instructions as macros that may expand + into AT&T syntax or MSVC syntax. + * avcall/Makefile.in (avcall-x86_64.lo): Use a different rule for MSVC. + (clean): Remove also avcall-x86_64.asm. + * vacall/Makefile.in (vacall-x86_64.@OBJEXT@): Use a different rule for + MSVC. + (clean): Remove also vacall-x86_64.asm. + * callback/vacall_r/Makefile.in (vacall-x86_64.lo): Use a different rule + for MSVC. + (clean): Remove also vacall-x86_64.asm. + * PLATFORMS, */PLATFORMS: List the 64-bit mingw machine. + * NEWS: Mention the new port. + +2017-09-03 Bruno Haible + + x86_64: Add support for mingw. + * avcall/avcall.h (__AV_LLP64): New macro. + (__avword): Use it. + * avcall/avcall-alist.h (__av_alist): Change fields of type + 'unsigned long' to 'uintptr_t'. + * avcall/avcall-internal.h (__av_longlong): Update implementation for + LLP64 platforms. + * vacall/vacall.h (__VA_LLP64): New macro. + (__vaword): Use it. + * callback/vacall_r/vacall_r.h: Likewise. + * vacall/vacall-internal.h (__va_alist): Change fields of type + 'unsigned long' to 'uintptr_t'. Don't assume that 'long long' is the + same as 'long' on x86_64. + (_va_arg_longlong, _va_arg_ulonglong, _va_return_longlong, + _va_return_ulonglong): Update implementation for LLP64 platforms. + * PLATFORMS, */PLATFORMS: List the 64-bit mingw machine. + * NEWS: Mention the new port. + +2017-09-03 Bruno Haible + + Fix warnings on 64-bit native Windows. + * avcall/tests.c (pointer_tests): Use %p to display the value of a + pointer. + * vacall/tests.c (main): Likewise, + * callback/tests.c (main): Likewise, + +2017-09-03 Bruno Haible + + Add support for platforms where sizeof(long) < sizeof(void*). + * ffcall-stdint.h: New file. + * Makefile.in (SOURCE_FILES): Add it. + * avcall/avcall-internal.h: Include ffcall-stdint.h. Use [u]intptr_t + instead of 'long', 'unsigned long', or '__avword' where appropriate. + * vacall/vacall-internal.h: Include ffcall-stdint.h. Use [u]intptr_t + instead of 'long', 'unsigned long', or '__vaword' where appropriate. + * Makefile.maint (GNULIB_MODULES): Add stdint. + * trampoline/trampoline.c: Include . Use [u]intptr_t instead + of 'long' or 'unsigned long' where appropriate. For __x86_64__, use + 'unsigned long long' instead of 'unsigned long'. + * callback/trampoline_r/trampoline.c: Likewise. + * callback/trampoline_r/test1.c (f): Use 'void*' instead of 'long' to + access env. + +2017-09-03 Bruno Haible + + x86_64: Add support for Cygwin. + * porting-tools/abis/call-used-registers.txt: Add info about x86_64-ms + ABI. + * porting-tools/abis/reg-struct-return.txt: Likewise. + * porting-tools/abis/stack-frame.txt: Likewise. + * common/asm-x86_64.h: Add support for compilers on Windows. + (TEXT, GLOBL): New macros. + * common/asm-x86_64.sh: Truncate the EH_FRAME_SECTION also on Windows. + Eliminate .file pseudo-op. Macroize .text, .p2align, .globl directives. + * avcall/avcall-alist.h (__x86_64_ms__, __x86_64_sysv__): New macros. + (__av_alist): Add support for __x86_64_ms__. + * avcall/avcall-internal.h (__av_start1, __av_reg_struct_return, + __av_start_struct3, __av_start_struct4, __av_word, _av_float, + _av_double, __av_struct): Add support for __x86_64_ms__. + * avcall/avcall-x86_64.c: Improve comments. + * avcall/avcall-x86_64-windows.c: New file. + * avcall/Makefile.devel (avcall-x86_64-windows.s, + avcall-x86_64-windows-macro.S): New targets. + * avcall/Makefile.in (avcall-x86_64.s): On Windows, use + avcall-x86_64-windows-macro.S. + (SOURCE_FILES): Add avcall-x86_64-windows.c, avcall-x86_64-windows.s, + avcall-x86_64-windows-macro.S. + * vacall/vacall-internal.h (__x86_64_ms__, __x86_64_sysv__): New macros. + (__VA_FARG_NUM): Define also for __mipsn32__ || __mips64__. + (__va_alist): Add support for __x86_64_ms__. + (__va_reg_struct_return, __va_start_struct1, __va_start_struct2, + __va_arg_leftadjusted, __va_arg_rightadjusted, __va_arg_adjusted, + _va_arg_float, _va_arg_double, __va_arg_struct): Likewise. + * vacall/vacall-x86_64.c: Update comments. + * vacall/vacall-x86_64-windows.c: New file. + * vacall/Makefile.devel (vacall-x86_64-windows.s, + vacall-x86_64-windows-macro.S): New targets. + * vacall/Makefile.in (vacall-x86_64.s): On Windows, use + vacall-x86_64-windows-macro.S. + (SOURCE_FILES): Add vacall-x86_64-windows.c, vacall-x86_64-windows.s, + vacall-x86_64-windows-macro.S. + * callback/vacall_r/Makefile.devel (vacall-x86_64-windows.s, + vacall-x86_64-windows-macro.S): New targets. + * callback/vacall_r/Makefile.in (vacall-x86_64.s): On Windows, use + vacall-x86_64-windows-macro.S. + (SOURCE_FILES): Add vacall-x86_64-windows.s, + vacall-x86_64-windows-macro.S. + * PLATFORMS, */PLATFORMS: List the 64-bit Cygwin machine. + * NEWS: Mention the new port. + +2017-09-03 Bruno Haible + + Remove special build infrastructure for MSVC. The generic one works. + * avcall/Makefile.msvc: Remove file. + * avcall/Makefile.in (SOURCE_FILES): Remove it. + * vacall/Makefile.maint (config.h.msvc): Remove target. + (totally-clean): Don't remove config.h.msvc. + * vacall/Makefile.msvc: Remove file. + * vacall/Makefile.in (SOURCE_FILES): Remove it. + (GENERATED_FILES): Remove config.h.msvc. + * trampoline/Makefile.maint (config.h.msvc): Remove target. + (totally-clean): Don't remove config.h.msvc. + * trampoline/Makefile.msvc: Remove file. + * trampoline/Makefile.in (SOURCE_FILES): Remove it. + (GENERATED_FILES): Remove config.h.msvc. + * callback/vacall_r/Makefile.maint (config.h.msvc): Remove target. + (totally-clean): Don't remove config.h.msvc. + * callback/vacall_r/Makefile.msvc: Remove file. + * callback/vacall_r/Makefile.in (SOURCE_FILES): Remove it. + (GENERATED_FILES): Remove config.h.msvc. + * callback/trampoline_r/Makefile.maint (config.h.msvc): Remove target. + (totally-clean): Don't remove config.h.msvc. + * callback/trampoline_r/Makefile.msvc: Remove file. + * callback/trampoline_r/Makefile.in (SOURCE_FILES): Remove it. + (GENERATED_FILES): Remove config.h.msvc. + * callback/Makefile.maint (vacall_r/config.h.msvc, + trampoline_r/config.h.msvc): Remove targets. + * callback/Makefile.msvc: Remove file. + * callback/Makefile.in (SOURCE_FILES): Remove it. + * Makefile.msvc: Remove file. + * Makefile.in (SOURCE_FILES): Remove it. + +2017-09-03 Bruno Haible + + Make the generic build infrastructure work on MSVC. + * m4/as-underscore.m4: Rely on gl_ASM_SYMBOL_PREFIX from gnulib. Don't + define ASM_UNDERSCORE any more. + * configure.ac: Set IF_MSVC, IFNOT_MSVC. + * common/asm-i386.hh: Fix P2ALIGN parameter list. + * common/asm-i386.sh: Improve handling of indirect calls and jmps. + * avcall/Makefile.in: Use OBJEXT. + (avcall-i386.lo): Use a different rule for MSVC. + * vacall/Makefile.devel: Transform 'vacall_function' before the + asm-i386.sh script, not afterwards. + * vacall/Makefile.in: Use OBJEXT. + (vacall-i386.o): Use a different rule for MSVC. + * trampoline/trampoline.c: On native Windows, when CODE_EXECUTABLE is + not defined, use VirtualAlloc. + * trampoline/Makefile.in: Use OBJEXT. + * callback/vacall_r/get_receiver.c: New file. + * callback/vacall_r/Makefile.maint (vacall-i386-msvc.c): Use the C + source code of callback_get_receiver. + * callback/vacall_r/Makefile.in: Use OBJEXT. + (vacall-i386.lo): Use a different rule for MSVC. + (SOURCE_FILES): Add get_receiver.c. + * callback/trampoline_r/trampoline.c: On native Windows, when + CODE_EXECUTABLE is not defined, use VirtualAlloc. + * callback/trampoline_r/Makefile.in: Use OBJEXT. + * callback/Makefile.in: Use OBJEXT. + * README.win32: Remove file. + * README.windows: New file, from GNU gettext. + * Makefile.in (SOURCE_FILES): Remove README.win32. Add README.windows. + * PLATFORMS, */PLATFORMS: List the 32-bit mingw and MSVC machine. + * NEWS: Mention MSVC support. + +2017-09-03 Bruno Haible + + Don't use symbolic links for .h files. + MSVC 14 does not follow the symbolic links set by Cygwin's 'ln -s'. + * trampoline/Makefile.in (LN_S): Remove variable. + * callback/trampoline_r/Makefile.in (LN_S): Remove variable. + * callback/Makefile.in (INCLUDES): Add an -I option for vacall_r.h. + (LN_S): Remove variable. + (vacall_r.h, trampoline_r.h): Remove targets. + (callback-libapi.lo): Use explicit -I option for trampoline_r.h. Update + dependencies. + (test1.o, minitests.o, minitests.s, minitests-c++.o, tests.o, tests.s): + Update dependencies. + (MOSTLYCLEANFILES): Remove vacall_r.h, trampoline_r.h. + * configure.ac: Don't invoke CL_PROG_LN_S. + +2017-09-03 Bruno Haible + + Remove special build infrastructure for mingw. The generic one works. + * avcall/Makefile.maint (avcall-i386-mingw32.c): Remove target. + (totally-clean): Don't remove avcall-i386-mingw32.c. + * avcall/Makefile.mingw32: Remove file. + * avcall/Makefile.in (SOURCE_FILES): Remove it. + (GENERATED_FILES): Remove avcall-i386-mingw32.c. + * vacall/Makefile.maint (config.h.mingw32, vacall-i386-mingw32.c): + Remove targets. + (totally-clean): Don't remove config.h.mingw32, vacall-i386-mingw32.c. + * vacall/Makefile.mingw32: Remove file. + * vacall/Makefile.in (SOURCE_FILES): Remove it. + (GENERATED_FILES): Remove config.h.mingw32, vacall-i386-mingw32.c. + * trampoline/Makefile.maint (config.h.mingw32): Remove target. + (totally-clean): Don't remove config.h.mingw32. + * trampoline/Makefile.mingw32: Remove file. + * trampoline/Makefile.in (SOURCE_FILES): Remove it. + (GENERATED_FILES): Remove config.h.mingw32. + * callback/vacall_r/Makefile.maint (config.h.mingw32, + vacall-i386-mingw32.c): Remove targets. + (totally-clean): Don't remove config.h.mingw32, vacall-i386-mingw32.c. + * callback/vacall_r/Makefile.mingw32: Remove file. + * callback/vacall_r/Makefile.in (SOURCE_FILES): Remove it. + (GENERATED_FILES): Remove config.h.mingw32, vacall-i386-mingw32.c). + * callback/trampoline_r/Makefile.maint (config.h.mingw32): Remove + target. + (totally-clean): Don't remove config.h.mingw32. + * callback/trampoline_r/Makefile.mingw32: Remove file. + * callback/trampoline_r/Makefile.in (SOURCE_FILES): Remove it. + (GENERATED_FILES): Remove config.h.mingw32. + * callback/Makefile.maint (vacall_r/config.h.mingw32, + vacall_r/vacall-i386-mingw32.c, trampoline_r/config.h.mingw32): Remove + targets. + * callback/Makefile.mingw32: Remove file. + * callback/Makefile.in (SOURCE_FILES): Remove it. + * Makefile.mingw32: Remove file. + * Makefile.in (SOURCE_FILES): Remove it. + +2017-09-03 Bruno Haible + + Fix leftover files after "make distclean" (regression from 2017-08-27). + * avcall/Makefile.in (distclean): Also remove minitests-c++.output.*. + * vacall/Makefile.in (distclean): Likewise. + * callback/Makefile.in (DISTCLEANFILES): Add minitests-c++.output.*. + +2017-08-27 Bruno Haible + + Enable building shared libraries on Windows. + * avcall/Makefile.in (libavcall.la): Pass option '-no-undefined' to + $(LIBTOOL_LINK). + * trampoline/Makefile.in (libtrampoline.la): Likewise. + * callback/vacall_r/Makefile.in (libvacall.la): Likewise. + * callback/trampoline_r/Makefile.in (libtrampoline.la): Likewise. + * callback/Makefile.in (libcallback.la): Likewise. + +2017-08-27 Bruno Haible + + Do proper versioning of shared libraries. + * avcall/Makefile.in (LIBAVCALL_VERSION_INFO): New variable. + (libavcall.la): Use libtool option -version-info. + * trampoline/Makefile.in (LIBTRAMPOLINE_VERSION_INFO): New variable. + (libtrampoline.la): Use libtool option -version-info. + * callback/Makefile.in (LIBCALLBACK_VERSION_INFO): New variable. + (libcallback.la): Use libtool option -version-info. + * README: Remove statement of problem. Update figures about code size. + * NEWS: Mention the change. + +2017-08-27 Bruno Haible + + Fix warnings on 64-bit native Windows. + * testcases.c (vp_vpdpcpsp): Use %p to display the value of a pointer. + * vacall/tests.c (simulator): Likewise. + * callback/tests.c (vp_vpdpcpsp_simulator): Likewise, + +2017-08-27 Bruno Haible + + Remove code duplication of test cases. + * testcases.c: New file, extracted from avcall/tests.c. + * Makefile.in (SOURCE_FILES): Add it. + * avcall/tests.c: Remove testcases functions. Include testcases.c + instead. + * vacall/tests.c: Likewise. + * callback/tests.c: Likewise. + * porting-tools/abis/README: Update. + +2017-08-27 Bruno Haible + + avcall: Fix weakness in tests (added on 2017-01-29). + * avcall/tests.c (ll_l2ll, ll_l3ll, ll_l4ll, ll_l5ll, ll_l6ll, ll_l7ll): + Use a temporary variable of type 'long long'. + +2017-08-27 Bruno Haible + + vacall, callback: Remove workarounds for obsolete platforms. + * vacall/tests.c: Remove workarounds for SunOS 4 cc, gcc-2.5, gcc-2.7.x. + * callback/tests.c: Likewise. + +2017-08-27 Bruno Haible + + Add tests that verify the C++ support. + * Makefile.maint (GNULIB_MODULES): Add ansi-c++-opt. + * configure.ac: Invoke gl_PROG_ANSI_CXX. Set IF_CXX. + * avcall/minitests-c++.cc: New file. + * avcall/Makefile.in (CXX, CXXFLAGS): New variables. + (minitests-c++.o, minitests-c++): New targets. + (check): Optionally, test also minitests-c++. + (clean): Remove minitests-c++.o, minitests-c++, minitests-c++.out. + (SOURCE_FILES): Add minitests-c++.cc. + * vacall/minitests-c++.cc: New file. + * vacall/Makefile.in (CXX, CXXFLAGS): New variables. + (minitests-c++.o, minitests-c++): New targets. + (check): Optionally, test also minitests-c++. + (clean): Remove minitests-c++.o, minitests-c++, minitests-c++.out. + (SOURCE_FILES): Add minitests-c++.cc. + * trampoline/test2-c++.cc: New file. + * trampoline/test2.c (main): Don't test &main in C++ mode. + * trampoline/Makefile.in (CXX, CXXFLAGS): New variables. + (test2-c++.o, test2-c++): New targets. + (check): Optionally, test also test2-c++. + (clean): Remove test2-c++.o, test2-c++. + (SOURCE_FILES): test2-c++.cc. + * callback/minitests-c++.cc: New file. + * callback/Makefile.in (CXX, CXXFLAGS): New variables. + (minitests-c++.o, minitests-c++): New targets. + (check): Optionally, test also minitests-c++. + (MOSTLYCLEANFILES): Add minitests-c++.o, minitests-c++, + minitests-c++.out. + (SOURCE_FILES): Add minitests-c++.cc. + +2017-08-27 Bruno Haible + + Add support for SUNWspro C++ on Solaris. + * avcall/avcall.h: Treat SUNWspro C++ like SUNWspro C. + * vacall/vacall.h: Likewise. + * callback/vacall_r/vacall_r.h: Likewise. + +2017-08-27 Bruno Haible + + Make the include files C++-safe. + * avcall/avcall.h: Add C++ guards. + (__AV_alignof): Test __IBM__ALIGNOF__. Use template-based definition + for C++. + * vacall/vacall.h: Add C++ guards. + (__VA_alignof): Test __IBM__ALIGNOF__. Use template-based definition + for C++. + * callback/vacall_r/vacall_r.h: Add C++ guards. + (__VA_alignof): Test __IBM__ALIGNOF__. Use template-based definition + for C++. + +2017-08-27 Bruno Haible + + Make sure the tests use only the public include files. + * avcall/tests.c: Don't include config.h. + * vacall/tests.c: Don't include config.h. + * callback/tests.c: Likewise. + * callback/trampoline_r/test1.c: Likewise. Include ffcall-abi.h instead. + * avcall/Makefile.in (avcall-libapi.lo): Use $(INCLUDES). + * vacall/Makefile.in (INCLUDES): Remove -I options that reference + gnulib-lib. + (INCLUDES_WITH_GNULIB): New variable. + (vacall-libapi.o): Use INCLUDES_WITH_GNULIB instead of INCLUDES. + * trampoline/Makefile.in (INCLUDES): Remove -I options that reference + gnulib-lib. + (INCLUDES_WITH_GNULIB): New variable. + (trampoline.lo): Use INCLUDES_WITH_GNULIB instead of INCLUDES. + * callback/vacall_r/Makefile.in (INCLUDES): Remove -I options that + reference gnulib-lib. + (INCLUDES_WITH_GNULIB): New variable. + (vacall-libapi.lo): Use INCLUDES_WITH_GNULIB instead of INCLUDES. + * callback/trampoline_r/Makefile.in (INCLUDES): Remove -I options that + reference gnulib-lib. + (INCLUDES_WITH_GNULIB): New variable. + (trampoline.lo): Use INCLUDES_WITH_GNULIB instead of INCLUDES. + +2017-08-27 Bruno Haible + + Make recognition of Solaris more robust. + * avcall/avcall.h: Test for '__sun', not for 'sun'. + * vacall/vacall.h: Likewise. + * callback/vacall_r/vacall_r.h: Likewise. + * vacall/tests.c: Likewise. + * callback/tests.c: Likewise. + +2017-08-27 Bruno Haible + + avcall: Align field names. + * avcall/avcall-alist.h (__av_alist): Rename field 'farg' to 'fargs'. + * avcall/avcall-internal.h (_av_float): Update. + * avcall/avcall-mipsn32.c (avcall_call): Likewise. + * avcall/avcall-mips64.c (avcall_call): Likewise. + +2017-08-27 Bruno Haible + + Remove support for old NeXTstep. + * avcall/avcall.h (__AV_NEXTGCC_STRUCT_RETURN): Remove enum value. + * avcall/avcall-internal.h (__av_start_struct4) [__i386__]: Remove test + for __AV_NEXTGCC_STRUCT_RETURN. + * avcall/avcall-i386.c (avcall_call): Likewise. + * avcall/PLATFORMS: Update. + * vacall/vacall.h (__VA_NEXTGCC_STRUCT_RETURN): Remove enum value. + * callback/vacall_r/vacall_r.h: Likewise. + * vacall/vacall-internal.h (__va_start_struct2) [__i386__]: Remove test + for __VA_NEXTGCC_STRUCT_RETURN. + * vacall/vacall-i386.c (vacall_receiver): Likewise. + * trampoline/trampoline.c: Don't include . + * callback/trampoline_r/trampoline.c: Likewise. + +2017-08-27 Bruno Haible + + hppa: Remove support for old gcc-2.6.3. + * avcall/avcall.h (__AV_OLDGCC_STRUCT_RETURN): Remove enum value. + * avcall/avcall-internal.h (__av_reg_struct_return) [__hppa__]: Remove + test for __AV_OLDGCC_STRUCT_RETURN. + * avcall/avcall-hppa.c (avcall_call): Likewise. + * vacall/vacall.h (__VA_OLDGCC_STRUCT_RETURN): Remove enum value. + * callback/vacall_r/vacall_r.h (__VA_OLDGCC_STRUCT_RETURN): Likewise. + * vacall/vacall-internal.h (__va_reg_struct_return) [__hppa__]: Remove + test for __VA_OLDGCC_STRUCT_RETURN. + * vacall/vacall-hppa.c (vacall_receiver): Likewise. + +2017-08-27 Bruno Haible + + avcall: Evaluate __AV_ALIST_WORDS only during av_start_* macros. Part 2. + * avcall/avcall-alist.h (__av_alist) [__hppa__]: Add 'args_end' field. + * avcall/avcall-internal.h (__av_start1) [__hppa__]: Initialize it. + * avcall/avcall-hppa.c (avcall_call): Use it to reduce the use of + __AV_ALIST_WORDS. + +2017-08-27 Bruno Haible + + avcall: Fix overflow detection bug on hppa. + * avcall/avcall-internal.h (__av_struct) [__hppa__]: Use LIST.eptr + instead of &LIST.args[0]. + +2017-08-27 Bruno Haible + + Fix build failure with --enable-shared on Solaris/SPARC with cc. + * common/asm-sparc.h: Test __SVR4, not __svr4__. + * common/asm-sparc.sh: Fix comment about postprocessing. + * avcall/Makefile.in (avcall-sparc.s, avcall-sparc64.s): Remove space + after '#'. + * vacall/Makefile.in (vacall-sparc.s, vacall-sparc64.s): Likewise. + * trampoline/Makefile.in (cache-sparc.s, cache-sparc64.s): Likewise. + * callback/vacall_r/Makefile.in (vacall-sparc.s, vacall-sparc64.s): + Likewise. + * callback/trampoline_r/Makefile.in (cache-sparc.s, cache-sparc64.s): + Likewise. + +2017-08-27 Bruno Haible + + vacall: Fix build failure with gcc configured with --enable-default-pie. + Works around a GCC bug, reported at + . + * vacall/Makefile.devel (vacall-sparc-linux-pic.s): New target. + (vacall-sparc-macro.S): Combine vacall-sparc-linux.s and + vacall-sparc-linux-pic.s in one file. + (vacall-sparc64-linux-pic.s): New target. + (vacall-sparc64-macro.S): Combine vacall-sparc64-linux.s and + vacall-sparc64-linux-pic.s in one file. + * vacall/Makefile.in (SOURCE_FILES): Add vacall-sparc-linux-pic.s, + vacall-sparc64-linux-pic.s. + +2017-08-27 Bruno Haible + + mips: Avoid warning about undeclared function 'cacheflush' on Linux. + * trampoline/trampoline.c: On Linux, include , not + . + * callback/trampoline_r/trampoline.c: Likewise. + +2017-08-27 Bruno Haible + + vacall: Fix struct returns on mips (o32 ABI). + * vacall/vacall-mips.c (vacall_receiver): Return the struct return + address in register $2. + +2017-08-27 Bruno Haible + + ia64: Test __GNUC__ only in av/va_start_* (regression from 2017-07-30). + * avcall/avcall.h (__AV_OLDGCC_STRUCT_ARGS): New enum item. + (__AV_STRUCT_ARGS): Use it. + * avcall/avcall-internal.h (__av_struct) [__ia64__]: Test flag + __AV_OLDGCC_STRUCT_ARGS, not __GNUC__. + * vacall/vacall.h (__VA_OLDGCC_STRUCT_ARGS): New enum item. + (__VA_STRUCT_ARGS): Use it. + * callback/vacall_r/vacall_r.h: Likewise. + * vacall/vacall-internal.h (__va_arg_struct): Test flag + __VA_OLDGCC_STRUCT_ARGS, not __GNUC__. + +2017-08-27 Bruno Haible + + Fix "make check" failure on Linux/mips (regression from 2017-07-30). + * ffcall-abi.h: For mipsn32, test _MIPS_SIM, because defines + both _ABIO32 and _ABIN32. + +2017-07-31 Bruno Haible + + Fix preprocessor warning "does not give a valid preprocessing token". + Reported by Reini Urban at . + * common/asm-arm.sh: Don't put a colon inside the C() or L() argument. + * common/asm-i386.sh: Likewise. + * common/asm-m68k.sh: Likewise. + * common/asm-sparc.sh: Likewise. + * common/asm-x86_64.sh: Likewise. + * common/asm-arm.h (FUNBEGIN): Don't put a colon inside the C() + argument. + * common/asm-i386.hh (FUNBEGIN): Likewise. + * common/asm-m68k.h (FUNBEGIN): Likewise. + * common/asm-sparc.h (FUNBEGIN): Likewise. + * common/asm-x86_64.h (FUNBEGIN): Likewise. + +2017-07-31 Bruno Haible + + Fix preprocessor warning "Unknown preprocessing directive". + * common/asm-hppa.sh: Eliminate #APP, #NO_APP lines. + * common/asm-powerpc.sh: Likewise. + +2017-07-31 Bruno Haible + + trampoline_r: Rework API. + * callback/trampoline_r/trampoline_r.h (trampoline_r_address, + trampoline_r_data0, trampoline_r_data1): Change signatures. + * callback/trampoline_r/trampoline.c (trampoline_r_address, + trampoline_r_data0, trampoline_r_data1): Update accordingly. + * callback/trampoline_r/test2.c: Update. + * callback/callback-libapi.c (is_callback): Likewise. + +2017-07-31 Bruno Haible + + vacall: Fix build error on IRIX with cc (regression from 2017-07-30). + * vacall/vacall-internal.h (__va_arg_adjusted, __va_arg_struct): Cast + result of __va_arg_leftadjusted and __va_arg_rightadjusted to 'void*'. + +2017-07-31 Bruno Haible + + Fix "make check" failure on arm (regression from 2017-07-30). + * vacall/vacall-internal.h (__va_alist): Move the 'filler1' field right + before the 'tmp' field. + * callback/vacall_r/vacall_r.h (vacall_alist): Add 'filler1' field + between 'flags' and 'tmp' fields. + +2017-07-31 Bruno Haible + + Fix build error (regression from 2017-07-30). + * vacall/Makefile.in (INCLUDES): Add -I options for . + * callback/vacall_r/Makefile.in (INCLUDES): Likewise. + +2017-07-30 Bruno Haible + + vacall: Polish Makefile.in. + * vacall/Makefile.in (vacall-x86_64-x32.o): Remove spurious reference to + LIBTOOL_COMPILE. + +2017-07-30 Bruno Haible + + m68k: Fix callback test crash on Linux. + * avcall/Makefile.in (avcall-m68k.s): Use the .S file in Motorola + syntax (cross-compiled for m68k-linux), not the one in MIT syntax + (cross-compiled for m68k-sun). + * vacall/Makefile.in (vacall-m68k.s): Likewise. + * callback/vacall_r/Makefile.in (vacall-m68k.s): Likewise. + * avcall/PLATFORM, NEWS: Update. + +2017-07-30 Bruno Haible + + m68k: Fix build failure on Linux. + * common/asm-m68k.sh: In mit syntax, recognize 'pc' as a register name. + +2017-07-30 Bruno Haible + + Limit the exported symbols of the installed shared libraries. + * avcall/Makefile.in (LIBAVCALL_EXPORTED_SYMBOLS_REGEX): New variable. + (libavcall.la): Use libtool's -export-symbols-regex option. + * trampoline/Makefile.in (LIBTRAMPOLINE_EXPORTED_SYMBOLS_REGEX): New + variable. + (libtrampoline.la): Use libtool's -export-symbols-regex option. + * callback/Makefile.in (LIBCALLBACK_EXPORTED_SYMBOLS_REGEX): New + variable. + (libcallback.la): Use libtool's -export-symbols-regex option. + +2017-07-30 Bruno Haible + + Ensure source compatibility with existing versions of GNU clisp, part 3. + * vacall/vacall-internal.h (__va_alist): Move the 'flags' and 'tmp' + fields to the beginning. + * callback/vacall_r/vacall_r.h (vacall_alist): When used by GNU clisp, + declare 'flags' and 'tmp' members. + +2017-07-30 Bruno Haible + + Ensure source compatibility with existing versions of GNU clisp, part 2. + * avcall/avcall-alist.h (__av_alist): Move the 'flags' field to the + beginning. + * avcall/avcall.h (av_alist): When used by GNU clisp, declare a 'flags' + member. + +2017-07-30 Bruno Haible + + Ensure source compatibility with existing versions of GNU clisp, part 1. + * avcall/avcall-libapi.c (__builtin_avcall): New dummy function. + * callback/callback-libapi.c (trampoline_r_data0): New dummy function. + +2017-07-30 Bruno Haible + + Remove copied files from callback/vacall_r/. + * callback/vacall_r/Makefile.devel (vacall-*.s): Compile + ../../vacall/vacall-*.c directly. + * autogen.sh: Don't invoke target 'copied-files' in callback/vacall_r/. + * Makefile.devel (precompiled): Likewise. + * Makefile.in (COPIED_FILES): Remove callback/vacall_r/*. + * callback/vacall_r/Makefile.maint (COPIED_FILES): Remove variable. + (copied-files): Remove target. + * callback/vacall_r/Makefile.in (SOURCE_FILES): Remove vacall-*.c. + +2017-07-30 Bruno Haible + + callback: Allow for binary-compatible future changes of main API. + * callback/callback.h: Renamed from callback/callback.h.in. + Don't include trampoline_r.h. + (callback_t, __TR_function): New types. + (callback_function_t): Renamed from __VA_function. + (alloc_callback, free_callback, is_callback, callback_address, + callback_data): Declare as functions, not as macros. + * callback/callback-libapi.c: New file. + * configure.ac: Don't create callback/callback.h. + * callback/Makefile.in (LIBTOOL_COMPILE): New variable. + (callback.h): Remove target + (callback-libapi.lo): New target. + (libcallback.la): Include it. + (install-lib, install, installdirs, uninstall): Don't recurse into + 'trampoline_r' directory. + (test1.o, minitests.o, minitests.s, tests.o, tests.s): Update + dependency. + (MOSTLYCLEANFILES): Remove callback.h. + (SOURCE_FILES): Add callback.h, callback-libapi.c. Remove callback.h.in. + * callback/test1.c (function): Remove type. + (main): Remove a cast. + * callback/tests.c (main): Use the type 'callback_t'. + * Makefile.in (DISTCLEANFILES): Update stamp file list. + * NEWS: Mention the improvement. + +2017-07-30 Bruno Haible + + callback: Remove version number from trampoline_r.h. + Rationale: It is already present in callback.h. + * callback/trampoline_r/trampoline_r.h: Renamed from + callback/trampoline_r/trampoline_r.h.in. + (LIBFFCALL_VERSION): Remove macro. + * configure.ac: Don't create callback/trampoline_r/trampoline_r.h. + * callback/trampoline_r/Makefile.in (trampoline_r.h): Remove target. + (trampoline.lo, test1.o, test2.o): Update dependencies. + (install-lib, install): Update. + (distclean): Don't remove trampoline_r.h. + (SOURCE_FILES): Add trampoline_r.h. Remove trampoline_r.h.in. + * callback/Makefile.in (trampoline_r.h): Link to + $(srcdir)/trampoline_r/trampoline_r.h. + * Makefile.in (DISTCLEANFILES): Update stamp file list. + +2017-07-30 Bruno Haible + + vacall, callback: Allow compiler optimizations regarding noreturn. + * Makefile.maint (GNULIB_MODULES): Add 'stdnoreturn'. + * vacall/vacall-libapi.c: Include . + (__va_struct_buffer_t): Moved to here. + (vacall_struct_buffer): Declare static. + (vacall_error_type_mismatch, vacall_error_struct_too_large): Declare + static and noreturn. + * callback/vacall_r/vacall-libapi.c: Likewise. + * vacall/vacall-internal.h (__va_start_struct, __va_return): Update. + (vacall_error_type_mismatch, vacall_error_struct_too_large, + __va_struct_buffer_t, vacall_struct_buffer): Remove declarations. + +2017-07-30 Bruno Haible + + vacall, callback: Move copyright notice up. + * vacall/vacall.h: Put double-inclusion guard after copyright header. + * callback/vacall_r/vacall_r.h: Likewise. + +2017-07-30 Bruno Haible + + callback: Allow for binary-compatible future changes of __va_* macros. + * callback/vacall_r/vacall_r.h: New file, extracted from + callback/vacall_r/vacall_r.h.in. Include , ffcall-abi.h. + (vacall_*): Define to symbols that start with 'callback_'. + (va_alist): Define als pointer to 'struct vacall_alist'. + (vacall_start, vacall_start_struct, vacall_arg_char, vacall_arg_schar, + vacall_arg_uchar, vacall_arg_short, vacall_arg_ushort, vacall_arg_int, + vacall_arg_uint, vacall_arg_long, vacall_arg_ulong, vacall_arg_longlong, + vacall_arg_ulonglong, vacall_arg_float, vacall_arg_double, + vacall_arg_ptr, vacall_arg_struct, vacall_return_void, + vacall_return_char, vacall_return_schar, vacall_return_uchar, + vacall_return_short, vacall_return_ushort, vacall_return_int, + vacall_return_uint, vacall_return_long, vacall_return_ulong, + vacall_return_longlong, vacall_return_ulonglong, vacall_return_float, + vacall_return_double, vacall_return_ptr, vacall_return_struct): New + declarations. + (va_start_void, va_start_char, va_start_schar, va_start_uchar, + va_start_short, va_start_ushort, va_start_int, va_start_uint, + va_start_long, va_start_ulong, va_start_longlong, va_start_ulonglong, + va_start_float, va_start_double, va_start_ptr, _va_start_struct, + va_arg_char, va_arg_schar, va_arg_uchar, va_arg_short, va_arg_ushort, + va_arg_int, va_arg_uint, va_arg_long, va_arg_ulong, va_arg_longlong, + va_arg_ulonglong, va_arg_float, va_arg_double, va_arg_ptr, + va_arg_struct, _va_arg_struct, va_return_void, va_return_char, + va_return_schar, va_return_uchar, va_return_short, va_return_ushort, + va_return_int, va_return_uint, va_return_long, va_return_ulong, + va_return_longlong, va_return_ulonglong, va_return_float, + va_return_double, va_return_ptr, _va_return_struct): Define in terms of + these functions. + * callback/vacall_r/vacall-libapi.c: Include vacall-internal.h instead + of vacall_r.h.in. + (vacall_start, vacall_start_struct, vacall_arg_char, vacall_arg_schar, + vacall_arg_uchar, vacall_arg_short, vacall_arg_ushort, vacall_arg_int, + vacall_arg_uint, vacall_arg_long, vacall_arg_ulong, vacall_arg_longlong, + vacall_arg_ulonglong, vacall_arg_float, vacall_arg_double, + vacall_arg_ptr, vacall_arg_struct, vacall_return_void, + vacall_return_char, vacall_return_schar, vacall_return_uchar, + vacall_return_short, vacall_return_ushort, vacall_return_int, + vacall_return_uint, vacall_return_long, vacall_return_ulong, + vacall_return_longlong, vacall_return_ulonglong, vacall_return_float, + vacall_return_double, vacall_return_ptr, vacall_return_struct): New + functions. + * vacall/vacall-internal.h: If REENTRANT, include vacall_r.h. + * callback/vacall_r/vacall_r.h.in: Remove file. + * vacall/vacall-*.c: Include vacall-internal.h instead of vacall_r.h.in. + * vacall/vacall-libapi.c: Likewise. + * callback/vacall_r/Makefile.devel (GCCFLAGS): Add -I option for + ffcall-abi.h. + (vacall-*.s): Update dependencies. Pass -I options to gcc. + * configure.ac: Don't create callback/vacall_r/vacall_r.h. + * callback/vacall_r/Makefile.maint (vacall_r.h.msvc, + vacall_r.h.mingw32): Remove targets. + (totally-clean): Don't remove vacall_r.h.msvc, vacall_r.h.mingw32. + * callback/Makefile.maint (vacall_r/vacall_r.h.msvc, + vacall_r/vacall_r.h.mingw32): Remove targets. + * callback/vacall_r/Makefile.in (INCLUDES): Add -I options for + vacall-internal.h and ffcall-abi.h. + (all): Don't depend on vacall_r.h. + (vacall-libapi.lo): Update dependencies. Pass -DREENTRANT option. + (install-lib, install): Update. + (distclean): Don't remove vacall_r.h. + (SOURCE_FILES): Add vacall_r.h. Remove vacall_r.h.in. + (GENERATED_FILES): Remove vacall_r.h.mingw32, vacall_r.h.msvc. + * callback/Makefile.in (INCLUDES): Add -I option for ffcall-abi.h. + (vacall_r.h): Link to $(srcdir)/vacall_r/vacall_r.h. + * Makefile.in (DISTCLEANFILES): Update. + * porting-tools/abis/README: Update. + +2017-07-30 Bruno Haible + + vacall: Allow for binary-compatible future changes of the __va_* macros. + * vacall/vacall.h: New file, extracted from vacall/vacall.h.in. + Include , ffcall-abi.h. + (va_alist): Define als pointer to 'struct vacall_alist'. + (vacall_start, vacall_start_struct, vacall_arg_char, vacall_arg_schar, + vacall_arg_uchar, vacall_arg_short, vacall_arg_ushort, vacall_arg_int, + vacall_arg_uint, vacall_arg_long, vacall_arg_ulong, vacall_arg_longlong, + vacall_arg_ulonglong, vacall_arg_float, vacall_arg_double, + vacall_arg_ptr, vacall_arg_struct, vacall_return_void, + vacall_return_char, vacall_return_schar, vacall_return_uchar, + vacall_return_short, vacall_return_ushort, vacall_return_int, + vacall_return_uint, vacall_return_long, vacall_return_ulong, + vacall_return_longlong, vacall_return_ulonglong, vacall_return_float, + vacall_return_double, vacall_return_ptr, vacall_return_struct): New + declarations. + (va_start_void, va_start_char, va_start_schar, va_start_uchar, + va_start_short, va_start_ushort, va_start_int, va_start_uint, + va_start_long, va_start_ulong, va_start_longlong, va_start_ulonglong, + va_start_float, va_start_double, va_start_ptr, _va_start_struct, + va_arg_char, va_arg_schar, va_arg_uchar, va_arg_short, va_arg_ushort, + va_arg_int, va_arg_uint, va_arg_long, va_arg_ulong, va_arg_longlong, + va_arg_ulonglong, va_arg_float, va_arg_double, va_arg_ptr, + va_arg_struct, _va_arg_struct, va_return_void, va_return_char, + va_return_schar, va_return_uchar, va_return_short, va_return_ushort, + va_return_int, va_return_uint, va_return_long, va_return_ulong, + va_return_longlong, va_return_ulonglong, va_return_float, + va_return_double, va_return_ptr, _va_return_struct): Define in terms of + these functions. + * vacall/vacall-libapi.c: Include vacall-internal.h instead of + vacall.h.in. + (vacall_start, vacall_start_struct, vacall_arg_char, vacall_arg_schar, + vacall_arg_uchar, vacall_arg_short, vacall_arg_ushort, vacall_arg_int, + vacall_arg_uint, vacall_arg_long, vacall_arg_ulong, vacall_arg_longlong, + vacall_arg_ulonglong, vacall_arg_float, vacall_arg_double, + vacall_arg_ptr, vacall_arg_struct, vacall_return_void, + vacall_return_char, vacall_return_schar, vacall_return_uchar, + vacall_return_short, vacall_return_ushort, vacall_return_int, + vacall_return_uint, vacall_return_long, vacall_return_ulong, + vacall_return_longlong, vacall_return_ulonglong, vacall_return_float, + vacall_return_double, vacall_return_ptr, vacall_return_struct): New + functions. + * vacall/vacall-internal.h: New file, extracted from vacall/vacall.h.in. + (__VA_ALIST_WORDS): Fix comment. + (__va_alist): Declare as 'struct vacall_alist'. + (__va_start): Add FLAGS argument. + (__va_start_struct): Renamed from _va_start_struct. Add FLAGS argument. + (_va_arg_*): Renamed from va_arg_*. + (_va_arg_ptr): Renamed from va_arg_ptr. Remove TYPE argument. + (_va_return_*): Renamed from va_return_*. + (_va_return_ptr): Renamed from va_return_ptr. Remove TYPE argument. + (__va_return_struct): Renamed from _va_return_struct. + * vacall/vacall.h.in: Remove file. + * configure.ac: Don't create vacall.h by substitution. + * vacall/vacall-*.c: Include vacall-internal.h instead of vacall.h.in. + * vacall/Makefile.devel (GCCFLAGS): Add -I option for ffcall-abi.h. + (vacall-*.s): Update dependencies. + (tests-*.s): Likewise. No more need to symlink vacall.h. + * vacall/Makefile.maint (vacall.h.msvc, vacall.h.mingw32): Remove + targets. + (totally-clean): Don't remove them. + * vacall/Makefile.in (INCLUDES): Add -I option for ffcall-abi.h. + (vacall-libapi.o): Update dependencies. + (install): Update. + (minitests.o, minitests.s, tests.o, tests.s): Update dependency. + (distclean): Don't remove vacall.h. + (SOURCE_FILES): Add vacall.h, vacall-internal.h. Remove vacall.h.in. + (GENERATED_FILES): Remove vacall.h.mingw32, vacall.h.msvc. + * Makefile.in (DISTCLEANFILES): Update stamp file list. + * vacall/README: Update. + * porting-tools/abis/README: Update. + +2017-07-30 Bruno Haible + + vacall: Remove special optimization of va_return_struct macro. + * vacall/vacall.h.in (va_return_struct): Define through + _va_return_struct. + * callback/vacall_r/vacall_r.h.in: Likewise. + +2017-07-30 Bruno Haible + + vacall, callback: Prefix all exported symbols at linker level. + * vacall/vacall-*.c: Define vacall_receiver instead of __vacall, + callback_receiver instead of __vacall_r, + callback_get_receiver instead of get__vacall_r. + * vacall/vacall-libapi.c: Include config.h first. + (vacall_receiver): Renamed from __vacall. + (vacall_struct_buffer): Renamed from __va_struct_buffer. + (vacall_error_type_mismatch): Renamed from __va_error1. + (vacall_error_struct_too_large): Renamed from __va_error2. + * vacall/vacall.h.in (_va_start_struct, __va_return): Update. + (vacall_error_type_mismatch): Renamed from __va_error1. + (vacall_error_struct_too_large): Renamed from __va_error2. + (vacall_struct_buffer): Renamed from __va_struct_buffer. + * callback/vacall_r/vacall-libapi.c: Include config.h first. + (vacall_struct_buffer): Renamed from __va_struct_buffer. + (vacall_error_type_mismatch): Renamed from __va_error1. + (vacall_error_struct_too_large): Renamed from __va_error2. + * callback/vacall_r/vacall_r.h.in (vacall_error_type_mismatch, + vacall_error_struct_too_large, vacall_structcpy, vacall_struct_buffer): + Define to symbols that start with 'callback_'. + (_va_start_struct, __va_return): Update. + (callback_receiver): Renamed from __vacall_r. + (callback_get_receiver): Renamed from get__vacall_r. + (vacall_error_type_mismatch): Renamed from __va_error1. + (vacall_error_struct_too_large): Renamed from __va_error2. + (vacall_struct_buffer): Renamed from __va_struct_buffer. + * callback/callback.h.in: Update. + * callback/trampoline_r/trampoline_r.h.in (alloc_trampoline_r, + free_trampoline_r, is_trampoline_r, trampoline_r_address, + trampoline_r_data0, trampoline_r_data1): Define to symbols that start + with 'callback_trampoline_'. + * callback/elf-hack.txt: Update. + * porting-tools/abis/call-used-registers.txt: Update. + +2017-07-30 Bruno Haible + + callback: Use distinct object file names in static library. + * callback/vacall_r/vacall-libapi.c: Renamed from + callback/vacall_r/misc.c. + * callback/vacall_r/Makefile.in (OBJECTS, SOURCE_FILES): Update. + (vacall-libapi.lo): Renamed from misc.lo. + * callback/Makefile.in (libcallback.la): Update. + +2017-07-30 Bruno Haible + + vacall: Use distinct object file names in static library. + * vacall/vacall-libapi.c: Renamed from vacall/misc.c. + * vacall/Makefile.in (OBJECTS, SOURCE_FILES): Update. + (vacall-libapi.o): Renamed from misc.o. + * vacall/README: Update. + +2017-07-30 Bruno Haible + + avcall: Modernize. + * avcall/avcall.h: Change double-include guard. Modernize copyright + header. + +2017-07-30 Bruno Haible + + avcall: Allow for binary-compatible future changes of the __av_* macros. + * avcall/avcall.h: New file, extracted from avcall/avcall.h.in. + Include , ffcall-abi.h. + When included from avcall-internal.h, include avcall-alist.h and add + member '_av_m_alist' in av_alist type. + (avcall_overflown, avcall_start, avcall_start_struct, avcall_arg_long, + avcall_arg_ulong, avcall_arg_ptr, avcall_arg_longlong, + avcall_arg_ulonglong, avcall_arg_float, avcall_arg_double, + avcall_arg_struct): New declarations. + (av_overflown, av_start_void, av_start_char, av_start_schar, + av_start_uchar, av_start_short, av_start_ushort, av_start_int, + av_start_uint, av_start_long, av_start_ulong, av_start_longlong, + av_start_ulonglong, av_start_float, av_start_double, av_start_ptr, + _av_start_struct, av_char, av_schar, av_short, av_int, av_long, + av_uchar, av_ushort, av_uint, av_ulong, av_ptr, av_longlong, + av_ulonglong, av_float, av_double, av_struct, _av_struct, av_call): + Define in terms of these functions. + * avcall/avcall-libapi.c: New file. + * avcall/avcall-alist.h: New file, extracted from avcall/avcall.h.in. + * avcall/avcall-internal.h: New file, extracted from avcall/avcall.h.in. + (__av_start): Add LIST_ARGS_END and FLAGS arguments. + (__av_start1, __av_start_init_eptr): Add LIST_ARGS_END argument. + (__av_start_struct): Add LIST_ARGS, LIST_ARGS_END, FLAGS arguments. + (__av_long): Renamed from _av_long. + (__av_ulong): Renamed from _av_ulong. + (__av_ptr): Renamed from _av_ptr. Remove TYPE argument. + (__av_arg_longlong): Renamed from __av_longlong. + (__av_longlong): Renamed from _av_longlong. + (__av_ulonglong): Renamed from _av_ulonglong. + * avcall/avcall.h.in: Remove file. + * configure.ac: Don't create avcall.h by substitution. + * avcall/avcall-*.c: Include avcall-internal.h instead of avcall.h.in. + (avcall_call): Change argument type to 'av_alist*'. + * avcall/Makefile.devel (GCCFLAGS): Add -I option for ffcall-abi.h. + (avcall-*.s): Update dependencies. + (tests-*.s): Likewise. No more need to symlink avcall.h. + * avcall/Makefile.maint (avcall.h.msvc, avcall.h.mingw32): Remove + targets. + (totally-clean): Don't remove them. + * avcall/Makefile.in (INCLUDES): Add -I option for ffcall-abi.h. + (OBJECTS): Add avcall-libapi.lo. + (avcall-libapi.lo): New target. + (install-lib, install): Update. + (minitests.o, minitests.s, tests.o, tests.s): Update dependency. + (distclean): Don't remove avcall.h. + (SOURCE_FILES): Add avcall.h, avcall-internal.h, avcall-alist.h, + avcall-libapi.c. Remove avcall.h.in. + (GENERATED_FILES): Remove avcall.h.mingw32, avcall.h.msvc. + * Makefile.in (DISTCLEANFILES): Update stamp file list. + * avcall/README: Update. + * porting-tools/abis/README: Update. + +2017-07-30 Bruno Haible + + avcall: Allow for binary-compatible future changes of __av_alist. + * avcall/avcall.h.in (__AV_ALIST_SIZE_BOUND): New macro. + (__av_alist_verify): New verification. + (av_alist): Use it to allocate room. + +2017-07-30 Bruno Haible + + avcall: Separate the fixed-size part from the variable part of av_alist. + * avcall/avcall.h.in (__av_alist): Renamed from av_alist. Add 'args' + field as a pointer. + (av_alist): New type. + (_av_overflown): Renamed from av_overflown. + (av_overflown): New macro. + (__av_start): Add LIST_ARGS argument. + (av_start_*, _av_start_struct): Update accordingly. + (_av_long): Renamed from av_long. + (_av_ulong): Renamed from av_ulong. + (_av_ptr): Renamed from av_ptr. + (av_long, av_ulong, av_ptr): New macros. + (_av_longlong): Renamed from av_longlong. + (_av_ulonglong): Renamed from av_ulonglong. + (av_longlong, av_ulonglong): New macros. + (_av_float): Renamed from av_float. + (_av_double): Renamed from av_double. + (av_float, av_double): New macros. + (av_struct, _av_struct, av_call): Update. + (avcall_call): Take an '__av_alist*' parameter. + * avcall/avcall-*.c (avcall_call): Take an '__av_alist*' parameter. + +2017-07-30 Bruno Haible + + avcall: Remove unused macro argument TYPE. + * avcall/avcall.h.in (__av_struct_copy, __av_struct_leftadjusted, + __av_struct_rightadjusted, __av_struct): Remove TYPE argument. + +2017-07-30 Bruno Haible + + avcall: Remove special optimization of av_struct macro. + * avcall/avcall.h.in (av_struct): Take the address of VAL. + (__av_struct_assign): Remove macro. + (__av_struct, __av_struct_leftadjusted, __av_struct_rightadjusted): + Remove ASSIGN argument; use __av_struct_copy instead. + +2017-07-30 Bruno Haible + + avcall: Evaluate __AV_ALIST_WORDS only during av_start_* macros. Part 1. + * avcall/avcall.h.in (av_alist): Enable 'eptr' field on all platforms. + (__av_eptr): Remove macro. Use (LIST).eptr eveywhere instead. + (__av_start_init_eptr): New macro. + (__av_start): Invoke it. + (__av_start1): Don't initialize (LIST).eptr here. + +2017-07-30 Bruno Haible + + avcall: Prefix all exported symbols at linker level with 'avcall_'. + * avcall/avcall.h.in (avcall_call): Renamed from __builtin_avcall. + * avcall/avcall-*.c: Update accordingly. + * avcall/DOC: Likewise. + * avcall/avcall.3: Likewise. + * avcall/avcall.html: Likewise. + +2017-07-30 Bruno Haible + + trampoline: Rework API. + * trampoline/trampoline.h: Add C++ guards. Add comments. + (trampoline_function_t): Renamed from __TR_function. + (alloc_trampoline, trampoline_address, trampoline_variable, + trampoline_data): Change signatures. + * trampoline/trampoline.c: Update accordingly. + * trampoline/test1.c (function): Remove type. + (main): Update. + * trampoline/test2.c (function): Remove type. + (main): Update. + * NEWS: Mention the changes. + +2017-07-30 Bruno Haible + + trampoline: Restructure include file. + * trampoline/trampoline.h: Renamed from trampoline/trampoline.h.in. + * configure.ac: Don't create trampoline.h by substitution. + * trampoline/Makefile.in (trampoline.h): Remove target. + (trampoline.lo, test1.o, test2.o): Update dependency. + (install, SOURCE_FILES): Update. + (distclean): Don't remove trampoline.h. + * trampoline/README: Update. + * Makefile.in (DISTCLEANFILES): Update stamp file list. + +2017-07-30 Bruno Haible + + Move ABI indicator macro definitions to a separate include file. + Rationale: Prepare for getting rid of most .h.in -> .h substitutions. + * ffcall-abi.h: New file. + * Makefile.in (install, uninstall): Install/uninstall ffcall-abi.h. + (SOURCE_FILES): Add ffcall-abi.h. + * porting-tools/abis/predefines.c: New file. + * porting-tools/abis/README: Update. + +2017-07-30 Bruno Haible + + Move libffcall version number to a separate include file. + Rationale: Prepare for getting rid of most .h.in -> .h substitutions. + * ffcall-version.in.h: New file. + * configure.ac: Invoke AC_CONFIG_HEADERS for ffcall-version.h. + * avcall/avcall.h.in (LIBFFCALL_VERSION): Remove definition. Include + ffcall-version.h instead. + * vacall/vacall.h.in: Likewise. + * trampoline/trampoline.h.in: Likewise. + * callback/callback.h.in: Likewise. + * callback/vacall_r/vacall_r.h.in (LIBFFCALL_VERSION): Remove + definition. + * callback/trampoline_r/trampoline_r.h.in (LIBFFCALL_VERSION): Likewise. + * dummy/ffcall-version.h: New file. + * avcall/Makefile.devel (GCCFLAGS): Add -I option to find a dummy + ffcall-version.h. + * vacall/Makefile.devel (GCCFLAGS): Likewise. + * callback/vacall_r/Makefile.devel (GCCFLAGS): Likewise. + * vacall/Makefile.maint (VERSION): Remove macro. + (vacall.h.msvc, vacall.h.mingw32): Don't substitute LIBFFCALL_VERSION. + * callback/vacall_r/Makefile.maint (VERSION): Remove macro. + (vacall_r.h.msvc, vacall_r.h.mingw32): Don't substitute + LIBFFCALL_VERSION. + * Makefile.in (ffcall-version.h): New target. + (install, installdirs, uninstall): Install/uninstall ffcall-version.h. + (DISTCLEANFILES): Add ffcall-version.h. Update stamp file list. + (SOURCE_FILES): Add ffcall-version.in.h, dummy/ffcall-version.h. + +2017-07-30 Bruno Haible + + Remove configure test for 'long long'. Assume the compiler has it. + Rationale: All compilers nowadays have 'long long', for years. + * configure.ac: Don't invoke AC_TYPE_LONG_LONG_INT. + * avcall/avcall.h.in (HAVE_LONG_LONG_INT): Remove macro. + * vacall/vacall.h.in (HAVE_LONG_LONG_INT): Likewise. + * callback/vacall_r/vacall_r.h.in (HAVE_LONG_LONG_INT): Likewise. + * vacall/Makefile.devel (GCCFLAGS): Remove -DHAVE_LONG_LONG_INT. + * callback/vacall_r/Makefile.devel (GCCFLAGS): Likewise. + * avcall/tests.c: Remove test for HAVE_LONG_LONG_INT. + * vacall/tests.c: Likewise. + * callback/tests.c: Likewise. + * porting-tools/abis/README: Update. + +2017-07-30 Bruno Haible + + Remove unused configure test AC_C_CHAR_UNSIGNED. + * vacall/vacall.h.in (__CHAR_UNSIGNED__): Remove unuseed macro. + * callback/vacall_r/vacall_r.h.in (__CHAR_UNSIGNED__): Likewise. + * configure.ac: Don't invoke AC_C_CHAR_UNSIGNED. + +2017-07-30 Bruno Haible + + Don't depend on FFCALL_IREG_FLOAT_RETURN configure result. + Rationale: The installed .h files should be compiler independent. + * avcall/avcall.h.in (__IREG_FLOAT_RETURN__): Remove macro. Assume it is + not defined on m68k. + * vacall/vacall.h.in (__IREG_FLOAT_RETURN__): Likewise. + * callback/vacall_r/vacall_r.h.in (__IREG_FLOAT_RETURN__): Likewise. + +2017-07-30 Bruno Haible + + Don't depend on FFCALL_SMALL_STRUCT_RETURN configure result. + Rationale: The installed .h files should be compiler independent. + * avcall/avcall.h.in (__SMALL_STRUCT_RETURN__): Remove macro. Use + explicit ABI conditional instead. + * vacall/vacall.h.in (__SMALL_STRUCT_RETURN__): Likewise. + * callback/vacall_r/vacall_r.h.in (__SMALL_STRUCT_RETURN__): Likewise. + * avcall/Makefile.maint (avcall.h.msvc, avcall.h.mingw32): Don't + substitute __SMALL_STRUCT_RETURN__. + * vacall/Makefile.maint (vacall.h.msvc, vacall.h.mingw32): Likewise. + * callback/vacall_r/Makefile.maint (vacall_r.h.msvc, + vacall_r.h.mingw32): Likewise. + +2017-07-30 Bruno Haible + + Move a file. + * avcall/port-structs.c: Moved to porting-tools/abis/. + * porting-tools/abis/README: Mention it. + +2017-07-30 Bruno Haible + + Remove support for old PCC struct return convention. + It is not reentrant and therefore a fortiori not multithread-safe. + * m4/pccstruct.m4: Remove file. + * Makefile.in (SOURCE_FILES): Remove it. + * configure.ac: Remove FFCALL_PCC_STRUCT_RETURN invocation. + * avcall/avcall.h.in (__PCC_STRUCT_RETURN__): Remove macro. + (__AV_PCC_STRUCT_RETURN): Remove enum value. + (__av_start_struct1): Remove macro. + (_av_start_struct): Use __av_start_struct2 instead. + * avcall/avcall-*.c: Remove support for __AV_PCC_STRUCT_RETURN flag. + * vacall/vacall.h.in (__PCC_STRUCT_RETURN__): Remove macro. + (__VA_PCC_STRUCT_RETURN): Remove enum value. + (_va_start_struct): Update accordingly. + * callback/vacall_r/vacall_r.h.in: Likewise. + * vacall/vacall-*.c: Remove support for __VA_PCC_STRUCT_RETURN flag. + * vacall/misc.c (__va_error2): Update error message. + * callback/vacall_r/misc.c (__va_error2): Likewise. + +2017-07-22 Bruno Haible + + ia64: Make vacall code more robust. + * vacall/vacall-ia64.c: Use a split struct to allocate room for the + 8 leading words in the callee's stack. + * porting-tools/abis/stack-frame.txt: Mention the change. + +2017-07-22 Bruno Haible + + alpha: Make vacall code more robust. + * vacall/vacall-alpha.c: Use a split struct to allocate room for the + 6 leading words in the callee's stack. + * porting-tools/abis/stack-frame.txt: Mention the change. + +2017-07-22 Bruno Haible + + alpha: Make vacall code more maintainable. + * vacall/vacall.h.in (__va_alist, va_arg_double, va_arg_float) [alpha]: + Add fields 'farg_offset', 'farg'. + * callback/vacall_r/vacall_r.h.in: Likewise. + * vacall/vacall-alpha.c (__vacall): Don't allocate the fargs in the + 'locals' struct. Initialize 'farg_offset' field. + +2017-07-22 Bruno Haible + + mipsn32, mips64: Remove unused field. + * vacall/vacall.h.in (__va_alist) [__mipsn32__ || __mips64__]: Remove + field 'memargptr'. + * callback/vacall_r/vacall_r.h.in: Likewise. + * vacall/vacall-mipsn32.c (__vacall): Update accordingly. + * vacall/vacall-mips64.c (__vacall): Likewise. + +2017-07-22 Bruno Haible + + mipsn32, mips64: Make vacall code more robust. + * vacall/Makefile.devel (vacall-mipsn32eb-macro.S, + vacall-mipsn32el-macro.S, vacall-mips64eb-macro.S, + vacall-mips64el-macro.S): Remove post-processing hack. + * callback/vacall_r/Makefile.devel (vacall-mipsn32eb-macro.S, + vacall-mipsn32el-macro.S, vacall-mips64eb-macro.S, + vacall-mips64el-macro.S): Likewise. + * vacall/vacall-mipsn32.c: Use a split struct to allocate room for the + 8 leading words in the callee's stack. + * vacall/vacall-mips64.c: Likewise. + * porting-tools/abis/stack-frame.txt: Mention the change. + +2017-07-22 Bruno Haible + + mips: Don't store dynamic state in the flags. + * avcall/avcall.h.in (__AV_FLOAT_1, __AV_FLOAT_2, __AV_DOUBLE_1, + __AV_DOUBLE_2): Remove enum values. + (av_alist) [mips]: Store the number of floating-point register arguments + in fanum. Store bitmasks in farg_mask and darg_mask. Rename field + 'floatarg' to 'fargs'. Rename field 'doublearg' to 'dargs'. + (__av_start1, av_float, av_double): Update implementation accordingly. + * avcall/avcall-mips.c (__builtin_avcall): Access farg_mask and + darg_mask instead of the flags. + * vacall/vacall.h.in (__VA_FLOAT_1, __VA_FLOAT_2): Remove enum values. + (__VA_REGISTER_FLOATSTRUCT_RETURN, __VA_REGISTER_DOUBLESTRUCT_RETURN): + Change values. + (__va_alist, va_arg_float, va_arg_double) [mips]: Store the number of + floating-point register arguments in fanum. Use it instead of the + __VA_FLOAT_1 flag. + * callback/vacall_r/vacall_r.h.in: Likewise. + * vacall/vacall-mips.c (__vacall): Update accordingly. + +2017-07-22 Bruno Haible + + powerpc, powerpc64, ia64, x86_64: Undo premature optimization. + * vacall/vacall.h.in: Use 'fanum' field instead of 'memfargptr' field. + * callback/vacall_r/vacall_r.h.in: Likewise. + * vacall/vacall-ia64.c: Update accordingly. + * vacall/vacall-powerpc.c: Likewise. + * vacall/vacall-powerpc64.c: Likewise. + * vacall/vacall-x86_64.c: Likewise. + +2017-07-22 Bruno Haible + + x86_64: Undo premature optimization. + * vacall/vacall.h.in [__x86_64__]: Use 'ianum' field instead of + 'memiargptr' field. + * callback/vacall_r/vacall_r.h.in: Likewise. + * vacall/vacall-x86_64.c (__vacall): Update accordingly. + +2017-07-22 Bruno Haible + + x86_64: Undo premature optimization. + * avcall/avcall.h.in [__x86_64__]: Use 'ianum' field instead of 'iaptr' + field. + +2017-07-22 Bruno Haible + + ia64, x86_64: Use symbolic constants. + * avcall/avcall.h.in (__AV_FARG_NUM) [__ia64__ || __x86_64__]: + New macro. + (av_float, av_double): Use it. + (__av_struct): Use __AV_IARG_NUM. + * vacall/vacall.h.in (__VA_FARG_NUM) [__ia64__ || __x86_64__]: + New macro. + (va_arg_float, va_arg_double): Use it. + * callback/vacall_r/vacall_r.h.in: Likewise. + +2017-07-22 Bruno Haible + + armhf: Fix a bug in vacall (failing tests d_d13i, f_f17l3L, d_d17l3L). + * vacall/vacall.h.in (__va_alist, __va_start_struct2, + __va_arg_leftadjusted, __va_arg_rightadjusted, __va_arg_longlong) + [__armhf__]: Use 'iarg' and 'ianum' fields instead of 'saptr' field. + (va_arg_float, va_arg_double) [__armhf__]: Don't force all remaining + integer arguments to the stack. + * callback/vacall_r/vacall_r.h.in: Likewise. + * vacall/vacall-armhf.c (__vacall): Update accordingly. + +2017-07-22 Bruno Haible + + armhf: Fix a bug in avcall (failing tests f_f17l3L, d_d17l3L). + * avcall/avcall.h.in [__armhf__]: Store integer argument count in ianum. + (__av_start1, __av_start_struct4, __av_word, __av_longlong, av_float, + av_double, __av_struct): Update implementation accordingly. + * avcall/avcall-arm.c: Add comment. + * avcall/avcall-armhf.c: Likewise. + * porting-tools/abis/stack-frame.txt: Update information. + * NEWS: Mention the fix. + +2017-07-22 Bruno Haible + + powerpc: Make avcall code more robust. + * avcall/avcall-powerpc.c (__builtin_avcall) [_AIX]: Don't rely on a + particular stack frame layout produced by GCC. Use __builtin_alloca + instead. + * avcall/avcall-powerpc64.c (STACK_OFFSET): Remove unused macro. + +2017-07-22 Bruno Haible + + powerpc: Don't ever access out-of-range array elements. + * avcall/avcall-powerpc.c (__builtin_avcall): Access only 8 fargs when + only 8 exist. + +2017-07-22 Bruno Haible + + powerpc, powerpc64: Use symbolic constants. + * avcall/avcall.h.in (__AV_FARG_NUM) [__powerpc__ || __powerpc64__]: + New macro. + (av_float, av_double): Use it. + * vacall/vacall.h.in (__VA_FARG_NUM) [__powerpc__ || __powerpc64__]: + New macro. + (va_arg_float, va_arg_double): Use it. + * callback/vacall_r/vacall_r.h.in: Likewise. + +2017-07-22 Bruno Haible + + powerpc: Fix a bug (failing tests f_f12i, f_f13i, d_d12i, d_d13i). + * avcall/avcall.h.in [__powerpc_sysv4__]: Store integer register + arguments in iargs[] and their count in ianum. + (__av_start1, __av_start_struct4, av_long, av_ulong, av_ptr, + __av_longlong, __av_struct): Update implementation accordingly. + * avcall/avcall-powerpc.c (__builtin_avcall): Update accordingly. + Ignore farglen in the arg copy loop. + * vacall/vacall.h.in (__va_alist, __va_start_struct2, + __va_arg_leftadjusted, __va_arg_rightadjusted, __va_arg_longlong, + va_arg_float, va_arg_double) [__powerpc_sysv4__]: Use 'ianum' field + instead of 'saptr', 'onstack' fields. Don't bump 'ianum' in + va_arg_float, va_arg_double. + * callback/vacall_r/vacall_r.h.in: Likewise. + * vacall/vacall-powerpc.c (__vacall): Update accordingly + * porting-tools/abis/stack-frame.txt: Fix information. + * NEWS: Mention the fix. + +2017-07-22 Bruno Haible + + powerpc: Simplify #if expressions. + * avcall/avcall.h.in (__powerpc_aix__, __powerpc_sysv4__): New macros. + Use them in #if expressions. + * vacall/vacall.h.in: Likewise. + * callback/vacall_r/vacall_r.h.in: Likewise. + * avcall/avcall-powerpc.c: Add comments. + * vacall/vacall-powerpc.c: Likewise. + +2017-07-22 Bruno Haible + + s390, s390x: Merge common code. + * vacall/vacall.h.in (va_arg_float, va_arg_double) [s390,s390x]: Merge. + * callback/vacall_r/vacall_r.h.in: Likewise. + +2017-07-22 Bruno Haible + + s390: Fix a bug (failing tests f_f3i...f_f13i, d_d3i...d_d13i). + * vacall/vacall.h.in (va_arg_float, va_arg_double) [s390]: Don't bump + ianum, + * callback/vacall_r/vacall_r.h.in: Likewise. + * NEWS: Mention the fix. + +2017-07-22 Bruno Haible + + s390: Make vacall code more similar to s390x, arm64 cases. + * vacall/vacall.h.in (__va_alist, __va_start_struct2, + __va_arg_leftadjusted, __va_arg_rightadjusted, __va_arg_adjusted, + va_arg_float, va_arg_double, __va_arg_struct) [s390]: Use 'ianum' + field instead of 'saptr', 'onstack' fields. + * callback/vacall_r/vacall_r.h.in: Likewise. + * vacall/vacall-s390.c: Update accordingly. + +2017-07-22 Bruno Haible + + Add some mixed-number args boundary tests. + * avcall/tests.c (f_f17l3L, d_d17l3L): New tests. + * vacall/tests.c: Likewise. + * callback/tests.c: Likewise. + +2017-07-22 Bruno Haible + + Add more mixed-number tests. + * avcall/tests.c (f_fi, ..., f_f13i, d_di, ..., d_d13i): New tests. + * vacall/tests.c: Likewise. + * callback/tests.c: Likewise. + +2017-07-19 Bruno Haible + + s390: Make avcall code more robust. + * avcall/avcall-s390.c (STACK_OFFSET): Remove macro. + (__builtin_avcall): Don't rely on a particular stack frame layout + produced by GCC. Use __builtin_alloca instead. + +2017-07-19 Bruno Haible + + s390: Make avcall code more similar to s390x, arm64, x86_64 cases. + * avcall/avcall.h.in (av_alist, __av_start_struct4, __av_word, av_long, + av_ulong, av_ptr, __av_longlong, __av_struct) [s390]: Use iargs[] array + for the first 5 general-purpose argument words, like on s390x. + (__av_struct_rightadjusted) [s390]: Remove macro. + * avcall/avcall-s390.c (__builtin_avcall): Update accordingly. + +2017-07-19 Bruno Haible + + s390: Simplify avcall code. + * avcall/avcall.h.in (av_alist, __av_start1, __av_start_struct4, + __av_word, __av_longlong, av_float, av_double, + __av_struct_rightadjusted, __av_struct) [s390]: Use 'ianum' field + instead of 'fargwords' field. + * avcall/avcall-s390.c (__builtin_avcall): Update accordingly. + +2017-07-16 Bruno Haible + + Allow building statically linked binaries, through LDFLAGS="-static". + * Makefile.main (libtool-imported-files): Fetch and apply patch from + : + + 2017-07-15 Bruno Haible + + * build-aux/ltmain.sh (func_mode_help, func_mode_link): In the + link mode, accept option '-static-uninstalled-libs' in place of + '-static', and make '-static' an equivalent of '-all-static'. + +2017-07-07 Bruno Haible + + build: Avoid a hanging configure test on FreeBSD/arm64. + Seen with FreeBSD 11.1-RC1 on arm64 (under qemu 2.9.0). + * m4/codeexec.m4 (FFCALL_CODEEXEC): Avoid running the test on + FreeBSD/arm64. + +2017-06-27 Bruno Haible + + build: Fix warning in autoconf test. + * m4/shm.m4 (CL_SHM): Include , to declare exit(). + +2017-06-25 Bruno Haible + + Add doc about ABIs and calling conventions. + * porting-tools/abis: New directory. + * common/reg-struct-return.txt: Moved to porting-tools/abis/. + * callback/call-used-registers.txt: Likewise. + +2017-06-25 Bruno Haible + + Add doc about emulation of target platforms. + * porting-tools/emulation: New directory. + +2017-06-24 Bruno Haible + + s390: Simplify code. + * vacall/vacall.h.in (__va_alist) [s390]: Use a counter instead of + 2 pointers. + (va_arg_float, va_arg_double): Update accordingly; + * callback/vacall_r/vacall_r.h.in: Likewise. + * vacall/vacall-s390.c: Update accordingly. + +2017-06-24 Bruno Haible + + s390: Simplify code. + * avcall/avcall.h.in (av_alist) [s390]: Use a counter instead of + 4 pointers. Use 2 bitmasks instead of 2 int[] arrays. + (__av_start1, av_float, av_double): Update accordingly. + * avcall/avcall-s390.c (__builtin_avcall): Likewise. + +2017-06-24 Bruno Haible + + build: Improve guesses when cross-compiling. + * m4/codeexec.m4 (FFCALL_CODEEXEC, FFCALL_CODEEXEC_PAX): When + cross-compiling, use the known autoconf test results. + * m4/mmap.m4 (FFCALL_MMAP): Likewise. + * m4/mprotect.m4 (FFCALL_MPROTECT): Likewise. + * m4/pccstruct.m4 (FFCALL_PCC_STRUCT_RETURN): Likewise. + * m4/shm.m4 (CL_SHM): Likewise. + * m4/smallstruct.m4 (FFCALL_SMALL_STRUCT_RETURN): Likewise. + +2017-06-24 Bruno Haible + + Bump version number. + * VERSION: Set to 2.0. + * NEWS: Open new section for 2.0. + +2017-06-24 Bruno Haible + + build: Use decimal notation for the version number. + * VERSION: Set to 1.13. + * configure.ac: Simplify AC_CONFIG_HEADERS invocations. Define + LIBFFCALL_VERSION as C macro, based on PACKAGE_VERSION. + * avcall/avcall.h.in (LIBFFCALL_VERSION): Use a plain #define, for + substitution by config.status. + * vacall/vacall.h.in: Likewise. + * trampoline/trampoline.h.in: Likewise. + * callback/callback.h.in: Likewise. + * callback/vacall_r/vacall_r.h.in: Likewise. + * callback/trampoline_r/trampoline_r.h.in: Likewise. + +2017-06-24 Bruno Haible + + trampoline, callback: Make multithread-safe. + * Makefile.maint (AUTOMAKE): New variable. + (all): Depend on Makefile-ins. + (GNULIB_MODULES): Add 'lock'. + (gnulib-m4/gnulib-cache.m4): Don't remove generated gnulib-lib files. + (ALL_MAKEFILE_IN_FROM_AM): New variable. + (Makefile-ins, gnulib-lib/Makefile.in): New targets. + * configure.ac: Invoke AM_INIT_AUTOMAKE. Arrange to generate + gnulib-lib/Makefile. Invoke gl_EARLY earlier. Recurse into gnulib-lib + directory. + * Makefile.in (DISTCLEANFILES): Add the various stamp-h* files created + by config.status at the end of the 'configure' run. + (AUTOMAKE_IMPORTED_FILES): New variable. + (IMPORTED_FILES): Use it. + * trampoline/Makefile.in (INCLUDES): Reference the gnulib build dir and + source dir. + (LTLIBTHREAD): New variable. + (libtrampoline.la): Link against libgnu.la, with options $(LTLIBTHREAD). + (test1, test2): Link against libtrampoline.la. + * trampoline/trampoline.c: Include glthread/lock.h. + (zero_fd, file_fd, file_length): Move to file scope. + (for_mmap_init): New function, extracted from alloc_trampoline. + (for_mmap_once): New variable. + (freelist_lock): New variable. + (alloc_trampoline): Use once-only execution and locking. + * callback/trampoline_r/Makefile.in (INCLUDES): Reference the gnulib + build dir and source dir. + (LTLIBTHREAD): New variable. + (libtrampoline.la): Link against libgnu.la, with options $(LTLIBTHREAD). + (test1, test2): Link against libtrampoline.la. + * callback/trampoline_r/trampoline.c: Include glthread/lock.h. + (zero_fd, file_fd, file_length): Move to file scope. + (for_mmap_init): New function, extracted from alloc_trampoline. + (for_mmap_once): New variable. + (freelist_lock): New variable. + (alloc_trampoline_r): Use once-only execution and locking. + * callback/Makefile.in (LTLIBTHREAD): New variable. + (libcallback.la): Link against libgnu.la, with options $(LTLIBTHREAD). + +2017-06-24 Bruno Haible + + build: Rename glm4 to gnulib-m4. + * autogen.sh: Write gnulib-m4 instead of glm4. + * Makefile.maint: Likewise. + * Makefile.in (GNULIB_IMPORTED_FILES): Likewise. + +2017-06-24 Bruno Haible + + build: Assume a single configure.ac file. + * Makefile.maint (ALL_CONFIGURE_AC, aclocal.m4): Simplify. + +2017-06-24 Bruno Haible + + Merge all autoconf configurations into a single one. + * configure.ac: Include the body of all other configure.ac files. + Use a single config.h file. Inline FFCALL_COMMON_LIBTOOL and + FFCALL_COMMON_TRAMPOLINE. + * avcall/configure.ac: Remove file. + * vacall/configure.ac: Remove file. + * trampoline/configure.ac: Remove file. + * callback/configure.ac: Remove file. + * callback/vacall_r/configure.ac: Remove file. + * callback/trampoline_r/configure.ac: Remove file. + * m4/general.m4 (FFCALL_COMMON_LIBTOOL, FFCALL_COMMON_TRAMPOLINE): + Remove macros. + * build-aux/ac-help.sed: Remove file. + * Makefile.maint (CONFIGURED_SUBDIRS, SUBDIRS_CONFIGURE): Remove + variables. + (ALL_CONFIGURE): Keep only the top-level configure. + (%/configure): Remove rule. + (ALL_CONFIG_H_IN): Set to only the top-level config.h.in. + (config.h.in): Replace the %/config.h.in rule. + * vacall/Makefile.maint (config.h.msvc, config.h.mingw32): Use top-level + config.h.in. + * trampoline/Makefile.maint (config.h.msvc, config.h.mingw32): Use + top-level config.h.in. + * callback/Makefile.maint (vacall_r/config.h.msvc, + vacall_r/config.h.mingw32, trampoline_r/config.h.msvc, + trampoline_r/config.h.mingw32): Update dependencies. + * callback/vacall_r/Makefile.maint (config.h.msvc, config.h.mingw32): + Use top-level config.h.in. + * callback/trampoline_r/Makefile.maint (config.h.msvc, + config.h.mingw32): Use top-level config.h.in. + * Makefile.in (DISTCLEANFILES): Add config.h, libtool. + (SOURCE_FILES): Remove build-aux/ac-help.sed. + (GENERATED_FILES): Add config.h.in. Remove */config* and + callback/*/config*. + * avcall/Makefile.in (INCLUDES): Look also in '..'. + (top_builddir): Set to '..'. + (distclean): Don't remove config* and libtool. + (SOURCE_FILES): Remove configure.ac. + * vacall/Makefile.in (INCLUDES): Look also in '..'. + (misc.o): Update dependency. + (distclean): Don't remove config* and libtool. + (SOURCE_FILES): Remove configure.ac. + * trampoline/Makefile.in (INCLUDES): Look also in '..'. + (top_builddir): Set to '..'. + (distclean): Don't remove config* and libtool. + (SOURCE_FILES): Remove configure.ac. + * callback/Makefile.in (INCLUDES): Look also in '..'. + (top_builddir): Set to '..'. + (DISTCLEANFILES): Remove config* and libtool. + (SOURCE_FILES): Remove configure.ac. + * callback/vacall_r/Makefile.in (INCLUDES): Look also in '../..'. + (top_builddir): Set to '../..'. + (misc.lo): Update dependency. + (distclean): Don't remove config* and libtool. + (SOURCE_FILES): Remove configure.ac. + * callback/trampoline_r/Makefile.in (INCLUDES): Look also in '../..'. + (top_builddir): Set to '../..'. + (distclean): Don't remove config* and libtool. + (SOURCE_FILES): Remove configure.ac. + * README, */README: Update. + +2017-06-24 Bruno Haible + + trampoline: Build library using libtool. + * trampoline/configure.ac: Invoke FFCALL_COMMON_LIBTOOL. + (CPU_OBJECTS): Now contains .lo file names instead of .o file names. + * trampoline/Makefile.in (LIBTOOL*, top_builddir): New variables. + (*.lo): Targets renamed from *.o. + (libtrampoline.la): Replaces target libtrampoline.a. + Use LIBTOOL* variables as appropriate. + (clean): Remove also *.lo, libtrampoline.*, .libs, _libs. + (distclean): Remove also 'libtool'. + +2017-06-24 Bruno Haible + + trampoline: Generate position-independent code. + * trampoline/Makefile.devel (GCCFLAGS): Add -fPIC. + +2017-06-24 Bruno Haible + + vacall: Explain why not using libtool. + * vacall/README: Add comment about libtool. + +2017-06-24 Bruno Haible + + Fix result of an autoconf test on AIX. + * m4/codeexec.m4 (FFCALL_CODEEXEC): Don't actually run the test on + powerpc64 (AIX and Linux) and ia64 (Linux). + +2017-06-24 Bruno Haible + + build: Avoid testing an undefined variable. + * m4/codeexec.m4 (FFCALL_CODEEXEC_PAX): Before testing + cl_cv_func_mprotect_works, test ac_cv_func_mprotect. + +2017-06-24 Bruno Haible + + build: Add necessary AC_REQUIREs. + * m4/codeexec.m4 (FFCALL_CODEEXEC): Require AC_CANONICAL_HOST and + gl_HOST_CPU_C_ABI. + +2017-06-24 Bruno Haible + + Fix build error on Solaris 11 with Oracle Developer Studio 12.5. + * common/asm-x86_64.sh: Clarify the necessary postprocessing. + * common/asm-i386.sh: Document the necessary postprocessing. + * avcall/Makefile.in (avcall-i386.s): Do more postprocessing. + * vacall/Makefile.in (vacall-i386.s): Likewise. + * callback/vacall_r/Makefile.in (vacall-i386.s): Likewise. + +2017-06-24 Bruno Haible + + Fix compilation error on CentOS 5. + * trampoline/trampoline.c (open_noinherit): New function. + (alloc_trampoline): Use it. + * callback/trampoline_r/trampoline.c: Likewise. + +2017-06-24 Bruno Haible + + Prefer https over http URLs. + * autogen.sh: Access ftp.gnu.org through https. + +2017-06-24 Bruno Haible + + Remove obsolete mention of nonexistent file. + * avcall/README: Don't mention underscore.h. + * vacall/README: Likewise. + +2017-06-24 Bruno Haible + + Remove obsolete protexec.c file. + * trampoline/protexec.c: Remove file. + * trampoline/README: Update. + * callback/trampoline_r/Makefile.maint (COPIED_FILES): Remove + protexec.c. + +2017-06-21 Bruno Haible + + Fix list of distributed files. + * Makefile.in (SOURCE_FILES): Add m4/endianness.m4, common/asm-s390.sh. + +2017-06-19 Bruno Haible + + Fix a misnomer. + * vacall/vacall.h.in: Rename 'regarg' to 'iarg'. + * callback/vacall_r/vacall_r.h.in: Likewise. + * vacall/vacall-powerpc.c: Update accordingly. + * vacall/vacall-s390.c: Likewise. + +2017-06-18 Bruno Haible + + s390x: Add support for s390x CPU (64-bit S/390). + * cross-tools/cross.conf: Add configuration for s390x cross tools. + * common/reg-struct-return.txt: Add info about s390x. + * callback/call-used-registers.txt: Likewise. + * common/asm-s390.sh: New file. + * avcall/avcall.h.in: Optionally define __s390x__. Add code for + __s390x__, especially __av_start_struct4, av_float, av_double, + __av_struct. + * avcall/avcall-s390x.c: New file. + * avcall/Makefile.devel (avcall-s390-macro.S): Use asm-s390.sh. + (avcall-s390x-linux.s, avcall-s390x-macro.S): New targets. + * avcall/Makefile.in (avcall-s390x.lo, avcall-s390x.s): New targets. + (clean): Remove avcall-s390x.s. + (SOURCE_FILES): Add avcall-s390x.c, avcall-s390x-linux.s, + avcall-s390x-macro.S. + * vacall/vacall.h.in: Optionally define __s390x__. Add code for + __s390x__, especially __va_start_struct2, __va_arg_adjusted, + va_arg_float, va_arg_double, __va_arg_struct. + * vacall/vacall-s390x.c: New file. + * vacall/Makefile.devel (vacall-s390-macro.S): Use asm-s390.sh. + (vacall-s390x-linux.s, vacall-s390x-macro.S): New targets. + * vacall/Makefile.in (vacall-s390x.o, vacall-s390x.s): New targets. + (clean): Remove vacall-s390x.s. + (SOURCE_FILES): Add vacall-s390x.c, vacall-s390x-linux.s, + vacall-s390x-macro.S. + * callback/vacall_r/Makefile.maint (COPIED_FILES): Add vacall-s390x.c. + * Makefile.in (COPIED_FILES): Add callback/vacall_r/vacall-s390x.c. + * callback/vacall_r/vacall_r.h.in: Optionally define __s390x__. Add code + for __s390x__, especially __va_start_struct2, __va_arg_adjusted, + va_arg_float, va_arg_double, __va_arg_struct. + * callback/vacall_r/Makefile.devel (vacall-s390-macro.S): Use + asm-s390.sh. + (vacall-s390x-linux.s, vacall-s390x-macro.S): New targets. + * callback/vacall_r/Makefile.in (vacall-s390x.lo, vacall-s390x.s): New + targets. + (clean): Remove vacall-s390x.s. + (SOURCE_FILES): Add vacall-s390x.c, vacall-s390x-linux.s, + vacall-s390x-macro.S. + * trampoline/Makefile.devel (proto-s390x.s, tramp-s390x.o): New targets. + * trampoline/proto-s390x.s: New generated file. + * trampoline/tramp-s390x.s: New file. + * trampoline/tramp-s390x.o: New generated file. + * trampoline/trampoline.c: Implement for __s390x__. + * callback/trampoline_r/Makefile.devel (proto-s390x.s, tramp-s390x.o): + New targets. + * callback/trampoline_r/proto64.c: Add support for __s390x__. + * callback/trampoline_r/proto-s390x.s: New generated file. + * callback/trampoline_r/tramp-s390x.s: New file. + * callback/trampoline_r/tramp-s390x.o: New generated file. + * callback/trampoline_r/trampoline.c: Implement for __s390x__. + * callback/trampoline_r/test1.c: Add support for __s390x__. + * PLATFORMS, */PLATFORMS: List the s390x machine. + * NEWS: Mention the new port. + +2017-06-18 Bruno Haible + + Small code style improvements. + * avcall/avcall.h.in [__arm64__]: Define and use __AV_FARG_NUM. + [__s390__, __arm64__] (__av_struct): Avoid a boolean negation. + * vacall/vacall.h.in [__arm64__]: Define and use __VA_IARG_NUM, + __VA_FARG_NUM. + [__x86_64__]: Define and use __VA_IARG_NUM. + * callback/vacall_r/vacall_r.h.in: Likewise. + +2017-06-18 Bruno Haible + + s390: Reorder code. + * avcall/avcall.h.in: Move s390 specific code to the end (after ia64 and + x86_64 specific code). + * vacall/vacall.h.in: Likewise. + * callback/vacall_r/vacall_r.h.in: Likewise. + +2017-06-18 Bruno Haible + + s390: Improve trampolines. + * trampoline/Makefile.devel (proto-s390.s): New target. + (tramp-s390.o): Use cross tools. + * trampoline/proto-s390.s: Regenerated with gcc 3.1. + * trampoline/tramp-s390.s: Rewritten from scratch, to not use %r13. + * trampoline/tramp-s390.o: New generated file. + * trampoline/trampoline.c (alloc_trampoline) [__s390__]: Change the + trampoline to not use %r13. + * callback/trampoline_r/Makefile.devel (proto-s390.s): New target. + (tramp-s390.o): Use cross tools. + * callback/trampoline_r/proto-s390.s: Regenerated with gcc 3.1. + * callback/trampoline_r/tramp-s390.s: Rewritten from scratch. Use 'lm' + instruction. + * callback/trampoline_r/tramp-s390.o: Regenerated. + * callback/trampoline_r/trampoline.c (alloc_trampoline_r) [__s390__]: + Change the trampoline accordingly. + +2017-06-17 Bruno Haible + + arm64: Add support for arm64 CPU (a.k.a. aarch64). + * cross-tools/cross.conf: Add configuration for arm64 cross tools. + * common/reg-struct-return.txt: Add info about arm64. + * callback/call-used-registers.txt: Likewise. + * avcall/avcall.h.in: Add code for __arm64__, especially __av_start1, + av_long, av_ulong, av_ptr, av_float, av_double, __av_struct. + * avcall/avcall-arm64.c: New file. + * avcall/Makefile.devel (avcall-arm64-macro.S): New target. + * avcall/Makefile.in (avcall-arm64.lo, avcall-arm64.s): New targets. + (clean): Remove avcall-arm64.s. + (SOURCE_FILES): Add avcall-arm64.c, avcall-arm64-macro.S. + * vacall/vacall.h.in: Add code for __arm64__, especially + __va_arg_adjusted, va_arg_float, va_arg_double, __va_arg_struct. + * vacall/vacall-arm64.c: New file. + * vacall/Makefile.devel (vacall-arm64-macro.S): New target. + * vacall/Makefile.in (vacall-arm64.o, vacall-arm64.s): New targets. + (clean): Remove vacall-arm64.s. + (SOURCE_FILES): Add vacall-arm64.c, vacall-arm64-macro.S. + * callback/vacall_r/Makefile.maint (COPIED_FILES): Add vacall-arm64.c. + * Makefile.in (COPIED_FILES): Add callback/vacall_r/vacall-arm64.c. + * callback/vacall_r/vacall_r.h.in: Add code for __arm64__, especially + __va_arg_adjusted, va_arg_float, va_arg_double, __va_arg_struct. + * callback/vacall_r/Makefile.devel (vacall-arm64-macro.S): New target. + * callback/vacall_r/Makefile.in (vacall-arm64.lo, vacall-arm64.s): New + targets. + (clean): Remove vacall-arm64.s. + (SOURCE_FILES): Add vacall-arm64.c, vacall-arm64-macro.S. + * trampoline/Makefile.devel (proto-arm64.s, tramp-arm64.o): New targets. + * trampoline/proto-arm64.s: New generated file. + * trampoline/tramp-arm64.s: New file. + * trampoline/tramp-arm64.o: New generated file. + * trampoline/trampoline.c: Implement for __arm64__. + * callback/trampoline_r/Makefile.devel (proto-arm64.s, tramp-arm64.o): + New targets. + * callback/trampoline_r/proto64.c: Add support for __arm64__. + * callback/trampoline_r/proto-arm64.s: New generated file. + * callback/trampoline_r/tramp-arm64.s: New file. + * callback/trampoline_r/tramp-arm64.o: New generated file. + * callback/trampoline_r/trampoline.c: Implement for __arm64__. + * callback/trampoline_r/test1.c: Add support for __arm64__. + * PLATFORMS, */PLATFORMS: List the arm64 machine. + * NEWS: Mention the new port. + +2017-06-16 Bruno Haible + + Remove unused fields from __va_alist. + * vacall/vacall.h.in (__va_alist): Don't include _longlong and + _ulonglong on platforms where they are unused. + * callback/vacall_r/vacall_r.h.in: Likewise. + +2017-06-15 Bruno Haible + + Reduce the amount of cache invalidation to the necessary minimum. + * trampoline/trampoline.c (alloc_trampoline): New macro + TRAMP_CODE_LENGTH. Use it instead of TRAMP_LENGTH for cache + invalidation. + * callback/trampoline_r/trampoline.c (alloc_trampoline_r): Likewise. + +2017-06-10 Bruno Haible + + Make the top-level "./configure --help" output complete. + Reported by Karl Berry in + . + * build-aux/ac-help.sed: New file, from GNU gettext with modifications. + * Makefile.in (SOURCE_FILES): Add it. + * configure.ac: Collect the AC_ARG_* options from the subdirectories, + like in GNU gettext. + * callback/configure.ac: Likewise. + * Makefile.maint (aclocal.m4): Disable esyscmd invocations while running + aclocal. + +2017-06-10 Bruno Haible + + In comments, write 'libffcall' instead of 'ffcall'. + +2017-06-10 Bruno Haible + + Add cache invalidation for 64-bit powerpc. + * trampoline/cache-powerpc64.c: New file. + * trampoline/Makefile.devel (cache-powerpc64-elfv2-linux.s, + cache-powerpc64-elfv2-macro.S): New rules. + * trampoline/configure.ac (CPU_OBJECTS): Augment also for + powerpc64-elfv2 ABI. + * trampoline/Makefile.in (cache-powerpc64-elfv2.o, + cache-powerpc64-elfv2.s): New rules. + (clean): Remove also cache-powerpc64-elfv2.s. + (SOURCE_FILES): Add cache-powerpc64.c, cache-powerpc64-elfv2-linux.s, + cache-powerpc64-elfv2-macro.S. + * trampoline/trampoline.c (__TR_clear_cache): Declare also for + powerpc64-elfv2 ABI. + (alloc_trampoline): Invoke __TR_clear_cache also on powerpc64-elfv2 ABI. + * callback/trampoline_r/cache-powerpc64.c: New file. + * callback/trampoline_r/Makefile.devel (cache-powerpc64-elfv2-linux.s, + cache-powerpc64-elfv2-macro.S): New rules. + * trampoline/configure.ac (CPU_OBJECTS): Augment also for + powerpc64-elfv2 ABI. + * callback/trampoline_r/Makefile.in (cache-powerpc64-elfv2.lo, + cache-powerpc64-elfv2.s): New rules. + (clean): Remove also cache-powerpc64-elfv2.s. + (SOURCE_FILES): Add cache-powerpc64.c, cache-powerpc64-elfv2-linux.s, + cache-powerpc64-elfv2-macro.S. + * callback/trampoline_r/trampoline.c (__TR_clear_cache): Declare also + for powerpc64-elfv2 ABI. + (alloc_trampoline_r): Invoke __TR_clear_cache also on powerpc64-elfv2 + ABI. + +2017-06-10 Bruno Haible + + Fix cache invalidation for 32-bit powerpc. + * trampoline/cache-powerpc.c: Add comment. + * callback/trampoline_r/cache-powerpc.c: New file, based on + trampoline/cache-powerpc.c. + * callback/trampoline_r/Makefile.maint (COPIED_FILES): Remove + cache-powerpc.c. + * Makefile.in (COPIED_FILES): Remove + callback/trampoline_r/cache-powerpc.c. + +2017-06-10 Bruno Haible + + Don't declare the need for an executable stack on Linux and FreeBSD. + * porting-tools: New directory. + * common/asm-alpha.sh: New file. + * common/asm-powerpc.sh: New file. + * common/asm-arm.sh: Remove the GNU-stack note line. + * common/asm-sparc.sh: Likewise. + * common/asm-x86_64.sh: Likewise. + * common/noexecstack.h: New file. + * common/noexecstack-arm.h: New file. + * avcall/Makefile.devel (precompiled): Add avcall-alpha-macro.S, + avcall-powerpc-linux-macro.S, avcall-powerpc-sysv4-macro.S, + avcall-powerpc64-linux.S, avcall-powerpc64-elfv2-linux.S, + avcall-ia64-macro.S, avcall-s390-macro.S. Remove avcall-alpha.s, + avcall-powerpc-linux.s, avcall-powerpc-sysv4.s, + avcall-powerpc64-linux.s, avcall-powerpc64-elfv2-linux.s, avcall-ia64.s, + avcall-s390.s. + (avcall-i386-macro.S, avcall-m68k.mit.S, avcall-m68k.motorola.S, + avcall-sparc-macro.S, avcall-sparc64-macro.S, avcall-hppa-macro.S, + avcall-x86_64-macro.S): Include noexecstack.h. + (avcall-alpha-linux.s): Renamed from avcall-alpha.s. + (avcall-alpha-macro.S): New rule. + (avcall-arm-macro.S, avcall-armhf-macro.S): Include noexecstack-arm.h. + (avcall-powerpc-linux-macro.S): New rule. + (avcall-powerpc-sysv4-macro.S): Replaces rule for + avcall-powerpc-sysv4.s. + (avcall-powerpc64-linux.S): Replaces rule for avcall-powerpc64-linux.s. + (avcall-powerpc64-elfv2-linux.S): Replaces rule for + avcall-powerpc64-elfv2-linux.s. + (avcall-ia64-linux.s): Renamed from avcall-ia64.s. + (avcall-ia64-macro.S): New rule. + (avcall-s390-linux.s): Renamed from avcall-s390.s. + (avcall-s390-macro.S): New rule. + * avcall/Makefile.in (avcall-alpha.s): New rule. + (avcall-alpha.lo): Update. + (avcall-powerpc.s): Use avcall-powerpc-linux-macro.S, + avcall-powerpc-sysv4-macro.S instead of avcall-powerpc-linux.s, + avcall-powerpc-sysv4.s. + (avcall-powerpc64.s): Use avcall-powerpc64-linux.S instead of + avcall-powerpc64-linux.s. + (avcall-powerpc64-elfv2.s): Use avcall-powerpc64-elfv2-linux.S instead + of avcall-powerpc64-elfv2-linux.s. + (avcall-ia64.s): New rule. + (avcall-ia64.lo): Update. + (avcall-s390.s): New rule. + (avcall-s390.lo): Update. + (clean): Remove also avcall-alpha.s, avcall-ia64.s, avcall-s390.s. + (SOURCE_FILES): Update. + * vacall/Makefile.devel (precompiled): Add vacall-alpha-macro.S, + vacall-powerpc-linux-macro.S, vacall-powerpc-sysv4-macro.S, + vacall-powerpc64-linux.S, vacall-powerpc64-elfv2-linux.S, + vacall-ia64-macro.S, vacall-s390-macro.S. Remove vacall-alpha.s, + vacall-powerpc-linux.s, vacall-powerpc-sysv4.s, + vacall-powerpc64-linux.s, vacall-powerpc64-elfv2-linux.s, vacall-ia64.s, + vacall-s390.s. + (vacall-i386-macro.S, vacall-m68k.mit.S, vacall-m68k.motorola.S, + vacall-sparc-macro.S, vacall-sparc64-macro.S, vacall-hppa-macro.S, + vacall-x86_64-macro.S): Include noexecstack.h. + (vacall-alpha-linux.s): Renamed from vacall-alpha.s. + (vacall-alpha-macro.S): New rule. + (vacall-arm-macro.S, vacall-armhf-macro.S): Include noexecstack-arm.h. + (vacall-powerpc-linux-macro.S): New rule. + (vacall-powerpc-sysv4-macro.S): Replaces rule for + vacall-powerpc-sysv4.s. + (vacall-powerpc64-linux.S): Replaces rule for vacall-powerpc64-linux.s. + (vacall-powerpc64-elfv2-linux.S): Replaces rule for + vacall-powerpc64-elfv2-linux.s. + (vacall-ia64-linux.s): Renamed from vacall-ia64.s. + (vacall-ia64-macro.S): New rule. + (vacall-s390-linux.s): Renamed from vacall-s390.s. + (vacall-s390-macro.S): New rule. + * vacall/Makefile.in (vacall-alpha.s): New rule. + (vacall-alpha.o): Update. + (vacall-powerpc.s): Use vacall-powerpc-linux-macro.S, + vacall-powerpc-sysv4-macro.S instead of vacall-powerpc-linux.s, + vacall-powerpc-sysv4.s. + (vacall-powerpc64.s): Use vacall-powerpc64-linux.S instead of + vacall-powerpc64-linux.s. + (vacall-powerpc64-elfv2.s): Use vacall-powerpc64-elfv2-linux.S instead + of vacall-powerpc64-elfv2-linux.s. + (vacall-ia64.s): New rule. + (vacall-ia64.o): Update. + (vacall-s390.s): New rule. + (vacall-s390.o): Update. + (clean): Remove also vacall-alpha.s, vacall-ia64.s, vacall-s390.s. + (SOURCE_FILES): Update. + * callback/vacall_r/Makefile.devel (precompiled): Add + vacall-powerpc64-linux.S, vacall-powerpc64-elfv2-linux.S, + vacall-ia64-macro.S. Remove vacall-powerpc64-linux.s, + vacall-powerpc64-elfv2-linux.s, vacall-ia64.s. + (vacall-i386-macro.S, vacall-m68k.mit.S, vacall-m68k.motorola.S, + vacall-sparc-macro.S, vacall-sparc64-macro.S, vacall-alpha-macro.S, + vacall-hppa-macro.S, vacall-powerpc-linux-macro.S, + vacall-powerpc-sysv4-macro.S, vacall-x86_64-macro.S, + vacall-s390-macro.S): Include noexecstack.h. + (vacall-arm-macro.S, vacall-armhf-macro.S): Include noexecstack-arm.h. + (vacall-powerpc64-linux.S): Replaces rule for vacall-powerpc64-linux.s. + (vacall-powerpc64-elfv2-linux.S): Replaces rule for + vacall-powerpc64-elfv2-linux.s. + (vacall-ia64-linux.s): Renamed from vacall-ia64.s. + (vacall-ia64-macro.S): New rule. + * callback/vacall_r/Makefile.in (vacall-powerpc64.s): Use + vacall-powerpc64-linux.S instead of vacall-powerpc64-linux.s. + (vacall-powerpc64-elfv2.s): Use vacall-powerpc64-elfv2-linux.S instead + of vacall-powerpc64-elfv2-linux.s. + (vacall-ia64.s): New rule. + (vacall-ia64.lo): Update. + (vacall-s390.s): New rule. + (vacall-s390.lo): Update. + (clean): Remove also vacall-ia64.s. + (SOURCE_FILES): Update. + * trampoline/cache-alpha.s: Remove file. + * trampoline/cache-hppa.s: Remove file. + * trampoline/cache-powerpc-macos.s, trampoline/cache-powerpc-sysv4.s: + Remove files. + * trampoline/cache-sparc-macro.S: Remove file. + * trampoline/tramp-hppa-macro.S: Renamed from trampoline/tramp-hppa.s. + Include "noexecstack.h". + * trampoline/tramp-ia64-macro.S: Renamed from trampoline/tramp-ia64.s. + Include "noexecstack.h". + * trampoline/tramp-powerpc64-aix.S: Include "noexecstack.h". + * trampoline/Makefile.devel: Rename GCCFLAGS to OLDGCCFLAGS in old + rules. + (cache-*): Remove old rules. + (precompiled): New target. + (cache-sparc-linux.s, cache-sparc-macro.S, cache-sparc64-linux.s, + cache-sparc64-macro.S, cache-alpha-linux.s, cache-alpha-macro.S, + cache-hppa-linux.s, cache-hppa-macro.S, cache-powerpc-linux.s, + cache-powerpc-linux-macro.S, cache-powerpc-macos.s): New rules. + * trampoline/Makefile.in (tramp-hppa.s): New rule. + (tramp-hppa.o): Update. + (tramp-powerpc64.s: Depend on noexecstack.h. + (tramp-ia64.s): New rule. + (tramp-ia64.o): Update. + (cache-sparc64.s): Update. + (cache-alpha.s): New rule. + (cache-alpha.o): Update. + (cache-hppa.s): New rule. + (cache-hppa.o): Update. + (cache-powerpc.s): New rule. + (cache-powerpc.o): Update. + (clean): Remove also tramp-hppa.s, tramp-ia64.s, cache-alpha.s, + cache-hppa.s, cache-powerpc.s. + (SOURCE_FILES): Update. + * callback/trampoline_r/cache-sparc-macro.S: Remove file. + * callback/trampoline_r/tramp-hppa-macro.S: Renamed from + callback/trampoline_r/tramp-hppa.s. Include "noexecstack.h". + * callback/trampoline_r/tramp-ia64-macro.S: Renamed from + callback/trampoline_r/tramp-ia64.s. Include "noexecstack.h". + * callback/trampoline_r/tramp-powerpc64-aix.S: Include "noexecstack.h". + * callback/trampoline_r/Makefile.maint (COPIED_FILES): Remove + cache-alpha.s, cache-hppa.s, cache-powerpc-macos.s, + cache-powerpc-sysv4.s. + * callback/trampoline_r/Makefile.devel: Rename GCCFLAGS to OLDGCCFLAGS + in old rules. + (cache-*): Remove old rules. + (precompiled): New target. + (cache-sparc-linux.s, cache-sparc-macro.S, cache-sparc64-linux.s, + cache-sparc64-macro.S, cache-alpha-linux.s, cache-alpha-macro.S, + cache-hppa-linux.s, cache-hppa-macro.S, cache-powerpc-linux.s, + cache-powerpc-linux-macro.S, cache-powerpc-macos.s): New rules. + * callback/trampoline_r/Makefile.in (tramp-hppa.s): New rule. + (tramp-hppa.lo): Update. + (tramp-powerpc64.s: Depend on noexecstack.h. + (tramp-ia64.s): New rule. + (tramp-ia64.lo): Update. + (cache-sparc64.s): Update. + (cache-alpha.s): New rule. + (cache-alpha.lo): Update. + (cache-hppa.s): New rule. + (cache-hppa.lo): Update. + (cache-powerpc.s): New rule. + (cache-powerpc.lo): Update. + (clean): Remove also tramp-hppa.s, tramp-ia64.s, cache-alpha.s, + cache-hppa.s, cache-powerpc.s. + (SOURCE_FILES): Update. + * Makefile.devel (precompiled): Recurse also into trampoline and + callback/trampoline_r directories. + * Makefile.in (SOURCE_FILES): Update. + (COPIED_FILES): Remove callback/trampoline_r/cache-alpha.s, + callback/trampoline_r/cache-hppa.s, + callback/trampoline_r/cache-powerpc-macos.s, + callback/trampoline_r/cache-powerpc-sysv4.s. + * NEWS: Mention the change. + +2017-06-10 Bruno Haible + + Simplify Makefile.devel. + * avcall/Makefile.devel (HOST, CPU): Remove unused variables. + * vacall/Makefile.devel (HOST, CPU): Likewise. + * trampoline/Makefile.devel (HOST, CPU): Likewise. + * callback/vacall_r/Makefile.devel (HOST, CPU): Likewise. + * callback/trampoline_r/Makefile.devel (HOST, CPU): Likewise. + +2017-06-10 Bruno Haible + + Make the EXECUTABLE_VIA_MMAP_FILE_SHARED support work on i386. + * trampoline/trampoline.c (alloc_trampoline): New local variable + 'function_x'. Use it instead of 'function' for the computation of the + relative address in the i386 trampoline. + * callback/trampoline_r/trampoline.c (alloc_trampoline_r): Likewise. + +2017-06-04 Bruno Haible + + build: Get rid of autom4te.cache directories. + * Makefile.maint (configure, $(SUBDIRS_CONFIGURE), $(ALL_CONFIG_H_IN)): + Remove autom4te.cache subdirectory. + +2017-06-04 Bruno Haible + + Change the license from GPLv2 to GPLv2+. + * **/configure.ac, **/*.3, **/*.html, **/minitests.c, + callback/MIGRATION, common/asm-*: Add copyright notice. + * m4/*.m4: Use GPLv2+ with exception notice. + * Everywhere else: Change GPLv2 copyright notice to GPLv2+ copyright + notice. Update copyright years. + +2017-06-03 Bruno Haible + + Make the cross-build.sh script work with argument 'all'. + * cross-tools/cross-build.sh: Fix typo. + +2017-06-03 Bruno Haible + + Improve support for SELinux. + * m4/codeexec.m4 (FFCALL_CODEEXEC_PAX): On SELinux systems, define + HAVE_MPROTECT_AFTER_MALLOC_CAN_EXEC to -1. + * trampoline/trampoline.c: When HAVE_MPROTECT_AFTER_MALLOC_CAN_EXEC is + -1, assume the worst and don't set EXECUTABLE_VIA_MALLOC_THEN_MPROTECT. + * callback/trampoline_r/trampoline.c: Likewise. + +2017-06-03 Bruno Haible + + Improve support for SELinux. + * m4/codeexec.m4 (FFCALL_CODEEXEC_PAX): On SELinux systems, define + HAVE_MPROTECT_AFTER_MMAP_CAN_EXEC to -1. + * trampoline/trampoline.c: When HAVE_MPROTECT_AFTER_MMAP_CAN_EXEC is -1, + assume the worst and don't set EXECUTABLE_VIA_MMAP_THEN_MPROTECT. + * callback/trampoline_r/trampoline.c: Likewise. + +2017-06-03 Bruno Haible + + Indent the *.m4 files. + * m4/as-underscore.m4: Use reasonable indentation. + * m4/cc-gcc.m4: Likewise. + * m4/codeexec.m4: Likewise. + * m4/endianness.m4: Likewise. + * m4/general.m4: Likewise. + * m4/getpagesize.m4: Likewise. + * m4/ireg.m4: Likewise. + * m4/ln.m4: Likewise. + * m4/mach-vm.m4: Likewise. + * m4/mmap.m4: Likewise. + * m4/mprotect.m4: Likewise. + * m4/pccstruct.m4: Likewise. + * m4/shm.m4: Likewise. + * m4/smallstruct.m4: Likewise. + * m4/proto.m4: Likewise. + (CL_PROTO_TRY, CL_PROTO_CONST, CL_PROTO_MISSING, CONST_VARIANTS, + SIZE_VARIANTS): Remove macros. + +2017-02-26 Bruno Haible + + Document more clearly the maintainer prerequisites. + * Makefile.in (ACLOCAL, AUTOCONF, AUTOHEADER): Add comments. + * README-hacking: Likewise. + Reported by Don Cohen in + + and Sam Steingold . + +2017-02-26 Bruno Haible + + Document the support for GNU Hurd. + * PLATFORMS, */PLATFORMS: List i686-unknown-gnu0.9 (gcc). + +2017-02-19 Bruno Haible + + configuration: Avoid running an unneeded test. + * m4/codeexec.m4 (FFCALL_CODEEXEC_PAX): Require FFCALL_CODEEXEC. Do + nothing if its result is that malloc()ed memory is already executable. + +2017-02-19 Bruno Haible + + Remove useless double-inclusion guard on .c files. + * avcall/tests.c: Remove double-inclusion guard. + * avcall/avcall-*.c: Likewise. Fix comment. + +2017-02-19 Bruno Haible + + powerpc: Fix build failure on MacOS X (regression from 2017-01-29). + 1. + * cross-tools/cross.conf: For powerpc-darwin, go back to gcc 3.3.6. + * cross-tools/patches/gcc-3.3.6.patch: New file. + * avcall/Makefile.devel (avcall-powerpc-macos.s): Use gcc 3.3.6. + * vacall/Makefile.devel (vacall-powerpc-macos.s): Use gcc 3.3.6. + * callback/vacall_r/Makefile.devel (vacall-powerpc-macos.s): Use gcc + 3.3.6. + 2. + * avcall/Makefile.in (avcall-powerpc.s): For MacOS, remove the .machine + pseudo-op. + * vacall/Makefile.in (vacall-powerpc.s): Likewise. + * callback/vacall_r/Makefile.in (vacall-powerpc.s): Likewise. + 3. + * PLATFORMS, */PLATFORMS: List powerpc-apple-darwin9.8.0 (gcc). + * NEWS: Mention the status of MacOS X / powerpc. + +2017-02-12 Bruno Haible + + Make the cross-build.sh script work on an x86_64-linux host. + * cross-tools/cross-build.sh: Remove the binutils-*/gprof directory. + * cross-tools/patches/binutils-*.patch: Backport a buffer overrun bug + fix from binutils-2.17. + +2017-02-12 Bruno Haible + + Make the cross-build.sh script more usable. + * README-hacking: Add more text. + * cross-tools/cross-build.sh: Don't assume the script is run from the + current directory. Accept a relative HOST_CROSS_DIR. + Reported by Don Cohen . + +2017-02-11 Bruno Haible + + Update documentation. + * NEWS: List the progress since version 1.12. + +2017-02-11 Bruno Haible + + powerpc: Add support for OpenBSD. + * avcall/Makefile.in (avcall-powerpc.s): Treat OpenBSD like NetBSD. + * vacall/Makefile.in (vacall-powerpc.s): Likewise. + * callback/vacall_r/Makefile.in (vacall-powerpc.s): Likewise. + +2017-02-11 Bruno Haible + + mips64: Add support for OpenBSD. + On OpenBSD, cacheflush() is declared in , see + openbsd-src/blob/master/lib/libarch/mips64/cacheflush.3 . + * trampoline/trampoline.c [__OpenBSD__]: Include . + * callback/trampoline_r/trampoline.c: Likewise. + +2017-02-11 Bruno Haible + + Support the LDFLAGS configure variable. + * avcall/Makefile.in (LDFLAGS): New variable. + Use it in all linking commands. + * vacall/Makefile.in (LDFLAGS): New variable. + Use it in all linking commands. + * trampoline/Makefile.in (LDFLAGS): New variable. + Use it in all linking commands. + * callback/Makefile.in (LDFLAGS): New variable. + Use it in all linking commands. + * callback/vacall_r/Makefile.in (LDFLAGS): New variable. + Use it in all linking commands. + * callback/trampoline_r/Makefile.in (LDFLAGS): New variable. + Use it in all linking commands. + +2017-02-11 Bruno Haible + + Fix build failure on Mac OS X 10.5 / x86_64. Regression from today. + * common/asm-x86_64.sh: Recognize symbol in symbol(%rip) syntax. + * vacall/Makefile.devel (vacall-x86_64-macro.S): Remove extra + postprocessing, now done by common/asm-x86_64.sh. + +2017-02-11 Bruno Haible + + Fix build failure on Mac OS X 10.5 / i386. Regression from today. + * common/asm-i386.sh: Simplify the function referencing code, originally + for PIC on ELF platforms, so that it works also on non-ELF platforms. + +2017-02-11 Bruno Haible + + x86_64: Add support for the x32 ABI on Linux. + * avcall/avcall.h.in: Optionally define __x86_64_x32__. + (__avword, __av_longlong): Define differently for __x86_64_x32__. + * avcall/Makefile.devel (avcall-x86_64-x32-linux.s): New target. + * avcall/Makefile.in (avcall-x86_64-x32.lo, avcall-x86_64-x32.s): New + targets. + (clean): Remove also avcall-x86_64-x32.s. + (SOURCE_FILES): Add avcall-x86_64-x32-linux.s. + * vacall/vacall-x86_64.c: Don't declare a register variable in %rbp for + GCC >= 4.9. + For __x86_64_x32__, treat return of 'long long' and 'unsigned long long' + differently. + * vacall/vacall.h.in: Optionally define __x86_64_x32__. + (__vaword, va_arg_longlong, va_return_longlong): Define differently for + __x86_64_x32__. + * callback/vacall_r/vacall_r.h.in: Likewise. + * vacall/Makefile.devel (vacall-x86_64-x32-linux.s): New target. + * vacall/Makefile.in (vacall-x86_64-x32.o, vacall-x86_64-x32.s): New + targets. + (clean): Remove also vacall-x86_64-x32.s. + (SOURCE_FILES): Add vacall-x86_64-x32-linux.s. + * trampoline/Makefile.devel (proto-x86_64-x32.s, tramp-x86_64-x32.o): + New targets. + * trampoline/proto-x86_64-x32.s: New generated file. + * trampoline/tramp-x86_64-x32.s: New file. + * trampoline/tramp-x86_64-x32.o: New generated file. + * trampoline/trampoline.c: Add code for __x86_64_x32__. + * callback/vacall_r/Makefile.devel (vacall-x86_64-x32-linux.s): New + target. + * callback/vacall_r/Makefile.in (vacall-x86_64-x32.lo, + vacall-x86_64-x32.s): New targets. + (clean): Remove also vacall-x86_64-x32.s. + (SOURCE_FILES): Add vacall-x86_64-x32-linux.s. + * callback/trampoline_r/Makefile.devel (proto-x86_64-x32.s, + tramp-x86_64-x32.o): New targets. + * callback/trampoline_r/proto.c: Specify env register for + __x86_64_x32__. + * callback/trampoline_r/proto-x86_64-x32.s: New generated file. + * callback/trampoline_r/tramp-x86_64-x32.s: New file. + * callback/trampoline_r/tramp-x86_64-x32.o: New generated file. + * callback/trampoline_r/trampoline.c: Add code for __x86_64_x32__. + * PLATFORMS, */PLATFORMS: List x86_64-unknown-linux (gcc -mx32). + +2017-02-11 Bruno Haible + + Simplify platform defines. Reverts commit from 2010-07-20. + * trampoline/trampoline.h.in: Remove CPU symbol definitions. + * callback/trampoline_r/trampoline_r.h.in: Likewise. + +2017-02-11 Bruno Haible + + powerpc64: Add support for the ELFv2 ABI on Linux. + * avcall/avcall-powerpc64.c: Handle small struct return in registers + when __AV_REGISTER_STRUCT_RETURN is set. + * avcall/avcall.h.in: Optionally define __powerpc64_elfv2__. + (__AV_REGISTER_STRUCT_RETURN): Define also for __powerpc64__. + (__av_reg_struct_return, __av_start_struct3): Define differently for + __powerpc64_elfv2__. + (av_float) [__powerpc64__]: Define in a simplified way if + __AV_AIXCC_FLOAT_ARGS cannot be set. + (__av_struct): Define differently for little-endian __powerpc64__. + * avcall/Makefile.devel (avcall-powerpc64-elfv2-linux.s): New target. + * avcall/Makefile.in (avcall-powerpc64-elfv2.lo, + avcall-powerpc64-elfv2.s): New targets. + (clean): Remove also avcall-powerpc64-elfv2.s. + (SOURCE_FILES): Add avcall-powerpc64-elfv2-linux.s. + * vacall/vacall-powerpc64.c: Handle small struct return in registers + when __VA_REGISTER_STRUCT_RETURN is set. + * vacall/vacall.h.in: Optionally define __powerpc64_elfv2__. + (__VA_REGISTER_STRUCT_RETURN): Define also for __powerpc64__. + (__va_reg_struct_return, __va_start_struct1): Define differently for + __powerpc64_elfv2__. + (__va_arg_adjusted): Define differently for little-endian __powerpc64__. + (va_arg_float) [__powerpc64__]: Define in a simplified way if + __VA_AIXCC_FLOAT_ARGS cannot be set. + * callback/vacall_r/vacall_r.h.in: Likewise. + * vacall/Makefile.devel (vacall-powerpc64-elfv2-linux.s): New target. + * vacall/Makefile.in (vacall-powerpc64-elfv2.o, + vacall-powerpc64-elfv2.s): New targets. + (clean): Remove also vacall-powerpc64-elfv2.s. + (SOURCE_FILES): Add vacall-powerpc64-elfv2-linux.s. + * trampoline/Makefile.devel (proto-powerpc64-elfv2.s, + tramp-powerpc64-elfv2.o): New targets. + * trampoline/proto-powerpc64elfv2.s: New generated file. + * trampoline/tramp-powerpc64elfv2.s: New file. + * trampoline/tramp-powerpc64elfv2.o: New generated file. + * trampoline/trampoline.c: Add code for __powerpc64_elfv2__. + * callback/vacall_r/Makefile.devel (vacall-powerpc64-elfv2-linux.s): + New target. + * callback/vacall_r/Makefile.in (vacall-powerpc64-elfv2.lo, + vacall-powerpc64-elfv2.s): New targets. + (clean): Remove also vacall-powerpc64-elfv2.s. + (SOURCE_FILES): Add vacall-powerpc64-elfv2-linux.s. + * callback/trampoline_r/Makefile.devel (proto-powerpc64-elfv2.s, + tramp-powerpc64-elfv2.o): New targets. + * callback/trampoline_r/proto-powerpc64elfv2.s: New generated file. + * callback/trampoline_r/tramp-powerpc64elfv2.s: New file. + * callback/trampoline_r/tramp-powerpc64elfv2.o: New generated file. + * callback/trampoline_r/trampoline.c: Add code for __powerpc64_elfv2__. + * PLATFORMS, */PLATFORMS: List powerpc64le-unknown-linux (gcc). + +2017-02-11 Bruno Haible + + powerpc64: Add support for AIX in a 64-bit build, with xlc. + * avcall/avcall.h.in (__AV_AIXCC_FLOAT_ARGS, __AV_FLOAT_ARGS): New enum + values. + (__AV_START_FLAGS): Include __AV_FLOAT_ARGS. + (av_float) [__powerpc64__]: Pick word according to whether + __AV_AIXCC_FLOAT_ARGS is set. + * vacall/vacall.h.in (__VA_AIXCC_FLOAT_ARGS, __VA_FLOAT_ARGS): New enum + values. + (__VA_START_FLAGS): Include __VA_FLOAT_ARGS. + (va_arg_float) [__powerpc64__]: Pick word according to whether + __VA_AIXCC_FLOAT_ARGS is set. + * callback/vacall_r/vacall_r.h.in: Likewise. + * PLATFORMS, */PLATFORMS: List powerpc-ibm-aix7.1.3.0 (xlc -q64). + +2017-02-11 Bruno Haible + + powerpc64: Add support for AIX in a 64-bit build, with gcc. + * avcall/avcall.h.in (__AV_AIXCC_STRUCT_ARGS): Define also on + __powerpc64__. + (__AV_STRUCT_ARGS): Set to __AV_AIXCC_STRUCT_ARGS on __powerpc64__ with + AIX. + (__av_struct): Define for __powerpc64__ like for __powerpc__. + * vacall/vacall.h.in (__VA_AIXCC_STRUCT_ARGS): Define also on + __powerpc64__. + (__VA_STRUCT_ARGS): Set to __VA_AIXCC_STRUCT_ARGS on __powerpc64__ with + AIX. + (__va_arg_struct): Define for __powerpc64__ with AIX like for + __powerpc__ with AIX. + * callback/vacall_r/vacall_r.h.in: Likewise. + * PLATFORMS, */PLATFORMS: List powerpc-ibm-aix7.1.3.0 (gcc -maix64). + +2017-02-11 Bruno Haible + + powerpc64: Add support for AIX in a 64-bit build, part 1. + * avcall/Makefile.devel (avcall-powerpc64-aix.s, + avcall-powerpc64-linux.s): New targets. + (avcall-powerpc64.s): Remove target. + * avcall/Makefile.in (avcall-powerpc64.s): New target. + (avcall-powerpc64.lo): Update. + (clean): Remove also avcall-powerpc64.s. + (SOURCE_FILES): Add avcall-powerpc64-aix.s, avcall-powerpc64-linux.s. + Remove avcall-powerpc64.s. + * vacall/Makefile.devel (vacall-powerpc64-aix.s, + vacall-powerpc64-linux.s): New targets. + (vacall-powerpc64.s): Remove target. + * vacall/Makefile.in (vacall-powerpc64.s): New target. + (vacall-powerpc64.o): Update. + (clean): Remove also vacall-powerpc64.s. + (SOURCE_FILES): Add vacall-powerpc64-aix.s, vacall-powerpc64-linux.s. + Remove vacall-powerpc64.s. + * callback/vacall_r/Makefile.devel (vacall-powerpc64-aix.s, + vacall-powerpc64-linux.s): New targets. + (vacall-powerpc64.s): Remove target. + * callback/vacall_r/Makefile.in (vacall-powerpc64.s): New target. + (vacall-powerpc64.lo): Update. + (clean): Remove also vacall-powerpc64.s. + (SOURCE_FILES): Add vacall-powerpc64-aix.s, vacall-powerpc64-linux.s. + Remove vacall-powerpc64.s. + +2017-02-11 Bruno Haible + + powerpc64: Update Makefile.devel rules. + * trampoline/Makefile.devel (CROSS_TOOL): New variable. + (proto-powerpc64-aix.s): Update rule. + * callback/trampoline_r/Makefile.devel (proto-powerpc64-aix.s): Update + rule. + +2017-02-11 Bruno Haible + + hppa: Fix bug with structure return for sizes 5, 6, 7. + * avcall/avcall-hppa.c: For structure return for sizes > 4, get 4 bytes + from iret2. + * vacall/vacall-hppa.c: For structure return for sizes > 4, put 4 bytes + into iret2. + +2017-02-11 Bruno Haible + + x86_64: Fix bug with structure return for sizes < 16, != 1, 2, 4, 8. + * avcall/avcall-x86_64.c: Treat structure returns for all sizes <= 16 + like those with sizes 1, 2, 4, 8, 16. + +2017-02-11 Bruno Haible + + Add some dedicated small structure return tests. + * avcall/tests.c (Size1, Size2, Size3, Size4, Size7, Size8, Size12, + Size15, Size16): New types. + (S1_v, S2_v, S3_v, S4_v, S7_v, S8_v, S12_v, S15_v, S15_v): New tests. + * vacall/tests.c: Likewise. + * callback/tests.c: Likewise. + +2017-02-11 Bruno Haible + + Remove outdated no-op definition. + * vacall/vacall.h.in (__VA_ANSI_FLOAT_ARGS): Remove enum value. + +2017-02-11 Bruno Haible + + powerpc: Don't special-case NetBSD. + * vacall/vacall-powerpc.c: Remove special case of NetBSD. + * callback/vacall_r/Makefile.devel (vacall-powerpc-netbsd-macro.S): + Remove target. + * callback/vacall_r/vacall-powerpc-netbsd.s: Remove file. + * callback/vacall_r/vacall-powerpc-netbsd-macro.S: Remove file. + * callback/vacall_r/Makefile.in (vacall-powerpc.s): Use + vacall-powerpc-linux-macro.S instead of vacall-powerpc-netbsd-macro.S. + (SOURCE_FILES): Remove vacall-powerpc-netbsd.s, + vacall-powerpc-netbsd-macro.S. + * callback/trampoline_r/proto.c: Remove special case of powerpc/NetBSD. + * callback/trampoline_r/trampoline.c: Remove special case of + powerpc/NetBSD. + * callback/trampoline_r/test1.c: Likewise. + +2017-02-11 Bruno Haible + + m68k: Don't special-case NetBSD. + * callback/call-used-registers.txt: Add comment about NetBSD. + * vacall/vacall-m68k.c: Remove special case of NetBSD. + * callback/vacall_r/Makefile.devel (vacall-m68k-netbsd-macro.S): Remove + target. + * callback/vacall_r/Makefile.in (vacall-m68k.s): Always use + vacall-m68k.mit.S. + (SOURCE_FILES): Remove vacall-m68k-netbsd-macro.S. + * callback/trampoline_r/proto.c: Remove special case of m68k/NetBSD. + * callback/trampoline_r/proto-m68k-netbsd.s: Remove file. + * callback/trampoline_r/tramp-m68k-netbsd.s: Remove file. + * callback/trampoline_r/tramp-m68k-netbsd.o: Remove file. + * callback/trampoline_r/Makefile.devel (proto-m68k-netbsd.s, + tramp-m68k-netbsd.o): Remove targets. + * callback/trampoline_r/trampoline.c: Remove special case of + m68k/NetBSD. + * callback/trampoline_r/test1.c: Likewise. + +2017-02-11 Bruno Haible + + Revert BINFMT_ELF hack. + * callback/elf-hack.txt: Explain the new workaround. + * callback/vacall_r/Makefile.devel (vacall-i386-macro.S, + vacall-m68k.mit.S, vacall-m68k.motorola.S, vacall-m68k-netbsd-macro.S, + vacall-mipseb-macro.S, vacall-mipsel-macro.S, vacall-mipsn32eb-macro.S, + vacall-mipsn32el-macro.S, vacall-mips64eb-macro.S, + vacall-mips64el-macro.S, vacall-alpha-macro.S, + vacall-powerpc-linux-macro.S, vacall-powerpc-netbsd-macro.S, + vacall-powerpc-sysv4-macro.S, vacall-x86_64-macro.S, + vacall-s390-macro.S): Don't postprocess through elfhack-*.sed. + * callback/vacall_r/elfhack-alpha.S: Remove file. + * callback/vacall_r/elfhack-alpha.sed: Remove file. + * callback/vacall_r/elfhack-i386.S: Remove file. + * callback/vacall_r/elfhack-i386.sed: Remove file. + * callback/vacall_r/elfhack-m68k.S: Remove file. + * callback/vacall_r/elfhack-m68k.sed: Remove file. + * callback/vacall_r/elfhack-mips.S: Remove file. + * callback/vacall_r/elfhack-mips.sed: Remove file. + * callback/vacall_r/elfhack-mips64.S: Remove file. + * callback/vacall_r/elfhack-mips64.sed: Remove file. + * callback/vacall_r/elfhack-powerpc.S: Remove file. + * callback/vacall_r/elfhack-powerpc.sed: Remove file. + * callback/vacall_r/elfhack-s390.S: Remove file. + * callback/vacall_r/elfhack-s390.sed: Remove file. + * callback/vacall_r/elfhack-x86_64.S: Remove file. + * callback/vacall_r/elfhack-x86_64.sed: Remove file. + * callback/vacall_r/Makefile.in (ASPFLAGS): Don't set BINFMT_ELF. + (SOURCE_FILES): Remove elhack-*.S and elfhack-*.sed. + * callback/vacall_r/configure.ac: Don't invoke FFCALL_BINFMT_ELF. + * callback/trampoline_r/trampoline.c: Remove code for BINFMT_ELF. + * callback/trampoline_r/tramp-alpha.s: Remove trampelf. + * callback/trampoline_r/tramp-alpha.o: Regenerated. + * callback/trampoline_r/tramp-i386.s: Remove trampelf. + * callback/trampoline_r/tramp-i386.o: Regenerated. + * callback/trampoline_r/tramp-m68k-netbsd.s: Remove trampelf. + * callback/trampoline_r/tramp-m68k-netbsd.o: Regenerated. + * callback/trampoline_r/tramp-m68k.s: Remove trampelf. + * callback/trampoline_r/tramp-m68k.o: Regenerated. + * callback/trampoline_r/tramp-mips.s: Remove trampelf. + * callback/trampoline_r/tramp-mips.o: Regenerated. + * callback/trampoline_r/tramp-mips64.s: Remove trampelf. + * callback/trampoline_r/tramp-mips64.o: Regenerated. + * callback/trampoline_r/tramp-powerpc-sysv4.s: Remove trampelf. + * callback/trampoline_r/tramp-powerpc-sysv4.o: Regenerated. + * callback/trampoline_r/tramp-s390.s: Remove trampelf. + * callback/trampoline_r/tramp-s390.o: Regenerated. + * callback/trampoline_r/tramp-x86_64.s: Remove trampelf. + * callback/trampoline_r/tramp-x86_64.o: Regenerated. + * callback/trampoline_r/test1.c: Reenable on ELF platforms. + * callback/trampoline_r/configure.ac: Don't invoke FFCALL_BINFMT_ELF. + * callback/configure.ac: Don't invoke FFCALL_BINFMT_ELF_OPTION. + * configure.ac: Don't invoke FFCALL_BINFMT_ELF_OPTION. + * m4/binfmt-elf.m4: Remove file. + * Makefile.in (SOURCE_FILES): Remove it. + * README: Update regarding the ELF problem. + +2017-02-11 Bruno Haible + + Access __vacall_r through an indirection, except on SPARC. + * callback/vacall_r/vacall_r.h.in (__vacall_r_t): New type. + (get__vacall_r): New declaration. + (__vacall_r): Remove declaration. + * vacall/vacall-alpha.c [REENTRANT]: Make __vacall_r static. + (get__vacall_r): New function. + * vacall/vacall-arm.c: Likewise. + * vacall/vacall-armhf.c: Likewise. + * vacall/vacall-hppa.c: Likewise. + * vacall/vacall-i386.c: Likewise. + * vacall/vacall-ia64.c: Likewise. + * vacall/vacall-m68k.c: Likewise. + * vacall/vacall-mips.c: Likewise. + * vacall/vacall-mipsn32.c: Likewise. + * vacall/vacall-mips64.c: Likewise. + * vacall/vacall-powerpc.c: Likewise. + * vacall/vacall-powerpc64.c: Likewise. + * vacall/vacall-s390.c: Likewise. + * vacall/vacall-x86_64.c: Likewise. + * callback/vacall_r/vacall-powerpc-netbsd-macro.S: Update accordingly. + * callback/vacall_r/Makefile.devel (vacall-mipseb-linux.s, + vacall-mipsel-linux.s): Use option -mno-explicit-relocs. Needed for + IRIX. + * callback/vacall_r/Makefile.in (vacall-i386.s): Remove space after '@'. + Needed on Solaris/x86. + * callback/callback.h.in (alloc_callback, is_callback): Use + get__vacall_r(). + +2017-01-29 Bruno Haible + + s390: Regenerate .s and .S files with known compilers. + * avcall/avcall-s390.c: Fix include statement. + * avcall/Makefile.devel (avcall-s390.s): New target. + * vacall/Makefile.devel (vacall-s390.s): New target. + * callback/vacall_r/Makefile.devel (vacall-s390-linux.s): New target. + * avcall/Makefile.in: Move avcall-s390.lo target. + * vacall/Makefile.in: Move vacall-s390.o target. + * avcall/avcall-s390.s: Remove from version control. + * vacall/vacall-s390.s: Likewise. + * callback/vacall_r/vacall-s390-linux.s: Likewise. + * callback/vacall_r/vacall-s390-macro.S: Likewise. + +2017-01-29 Bruno Haible + + x86_64: Regenerate .s and .S files with known compilers. + * common/asm-x86_64.h (P2ALIGN): New macro. + (ALIGN): Remove macro. + * common/asm-x86_64.sh: Rewritten to consume ELF input. Produce L, + P2ALIGN macros. + * avcall/avcall-x86_64.c: Use __builtin_alloca instead of hacking on the + 'sp' register. + * avcall/Makefile.devel (avcall-x86_64-linux.s): Rewritten. + * vacall/Makefile.devel (vacall-x86_64-linux.s): Rewritten. + * callback/vacall_r/Makefile.devel (vacall-x86_64-linux.s): Rewritten. + * avcall/avcall-x86_64-linux.s: Remove from version control. + * avcall/avcall-x86_64-macro.S: Likewise. + * vacall/vacall-x86_64-linux.s: Likewise. + * vacall/vacall-x86_64-macro.S: Likewise. + * callback/vacall_r/vacall-x86_64-linux.s: Likewise. + * callback/vacall_r/vacall-x86_64-macro.S: Likewise. + +2017-01-29 Bruno Haible + + ia64: Regenerate .s and .S files with known compilers. + * avcall/Makefile.devel (avcall-ia64.s): Rewritten. + * vacall/Makefile.devel (vacall-ia64.s): Rewritten. + * callback/vacall_r/Makefile.devel (vacall-ia64.s): Rewritten. + * vacall/vacall-ia64.c: Put all local variables in a struct. + * avcall/avcall-ia64.s: Remove from version control. + * vacall/vacall-ia64.s: Likewise. + * callback/vacall_r/vacall-ia64.s: Likewise. + +2017-01-29 Bruno Haible + + powerpc, powerpc64: Regenerate .s and .S files with known compilers. + * avcall/avcall-powerpc64.c: Use __builtin_alloca. Use an 'if' cascade + instead of gotos. + * avcall/Makefile.devel (avcall-powerpc-linux.s): New target. + (avcall-powerpc-aix.s, avcall-powerpc-sysv4.s, avcall-powerpc-macos.s, + avcall-powerpc64.s): Rewritten. + * vacall/Makefile.devel (vacall-powerpc-linux.s): New target. + (vacall-powerpc-aix.s, vacall-powerpc-sysv4.s, vacall-powerpc-macos.s, + vacall-powerpc64.s): Rewritten. + * callback/vacall_r/Makefile.devel (vacall-powerpc-linux.s): New target. + (vacall-powerpc-aix.s, vacall-powerpc-sysv4-macro.S, + vacall-powerpc-macos.s, vacall-powerpc64.s): Rewritten. + * avcall/avcall-powerpc-aix.s: Remove from version control. + * avcall/avcall-powerpc-linux.s: Likewise. + * avcall/avcall-powerpc-sysv4.s: Likewise. + * avcall/avcall-powerpc-macos.s: Likewise. + * avcall/avcall-powerpc64.s: Likewise. + * vacall/vacall-powerpc-aix.s: Likewise. + * vacall/vacall-powerpc-linux.s: Likewise. + * vacall/vacall-powerpc-sysv4.s: Likewise. + * vacall/vacall-powerpc-macos.s: Likewise. + * vacall/vacall-powerpc64.s: Likewise. + * callback/vacall_r/vacall-powerpc-aix.s: Likewise. + * callback/vacall_r/vacall-powerpc-linux.s: Likewise. + * callback/vacall_r/vacall-powerpc-linux-macro.S: Likewise. + * callback/vacall_r/vacall-powerpc-sysv4-macro.S: Likewise. + * callback/vacall_r/vacall-powerpc-macos.s: Likewise. + * callback/vacall_r/vacall-powerpc64.s: Likewise. + +2017-02-11 Bruno Haible + + armhf: Add support for arm with -mfloat-abi=hard. + * avcall/avcall.h.in: Add code for __armhf__, especially __av_start1, + __av_start_struct4, av_long, av_ulong, av_ptr, __av_longlong, av_float, + av_double, __av_struct. + * avcall/avcall-armhf.c: New file. + * avcall/Makefile.devel (avcall-armhf-macro.S): New target. + * avcall/Makefile.in (avcall-armhf.lo, avcall-armhf.s): New targets. + (clean): Remove avcall-armhf.s. + (SOURCE_FILES): Add avcall-armhf.c, avcall-armhf-macro.S. + * vacall/vacall.h.in: Add code for __armhf__, especially va_arg_float, + va_arg_double. + * vacall/vacall-armhf.c: New file. + * vacall/Makefile.devel (vacall-armhf-macro.S): New target. + * vacall/Makefile.in (vacall-armhf.o, vacall-armhf.s): New targets. + (clean): Remove vacall-armhf.s. + (SOURCE_FILES): Add vacall-armhf.c, vacall-armhf-macro.S. + * callback/vacall_r/Makefile.maint (COPIED_FILES): Add vacall-armhf.c. + * Makefile.in (COPIED_FILES): Add callback/vacall_r/vacall-armhf.c. + * callback/vacall_r/vacall_r.h.in: Add code for __armhf__, especially + va_arg_float, va_arg_double. + * callback/vacall_r/Makefile.devel (vacall-armhf-macro.S): New target. + * callback/vacall_r/Makefile.in (vacall-armhf.lo, vacall-armhf.s): New + targets. + (clean): Remove vacall-armhf.s. + (SOURCE_FILES): Add vacall-armhf.c, vacall-armhf-macro.S. + * trampoline/trampoline.h.in: Optionally define __armhf__. + * trampoline/trampoline.c: Treat __armhf__ like __arm__. + * callback/trampoline_r/trampoline_r.h.in: Optionally define __armhf__. + * callback/trampoline_r/trampoline.c: Treat __armhf__ like __arm__. + * PLATFORMS, */PLATFORMS: List the armv7 machine with 'hard' floats. + +2017-02-11 Bruno Haible + + arm: Make callback work, for -mfloat-abi=soft. + * callback/trampoline_r/Makefile.devel (CROSS_TOOL): New variable. + (proto-arm.s): Use known cross-compiler and -fno-omit-frame-pointer. + (tramp-arm.o): Use known cross-assembler. + * callback/trampoline_r/proto-arm.s: Regenerated. + * callback/trampoline_r/tramp-arm.s: Try three different trampolines. + The third one, trampcallwithframe, works. + * callback/trampoline_r/tramp-arm.o: Regenerated. + * callback/call-used-registers.txt: Add comments about arm. + * callback/trampoline_r/trampoline.c: For arm, use a trampoline with + standard prologue with struct args and standard epilogue. + * callback/trampoline_r/test1.c: On arm platforms, don't check the + passing of env. + * vacall/vacall-arm.c [REENTRANT]: Expect to find env on the stack, not + in r12. + * callback/vacall_r/Makefile.devel (vacall-arm-macro.S): Don't + postprocess through elfhack-arm.sed. + * callback/vacall_r/elfhack-arm.S: Remove file. + * callback/vacall_r/elfhack-arm.sed: Remove file. + * callback/vacall_r/Makefile.in (SOURCE_FILES): Remove elfhack-arm.S, + elfhack-arm.sed. + * PLATFORMS: List the arm5 machine with 'soft' floats. + * callback/PLATFORMS: Likewise. + +2017-01-31 Bruno Haible + + arm: Make vacall work, for -mfloat-abi=soft. + * vacall/vacall.h.in [__arm__] (__va_alist): Enable the filler word. + * callback/vacall_r/vacall_r.h.in: Likewise. + * vacall/vacall-arm.c: Use a split struct to convince GCC to allocate + room on the stack for the first 4 general-purpose argument words. + * vacall/PLATFORMS: List the arm5 machine with 'soft' floats. + * avcall/PLATFORMS: Likewise. + +2017-01-29 Bruno Haible + + arm: Fulfil the constraint that the sp register must be 8-bytes-aligned. + * avcall/avcall-arm.c: Enforce 8-bytes-alignment of the stack pointer. + * vacall/vacall-arm.c: Likewise. + + arm: Remove support for old arm platforms without the ARM EABI. + * avcall/avcall.h.in: Revisit all __arm__ and __ARMEL__ conditionals. + * vacall/vacall.h.in: Likewise. + * callback/vacall_r/vacall_r.h.in: Likewise. + * avcall/avcall-arm.c: Renamed from avcall/avcall-armel.c. + * avcall/Makefile.devel (avcall-arm-macro.S): Make sure it's usable for + both endiannesses. + (avcall-armel.s): Remove target. + * avcall/Makefile.in (avcall-armel.lo): Remove target. + (SOURCE_FILES): Remove avcall-armel.[cs]. + * vacall/vacall-arm.c: Renamed from vacall/vacall-armel.c. + * vacall/Makefile.devel (vacall-arm-macro.S): Make sure it's usable for + both endiannesses. + (vacall-armel.s): Remove target. + * vacall/Makefile.in (vacall-armel.o): Remove target. + (SOURCE_FILES): Remove vacall-armel.[cs]. + * Makefile.in (COPIED_FILES): Remove callback/vacall_r/vacall-armel.c. + * callback/vacall_r/Makefile.devel (vacall-arm-macro.S): Make sure it's + usable for both endiannesses. + (vacall-armel-macro.S): Remove target. + * callback/vacall_r/Makefile.maint (COPIED_FILES): Remove + vacall-armel.c. + * callback/vacall_r/Makefile.in (vacall-armel.lo, vacall-armel.s): + Remove targets. + (clean): Don't remove vacall-armel.s. + (SOURCE_FILES): Remove vacall-armel.c, vacall-armel-macro.S. + + arm: Regenerate .s and .S files with known compilers. + * common/asm-arm.h (L, FUNBEGIN, FUNEND): New macros. + * common/asm-arm.sh: Rewritten to consume ELF input. Produce L, + FUNBEGIN, FUNEND macros. + * avcall/Makefile.devel (avcall-arm-macro.S, avcall-armel.s): Rewritten. + * vacall/Makefile.devel (vacall-arm-macro.S, vacall-armel.s): Rewritten. + * callback/vacall_r/Makefile.devel (vacall-arm-macro.S, + vacall-armel-macro.S): Rewritten. + * avcall/avcall-arm-macro.S: Remove from version control. + * avcall/avcall-armel.s: Likewise. + * vacall/vacall-arm-macro.S: Likewise. + * vacall/vacall-armel.s: Likewise. + * callback/vacall_r/vacall-arm-macro.S: Likewise. + * callback/vacall_r/vacall-armel-macro.S: Likewise. + +2017-01-29 Bruno Haible + + hppa: Regenerate .s and .S files with known compilers. + * common/asm-hppa.sh: New file. + * common/asm-hppa.h: New file. + * Makefile.in (SOURCE_FILES): Add them. + * avcall/Makefile.devel (avcall-hppa-linux.s, avcall-hppa-macro.S): New + targets. + (avcall-hppa.s): Remove target. + * avcall/Makefile.in (avcall-hppa.s): New target. + (avcall-hppa.lo): Update. + (clean): Remove also avcall-hppa.s. + (SOURCE_FILES): Add avcall-hppa-linux.s, avcall-hppa-macro.S. Remove + avcall-hppa.s. + * vacall/vacall-hppa.c: Use explicit assignments to move the arguments + to their stack locations. + * vacall/Makefile.devel (vacall-hppa-linux.s, vacall-hppa-macro.S): New + targets. + (vacall-hppa.s): Remove target. + * vacall/Makefile.in (vacall-hppa.s): New target. + (vacall-hppa.o): Update. + (clean): Remove also vacall-hppa.s. + (SOURCE_FILES): Add vacall-hppa-linux.s, vacall-hppa-macro.S. Remove + vacall-hppa.s. + * callback/vacall_r/Makefile.devel (vacall-hppa-linux.s, + vacall-hppa-macro.S): New targets. + (vacall-hppa.s): Remove target. + * callback/vacall_r/Makefile.in (vacall-hppa.s): New target. + (vacall-hppa.lo): Update. + (clean): Remove also vacall-hppa.s. + (SOURCE_FILES): Add vacall-hppa-linux.s, vacall-hppa-macro.S. Remove + vacall-hppa.s. + * avcall/avcall-hppa.s: Remove from version control. + * vacall/vacall-hppa.s: Likewise. + * callback/vacall_r/vacall-hppa.s: Likewise. + * PLATFORMS, */PLATFORMS: List hppa2.0w-hp-hpux11.31 (cc). + +2017-01-29 Bruno Haible + + alpha: Regenerate .s and .S files with known compilers. + * avcall/avcall-alpha.c: Use __builtin_alloca. + * avcall/Makefile.devel (precompiled): Depend on avcall-alpha.s. + (avcall-alpha.s): Rewritten. + * vacall/vacall-alpha.c: Put all local variables in a struct. + * vacall/Makefile.devel (precompiled): Depend on vacall-alpha.s. + (vacall-alpha.s): Rewritten. + * callback/vacall_r/Makefile.devel (precompiled): Depend on + vacall-alpha-macro.S. + (vacall-alpha-linux.s): New target. + (vacall-alpha-macro.S): Rewritten. + * callback/vacall_r/Makefile.in (SOURCE_FILES): Add + vacall-alpha-linux.s. + * avcall/avcall-alpha.s: Remove from version control. + * vacall/vacall-alpha.s: Likewise. + * callback/vacall_r/vacall-alpha-macro.S: Likewise. + +2017-01-29 Bruno Haible + + sparc64: Fix for Solaris. + * vacall/Makefile.devel (vacall-sparc64-linux.s): Produce code that does + not make assumptions about the address space. + * PLATFORMS, */PLATFORMS: List sparc64-sun-solaris2.10 (gcc -m64, + cc -xarch=generic64). + +2017-01-29 Bruno Haible + + sparc, sparc64: Regenerate .s and .S files with known compilers. + * common/asm-sparc.h (L, FUNBEGIN, FUNEND): New macros. + * common/asm-sparc.sh: Rewritten to consume ELF input. Produce L, + FUNBEGIN, FUNEND macros. + * common/asm-sparc64.sh: Remove file. + * Makefile.in (SOURCE_FILES): Remove common/asm-sparc64.sh. + * avcall/Makefile.devel (precompiled): Depend on avcall-sparc-macro.S + and avcall-sparc64-macro.S. + (avcall-sparc-linux.s, avcall-sparc64-linux.s): New target. + (avcall-sparc-macro.S, avcall-sparc64-macro.S): Rewritten. + * avcall/Makefile.in (SOURCE_FILES): Add avcall-sparc-linux.s, + avcall-sparc64-linux.s. + * vacall/Makefile.devel (precompiled): Depend on vacall-sparc-macro.S + and vacall-sparc64-macro.S. + (vacall-sparc-linux.s, vacall-sparc64-linux.s): New target. + (vacall-sparc-macro.S, vacall-sparc64-macro.S): Rewritten. + * vacall/Makefile.in (SOURCE_FILES): Add vacall-sparc-linux.s, + vacall-sparc64-linux.s. + * callback/vacall_r/Makefile.devel (precompiled): Depend on + vacall-sparc-macro.S and vacall-sparc64-macro.S. + (vacall-sparc-linux.s, vacall-sparc64-linux.s): New target. + (vacall-sparc-macro.S, vacall-sparc64-macro.S): Rewritten. + * callback/vacall_r/Makefile.in (SOURCE_FILES): Add + vacall-sparc-linux.s, vacall-sparc64-linux.s. + * avcall/avcall-sparc-macro.S: Remove from version control. + * avcall/avcall-sparc64-macro.S: Likewise. + * vacall/vacall-sparc-macro.S: Likewise. + * vacall/vacall-sparc64-macro.S: Likewise. + * callback/vacall_r/vacall-sparc-macro.S: Likewise. + * callback/vacall_r/vacall-sparc64-macro.S: Likewise. + +2017-01-29 Bruno Haible + + mips64: Make it work on Linux (mips64, mips64el) with "gcc -mabi=64". + * avcall/avcall-mips64.c: Add code for struct returns on _MIPSEL. + * avcall/Makefile.devel (avcall-mips64eb-linux.s, + avcall-mips64eb-macro.S, avcall-mips64el-linux.s, + avcall-mips64el-macro.S): New targets. + (avcall-mips64-linux.s, avcall-mips64-macro.S): Remove targets. + * avcall/Makefile.in (avcall-mips64.s): Take into account the + ENDIANNESS. + (SOURCE_FILES): Add avcall-mips64eb-linux.s, avcall-mips64el-linux.s, + avcall-mips64eb-macro.S, avcall-mips64el-macro.S. + Remove avcall-mips64-linux.s, avcall-mips64-macro.S. + * vacall/vacall-mips64.c: Add code for struct returns on _MIPSEL. + * vacall/Makefile.devel (vacall-mips64eb-linux.s, + vacall-mips64eb-macro.S, vacall-mips64el-linux.s, + vacall-mips64el-macro.S): New targets. + (vacall-mips64-linux.s, vacall-mips64-macro.S): Remove targets. + * vacall/Makefile.in (vacall-mips64.s): Take into account the + ENDIANNESS. + (SOURCE_FILES): Add vacall-mips64eb-linux.s, vacall-mips64el-linux.s, + vacall-mips64eb-macro.S, vacall-mips64el-macro.S. + Remove vacall-mips64-linux.s, vacall-mips64-macro.S. + * callback/vacall_r/Makefile.devel (vacall-mips64eb-linux.s, + vacall-mips64eb-macro.S, vacall-mips64el-linux.s, + vacall-mips64el-macro.S): New targets. + (vacall-mips64-linux.s, vacall-mips64-macro.S): Remove targets. + * callback/vacall_r/Makefile.in (vacall-mips64.s): Take into account the + ENDIANNESS. + (SOURCE_FILES): Add vacall-mips64eb-linux.s, vacall-mips64el-linux.s, + vacall-mips64eb-macro.S, vacall-mips64el-macro.S. + Remove vacall-mips64-linux.s, vacall-mips64-macro.S. + * PLATFORMS, */PLATFORMS: List mips64-unknown-linux (gcc -mabi=64). + +2017-01-29 Bruno Haible + + mipsn32: Make it work on Linux (mips64, mips64el) with "gcc -mabi=n32". + * avcall/avcall-mipsn32.c: Add code for struct returns on _MIPSEL. + * avcall/Makefile.devel (avcall-mipsn32eb-linux.s, + avcall-mipsn32eb-macro.S, avcall-mipsn32el-linux.s, + avcall-mipsn32el-macro.S): New targets. + (avcall-mipsn32-linux.s, avcall-mipsn32-macro.S): Remove targets. + * avcall/Makefile.in (avcall-mipsn32.s): Take into account the + ENDIANNESS. + (SOURCE_FILES): Add avcall-mipsn32eb-linux.s, + avcall-mipsn32el-linux.s, avcall-mipsn32eb-macro.S, + avcall-mipsn32el-macro.S. + Remove avcall-mipsn32-linux.s, avcall-mipsn32-macro.S. + * vacall/vacall-mipsn32.c: Add code for struct returns on _MIPSEL. + * vacall/Makefile.devel (vacall-mipsn32eb-linux.s, + vacall-mipsn32eb-macro.S, vacall-mipsn32el-linux.s, + vacall-mipsn32el-macro.S): New targets. + (vacall-mipsn32-linux.s, vacall-mipsn32-macro.S): Remove targets. + * vacall/Makefile.in (vacall-mipsn32.s): Take into account the + ENDIANNESS. + (SOURCE_FILES): Add vacall-mipsn32eb-linux.s, vacall-mipsn32el-linux.s, + vacall-mipsn32eb-macro.S, vacall-mipsn32el-macro.S. + Remove vacall-mipsn32-linux.s, vacall-mipsn32-macro.S. + * callback/vacall_r/Makefile.devel (vacall-mipsn32eb-linux.s, + vacall-mipsn32eb-macro.S, vacall-mipsn32el-linux.s, + vacall-mipsn32el-macro.S): New targets. + (vacall-mipsn32-linux.s, vacall-mipsn32-macro.S): Remove targets. + * callback/vacall_r/Makefile.in (vacall-mipsn32.s): Take into account + the ENDIANNESS. + (SOURCE_FILES): Add vacall-mipsn32eb-linux.s, vacall-mipsn32el-linux.s, + vacall-mipsn32eb-macro.S, vacall-mipsn32el-macro.S. + Remove vacall-mipsn32-linux.s, vacall-mipsn32-macro.S. + * PLATFORMS, */PLATFORMS: List mips64-unknown-linux (gcc -mabi=n32). + +2017-01-29 Bruno Haible + + mips: Make it work on Linux (mips, mipsel) with "gcc -mabi=32". + * m4/endianness.m4: New file. + * avcall/Makefile.devel (avcall-mipseb-linux.s, avcall-mipseb-macro.S, + avcall-mipsel-linux.s, avcall-mipsel-macro.S): New targets. + (avcall-mips-linux.s, avcall-mips-macro.S): Remove targets. + * avcall/configure.ac: Invoke FFCALL_ENDIANNESS. + * avcall/Makefile.in (avcall-mips.s): Take into account the ENDIANNESS. + (SOURCE_FILES): Add avcall-mipseb-linux.s, avcall-mipsel-linux.s, + avcall-mipseb-macro.S, avcall-mipsel-macro.S. + Remove avcall-mips-linux.s, avcall-mips-macro.S. + * vacall/Makefile.devel (vacall-mipseb-linux.s, vacall-mipseb-macro.S, + vacall-mipsel-linux.s, vacall-mipsel-macro.S): New targets. + (vacall-mips-linux.s, vacall-mips-macro.S): Remove targets. + * vacall/configure.ac: Invoke FFCALL_ENDIANNESS. + * vacall/Makefile.in (vacall-mips.s): Take into account the ENDIANNESS. + (SOURCE_FILES): Add vacall-mipseb-linux.s, vacall-mipsel-linux.s, + vacall-mipseb-macro.S, vacall-mipsel-macro.S. + Remove vacall-mips-linux.s, vacall-mips-macro.S. + * callback/vacall_r/Makefile.devel (vacall-mipseb-linux.s, + vacall-mipseb-macro.S, vacall-mipsel-linux.s, vacall-mipsel-macro.S): + New targets. + * callback/vacall_r/configure.ac: Invoke FFCALL_ENDIANNESS. + * callback/vacall_r/Makefile.in (vacall-mips.s): Take into account the + ENDIANNESS. + (SOURCE_FILES): Add vacall-mipseb-linux.s, vacall-mipsel-linux.s, + vacall-mipseb-macro.S, vacall-mipsel-macro.S. + Remove vacall-mips-linux.s, vacall-mips-macro.S. + * PLATFORMS, */PLATFORMS: List mips-unknown-linux (gcc -mabi=32). + +2017-01-29 Bruno Haible + + mips, mipsn32, mips64: Regenerate .s and .S files with known compilers. + This restores support for IRIX with cc -32 (regression from 2008-09-26). + * common/asm-mips.sh: Rewritten to consume ELF input. + * avcall/avcall-mips.c: Rely on the compiler to set $25 at each + function call. Add comment about broken GCC 3.3.x and 3.4.x. Avoid + 'switch' statements, to make the generated code position-independent. + Declare iret2 as single __avword. + * avcall/avcall-mipsn32.c: Use __builtin_alloca. Rely on the compiler + to set $25 at each function call. + * avcall/avcall-mips64.c: Likewise. + * avcall/Makefile.devel (precompiled): Depend on avcall-mips-macro.S, + avcall-mipsn32-macro.S, avcall-mips64-macro.S. + (avcall-mips-linux.s, avcall-mipsn32-linux.s, avcall-mips64-linux.s): + New targets. + (avcall-mips-macro.S, avcall-mipsn32-macro.S, avcall-mips64-macro.S): + Rewritten. + * avcall/Makefile.in (SOURCE_FILES): Add avcall-mips-linux.s, + avcall-mipsn32-linux.s, avcall-mips64-linux.s. + * vacall/vacall-mips.c: Rely on the compiler to set $25 at each + function call. + * vacall/vacall-mipsn32.c: Likewise. + * vacall/vacall-mips64.c: Likewise. Add offset to references of + arguments in the stack. + * vacall/Makefile.devel (precompiled): Depend on vacall-mips-macro.S, + vacall-mipsn32-macro.S, vacall-mips64-macro.S. + (vacall-mips-linux.s, vacall-mipsn32-linux.s, vacall-mips64-linux.s): + New targets. + (vacall-mips-macro.S): Rewritten. + (vacall-mipsn32-macro.S): Rewritten. Update the postprocessing hack. + (vacall-mips64-macro.S): Rewritten. Add a postprocessing hack. + * vacall/Makefile.in (SOURCE_FILES): Add vacall-mips-linux.s, + vacall-mipsn32-linux.s, vacall-mips64-linux.s. + * callback/vacall_r/Makefile.devel (precompiled): Depend on + vacall-mips-macro.S, vacall-mipsn32-macro.S, vacall-mips64-macro.S. + (vacall-mips-linux.s, vacall-mipsn32-linux.s, vacall-mips64-linux.s): + New targets. + (vacall-mips-macro.S): Rewritten. + (vacall-mipsn32-macro.S): Rewritten. Update the postprocessing hack. + (vacall-mips64-macro.S): Rewritten. Add a postprocessing hack. + * callback/vacall_r/Makefile.in (SOURCE_FILES): Add vacall-mips-linux.s, + vacall-mipsn32-linux.s, vacall-mips64-linux.s. + * avcall/avcall-mips-macro.S: Remove from version control. + * avcall/avcall-mipsn32-macro.S: Likewise. + * avcall/avcall-mips64-macro.S: Likewise. + * vacall/vacall-mips-macro.S: Likewise. + * vacall/vacall-mipsn32-macro.S: Likewise. + * vacall/vacall-mips64-macro.S: Likewise. + * callback/vacall_r/vacall-mips-macro.S: Likewise. + * callback/vacall_r/vacall-mipsn32-macro.S: Likewise. + * callback/vacall_r/vacall-mips64-macro.S: Likewise. + * PLATFORMS, */PLATFORMS: List mips-sgi-irix6.5 (cc -32). + +2017-01-29 Bruno Haible + + m68k: Regenerate .s and .S files with known compilers. + * common/asm-m68k.h (L, FUNBEGIN, FUNEND): New macros. + * common/asm-m68k.sh: Expect a syntax argument. Produce L, FUNBEGIN, + FUNEND macros. + * avcall/avcall-m68k.c: Use __builtin_alloca instead of hacking on the + 'sp' register. + * avcall/Makefile.devel (precompiled): Depend on avcall-m68k.mit.S and + avcall-m68k.motorola.S. + (avcall-m68k-linux.s, avcall-m68k-sun.s): New targets. + (avcall-m68k.mit.S, avcall-m68k.motorola.S): Rewritten. + * avcall/Makefile.in (avcall-m68k.s): Depend on avcall-m68k.motorola.S + instead of avcall-m68k.mot.s. + (SOURCE_FILES): Add avcall-m68k-linux.s, avcall-m68k-sun.s. + Replace avcall-m68k.mot.s with avcall-m68k.motorola.S. + * vacall/Makefile.devel (precompiled): Depend on vacall-m68k.mit.S and + vacall-m68k.motorola.S. + (vacall-m68k-linux.s, vacall-m68k-sun.s): New targets. + (vacall-m68k.mit.S, vacall-m68k.motorola.S): Rewritten. + * vacall/Makefile.in (vacall-m68k.s): Depend on vacall-m68k.motorola.S + instead of vacall-m68k.mot.s. + (SOURCE_FILES): Add vacall-m68k-linux.s, + vacall-m68k-sun.s, vacall-mips-linux.s, vacall-mipsn32-linux.s, + Replace vacall-m68k.mot.s with vacall-m68k.motorola.S. + * callback/vacall_r/Makefile.devel (precompiled): Depend on + vacall-m68k.mit.S, vacall-m68k.motorola.S, vacall-m68k-netbsd-macro.S. + (vacall-m68k-linux.s, vacall-m68k-sun.s): New targets. + (vacall-m68k.mit.S, vacall-m68k.motorola.S, vacall-m68k-netbsd-macro.S): + Rewritten. + * callback/vacall_r/Makefile.in (vacall-m68k.s): Depend on + vacall-m68k.motorola.S instead of vacall-m68k.mot.s. + (SOURCE_FILES): Add vacall-m68k-linux.s, vacall-m68k-sun.s. + Replace vacall-m68k.mot.s with vacall-m68k.motorola.S. + * avcall/avcall-m68k.mit.S: Remove from version control. + * avcall/avcall-m68k.mot.s: Likewise. + * callback/vacall_r/vacall-m68k-netbsd-macro.S: Likewise. + * callback/vacall_r/vacall-m68k.mit.S: Likewise. + * callback/vacall_r/vacall-m68k.mot.s: Likewise. + * vacall/vacall-m68k.mit.S: Likewise. + * vacall/vacall-m68k.mot.s: Likewise. + +2017-01-29 Bruno Haible + + i386: Regenerate .s and .S files with known compilers. + * common/asm-i386.hh (P2ALIGN): New macro. + (FUNEND): Take two arguments. + * common/asm-i386.sh: Rewritten to consume ELF input. Produce P2ALIGN + macro. Handle indirect call statements. + * avcall/avcall-i386.c: Use __builtin_alloca instead of hacking on the + 'sp' register. + * avcall/Makefile.devel (precompiled): Depend on avcall-i386-macro.S. + (avcall-i386-linux.s): New target. + (avcall-i386-macro.S): Rewritten. + * avcall/Makefile.in (SOURCE_FILES): Add avcall-i386-linux.s. + * vacall/vacall-i386.c: Insert the appropriate stack cleanup before + 'ret $4'. + * vacall/Makefile.devel (precompiled): Depend on vacall-i386-macro.S. + (vacall-i386-linux.s): New target. + (vacall-i386-macro.S): Rewritten. + * vacall/Makefile.in (SOURCE_FILES): Add vacall-i386-linux.s. + * callback/vacall_r/Makefile.devel (precompiled): Depend on + vacall-i386-macro.S. + (vacall-i386-linux.s): New target. + (vacall-i386-macro.S): Rewritten. + * callback/vacall_r/Makefile.in (SOURCE_FILES): Add vacall-i386-linux.s. + * avcall/avcall-i386-macro.S: Remove from version control. + * vacall/vacall-i386-macro.S: Likewise. + * callback/vacall_r/vacall-i386-macro.S: Likewise. + +2017-02-11 Bruno Haible + + Prepare for regenerating .s and .S files with known compilers. + This serves three purposes: + 1. Being able to regenerate everything if avcall.h.in or vacall.h.in + changes. + 2. Allow safe stack unwinding across avcall and vacall invocations. + 3. Allow distributing libavcall and libcallback as shared libraries. + * README-hacking: Document the cross compilers. + * cross-tools/cross.conf: New file. + * cross-tools/cross-build.sh: New file. + * cross-tools/cross.in: New file. + * cross-tools/patches/*.patch: New files. + * avcall/Makefile.devel (GCCFLAGS): Add -fno-omit-frame-pointer, -fPIC. + (CROSS_TOOL): New variable. + * vacall/Makefile.devel (GCCFLAGS): Add -fno-omit-frame-pointer. + (CROSS_TOOL): New variable. + * callback/vacall_r/Makefile.devel (GCCFLAGS): Add + -fno-omit-frame-pointer, -fPIC. + (CROSS_TOOL): New variable. + +2017-01-29 Bruno Haible + + s390: Fix long long args. + * avcall/avcall.h.in (__av_longlong): Align only on a 4-bytes boundary, + not on an 8-bytes boundary. Fix condition for switching from register + args to stack args. + * vacall/vacall.h.in (__va_arg_leftadjusted, __va_arg_rightadjusted): + Fix condition for switching from register args to stack args. + (__va_arg_longlong): Use __va_arg. + * callback/vacall_r/vacall_r.h.in (__va_arg_leftadjusted, + __va_arg_rightadjusted): Fix condition for switching from register args + to stack args. + (__va_arg_longlong): Use __va_arg. + * PLATFORMS, */PLATFORMS: List s390x-ibm-linux with "gcc -m31". + +2017-01-29 Bruno Haible + + s390: Fix trampoline. + * trampoline/trampoline.c [__s390__]: Fix is_tramp macro. + +2017-01-29 Bruno Haible + + ia64: Fix struct args. + * avcall/avcall.h.in (__av_struct): Tweak #if. + * avcall/avcall-ia64.c: Fix comment. + * vacall/vacall.h.in (__va_arg_struct): Change #if to match + callback/vacall_r/vacall_r.h.in. + * callback/call-used-registers.txt: Fix info about ia64. + * callback/vacall_r/vacall_r.h.in (__va_arg_struct): Tweak #if. + * callback/trampoline_r/trampoline.c [__ia64__]: Fix is_tramp macro. + +2017-01-29 Bruno Haible + + powerpc64: Make trampoline work on AIX in a 64-bit build. + * trampoline/tramp-powerpc64-aix.S: Add assembler pseudo-ops for AIX. + * callback/trampoline_r/tramp-powerpc64-aix.S: Likewise. + +2017-01-29 Bruno Haible + + arm: Comments. + * avcall/avcall-arm.c: Add comments. + * avcall/avcall.h.in: Fix comment. + +2017-01-29 Bruno Haible + + arm: Make trampoline work on real ARM harware. + The cache flushing code in cache-arm.c and cache-armel.c are for old + Linux versions. Nowadays the best way is through the GCC builtin + function __clear_cache (which makes the appropriate Linux system call). + * trampoline/trampoline.c (alloc_trampoline) [__arm__]: Invoke GCC + builtin function __clear_cache. Remove call to __TR_clear_cache. + * callback/trampoline_r/trampoline.c (alloc_trampoline_r) [__arm__]: + Likewise. + * trampoline/cache-arm.[cs]: Remove files. + * trampoline/cache-armel.[cs]: Remove files. + * callback/trampoline_r/Makefile.maint (COPIED_FILES): Remove + cache-arm*. + * Makefile.in (COPIED_FILES): Remove callback/trampoline_r/cache-arm*. + * trampoline/Makefile.devel (cache-armel.s): Remove target. + * trampoline/configure.ac (CPU_OBJECTS): Leave empty for arm and armel. + * trampoline/Makefile.in (cache-arm.o, cache-armel.o): Remove targets. + (SOURCE_FILES): Remove cache-arm.[cs], cache-armel.[cs]. + * callback/trampoline_r/Makefile.devel (cache-armel.s): Remove target. + * callback/trampoline_r/configure.ac (CPU_OBJECTS): Leave empty for arm + and armel. + * callback/trampoline_r/Makefile.in (cache-arm.lo, cache-armel.lo): + Remove targets. + (SOURCE_FILES): Remove cache-arm.[cs], cache-armel.[cs]. + * trampoline/PLATFORMS: Add two ARM platforms. + +2017-01-29 Bruno Haible + + hppa: Fix struct returns. + * avcall/avcall.h.in [__hppa__]: Don't set __AV_PCC_STRUCT_RETURN by + default. + * avcall/avcall-hppa.c: Fix comment. + * vacall/vacall.h.in [__hppa__]: Don't set __VA_PCC_STRUCT_RETURN by + default. + * callback/vacall_r/vacall_r.h.in [__hppa__]: Don't set + __VA_PCC_STRUCT_RETURN by default. + +2017-01-29 Bruno Haible + + sparc64: Fix the passing of 'float' arguments. + * vacall/vacall.h.in (va_arg_float): Expect the float in the upper half + of the 8-bytes word. + * callback/vacall_r/vacall_r.h.in (va_arg_float): Likewise. + * PLATFORMS, */PLATFORMS: List sparc64-unknown-linux (gcc). + +2017-01-29 Bruno Haible + + sparc64: Fix a compiler warning. + * vacall/vacall.h.in (__va_arg_struct): Add a cast to pointer. + * callback/vacall_r/vacall_r.h.in: Likewise. + +2017-01-29 Bruno Haible + + mips64: Fix trampoline_r. + * callback/trampoline_r/trampoline.c: Fix conditionals that involve + __mips64__. + * callback/trampoline_r/test1.c: Fix duplicate declaration of 'env' on + mips64. + +2017-01-29 Bruno Haible + + mipsn32, mips64: Fix for little-endian platforms. + * vacall/vacall.h.in (__va_arg_adjusted): Use same conditional on + _MIPSEB and _MIPSEL as in callback/vacall_r/vacall_r.h.in. + * callback/vacall_r/vacall_r.h.in: Reorder parts of a #if condition. + +2017-01-29 Bruno Haible + + mips: Fix for Linux with "gcc -mabi=32". + * trampoline/tramp-mips.old.o: Renamed from trampoline/tramp-mips.o. + * trampoline/tramp-mips.old.s: Renamed from trampoline/tramp-mips.s. + * trampoline/tramp-mips.s: New file, based on + trampoline/tramp-mipsn32.s. + * trampoline/tramp-mips.o: New generated file. + * trampoline/trampoline.c: For __mips__, use the same trampoline as for + __mipsn32__. + +2017-01-29 Bruno Haible + + mips: Fix for Linux with "gcc -mabi=32". + * vacall/vacall.h.in (__va_arg_adjusted): Use same conditional on + _MIPSEB as in callback/vacall_r/vacall_r.h.in. + +2017-01-29 Bruno Haible + + mipsn32, mips64: Fix struct args and struct returns with newer GCC. + * avcall/avcall.h.in: For mipsn32 and mips64 in gcc >= 3.4: + 1. Don't set __AV_GCC_STRUCT_RETURN. + 2. Use __AV_SGICC_STRUCT_ARGS. + * vacall/vacall.h.in: For mipsn32 and mips64 in gcc >= 3.4: + 1. Don't set __VA_GCC_STRUCT_RETURN. + 2. Use __VA_SGICC_STRUCT_ARGS. + * callback/vacall_r/vacall_r.h.in: Likewise. + * PLATFORMS, */PLATFORMS: List mips-sgi-irix6.5 (gcc -mabi=n32). + +2017-01-29 Bruno Haible + + x86_64: Fix bug with structure arguments larger than 16 bytes. + * avcall/avcall.h.in (__av_struct): Pass structures > 16 bytes on the + stack. + * vacall/vacall.h.in (__va_arg_adjusted): Expect types > 16 bytes passed + on the stack. + * callback/vacall_r/vacall_r.h.in (__va_arg_adjusted): Likewise. + +2017-01-29 Bruno Haible + + i386, x86_64, sparc, sparc64: Fix for the Sun Studio 11 compiler. + When preprocessing a .S file, "cc -E" activates some other preprocessor + than the usual C preprocessor. + * avcall/Makefile.in (avcall-i386.s, avcall-sparc.s, avcall-sparc64.s, + avcall-x86_64.s): Feed the input to the preprocessor through standard + input. Postprocess to remove space after '.' and '@'. + * vacall/Makefile.in (vacall-i386.s, vacall-sparc.s, vacall-sparc64.s, + vacall-x86_64.s): Likewise. + * trampoline/Makefile.in (cache-sparc.s, cache-sparc64.s): Likewise. + * callback/vacall_r/Makefile.in (vacall-i386.s, vacall-sparc.s, + vacall-sparc64.s, vacall-x86_64.s): Likewise. + * callback/trampoline_r/Makefile.in (cache-sparc.s, cache-sparc64.s): + Likewise. + +2017-01-29 Bruno Haible + + List platforms on which libffcall is known to work. + * PLATFORMS, */PLATFORMS: List i386-pc-solaris2.10 (gcc), + mips-sgi-irix6.5 (cc -n32), sparc-unknown-linux (gcc), + alphaev67-unknown-linux (gcc), powerpc-ibm-aix7.1.3.0 (xlc, gcc). + +2017-01-29 Bruno Haible + + Don't violate ISO C rules. + * avcall/avcall.h.in (__av_struct): Don't store an unaligned pointer + in (LIST).aptr. + +2017-01-29 Bruno Haible + + Don't make side-effects before overflow checking. + * avcall/avcall.h.in: In most macro definitions, modify (LIST).aptr + after checking that it will remain within range, not before. But + continue to modify (LIST).aptr before storing the argument, as this + makes it easier w.r.t. to the alignment. This produces some more + duplicate expressions that the compiler will eliminate. But the code + is clearer this way. + +2017-01-29 Bruno Haible + + Add more floating-point, mixed-number, general-purpose args tests. + * avcall/tests.c (f_f24, d_iiidi, d_fdi, ll_iiilli, D_Dfd, + l_l0K, ..., l_l6K, ll_l2ll, ..., ll_l7ll, d_l2d, ... d_l7d): New tests. + * vacall/tests.c: Likewise. + * callback/tests.c: Likewise. + +2017-01-29 Bruno Haible + + Enable the 'long long' tests in callback. + * callback/configure.ac: Invoke AC_TYPE_LONG_LONG_INT. + * callback/tests.c: Test HAVE_LONG_LONG_INT, not HAVE_LONG_LONG. + * avcall/avcall.h.in: Fix comment. + * vacall/vacall.h.in: Likewise. + +2017-01-29 Bruno Haible + + devel: Make it easy to keep the autogenerated files up-to-date. + * avcall/Makefile.devel: Make all *.[sS] files depend on this file. + (precompiled): Comment out all dependencies. + * vacall/Makefile.devel: Likewise. + * callback/vacall_r/Makefile.devel: Likewise. + * callback/vacall_r/Makefile.maint (copied-files): New target. + * callback/trampoline_r/Makefile.maint (copied-files): New target. + * autogen.sh: To copy the files, just invoke these targets. + * Makefile.devel (precompiled): New target. + +2017-01-29 Bruno Haible + + configuration: Support the AR configure variable. + Needed for a 64-bit build on AIX. + * vacall/configure.ac: Invoke gl_PROG_AR_RANLIB instead of + AC_PROG_RANLIB. + * trampoline/configure.ac: Likewise. + * vacall/Makefile.in (AR): Use value determined by gl_PROG_AR_RANLIB. + * trampoline/Makefile.in (AR): Likewise. + * avcall/Makefile.in (AR): Use value determined by libtool. + * callback/Makefile.in (AR): Likewise. + * callback/vacall_r/Makefile.in (AR): Likewise. + * callback/trampoline_r/Makefile.in (AR): Likewise. + * avcall/configure.ac: Reorder (a no-op). + * callback/configure.ac: Likewise. + * callback/vacall_r/configure.ac: Likewise. + * callback/trampoline_r/configure.ac: Likewise. + +2017-01-29 Bruno Haible + + configuration: Simplification. + * m4/general.m4 (CL_CONFIG_SUBDIRS): Remove macro. + * configure.ac: Use AC_CONFIG_SUBDIRS instead of CL_CONFIG_SUBDIRS. + * callback/configure.ac: Likewise. + +2017-01-29 Bruno Haible + + Revert the addition of a powerpc64le port by Masanori Mitsugi + (commit from 2015-08-23). + +2017-01-29 Bruno Haible + + Add support for some Linux+PaX or SELinux kernels and for HardenedBSD. + Reported + - by Gerard Milmeister in https://sourceforge.net/p/clisp/bugs/356/, + - by Pradeep Kumar in https://sourceforge.net/p/clisp/bugs/415/, + - by Don Cohen in + https://lists.gnu.org/archive/html/libffcall/2016-12/msg00002.html, + - by Nelson Beebe. + * m4/codeexec.m4 (FFCALL_CODEEXEC_PAX): New macro. + * m4/general.m4 (FFCALL_COMMON_TRAMPOLINE): Require it. + * trampoline/trampoline.c (EXECUTABLE_VIA_MALLOC_THEN_MPROTECT, + EXECUTABLE_VIA_MMAP_THEN_MPROTECT, EXECUTABLE_VIA_MMAP_FILE_SHARED): + New macros. + (EXECUTABLE_VIA_MPROTECT, EXECUTABLE_VIA_MMAP_ANONYMOUS, + EXECUTABLE_VIA_MMAP_DEVZERO): Remove macros. + (MAP_FILE, MAP_VARIABLE): Define fallbacks. + (pagesize): Define outside of functions. + (alloc_trampoline): If EXECUTABLE_VIA_MMAP_FILE_SHARED is defined, + create separate mappings of a file, for writing and for executing. + If EXECUTABLE_VIA_MMAP_THEN_MPROTECT is defined, use mmap of an + anonymous page, then mprotect. + (free_trampoline): Convert back from executable address to writable + address. + * callback/trampoline_r/trampoline.c + (EXECUTABLE_VIA_MALLOC_THEN_MPROTECT, EXECUTABLE_VIA_MMAP_THEN_MPROTECT, + EXECUTABLE_VIA_MMAP_FILE_SHARED): New macros. + (EXECUTABLE_VIA_MPROTECT, EXECUTABLE_VIA_MMAP_ANONYMOUS, + EXECUTABLE_VIA_MMAP_DEVZERO): Remove macros. + (MAP_FILE, MAP_VARIABLE): Define fallbacks. + (pagesize): Define outside of functions. + (alloc_trampoline_r): If EXECUTABLE_VIA_MMAP_FILE_SHARED is defined, + create separate mappings of a file, for writing and for executing. + If EXECUTABLE_VIA_MMAP_THEN_MPROTECT is defined, use mmap of an + anonymous page, then mprotect. + (free_trampoline_r, is_trampoline_r): Convert back from executable + address to writable address. + +2017-01-29 Bruno Haible + + Fix "Generic workaround against the ELF symbol resolving routine". + * callback/vacall_r/elfhack-alpha.S: Put env in register $1, not $2. + * callback/vacall_r/elfhack-alpha.sed: Make it find the correct line. + * callback/trampoline_r/trampoline.c [__ia64__]: Fix code for + BINFMT_ELF. + [__mips64__]: Fix a typo in the trampoline for BINFMT_ELF. + [__s390__]: Fix typo in is_tramp macro for BINFMT_ELF. + +2017-01-10 Bruno Haible + + Update documentation. + * README: Refer to the git repository, not to the last release. + * DEPENDENCIES: New file. + * Makefile.in (SOURCE_FILES): Add it. + * README-hacking: New file. + +2017-01-09 Bruno Haible + + Remove support for m68k/HP-UX, m68k/NeXT, apollo, mips/Ultrix. + * trampoline/trampoline.c: Remove hpux, NeXT, apollo, ultrix + conditionals. + * trampoline/cache.c: Likewise. + * callback/trampoline_r/trampoline.c: Likewise. + +2017-01-09 Bruno Haible + + Remove support for m68k/AmigaOS. + * avcall/Makefile.devel (avcall-m68k-amiga.s): Remove target. + * avcall/avcall-m68k-amiga.c: Remove file. + * avcall/avcall-m68k-amiga.s: Remove file. + * avcall/Makefile.in (SOURCE_FILES): Remove them. + * avcall/avcall.h.in: Remove AMIGA conditionals. + * avcall/tests.c: Likewise. + * trampoline/trampoline.c: Likewise. + * callback/trampoline_r/trampoline.c: Likewise. + +2017-01-09 Bruno Haible + + Remove support for the AIX 3 operating system. + * avcall/Makefile.devel (avcall-powerpc-aix.s): Renamed from + avcall-powerpc-aix.new.s. + (avcall-powerpc-aix.old.s): Remove target. + * avcall/avcall-powerpc-aix.s: Renamed from + avcall/avcall-powerpc-aix.new.s. + * avcall/avcall-powerpc-aix.old.s: Remove file. + * avcall/Makefile.in (avcall-powerpc.s): No longer use + avcall-powerpc-aix.old.s. + (SOURCE_FILES): Add avcall-powerpc-aix.s. Remove + avcall-powerpc-aix.new.s, avcall-powerpc-aix.old.s. + * vacall/Makefile.devel (vacall-powerpc-aix.s): Renamed from + vacall-powerpc-aix.new.s. + (vacall-powerpc-aix.old.s): Remove target. + * vacall/vacall-powerpc-aix.s: Renamed from + vacall/vacall-powerpc-aix.new.s. + * vacall/vacall-powerpc-aix.old.s: Remove file. + * vacall/Makefile.in (vacall-powerpc.s): No longer use + vacall-powerpc-aix.old.s. + (SOURCE_FILES): Add vacall-powerpc-aix.s. Remove + vacall-powerpc-aix.new.s, vacall-powerpc-aix.old.s. + * callback/vacall_r/Makefile.devel (vacall-powerpc-aix.s): Renamed from + vacall-powerpc-aix.new.s. + (vacall-powerpc-aix.old.s): Remove target. + * callback/vacall_r/vacall-powerpc-aix.s: Renamed from + callback/vacall_r/vacall-powerpc-aix.new.s. + * callback/vacall_r/vacall-powerpc-aix.old.s: Remove file. + * callback/vacall_r/Makefile.in (vacall-powerpc.s): No longer use + vacall-powerpc-aix.old.s. + (SOURCE_FILES): Add vacall-powerpc-aix.s. Remove + vacall-powerpc-aix.new.s, vacall-powerpc-aix.old.s. + * trampoline/Makefile.devel (proto-powerpc-aix.s): Renamed from + proto-powerpc-aix.new.s. + (proto-powerpc-aix.old.s): Remove target. + * trampoline/proto-powerpc-aix.s: Renamed from + trampoline/proto-powerpc-aix.new.s. + * trampoline/proto-powerpc-aix.old.s: Remove file. + * trampoline/tramp-powerpc-aix.S: Renamed from + trampoline/tramp-powerpc.new.S. + * trampoline/tramp-powerpc.old.S: Remove file. + * trampoline/tramp-powerpc64-aix.S: Renamed from + trampoline/tramp-powerpc64.new.S. + * trampoline/Makefile.in (tramp-powerpc.s): No longer use + tramp-powerpc.old.S. + (tramp-powerpc64.s): Update. + (SOURCE_FILES): Add tramp-powerpc-aix.S, tramp-powerpc64-aix.S. Remove + tramp-powerpc.old.S, tramp-powerpc.new.S tramp-powerpc64.new.S. + * callback/trampoline_r/Makefile.devel (proto-powerpc-aix.s): Renamed + from proto-powerpc-aix.new.s. + (proto-powerpc-aix.old.s): Remove target. + * callback/trampoline_r/proto-powerpc-aix.s: Renamed from + callback/trampoline_r/proto-powerpc-aix.new.s. + * callback/trampoline_r/proto-powerpc-aix.old.s: Remove file. + * callback/trampoline_r/tramp-powerpc-aix.S: Renamed from + callback/trampoline_r/tramp-powerpc.new.S. + * callback/trampoline_r/tramp-powerpc.old.S: Remove file. + * callback/trampoline_r/tramp-powerpc64-aix.S: Renamed from + callback/trampoline_r/tramp-powerpc64.new.S. + * callback/trampoline_r/Makefile.in (tramp-powerpc.s): No longer use + tramp-powerpc.old.S. + (tramp-powerpc64.s): Update. + (SOURCE_FILES): Add tramp-powerpc-aix.S, tramp-powerpc64-aix.S. Remove + tramp-powerpc.old.S, tramp-powerpc.new.S tramp-powerpc64.new.S. + * PLATFORMS, **/PLATFORMS: Update. + +2017-01-08 Bruno Haible + + Remove support for the m88k CPU. + The only place where this CPU is still used is in the OpenBSD 5.8 + luna88k port. The luna88k is museum hardware. They use the ELF binary + format, through an inofficial port of the 10-years old binutils-2.17. + * avcall/Makefile.devel (avcall-m88k.s, tests-m88k.s): Remove targets. + * avcall/avcall-m88k.[cs]: Remove files. + * avcall/Makefile.in (avcall-m88k.lo): Remove target. + (SOURCE_FILES): Remove avcall-m88k.[cs]. + * avcall/avcall.h.in: Remove defined(__m88k__) conditionals. + * vacall/Makefile.devel (vacall-m88k.s, tests-m88k.s): Remove targets. + * vacall/vacall-m88k.[cs]: Remove files. + * vacall/Makefile.in (vacall-m88k.o): Remove target. + (SOURCE_FILES): Remove vacall-m88k.[cs]. + * vacall/vacall.h.in: Remove defined(__m88k__) conditionals. + * trampoline/Makefile.devel (proto-m88k.s, tramp-m88k.s): Remove targets. + * trampoline/proto-m88k.s: Remove file. + * trampoline/tramp-m88k.s: Remove file. + * trampoline/protexec.c: Remove __DOLPHIN__ conditionals. + * trampoline/trampoline.c: Remove defined(__m88k__), HAVE_SYS_M88KBCS_H conditionals. + * trampoline/trampoline.h.in: Don't test for m88k host. + * trampoline/configure.ac: Don't test for m88k host. + * callback/vacall_r/Makefile.devel (vacall-m88k.s): Remove target. + * callback/vacall_r/vacall-m88k.s: Remove file. + * callback/vacall_r/Makefile.in (vacall-m88k.lo): Remove target. + (SOURCE_FILES): Remove vacall-m88k.[cs]. + * callback/vacall_r/vacall_r.h.in: Remove defined(__m88k__) conditionals. + * callback/trampoline_r/Makefile.devel (proto-m88k.s, tramp-m88k.s): Remove targets. + * callback/trampoline_r/proto-m88k.s: Remove file. + * callback/trampoline_r/tramp-m88k.s: Remove file. + * callback/trampoline_r/proto.c: Remove defined(__m88k__) conditional. + * callback/trampoline_r/trampoline.c: Remove defined(__m88k__), HAVE_SYS_M88KBCS_H conditionals. + * callback/trampoline_r/trampoline_r.h.in: Don't test for m88k host. + * callback/trampoline_r/test1.c: Remove defined(__m88k__) conditionals. + * callback/trampoline_r/configure.ac: Don't test for m88k host. + * callback/call-used-registers.txt: Update. + * callback/elf-hack.txt: Update. + * common/reg-struct-return.txt: Update. + * PLATFORMS, **/PLATFORMS: Update. + * README: Update. + * autogen.sh: Don't copy vacall-m88k.c. + * Makefile.in (COPIED_FILES): Remove callback/vacall_r/vacall-m88k.c. + +2017-01-08 Bruno Haible + + Fix last commit. + * common/asm-x86_64.sh: Escape '&' characters in replacement string. + +2017-01-03 Bruno Haible + + Add support for the Mac OS X 10.5 / x86_64 platform. + * common/asm-x86_64.sh: Disable the frame info for exception handlers + on Mac OS X. + * avcall/avcall-x86_64-macro.S: Regenerated. + * vacall/vacall-x86_64-macro.S: Likewise. + * callback/vacall_r/vacall-x86_64-macro.S: Likewise. + * m4/mmap.m4 (FFCALL_MMAP): Renamed from CL_MMAP. Remove AC_BEFORE + invocations. Test mmap without MAP_FIXED only. Don't define + HAVE_MMAP_DEVZERO_SUN4_29. + * m4/mprotect.m4 (FFCALL_MPROTECT): Renamed from CL_MPROTECT. Update + dependency. + * m4/getpagesize.m4 (CL_GETPAGESIZE): Remove AC_BEFORE invocations. + * m4/general.m4 (FFCALL_COMMON_TRAMPOLINE): Update dependencies. + +2017-01-02 Bruno Haible + + Ensure the alignment of trampolines when we use the free-list approach. + * trampoline/trampoline.c (alloc_trampoline): Consider TRAMP_ALIGN + when allocating a page of trampolines. + * callback/trampoline_r/trampoline.c (alloc_trampoline_r): Likewise. + +2017-01-02 Bruno Haible + + Fix a build failure on Solaris/SPARC with newer gcc. + * trampoline/trampoline.c: Remove 'extern inline' declarations. + * callback/trampoline_r/trampoline.c: Likewise. For SPARC, declare + __TR_clear_cache_2, not __TR_clear_cache_4. + * PLATFORMS: Update. + * avcall/PLATFORMS: Likewise. + * vacall/PLATFORMS: Likewise. + * trampoline/PLATFORMS: Likewise. + * callback/PLATFORMS: Likewise. + +2017-01-02 Bruno Haible + + Add support for the Solaris/x86 platform with cc. + * common/asm-i386.sh: Remove the whitespace in the second argument of + INSN2MOVX. + * vacall/vacall-i386-macro.S: Regenerated. + * callback/vacall_r/vacall-i386-macro.S: Likewise. + * avcall/Makefile.in (avcall-i386.s): Eliminate ##. + * vacall/Makefile.in (vacall-i386.s): Likewise. + * callback/vacall_r/Makefile.in (vacall-i386.s): Likewise. + * PLATFORMS: Update. + * avcall/PLATFORMS: Likewise. + * vacall/PLATFORMS: Likewise. + * trampoline/PLATFORMS: Likewise. + * callback/PLATFORMS: Likewise. + +2017-01-02 Bruno Haible + + Add support for the Solaris/x86_64 platform. + * common/asm-x86_64.sh: Introduce ALIGN macro. Disable the frame info + for exception handlers on Solaris. + * common/asm-x86_64.h (ALIGN): New macro. + (FUNEND, EH_FRAME_SECTION): Define differently for Solaris. + * vacall/Makefile.devel (vacall-x86_64-macro.S): Don't use a #define + that assumes an ANSI C preprocessor. + * avcall/avcall-x86_64-macro.S: Regenerated. + * vacall/vacall-x86_64-macro.S: Likewise. + * callback/vacall_r/vacall-x86_64-macro.S: Likewise. + * avcall/Makefile.in (avcall-x86_64.s): Eliminate ##. + * vacall/Makefile.in (vacall-x86_64.s): Likewise. + * callback/vacall_r/Makefile.in (vacall-x86_64.s): Likewise. + * PLATFORMS: Update. + * avcall/PLATFORMS: Likewise. + * vacall/PLATFORMS: Likewise. + * trampoline/PLATFORMS: Likewise. + * callback/PLATFORMS: Likewise. + +2017-01-01 Bruno Haible + + Assume ANSI C in the documentation. + * vacall/vacall.{3,html}: Use ANSI C declaration syntax. Stop + mentioning . Reference stdarg(3). + * trampoline/trampoline.{3,html}: Reference stdarg(3). + * callback/callback.{3,html}: Use ANSI C declaration syntax. Stop + mentioning . + * callback/trampoline_r/trampoline_r.{3,html}: Reference stdarg(3). + +2017-01-01 Bruno Haible + + Support the CPPFLAGS configure variable. + * avcall/Makefile.in (CPPFLAGS): New variable. + Use it in all .c file compilations. + * vacall/Makefile.in (CPPFLAGS): New variable. + Use it in all .c file compilations. + * trampoline/Makefile.in (CPPFLAGS): New variable. + Use it in all .c file compilations. + * callback/Makefile.in (CPPFLAGS): New variable. + Use it in all .c file compilations. + * callback/vacall_r/Makefile.in (CPPFLAGS): New variable. + Use it in all .c file compilations. + * callback/trampoline_r/Makefile.in (CPPFLAGS): New variable. + Use it in all .c file compilations. + +2017-01-01 Bruno Haible + + Add option --disable-elf-hack to disable the ELF workaround. + * m4/binfmt-elf.m4 (FFCALL_BINFMT_ELF_OPTION): New macro. + (FFCALL_BINFMT_ELF): Require it. Set BINFMT_ELF to false and define + BINFMT_ELF to 0 if --disable-elf-hack was specified. + * configure.ac: Invoke FFCALL_BINFMT_ELF_OPTION. + * callback/configure.ac: Likewise. + * callback/elf-hack.txt: Explain how to use --disable-elf-hack for + testing. + +2017-01-01 Bruno Haible + + Generic workaround against the ELF symbol resolving routine. + Reported for x86_64 by Andrey Kutejko + at https://savannah.gnu.org/bugs/?32466 . + * m4/binfmt-elf.m4: New file. + * Makefile.in (SOURCE_FILES): Add it. + * callback/elf-hack.txt: New file. + * callback/test1.c: New file. + * callback/Makefile.in (SOURCE_FILES): Add both. + (test1.o, test1): New targets. + (check): Also run test1. + (MOSTLYCLEANFILES): Add test1.o, test1. + * callback/trampoline_r/configure.ac: Invoke FFCALL_BINFMT_ELF. + * callback/trampoline_r/Makefile.devel: Update the paths to the cross + assemblers. + * callback/trampoline_r/tramp-*.s: Add a 'trampelf' function. + * callback/trampoline_r/tramp-*.S: Likewise. + * callback/trampoline_r/tramp-*.o: Regenerated. + * callback/trampoline_r/trampoline.c: Implement alternate trampolines on + platforms with BINFMT_ELF. + * callback/trampoline_r/test1.c: Skip the test if BINFMT_ELF. + * callback/vacall_r/configure.ac: Invoke FFCALL_BINFMT_ELF. + * callback/vacall_r/elfhack-alpha.S: New file. + * callback/vacall_r/elfhack-alpha.sed: New file. + * callback/vacall_r/elfhack-arm.S: New file. + * callback/vacall_r/elfhack-arm.sed: New file. + * callback/vacall_r/elfhack-i386.S: New file. + * callback/vacall_r/elfhack-i386.sed: New file. + * callback/vacall_r/elfhack-m68k.S: New file. + * callback/vacall_r/elfhack-m68k.sed: New file. + * callback/vacall_r/elfhack-mips.S: New file. + * callback/vacall_r/elfhack-mips.sed: New file. + * callback/vacall_r/elfhack-mips64.S: New file. + * callback/vacall_r/elfhack-mips64.sed: New file. + * callback/vacall_r/elfhack-powerpc.S: New file. + * callback/vacall_r/elfhack-powerpc.sed: New file. + * callback/vacall_r/elfhack-powerpc64le.S: New file. + * callback/vacall_r/elfhack-powerpc64le.sed: New file. + * callback/vacall_r/elfhack-s390.S: New file. + * callback/vacall_r/elfhack-s390.sed: New file. + * callback/vacall_r/elfhack-x86_64.S: New file. + * callback/vacall_r/elfhack-x86_64.sed: New file. + * callback/vacall_r/Makefile.devel (vacall-i386-macro.S): Insert an + include of elfhack-i386.S. + (vacall-m68k.mit.S, vacall-m68k-netbsd-macro.S): Insert an include of + elfhack-m68k.S. + (vacall-mips-macro.S, vacall-mipsn32-macro.S): Insert an include of + elfhack-mips.S. + (vacall-mips64-macro.S): Insert an include of elfhack-mips64.S. + (vacall-alpha-macro.S): Renamed from vacall-alpha.s. Insert an include + of elfhack-alpha.S. + (vacall-arm-macro.S): Insert an include of elfhack-arm.S. + (vacall-armel-macro.S): Renamed from vacall-armel.s. Insert an include + of asm-arm.h and elfhack-arm.S. + (vacall-powerpc-linux-macro.S, vacall-powerpc-netbsd-macro.S): New + targets. + (vacall-powerpc-sysv4-macro.S): Renamed from vacall-powerpc-sysv4.s. + Insert an include of elfhack-powerpc.S. + (vacall-powerpc64le-macro.S): Renamed from vacall-powerpc64le.s. Insert + an include of elfhack-powerpc64.S. + (vacall-x86_64-macro.S): Insert an include of elfhack-x86_64.S. + (vacall-s390-macro.S): New target. + * callback/vacall_r/vacall-alpha-macro.S: Renamed from + callback/vacall_r/vacall-alpha.s. Include elfhack-alpha.S. + * callback/vacall_r/vacall-arm-macro.S: Include elfhack-arm.S. + * callback/vacall_r/vacall-armel-macro.S: Renamed from + callback/vacall_r/vacall-armel.s. Include asm-arm.h and elfhack-arm.S. + * callback/vacall_r/vacall-i386-macro.S: Include elfhack-i386.S. + * callback/vacall_r/vacall-m68k.mit.S: Include elfhack-m68k.S. + * callback/vacall_r/vacall-m68k-netbsd-macro.S: Likewise. + * callback/vacall_r/vacall-mips-macro.S: Include elfhack-mips.S. + * callback/vacall_r/vacall-mipsn32-macro.S: Likewise. + * callback/vacall_r/vacall-mips64-macro.S: Include elfhack-mips64.S. + * callback/vacall_r/vacall-powerpc-linux-macro.S: Generated, to include + elfhack-powerpc.S. + * callback/vacall_r/vacall-powerpc-netbsd-macro.S: Generated, to include + elfhack-powerpc.S. + * callback/vacall_r/vacall-powerpc-sysv4-macro.S: Renamed from + callback/vacall_r/vacall-powerpc-sysv4.s. Include elfhack-powerpc.S. + * callback/vacall_r/vacall-powerpc64le-macro.S: Renamed from + callback/vacall_r/vacall-powerpc64le.s. Include elfhack-powerpc64le.S. + * callback/vacall_r/vacall-s390-linux.s: Renamed from + callback/vacall_r/vacall-s390.s. + * callback/vacall_r/vacall-s390-macro.S: Generated, to include + elfhack-s390.S. + * callback/vacall_r/vacall-x86_64-macro.S: Include elfhack-x86_64.S. + * callback/vacall_r/Makefile.in (ASPFLAGS): Conditionally define + BINFMT_ELF. + (vacall-i386.s, vacall-m68k.s, vacall-mips.s, vacall-mipsn32.s, + vacall-mips64.s): Add a -I option for elfhack-*.S. + (vacall-alpha.s): New target. + (vacall-alpha.lo): Depend on it. + (vacall-arm.s): Add a -I option for elfhack-*.S. + (vacall-armel.s): New target. + (vacall-armel.lo): Depend on it. + (vacall-powerpc.s): For the linux, netbsd, sysv4 syntaxes, use the + corresponding *.S file. + (vacall-powerpc64le.s): New target. + (vacall-powerpc64le.lo): Depend on it. + (vacall-x86_64.s): Add a -I option for elfhack-*.S. + (vacall-s390.s): New target. + (vacall-s390.lo): Depend on it. + (clean): Remove also vacall-alpha.s, vacall-armel.s, + vacall-powerpc64le.s, vacall-s390.s. + (SOURCE_FILES): Update for the renamed files. Add + vacall-powerpc-linux-macro.S, vacall-powerpc-netbsd-macro.S, + vacall-s390-macro.S, elfhack-*.S, elfhack-*.sed. + * README: Clarify on which platforms the problem with the ELF symbol + resolving routine still exists. + +2016-12-31 Bruno Haible + + Update doc about available registers. + * callback/call-used-registers.txt: Clarify call-used registers versus + registers available for use in trampolines. + * trampoline/tramp-powerpc-old.s: Mark as obsolete. + * callback/trampoline_r/tramp-powerpc-old.s: Likewise. + * trampoline/tramp-x86_64.s: Fix comment about available registers. + * callback/trampoline_r/tramp-x86_64.s: Likewise. + * trampoline/tramp-powerpc-sysv4.s: Likewise. + * callback/trampoline_r/tramp-powerpc-sysv4.s: Likewise. + * trampoline/tramp-*.s: Update comment about available registers. + * trampoline/tramp-*.S: Likewise. + * callback/trampoline_r/tramp-*.s: Likewise. + * callback/trampoline_r/tramp-*.S: Likewise. + +2016-12-31 Bruno Haible + + Simplify powerpc compilation rules. + * avcall/Makefile.in (avcall-powerpc.s): New rule. + (avcall-powerpc.lo): Depend on it. Remove libtool specific workaround. + (clean): Remove also avcall-powerpc.s. + * vacall/Makefile.in (vacall-powerpc.s): New rule. + (vacall-powerpc.o): Depend on it. + (clean): Remove also vacall-powerpc.s. + * callback/vacall_r/Makefile.in (vacall-powerpc.s): New rule. + (vacall-powerpc.lo): Depend on it. Remove libtool specific workaround. + (clean): Remove also vacall-powerpc.s. + +2016-12-29 Bruno Haible + + Revert "Pass the environment argument through the stack, not in a + register." commit from 1999-06-01. + * vacall/vacall-i386.c: Revert: Allow use of registers %esi, %edi, %ebp. + Expect env in %ecx, not as first stack argument. + * vacall/vacall-i386-macro.S: Revert. + * callback/vacall_r/vacall-i386-macro.S: Revert. + * callback/trampoline_r/proto.c (tramp2): Remove function. + * callback/trampoline_r/proto-i386.s: Revert accordingly. + * callback/trampoline_r/tramp-i386.s: Put the data in %ecx, not as + first stack argument. + * callback/trampoline_r/trampoline.c [i386]: Revert to simple + trampoline. + * callback/trampoline_r/test1.c (f) [i386]: Expect env in %ecx, not as + first stack argument. + +2016-12-29 Bruno Haible + + Revert "Never build shared libraries: --enable-shared has no effect." + commit from 2012-04-24. + * README: Revert, but still recommend --disable-shared. + * avcall/Makefile.in (libavcall.la): Don't pass -static to libtool. + * callback/Makefile.in (libcallback.la): Likewise. + * callback/vacall_r/Makefile.in (libvacall.la): Likewise. + * callback/trampoline_r/Makefile.in (libtrampoline.la): Likewise. + +2016-12-30 Bruno Haible + + Rename text files. + * common/reg-struct-return.txt: Renamed from common/reg-struct-return. + * callback/call-used-registers.txt: Renamed from + callback/call-used-registers. + * trampoline/PORTING: Update. + * callback/README: Likewise. + +2016-12-29 Bruno Haible + + Update documentation about register usage. + * callback/call-used-registers: Update regarding powerpc/NetBSD. + +2016-12-29 Bruno Haible + + Remove support for the 'convex' CPU. + * avcall/Makefile.devel (avcall-convex.s, tests-convex.s): Remove + targets. + * avcall/avcall-convex.[cs]: Remove files. + * avcall/Makefile.in (avcall-convex.lo): Remove target. + (SOURCE_FILES): Remove avcall-convex.[cs]. + * avcall/avcall.h.in: Remove defined(__convex__) conditionals. + * vacall/Makefile.devel (vacall-convex.s, tests-convex.s): Remove + targets. + * vacall/vacall-convex.[cs]: Remove files. + * vacall/Makefile.in (vacall-convex.o): Remove target. + (SOURCE_FILES): Remove vacall-convex.[cs]. + * vacall/vacall.h.in: Remove defined(__convex__) conditionals. + * trampoline/Makefile.devel (proto-convex.s, cache-convex.s, + tramp-convex.s): Remove targets. + * trampoline/proto-convex.s: Remove file. + * trampoline/cache-convex.[cs]: Remove files. + * trampoline/tramp-convex.s: Remove file. + * trampoline/Makefile.in (cache-convex.o): Remove target. + (SOURCE_FILES): Remove cache-convex.[cs]. + * trampoline/cache.c: Remove defined(__convex__) conditionals. + * trampoline/protexec.c: Remove defined(__convex__) conditionals. + * trampoline/trampoline.c: Remove defined(__convex__) conditionals. + * trampoline/trampoline.h.in: Don't test for convex host. + * trampoline/configure.ac: Don't test for convex host. + * callback/vacall_r/Makefile.devel (vacall-convex.s): Remove target. + * callback/vacall_r/vacall-convex.s: Remove file. + * callback/vacall_r/Makefile.in (vacall-convex.lo): Remove target. + (SOURCE_FILES): Remove vacall-convex.[cs]. + * callback/vacall_r/vacall_r.h.in: Remove defined(__convex__) + conditionals. + * callback/trampoline_r/Makefile.devel (proto-convex.s, cache-convex.s, + tramp-convex.s): Remove targets. + * callback/trampoline_r/proto-convex.s: Remove file. + * callback/trampoline_r/tramp-convex.s: Remove file. + * callback/trampoline_r/Makefile.in (cache-convex.lo): Remove target. + (SOURCE_FILES): Remove cache-convex.[cs]. + * callback/trampoline_r/proto.c: Remove defined(__convex__) + conditionals. + * callback/trampoline_r/trampoline.c: Remove defined(__convex__) + conditionals. + * callback/trampoline_r/trampoline_r.h.in: Don't test for convex host. + * callback/trampoline_r/test1.c: Remove defined(__convex__) + conditionals. + * callback/trampoline_r/configure.ac: Don't test for convex host. + * callback/call-used-registers: Update. + * common/reg-struct-return: Update. + * PLATFORMS, **/PLATFORMS: Update. + * autogen.sh: Don't copy vacall-convex.c, cache-convex.[cs]. + * Makefile.in (COPIED_FILES): Remove callback/vacall_r/vacall-convex.c, + callback/trampoline_r/cache-convex.[cs]. + +2016-12-29 Bruno Haible + + Fix collision between different copies of __structcpy. + Reported in https://savannah.gnu.org/bugs/?23474 . + * avcall/avcall-structcpy.c: New file. + * avcall/Makefile.in (avcall-structcpy.lo): Renamed from structcpy.lo. + (SOURCE_FILES): Add avcall-structcpy.c. + * avcall/Makefile.mingw32 (avcall-structcpy.o): Renamed from + structcpy.o. + * avcall/Makefile.msvc (avcall-structcpy.obj): Renamed from + structcpy.obj. + * avcall/avcall.h.in: Declare and use avcall_structcpy instead of + __structcpy. + * avcall/README: Update. + * vacall/vacall-structcpy.c: New file. + * vacall/Makefile.in (vacall-structcpy.o): Renamed from structcpy.o. + (SOURCE_FILES): Add vacall-structcpy.c. + * vacall/Makefile.mingw32 (vacall-structcpy.o): Renamed from + structcpy.o. + * vacall/Makefile.msvc (vacall-structcpy.obj): Renamed from + structcpy.obj. + * vacall/vacall.h.in: Declare and use vacall_structcpy instead of + __structcpy. + * callback/vacall_r/vacall-structcpy.c: New file. + * callback/vacall_r/Makefile.in (vacall-structcpy.lo): Renamed from + structcpy.lo. + (SOURCE_FILES): Add vacall-structcpy.c. + * callback/vacall_r/Makefile.mingw32 (vacall-structcpy.o): Renamed from + structcpy.o. + * callback/vacall_r/Makefile.msvc (vacall-structcpy.obj): Renamed from + structcpy.obj. + * callback/vacall_r/vacall_r.h.in: Declare and use callback_structcpy + instead of __structcpy. + * callback/Makefile.in (libcallback.la): Use vacall-structcpy.lo, not + structcpy.lo. + * callback/Makefile.mingw32 (OBJECTS): Use vacall-structcpy.o, not + structcpy.o. + * callback/Makefile.msvc (OBJECTS): Use vacall-structcpy.obj, not + structcpy.obj. + (vacall_r/vacall-structcpy.obj): Renamed from vacall_r/structcpy.obj. + (clean): Update accordingly. + +2016-12-29 Bruno Haible + + Put duplicated files under version control only once, part 2. + * vacall/vacall-powerpc.c: Update with the 'REENTRANT' code from + callback/vacall_r/. + * vacall/vacall-s390.c: Likewise. + * callback/vacall_r/vacall-alpha.c: Remove file. + * callback/vacall_r/vacall-arm.c: Remove file. + * callback/vacall_r/vacall-armel.c: Remove file. + * callback/vacall_r/vacall-convex.c: Remove file. + * callback/vacall_r/vacall-hppa.c: Remove file. + * callback/vacall_r/vacall-i386.c: Remove file. + * callback/vacall_r/vacall-ia64.c: Remove file. + * callback/vacall_r/vacall-m68k.c: Remove file. + * callback/vacall_r/vacall-m88k.c: Remove file. + * callback/vacall_r/vacall-mips.c: Remove file. + * callback/vacall_r/vacall-mipsn32.c: Remove file. + * callback/vacall_r/vacall-mips64.c: Remove file. + * callback/vacall_r/vacall-powerpc.c: Remove file. + * callback/vacall_r/vacall-powerpc64.c: Remove file. + * callback/vacall_r/vacall-powerpc64le.c: Remove file. + * callback/vacall_r/vacall-s390.c: Remove file. + * callback/vacall_r/vacall-sparc.c: Remove file. + * callback/vacall_r/vacall-sparc64.c: Remove file. + * callback/vacall_r/vacall-x86_64.c: Remove file. + * autogen.sh: Copy these files from vacall/. + * Makefile.in (COPIED_FILES): Add these files. + +2016-12-28 Bruno Haible + + More robust quoting in Autoconf macros. + * configure.ac: Add brackets around Autoconf macro arguments. + * avcall/configure.ac: Likewise. + * vacall/configure.ac: Likewise. + * trampoline/configure.ac: Likewise. + * callback/configure.ac: Likewise. + * callback/vacall_r/configure.ac: Likewise. + * callback/trampoline_r/configure.ac: Likewise. + * m4/as-underscore.m4: Likewise. + * m4/cc-gcc.m4: Likewise. + * m4/codeexec.m4: Likewise. + * m4/general.m4: Likewise. + * m4/getpagesize.m4: Likewise. + * m4/ireg.m4: Likewise. + * m4/ln.m4: Likewise. + * m4/mach-vm.m4: Likewise. + * m4/mmap.m4: Likewise. + * m4/mprotect.m4: Likewise. + * m4/pccstruct.m4: Likewise. + * m4/proto.m4: Likewise. + * m4/shm.m4: Likewise. + * m4/smallstruct.m4: Likewise. + +2016-12-28 Bruno Haible + + Update list of contributors. + * README: List all contributors. + +2016-12-28 Bruno Haible + + Add support for 64-bit mode (x86_64) on Mac OS X. + * common/asm-x86_64.sh: New file. + * common/asm-x86_64.h: New file. + * Makefile.in (SOURCE_FILES): Add them. + * avcall/avcall-x86_64-linux.s: Renamed from avcall/avcall-x86_64.s. + * avcall/Makefile.devel (avcall-x86_64-linux.s): Renamed from avcall-x86_64.s. + (avcall-x86_64-macro.S): New target. + * avcall/avcall-x86_64-macro.S: New file, generated through avcall/Makefile.devel. + * avcall/Makefile.in (avcall-x86_64.s): New target. + (avcall-x86_64.lo): Use it, in the build dir. + (clean): Remove it. + (SOURCE_FILES): Add avcall-x86_64-linux.s, avcall-x86_64-macro.S. Remove avcall-x86_64.s. + * vacall/vacall-x86_64-linux.s: Renamed from vacall/vacall-x86_64.s. + * vacall/Makefile.devel (vacall-x86_64-linux.s): Renamed from vacall-x86_64.s. + (vacall-x86_64-macro.S): New target. + * vacall/vacall-x86_64-macro.S: New file, generated through vacall/Makefile.devel. + * vacall/Makefile.in (vacall-x86_64.s): New target. + (vacall-x86_64.o): Use it, in the build dir. + (clean): Remove it. + (SOURCE_FILES): Add vacall-x86_64-linux.s, vacall-x86_64-macro.S. Remove vacall-x86_64.s. + * callback/vacall_r/vacall-x86_64-linux.s: Renamed from callback/vacall_r/vacall-x86_64.s. + * callback/vacall_r/Makefile.devel (vacall-x86_64-linux.s): Renamed from vacall-x86_64.s. + (vacall-x86_64-macro.S): New target. + * callback/vacall_r/vacall-x86_64-macro.S: New file, generated through callback/vacall_r/Makefile.devel. + * callback/vacall_r/Makefile.in (vacall-x86_64.s): New target. + (vacall-x86_64.lo): Use it, in the build dir. + (clean): Remove it. + (SOURCE_FILES): Add vacall-x86_64-linux.s, vacall-x86_64-macro.S. Remove vacall-x86_64.s. + * callback/trampoline_r/test1.c (CHECK_ENV_REGISTER): New macro. + (f, main): Use it instead of __GNUC__. + * NEWS: Mention the change. + +2016-12-28 Bruno Haible + + Rename the asm* files. + * common/asm-arm.h: Renamed from common/asmarm.h. + * common/asm-arm.sh: Renamed from common/asmarm.sh. + * common/asm-i386.hh: Renamed from common/asmi386.hh. + * common/asm-i386.sh: Renamed from common/asmi386.sh. + * common/asm-m68k.h: Renamed from common/asmm68k.h. + * common/asm-m68k.sh: Renamed from common/asmm68k.sh. + * common/asm-mips.h: Renamed from common/asmmips.h. + * common/asm-mips.sh: Renamed from common/asmmips.sh. + * common/asm-sparc.h: Renamed from common/asmsparc.h. + * common/asm-sparc.sh: Renamed from common/asmsparc.sh. + * common/asm-sparc64.sh: Renamed from common/asmsparc64.sh. + * **/Makefile.devel, **/*.S: Update. + * Makefile.maint (common/asm-i386.h): Renamed from common/asmi386.h. + * Makefile.in (SOURCE_FILES, GENERATED_FILES): Update. + +2016-12-27 Bruno Haible + + Add the real source of asmi386.h. + * common/asmi386.hh: New file, from GNU clisp. + * common/asmi386.h: Remove file. + * Makefile.maint (common/asmi386.h): New target. Rule copied from + GNU clisp's Makefile.devel. + (all): Depend on it. + * Makefile.in (SOURCE_FILES): Add common/asmi386.hh. Remove + common/asmi386.h. + (GENERATED_FILES): Add common/asmi386.h. + +2016-12-27 Bruno Haible + + Modernize Cygwin detection. + * common/asmi386.h: Test __CYGWIN__, not __CYGWIN32__. + From Ken Brown on 2015-03-05. + +2016-12-27 Bruno Haible + + Create tarballs through an Automake-like "make dist" command. + * Makefile.in (SOURCE_FILES, LIBTOOL_IMPORTED_FILES, + GNULIB_IMPORTED_FILES, IMPORTED_FILES, COPIED_FILES, GENERATED_FILES, + DISTFILES): New macros. + (distdir): New target. + (PACKAGE, VERSION, TAR, GZIP): New macros. + (dist): New target. + * avcall/Makefile.in (SOURCE_FILES, GENERATED_FILES, DISTFILES): New + macros. + (distdir): New target. + * vacall/Makefile.in (SOURCE_FILES, GENERATED_FILES, DISTFILES): New + macros. + (distdir): New target. + * trampoline/Makefile.in (SOURCE_FILES, GENERATED_FILES, DISTFILES): + New macros. + (distdir): New target. + * callback/Makefile.in (SOURCE_FILES, GENERATED_FILES, DISTFILES): New + macros. + (distdir): New target. + * callback/vacall_r/Makefile.in (SOURCE_FILES, GENERATED_FILES, + DISTFILES): New macros. + (distdir): New target. + * callback/trampoline_r/Makefile.in (SOURCE_FILES, GENERATED_FILES, + DISTFILES): New macros. + (distdir): New target. + * configure.ac (extrasub): Replace all occurrences of @subdir@. + * callback/configure.ac (extrasub): Likewise. + +2016-12-27 Bruno Haible + + Bump version number. + * VERSION: Set to 0x010D (= 1.13). + +2016-12-27 Bruno Haible + + Rename each configure.in to configure.ac. + * configure.ac: Renamed from configure.in. + * avcall/configure.ac: Renamed from avcall/configure.in. + * vacall/configure.ac: Renamed from vacall/configure.in. + * trampoline/configure.ac: Renamed from trampoline/configure.in. + * callback/configure.ac: Renamed from callback/configure.in. + * callback/vacall_r/configure.ac: Renamed from + callback/vacall_r/configure.in. + * callback/trampoline_r/configure.ac: Renamed from + callback/trampoline_r/configure.in. + * Makefile.maint (ALL_CONFIGURE_AC): Renamed from ALL_CONFIGURE_IN. + (aclocal.m4, configure, %/configure, %/config.h.in): Update. + * README, */README: Update. + +2016-12-27 Bruno Haible + + Modernize quoting. + * NEWS: Quote ‘like this’, not `like this'. + * README.os2: Likewise. + * common/uniq-u.c: Likewise. + * avcall/DOC: Likewise. + * avcall/avcall-i386.c: Likewise. + * avcall/avcall-sparc.c: Likewise. + * avcall/avcall-sparc64.c: Likewise. + * avcall/avcall.h.in: Likewise. + * avcall/avcall.html: Likewise. + * vacall/vacall.h.in: Likewise. + * callback/trampoline_r/trampoline.c: Likewise. + * callback/trampoline_r/trampoline_r.h.in: Likewise. + * trampoline/PORTING: Likewise. + * trampoline/trampoline.c: Likewise. + * trampoline/trampoline.h.in: Likewise. + * callback/vacall_r/vacall_r.h.in: Likewise. + * configurations/README: Likewise. + * avcall/Makefile.maint (ROFF_MAN): Produce UTF-8 output instead of + ASCII output. + * vacall/Makefile.maint (ROFF_MAN): Likewise. + * trampoline/Makefile.maint (ROFF_MAN): Likewise. + * callback/Makefile.maint (ROFF_MAN): Likewise. + * callback/trampoline_r/Makefile.maint (ROFF_MAN): Likewise. + +2016-12-27 Bruno Haible + + Avoid unnecessary recursion in "make maintainer-clean". + * Makefile.in (DISTCLEANFILES): New variable. + (distclean, maintainer-clean): Use it. + * callback/Makefile.in (DISTCLEANFILES): New variable. + (distclean): Use it. Don't depend on 'clean'. Instead, use + MOSTLYCLEANDIRS, MOSTLYCLEANFILES. + (maintainer-clean): Don't depend on 'distclean'. Instead, use + MOSTLYCLEANDIRS, MOSTLYCLEANFILES, DISTCLEANFILES. + (distclean-subdirs, maintainerclean-subdirs): Inline and remove targets. + +2016-12-27 Bruno Haible + + Make "make mostlyclean" act like "make clean". + * callback/Makefile.in (MOSTLYCLEANDIRS, MOSTLYCLEANFILES): New + variables. + (mostlyclean, clean): Use them. + (clean-subdirs): Inline and remove target. + +2016-12-27 Bruno Haible + + Fix Makefile rules for powerpc64, from 2006-04-27. + * trampoline/Makefile.in (clean): Also remove tramp-powerpc64.s. + * callback/trampoline_r/Makefile.in (clean): Likewise. + +2016-12-26 Bruno Haible + + Reorder Makefile targets. + * trampoline/Makefile.in: Reorder. + * callback/trampoline_r/Makefile.in: Reorder. + +2016-12-26 Bruno Haible + + Fix Makefile rules for powerpc64le, from 2015-08-23. + * trampoline/Makefile.devel (CPP): New variable. + (tramp-powerpc64le.o, tramp-powerpc64le.s): New targets. + * trampoline/Makefile.in (tramp-powerpc64le.o, tramp-powerpc64le.s): + Remove targets. + * callback/trampoline_r/Makefile.devel (CPP): New variable. + (tramp-powerpc64le.o, tramp-powerpc64le.s): New targets. + * callback/trampoline_r/Makefile.in (tramp-powerpc64le.lo, + tramp-powerpc64le.s): Remove targets. + +2016-12-26 Bruno Haible + + Fix Makefile rules for s390, from 2002-03-24. + * trampoline/Makefile.devel (tramp-s390.o): New target. + * trampoline/Makefile.in (tramp-s390.o): Remove target. + * callback/trampoline_r/Makefile.devel (tramp-s390.o): New target. + * callback/trampoline_r/Makefile.in (tramp-s390.lo): Remove target. + +2016-12-26 Bruno Haible + + Fix "make distclean". + * avcall/Makefile.in (distclean): Also remove config.h. + * callback/Makefile.in (distclean): Likewise. + +2016-12-26 Bruno Haible + + Make it possible to build in $(srcdir) on case-insensitive file systems. + * avcall/avcall-${cpu}-macro.S: Renamed from avcall/avcall-${cpu}.S. + * avcall/Makefile.devel: Update accordingly. + * avcall/Makefile.in: Likewise. + * vacall/vacall-${cpu}-macro.S: Renamed from vacall/vacall-${cpu}.S. + * vacall/Makefile.devel: Update accordingly. + * vacall/Makefile.in: Likewise. + * trampoline/cache-sparc-macro.S: Renamed from trampoline/cache-sparc.S. + * trampoline/Makefile.devel: Update accordingly. + * trampoline/Makefile.in: Update accordingly. + * callback/vacall_r/vacall-${cpu}-macro.S: Renamed from + callback/vacall_r/vacall-${cpu}.S. + * callback/vacall_r/Makefile.devel: Update accordingly. + * callback/vacall_r/Makefile.in: Likewise. + * callback/trampoline_r/cache-sparc-macro.S: Renamed from + callback/trampoline_r/cache-sparc.S. + * callback/trampoline_r/Makefile.devel: Update accordingly. + * callback/trampoline_r/Makefile.in: Update accordingly. + +2016-12-26 Bruno Haible + + Simplify armel build rule. + * avcall/Makefile.devel (avcall-armel.s): Renamed from avcall-armel.S. + Simplify. + * avcall/Makefile.in (avcall-armel.lo): Use $(srcdir)/avcall-armel.s. + (avcall-armel.s): Remove target. + +2016-12-26 Bruno Haible + + Put duplicated files under version control only once. + * autogen.sh: Copy some files from trampoline/ to callback/trampoline_r. + * common/asm*.sh: Moved here from avcall/, vacall/, callback/vacall_r. + * common/asm*.h: Likewise. + * common/reg-struct-return: Likewise. + * common/structcpy.c: Likewise. + * common/uniq-u.c: Moved here from avcall/, vacall/, callback/. + * avcall/Makefile.devel: Update paths of asm*.sh. + * avcall/Makefile.in: Add -I options for asm*.h. Update path of structcpy.c. + * avcall/Makefile.mingw32: Likewise. + * avcall/Makefile.msvc: Likewise. Update path of uniq-u.c. + * vacall/Makefile.devel: Update paths of asm*.sh. + * vacall/Makefile.in: Add -I options for asm*.h. Update path of structcpy.c. + * vacall/Makefile.mingw32: Likewise. + * vacall/Makefile.msvc: Likewise. Update path of uniq-u.c. + * trampoline/Makefile.devel: Update paths of asm*.sh. + * trampoline/Makefile.in: Add -I options for asm*.h. + * callback/Makefile.msvc: Update path of uniq-u.c. + * callback/vacall_r/Makefile.devel: Update paths of asm*.sh. + * callback/vacall_r/Makefile.in: Add -I options for asm*.h. Update path of structcpy.c. + * callback/vacall_r/Makefile.mingw32: Likewise. + * callback/vacall_r/Makefile.msvc: Likewise. + * callback/trampoline_r/Makefile.devel: Update paths of asm*.sh. + * callback/trampoline_r/Makefile.in: Add -I options for asm*.h. + +2016-12-26 Bruno Haible + + Fix dependencies. + * avcall/Makefile.devel (avcall-sparc64.S): Depend on asmsparc64.sh, + not asmsparc.sh. + * vacall/Makefile.devel (vacall-sparc64.S): Likewise. + * callback/vacall_r/Makefile.devel (vacall-sparc64.S): Likewise. + * callback/Makefile.maint (vacall_r/vacall-i386-*.c): Don't depend on + vacall_r/asmi386.sh. + +2016-12-26 Bruno Haible + + Add missing dependency. + * callback/vacall_r/Makefile.devel (vacall-m68k-netbsd.S): Depend on + asmm68k.sh. + +2016-12-26 Bruno Haible + + Switch to libtool-2.4.6. + * autogen.sh (LIBTOOL_VERSION): Set to 2.4.6. + * Makefile.maint (libtool-imported-files): Import also m4/ltoptions.m4, + m4/ltsugar.m4, m4/ltversion.m4, m4/lt~obsolete.m4. + * m4/general.m4 (FFCALL_COMMON_LIBTOOL): Invoke LT_INIT. + +2016-12-26 Bruno Haible + + Switch to autoconf 2.69 and automake 1.15. + * Makefile.maint (ACLOCAL, AUTOCONF, AUTOHEADER): Bump version numbers. + +2016-12-26 Bruno Haible + + Remove files that can easily be autogenerated from version control. + * autogen.sh: New file. + * Makefile.maint: New file, partially inspired by Makefile.devel. + * Makefile.devel (all): Remove target and its subtargets. + * avcall/Makefile.maint: New file, extracted from avcall/Makefile.devel. + * avcall/Makefile.devel (precompiled): Renamed from 'all'. + Remove all targets that are moved to avcall/Makefile.maint. + * vacall/Makefile.maint: New file, extracted from vacall/Makefile.devel. + * vacall/Makefile.devel (precompiled): Renamed from 'all'. + Remove all targets that are moved to vacall/Makefile.maint. + * trampoline/Makefile.maint: New file, extracted from + trampoline/Makefile.devel. + * trampoline/Makefile.devel (precompiled): Renamed from 'all'. + Remove all targets that are moved to trampoline/Makefile.maint. + * callback/Makefile.maint: Renamed from callback/Makefile.devel. + (trampoline_r/trampoline_r.man): New target. + (totally-clean, force): New targets. + * callback/vacall_r/Makefile.maint: New file, extracted from + callback/vacall_r/Makefile.devel. + * callback/vacall_r/Makefile.devel (precompiled): Renamed from 'all'. + Remove all targets that are moved to callback/vacall_r/Makefile.maint. + (vacall_r.man): Remove target. + * callback/trampoline_r/Makefile.maint: New file, extracted from + callback/trampoline_r/Makefile.devel. + * callback/trampoline_r/Makefile.devel (precompiled): Renamed from + 'all'. + Remove all targets that are moved to + callback/trampoline_r/Makefile.maint. + +2016-12-26 Bruno Haible + + Remove test result files from version control. + * callback/trampoline_r/tests.passed.i386-pc-win32-gcc: Remove file. + +2015-08-23 Hernán Erasmo + + Added compatibility with ppc64le architecture. Credit goes + to Masanori Mitsugi + +2012-04-24 Sam Steingold + + Never build shared libraries: --enable-shared has no effect. + * avcall/Makefile.in (libavcall.la): pass -static to LIBTOOL_LINK + * callback/Makefile.in (libcallback.la): ditto + * callback/trampoline_r/Makefile.in (libtrampoline.la): ditto + * callback/vacall_r/Makefile.in (libvacall.la): ditto + +2010-09-03 Sam Steingold + + * configure.in: call AC_CONFIG_AUX_DIR(build-aux) + +2010-09-03 Sam Steingold + + * Makefile.devel (gnulib-imported): also import host-cpu-c-abi + * avcall/configure.in, callback/configure.in: + * callback/trampoline_r/configure.in, callback/vacall_r/configure.in: + * trampoline/configure.in, vacall/configure.in: + use gl_HOST_CPU_C_ABI instead of FFCALL_CANONICAL_HOST_CPU + * m4/general.m4: remove FFCALL_CANONICAL_HOST_CPU, + FFCALL_CACHE_EGREP_CPP, FFCALL_SET_CPU_ABI + * glm4/host-cpu-c-abi.m4: add + * avcall/Makefile.in, callback/Makefile.in: + * callback/trampoline_r/Makefile.in, callback/vacall_r/Makefile.in: + * trampoline/Makefile.in, vacall/Makefile.in, + use @HOST_CPU_C_ABI@ instead of @host_cpu_abi@ + * callback/trampoline_r/configure.in, trampoline/configure.in: + * m4/codeexec.m4: use $HOST_CPU_C_ABI instead of $host_cpu_abi + +2010-07-20 Sam Steingold + + * callback/trampoline_r/trampoline_r.h.in, trampoline/trampoline.h.in: + add autoconf CPU detection block; this fixes trampoline on sparc64/linux + Suggested by Valeriy E. Ushakov + +2010-07-20 Valeriy E. Ushakov + + https://savannah.gnu.org/bugs/?22081 + support sparc64 for solaris & *bsd + * avcall/avcall-sparc64.c, avcall/avcall.h.in: + Kill callee (%g2). Sparc64 doesn't need that code. + Delete space[] - gcc optimizes it away anyway, and it doesn't + guarantee correct operation even if it's not removed - if compiler + allocs it below other local vars on the stack, then calling + function with enough arguments will clobber local vars. + Instead i've changed the code to use alloca, see the comment in + the code for details on why this works. It also doesn't waste 2K + of stack on each call, we only grab the space we actually need. + I nuked farg_mask. It's not necessary for float args, marking + them in darg_mask does the right thing (new av_float). And they + just hurt structure passing, where, again, marking up darg_mask + does the right thing. + * avcall/avcall-saprc64.S: Regenerated with NetBSD gcc4 + * vacall/vacall-sparc64.S, callback/vacall_r/vacall-sparc64.S: + New binutils on sparc64 insist on having global registers properly + declared with .register. I've just added the declarations manually + w/out actually regenerating the files to demonstrate that's the + only change needed there. IF the files are regenerated with a + newer compiler you will get them automatically. + +2009-11-10 Sam Steingold + + * vacall/Makefile.in (vacall-armel.o): vacall-armel.s is in $(srcdir) + * callback/vacall_r/Makefile.in (vacall-armel.lo): ditto + +2009-10-16 Sam Steingold + + the final fix for LIBFFCALL_VERSION + * Makefile.devel (vacall/vacall.h.msvc, vacall/vacall.h.mingw32) + (callback/vacall_r/vacall_r.h.msvc) + (callback/vacall_r/vacall_r.h.mingw32): depend on VERSION + * avcall/avcall.h.in, callback/callback.h.in, + * callback/trampoline_r/trampoline_r.h.in, vacall/vacall.h.in, + * callback/vacall_r/vacall_r.h.in, trampoline/trampoline.h.in: + use @LIBFFCALL_VERSION@ instead of @PACKAGE_VERSION@ + * avcall/configure.in: additional processing for avcall.h to + substitute @LIBFFCALL_VERSION@ + * callback/configure.in: ditto for callback.h + * callback/trampoline_r/configure.in: ditto for trampoline_r.h + * callback/vacall_r/configure.in: ditto for vacall_r.h + * trampoline/configure.in: ditto for trampoline.h + * vacall/configure.in: ditto for vacall.h + * callback/vacall_r/Makefile.devel (vacall_r.h.msvc) + (vacall_r.h.mingw32): depend on ../../VERSION; + substitute @LIBFFCALL_VERSION@ + * vacall/Makefile.devel (vacall.h.msvc, vacall.h.mingw32): depend + on ../VERSION; substitute @LIBFFCALL_VERSION@ + +2009-10-16 Sam Steingold + + * glm4/longlong.m4, glm4/nocrash.m4: update from gnulib + +2009-10-16 Sam Steingold + + * Makefile.devel (update-gnulib): use git when available + +2009-10-16 Sam Steingold + + * avcall/configure.in, callback/configure.in, + * callback/trampoline_r/configure.in, callback/vacall_r/configure.in, + * trampoline/configure.in, vacall/configure.in: list the main generated + header (avcall.h et al) in AC_CONFIG_HEADERS, not in AC_CONFIG_FILES + fixes the bug#27706 (introduced on 2009-04-24) + +2009-04-28 Sam Steingold + + * m4/general.m4 (FFCALL_CACHE_EGREP_CPP, FFCALL_SET_CPU_ABI): + abstracted out of FFCALL_CANONICAL_HOST_CPU + (FFCALL_CANONICAL_HOST_CPU): use them + +2009-04-27 Max Lapan + Sam Steingold + + * avcall/Makefile.devel, avcall/Makefile.in, avcall/avcall.h.in, + * callback/trampoline_r/Makefile.devel, + * callback/trampoline_r/Makefile.in, + * callback/trampoline_r/configure.in, + * callback/vacall_r/Makefile.devel, callback/vacall_r/Makefile.in, + * callback/vacall_r/vacall_r.h.in, trampoline/Makefile.devel, + * trampoline/Makefile.in, trampoline/configure.in, + * vacall/Makefile.devel, vacall/Makefile.in, vacall/vacall.h.in: + Add ARMel support + * m4/general.m4 (FFCALL_CANONICAL_HOST_CPU): use AC_EGREP_CPP to + distinguish between arm and armel + * avcall/avcall-armel.S, avcall/avcall-armel.c, + * callback/trampoline_r/cache-armel.c, + * callback/trampoline_r/cache-armel.s, + * callback/vacall_r/vacall-armel.c, callback/vacall_r/vacall-armel.s, + * trampoline/cache-armel.c, trampoline/cache-armel.s, + * vacall/vacall-armel.c, vacall/vacall-armel.s: + new files + +2009-04-27 Max Lapan + + * avcall/tests.c, callback/tests.c, vacall/tests.c: + #include "config.h" for HAVE_LONG_LONG_INT + +2009-04-27 Max Lapan + + * callback/trampoline_r/trampoline.c (is_tramp) [__arm__]: + fix bug in the last patch + +2009-04-24 Sam Steingold + + * avcall/configure.in, callback/configure.in, + * callback/trampoline_r/configure.in, callback/vacall_r/configure.in, + * trampoline/configure.in, vacall/configure.in: + use AC_CONFIG_FILES instead of AC_OUTPUT with argument + * Makefile.devel (aclocal.m4): adjust the grep regexp + +2009-04-24 Sam Steingold + + * Makefile.in, avcall/Makefile.in, callback/Makefile.in, + * callback/trampoline_r/Makefile.in, callback/vacall_r/Makefile.in, + * trampoline/Makefile.in, vacall/Makefile.in (datarootdir): + set to @datarootdir@ to avoid a configure warning + +2009-04-24 Sam Steingold + + * Makefile.devel (SUBDIRS_CONFIG_H): add avcall and callback + +2009-04-24 Sam Steingold + + * VERSION: new file + * configure.in: use AC_INIT with the version argument + * avcall/Makefile.mingw32: use sed to set LIBFFCALL_VERSION in avcall.h + * callback/vacall_r/Makefile.mingw32: + use sed to set LIBFFCALL_VERSION in vacall_r.h + * vacall/Makefile.mingw32: use sed to set LIBFFCALL_VERSION in vacall.h + * avcall/avcall.h.in, callback/callback.h.in, + * callback/trampoline_r/trampoline_r.h.in, + * callback/vacall_r/vacall_r.h.in, + * trampoline/trampoline.h.in, vacall/vacall.h.in: + (LIBFFCALL_VERSION): define to @PACKAGE_VERSION@ + * avcall/configure.in, callback/configure.in, + * callback/trampoline_r/configure.in, callback/vacall_r/configure.in, + * trampoline/configure.in, vacall/configure.in: + use AC_INIT with the version argument, + pass [config.h] to AC_CONFIG_HEADERS + +2009-04-23 Sam Steingold + + * m4/codeexec.m4, m4/ireg.m4, m4/pccstruct.m4, m4/smallstruct.m4: + all 3 arguments of AC_DEFINE are now required + +2009-04-21 Sam Steingold + + * m4/as-underscore.m4, m4/codeexec.m4, m4/general.m4: + * m4/getpagesize.m4, m4/ireg.m4, m4/mach-vm.m4, m4/mmap.m4: + * m4/mprotect.m4, m4/pccstruct.m4, m4/shm.m4, m4/smallstruct.m4: + quote AC_DEFINE arguments + +2008-09-28 Sam Steingold + + * Makefile.devel (aclocal.m4): include glm4 (this defined gl_EARLY + and gl_INIT and fixes make check on x86_64) + +2008-09-26 Sam Steingold + + * avcall/avcall-ia64.s, avcall/avcall.h.in: + * callback/vacall_r/vacall_r.h.in: + support IA64 on Linux (kernel 2.6.16+ and gcc 4.1.0+) + https://savannah.gnu.org/bugs/index.php?22130 + https://sourceforge.net/tracker/index.php?func=detail&aid=1528895&group_id=1355&atid=301355 + +2008-09-26 Sam Steingold + + * callback/trampoline_r/Makefile.in, callback/trampoline_r/cache-arm.c: + * callback/trampoline_r/cache-arm.s, callback/trampoline_r/configure.in: + * callback/trampoline_r/tramp-arm.s, callback/trampoline_r/tramp-mips.s: + * callback/trampoline_r/trampoline.c, trampoline/cache-arm.c: + * trampoline/cache-arm.s, trampoline/configure.in: + * trampoline/tramp-arm.s, trampoline/trampoline.c: + add arm support from Jonathan Olson (debian 1.10-2) + https://savannah.gnu.org/bugs/?func=detailitem&item_id=9468 + +2008-09-26 Sam Steingold + + * avcall/avcall-mips.S, avcall/avcall-mips.c, avcall/avcall.h.in: + * callback/trampoline_r/trampoline.c, callback/vacall_r/vacall_r.h.in: + * m4/general.m4, trampoline/trampoline.c, vacall/vacall.h.in: + add mipsel support from Thiemo Seufer (debian 1.10-2) + +2008-09-26 Sam Steingold + + * Makefile.devel, Makefile.in, callback/Makefile.devel, + * callback/Makefile.in: use "&&" instead of ";" for all targets + +2008-07-13 Sam Steingold + + * glm4/gnulib-cache.m4, glm4/gnulib-common.m4, glm4/gnulib-comp.m4: + * glm4/gnulib-tool.m4, glm4/onceonly.m4: add from gnulib + * glm4/nocrash.m4: update from gnulib + * Makefile.devel (gnulib-imported): remove gllib + * configure.ac: call gl_EARLY and gl_INIT + +2008-07-08 Sam Steingold + + * Makefile.devel (SUBDIRS_CONFIGURE): use $(CURDIR) instead of . + (%/configure): use "&&" instead of ";" + +2008-07-03 Sam Steingold + + * Makefile.devel (all): split into a few manageable targets + (config-h-in, woe32-h, woe32-c): new targets + (configure): use patterns + +2008-07-03 Sam Steingold + + * m4/smallstruct.m4 (FFCALL_SMALL_STRUCT_RETURN): rename from + CL_SMALL_STRUCT_RETURN; use ffcall_cv_* instead of cl_cv_*; + use return instead of exit() + * m4/pccstruct.m4 (FFCALL_PCC_STRUCT_RETURN): rename from + CL_PCC_STRUCT_RETURN; use ffcall_cv_* instead of cl_cv_*; + use return instead of exit() + * m4/ireg.m4 (FFCALL_IREG_FLOAT_RETURN): remame from + CL_IREG_FLOAT_RETURN; use ffcall_cv_* instead of cl_cv_*; + use return instead of exit() + * m4/codeexec.m4 (FFCALL_CODEEXEC): rename from CL_CODEEXEC + use ffcall_cv_* instead of cl_cv_*; use return instead of exit() + * m4/general.m4: remove non-FFCALL code + (FFCALL_COMMON_LIBTOOL): rename from CL_FFCALL_COMMON_LIBTOOL + (FFCALL_COMMON_TRAMPOLINE): rename from CL_FFCALL_COMMON_TRAMPOLINE + (FFCALL_CANONICAL_HOST_CPU): <- CL_CANONICAL_HOST_CPU_FOR_FFCALL + +2008-07-03 Sam Steingold + + * Makefile.devel (build-aux-update): new target + +2008-07-02 Sam Steingold + + * Makefile.devel (gnulib-imported, update-gnulib): new targets + * glm4: new directory + * longlong.m4, nocrash.m4: move from m4 to glm4 + +2008-07-02 Sam Steingold + + * m4/ln.m4: update from clisp + * m4/cp.m4: remove + * m4/getpagesize.m4: update from clisp + * m4/general.m4: update from clisp + * m4/mmap.m4: update from clisp + * m4/mprotect.m4: update from clisp + * m4/proto.m4: update from clisp + * m4/openflags.m4: remove + * m4/cc-void.m4: remove + +2008-07-02 Sam Steingold + + * Makefile.devel, aclocal.m4: move autoconf/aclocal.m4 to aclocal.m4 + * aclocal/autoconf.m4: remove + * Makefile.devel (CLISP_DIR): remove + +2008-07-02 Sam Steingold + + * m4/ffcall-pccstruct.m4, m4/ffcall-smallstruct.m4, m4/ffcall-ireg.m4: + * m4/ffcall-codeexec.m4: remove "ffcall-" prefix + * Makefile.devel: update + +See clisp ChangeLog for earlier changes. diff --git a/DEPENDENCIES b/DEPENDENCIES new file mode 100644 index 0000000..fcbd036 --- /dev/null +++ b/DEPENDENCIES @@ -0,0 +1,69 @@ +The following packages should be installed before GNU libffcall is installed +(runtime dependencies that are also build dependencies): + +None. + + +The following packages should be installed when GNU libffcall is installed +(runtime dependencies, but not build dependencies): + +None. + + +The following should be installed when GNU libffcall is built, but are not +needed later, once it is installed (build dependencies, but not runtime +dependencies): + +* A C runtime, compiler, linker, etc. + + Mandatory. Either the platform's native 'cc', or GCC 2.95 or newer. + + GCC Homepage: + https://gcc.gnu.org/ + + Download: + https://ftp.gnu.org/gnu/gcc/ + +* A 'make' utility. + + Mandatory. Either the platform's native 'make' (for in-tree builds only), + or GNU Make 3.79.1 or newer. + + GNU Make Homepage: + https://www.gnu.org/software/make/ + + Download: + https://ftp.gnu.org/gnu/make/ + +* A shell + + Mandatory. Either the platform's native 'sh', or Bash. + + Homepage: + https://www.gnu.org/software/bash/ + + Download: + https://ftp.gnu.org/gnu/bash/ + +* Core POSIX utilities, including: + [ basename cat chgrp chmod chown cp dd echo expand expr + false hostname install kill ln ls md5sum mkdir mkfifo + mknod mv printenv pwd rm rmdir sleep sort tee test touch + true uname + + Mandatory. Either the platform's native utilities, or GNU coreutils. + + Homepage: + https://www.gnu.org/software/coreutils/ + + Download: + https://ftp.gnu.org/gnu/coreutils/ + +* The comparison utilities 'cmp' and 'diff'. + + Mandatory. Either the platform's native utilities, or GNU diffutils. + + Homepage: + https://www.gnu.org/software/diffutils/ + + Download: + https://ftp.gnu.org/gnu/diffutils/ + +* Grep. + + Mandatory. Either the platform's native grep, or GNU grep. + + Homepage: + https://www.gnu.org/software/grep/ + + Download: + https://ftp.gnu.org/gnu/grep/ + +* Awk. + + Mandatory. Either the platform's native awk, or GNU awk. + + Homepages: + https://www.gnu.org/software/gawk/ + + Download: + https://ftp.gnu.org/gnu/gawk/ diff --git a/INSTALL.os2 b/INSTALL.os2 new file mode 100644 index 0000000..0c804fe --- /dev/null +++ b/INSTALL.os2 @@ -0,0 +1,10 @@ +Installation on OS/2: + +- Requires emx+gcc and a working shell (Bourne shell, Korn shell or GNU bash). + +- Set the environment variables CC=gcc CFLAGS="-Zexe" before calling + ‘configure’. + +- Must build in a separate directory and pass the --srcdir option to + ‘configure’, otherwise avcall-i386.s will overwrite avcall-i386.S. + diff --git a/INSTALL.windows b/INSTALL.windows new file mode 100644 index 0000000..6892f36 --- /dev/null +++ b/INSTALL.windows @@ -0,0 +1,263 @@ +Installation on Microsoft Windows: + +There are three ways to create binaries of this package for Microsoft Windows: +1) Native binaries, built using the mingw tool chain. +2) Native binaries, built using the MS Visual C/C++ tool chain. +3) Binaries for the Cygwin environment. + +=============================================================================== +1) Native binaries, built using the mingw tool chain. + + I recommend to use the Cygwin environment as the development environment + and mingw only as the target (runtime, deployment) environment. + For this, you need to install + * Cygwin (from https://cygwin.com/), + * some packages available from the Cygwin package installer: + make + * the mingw cross-compilation tools and runtime package, available from + the Cygwin package installer (setup-x86_64.exe): + - for creating 32-bit binaries: packages + mingw64-i686-gcc-core, + mingw64-i686-gcc-g++, + mingw64-i686-headers, + mingw64-i686-runtime + - for creating 64-bit binaries: packages + mingw64-x86_64-gcc-core, + mingw64-x86_64-gcc-g++, + mingw64-x86_64-headers, + mingw64-x86_64-runtime + + Building 32-bit binaries for mingw is achieved through the following + preparation, configure, and build commands: + + PATH=/usr/local/mingw32/bin:/usr/i686-w64-mingw32/sys-root/mingw/bin:$PATH + export PATH + ./configure --host=i686-w64-mingw32 --prefix=/usr/local/mingw32 \ + CC=i686-w64-mingw32-gcc \ + CXX=i686-w64-mingw32-g++ \ + CPPFLAGS="-I/usr/local/mingw32/include -Wall" \ + LDFLAGS="-L/usr/local/mingw32/lib" + make + make check + + Building 64-bit binaries for mingw is achieved through the following + preparation, configure, and build commands: + + PATH=/usr/local/mingw64/bin:/usr/x86_64-w64-mingw32/sys-root/mingw/bin:$PATH + export PATH + ./configure --host=x86_64-w64-mingw32 --prefix=/usr/local/mingw64 \ + CC=x86_64-w64-mingw32-gcc \ + CXX=x86_64-w64-mingw32-g++ \ + CPPFLAGS="-I/usr/local/mingw64/include -Wall" \ + LDFLAGS="-L/usr/local/mingw64/lib" + make + make check + + Installation: + + make install + +=============================================================================== +2) Native binaries, built using the MS Visual C/C++ tool chain. + + Note that binaries created with MSVC have a distribution constraint: They + depend on a closed-source library ('msvcr90.dll' for MSVC 9.0, + 'vcruntime140.dll' for MSVC 14.0, and so on) which is not normally part of + a Windows installation. + You cannot distribute 'vcruntime*.dll' with the binaries - this would be a + violation of the GPL and of the Microsoft EULA. + You can distribute the binaries without including 'vcruntime*.dll'. Users + who don't have this library on their system will require to pull some files + (api-ms-win*.dll) through the Windows Update mechanism, see + https://support.microsoft.com/en-us/kb/2999226 . + + This recipe requires MS Visual C/C++ 9.0 or newer. + You don't need the Visual Studio IDE, just the C/C++ tool chain. + As of 2016, you can install the MS Visual C/C++ 14.0 tool chain from + http://landinghub.visualstudio.com/visual-cpp-build-tools (it's the file + visualcppbuildtools_full.exe). + + This recipe requires also a Cygwin environment (with 'bash', the common POSIX + commands, and 'make') as a build environment. Building with 'nmake' is not + supported. + For this, you need to install + * Cygwin (from https://cygwin.com/), + * some packages available from the Cygwin package installer: + make + + You also need the scripts 'ar-lib' and 'compile' from + https://git.savannah.gnu.org/gitweb/?p=automake.git;a=blob_plain;f=lib/ar-lib;hb=HEAD + https://git.savannah.gnu.org/gitweb/?p=automake.git;a=blob_plain;f=lib/compile;hb=HEAD + respectively. + They may also be included in this package, in directory 'build-aux/'. + Save them; the instructions below assume that you stored them in $HOME/msvc/. + Make them executable: + chmod a+x ar-lib compile + + Start a bash (from Cygwin). + + Make sure that the MSVC tools ("cl" etc.) are found in PATH and the + environment variables INCLUDE and LIB are set appropriately. + In a typical MSVC 9.0 installation, it can be achieved by running + C:\Program Files\Microsoft Visual Studio 9.0\Common7\Tools\vsvars32.bat + In a typical MSVC 14.0 installation on Windows 10, it can be achieved + - for creating 32-bit binaries: through the following bash commands: + + # Set environment variables for using MSVC 14, + # for creating native 32-bit Windows executables. + + # Windows C library headers and libraries. + WindowsCrtIncludeDir='C:\Program Files (x86)\Windows Kits\10\Include\10.0.10240.0\ucrt' + WindowsCrtLibDir='C:\Program Files (x86)\Windows Kits\10\Lib\10.0.10240.0\ucrt\' + INCLUDE="${WindowsCrtIncludeDir};$INCLUDE" + LIB="${WindowsCrtLibDir}x86;$LIB" + + # Windows API headers and libraries. + WindowsSdkIncludeDir='C:\Program Files (x86)\Windows Kits\8.1\Include\' + WindowsSdkLibDir='C:\Program Files (x86)\Windows Kits\8.1\Lib\winv6.3\um\' + INCLUDE="${WindowsSdkIncludeDir}um;${WindowsSdkIncludeDir}shared;$INCLUDE" + LIB="${WindowsSdkLibDir}x86;$LIB" + + # Visual C++ tools, headers and libraries. + VSINSTALLDIR='C:\Program Files (x86)\Microsoft Visual Studio 14.0' + VCINSTALLDIR="${VSINSTALLDIR}"'\VC' + PATH=`cygpath -u "${VCINSTALLDIR}"`/bin:"$PATH" + INCLUDE="${VCINSTALLDIR}"'\include;'"${INCLUDE}" + LIB="${VCINSTALLDIR}"'\lib;'"${LIB}" + + export INCLUDE LIB + + - for creating 64-bit binaries: through the following bash commands: + + # Set environment variables for using MSVC 14, + # for creating native 64-bit Windows executables. + + # Windows C library headers and libraries. + WindowsCrtIncludeDir='C:\Program Files (x86)\Windows Kits\10\Include\10.0.10240.0\ucrt' + WindowsCrtLibDir='C:\Program Files (x86)\Windows Kits\10\Lib\10.0.10240.0\ucrt\' + INCLUDE="${WindowsCrtIncludeDir};$INCLUDE" + LIB="${WindowsCrtLibDir}x64;$LIB" + + # Windows API headers and libraries. + WindowsSdkIncludeDir='C:\Program Files (x86)\Windows Kits\8.1\Include\' + WindowsSdkLibDir='C:\Program Files (x86)\Windows Kits\8.1\Lib\winv6.3\um\' + INCLUDE="${WindowsSdkIncludeDir}um;${WindowsSdkIncludeDir}shared;$INCLUDE" + LIB="${WindowsSdkLibDir}x64;$LIB" + + # Visual C++ tools, headers and libraries. + VSINSTALLDIR='C:\Program Files (x86)\Microsoft Visual Studio 14.0' + VCINSTALLDIR="${VSINSTALLDIR}"'\VC' + PATH=`cygpath -u "${VCINSTALLDIR}"`/bin/amd64:"$PATH" + INCLUDE="${VCINSTALLDIR}"'\include;'"${INCLUDE}" + LIB="${VCINSTALLDIR}"'\lib\amd64;'"${LIB}" + + export INCLUDE LIB + + Building 32-bit binaries with MSVC is achieved through the following + preparation, configure, and build commands: + + PATH=/usr/local/msvc32/bin:$PATH + export PATH + + win32_target=_WIN32_WINNT_WINXP # for MSVC 9.0 + win32_target=_WIN32_WINNT_VISTA # possibly for MSVC >= 10.0 + win32_target=_WIN32_WINNT_WIN7 # possibly for MSVC >= 10.0 + win32_target=_WIN32_WINNT_WIN8 # possibly for MSVC >= 10.0 + + ./configure --host=i686-w64-mingw32 --prefix=/usr/local/msvc32 \ + CC="$HOME/msvc/compile cl -nologo" \ + CFLAGS="-MD" \ + CXX="$HOME/msvc/compile cl -nologo" \ + CXXFLAGS="-MD" \ + CPPFLAGS="-D_WIN32_WINNT=$win32_target -I/usr/local/msvc32/include" \ + LDFLAGS="-L/usr/local/msvc32/lib" \ + LD="link" \ + NM="dumpbin -symbols" \ + STRIP=":" \ + AR="$HOME/msvc/ar-lib lib" \ + RANLIB=":" + make + make check + + Building 64-bit binaries with MSVC is achieved through the following + preparation, configure, and build commands: + + PATH=/usr/local/msvc64/bin:$PATH + export PATH + + win32_target=_WIN32_WINNT_WINXP # for MSVC 9.0 + win32_target=_WIN32_WINNT_VISTA # possibly for MSVC >= 10.0 + win32_target=_WIN32_WINNT_WIN7 # possibly for MSVC >= 10.0 + win32_target=_WIN32_WINNT_WIN8 # possibly for MSVC >= 10.0 + + ./configure --host=x86_64-w64-mingw32 --prefix=/usr/local/msvc64 \ + CC="$HOME/msvc/compile cl -nologo" \ + CFLAGS="-MD" \ + CXX="$HOME/msvc/compile cl -nologo" \ + CXXFLAGS="-MD" \ + CPPFLAGS="-D_WIN32_WINNT=$win32_target -I/usr/local/msvc64/include" \ + LDFLAGS="-L/usr/local/msvc64/lib" \ + LD="link" \ + NM="dumpbin -symbols" \ + STRIP=":" \ + AR="$HOME/msvc/ar-lib lib" \ + RANLIB=":" + make + make check + + Installation: + + make install + +=============================================================================== +3) Binaries for the Cygwin environment. + + The generic instructions in the INSTALL file apply. But here are more + specific ones. + + You need to install + * Cygwin (from https://cygwin.com/), + * some packages available from the Cygwin package installer: + make + * the Cygwin [cross-]compilation tools package, available from + the Cygwin package installer (setup-x86_64.exe): + - for creating 32-bit binaries: packages + cygwin32-gcc-core, + cygwin32-gcc-g++, + cygwin32 + - for creating 64-bit binaries: packages + gcc-core, + gcc-g++ + + Building 32-bit binaries for Cygwin must be done in a directory *outside* + the Cygwin /home and /usr hierarchies. It is achieved through the following + preparation, configure, and build commands: + + PATH=/usr/local/cygwin32/bin:/usr/i686-pc-cygwin/sys-root/usr/bin:$PATH + export PATH + ./configure --host=i686-pc-cygwin --prefix=/usr/local/cygwin32 \ + CC=i686-pc-cygwin-gcc \ + CXX=i686-pc-cygwin-g++ \ + CPPFLAGS="-I/usr/local/cygwin32/include -Wall" \ + LDFLAGS="-L/usr/local/cygwin32/lib" + make + make check + + Building 64-bit binaries for Cygwin is achieved through the following + preparation, configure, and build commands: + + PATH=/usr/local/cygwin64/bin:$PATH + export PATH + ./configure --host=x86_64-pc-cygwin --prefix=/usr/local/cygwin64 \ + CC=x86_64-pc-cygwin-gcc \ + CXX=x86_64-pc-cygwin-g++ \ + CPPFLAGS="-I/usr/local/cygwin64/include -Wall" \ + LDFLAGS="-L/usr/local/cygwin64/lib" + make + make check + + Installation: + + make install + +=============================================================================== diff --git a/Makefile.devel b/Makefile.devel new file mode 100644 index 0000000..ae8d87f --- /dev/null +++ b/Makefile.devel @@ -0,0 +1,29 @@ +# This is the developer's -*-Makefile-*-, not the user's makefile. +# Do not use it unless you know exactly what you do! + +# ============ Rules that require cross-compilation tools ============ + +precompiled : force + cd avcall && $(MAKE) -f Makefile.devel precompiled + cd vacall && $(MAKE) -f Makefile.devel precompiled + cd trampoline && $(MAKE) -f Makefile.devel precompiled + cd callback/vacall_r \ + && $(MAKE) -f Makefile.devel precompiled + cd callback/trampoline_r \ + && $(MAKE) -f Makefile.maint copied-files \ + && $(MAKE) -f Makefile.devel precompiled + +# ==================== Targets for testing ==================== + +COMPILERS="cc -O" "gcc -freg-struct-return" "gcc -fpcc-struct-return" + +multibuild : force + for compiler in $(COMPILERS) ; do \ + dir=build-`echo $$compiler | sed -e 's, ,,g' -e 's,/,_,g'`; \ + mkdir $$dir; cd $$dir; \ + CC="$$compiler" ../configure --srcdir=.. && make && make check; \ + cd ..; \ + done + + +force : diff --git a/Makefile.in b/Makefile.in new file mode 100644 index 0000000..d234bdf --- /dev/null +++ b/Makefile.in @@ -0,0 +1,239 @@ +# Makefile for libffcall + +#### Start of system configuration section. #### + +# Directories used by "make": +srcdir = @srcdir@ + +# Directories used by "make install": +prefix = @prefix@ +local_prefix = /usr/local +exec_prefix = @exec_prefix@ +libdir = @libdir@ +includedir = @includedir@ +mandir = @mandir@ +datadir = @datadir@ +datarootdir = @datarootdir@ + +# Programs used by "make": +# C compiler +CC = @CC@ +CFLAGS = @CFLAGS@ +CPP = @CPP@ +# Both C and C++ compiler +CPPFLAGS = @CPPFLAGS@ +INCLUDES = -I. -I$(srcdir) -I.. -I$(srcdir)/.. -I$(srcdir)/vacall_r +LDFLAGS = @LDFLAGS@ +LIBTOOL = @LIBTOOL@ +LIBTOOL_COMPILE = $(LIBTOOL) --mode=compile +LIBTOOL_LINK = $(LIBTOOL) --mode=link +LIBTOOL_INSTALL = $(LIBTOOL) --mode=install +LIBTOOL_UNINSTALL = $(LIBTOOL) --mode=uninstall +AR = @AR@ +AR_FLAGS = rc +RANLIB = @RANLIB@ +RM = rm -f +@SET_MAKE@ + +# Programs used by "make install": +INSTALL = @INSTALL@ +INSTALL_DATA = @INSTALL_DATA@ + +#### End of system configuration section. #### + +SHELL = /bin/sh + +# This package does not support parallel make. +# So, turn off parallel execution (at least in GNU make >= 4.0). +GNUMAKEFLAGS = -j1 + +# Needed by $(LIBTOOL). +top_builddir = . + +# Limit the set of exported symbols, on those platforms where libtool supports it. +# Currently this excludes the symbols from gnulib modules. +LIBFFCALL_EXPORTED_SYMBOLS_REGEX = '^ffcall_|^avcall_|^callback_|_callback$$' + +# Before making a release, change this according to the libtool documentation, +# section "Library interface versions". +LIBFFCALL_VERSION_INFO = 0:2:0 + +all : all-subdirs libffcall.la + +all-subdirs : ffcall-version.h force + cd @subdir@ && $(MAKE) all + +ffcall-version.h : $(srcdir)/ffcall-version.in.h + cd .. && ./config.status --header=ffcall-version.h:ffcall-version.in.h + +ffcall-version.lo : $(srcdir)/ffcall-version.c ffcall-version.h config.h + $(LIBTOOL_COMPILE) $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/ffcall-version.c + +libffcall.la : ffcall-version.lo avcall/avcall.lo avcall/avcall-libapi.lo avcall/avcall-structcpy.lo callback/vacall_r/libvacall.la callback/trampoline_r/libtrampoline.la callback/callback-libapi.lo + $(LIBTOOL_LINK) $(CC) -o libffcall.la -rpath $(libdir) -no-undefined -export-symbols-regex $(LIBFFCALL_EXPORTED_SYMBOLS_REGEX) -version-info $(LIBFFCALL_VERSION_INFO) ffcall-version.lo avcall/avcall.lo avcall/avcall-libapi.lo avcall/avcall-structcpy.lo callback/vacall_r/vacall.lo callback/vacall_r/vacall-libapi.lo callback/vacall_r/vacall-structcpy.lo callback/trampoline_r/*.lo callback/callback-libapi.lo gnulib-lib/libgnu.la $(LDFLAGS) $(LTLIBTHREAD) + +install : force + mkdir -p $(DESTDIR)$(prefix) + mkdir -p $(DESTDIR)$(libdir) + $(LIBTOOL_INSTALL) $(INSTALL_DATA) libffcall.la $(DESTDIR)$(libdir)/libffcall.la + mkdir -p $(DESTDIR)$(includedir) + $(INSTALL_DATA) ffcall-version.h $(DESTDIR)$(includedir)/ffcall-version.h + $(INSTALL_DATA) $(srcdir)/ffcall-abi.h $(DESTDIR)$(includedir)/ffcall-abi.h + cd @subdir@ && $(MAKE) install + +installdirs : force + mkdir -p $(DESTDIR)$(prefix) + mkdir -p $(DESTDIR)$(libdir) + mkdir -p $(DESTDIR)$(includedir) + cd @subdir@ && $(MAKE) installdirs + +uninstall : force + cd @subdir@ && $(MAKE) uninstall + $(LIBTOOL_UNINSTALL) $(RM) $(DESTDIR)$(libdir)/libffcall.la + $(RM) $(DESTDIR)$(includedir)/ffcall-abi.h + $(RM) $(DESTDIR)$(includedir)/ffcall-version.h + +check : force + cd @subdir@ && $(MAKE) check + +extracheck : force + cd @subdir@ && $(MAKE) extracheck + +MOSTLYCLEANDIRS = .libs _libs +MOSTLYCLEANFILES = \ + *.@OBJEXT@ *.lo core \ + libffcall.* + +mostlyclean : force + cd @subdir@ && $(MAKE) mostlyclean + $(RM) -r $(MOSTLYCLEANDIRS) + $(RM) $(MOSTLYCLEANFILES) + +clean : force + cd @subdir@ && $(MAKE) clean + $(RM) -r $(MOSTLYCLEANDIRS) + $(RM) $(MOSTLYCLEANFILES) + +DISTCLEANFILES = \ + config.status config.log config.cache Makefile config.h ffcall-version.h libtool \ + stamp-h1 stamp-h2 + +distclean : force + cd @subdir@; if test -f Makefile; then $(MAKE) distclean; fi + $(RM) -r $(MOSTLYCLEANDIRS) + $(RM) $(MOSTLYCLEANFILES) + $(RM) $(DISTCLEANFILES) + +maintainer-clean : force + cd @subdir@; if test -f Makefile; then $(MAKE) maintainer-clean; fi + $(RM) -r $(MOSTLYCLEANDIRS) + $(RM) $(MOSTLYCLEANFILES) + $(RM) $(DISTCLEANFILES) + + +# List of source files (committed in version control). +SOURCE_FILES = \ + COPYING DEPENDENCIES INSTALL.os2 INSTALL.windows NEWS PLATFORMS README \ + ChangeLog \ + VERSION \ + Makefile.devel \ + Makefile.maint \ + Makefile.in \ + configure.ac \ + m4/as-underscore.m4 \ + m4/cc-gcc.m4 \ + m4/codeexec.m4 \ + m4/endianness.m4 \ + m4/general.m4 \ + m4/getpagesize.m4 \ + m4/ireg.m4 \ + m4/ln.m4 \ + m4/mach-vm.m4 \ + m4/mmap.m4 \ + m4/mprotect.m4 \ + m4/proto.m4 \ + m4/shm.m4 \ + m4/smallstruct.m4 \ + common/asm-alpha.sh \ + common/asm-arm.sh common/asm-arm.h \ + common/asm-hppa.sh common/asm-hppa.h \ + common/asm-hppa64.sh common/asm-hppa64.h \ + common/asm-i386.sh common/asm-i386.h \ + common/asm-m68k.sh common/asm-m68k.h \ + common/asm-mips.sh common/asm-mips.h \ + common/asm-powerpc.sh \ + common/asm-riscv.sh \ + common/asm-s390.sh \ + common/asm-sparc.sh common/asm-sparc.h \ + common/asm-x86_64.sh common/asm-x86_64.h \ + common/noexecstack.h common/noexecstack-arm.h \ + common/structcpy.c \ + common/uniq-u.c \ + ffcall-version.in.h dummy/ffcall-version.h \ + ffcall-abi.h \ + ffcall-stdint.h \ + ffcall-version.c \ + testcases.c +# List of distributed files imported from other packages or directories. +LIBTOOL_IMPORTED_FILES = \ + build-aux/ltmain.sh \ + m4/libtool.m4 \ + m4/lt~obsolete.m4 \ + m4/ltoptions.m4 \ + m4/ltsugar.m4 \ + m4/ltversion.m4 +GNULIB_IMPORTED_FILES = \ + build-aux/ar-lib \ + build-aux/compile \ + build-aux/config.guess \ + build-aux/config.sub \ + build-aux/install-sh \ + gnulib-m4/*.m4 +AUTOMAKE_IMPORTED_FILES = \ + build-aux/missing +IMPORTED_FILES = \ + $(LIBTOOL_IMPORTED_FILES) $(GNULIB_IMPORTED_FILES) $(AUTOMAKE_IMPORTED_FILES) +# List of files copied by autogen.sh. +COPIED_FILES = \ + callback/trampoline_r/PORTING \ + callback/trampoline_r/cache.c \ + callback/trampoline_r/cache-alpha.c \ + callback/trampoline_r/cache-hppa.c +# List of distributed files generated by Makefile.maint. +GENERATED_FILES = \ + aclocal.m4 \ + configure \ + config.h.in +# List of distributed files. +DISTFILES = $(SOURCE_FILES) $(IMPORTED_FILES) $(COPIED_FILES) $(GENERATED_FILES) + +distdir : $(DISTFILES) + for file in $(DISTFILES); do \ + if test -f $$file; then dir='.'; else dir='$(srcdir)'; fi; \ + destdir=`echo '$(distdir)'/$$file | sed -e 's|//*[^/]*$$||'`; \ + test -d "$$destdir" || mkdir -p "$$destdir"; \ + cp -p "$$dir/$$file" '$(distdir)'/$$file || exit 1; \ + done + test -d '$(distdir)'/@subdir@ || mkdir '$(distdir)'/@subdir@; cd @subdir@ && $(MAKE) distdir distdir='$(distdir)'/@subdir@ + + +# Creating a distribution tarball. +# Example: make dist VERSION=1.13-pre-20161227 +PACKAGE = @PACKAGE_TARNAME@ +VERSION = @VERSION@ +TAR = tar +GZIP = gzip + +dist : force + tmpdistdir=$(PACKAGE)-$(VERSION); \ + abstmpdistdir=`pwd`/$$tmpdistdir; \ + rm -rf $$tmpdistdir $$tmpdistdir.tar $$tmpdistdir.tar.gz \ + && mkdir $$tmpdistdir \ + && $(MAKE) distdir distdir="$$abstmpdistdir" \ + && $(TAR) chof $$tmpdistdir.tar --owner=root --group=root $$tmpdistdir \ + && $(GZIP) -9 $$tmpdistdir.tar \ + && rm -rf $$tmpdistdir + + +force : + diff --git a/Makefile.maint b/Makefile.maint new file mode 100644 index 0000000..d344ae7 --- /dev/null +++ b/Makefile.maint @@ -0,0 +1,176 @@ +# maintainer -*-Makefile-*- + +SHELL = /bin/sh +MAKE = make + +# You need to use this precise version of GNU Automake. +# If you want to use a different version of GNU Automake, you are on your own! +ACLOCAL = aclocal-1.15 +AUTOMAKE = automake-1.15 + +# You need to use this precise version of GNU Autoconf and create +# symbolic links +# $ ln -s `which autoconf` autoconf-`autoconf --version | sed -e '2,$d' -e 's/^[^0-9]*//'` +# $ ln -s `which autoheader` autoheader-`autoheader --version | sed -e '2,$d' -e 's/^[^0-9]*//'` +# If you want to use a different version of GNU Autoconf, you are on your own! +AUTOCONF = autoconf-2.69 +AUTOHEADER = autoheader-2.69 + +CP = cp +RM = rm -f + +# ==================== Easily regeneratable files ==================== + +.PHONY : all +all : aclocal.m4 configures check-configures config-h-in Makefile-ins force + cd avcall && $(MAKE) -f Makefile.maint all + cd vacall && $(MAKE) -f Makefile.maint all + cd trampoline && $(MAKE) -f Makefile.maint all + cd callback && $(MAKE) -f Makefile.maint all + + +# Files originating from GNU libtool. + +# It is important to get ltmain.sh and libtool.m4 from the same version of +# libtool. Don't rely on what's installed in /usr/share or similar. + +.PHONY : libtool-imported-files +libtool-imported-files : force + test -n "$(LIBTOOL_RELEASE)" || { echo "Variable LIBTOOL_RELEASE not set." 1>&2; exit 1; } + test -f "$(LIBTOOL_RELEASE)" || { echo "File $(LIBTOOL_RELEASE) does not exist." 1>&2; exit 1; } + rm -rf libtool.tmp + mkdir libtool.tmp + gzip -d -c < "$(LIBTOOL_RELEASE)" | (cd libtool.tmp && tar -xf -) + test -d build-aux || mkdir build-aux + for destfile in m4/libtool.m4 m4/ltoptions.m4 m4/ltsugar.m4 m4/ltversion.m4 m4/lt~obsolete.m4 build-aux/ltmain.sh; do \ + name=`echo $$destfile | sed -e 's|^.*/||'`; \ + srcfile=`find libtool.tmp -name $$name -print | sed 1q`; \ + if test -n "$$srcfile"; then \ + if test -f $$destfile && cmp "$$srcfile" $$destfile > /dev/null; then \ + : ; \ + else \ + mv "$$srcfile" $$destfile; \ + fi; \ + else \ + echo "File $(LIBTOOL_RELEASE) does not contain the expected files of a libtool release." 1>&2; \ + exit 1; \ + fi; \ + done + rm -rf libtool.tmp + : "Allow building statically linked binaries, through LDFLAGS=-static ." + wget --execute netrc=off --no-verbose --retry-connrefused --timeout=60 -O libtool-allow-static.diff https://lists.gnu.org/archive/html/bug-libtool/2017-07/txt7Q9LRXv6HS.txt + chmod u+w build-aux/ltmain.sh + patch build-aux/ltmain.sh < libtool-allow-static.diff + rm -f libtool-allow-static.diff + : "Fix -export-symbols and -export-symbols-regex support on Solaris 11.3" + wget --execute netrc=off --no-verbose --retry-connrefused --timeout=60 -O libtool-solaris11-fix.diff 'https://savannah.gnu.org/patch/download.php?file_id=42205' + chmod u+w m4/libtool.m4 + patch -p1 < libtool-solaris11-fix.diff + rm -f libtool-solaris11-fix.diff + +.PHONY : libtool-clean +libtool-clean : force + $(RM) m4/libtool.m4 build-aux/ltmain.sh + + +# Files brought in by gnulib-tool. + +GNULIB_MODULES = \ + ansi-c++-opt \ + host-cpu-c-abi \ + lock \ + longlong \ + nocrash \ + stdint \ + stdnoreturn + +gnulib-m4/gnulib-cache.m4 : + if test -n "$$GNULIB_TOOL"; then \ + $$GNULIB_TOOL --source-base=gnulib-lib --m4-base=gnulib-m4 --aux-dir=build-aux --libtool --no-changelog \ + --import $(GNULIB_MODULES); \ + fi + +.PHONY : gnulib-imported-files +gnulib-imported-files : force +# Get up-to-date versions of files imported from https://git.savannah.gnu.org/gitweb/?p=automake.git;a=tree;f=lib via gnulib. + if test -n "$$GNULIB_TOOL"; then \ + for file in ar-lib compile install-sh; do \ + $$GNULIB_TOOL --copy-file build-aux/$$file || exit $$?; \ + chmod a+x build-aux/$$file || exit $$?; \ + done; \ + fi +# Get up-to-date versions of files imported from https://git.savannah.gnu.org/gitweb/?p=config.git;a=tree via gnulib. + if test -n "$$GNULIB_TOOL"; then \ + for file in config.guess config.sub; do \ + $$GNULIB_TOOL --copy-file build-aux/$$file || exit $$?; \ + chmod a+x build-aux/$$file || exit $$?; \ + done; \ + fi + +.PHONY : gnulib-clean +gnulib-clean : force +# Move gnulib-m4/gnulib-cache.m4 away, so that the target 'gnulib-m4/gnulib-cache.m4' will actually do something. + if test -f gnulib-m4/gnulib-cache.m4; then \ + mv gnulib-m4/gnulib-cache.m4 gnulib-m4/gnulib-cache.m4~; \ + fi +# No need to remove the stale files. gnulib-tool does this itself, thanks to gnulib-m4/gnulib-comp.m4. +# rm -rf gnulib-m4 + + +# Files generated by GNU Autoconf and GNU Automake. + +AUTOCONF_CACHE = autom4te.cache + +ALL_CONFIGURE = configure +ALL_CONFIGURE_AC = configure.ac + +aclocal.m4 : $(ALL_CONFIGURE_AC) $(wildcard m4/*.m4) $(wildcard gnulib-m4/*.m4) + $(ACLOCAL) --output=aclocal.m4 -I m4 -I gnulib-m4 + +.PHONY : configures +configures : $(ALL_CONFIGURE) + +AUTOCONF_FILES = aclocal.m4 $(wildcard m4/*.m4) $(wildcard gnulib-m4/*.m4) + +configure : configure.ac $(AUTOCONF_FILES) + $(AUTOCONF) && rm -rf autom4te.cache + +.PHONY : check-configures +check-configures : $(ALL_CONFIGURE) + set -e; for f in $(ALL_CONFIGURE); do bash -x -n $$f; done + + +ALL_CONFIG_H_IN = config.h.in + +.PHONY : config-h-in +config-h-in : $(ALL_CONFIG_H_IN) + +config.h.in : configure.ac $(AUTOCONF_FILES) + srcdir=`pwd`; $(AUTOHEADER) --include="$$srcdir" && rm -rf autom4te.cache + + +ALL_MAKEFILE_IN_FROM_AM = gnulib-lib/Makefile.in + +.PHONY: Makefile-ins +Makefile-ins : $(ALL_MAKEFILE_IN_FROM_AM) + +gnulib-lib/Makefile.in : gnulib-lib/Makefile.am configure.ac $(AUTOCONF_FILES) + : "Make sure we get new versions of files brought in by automake." + (cd build-aux && rm -f depcomp missing) + $(AUTOMAKE) --add-missing --copy && rm -rf autom4te.cache + + +# ==================== Cleanup ==================== + +.PHONY : totally-clean +totally-clean : force + cd avcall && $(MAKE) -f Makefile.maint totally-clean + cd vacall && $(MAKE) -f Makefile.maint totally-clean + cd trampoline && $(MAKE) -f Makefile.maint totally-clean + cd callback && $(MAKE) -f Makefile.maint totally-clean + rm -f $(ALL_CONFIGURE) $(ALL_CONFIG_H_IN) + rm -f aclocal.m4 + rm -rf `find . -name $(AUTOCONF_CACHE) -print` + + +force : diff --git a/NEWS b/NEWS new file mode 100644 index 0000000..d724008 --- /dev/null +++ b/NEWS @@ -0,0 +1,222 @@ +New in 2.2: + +* Added support for the following platforms: + (Previously, a build on these platforms failed.) + - armv6 (Raspberry Pi): Linux. + - hppa: Linux 32-bit. + - riscv32: Linux with ilp32d ABI. + - riscv64: Linux with lp64d ABI. + +* The build for the mips 32-bit ABI is now compatible with toolchains for + the 'fpxx' ABI variant. The downside is that the mips1 architecture is + no longer supported. + +* Fixed a bug regarding passing of more than 8 arguments on the following + platforms: + - arm64: Linux 64-bit. + +* Fixed a stack corruption bug on the following platforms: + - hppa: HP-UX 32-bit. + +New in 2.1: + +* Added support for the following platforms: + (Previously, a build on these platforms failed.) + - arm: Linux with PIE-enabled gcc. + - x86_64: Solaris 11.3. + - OpenBSD 6.1. + - HardenedBSD 10 and 11. + +* Fixed a bug regarding passing of pointers on the following platforms: + - x86_64: Linux with x32 ABI: CC="gcc -mx32". + +* Fixed a crash in trampoline on the following platforms: + - mips: Linux with CC="gcc -mabi=64", little endian. + +New in 2.0: + +* The package now installs a library libffcall.{a,so}. It contains the + 'avcall' and 'callback' packages. The libraries libavcall.{a,so} and + libcallback.{a,so} are still installed as well, but are deprecated. + +* The installed libraries are now installed as shared libraries by default + (except for libvacall, which is still a static library only). + +* The installed shared libraries are now properly versioned. This means that + when installing with --enable-shared, upgrading to a newer version of + libffcall will not break existing binaries. + +* The installed include files are now platform independent. This means that + you can now install libffcall for different ABIs on the same system, using + the same --prefix option but different --exec-prefix options for each ABI. + +* API changes in : + - The second argument of alloc_trampoline() is now a 'void**', rather + than a 'void*'. + - The return value of trampoline_variable() is now a 'void**', rather + than a 'void*'. + - The argument of trampoline_address(), trampoline_variable(), + trampoline_data() is now a function pointer instead of a 'void*'. + +* API changes in : + - The argument of callback_address(), callback_data() is now a function + pointer instead of a 'void*'. + +* Fixed a bug regarding floating-point arguments followed by + non-floating-point arguments on the following platforms: + - arm: Linux 32-bit, with hardware floats. + - powerpc: Linux 32-bit. + - s390: Linux. + +* Fixed a bug regarding structure returns on the following platforms: + - i386: FreeBSD. + - i386: MinGW. + - mips: old 32-bit ABI (Linux, IRIX). + +* Added support for the following platforms: + (Previously, a build on these platforms failed.) + - i386: MSVC 14. + - x86_64: Cygwin. + - x86_64: MinGW. + - x86_64: MSVC 14. + - hppa64: HP-UX 11. + - m68k: Linux. + +* Verified support for the following platforms: + (A build on these platforms worked and still works.) + - i386: FreeBSD, NetBSD, OpenBSD, DragonFly BSD. + - i386: Hurd. + - x86_64: FreeBSD, NetBSD, OpenBSD. + +New in 1.13: + +* The license has been changed from GPLv2 to GPLv2+. + +* Added support for the following platforms: + (Previously, a build on these platforms failed.) + - x86_64: Mac OS X 64-bit. + - x86_64: Solaris 64-bit. + - x86_64: Linux with x32 ABI: CC="gcc -mx32". + - arm: Linux 32-bit, without hardware floats. + - arm64: Linux 64-bit. + - s390x: Linux 64-bit. + - powerpc: AIX 64-bit. + - mips: IRIX 6.5 with CC="cc -32". + - sparc: Solaris 64-bit. + +* Fixed support for the following platforms: + (Previously, a build on these platforms appeared to succeed but was buggy.) + - x86_64: Linux. + - arm: Linux 32-bit, with hardware floats. + - powerpc: Linux 64-bit. + - mips: Linux with CC="gcc -mabi=32". + - mips: Linux with CC="gcc -mabi=n32". + - mips: Linux with CC="gcc -mabi=64". + - mips: IRIX 6.5 with CC="gcc -mabi=n32". + - s390: Linux. + - sparc: Linux 64-bit. + - ia64: Linux. + - hppa: HP-UX 32-bit. + +* Verified support for the following platforms: + (A build on these platforms worked and still works.) + - i386: Linux, Solaris, Mac OS X. + - powerpc: Linux 32-bit. + - powerpc: AIX 32-bit. + - powerpc: MacOS X. + - mips: IRIX 6.5 with CC="cc -n32". + - sparc: Solaris 32-bit. + - sparc: Linux 32-bit: CC="gcc -m32". + - alpha: Linux. + +* Support for a security feature: On Linux and FreeBSD platforms, linking with + the libffcall libraries no longer causes the stack to become executable. + +New in 1.12: + +* Added ppc64le to the list of supported architectures. + +New in 1.11: + +* Header now define LIBFFCALL_VERSION (to 0x010B). +* Better support for IA64 on Linux (kernel 2.6.16+ and gcc 4.1.0+). +* Added ARM support from Jonathan Olson (debian 1.10-2). +* Added MIPSel support from Thiemo Seufer (debian 1.10-2). +* Added ARMel support from Max Lapan. + +New in 1.10: + +* Added support for PowerPC NetBSD. + +New in 1.9: + +* Added support for x86_64 (AMD64) Linux. +* Added support for PowerPC MacOS X. + +New in 1.8: + +* Added support for IA64 Linux. + +New in 1.7: + +* Struct types containing elements other than int, long, long long, pointer + are not supported any more. Passing them as arguments and results is too + hairy. +* Added support for PowerPC Linux. + +New in 1.6: + +* The avcall and callback packages are compiled as position-independent code, + if CC="gcc -fPIC". +* The avcall and callback packages are built as shared libraries, if + the option "--enable-shared" is passed to configure. +* The package can now be built with CC="gcc -x c++". +* Improved RS6000/PowerPC support. +* Improved support for gcc on Irix6 (-n32 ABI). +* Added preliminary support for 64-bit SPARC. + +New in 1.5: + +* Added support for m68k Linux. + +New in 1.4: + +* Added support for the two new ABIs on Irix6 (-n32, -64). +* A fix for DEC Alpha. + +New in 1.3.1: + +* Added support for Mingw32 on Win32. +* Fixed a compilation problem in trampoline on m68k NetBSD. +* Fixed an installation problem with clisp: When configured outside the source + directory, callback.h would not be copied into the build directory. + +New in 1.3: + +* Added the callback package, a reentrant combination of vacall and trampoline. +* The avcall and callback packages are multithread-safe. +* Fixed bugs in trampoline on hppa and rs6000. +* On hppa, added support for gcc-2.7.2, although its calling convention is + different from gcc-2.6.3. + +New in 1.2.1: + +* Added support for MSVC5 on Win32. + +New in 1.2: + +* Support passing/returning values of type ‘long long’ and ‘unsigned long long’ + on platforms which have these types. +* Support for "stdcall" calling convention on i386. +* Added support for Cygwin32 and MSVC4 on Win32. +* Added support for EMX on OS/2. +* Added support for m68k AmigaOS (Jörg Höhle). +* Added support for m68k SunOS 4.0.3. +* More reliable cache-flushing in trampoline. + +New in 1.1: + +* Added support for SUNWspro cc on Sparc Solaris. +* Added support for AIX 4. +* Added preliminary support for 64-bit MIPS. + diff --git a/PLATFORMS b/PLATFORMS new file mode 100644 index 0000000..729a200 --- /dev/null +++ b/PLATFORMS @@ -0,0 +1,52 @@ +Supported CPUs: (Put the GNU config.guess values here.) + i386 i486-unknown-linux (gcc), i686-unknown-gnu0.9 (gcc), + i386-unknown-sysv4.0 (gcc, /usr/bin/cc, /usr/ucb/cc), + i386-pc-solaris2.6 (gcc), i386-pc-solaris2.10 (gcc, cc), + i486-unknown-sco3.2v4.2 (gcc, cc -Of), + i486-unknown-os2emx (gcc), i386-pc-cygwin32 (gcc), + i386-w64-mingw32 (gcc, MSVC 14), + i586-unknown-freebsd11.0 (cc), i386-unknown-dragonfly3.8 (gcc), + i386-unknown-netbsdelf7.0 (gcc), i386-unknown-openbsd6.0 (gcc), + i586-pc-haiku (gcc-x86), i386-pc-minix (clang) + m68k m68k-next-nextstep3 (cc), m68k-sun-sunos4.0 (cc), + m68k-unknown-linux (gcc) + mips mips-sgi-irix4.0.5 (gcc, cc -ansi, cc -D__STDC__, cc -cckr), + mips-sgi-irix5.2 (gcc, cc -ansi, cc -D__STDC__, cc -cckr), + mips-sgi-irix5.3 (gcc, cc -ansi, cc -D__STDC__, cc -cckr), + mips-sgi-irix6.2 (cc -32), + mips-sgi-irix6.4 (cc -32, cc -n32, cc -64), + mips-sgi-irix6.5 (cc -32, cc -n32, gcc -mabi=n32), + mips-unknown-linux (gcc -mabi=32), + mips64-unknown-linux (gcc -mabi=n32, gcc -mabi=64) + sparc sparc-sun-sunos4.1.1 (gcc, cc), sparc-sun-solaris2.3 (gcc) + sparc-sun-solaris2.4 (gcc, cc), sparc-sun-solaris2.10 (gcc, cc), + sparc64-sun-solaris2.10 (gcc -m64, cc -xarch=generic64), + sparc-unknown-linux (gcc), sparc64-unknown-linux (gcc), + sparc-unknown-netbsdelf7.1 (gcc), + sparc64-unknown-netbsd8.0 (gcc) + alpha alpha-dec-osf3.0 (gcc, cc), alpha-dec-osf4.0 (gcc, cc), + alphaev67-unknown-linux (gcc) + hppa hppa1.0-hp-hpux8.00 (gcc, cc), hppa1.1-hp-hpux9.05 (cc), + hppa1.1-hp-hpux10.01 (cc), hppa2.0-hp-hpux10.20 (cc +DA1.1), + hppa2.0w-hp-hpux11.31 (cc), hppa-unknown-linux (gcc) + hppa64 hppa64-hp-hpux11.31 (cc +DD64) + arm armv5tejl-unknown-linux (gcc), armv6l-unknown-linux (gcc), + armv7l-unknown-linux (gcc) + arm64 aarch64-unknown-linux (gcc) + powerpc powerpc-ibm-aix4.1.4.0 (cc), powerpc-ibm-aix7.1.3.0 (xlc, gcc), + powerpc-unknown-linux (gcc), powerpc-apple-darwin6.8 (gcc), + powerpc-apple-darwin9.8.0 (gcc) + powerpc64 powerpc-ibm-aix7.1.3.0 (gcc -maix64, xlc -q64; AR="ar -X 64"), + powerpc64-unknown-linux (gcc -m64), + powerpc64le-unknown-linux (gcc) + ia64 ia64-unknown-linux (gcc) + x86_64 x86_64-suse-linux (gcc), x86_64-unknown-linux (gcc -mx32), + x86_64-pc-solaris2.10 (gcc -m64, cc -xarch=generic64), + x86_64-pc-cygwin (gcc), x86_64-w64-mingw32 (gcc, MSVC 14), + x86_64-unknown-freebsd11.0 (cc), x86_64-unknown-netbsd7.0 (gcc), + x86_64-unknown-openbsd6.0 (gcc) + s390 s390x-ibm-linux (gcc -m31) + s390x s390x-ibm-linux (gcc) + riscv32 riscv32-unknown-linux (gcc -mabi=ilp32d) + riscv64 riscv64-unknown-linux (gcc -mabi=lp64d) + diff --git a/README b/README new file mode 100644 index 0000000..c78f9d8 --- /dev/null +++ b/README @@ -0,0 +1,112 @@ +libffcall - foreign function call libraries + +This is a library which can be used to build foreign function call interfaces +in embedded interpreters. + + +Installed libraries and header files: + + It installs a library libffcall.{a,so}; to link with it, use the compiler + option '-lffcall'. + + It consists of two parts: + * avcall - calling C functions with variable arguments. + Its include file is . + * callback - closures with variable arguments as first-class C functions. + Its include file is . + + Additionally, you can determine the libffcall version by including + . + + For backward compatibility with versions 1.x, libraries libavcall.{a,so} + and libcallback.{a,so} are installed as well. But they are deprecated; + use libffcall.{a,so} instead. + + +Installation instructions: + + mkdir builddir + cd builddir + ../configure --cache-file=config.cache + make + make check + make install + + +Files in this package: + + Documentation: + + README this text + COPYING free software license + PLATFORMS list of supported platforms + + Source: + + avcall/* the avcall package + (compiled into libffcall) + + vacall/* the vacall package + Implements C functions accepting variable argument + prototypes. + This is a non-reentrant variant of part of 'callback'. + *Not* compiled into libffcall. + + trampoline/* the trampoline package + Implements closures as first-class C functions. + This is a non-reentrant variant of part of 'callback'. + *Not* compiled into libffcall. + + callback/* the callback package + (compiled into libffcall) + + Building: + + configure configuration script + configure.ac autoconf source for the configuration script + m4/* auxiliary configuration scripts + Makefile.in Makefile master + + +Copyright notice: + +Copyright 1993-1995 Bill Triggs (original avcall) +Copyright 1995-2017 Bruno Haible (everything) +Copyright 1997 Jörg Höhle (m68k AmigaOS support) +Copyright 2000 Adam Fedor (PowerPC MacOS support) +Copyright 2001-2012 Sam Steingold (build infrastructure) +Copyright 2001-2002 Gerhard Tonn (s390 support) +Copyright 2004 Paul Guyot (PowerPC MacOS support) +Copyright 2005 Thiemo Seufer (MIPS EL support) +Copyright 2009 Max Lapan (ARM EL support) +Copyright 2010 Valery Ushakov (SPARC64 improvements) + +This program is free software: you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2 of the License, or +(at your option) any later version. + +This program is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with this program. If not, see . + + +Distribution: + +git: +$ git clone git://git.savannah.gnu.org/libffcall.git +See https://savannah.gnu.org/git/?group=libffcall for more info. + +Bug reports: + +Report bugs + - in the bug tracker at + - or by email to . + +Homepage: + + https://www.gnu.org/software/libffcall/ diff --git a/VERSION b/VERSION new file mode 100644 index 0000000..8bbe6cf --- /dev/null +++ b/VERSION @@ -0,0 +1 @@ +2.2 diff --git a/aclocal.m4 b/aclocal.m4 new file mode 100644 index 0000000..3380e50 --- /dev/null +++ b/aclocal.m4 @@ -0,0 +1,1194 @@ +# generated automatically by aclocal 1.15.1 -*- Autoconf -*- + +# Copyright (C) 1996-2017 Free Software Foundation, Inc. + +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY, to the extent permitted by law; without +# even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. + +m4_ifndef([AC_CONFIG_MACRO_DIRS], [m4_defun([_AM_CONFIG_MACRO_DIRS], [])m4_defun([AC_CONFIG_MACRO_DIRS], [_AM_CONFIG_MACRO_DIRS($@)])]) +m4_ifndef([AC_AUTOCONF_VERSION], + [m4_copy([m4_PACKAGE_VERSION], [AC_AUTOCONF_VERSION])])dnl +m4_if(m4_defn([AC_AUTOCONF_VERSION]), [2.69],, +[m4_warning([this file was generated for autoconf 2.69. +You have another version of autoconf. It may work, but is not guaranteed to. +If you have problems, you may need to regenerate the build system entirely. +To do so, use the procedure documented by the package, typically 'autoreconf'.])]) + +# Copyright (C) 2002-2017 Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# AM_AUTOMAKE_VERSION(VERSION) +# ---------------------------- +# Automake X.Y traces this macro to ensure aclocal.m4 has been +# generated from the m4 files accompanying Automake X.Y. +# (This private macro should not be called outside this file.) +AC_DEFUN([AM_AUTOMAKE_VERSION], +[am__api_version='1.15' +dnl Some users find AM_AUTOMAKE_VERSION and mistake it for a way to +dnl require some minimum version. Point them to the right macro. +m4_if([$1], [1.15.1], [], + [AC_FATAL([Do not call $0, use AM_INIT_AUTOMAKE([$1]).])])dnl +]) + +# _AM_AUTOCONF_VERSION(VERSION) +# ----------------------------- +# aclocal traces this macro to find the Autoconf version. +# This is a private macro too. Using m4_define simplifies +# the logic in aclocal, which can simply ignore this definition. +m4_define([_AM_AUTOCONF_VERSION], []) + +# AM_SET_CURRENT_AUTOMAKE_VERSION +# ------------------------------- +# Call AM_AUTOMAKE_VERSION and AM_AUTOMAKE_VERSION so they can be traced. +# This function is AC_REQUIREd by AM_INIT_AUTOMAKE. +AC_DEFUN([AM_SET_CURRENT_AUTOMAKE_VERSION], +[AM_AUTOMAKE_VERSION([1.15.1])dnl +m4_ifndef([AC_AUTOCONF_VERSION], + [m4_copy([m4_PACKAGE_VERSION], [AC_AUTOCONF_VERSION])])dnl +_AM_AUTOCONF_VERSION(m4_defn([AC_AUTOCONF_VERSION]))]) + +# AM_AUX_DIR_EXPAND -*- Autoconf -*- + +# Copyright (C) 2001-2017 Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# For projects using AC_CONFIG_AUX_DIR([foo]), Autoconf sets +# $ac_aux_dir to '$srcdir/foo'. In other projects, it is set to +# '$srcdir', '$srcdir/..', or '$srcdir/../..'. +# +# Of course, Automake must honor this variable whenever it calls a +# tool from the auxiliary directory. The problem is that $srcdir (and +# therefore $ac_aux_dir as well) can be either absolute or relative, +# depending on how configure is run. This is pretty annoying, since +# it makes $ac_aux_dir quite unusable in subdirectories: in the top +# source directory, any form will work fine, but in subdirectories a +# relative path needs to be adjusted first. +# +# $ac_aux_dir/missing +# fails when called from a subdirectory if $ac_aux_dir is relative +# $top_srcdir/$ac_aux_dir/missing +# fails if $ac_aux_dir is absolute, +# fails when called from a subdirectory in a VPATH build with +# a relative $ac_aux_dir +# +# The reason of the latter failure is that $top_srcdir and $ac_aux_dir +# are both prefixed by $srcdir. In an in-source build this is usually +# harmless because $srcdir is '.', but things will broke when you +# start a VPATH build or use an absolute $srcdir. +# +# So we could use something similar to $top_srcdir/$ac_aux_dir/missing, +# iff we strip the leading $srcdir from $ac_aux_dir. That would be: +# am_aux_dir='\$(top_srcdir)/'`expr "$ac_aux_dir" : "$srcdir//*\(.*\)"` +# and then we would define $MISSING as +# MISSING="\${SHELL} $am_aux_dir/missing" +# This will work as long as MISSING is not called from configure, because +# unfortunately $(top_srcdir) has no meaning in configure. +# However there are other variables, like CC, which are often used in +# configure, and could therefore not use this "fixed" $ac_aux_dir. +# +# Another solution, used here, is to always expand $ac_aux_dir to an +# absolute PATH. The drawback is that using absolute paths prevent a +# configured tree to be moved without reconfiguration. + +AC_DEFUN([AM_AUX_DIR_EXPAND], +[AC_REQUIRE([AC_CONFIG_AUX_DIR_DEFAULT])dnl +# Expand $ac_aux_dir to an absolute path. +am_aux_dir=`cd "$ac_aux_dir" && pwd` +]) + +# AM_CONDITIONAL -*- Autoconf -*- + +# Copyright (C) 1997-2017 Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# AM_CONDITIONAL(NAME, SHELL-CONDITION) +# ------------------------------------- +# Define a conditional. +AC_DEFUN([AM_CONDITIONAL], +[AC_PREREQ([2.52])dnl + m4_if([$1], [TRUE], [AC_FATAL([$0: invalid condition: $1])], + [$1], [FALSE], [AC_FATAL([$0: invalid condition: $1])])dnl +AC_SUBST([$1_TRUE])dnl +AC_SUBST([$1_FALSE])dnl +_AM_SUBST_NOTMAKE([$1_TRUE])dnl +_AM_SUBST_NOTMAKE([$1_FALSE])dnl +m4_define([_AM_COND_VALUE_$1], [$2])dnl +if $2; then + $1_TRUE= + $1_FALSE='#' +else + $1_TRUE='#' + $1_FALSE= +fi +AC_CONFIG_COMMANDS_PRE( +[if test -z "${$1_TRUE}" && test -z "${$1_FALSE}"; then + AC_MSG_ERROR([[conditional "$1" was never defined. +Usually this means the macro was only invoked conditionally.]]) +fi])]) + +# Copyright (C) 1999-2017 Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + + +# There are a few dirty hacks below to avoid letting 'AC_PROG_CC' be +# written in clear, in which case automake, when reading aclocal.m4, +# will think it sees a *use*, and therefore will trigger all it's +# C support machinery. Also note that it means that autoscan, seeing +# CC etc. in the Makefile, will ask for an AC_PROG_CC use... + + +# _AM_DEPENDENCIES(NAME) +# ---------------------- +# See how the compiler implements dependency checking. +# NAME is "CC", "CXX", "OBJC", "OBJCXX", "UPC", or "GJC". +# We try a few techniques and use that to set a single cache variable. +# +# We don't AC_REQUIRE the corresponding AC_PROG_CC since the latter was +# modified to invoke _AM_DEPENDENCIES(CC); we would have a circular +# dependency, and given that the user is not expected to run this macro, +# just rely on AC_PROG_CC. +AC_DEFUN([_AM_DEPENDENCIES], +[AC_REQUIRE([AM_SET_DEPDIR])dnl +AC_REQUIRE([AM_OUTPUT_DEPENDENCY_COMMANDS])dnl +AC_REQUIRE([AM_MAKE_INCLUDE])dnl +AC_REQUIRE([AM_DEP_TRACK])dnl + +m4_if([$1], [CC], [depcc="$CC" am_compiler_list=], + [$1], [CXX], [depcc="$CXX" am_compiler_list=], + [$1], [OBJC], [depcc="$OBJC" am_compiler_list='gcc3 gcc'], + [$1], [OBJCXX], [depcc="$OBJCXX" am_compiler_list='gcc3 gcc'], + [$1], [UPC], [depcc="$UPC" am_compiler_list=], + [$1], [GCJ], [depcc="$GCJ" am_compiler_list='gcc3 gcc'], + [depcc="$$1" am_compiler_list=]) + +AC_CACHE_CHECK([dependency style of $depcc], + [am_cv_$1_dependencies_compiler_type], +[if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then + # We make a subdir and do the tests there. Otherwise we can end up + # making bogus files that we don't know about and never remove. For + # instance it was reported that on HP-UX the gcc test will end up + # making a dummy file named 'D' -- because '-MD' means "put the output + # in D". + rm -rf conftest.dir + mkdir conftest.dir + # Copy depcomp to subdir because otherwise we won't find it if we're + # using a relative directory. + cp "$am_depcomp" conftest.dir + cd conftest.dir + # We will build objects and dependencies in a subdirectory because + # it helps to detect inapplicable dependency modes. For instance + # both Tru64's cc and ICC support -MD to output dependencies as a + # side effect of compilation, but ICC will put the dependencies in + # the current directory while Tru64 will put them in the object + # directory. + mkdir sub + + am_cv_$1_dependencies_compiler_type=none + if test "$am_compiler_list" = ""; then + am_compiler_list=`sed -n ['s/^#*\([a-zA-Z0-9]*\))$/\1/p'] < ./depcomp` + fi + am__universal=false + m4_case([$1], [CC], + [case " $depcc " in #( + *\ -arch\ *\ -arch\ *) am__universal=true ;; + esac], + [CXX], + [case " $depcc " in #( + *\ -arch\ *\ -arch\ *) am__universal=true ;; + esac]) + + for depmode in $am_compiler_list; do + # Setup a source with many dependencies, because some compilers + # like to wrap large dependency lists on column 80 (with \), and + # we should not choose a depcomp mode which is confused by this. + # + # We need to recreate these files for each test, as the compiler may + # overwrite some of them when testing with obscure command lines. + # This happens at least with the AIX C compiler. + : > sub/conftest.c + for i in 1 2 3 4 5 6; do + echo '#include "conftst'$i'.h"' >> sub/conftest.c + # Using ": > sub/conftst$i.h" creates only sub/conftst1.h with + # Solaris 10 /bin/sh. + echo '/* dummy */' > sub/conftst$i.h + done + echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf + + # We check with '-c' and '-o' for the sake of the "dashmstdout" + # mode. It turns out that the SunPro C++ compiler does not properly + # handle '-M -o', and we need to detect this. Also, some Intel + # versions had trouble with output in subdirs. + am__obj=sub/conftest.${OBJEXT-o} + am__minus_obj="-o $am__obj" + case $depmode in + gcc) + # This depmode causes a compiler race in universal mode. + test "$am__universal" = false || continue + ;; + nosideeffect) + # After this tag, mechanisms are not by side-effect, so they'll + # only be used when explicitly requested. + if test "x$enable_dependency_tracking" = xyes; then + continue + else + break + fi + ;; + msvc7 | msvc7msys | msvisualcpp | msvcmsys) + # This compiler won't grok '-c -o', but also, the minuso test has + # not run yet. These depmodes are late enough in the game, and + # so weak that their functioning should not be impacted. + am__obj=conftest.${OBJEXT-o} + am__minus_obj= + ;; + none) break ;; + esac + if depmode=$depmode \ + source=sub/conftest.c object=$am__obj \ + depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ + $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \ + >/dev/null 2>conftest.err && + grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 && + grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && + grep $am__obj sub/conftest.Po > /dev/null 2>&1 && + ${MAKE-make} -s -f confmf > /dev/null 2>&1; then + # icc doesn't choke on unknown options, it will just issue warnings + # or remarks (even with -Werror). So we grep stderr for any message + # that says an option was ignored or not supported. + # When given -MP, icc 7.0 and 7.1 complain thusly: + # icc: Command line warning: ignoring option '-M'; no argument required + # The diagnosis changed in icc 8.0: + # icc: Command line remark: option '-MP' not supported + if (grep 'ignoring option' conftest.err || + grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else + am_cv_$1_dependencies_compiler_type=$depmode + break + fi + fi + done + + cd .. + rm -rf conftest.dir +else + am_cv_$1_dependencies_compiler_type=none +fi +]) +AC_SUBST([$1DEPMODE], [depmode=$am_cv_$1_dependencies_compiler_type]) +AM_CONDITIONAL([am__fastdep$1], [ + test "x$enable_dependency_tracking" != xno \ + && test "$am_cv_$1_dependencies_compiler_type" = gcc3]) +]) + + +# AM_SET_DEPDIR +# ------------- +# Choose a directory name for dependency files. +# This macro is AC_REQUIREd in _AM_DEPENDENCIES. +AC_DEFUN([AM_SET_DEPDIR], +[AC_REQUIRE([AM_SET_LEADING_DOT])dnl +AC_SUBST([DEPDIR], ["${am__leading_dot}deps"])dnl +]) + + +# AM_DEP_TRACK +# ------------ +AC_DEFUN([AM_DEP_TRACK], +[AC_ARG_ENABLE([dependency-tracking], [dnl +AS_HELP_STRING( + [--enable-dependency-tracking], + [do not reject slow dependency extractors]) +AS_HELP_STRING( + [--disable-dependency-tracking], + [speeds up one-time build])]) +if test "x$enable_dependency_tracking" != xno; then + am_depcomp="$ac_aux_dir/depcomp" + AMDEPBACKSLASH='\' + am__nodep='_no' +fi +AM_CONDITIONAL([AMDEP], [test "x$enable_dependency_tracking" != xno]) +AC_SUBST([AMDEPBACKSLASH])dnl +_AM_SUBST_NOTMAKE([AMDEPBACKSLASH])dnl +AC_SUBST([am__nodep])dnl +_AM_SUBST_NOTMAKE([am__nodep])dnl +]) + +# Generate code to set up dependency tracking. -*- Autoconf -*- + +# Copyright (C) 1999-2017 Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + + +# _AM_OUTPUT_DEPENDENCY_COMMANDS +# ------------------------------ +AC_DEFUN([_AM_OUTPUT_DEPENDENCY_COMMANDS], +[{ + # Older Autoconf quotes --file arguments for eval, but not when files + # are listed without --file. Let's play safe and only enable the eval + # if we detect the quoting. + case $CONFIG_FILES in + *\'*) eval set x "$CONFIG_FILES" ;; + *) set x $CONFIG_FILES ;; + esac + shift + for mf + do + # Strip MF so we end up with the name of the file. + mf=`echo "$mf" | sed -e 's/:.*$//'` + # Check whether this is an Automake generated Makefile or not. + # We used to match only the files named 'Makefile.in', but + # some people rename them; so instead we look at the file content. + # Grep'ing the first line is not enough: some people post-process + # each Makefile.in and add a new line on top of each file to say so. + # Grep'ing the whole file is not good either: AIX grep has a line + # limit of 2048, but all sed's we know have understand at least 4000. + if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then + dirpart=`AS_DIRNAME("$mf")` + else + continue + fi + # Extract the definition of DEPDIR, am__include, and am__quote + # from the Makefile without running 'make'. + DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` + test -z "$DEPDIR" && continue + am__include=`sed -n 's/^am__include = //p' < "$mf"` + test -z "$am__include" && continue + am__quote=`sed -n 's/^am__quote = //p' < "$mf"` + # Find all dependency output files, they are included files with + # $(DEPDIR) in their names. We invoke sed twice because it is the + # simplest approach to changing $(DEPDIR) to its actual value in the + # expansion. + for file in `sed -n " + s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ + sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do + # Make sure the directory exists. + test -f "$dirpart/$file" && continue + fdir=`AS_DIRNAME(["$file"])` + AS_MKDIR_P([$dirpart/$fdir]) + # echo "creating $dirpart/$file" + echo '# dummy' > "$dirpart/$file" + done + done +} +])# _AM_OUTPUT_DEPENDENCY_COMMANDS + + +# AM_OUTPUT_DEPENDENCY_COMMANDS +# ----------------------------- +# This macro should only be invoked once -- use via AC_REQUIRE. +# +# This code is only required when automatic dependency tracking +# is enabled. FIXME. This creates each '.P' file that we will +# need in order to bootstrap the dependency handling code. +AC_DEFUN([AM_OUTPUT_DEPENDENCY_COMMANDS], +[AC_CONFIG_COMMANDS([depfiles], + [test x"$AMDEP_TRUE" != x"" || _AM_OUTPUT_DEPENDENCY_COMMANDS], + [AMDEP_TRUE="$AMDEP_TRUE" ac_aux_dir="$ac_aux_dir"]) +]) + +# Do all the work for Automake. -*- Autoconf -*- + +# Copyright (C) 1996-2017 Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# This macro actually does too much. Some checks are only needed if +# your package does certain things. But this isn't really a big deal. + +dnl Redefine AC_PROG_CC to automatically invoke _AM_PROG_CC_C_O. +m4_define([AC_PROG_CC], +m4_defn([AC_PROG_CC]) +[_AM_PROG_CC_C_O +]) + +# AM_INIT_AUTOMAKE(PACKAGE, VERSION, [NO-DEFINE]) +# AM_INIT_AUTOMAKE([OPTIONS]) +# ----------------------------------------------- +# The call with PACKAGE and VERSION arguments is the old style +# call (pre autoconf-2.50), which is being phased out. PACKAGE +# and VERSION should now be passed to AC_INIT and removed from +# the call to AM_INIT_AUTOMAKE. +# We support both call styles for the transition. After +# the next Automake release, Autoconf can make the AC_INIT +# arguments mandatory, and then we can depend on a new Autoconf +# release and drop the old call support. +AC_DEFUN([AM_INIT_AUTOMAKE], +[AC_PREREQ([2.65])dnl +dnl Autoconf wants to disallow AM_ names. We explicitly allow +dnl the ones we care about. +m4_pattern_allow([^AM_[A-Z]+FLAGS$])dnl +AC_REQUIRE([AM_SET_CURRENT_AUTOMAKE_VERSION])dnl +AC_REQUIRE([AC_PROG_INSTALL])dnl +if test "`cd $srcdir && pwd`" != "`pwd`"; then + # Use -I$(srcdir) only when $(srcdir) != ., so that make's output + # is not polluted with repeated "-I." + AC_SUBST([am__isrc], [' -I$(srcdir)'])_AM_SUBST_NOTMAKE([am__isrc])dnl + # test to see if srcdir already configured + if test -f $srcdir/config.status; then + AC_MSG_ERROR([source directory already configured; run "make distclean" there first]) + fi +fi + +# test whether we have cygpath +if test -z "$CYGPATH_W"; then + if (cygpath --version) >/dev/null 2>/dev/null; then + CYGPATH_W='cygpath -w' + else + CYGPATH_W=echo + fi +fi +AC_SUBST([CYGPATH_W]) + +# Define the identity of the package. +dnl Distinguish between old-style and new-style calls. +m4_ifval([$2], +[AC_DIAGNOSE([obsolete], + [$0: two- and three-arguments forms are deprecated.]) +m4_ifval([$3], [_AM_SET_OPTION([no-define])])dnl + AC_SUBST([PACKAGE], [$1])dnl + AC_SUBST([VERSION], [$2])], +[_AM_SET_OPTIONS([$1])dnl +dnl Diagnose old-style AC_INIT with new-style AM_AUTOMAKE_INIT. +m4_if( + m4_ifdef([AC_PACKAGE_NAME], [ok]):m4_ifdef([AC_PACKAGE_VERSION], [ok]), + [ok:ok],, + [m4_fatal([AC_INIT should be called with package and version arguments])])dnl + AC_SUBST([PACKAGE], ['AC_PACKAGE_TARNAME'])dnl + AC_SUBST([VERSION], ['AC_PACKAGE_VERSION'])])dnl + +_AM_IF_OPTION([no-define],, +[AC_DEFINE_UNQUOTED([PACKAGE], ["$PACKAGE"], [Name of package]) + AC_DEFINE_UNQUOTED([VERSION], ["$VERSION"], [Version number of package])])dnl + +# Some tools Automake needs. +AC_REQUIRE([AM_SANITY_CHECK])dnl +AC_REQUIRE([AC_ARG_PROGRAM])dnl +AM_MISSING_PROG([ACLOCAL], [aclocal-${am__api_version}]) +AM_MISSING_PROG([AUTOCONF], [autoconf]) +AM_MISSING_PROG([AUTOMAKE], [automake-${am__api_version}]) +AM_MISSING_PROG([AUTOHEADER], [autoheader]) +AM_MISSING_PROG([MAKEINFO], [makeinfo]) +AC_REQUIRE([AM_PROG_INSTALL_SH])dnl +AC_REQUIRE([AM_PROG_INSTALL_STRIP])dnl +AC_REQUIRE([AC_PROG_MKDIR_P])dnl +# For better backward compatibility. To be removed once Automake 1.9.x +# dies out for good. For more background, see: +# +# +AC_SUBST([mkdir_p], ['$(MKDIR_P)']) +# We need awk for the "check" target (and possibly the TAP driver). The +# system "awk" is bad on some platforms. +AC_REQUIRE([AC_PROG_AWK])dnl +AC_REQUIRE([AC_PROG_MAKE_SET])dnl +AC_REQUIRE([AM_SET_LEADING_DOT])dnl +_AM_IF_OPTION([tar-ustar], [_AM_PROG_TAR([ustar])], + [_AM_IF_OPTION([tar-pax], [_AM_PROG_TAR([pax])], + [_AM_PROG_TAR([v7])])]) +_AM_IF_OPTION([no-dependencies],, +[AC_PROVIDE_IFELSE([AC_PROG_CC], + [_AM_DEPENDENCIES([CC])], + [m4_define([AC_PROG_CC], + m4_defn([AC_PROG_CC])[_AM_DEPENDENCIES([CC])])])dnl +AC_PROVIDE_IFELSE([AC_PROG_CXX], + [_AM_DEPENDENCIES([CXX])], + [m4_define([AC_PROG_CXX], + m4_defn([AC_PROG_CXX])[_AM_DEPENDENCIES([CXX])])])dnl +AC_PROVIDE_IFELSE([AC_PROG_OBJC], + [_AM_DEPENDENCIES([OBJC])], + [m4_define([AC_PROG_OBJC], + m4_defn([AC_PROG_OBJC])[_AM_DEPENDENCIES([OBJC])])])dnl +AC_PROVIDE_IFELSE([AC_PROG_OBJCXX], + [_AM_DEPENDENCIES([OBJCXX])], + [m4_define([AC_PROG_OBJCXX], + m4_defn([AC_PROG_OBJCXX])[_AM_DEPENDENCIES([OBJCXX])])])dnl +]) +AC_REQUIRE([AM_SILENT_RULES])dnl +dnl The testsuite driver may need to know about EXEEXT, so add the +dnl 'am__EXEEXT' conditional if _AM_COMPILER_EXEEXT was seen. This +dnl macro is hooked onto _AC_COMPILER_EXEEXT early, see below. +AC_CONFIG_COMMANDS_PRE(dnl +[m4_provide_if([_AM_COMPILER_EXEEXT], + [AM_CONDITIONAL([am__EXEEXT], [test -n "$EXEEXT"])])])dnl + +# POSIX will say in a future version that running "rm -f" with no argument +# is OK; and we want to be able to make that assumption in our Makefile +# recipes. So use an aggressive probe to check that the usage we want is +# actually supported "in the wild" to an acceptable degree. +# See automake bug#10828. +# To make any issue more visible, cause the running configure to be aborted +# by default if the 'rm' program in use doesn't match our expectations; the +# user can still override this though. +if rm -f && rm -fr && rm -rf; then : OK; else + cat >&2 <<'END' +Oops! + +Your 'rm' program seems unable to run without file operands specified +on the command line, even when the '-f' option is present. This is contrary +to the behaviour of most rm programs out there, and not conforming with +the upcoming POSIX standard: + +Please tell bug-automake@gnu.org about your system, including the value +of your $PATH and any error possibly output before this message. This +can help us improve future automake versions. + +END + if test x"$ACCEPT_INFERIOR_RM_PROGRAM" = x"yes"; then + echo 'Configuration will proceed anyway, since you have set the' >&2 + echo 'ACCEPT_INFERIOR_RM_PROGRAM variable to "yes"' >&2 + echo >&2 + else + cat >&2 <<'END' +Aborting the configuration process, to ensure you take notice of the issue. + +You can download and install GNU coreutils to get an 'rm' implementation +that behaves properly: . + +If you want to complete the configuration process using your problematic +'rm' anyway, export the environment variable ACCEPT_INFERIOR_RM_PROGRAM +to "yes", and re-run configure. + +END + AC_MSG_ERROR([Your 'rm' program is bad, sorry.]) + fi +fi +dnl The trailing newline in this macro's definition is deliberate, for +dnl backward compatibility and to allow trailing 'dnl'-style comments +dnl after the AM_INIT_AUTOMAKE invocation. See automake bug#16841. +]) + +dnl Hook into '_AC_COMPILER_EXEEXT' early to learn its expansion. Do not +dnl add the conditional right here, as _AC_COMPILER_EXEEXT may be further +dnl mangled by Autoconf and run in a shell conditional statement. +m4_define([_AC_COMPILER_EXEEXT], +m4_defn([_AC_COMPILER_EXEEXT])[m4_provide([_AM_COMPILER_EXEEXT])]) + +# When config.status generates a header, we must update the stamp-h file. +# This file resides in the same directory as the config header +# that is generated. The stamp files are numbered to have different names. + +# Autoconf calls _AC_AM_CONFIG_HEADER_HOOK (when defined) in the +# loop where config.status creates the headers, so we can generate +# our stamp files there. +AC_DEFUN([_AC_AM_CONFIG_HEADER_HOOK], +[# Compute $1's index in $config_headers. +_am_arg=$1 +_am_stamp_count=1 +for _am_header in $config_headers :; do + case $_am_header in + $_am_arg | $_am_arg:* ) + break ;; + * ) + _am_stamp_count=`expr $_am_stamp_count + 1` ;; + esac +done +echo "timestamp for $_am_arg" >`AS_DIRNAME(["$_am_arg"])`/stamp-h[]$_am_stamp_count]) + +# Copyright (C) 2001-2017 Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# AM_PROG_INSTALL_SH +# ------------------ +# Define $install_sh. +AC_DEFUN([AM_PROG_INSTALL_SH], +[AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl +if test x"${install_sh+set}" != xset; then + case $am_aux_dir in + *\ * | *\ *) + install_sh="\${SHELL} '$am_aux_dir/install-sh'" ;; + *) + install_sh="\${SHELL} $am_aux_dir/install-sh" + esac +fi +AC_SUBST([install_sh])]) + +# Copyright (C) 2003-2017 Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# Check whether the underlying file-system supports filenames +# with a leading dot. For instance MS-DOS doesn't. +AC_DEFUN([AM_SET_LEADING_DOT], +[rm -rf .tst 2>/dev/null +mkdir .tst 2>/dev/null +if test -d .tst; then + am__leading_dot=. +else + am__leading_dot=_ +fi +rmdir .tst 2>/dev/null +AC_SUBST([am__leading_dot])]) + +# Check to see how 'make' treats includes. -*- Autoconf -*- + +# Copyright (C) 2001-2017 Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# AM_MAKE_INCLUDE() +# ----------------- +# Check to see how make treats includes. +AC_DEFUN([AM_MAKE_INCLUDE], +[am_make=${MAKE-make} +cat > confinc << 'END' +am__doit: + @echo this is the am__doit target +.PHONY: am__doit +END +# If we don't find an include directive, just comment out the code. +AC_MSG_CHECKING([for style of include used by $am_make]) +am__include="#" +am__quote= +_am_result=none +# First try GNU make style include. +echo "include confinc" > confmf +# Ignore all kinds of additional output from 'make'. +case `$am_make -s -f confmf 2> /dev/null` in #( +*the\ am__doit\ target*) + am__include=include + am__quote= + _am_result=GNU + ;; +esac +# Now try BSD make style include. +if test "$am__include" = "#"; then + echo '.include "confinc"' > confmf + case `$am_make -s -f confmf 2> /dev/null` in #( + *the\ am__doit\ target*) + am__include=.include + am__quote="\"" + _am_result=BSD + ;; + esac +fi +AC_SUBST([am__include]) +AC_SUBST([am__quote]) +AC_MSG_RESULT([$_am_result]) +rm -f confinc confmf +]) + +# Fake the existence of programs that GNU maintainers use. -*- Autoconf -*- + +# Copyright (C) 1997-2017 Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# AM_MISSING_PROG(NAME, PROGRAM) +# ------------------------------ +AC_DEFUN([AM_MISSING_PROG], +[AC_REQUIRE([AM_MISSING_HAS_RUN]) +$1=${$1-"${am_missing_run}$2"} +AC_SUBST($1)]) + +# AM_MISSING_HAS_RUN +# ------------------ +# Define MISSING if not defined so far and test if it is modern enough. +# If it is, set am_missing_run to use it, otherwise, to nothing. +AC_DEFUN([AM_MISSING_HAS_RUN], +[AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl +AC_REQUIRE_AUX_FILE([missing])dnl +if test x"${MISSING+set}" != xset; then + case $am_aux_dir in + *\ * | *\ *) + MISSING="\${SHELL} \"$am_aux_dir/missing\"" ;; + *) + MISSING="\${SHELL} $am_aux_dir/missing" ;; + esac +fi +# Use eval to expand $SHELL +if eval "$MISSING --is-lightweight"; then + am_missing_run="$MISSING " +else + am_missing_run= + AC_MSG_WARN(['missing' script is too old or missing]) +fi +]) + +# Helper functions for option handling. -*- Autoconf -*- + +# Copyright (C) 2001-2017 Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# _AM_MANGLE_OPTION(NAME) +# ----------------------- +AC_DEFUN([_AM_MANGLE_OPTION], +[[_AM_OPTION_]m4_bpatsubst($1, [[^a-zA-Z0-9_]], [_])]) + +# _AM_SET_OPTION(NAME) +# -------------------- +# Set option NAME. Presently that only means defining a flag for this option. +AC_DEFUN([_AM_SET_OPTION], +[m4_define(_AM_MANGLE_OPTION([$1]), [1])]) + +# _AM_SET_OPTIONS(OPTIONS) +# ------------------------ +# OPTIONS is a space-separated list of Automake options. +AC_DEFUN([_AM_SET_OPTIONS], +[m4_foreach_w([_AM_Option], [$1], [_AM_SET_OPTION(_AM_Option)])]) + +# _AM_IF_OPTION(OPTION, IF-SET, [IF-NOT-SET]) +# ------------------------------------------- +# Execute IF-SET if OPTION is set, IF-NOT-SET otherwise. +AC_DEFUN([_AM_IF_OPTION], +[m4_ifset(_AM_MANGLE_OPTION([$1]), [$2], [$3])]) + +# Copyright (C) 1999-2017 Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# _AM_PROG_CC_C_O +# --------------- +# Like AC_PROG_CC_C_O, but changed for automake. We rewrite AC_PROG_CC +# to automatically call this. +AC_DEFUN([_AM_PROG_CC_C_O], +[AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl +AC_REQUIRE_AUX_FILE([compile])dnl +AC_LANG_PUSH([C])dnl +AC_CACHE_CHECK( + [whether $CC understands -c and -o together], + [am_cv_prog_cc_c_o], + [AC_LANG_CONFTEST([AC_LANG_PROGRAM([])]) + # Make sure it works both with $CC and with simple cc. + # Following AC_PROG_CC_C_O, we do the test twice because some + # compilers refuse to overwrite an existing .o file with -o, + # though they will create one. + am_cv_prog_cc_c_o=yes + for am_i in 1 2; do + if AM_RUN_LOG([$CC -c conftest.$ac_ext -o conftest2.$ac_objext]) \ + && test -f conftest2.$ac_objext; then + : OK + else + am_cv_prog_cc_c_o=no + break + fi + done + rm -f core conftest* + unset am_i]) +if test "$am_cv_prog_cc_c_o" != yes; then + # Losing compiler, so override with the script. + # FIXME: It is wrong to rewrite CC. + # But if we don't then we get into trouble of one sort or another. + # A longer-term fix would be to have automake use am__CC in this case, + # and then we could set am__CC="\$(top_srcdir)/compile \$(CC)" + CC="$am_aux_dir/compile $CC" +fi +AC_LANG_POP([C])]) + +# For backward compatibility. +AC_DEFUN_ONCE([AM_PROG_CC_C_O], [AC_REQUIRE([AC_PROG_CC])]) + +# Copyright (C) 2001-2017 Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# AM_RUN_LOG(COMMAND) +# ------------------- +# Run COMMAND, save the exit status in ac_status, and log it. +# (This has been adapted from Autoconf's _AC_RUN_LOG macro.) +AC_DEFUN([AM_RUN_LOG], +[{ echo "$as_me:$LINENO: $1" >&AS_MESSAGE_LOG_FD + ($1) >&AS_MESSAGE_LOG_FD 2>&AS_MESSAGE_LOG_FD + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&AS_MESSAGE_LOG_FD + (exit $ac_status); }]) + +# Check to make sure that the build environment is sane. -*- Autoconf -*- + +# Copyright (C) 1996-2017 Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# AM_SANITY_CHECK +# --------------- +AC_DEFUN([AM_SANITY_CHECK], +[AC_MSG_CHECKING([whether build environment is sane]) +# Reject unsafe characters in $srcdir or the absolute working directory +# name. Accept space and tab only in the latter. +am_lf=' +' +case `pwd` in + *[[\\\"\#\$\&\'\`$am_lf]]*) + AC_MSG_ERROR([unsafe absolute working directory name]);; +esac +case $srcdir in + *[[\\\"\#\$\&\'\`$am_lf\ \ ]]*) + AC_MSG_ERROR([unsafe srcdir value: '$srcdir']);; +esac + +# Do 'set' in a subshell so we don't clobber the current shell's +# arguments. Must try -L first in case configure is actually a +# symlink; some systems play weird games with the mod time of symlinks +# (eg FreeBSD returns the mod time of the symlink's containing +# directory). +if ( + am_has_slept=no + for am_try in 1 2; do + echo "timestamp, slept: $am_has_slept" > conftest.file + set X `ls -Lt "$srcdir/configure" conftest.file 2> /dev/null` + if test "$[*]" = "X"; then + # -L didn't work. + set X `ls -t "$srcdir/configure" conftest.file` + fi + if test "$[*]" != "X $srcdir/configure conftest.file" \ + && test "$[*]" != "X conftest.file $srcdir/configure"; then + + # If neither matched, then we have a broken ls. This can happen + # if, for instance, CONFIG_SHELL is bash and it inherits a + # broken ls alias from the environment. This has actually + # happened. Such a system could not be considered "sane". + AC_MSG_ERROR([ls -t appears to fail. Make sure there is not a broken + alias in your environment]) + fi + if test "$[2]" = conftest.file || test $am_try -eq 2; then + break + fi + # Just in case. + sleep 1 + am_has_slept=yes + done + test "$[2]" = conftest.file + ) +then + # Ok. + : +else + AC_MSG_ERROR([newly created file is older than distributed files! +Check your system clock]) +fi +AC_MSG_RESULT([yes]) +# If we didn't sleep, we still need to ensure time stamps of config.status and +# generated files are strictly newer. +am_sleep_pid= +if grep 'slept: no' conftest.file >/dev/null 2>&1; then + ( sleep 1 ) & + am_sleep_pid=$! +fi +AC_CONFIG_COMMANDS_PRE( + [AC_MSG_CHECKING([that generated files are newer than configure]) + if test -n "$am_sleep_pid"; then + # Hide warnings about reused PIDs. + wait $am_sleep_pid 2>/dev/null + fi + AC_MSG_RESULT([done])]) +rm -f conftest.file +]) + +# Copyright (C) 2009-2017 Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# AM_SILENT_RULES([DEFAULT]) +# -------------------------- +# Enable less verbose build rules; with the default set to DEFAULT +# ("yes" being less verbose, "no" or empty being verbose). +AC_DEFUN([AM_SILENT_RULES], +[AC_ARG_ENABLE([silent-rules], [dnl +AS_HELP_STRING( + [--enable-silent-rules], + [less verbose build output (undo: "make V=1")]) +AS_HELP_STRING( + [--disable-silent-rules], + [verbose build output (undo: "make V=0")])dnl +]) +case $enable_silent_rules in @%:@ ((( + yes) AM_DEFAULT_VERBOSITY=0;; + no) AM_DEFAULT_VERBOSITY=1;; + *) AM_DEFAULT_VERBOSITY=m4_if([$1], [yes], [0], [1]);; +esac +dnl +dnl A few 'make' implementations (e.g., NonStop OS and NextStep) +dnl do not support nested variable expansions. +dnl See automake bug#9928 and bug#10237. +am_make=${MAKE-make} +AC_CACHE_CHECK([whether $am_make supports nested variables], + [am_cv_make_support_nested_variables], + [if AS_ECHO([['TRUE=$(BAR$(V)) +BAR0=false +BAR1=true +V=1 +am__doit: + @$(TRUE) +.PHONY: am__doit']]) | $am_make -f - >/dev/null 2>&1; then + am_cv_make_support_nested_variables=yes +else + am_cv_make_support_nested_variables=no +fi]) +if test $am_cv_make_support_nested_variables = yes; then + dnl Using '$V' instead of '$(V)' breaks IRIX make. + AM_V='$(V)' + AM_DEFAULT_V='$(AM_DEFAULT_VERBOSITY)' +else + AM_V=$AM_DEFAULT_VERBOSITY + AM_DEFAULT_V=$AM_DEFAULT_VERBOSITY +fi +AC_SUBST([AM_V])dnl +AM_SUBST_NOTMAKE([AM_V])dnl +AC_SUBST([AM_DEFAULT_V])dnl +AM_SUBST_NOTMAKE([AM_DEFAULT_V])dnl +AC_SUBST([AM_DEFAULT_VERBOSITY])dnl +AM_BACKSLASH='\' +AC_SUBST([AM_BACKSLASH])dnl +_AM_SUBST_NOTMAKE([AM_BACKSLASH])dnl +]) + +# Copyright (C) 2001-2017 Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# AM_PROG_INSTALL_STRIP +# --------------------- +# One issue with vendor 'install' (even GNU) is that you can't +# specify the program used to strip binaries. This is especially +# annoying in cross-compiling environments, where the build's strip +# is unlikely to handle the host's binaries. +# Fortunately install-sh will honor a STRIPPROG variable, so we +# always use install-sh in "make install-strip", and initialize +# STRIPPROG with the value of the STRIP variable (set by the user). +AC_DEFUN([AM_PROG_INSTALL_STRIP], +[AC_REQUIRE([AM_PROG_INSTALL_SH])dnl +# Installed binaries are usually stripped using 'strip' when the user +# run "make install-strip". However 'strip' might not be the right +# tool to use in cross-compilation environments, therefore Automake +# will honor the 'STRIP' environment variable to overrule this program. +dnl Don't test for $cross_compiling = yes, because it might be 'maybe'. +if test "$cross_compiling" != no; then + AC_CHECK_TOOL([STRIP], [strip], :) +fi +INSTALL_STRIP_PROGRAM="\$(install_sh) -c -s" +AC_SUBST([INSTALL_STRIP_PROGRAM])]) + +# Copyright (C) 2006-2017 Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# _AM_SUBST_NOTMAKE(VARIABLE) +# --------------------------- +# Prevent Automake from outputting VARIABLE = @VARIABLE@ in Makefile.in. +# This macro is traced by Automake. +AC_DEFUN([_AM_SUBST_NOTMAKE]) + +# AM_SUBST_NOTMAKE(VARIABLE) +# -------------------------- +# Public sister of _AM_SUBST_NOTMAKE. +AC_DEFUN([AM_SUBST_NOTMAKE], [_AM_SUBST_NOTMAKE($@)]) + +# Check how to create a tarball. -*- Autoconf -*- + +# Copyright (C) 2004-2017 Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# _AM_PROG_TAR(FORMAT) +# -------------------- +# Check how to create a tarball in format FORMAT. +# FORMAT should be one of 'v7', 'ustar', or 'pax'. +# +# Substitute a variable $(am__tar) that is a command +# writing to stdout a FORMAT-tarball containing the directory +# $tardir. +# tardir=directory && $(am__tar) > result.tar +# +# Substitute a variable $(am__untar) that extract such +# a tarball read from stdin. +# $(am__untar) < result.tar +# +AC_DEFUN([_AM_PROG_TAR], +[# Always define AMTAR for backward compatibility. Yes, it's still used +# in the wild :-( We should find a proper way to deprecate it ... +AC_SUBST([AMTAR], ['$${TAR-tar}']) + +# We'll loop over all known methods to create a tar archive until one works. +_am_tools='gnutar m4_if([$1], [ustar], [plaintar]) pax cpio none' + +m4_if([$1], [v7], + [am__tar='$${TAR-tar} chof - "$$tardir"' am__untar='$${TAR-tar} xf -'], + + [m4_case([$1], + [ustar], + [# The POSIX 1988 'ustar' format is defined with fixed-size fields. + # There is notably a 21 bits limit for the UID and the GID. In fact, + # the 'pax' utility can hang on bigger UID/GID (see automake bug#8343 + # and bug#13588). + am_max_uid=2097151 # 2^21 - 1 + am_max_gid=$am_max_uid + # The $UID and $GID variables are not portable, so we need to resort + # to the POSIX-mandated id(1) utility. Errors in the 'id' calls + # below are definitely unexpected, so allow the users to see them + # (that is, avoid stderr redirection). + am_uid=`id -u || echo unknown` + am_gid=`id -g || echo unknown` + AC_MSG_CHECKING([whether UID '$am_uid' is supported by ustar format]) + if test $am_uid -le $am_max_uid; then + AC_MSG_RESULT([yes]) + else + AC_MSG_RESULT([no]) + _am_tools=none + fi + AC_MSG_CHECKING([whether GID '$am_gid' is supported by ustar format]) + if test $am_gid -le $am_max_gid; then + AC_MSG_RESULT([yes]) + else + AC_MSG_RESULT([no]) + _am_tools=none + fi], + + [pax], + [], + + [m4_fatal([Unknown tar format])]) + + AC_MSG_CHECKING([how to create a $1 tar archive]) + + # Go ahead even if we have the value already cached. We do so because we + # need to set the values for the 'am__tar' and 'am__untar' variables. + _am_tools=${am_cv_prog_tar_$1-$_am_tools} + + for _am_tool in $_am_tools; do + case $_am_tool in + gnutar) + for _am_tar in tar gnutar gtar; do + AM_RUN_LOG([$_am_tar --version]) && break + done + am__tar="$_am_tar --format=m4_if([$1], [pax], [posix], [$1]) -chf - "'"$$tardir"' + am__tar_="$_am_tar --format=m4_if([$1], [pax], [posix], [$1]) -chf - "'"$tardir"' + am__untar="$_am_tar -xf -" + ;; + plaintar) + # Must skip GNU tar: if it does not support --format= it doesn't create + # ustar tarball either. + (tar --version) >/dev/null 2>&1 && continue + am__tar='tar chf - "$$tardir"' + am__tar_='tar chf - "$tardir"' + am__untar='tar xf -' + ;; + pax) + am__tar='pax -L -x $1 -w "$$tardir"' + am__tar_='pax -L -x $1 -w "$tardir"' + am__untar='pax -r' + ;; + cpio) + am__tar='find "$$tardir" -print | cpio -o -H $1 -L' + am__tar_='find "$tardir" -print | cpio -o -H $1 -L' + am__untar='cpio -i -H $1 -d' + ;; + none) + am__tar=false + am__tar_=false + am__untar=false + ;; + esac + + # If the value was cached, stop now. We just wanted to have am__tar + # and am__untar set. + test -n "${am_cv_prog_tar_$1}" && break + + # tar/untar a dummy directory, and stop if the command works. + rm -rf conftest.dir + mkdir conftest.dir + echo GrepMe > conftest.dir/file + AM_RUN_LOG([tardir=conftest.dir && eval $am__tar_ >conftest.tar]) + rm -rf conftest.dir + if test -s conftest.tar; then + AM_RUN_LOG([$am__untar /dev/null 2>&1 && break + fi + done + rm -rf conftest.dir + + AC_CACHE_VAL([am_cv_prog_tar_$1], [am_cv_prog_tar_$1=$_am_tool]) + AC_MSG_RESULT([$am_cv_prog_tar_$1])]) + +AC_SUBST([am__tar]) +AC_SUBST([am__untar]) +]) # _AM_PROG_TAR + +m4_include([gnulib-m4/00gnulib.m4]) +m4_include([gnulib-m4/absolute-header.m4]) +m4_include([gnulib-m4/ansi-c++.m4]) +m4_include([gnulib-m4/asm-underscore.m4]) +m4_include([gnulib-m4/extensions.m4]) +m4_include([gnulib-m4/gnulib-common.m4]) +m4_include([gnulib-m4/gnulib-comp.m4]) +m4_include([gnulib-m4/host-cpu-c-abi.m4]) +m4_include([gnulib-m4/include_next.m4]) +m4_include([gnulib-m4/limits-h.m4]) +m4_include([gnulib-m4/lock.m4]) +m4_include([gnulib-m4/longlong.m4]) +m4_include([gnulib-m4/multiarch.m4]) +m4_include([gnulib-m4/nocrash.m4]) +m4_include([gnulib-m4/off_t.m4]) +m4_include([gnulib-m4/onceonly.m4]) +m4_include([gnulib-m4/pthread_rwlock_rdlock.m4]) +m4_include([gnulib-m4/ssize_t.m4]) +m4_include([gnulib-m4/stdint.m4]) +m4_include([gnulib-m4/stdnoreturn.m4]) +m4_include([gnulib-m4/sys_types_h.m4]) +m4_include([gnulib-m4/threadlib.m4]) +m4_include([gnulib-m4/wint_t.m4]) +m4_include([m4/as-underscore.m4]) +m4_include([m4/cc-gcc.m4]) +m4_include([m4/codeexec.m4]) +m4_include([m4/endianness.m4]) +m4_include([m4/general.m4]) +m4_include([m4/getpagesize.m4]) +m4_include([m4/ireg.m4]) +m4_include([m4/libtool.m4]) +m4_include([m4/ln.m4]) +m4_include([m4/ltoptions.m4]) +m4_include([m4/ltsugar.m4]) +m4_include([m4/ltversion.m4]) +m4_include([m4/lt~obsolete.m4]) +m4_include([m4/mach-vm.m4]) +m4_include([m4/mmap.m4]) +m4_include([m4/mprotect.m4]) +m4_include([m4/proto.m4]) +m4_include([m4/shm.m4]) +m4_include([m4/smallstruct.m4]) diff --git a/avcall/COPYING b/avcall/COPYING new file mode 100644 index 0000000..a3d1815 --- /dev/null +++ b/avcall/COPYING @@ -0,0 +1,340 @@ + GNU GENERAL PUBLIC LICENSE + Version 2, June 1991 + + Copyright (C) 1989, 1991 Free Software Foundation, Inc. + 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + + Preamble + + The licenses for most software are designed to take away your +freedom to share and change it. By contrast, the GNU General Public +License is intended to guarantee your freedom to share and change free +software--to make sure the software is free for all its users. This +General Public License applies to most of the Free Software +Foundation's software and to any other program whose authors commit to +using it. (Some other Free Software Foundation software is covered by +the GNU Library General Public License instead.) You can apply it to +your programs, too. + + When we speak of free software, we are referring to freedom, not +price. Our General Public Licenses are designed to make sure that you +have the freedom to distribute copies of free software (and charge for +this service if you wish), that you receive source code or can get it +if you want it, that you can change the software or use pieces of it +in new free programs; and that you know you can do these things. + + To protect your rights, we need to make restrictions that forbid +anyone to deny you these rights or to ask you to surrender the rights. +These restrictions translate to certain responsibilities for you if you +distribute copies of the software, or if you modify it. + + For example, if you distribute copies of such a program, whether +gratis or for a fee, you must give the recipients all the rights that +you have. You must make sure that they, too, receive or can get the +source code. And you must show them these terms so they know their +rights. + + We protect your rights with two steps: (1) copyright the software, and +(2) offer you this license which gives you legal permission to copy, +distribute and/or modify the software. + + Also, for each author's protection and ours, we want to make certain +that everyone understands that there is no warranty for this free +software. If the software is modified by someone else and passed on, we +want its recipients to know that what they have is not the original, so +that any problems introduced by others will not reflect on the original +authors' reputations. + + Finally, any free program is threatened constantly by software +patents. We wish to avoid the danger that redistributors of a free +program will individually obtain patent licenses, in effect making the +program proprietary. To prevent this, we have made it clear that any +patent must be licensed for everyone's free use or not licensed at all. + + The precise terms and conditions for copying, distribution and +modification follow. + + GNU GENERAL PUBLIC LICENSE + TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION + + 0. This License applies to any program or other work which contains +a notice placed by the copyright holder saying it may be distributed +under the terms of this General Public License. The "Program", below, +refers to any such program or work, and a "work based on the Program" +means either the Program or any derivative work under copyright law: +that is to say, a work containing the Program or a portion of it, +either verbatim or with modifications and/or translated into another +language. (Hereinafter, translation is included without limitation in +the term "modification".) Each licensee is addressed as "you". + +Activities other than copying, distribution and modification are not +covered by this License; they are outside its scope. The act of +running the Program is not restricted, and the output from the Program +is covered only if its contents constitute a work based on the +Program (independent of having been made by running the Program). +Whether that is true depends on what the Program does. + + 1. You may copy and distribute verbatim copies of the Program's +source code as you receive it, in any medium, provided that you +conspicuously and appropriately publish on each copy an appropriate +copyright notice and disclaimer of warranty; keep intact all the +notices that refer to this License and to the absence of any warranty; +and give any other recipients of the Program a copy of this License +along with the Program. + +You may charge a fee for the physical act of transferring a copy, and +you may at your option offer warranty protection in exchange for a fee. + + 2. You may modify your copy or copies of the Program or any portion +of it, thus forming a work based on the Program, and copy and +distribute such modifications or work under the terms of Section 1 +above, provided that you also meet all of these conditions: + + a) You must cause the modified files to carry prominent notices + stating that you changed the files and the date of any change. + + b) You must cause any work that you distribute or publish, that in + whole or in part contains or is derived from the Program or any + part thereof, to be licensed as a whole at no charge to all third + parties under the terms of this License. + + c) If the modified program normally reads commands interactively + when run, you must cause it, when started running for such + interactive use in the most ordinary way, to print or display an + announcement including an appropriate copyright notice and a + notice that there is no warranty (or else, saying that you provide + a warranty) and that users may redistribute the program under + these conditions, and telling the user how to view a copy of this + License. (Exception: if the Program itself is interactive but + does not normally print such an announcement, your work based on + the Program is not required to print an announcement.) + +These requirements apply to the modified work as a whole. If +identifiable sections of that work are not derived from the Program, +and can be reasonably considered independent and separate works in +themselves, then this License, and its terms, do not apply to those +sections when you distribute them as separate works. But when you +distribute the same sections as part of a whole which is a work based +on the Program, the distribution of the whole must be on the terms of +this License, whose permissions for other licensees extend to the +entire whole, and thus to each and every part regardless of who wrote it. + +Thus, it is not the intent of this section to claim rights or contest +your rights to work written entirely by you; rather, the intent is to +exercise the right to control the distribution of derivative or +collective works based on the Program. + +In addition, mere aggregation of another work not based on the Program +with the Program (or with a work based on the Program) on a volume of +a storage or distribution medium does not bring the other work under +the scope of this License. + + 3. You may copy and distribute the Program (or a work based on it, +under Section 2) in object code or executable form under the terms of +Sections 1 and 2 above provided that you also do one of the following: + + a) Accompany it with the complete corresponding machine-readable + source code, which must be distributed under the terms of Sections + 1 and 2 above on a medium customarily used for software interchange; or, + + b) Accompany it with a written offer, valid for at least three + years, to give any third party, for a charge no more than your + cost of physically performing source distribution, a complete + machine-readable copy of the corresponding source code, to be + distributed under the terms of Sections 1 and 2 above on a medium + customarily used for software interchange; or, + + c) Accompany it with the information you received as to the offer + to distribute corresponding source code. (This alternative is + allowed only for noncommercial distribution and only if you + received the program in object code or executable form with such + an offer, in accord with Subsection b above.) + +The source code for a work means the preferred form of the work for +making modifications to it. For an executable work, complete source +code means all the source code for all modules it contains, plus any +associated interface definition files, plus the scripts used to +control compilation and installation of the executable. However, as a +special exception, the source code distributed need not include +anything that is normally distributed (in either source or binary +form) with the major components (compiler, kernel, and so on) of the +operating system on which the executable runs, unless that component +itself accompanies the executable. + +If distribution of executable or object code is made by offering +access to copy from a designated place, then offering equivalent +access to copy the source code from the same place counts as +distribution of the source code, even though third parties are not +compelled to copy the source along with the object code. + + 4. You may not copy, modify, sublicense, or distribute the Program +except as expressly provided under this License. Any attempt +otherwise to copy, modify, sublicense or distribute the Program is +void, and will automatically terminate your rights under this License. +However, parties who have received copies, or rights, from you under +this License will not have their licenses terminated so long as such +parties remain in full compliance. + + 5. You are not required to accept this License, since you have not +signed it. However, nothing else grants you permission to modify or +distribute the Program or its derivative works. These actions are +prohibited by law if you do not accept this License. Therefore, by +modifying or distributing the Program (or any work based on the +Program), you indicate your acceptance of this License to do so, and +all its terms and conditions for copying, distributing or modifying +the Program or works based on it. + + 6. Each time you redistribute the Program (or any work based on the +Program), the recipient automatically receives a license from the +original licensor to copy, distribute or modify the Program subject to +these terms and conditions. You may not impose any further +restrictions on the recipients' exercise of the rights granted herein. +You are not responsible for enforcing compliance by third parties to +this License. + + 7. If, as a consequence of a court judgment or allegation of patent +infringement or for any other reason (not limited to patent issues), +conditions are imposed on you (whether by court order, agreement or +otherwise) that contradict the conditions of this License, they do not +excuse you from the conditions of this License. If you cannot +distribute so as to satisfy simultaneously your obligations under this +License and any other pertinent obligations, then as a consequence you +may not distribute the Program at all. For example, if a patent +license would not permit royalty-free redistribution of the Program by +all those who receive copies directly or indirectly through you, then +the only way you could satisfy both it and this License would be to +refrain entirely from distribution of the Program. + +If any portion of this section is held invalid or unenforceable under +any particular circumstance, the balance of the section is intended to +apply and the section as a whole is intended to apply in other +circumstances. + +It is not the purpose of this section to induce you to infringe any +patents or other property right claims or to contest validity of any +such claims; this section has the sole purpose of protecting the +integrity of the free software distribution system, which is +implemented by public license practices. Many people have made +generous contributions to the wide range of software distributed +through that system in reliance on consistent application of that +system; it is up to the author/donor to decide if he or she is willing +to distribute software through any other system and a licensee cannot +impose that choice. + +This section is intended to make thoroughly clear what is believed to +be a consequence of the rest of this License. + + 8. If the distribution and/or use of the Program is restricted in +certain countries either by patents or by copyrighted interfaces, the +original copyright holder who places the Program under this License +may add an explicit geographical distribution limitation excluding +those countries, so that distribution is permitted only in or among +countries not thus excluded. In such case, this License incorporates +the limitation as if written in the body of this License. + + 9. The Free Software Foundation may publish revised and/or new versions +of the General Public License from time to time. Such new versions will +be similar in spirit to the present version, but may differ in detail to +address new problems or concerns. + +Each version is given a distinguishing version number. If the Program +specifies a version number of this License which applies to it and "any +later version", you have the option of following the terms and conditions +either of that version or of any later version published by the Free +Software Foundation. If the Program does not specify a version number of +this License, you may choose any version ever published by the Free Software +Foundation. + + 10. If you wish to incorporate parts of the Program into other free +programs whose distribution conditions are different, write to the author +to ask for permission. For software which is copyrighted by the Free +Software Foundation, write to the Free Software Foundation; we sometimes +make exceptions for this. Our decision will be guided by the two goals +of preserving the free status of all derivatives of our free software and +of promoting the sharing and reuse of software generally. + + NO WARRANTY + + 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY +FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN +OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES +PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED +OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF +MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS +TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE +PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, +REPAIR OR CORRECTION. + + 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING +WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR +REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, +INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING +OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED +TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY +YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER +PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE +POSSIBILITY OF SUCH DAMAGES. + + END OF TERMS AND CONDITIONS + + Appendix: How to Apply These Terms to Your New Programs + + If you develop a new program, and you want it to be of the greatest +possible use to the public, the best way to achieve this is to make it +free software which everyone can redistribute and change under these terms. + + To do so, attach the following notices to the program. It is safest +to attach them to the start of each source file to most effectively +convey the exclusion of warranty; and each file should have at least +the "copyright" line and a pointer to where the full notice is found. + + + Copyright (C) + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software Foundation, + Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. + +Also add information on how to contact you by electronic and paper mail. + +If the program is interactive, make it output a short notice like this +when it starts in an interactive mode: + + Gnomovision version 69, Copyright (C) year name of author + Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. + This is free software, and you are welcome to redistribute it + under certain conditions; type `show c' for details. + +The hypothetical commands `show w' and `show c' should show the appropriate +parts of the General Public License. Of course, the commands you use may +be called something other than `show w' and `show c'; they could even be +mouse-clicks or menu items--whatever suits your program. + +You should also get your employer (if you work as a programmer) or your +school, if any, to sign a "copyright disclaimer" for the program, if +necessary. Here is a sample; alter the names: + + Yoyodyne, Inc., hereby disclaims all copyright interest in the program + `Gnomovision' (which makes passes at compilers) written by James Hacker. + + , 1 April 1989 + Ty Coon, President of Vice + +This General Public License does not permit incorporating your program into +proprietary programs. If your program is a subroutine library, you may +consider it more useful to permit linking proprietary applications with the +library. If this is what you want to do, use the GNU Library General +Public License instead of this License. diff --git a/avcall/DOC b/avcall/DOC new file mode 100644 index 0000000..255618e --- /dev/null +++ b/avcall/DOC @@ -0,0 +1,133 @@ +---------------------------------------------------------------------- + AVCALL --- a foreign function interface to ANSI-C +---------------------------------------------------------------------- + +This library allows arbitrary C functions to be called from embedded +interpreters, debuggers, RPC calls, etc, by building up a C argument +list incrementally from explicitly typed arguments. This considerably +reduces the amount of boilerplate glue code required for such +applications. + +The interface is like stdargs/varargs in reverse and is intended to be as +portable as possible, however the details of function calling are highly +machine-dependent so your mileage may vary. At the very least there are +typically built-in limits on the size of the argument-list. The +argument-pushing macros all return 0 for success, < 0 for error (eg, +arg-list overflow). + +Installation instructions are in the Makefile. + +---------------------------------------------------------------------- +DECLARE ALIST -> OPEN ALIST -> SET FLAGS -> PUSH ARGS -> CALL FUNCTION +---------------------------------------------------------------------- + +1) Declare the argument list structure: + + #include "avcall.h" + { + av_alist alist; + +2) Set any special flags. This is architecture and compiler dependent. +Sometimes, compiler options must be flagged by #defines before the +#include . Usually, however, the ‘configure’ script should +have determined which #defines are needed and put them at the head of +avcall.h. + +3) Initialise the alist with the function address and return type. +There is a separate macro for each built-in C type (char, int, float, etc). +Eg, + av_start_int(alist,&func,&return_addr); +or + av_start_double(alist,&func,&return_addr); +etc. +Functions returning a structure or pointer take an extra type argument: +Eg, + av_start_struct(alist,&func,STRUCT_OR_UNION_TYPE,SPLITTABLE,&return_addr); +or + av_start_ptr(alist,&func,POINTER_TYPE,&return_addr); + + +4) Push the arguments one by one in order. There is a macro for each +built-in C type, eg: + av_int(alist,value); +or + av_double(alist,value); + +Structure and pointer arguments require an extra type argument: + + av_struct(alist,STRUCT_TYPE,value); +or + av_ptr(alist,POINTER_TYPE,value); + +5) Call the function, set the return value, and tidy up: + + av_call(alist); + +---------------------------------------------------------------------- + NOTES + +1) Functions declared in K&R style (ie, without a typed arglist) must +use default K&R expression promotions (char,short-->int; float-->double) +whether they are compiled by a K&R or an ANSI compiler, because the +true arg types may not be known at the call point. Such functions +back-convert their arguments to the declared types on function entry. +The only way to pass a true char, short or float (eg, from K&R C to an +ANSI or varargs function) is by an explicit cast: foo((char)c,(float)f). + + !! Hence, for args of functions declared in K&R style you should use + !! av_int() and av_double() instead of av_{char,short}() and av_float(). + +If you use a K&R compiler, the avcall header files may detect this and +define av_float, etc, appropriately, but with an ANSI compiler there's +no way avcall can know how a function was declared, so you have to +correct the argument types yourself. Similarly, some K&R compilers (such +as Sun cc on the sparc) actually return a float as a double. + +2) There are too many possible structure and pointer types to have a +separate macro for each, so the pointer and structure macros take an +explicit type argument which may be used (eg) to calculate the size of +the structure. On most architectures this provides enough information +for the compiler to make the proper call, but there will always be +machines with odd alignment requirements or argument passing +conventions, unusual reprentations for function, char, or void pointers, +etc, for which this scheme will not suffice. These machines may define +additional av_start_TYPE and av_TYPE macros. + +3) The current implementations are pretty flakey in places. I'm happy to +accept new ports and (properly tested) fixes and enhancements. In +particular, many of the routines waste a lot of stack space and generally +do hairy things with stack frames - a bit more assembly code would probably +help things along quite a bit, but I don't speak assembler at all well. + +4) The macros required for all this are pretty grungy, but it does seem +to be possible to port avcall to many machines. Some of the grunge is +usually handled by a C or assembly level glue routine that actually +pushes the arguments, calls the function and unpacks any return value. +This is called avcall_call(). A precompiled assembler version for +people without gcc is also made available. The routine should ideally +have flags for the passing conventions of other compilers. +---------------------------------------------------------------------- + ACKNOWLEDGEMENTS + +I was aware of two similar but rather more restricted foreign function +interfaces when the initial version of this library was written, although +(I believe) all of the present code is my own: the C interface in the zelk +extensions to Oliver Laumann's Elk scheme interpreter +by J.P.Lewis, NEC C&C Research, (for Sun4 and SGI); +and Roy Featherstone's personal C interface +library for Sun3,4 and SGI. I also looked at the comments and some of the +code in the machine-dependent parts of the GCC and GDB distributions, and +put the GCC __asm__ extensions to good use. Thanks guys! + +This work was partly supported by EC-ESPRIT Basic Research Action SECOND. +---------------------------------------------------------------------- + +================================================================================ +Copyright 1993 Bill Triggs +Copyright 1995-2017 Bruno Haible + +This manual is covered by the GNU GPL. You can redistribute it and/or +modify it under the terms of the GNU General Public License (GPL), either +version 2 of the License, or (at your option) any later version published +by the Free Software Foundation (FSF). +A copy of the license is at . diff --git a/avcall/Makefile.devel b/avcall/Makefile.devel new file mode 100644 index 0000000..080898b --- /dev/null +++ b/avcall/Makefile.devel @@ -0,0 +1,266 @@ +# This is the developer's -*-Makefile-*-, not the user's makefile. +# Do not use it unless you know exactly what you do! + +THISFILE = Makefile.devel +LN = ln -s +RM = rm -f + +# ============ Rules that require cross-compilation tools ============ + +GCC = gcc +GCCFLAGS = -I.. -I../dummy -O2 -fno-omit-frame-pointer -fPIC +SED = sed +CROSS_TOOL = cross + +precompiled : \ + avcall-i386-macro.S \ + avcall-m68k.mit.S avcall-m68k.motorola.S \ + avcall-mipseb-macro.S avcall-mipsel-macro.S avcall-mipsn32eb-macro.S avcall-mipsn32el-macro.S avcall-mips64eb-macro.S avcall-mips64el-macro.S \ + avcall-sparc-macro.S avcall-sparc64-macro.S \ + avcall-alpha-macro.S \ + avcall-hppa-macro.S avcall-hppa64-macro.S \ + avcall-arm-macro.S avcall-armhf-macro.S \ + avcall-arm64-macro.S \ + avcall-powerpc-aix.s avcall-powerpc-linux-macro.S avcall-powerpc-sysv4-macro.S avcall-powerpc-macos.s avcall-powerpc64-aix.s avcall-powerpc64-linux.S avcall-powerpc64-elfv2-linux.S \ + avcall-ia64-macro.S \ + avcall-x86_64-macro.S avcall-x86_64-x32-linux.s avcall-x86_64-windows-macro.S \ + avcall-s390-macro.S avcall-s390x-macro.S \ + avcall-riscv32-ilp32d-macro.S avcall-riscv64-lp64d-macro.S + + +avcall-i386-linux.s : avcall-i386.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) + $(CROSS_TOOL) i386-linux gcc -V 3.1 $(GCCFLAGS) -D__i386__ -fno-omit-frame-pointer -S avcall-i386.c -o avcall-i386-linux.s + +avcall-i386-macro.S : avcall-i386-linux.s ../common/asm-i386.sh ../common/noexecstack.h $(THISFILE) + (echo '#include "asm-i386.h"' ; sed -e '/\.align.*,0x90$$/d' < avcall-i386-linux.s | ../common/asm-i386.sh ; cat ../common/noexecstack.h) > avcall-i386-macro.S + + +avcall-m68k-linux.s : avcall-m68k.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) + $(CROSS_TOOL) m68k-linux gcc -V 3.1 $(GCCFLAGS) -D__m68k__ -S avcall-m68k.c -o avcall-m68k-linux.s + +avcall-m68k-sun.s : avcall-m68k.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) + $(CROSS_TOOL) m68k-sun gcc -V 3.1 $(GCCFLAGS) -D__m68k__ -S avcall-m68k.c -o avcall-m68k-sun.s + +avcall-m68k.mit.S : avcall-m68k-sun.s ../common/asm-m68k.sh ../common/noexecstack.h $(THISFILE) + (echo '#include "asm-m68k.h"' ; ../common/asm-m68k.sh mit < avcall-m68k-sun.s ; cat ../common/noexecstack.h) > avcall-m68k.mit.S + +avcall-m68k.motorola.S : avcall-m68k-linux.s ../common/asm-m68k.sh ../common/noexecstack.h $(THISFILE) + (echo '#include "asm-m68k.h"' ; ../common/asm-m68k.sh motorola < avcall-m68k-linux.s ; cat ../common/noexecstack.h) > avcall-m68k.motorola.S + + +avcall-mipseb-linux.s : avcall-mips.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) + $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=32 -mfpxx -march=mips2 -meb $(GCCFLAGS) -D__mips__ -fno-tree-dce -S avcall-mips.c -o avcall-mipseb-linux.s + +avcall-mipseb-macro.S : avcall-mipseb-linux.s ../common/asm-mips.sh $(THISFILE) + (echo '#include "asm-mips.h"' ; ../common/asm-mips.sh < avcall-mipseb-linux.s) > avcall-mipseb-macro.S + +avcall-mipsel-linux.s : avcall-mips.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) + $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=32 -mfpxx -march=mips2 -mel $(GCCFLAGS) -D__mips__ -fno-tree-dce -S avcall-mips.c -o avcall-mipsel-linux.s + +avcall-mipsel-macro.S : avcall-mipsel-linux.s ../common/asm-mips.sh $(THISFILE) + (echo '#include "asm-mips.h"' ; ../common/asm-mips.sh < avcall-mipsel-linux.s) > avcall-mipsel-macro.S + +avcall-mipsn32eb-linux.s : avcall-mipsn32.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) + $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=n32 -meb $(GCCFLAGS) -D__mipsn32__ -S avcall-mipsn32.c -o avcall-mipsn32eb-linux.s + +avcall-mipsn32eb-macro.S : avcall-mipsn32eb-linux.s ../common/asm-mips.sh $(THISFILE) + (echo '#include "asm-mips.h"' ; ../common/asm-mips.sh < avcall-mipsn32eb-linux.s) > avcall-mipsn32eb-macro.S + +avcall-mipsn32el-linux.s : avcall-mipsn32.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) + $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=n32 -mel $(GCCFLAGS) -D__mipsn32__ -S avcall-mipsn32.c -o avcall-mipsn32el-linux.s + +avcall-mipsn32el-macro.S : avcall-mipsn32el-linux.s ../common/asm-mips.sh $(THISFILE) + (echo '#include "asm-mips.h"' ; ../common/asm-mips.sh < avcall-mipsn32el-linux.s) > avcall-mipsn32el-macro.S + +avcall-mips64eb-linux.s : avcall-mips64.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) + $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=64 -meb $(GCCFLAGS) -D__mips64__ -S avcall-mips64.c -o avcall-mips64eb-linux.s + +avcall-mips64eb-macro.S : avcall-mips64eb-linux.s ../common/asm-mips.sh $(THISFILE) + (echo '#include "asm-mips.h"' ; ../common/asm-mips.sh < avcall-mips64eb-linux.s) > avcall-mips64eb-macro.S + +avcall-mips64el-linux.s : avcall-mips64.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) + $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=64 -mel $(GCCFLAGS) -D__mips64__ -S avcall-mips64.c -o avcall-mips64el-linux.s + +avcall-mips64el-macro.S : avcall-mips64el-linux.s ../common/asm-mips.sh $(THISFILE) + (echo '#include "asm-mips.h"' ; ../common/asm-mips.sh < avcall-mips64el-linux.s) > avcall-mips64el-macro.S + + +avcall-sparc-linux.s : avcall-sparc.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) + $(CROSS_TOOL) sparc-linux gcc -V 3.1 $(GCCFLAGS) -D__sparc__ -S avcall-sparc.c -o avcall-sparc-linux.s + +avcall-sparc-macro.S : avcall-sparc-linux.s ../common/asm-sparc.sh ../common/noexecstack.h $(THISFILE) + (echo '#include "asm-sparc.h"' ; ../common/asm-sparc.sh < avcall-sparc-linux.s ; cat ../common/noexecstack.h) > avcall-sparc-macro.S + +avcall-sparc64-linux.s : avcall-sparc64.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) +# This compiler produces useless instructions with -fPIC. The result is PIC even without -fPIC. + $(CROSS_TOOL) sparc64-linux gcc -V 4.0.2 $(GCCFLAGS) -fno-PIC -D__sparc64__ -S avcall-sparc64.c -o avcall-sparc64-linux.s + +avcall-sparc64-macro.S : avcall-sparc64-linux.s ../common/asm-sparc.sh ../common/noexecstack.h $(THISFILE) + (echo '#include "asm-sparc.h"' ; ../common/asm-sparc.sh < avcall-sparc64-linux.s ; cat ../common/noexecstack.h) > avcall-sparc64-macro.S + + +avcall-alpha-linux.s : avcall-alpha.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) + $(CROSS_TOOL) alpha-linux gcc -V 4.0.2 $(GCCFLAGS) -D__alpha__ -S avcall-alpha.c -o avcall-alpha-linux.s + +avcall-alpha-macro.S : avcall-alpha-linux.s ../common/asm-alpha.sh ../common/noexecstack.h $(THISFILE) + (../common/asm-alpha.sh < avcall-alpha-linux.s ; cat ../common/noexecstack.h) > avcall-alpha-macro.S + + +avcall-hppa-linux.s : avcall-hppa.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) + $(CROSS_TOOL) hppa-linux gcc -V 3.1 $(GCCFLAGS) -D__hppa__ -S avcall-hppa.c -o avcall-hppa-linux.s + +avcall-hppa-macro.S : avcall-hppa-linux.s ../common/asm-hppa.sh ../common/noexecstack.h $(THISFILE) + (echo '#include "asm-hppa.h"' ; ../common/asm-hppa.sh < avcall-hppa-linux.s ; cat ../common/noexecstack.h) > avcall-hppa-macro.S + +avcall-hppa64-linux.s : avcall-hppa64.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) + $(CROSS_TOOL) hppa64-linux gcc -V 3.1 $(GCCFLAGS) -D__hppa64__ -S avcall-hppa64.c -o avcall-hppa64-linux.s + +avcall-hppa64-macro.S : avcall-hppa64-linux.s ../common/asm-hppa64.sh ../common/noexecstack.h $(THISFILE) +# Need to remove the gcc-generated instructions that clobber %r29 right before each of the calls. + (echo '#include "asm-hppa64.h"' ; grep -v 'ldo -16(%r30),%r29' < avcall-hppa64-linux.s | ../common/asm-hppa64.sh ; cat ../common/noexecstack.h) > avcall-hppa64-macro.S + + +avcall-arm-macro.S : avcall-arm.c avcall-internal.h avcall.h avcall-alist.h ../common/asm-arm.sh ../common/noexecstack-arm.h $(THISFILE) + $(CROSS_TOOL) arm-linux gcc -V 3.1 -mlittle-endian $(GCCFLAGS) -D__arm__ -S avcall-arm.c -o avcall-armel.s + $(CROSS_TOOL) arm-linux gcc -V 3.1 -mbig-endian $(GCCFLAGS) -D__arm__ -S avcall-arm.c -o avcall-armeb.s + cmp avcall-armel.s avcall-armeb.s > /dev/null + (echo '#include "asm-arm.h"' ; ../common/asm-arm.sh < avcall-armel.s ; cat ../common/noexecstack-arm.h) > avcall-arm-macro.S + $(RM) avcall-armel.s avcall-armeb.s + +avcall-armhf-macro.S : avcall-armhf.c avcall-internal.h avcall.h avcall-alist.h ../common/asm-arm.sh ../common/noexecstack-arm.h $(THISFILE) +# The option -mabi=aapcs ensures an 8-bytes-aligned stack pointer. + $(CROSS_TOOL) armv7l-linux-gnueabihf gcc-6.3.0 -march=armv6 -mabi=aapcs -mfloat-abi=hard -mlittle-endian $(GCCFLAGS) -D__armhf__ -S avcall-armhf.c -o avcall-armhfel.s + $(CROSS_TOOL) armv7l-linux-gnueabihf gcc-6.3.0 -march=armv6 -mabi=aapcs -mfloat-abi=hard -mbig-endian $(GCCFLAGS) -D__armhf__ -S avcall-armhf.c -o avcall-armhfeb.s + cmp avcall-armhfel.s avcall-armhfeb.s > /dev/null + (echo '#include "asm-arm.h"' ; ../common/asm-arm.sh < avcall-armhfel.s ; cat ../common/noexecstack-arm.h) > avcall-armhf-macro.S + $(RM) avcall-armhfel.s avcall-armhfeb.s + + +avcall-arm64-macro.S : avcall-arm64.c avcall-internal.h avcall.h avcall-alist.h ../common/asm-arm.sh ../common/noexecstack-arm.h $(THISFILE) + $(CROSS_TOOL) aarch64-linux gcc-5.4.0 -mlittle-endian $(GCCFLAGS) -D__arm64__ -S avcall-arm64.c -o avcall-arm64el.s + $(CROSS_TOOL) aarch64-linux gcc-5.4.0 -mbig-endian $(GCCFLAGS) -D__arm64__ -S avcall-arm64.c -o avcall-arm64eb.s + cmp avcall-arm64el.s avcall-arm64eb.s > /dev/null + (echo '#include "asm-arm.h"' ; ../common/asm-arm.sh < avcall-arm64el.s ; cat ../common/noexecstack-arm.h) > avcall-arm64-macro.S + $(RM) avcall-arm64el.s avcall-arm64eb.s + + +avcall-powerpc-aix.s : avcall-powerpc.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) + $(CROSS_TOOL) rs6000-aix gcc -V 3.3.6 -mno-power -mno-power2 -mno-powerpc -mnew-mnemonics $(GCCFLAGS) -D__powerpc__ -S avcall-powerpc.c -o avcall-powerpc-aix.s + +avcall-powerpc-linux.s : avcall-powerpc.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) + $(CROSS_TOOL) powerpc-linux gcc -V 3.3.6 -mno-power -mno-power2 -mno-powerpc $(GCCFLAGS) -D__powerpc__ -S avcall-powerpc.c -o avcall-powerpc-linux.s + +avcall-powerpc-linux-macro.S : avcall-powerpc-linux.s ../common/asm-powerpc.sh ../common/noexecstack.h $(THISFILE) + (../common/asm-powerpc.sh < avcall-powerpc-linux.s ; cat ../common/noexecstack.h) > avcall-powerpc-linux-macro.S + +avcall-powerpc-sysv4-macro.S : avcall-powerpc.c avcall-internal.h avcall.h avcall-alist.h ../common/asm-powerpc.sh ../common/noexecstack.h $(THISFILE) + $(CROSS_TOOL) powerpc-linux gcc -V 3.3.6 -mno-power -mno-power2 -mno-powerpc $(GCCFLAGS) -D__powerpc__ -S avcall-powerpc.c -o avcall-powerpc-sysv4.s + (../common/asm-powerpc.sh < avcall-powerpc-sysv4.s ; cat ../common/noexecstack.h) > avcall-powerpc-sysv4-macro.S + $(RM) avcall-powerpc-sysv4.s + +avcall-powerpc-macos.s : avcall-powerpc.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) + $(CROSS_TOOL) powerpc-darwin gcc -V 3.3.6 $(GCCFLAGS) -D__powerpc__ -S avcall-powerpc.c -o avcall-powerpc-macos.s + +avcall-powerpc64-aix.s : avcall-powerpc64.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) + $(CROSS_TOOL) rs6000-aix6.1 gcc-5.4.0 -maix64 $(GCCFLAGS) -D__powerpc64__ -S avcall-powerpc64.c -o avcall-powerpc64-aix.s + +avcall-powerpc64-linux.S : avcall-powerpc64.c avcall-internal.h avcall.h avcall-alist.h ../common/asm-powerpc.sh ../common/noexecstack.h $(THISFILE) + $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv1 -mcpu=power4 -mlittle-endian $(GCCFLAGS) -D__powerpc64__ -S avcall-powerpc64.c -o avcall-powerpc64-linux-le.s + $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv1 -mcpu=power4 -mbig-endian $(GCCFLAGS) -D__powerpc64__ -S avcall-powerpc64.c -o avcall-powerpc64-linux-be.s + cmp avcall-powerpc64-linux-le.s avcall-powerpc64-linux-be.s > /dev/null + (../common/asm-powerpc.sh < avcall-powerpc64-linux-be.s ; cat ../common/noexecstack.h) > avcall-powerpc64-linux.S + $(RM) avcall-powerpc64-linux-le.s avcall-powerpc64-linux-be.s + +avcall-powerpc64-elfv2-linux.S : avcall-powerpc64.c avcall-internal.h avcall.h avcall-alist.h ../common/asm-powerpc.sh ../common/noexecstack.h $(THISFILE) + $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv2 -mcpu=power4 -mlittle-endian $(GCCFLAGS) -D__powerpc64__ -D__powerpc64_elfv2__ -S avcall-powerpc64.c -o avcall-powerpc64-elfv2-linux-le.s + $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv2 -mcpu=power4 -mbig-endian $(GCCFLAGS) -D__powerpc64__ -D__powerpc64_elfv2__ -S avcall-powerpc64.c -o avcall-powerpc64-elfv2-linux-be.s + cmp avcall-powerpc64-elfv2-linux-le.s avcall-powerpc64-elfv2-linux-be.s > /dev/null + (../common/asm-powerpc.sh < avcall-powerpc64-elfv2-linux-be.s ; cat ../common/noexecstack.h) > avcall-powerpc64-elfv2-linux.S + $(RM) avcall-powerpc64-elfv2-linux-le.s avcall-powerpc64-elfv2-linux-be.s + + +avcall-ia64-linux.s : avcall-ia64.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) + $(CROSS_TOOL) ia64-linux gcc -V 4.0.1 $(GCCFLAGS) -D__ia64__ -S avcall-ia64.c -o avcall-ia64-linux.s + +avcall-ia64-macro.S : avcall-ia64-linux.s ../common/noexecstack.h $(THISFILE) + cat avcall-ia64-linux.s ../common/noexecstack.h > avcall-ia64-macro.S + + +avcall-x86_64-linux.s : avcall-x86_64.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) + $(CROSS_TOOL) x86_64-linux gcc-4.0.2 $(GCCFLAGS) -D__x86_64__ -S avcall-x86_64.c -o avcall-x86_64-linux.s + +avcall-x86_64-macro.S : avcall-x86_64-linux.s ../common/asm-x86_64.sh ../common/noexecstack.h $(THISFILE) + (echo '#include "asm-x86_64.h"' ; ../common/asm-x86_64.sh < avcall-x86_64-linux.s ; cat ../common/noexecstack.h) > avcall-x86_64-macro.S + +avcall-x86_64-x32-linux.s : avcall-x86_64.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) + $(CROSS_TOOL) x86_64-linux gcc-5.4.0 -mx32 $(GCCFLAGS) -D__x86_64__ -D__x86_64_x32__ -S avcall-x86_64.c -o avcall-x86_64-x32-linux.s + +avcall-x86_64-windows.s : avcall-x86_64-windows.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) + $(CROSS_TOOL) x86_64-linux gcc-5.4.0 -mabi=ms $(GCCFLAGS) -fno-reorder-blocks-and-partition -D__x86_64__ -D_WIN32 -S avcall-x86_64-windows.c -o avcall-x86_64-windows.s + +avcall-x86_64-windows-macro.S : avcall-x86_64-windows.s ../common/asm-x86_64.sh ../common/noexecstack.h $(THISFILE) + (echo '#include "asm-x86_64.h"' ; ../common/asm-x86_64.sh < avcall-x86_64-windows.s ; cat ../common/noexecstack.h) > avcall-x86_64-windows-macro.S + + +avcall-s390-linux.s : avcall-s390.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) + $(CROSS_TOOL) s390-linux gcc -V 3.1 $(GCCFLAGS) -D__s390__ -S avcall-s390.c -o avcall-s390-linux.s + +avcall-s390-macro.S : avcall-s390-linux.s ../common/asm-s390.sh ../common/noexecstack.h $(THISFILE) + (../common/asm-s390.sh < avcall-s390-linux.s ; cat ../common/noexecstack.h) > avcall-s390-macro.S + + +avcall-s390x-linux.s : avcall-s390x.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) + $(CROSS_TOOL) s390x-linux gcc-5.4.0 $(GCCFLAGS) -D__s390x__ -S avcall-s390x.c -o avcall-s390x-linux.s + +avcall-s390x-macro.S : avcall-s390x-linux.s ../common/asm-s390.sh ../common/noexecstack.h $(THISFILE) + (../common/asm-s390.sh < avcall-s390x-linux.s ; cat ../common/noexecstack.h) > avcall-s390x-macro.S + + +avcall-riscv32-ilp32d-linux.s : avcall-riscv32.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) + $(CROSS_TOOL) riscv32-linux gcc-7.3.0 $(GCCFLAGS) -D__riscv32__ -S avcall-riscv32.c -o avcall-riscv32-ilp32d-linux.s + +avcall-riscv32-ilp32d-macro.S : avcall-riscv32-ilp32d-linux.s ../common/asm-riscv.sh ../common/noexecstack.h $(THISFILE) + (../common/asm-riscv.sh < avcall-riscv32-ilp32d-linux.s ; cat ../common/noexecstack.h) > avcall-riscv32-ilp32d-macro.S + + +avcall-riscv64-lp64d-linux.s : avcall-riscv64.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) + $(CROSS_TOOL) riscv64-linux gcc-7.3.0 $(GCCFLAGS) -D__riscv64__ -S avcall-riscv64.c -o avcall-riscv64-lp64d-linux.s + +avcall-riscv64-lp64d-macro.S : avcall-riscv64-lp64d-linux.s ../common/asm-riscv.sh ../common/noexecstack.h $(THISFILE) + (../common/asm-riscv.sh < avcall-riscv64-lp64d-linux.s ; cat ../common/noexecstack.h) > avcall-riscv64-lp64d-macro.S + + +# --------------- Rules for debugging test failures --------------- + +tests : tests-i386.s tests-m68k.s tests-mips.s tests-sparc.s tests-alpha.s tests-hppa.s tests-arm.s tests-powerpc.s tests-ia64.s tests-x86_64.s + true + +tests-i386.s : tests.c avcall.h + $(GCC) -V 2.7.2 -b i486-linuxaout $(GCCFLAGS) -I/usr/include -D__i386__ -S tests.c -o tests-i386.s + +tests-m68k.s : tests.c avcall.h + $(GCC) -V 2.95.2 -b m68k-sun $(GCCFLAGS) -I/usr/include -D__m68k__ -S tests.c -o tests-m68k.s + +tests-mips.s : tests.c avcall.h + $(GCC) -V 2.95.2 -b mips-sgi $(GCCFLAGS) -I/usr/include -D__mips__ -S tests.c -o tests-mips.s + +tests-sparc.s : tests.c avcall.h + $(GCC) -V 2.95.2 -b sparc-sun $(GCCFLAGS) -I/usr/include -D__sparc__ -S tests.c -o tests-sparc.s + +tests-alpha.s : tests.c avcall.h + $(GCC) -V 2.7.2 -b alpha-dec-osf $(GCCFLAGS) -I/usr/include -D__alpha__ -S tests.c -o tests-alpha.s + +tests-hppa.s : tests.c avcall.h + $(GCC) -V 2.6.3 -b hppa1.0-hpux $(GCCFLAGS) -I/usr/include -D__hppa__ -S tests.c -o tests-hppa.s + +tests-arm.s : tests.c avcall.h + $(GCC) -V 2.6.3 -b arm-acorn-riscix $(GCCFLAGS) -I/usr/include -D__arm__ -S tests.c -o tests-arm.s + +tests-powerpc.s : tests.c avcall.h + $(GCC) -V 2.95.2 -b rs6000 $(GCCFLAGS) -I/usr/include -D__powerpc__ -S tests.c -o tests-powerpc.s + +tests-ia64.s : tests.c avcall.h + $(GCC) -V 2.9-ia64-000216 -b ia64-hp-linux $(GCCFLAGS) -I/usr/include -D__ia64__ -S tests.c -o tests-ia64.s + +tests-x86_64.s : tests.c avcall.h + $(GCC) -V 3.2.2 -b x86_64-suse-linux $(GCCFLAGS) -I/usr/include -D__x86_64__ -S tests.c -o tests-x86_64.s diff --git a/avcall/Makefile.in b/avcall/Makefile.in new file mode 100644 index 0000000..6c3a334 --- /dev/null +++ b/avcall/Makefile.in @@ -0,0 +1,410 @@ +# Makefile for avcall + +#### Start of system configuration section. #### + +HOST = @host@ +CPU = @HOST_CPU_C_ABI@ +OS = @host_os@ + +# Directories used by "make": +srcdir = @srcdir@ + +# Directories used by "make install": +prefix = @prefix@ +local_prefix = /usr/local +exec_prefix = @exec_prefix@ +libdir = @libdir@ +includedir = @includedir@ +mandir = @mandir@ +datadir = @datadir@ +datarootdir = @datarootdir@ +htmldir = $(datadir)/html + +# Programs used by "make": +# C compiler +CC = @CC@ +CFLAGS = @CFLAGS@ +CPP = @CPP@ +# C++ compiler +CXX = @CXX@ +CXXFLAGS = @CXXFLAGS@ +# Both C and C++ compiler +CPPFLAGS = @CPPFLAGS@ +INCLUDES = -I. -I$(srcdir) -I.. -I$(srcdir)/.. +ASPFLAGS = `if test @AS_UNDERSCORE@ = true; then echo '-DASM_UNDERSCORE'; fi` +LDFLAGS = @LDFLAGS@ +LIBTOOL = @LIBTOOL@ +LIBTOOL_COMPILE = $(LIBTOOL) --mode=compile +LIBTOOL_LINK = $(LIBTOOL) --mode=link +LIBTOOL_INSTALL = $(LIBTOOL) --mode=install +LIBTOOL_UNINSTALL = $(LIBTOOL) --mode=uninstall +AR = @AR@ +AR_FLAGS = rc +RANLIB = @RANLIB@ +MV = mv +LN = @LN@ +RM = rm -f +@SET_MAKE@ + +# Programs used by "make install": +INSTALL = @INSTALL@ +INSTALL_PROGRAM = @INSTALL_PROGRAM@ +INSTALL_DATA = @INSTALL_DATA@ + +#### End of system configuration section. #### + +SHELL = /bin/sh + +# Needed by $(LIBTOOL). +top_builddir = .. + +OBJECTS = avcall.lo avcall-libapi.lo avcall-structcpy.lo avcall-compat.lo + +# Limit the set of exported symbols, on those platforms where libtool supports it. +# Currently this does not exclude any symbol; maybe sometime in the future... +LIBAVCALL_EXPORTED_SYMBOLS_REGEX = '^avcall_|^__builtin_avcall$$' + +# Before making a release, change this according to the libtool documentation, +# section "Library interface versions". +LIBAVCALL_VERSION_INFO = 1:2:0 + +all : $(OBJECTS) libavcall.la $(srcdir)/avcall.3 $(srcdir)/avcall.html + +avcall.lo : avcall-$(CPU).lo + $(RM) avcall.lo avcall.@OBJEXT@ + $(LN) avcall-$(CPU).lo avcall.lo + if test -f avcall-$(CPU).@OBJEXT@; then $(LN) avcall-$(CPU).@OBJEXT@ avcall.@OBJEXT@; fi + +@IFNOT_MSVC@avcall-i386.lo : avcall-i386.s +@IFNOT_MSVC@ $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-i386.s + +@IFNOT_MSVC@avcall-i386.s : $(srcdir)/avcall-i386-macro.S +@IFNOT_MSVC@ $(CPP) $(ASPFLAGS) -I$(srcdir)/../common - < $(srcdir)/avcall-i386-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,@ ,@,g' -e 's,//.*$$,,' -e 's/##//g' > avcall-i386.s + +@IF_MSVC@avcall-i386.lo : $(srcdir)/avcall-i386-msvc.c +@IF_MSVC@ $(LIBTOOL_COMPILE) $(CC) -I$(srcdir)/../common $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/avcall-i386-msvc.c -o avcall-i386.lo + +avcall-sparc.lo : avcall-sparc.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-sparc.s + +avcall-sparc.s : $(srcdir)/avcall-sparc-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../common - < $(srcdir)/avcall-sparc-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,//.*$$,,' -e 's,\$$,#,g' -e 's,# ,#,g' > avcall-sparc.s + +avcall-sparc64.lo : avcall-sparc64.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-sparc64.s + +avcall-sparc64.s : $(srcdir)/avcall-sparc64-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../common - < $(srcdir)/avcall-sparc64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,//.*$$,,' -e 's,\$$,#,g' -e 's,# ,#,g' > avcall-sparc64.s + +avcall-m68k.lo : avcall-m68k.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-m68k.s + +avcall-m68k.s : $(srcdir)/avcall-m68k.mit.S $(srcdir)/avcall-m68k.motorola.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/avcall-m68k.motorola.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' | if test @AS_UNDERSCORE@ = true; then sed -e 's/\$$//g'; else sed -e 's/\$$/%/g'; fi > avcall-m68k.s + +avcall-mips.lo : avcall-mips.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-mips.s + +avcall-mips.s : $(srcdir)/avcall-mips@ENDIANNESS@-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/avcall-mips@ENDIANNESS@-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > avcall-mips.s + +avcall-mipsn32.lo : avcall-mipsn32.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-mipsn32.s + +avcall-mipsn32.s : $(srcdir)/avcall-mipsn32@ENDIANNESS@-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/avcall-mipsn32@ENDIANNESS@-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > avcall-mipsn32.s + +avcall-mips64.lo : avcall-mips64.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-mips64.s + +avcall-mips64.s : $(srcdir)/avcall-mips64@ENDIANNESS@-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/avcall-mips64@ENDIANNESS@-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > avcall-mips64.s + +avcall-alpha.lo : avcall-alpha.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-alpha.s + +avcall-alpha.s : $(srcdir)/avcall-alpha-macro.S + $(CPP) $(ASPFLAGS) $(srcdir)/avcall-alpha-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > avcall-alpha.s + +avcall-hppa.lo : avcall-hppa.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-hppa.s + +avcall-hppa.s : $(srcdir)/avcall-hppa-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/avcall-hppa-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e "s,!,',g" > avcall-hppa.s + +avcall-hppa64.lo : avcall-hppa64.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-hppa64.s + +avcall-hppa64.s : $(srcdir)/avcall-hppa64-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/avcall-hppa64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e "s,!,',g" > avcall-hppa64.s + +avcall-arm.lo : avcall-arm.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-arm.s + +avcall-arm.s : $(srcdir)/avcall-arm-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/avcall-arm-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//,@,g' -e 's,\$$,#,g' > avcall-arm.s + +avcall-armhf.lo : avcall-armhf.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-armhf.s + +avcall-armhf.s : $(srcdir)/avcall-armhf-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/avcall-armhf-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//,@,g' -e 's,\$$,#,g' > avcall-armhf.s + +avcall-arm64.lo : avcall-arm64.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-arm64.s + +avcall-arm64.s : $(srcdir)/avcall-arm64-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/avcall-arm64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//,@,g' -e 's,\$$,#,g' > avcall-arm64.s + +avcall-powerpc.lo : avcall-powerpc.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-powerpc.s + +avcall-powerpc.s : $(srcdir)/avcall-powerpc-aix.s $(srcdir)/avcall-powerpc-linux-macro.S $(srcdir)/avcall-powerpc-macos.s $(srcdir)/avcall-powerpc-sysv4-macro.S + case "$(OS)" in \ + aix*) syntax=aix;; \ + linux* | netbsd* | openbsd*) syntax=linux;; \ + macos* | darwin*) syntax=macos;; \ + *) syntax=sysv4;; \ + esac; \ + case $${syntax} in \ + macos) \ + grep -v '\.machine' $(srcdir)/avcall-powerpc-$${syntax}.s > avcall-powerpc.s || exit 1 ;; \ + linux | sysv4) \ + $(CPP) $(ASPFLAGS) $(srcdir)/avcall-powerpc-$${syntax}-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > avcall-powerpc.s || exit 1 ;; \ + *) \ + cp $(srcdir)/avcall-powerpc-$${syntax}.s avcall-powerpc.s || exit 1 ;; \ + esac + +avcall-powerpc64.lo : avcall-powerpc64.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-powerpc64.s + +avcall-powerpc64.s : $(srcdir)/avcall-powerpc64-aix.s $(srcdir)/avcall-powerpc64-linux.S + case "$(OS)" in \ + aix*) syntax=aix;; \ + *) syntax=linux;; \ + esac; \ + case $${syntax} in \ + linux) \ + $(CPP) $(ASPFLAGS) $(srcdir)/avcall-powerpc64-$${syntax}.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > avcall-powerpc64.s || exit 1 ;; \ + *) \ + cp $(srcdir)/avcall-powerpc64-$${syntax}.s avcall-powerpc64.s || exit 1 ;; \ + esac + +avcall-powerpc64-elfv2.lo : avcall-powerpc64-elfv2.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-powerpc64-elfv2.s + +avcall-powerpc64-elfv2.s : $(srcdir)/avcall-powerpc64-elfv2-linux.S + $(CPP) $(ASPFLAGS) $(srcdir)/avcall-powerpc64-elfv2-linux.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > avcall-powerpc64-elfv2.s + +avcall-ia64.lo : avcall-ia64.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-ia64.s + +avcall-ia64.s : $(srcdir)/avcall-ia64-macro.S + $(CPP) $(ASPFLAGS) $(srcdir)/avcall-ia64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > avcall-ia64.s + +@IFNOT_MSVC@avcall-x86_64.lo : avcall-x86_64.s +@IFNOT_MSVC@ $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-x86_64.s + +@IFNOT_MSVC@avcall-x86_64.s : $(srcdir)/avcall-x86_64-macro.S $(srcdir)/avcall-x86_64-windows-macro.S +@IFNOT_MSVC@ case "$(OS)" in \ +@IFNOT_MSVC@ cygwin* | mingw*) variant='-windows';; \ +@IFNOT_MSVC@ *) variant='';; \ +@IFNOT_MSVC@ esac; \ +@IFNOT_MSVC@ $(CPP) $(ASPFLAGS) -I$(srcdir)/../common - < $(srcdir)/avcall-x86_64$${variant}-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,@ ,@,g' -e 's,//.*$$,,' -e 's/##//g' > avcall-x86_64.s + +@IF_MSVC@avcall-x86_64.lo : avcall-x86_64.asm +@IF_MSVC@ $(LIBTOOL_COMPILE) ml64 -c -nologo avcall-x86_64.asm +@IF_MSVC@ mkdir -p .libs; cp avcall-x86_64.@OBJEXT@ .libs/avcall-x86_64.@OBJEXT@ + +@IF_MSVC@avcall-x86_64.asm : $(srcdir)/avcall-x86_64-windows-macro.S +@IF_MSVC@ { $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/avcall-x86_64-windows-macro.S | grep -v '^#'; echo 'END'; } > avcall-x86_64.asm + +avcall-x86_64-x32.lo : avcall-x86_64-x32.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-x86_64-x32.s + +avcall-x86_64-x32.s : $(srcdir)/avcall-x86_64-x32-linux.s + cp $(srcdir)/avcall-x86_64-x32-linux.s avcall-x86_64-x32.s + +avcall-s390.lo : avcall-s390.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-s390.s + +avcall-s390.s : $(srcdir)/avcall-s390-macro.S + $(CPP) $(ASPFLAGS) $(srcdir)/avcall-s390-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > avcall-s390.s + +avcall-s390x.lo : avcall-s390x.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-s390x.s + +avcall-s390x.s : $(srcdir)/avcall-s390x-macro.S + $(CPP) $(ASPFLAGS) $(srcdir)/avcall-s390x-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > avcall-s390x.s + +avcall-riscv32-ilp32d.lo : avcall-riscv32-ilp32d.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-riscv32-ilp32d.s + +avcall-riscv32-ilp32d.s : $(srcdir)/avcall-riscv32-ilp32d-macro.S + $(CPP) $(ASPFLAGS) $(srcdir)/avcall-riscv32-ilp32d-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > avcall-riscv32-ilp32d.s + +avcall-riscv64-lp64d.lo : avcall-riscv64-lp64d.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-riscv64-lp64d.s + +avcall-riscv64-lp64d.s : $(srcdir)/avcall-riscv64-lp64d-macro.S + $(CPP) $(ASPFLAGS) $(srcdir)/avcall-riscv64-lp64d-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > avcall-riscv64-lp64d.s + +avcall-libapi.lo : $(srcdir)/avcall-libapi.c ../config.h $(srcdir)/avcall-internal.h $(srcdir)/avcall.h $(srcdir)/avcall-alist.h + $(LIBTOOL_COMPILE) $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) @DISABLE_TYPE_BASED_ALIASING@ -c $(srcdir)/avcall-libapi.c + +avcall-structcpy.lo : $(srcdir)/avcall-structcpy.c $(srcdir)/../common/structcpy.c + $(LIBTOOL_COMPILE) $(CC) -I$(srcdir)/../common $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/avcall-structcpy.c + +avcall-compat.lo : $(srcdir)/avcall-compat.c ../config.h + $(LIBTOOL_COMPILE) $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/avcall-compat.c + +libavcall.la : $(OBJECTS) + $(LIBTOOL_LINK) $(CC) -o libavcall.la -rpath $(libdir) -no-undefined -export-symbols-regex $(LIBAVCALL_EXPORTED_SYMBOLS_REGEX) -version-info $(LIBAVCALL_VERSION_INFO) $(OBJECTS) $(LDFLAGS) + +# Installs the library and include files only. Typically called with only +# $(libdir) and $(includedir) - don't use $(prefix) and $(exec_prefix) here. +install-lib : all force + mkdir -p $(libdir) + $(LIBTOOL_INSTALL) $(INSTALL_DATA) libavcall.la $(libdir)/libavcall.la + mkdir -p $(includedir) + $(INSTALL_DATA) $(srcdir)/avcall.h $(includedir)/avcall.h + +install : all force + mkdir -p $(DESTDIR)$(prefix) + mkdir -p $(DESTDIR)$(exec_prefix) + mkdir -p $(DESTDIR)$(libdir) + $(LIBTOOL_INSTALL) $(INSTALL_DATA) libavcall.la $(DESTDIR)$(libdir)/libavcall.la + mkdir -p $(DESTDIR)$(includedir) + $(INSTALL_DATA) $(srcdir)/avcall.h $(DESTDIR)$(includedir)/avcall.h + mkdir -p $(DESTDIR)$(mandir) + mkdir -p $(DESTDIR)$(mandir)/man3 + $(INSTALL_DATA) $(srcdir)/avcall.3 $(DESTDIR)$(mandir)/man3/avcall.3 + mkdir -p $(DESTDIR)$(datadir) + mkdir -p $(DESTDIR)$(htmldir) + $(INSTALL_DATA) $(srcdir)/avcall.html $(DESTDIR)$(htmldir)/avcall.html + +installdirs : force + mkdir -p $(DESTDIR)$(prefix) + mkdir -p $(DESTDIR)$(exec_prefix) + mkdir -p $(DESTDIR)$(libdir) + mkdir -p $(DESTDIR)$(includedir) + mkdir -p $(DESTDIR)$(mandir) + mkdir -p $(DESTDIR)$(mandir)/man3 + mkdir -p $(DESTDIR)$(datadir) + mkdir -p $(DESTDIR)$(htmldir) + +uninstall : force + $(LIBTOOL_UNINSTALL) $(RM) $(DESTDIR)$(libdir)/libavcall.la + $(RM) $(DESTDIR)$(includedir)/avcall.h + $(RM) $(DESTDIR)$(mandir)/man3/avcall.3 + $(RM) $(DESTDIR)$(htmldir)/avcall.html + +minitests.@OBJEXT@ : $(srcdir)/minitests.c $(srcdir)/tests.c $(srcdir)/avcall.h + $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/minitests.c + +minitests.s : $(srcdir)/minitests.c $(srcdir)/tests.c $(srcdir)/avcall.h + $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -S $(srcdir)/minitests.c + +minitests : minitests.@OBJEXT@ libavcall.la + $(LIBTOOL_LINK) $(CC) $(CFLAGS) @GCC_X_NONE@ minitests.@OBJEXT@ libavcall.la $(LDFLAGS) -o minitests + +minitests-c++.@OBJEXT@ : $(srcdir)/minitests-c++.cc $(srcdir)/minitests.c $(srcdir)/tests.c $(srcdir)/avcall.h + $(CXX) $(INCLUDES) $(CPPFLAGS) $(CXXFLAGS) -c $(srcdir)/minitests-c++.cc + +minitests-c++ : minitests-c++.@OBJEXT@ libavcall.la + $(LIBTOOL_LINK) $(CXX) $(CXXFLAGS) @GCC_X_NONE@ minitests-c++.@OBJEXT@ libavcall.la $(LDFLAGS) -o minitests-c++ + +check : all minitests + ./minitests > minitests.out + LC_ALL=C uniq -u < minitests.out > minitests.output.$(HOST) + test '!' -s minitests.output.$(HOST) +@IF_CXX@# minitests-c++ crashes on HP-UX HPPA 32-bit with aCC, even without "-O". +@IF_CXX@ test $(CPU) = 'hppa' || { \ +@IF_CXX@ ./minitests-c++ > minitests-c++.out \ +@IF_CXX@ && LC_ALL=C uniq -u < minitests-c++.out > minitests-c++.output.$(HOST) \ +@IF_CXX@ && test '!' -s minitests-c++.output.$(HOST); \ +@IF_CXX@ } +@IF_CXX@check : minitests-c++ + +tests.@OBJEXT@ : $(srcdir)/tests.c $(srcdir)/avcall.h + $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/tests.c + +tests.s : $(srcdir)/tests.c $(srcdir)/avcall.h + $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -S $(srcdir)/tests.c + +tests : tests.@OBJEXT@ libavcall.la + $(LIBTOOL_LINK) $(CC) $(CFLAGS) @GCC_X_NONE@ tests.@OBJEXT@ libavcall.la $(LDFLAGS) -o tests + +extracheck : all tests + ./tests > tests.out + LC_ALL=C uniq -u < tests.out > tests.output.$(HOST) + test '!' -s tests.output.$(HOST) + +mostlyclean : clean + +clean : force + $(RM) *.@OBJEXT@ *.lo *.a libavcall.* core + $(RM) avcall-i386.s avcall-sparc.s avcall-sparc64.s avcall-m68k.s avcall-mips.s avcall-mipsn32.s avcall-mips64.s avcall-alpha.s avcall-hppa.s avcall-hppa64.s avcall-arm.s avcall-armhf.s avcall-arm64.s avcall-powerpc.s avcall-powerpc64.s avcall-powerpc64-elfv2.s avcall-ia64.s avcall-x86_64.s avcall-x86_64.asm avcall-x86_64-x32.s avcall-s390.s avcall-s390x.s avcall-riscv32-ilp32d.s avcall-riscv64-lp64d.s + $(RM) -r .libs _libs + $(RM) minitests.@OBJEXT@ minitests.s minitests minitests.out + $(RM) minitests-c++.@OBJEXT@ minitests-c++ minitests-c++.out + $(RM) tests.@OBJEXT@ tests.s tests tests.out + +distclean : clean + $(RM) Makefile minitests.output.* minitests-c++.output.* tests.output.* + +maintainer-clean : distclean + + +# List of source files (committed in version control or generated by Makefile.devel). +SOURCE_FILES = \ + COPYING \ + DOC PLATFORMS README avcall.3 avcall.html \ + Makefile.devel \ + Makefile.maint \ + Makefile.in \ + avcall.h avcall-internal.h avcall-alist.h \ + avcall-alpha.c avcall-alpha-linux.s avcall-alpha-macro.S \ + avcall-arm.c avcall-arm-macro.S \ + avcall-armhf.c avcall-armhf-macro.S \ + avcall-arm64.c avcall-arm64-macro.S \ + avcall-hppa.c avcall-hppa-linux.s avcall-hppa-macro.S \ + avcall-hppa64.c avcall-hppa64-linux.s avcall-hppa64-macro.S \ + avcall-i386.c avcall-i386-linux.s avcall-i386-macro.S \ + avcall-ia64.c avcall-ia64-linux.s avcall-ia64-macro.S \ + avcall-m68k.c avcall-m68k-linux.s avcall-m68k-sun.s avcall-m68k.mit.S avcall-m68k.motorola.S \ + avcall-mips.c avcall-mipseb-linux.s avcall-mipsel-linux.s avcall-mipseb-macro.S avcall-mipsel-macro.S \ + avcall-mipsn32.c avcall-mipsn32eb-linux.s avcall-mipsn32el-linux.s avcall-mipsn32eb-macro.S avcall-mipsn32el-macro.S \ + avcall-mips64.c avcall-mips64eb-linux.s avcall-mips64el-linux.s avcall-mips64eb-macro.S avcall-mips64el-macro.S \ + avcall-powerpc.c \ + avcall-powerpc-aix.s \ + avcall-powerpc-linux.s avcall-powerpc-linux-macro.S avcall-powerpc-macos.s avcall-powerpc-sysv4-macro.S \ + avcall-powerpc64.c avcall-powerpc64-aix.s avcall-powerpc64-linux.S avcall-powerpc64-elfv2-linux.S \ + avcall-riscv32.c avcall-riscv32-ilp32d-linux.s avcall-riscv32-ilp32d-macro.S \ + avcall-riscv64.c avcall-riscv64-lp64d-linux.s avcall-riscv64-lp64d-macro.S \ + avcall-s390.c avcall-s390-linux.s avcall-s390-macro.S \ + avcall-s390x.c avcall-s390x-linux.s avcall-s390x-macro.S \ + avcall-sparc.c avcall-sparc-linux.s avcall-sparc-macro.S \ + avcall-sparc64.c avcall-sparc64-linux.s avcall-sparc64-macro.S \ + avcall-x86_64.c avcall-x86_64-linux.s avcall-x86_64-macro.S avcall-x86_64-x32-linux.s \ + avcall-x86_64-windows.c avcall-x86_64-windows.s avcall-x86_64-windows-macro.S \ + avcall-libapi.c \ + avcall-structcpy.c \ + avcall-compat.c \ + minitests.c minitests-c++.cc \ + tests.c +# List of distributed files generated by Makefile.maint. +GENERATED_FILES = \ + avcall.man \ + avcall-i386-msvc.c +# List of distributed files. +DISTFILES = $(SOURCE_FILES) $(GENERATED_FILES) + +distdir : $(DISTFILES) + for file in $(DISTFILES); do \ + if test -f $$file; then dir='.'; else dir='$(srcdir)'; fi; \ + cp -p "$$dir/$$file" '$(distdir)'/$$file || exit 1; \ + done + + +force : diff --git a/avcall/Makefile.maint b/avcall/Makefile.maint new file mode 100644 index 0000000..dbfa663 --- /dev/null +++ b/avcall/Makefile.maint @@ -0,0 +1,24 @@ +# maintainer -*-Makefile-*- + +LN = ln -s +RM = rm -f + +# ==================== Easily regeneratable files ==================== + +ROFF_MAN = groff -Tutf8 -mandoc + +all : avcall.man \ + avcall-i386-msvc.c + +avcall.man : avcall.3 + $(ROFF_MAN) avcall.3 > avcall.man + +avcall-i386-msvc.c : avcall-i386-macro.S + cp -p avcall-i386-macro.S avcall-i386-msvc.c + +totally-clean : force + $(RM) avcall.man + $(RM) avcall-i386-msvc.c + + +force : diff --git a/avcall/PLATFORMS b/avcall/PLATFORMS new file mode 100644 index 0000000..350b581 --- /dev/null +++ b/avcall/PLATFORMS @@ -0,0 +1,80 @@ +Supported CPUs: (Put the GNU config.guess values here.) + + CPU GNU config.guess value machine OS + + i386 i486-unknown-linux (gcc) i386/486/586 Linux + i686-unknown-gnu0.9 (gcc) i686 GNU Hurd + i386-unknown-sysv4.0 (gcc, i386 Consensys + /usr/bin/cc, /usr/ucb/cc) + i386-pc-solaris2.6 (gcc) i386/486/586 Solaris + i386-pc-solaris2.10 (gcc, cc) i386/486/586 Solaris + i486-unknown-sco3.2v4.2 (gcc, cc -Of) i386/486/586 SCO + i386-pc-cygwin32 (gcc) i386/486/586 Cygwin32 + i386-w64-mingw32 (gcc, MSVC 14) i386/486/586 Win32 + i586-unknown-freebsd11.0 (cc) i386/486/586 FreeBSD 11 + i386-unknown-dragonfly3.8 (gcc) i386/486/586 DragonFly BSD + i386-unknown-netbsdelf7.0 (gcc) i386/486/586 NetBSD 7 + i386-unknown-openbsd6.0 (gcc) i386/486/586 OpenBSD 6 + i586-pc-haiku (gcc-x86) i586 Haiku 2017 + i386-pc-minix (clang) i386/486/586 Minix 3.3 + m68k m68k-sun-sunos4.0 (cc) Sun3 SunOS 4.0.3 + m68k-unknown-linux (gcc) emulated Linux + mips mips-sgi-irix4.0.5 (gcc, SGI mips Irix 4.0.x + cc -ansi, cc -D__STDC__, cc -cckr) + mips-sgi-irix5.2 (gcc, cc -ansi, ...) SGI mips Irix 5.2 + mips-sgi-irix5.3 (gcc, cc -ansi, ...) SGI mips Irix 5.3 + mips-sgi-irix6.2 (cc -32) SGI mips3 Irix 6.2 + mips-sgi-irix6.4 (cc -32, -n32, -64) SGI mips3 Irix 6.4 + mips-sgi-irix6.5 (cc -32, -n32, SGI mips3 Irix 6.5 + gcc -mabi=n32) + mips-unknown-linux (gcc -mabi=32) emulated Linux + mips64-unknown-linux (gcc -mabi=n32,64)emulated Linux + sparc sparc-sun-sunos4.1.1 (gcc, cc) Sun4 Sparc SunOS 4.x + sparc-sun-solaris2.3 (gcc) Sun4 Sparc SunOS 5.x + sparc-sun-solaris2.4 (gcc, cc) Sun4 Sparc SunOS 5.x + sparc-sun-solaris2.10 (gcc, cc) Sun4 Sparc Solaris 10 + sparc64-sun-solaris2.10 (gcc -m64, Sun4 Sparc Solaris 10 + cc -xarch=generic64) + sparc-unknown-linux (gcc) emulated Linux + sparc64-unknown-linux (gcc) emulated Linux + sparc-unknown-netbsdelf7.1 (gcc) emulated NetBSD 7.1 + sparc64-unknown-netbsd8.0 (gcc) emulated NetBSD 8.0 + alpha alpha-dec-osf3.0 (gcc, cc) DEC Alpha OSF/1 3.0 + alpha-dec-osf4.0 (gcc, cc) DEC Alpha OSF/1 4.0 + alphaev67-unknown-linux (gcc) emulated Linux + hppa hppa1.0-hp-hpux8.00 (gcc, HP 9000/8xx HP-UX 8.0x + cc, c89, cc -Aa) + hppa1.1-hp-hpux9.05 (cc) HP 9000/8xx HP-UX 9.0x + hppa1.1-hp-hpux10.01 (cc) HP 9000/8xx HP-UX 10.0x + hppa2.0-hp-hpux10.20 (cc +DA1.1) HP 9000/8xx HP-UX 10.20 + hppa2.0w-hp-hpux11.31 (cc) HP 9000/8xx HP-UX 11.31 + hppa-unknown-linux (gcc) emulated Linux + hppa64 hppa64-hp-hpux11.31 (cc +DD64) HP 9000/8xx HP-UX 11.31 + arm armv5tejl-unknown-linux (gcc) emulated Linux + armv6l-unknown-linux (gcc) emulated Linux + armv7l-unknown-linux (gcc) emulated Linux + arm64 aarch64-unknown-linux (gcc) APM X-Gene Linux + powerpc powerpc-ibm-aix4.1.4.0 (cc) IBM RS/6000 AIX 4.1.4 + powerpc-ibm-aix7.1.3.0 (xlc, gcc) IBM POWER AIX 7.1.3 + powerpc-unknown-linux (gcc) Apple PPC LinuxPPC + powerpc-apple-darwin6.8 (gcc) Apple PPC MacOS X + powerpc-apple-darwin9.8.0 (gcc) Apple PPC MacOS X + powerpc64 powerpc-ibm-aix7.1.3.0 (gcc -maix64, IBM POWER AIX 7.1.3 + xlc -q64) + powerpc64-unknown-linux (gcc -m64) IBM POWER Linux + powerpc64le-unknown-linux (gcc) IBM POWER Linux + ia64 ia64-unknown-linux (gcc) Intel Linux + x86_64 x86_64-suse-linux (gcc) AMD64 Linux + x86_64-unknown-linux (gcc -mx32) AMD64 Linux + x86_64-pc-solaris2.10 (gcc -m64) AMD64 Solaris + x86_64-pc-solaris2.10 (cc -xarch=generic64) AMD64 Solaris + x86_64-pc-cygwin (gcc) AMD64 Windows 10 + x86_64-w64-mingw32 (gcc, MSVC 14) AMD64 Windows 10 + x86_64-unknown-freebsd11.0 (cc) AMD64 FreeBSD 11 + x86_64-unknown-netbsd7.0 (gcc) AMD64 NetBSD 7 + x86_64-unknown-openbsd6.0 (gcc) AMD64 OpenBSD 6 + s390 s390x-ibm-linux (gcc -m31) emulated Linux + s390x s390x-ibm-linux (gcc) emulated Linux + riscv32 riscv32-unknown-linux (gcc -mabi=ilp32d) emulated Linux + riscv64 riscv64-unknown-linux (gcc -mabi=lp64d) emulated Linux + diff --git a/avcall/README b/avcall/README new file mode 100644 index 0000000..b85a718 --- /dev/null +++ b/avcall/README @@ -0,0 +1,73 @@ +avcall - calling C functions with variable arguments + +This library allows arbitrary C functions to be called from embedded +interpreters, debuggers, RPC calls, etc, by building up a C +argument-list incrementally from explicitly typed arguments. This +considerably reduces the amount of boilerplate glue code required +for such applications. + +The interface is like stdargs/varargs in reverse and is intended to be as +portable as possible, however the details of function calling are highly +machine-dependent so your mileage may vary. At the very least there are +typically built-in limits on the size of the argument-list. The +argument-pushing macros all return 0 for success, < 0 for error (eg, +arg-list overflow). + + +Installation instructions: + + Configure the parent directory. Then: + cd avcall + make + make check + make install + + +Files in this package: + + Documentation: + + README this text + COPYING free software license + PLATFORMS list of supported platforms + avcall.3 manual page in Unix man format + avcall.man manual page + avcall.html manual page in HTML format + DOC documentation + + Source: + + avcall.h main include file + avcall-*.c source for the main interface function + avcall-*.[sS] its translation to assembly language + avcall-libapi.c implementation of other library API + avcall-structcpy.c auxiliary function + tests.c test program + + Building: + + Makefile.in Makefile master + + Porting: + + Makefile.devel developer's Makefile + + +Copyright notice: + +Copyright 1993-1995 Bill Triggs +Copyright 1995-2017 Bruno Haible + +This program is free software: you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2 of the License, or +(at your option) any later version. + +This program is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with this program. If not, see . + diff --git a/avcall/avcall-alist.h b/avcall/avcall-alist.h new file mode 100644 index 0000000..6651879 --- /dev/null +++ b/avcall/avcall-alist.h @@ -0,0 +1,209 @@ +/* + * Copyright 1993-1995 Bill Triggs + * Copyright 1995-2019 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#ifndef _AVCALL_INTERNAL_H +#error "Never use directly; include instead." +#endif + +/* The platform indicator symbols (__i386__, etc.) come from + - "config.h" when compiling avcall-libapi.c, + - the GCC command line options when compiling avcall-$(CPU).c. + */ + +/* These two variants of powerpc ABIs are quite different. */ +#if defined(__powerpc__) && !defined(__powerpc64__) +#if defined(_AIX) || (defined(__MACH__) && defined(__APPLE__)) +#define __powerpc_aix__ 1 +#else +#define __powerpc_sysv4__ 1 +#endif +#endif + +/* The Unix and Windows variants of x86_64 ABIs are quite different. */ +#if defined(__x86_64__) +#if defined(_WIN32) || defined(__CYGWIN__) +#define __x86_64_ms__ 1 +#else +#define __x86_64_sysv__ 1 +#endif +#endif + +/* + * Definition of the ‘__av_alist’ type. + */ +/* Note: This struct must not contain members of type 'long' or 'unsigned long', + because in the mingw port we use precompiled code that assumes 'long' is + 64-bit whereas avcall-libapi.c is then compiled by a compiler that has a + 32-bit 'long' type. */ +typedef struct +{ + /* some av_... macros need these flags */ + int flags; + /* function to be called */ + __avword (*func)(); + /* return type, address for the result */ + void* raddr; + enum __AVtype rtype; + uintptr_t rsize; + /* current pointer into the args[] array */ + __avword* aptr; + /* beginning of the args[] array */ + __avword* args; +#if defined(__hppa__) && !defined(__hppa64__) + /* end of the args[] array */ + __avword* args_end; +#endif + /* limit pointer into the args[] array */ + __avword* eptr; +#if defined(__i386__) && 0 + /* Filler word, needed if the numbers of words up to now in this structure */ + /* is odd (because on MSVC, alignof(double) = 8, normally = 4). */ + __avword filler1; +#endif +#if defined(__i386__) || defined(__m68k__) || (defined(__sparc__) && !defined(__sparc64__)) || (defined(__hppa__) && !defined(__hppa64__)) || defined(__arm__) || defined(__armhf__) || (defined(__powerpc__) && !defined(__powerpc64__)) || (defined(__s390__) && !defined(__s390x__)) || defined(__riscv32__) + /* temporary storage, used to split doubles into two words */ + union { + double _double; +#if defined(__sparc__) && !defined(__sparc64__) + long long _longlong; +#endif + __avword words[2]; + } tmp; +#endif +#if defined(__x86_64_sysv__) +#define __AV_IARG_NUM 6 + /* store the integer arguments in an extra array */ + unsigned int ianum; + __avword iargs[__AV_IARG_NUM]; +#endif +#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) +#define __AV_FARG_NUM 2 + /* store the floating-point arguments in an extra array */ + unsigned int anum; + unsigned int fanum; + unsigned int farg_mask; /* bitmask of those entries in fargs[] which have a float value */ + unsigned int darg_mask; /* bitmask of those entries in dargs[] which have a double value */ + float fargs[__AV_FARG_NUM]; + double dargs[__AV_FARG_NUM]; +#endif +#if defined(__mipsn32__) || defined(__mips64__) + /* store the floating-point arguments in an extra array */ + int anum; /* redundant: (LIST).aptr = &(LIST).args[(LIST).anum] */ + unsigned int farg_mask; /* bitmask of those entries in farg[] which have a value */ + unsigned int darg_mask; /* bitmask of those entries in args[] which have a double value */ + float fargs[8]; +#endif +#if defined(__sparc64__) + /* store the floating-point arguments in an extra array */ + int anum; /* redundant: (LIST).aptr = &(LIST).args[(LIST).anum] */ + unsigned int darg_mask; /* bitmask of those entries in args[] which have a float or double value */ +#endif +#if defined(__hppa__) || defined(__hppa64__) + unsigned int farg_mask; /* bitmask of those entries in args[] which have a float value */ + unsigned int darg_mask; /* bitmask of those entries in args[] which have a double value */ +#endif +#if defined(__armhf__) +#define __AV_IARG_NUM 4 + /* The first __AV_IARG_NUM integer arguments are passed in registers, even if + some floating-point arguments have already been allocated on the stack. */ + unsigned int ianum; + /* store the floating-point arguments in an extra array */ + unsigned int fanum; /* number of fargs[] words that are occupied so far */ + unsigned int farg_mask; /* bitmask of those entries in fargs[] which have a float value */ + unsigned int darg_mask; /* bitmask of those entries in dargs[] which have a double value */ + float fargs[16]; + double dargs[8]; +#endif +#if defined(__arm64__) +#define __AV_IARG_NUM 8 + /* store the integer arguments in an extra array */ + unsigned int ianum; + __avword iargs[__AV_IARG_NUM]; +#define __AV_FARG_NUM 8 + /* store the floating-point arguments in an extra array */ + unsigned int fanum; /* number of fargs[] words that are occupied so far */ + unsigned int farg_mask; /* bitmask of those entries in fargs[] which have a float value */ + unsigned int darg_mask; /* bitmask of those entries in dargs[] which have a double value */ + float fargs[__AV_FARG_NUM]; + double dargs[__AV_FARG_NUM]; +#endif +#if defined(__ia64__) || defined(__x86_64_sysv__) + /* store the floating-point arguments in an extra array */ +#define __AV_FARG_NUM 8 + double* faptr; + double fargs[__AV_FARG_NUM]; +#endif +#if defined(__powerpc__) || defined(__powerpc64__) +#if defined(__powerpc_sysv4__) +#define __AV_IARG_NUM 8 + /* store the integer arguments in an extra array */ + unsigned int ianum; + __avword iargs[__AV_IARG_NUM]; +#define __AV_FARG_NUM 8 +#else +#define __AV_FARG_NUM 13 +#endif + /* store the floating-point arguments in an extra array */ + double* faptr; + double fargs[__AV_FARG_NUM]; +#endif +#if defined(__x86_64_ms__) + /* store the floating-point arguments in an extra array */ + int anum; /* redundant: (LIST).aptr = &(LIST).args[(LIST).anum] */ +#define __AV_FARG_NUM 4 + unsigned int farg_mask; /* bitmask of those entries in fargs[] which have a float value */ + unsigned int darg_mask; /* bitmask of those entries in dargs[] which have a double value */ + float fargs[__AV_FARG_NUM]; + double dargs[__AV_FARG_NUM]; +#endif +#if (defined(__s390__) && !defined(__s390x__)) +#define __AV_IARG_NUM 5 + /* store the integer arguments in an extra array */ + unsigned int ianum; + __avword iargs[__AV_IARG_NUM]; + /* store the floating-point arguments in an extra array */ +#define __AV_FARG_NUM 2 + unsigned int fanum; /* number of fargs[] words that are occupied so far */ + unsigned int farg_mask; /* bitmask of those entries in fargs[] which have a float value */ + unsigned int darg_mask; /* bitmask of those entries in dargs[] which have a double value */ + float fargs[__AV_FARG_NUM]; + double dargs[__AV_FARG_NUM]; +#endif +#if defined(__s390x__) +#define __AV_IARG_NUM 5 + /* store the integer arguments in an extra array */ + unsigned int ianum; + __avword iargs[__AV_IARG_NUM]; +#define __AV_FARG_NUM 4 + /* store the floating-point arguments in an extra array */ + unsigned int fanum; /* number of fargs[] words that are occupied so far */ + unsigned int farg_mask; /* bitmask of those entries in fargs[] which have a float value */ + unsigned int darg_mask; /* bitmask of those entries in dargs[] which have a double value */ + float fargs[__AV_FARG_NUM]; + double dargs[__AV_FARG_NUM]; +#endif +#if defined(__riscv32__) || defined(__riscv64__) +#define __AV_FARG_NUM 8 + /* store the floating-point arguments in an extra array */ + unsigned int fanum; /* number of fargs[] words that are occupied so far */ + unsigned int farg_mask; /* bitmask of those entries in fargs[] which have a float value */ + unsigned int darg_mask; /* bitmask of those entries in dargs[] which have a double value */ + float fargs[__AV_FARG_NUM]; + double dargs[__AV_FARG_NUM]; +#endif +} __av_alist; diff --git a/avcall/avcall-alpha-linux.s b/avcall/avcall-alpha-linux.s new file mode 100644 index 0000000..63913e8 --- /dev/null +++ b/avcall/avcall-alpha-linux.s @@ -0,0 +1,191 @@ + .set noreorder + .set volatile + .set noat + .set nomacro + .text + .align 2 + .align 4 + .globl avcall_call + .ent avcall_call +avcall_call: + .frame $15,32,$26,0 + .mask 0x4008200,-32 + ldah $29,0($27) !gpdisp!1 + lda $29,0($29) !gpdisp!1 +$avcall_call..ng: + lda $30,-32($30) + ldq $1,40($16) + ldq $3,48($16) + stq $9,8($30) + mov $16,$9 + stq $15,16($30) + mov $30,$15 + subq $1,$3,$1 + stq $26,0($30) + .prologue 1 + srl $1,3,$1 + lda $30,-2064($30) + addl $31,$1,$7 + cmple $7,6,$2 + bne $2,$L2 + mov $30,$5 + lda $6,6($31) + lda $4,48($3) + .align 4 +$L4: + lda $6,1($6) + ldq $1,0($4) + cmpeq $7,$6,$2 + lda $4,8($4) + stq $1,0($5) + lda $5,8($5) + beq $2,$L4 +$L2: + .set macro + ldq $16,0($3) + ldt $f16,0($3) + .set nomacro + lda $1,8($3) + .set macro + ldq $17,0($1) + ldt $f17,0($1) + .set nomacro + lda $2,16($3) + .set macro + ldq $18,0($2) + ldt $f18,0($2) + .set nomacro + lda $1,24($3) + .set macro + ldq $19,0($1) + ldt $f19,0($1) + .set nomacro + lda $2,32($3) + .set macro + ldq $20,0($2) + ldt $f20,0($2) + .set nomacro + lda $3,40($3) + .set macro + ldq $21,0($3) + ldt $f21,0($3) + .set nomacro + ldq $27,8($9) + jsr $26,($27),0 + ldah $29,0($26) !gpdisp!2 + lda $29,0($29) !gpdisp!2 + mov $1,$4 + ldl $2,24($9) + zapnot $2,15,$3 + cmpeq $3,1,$1 + bne $1,$L5 + beq $2,$L55 + cmpeq $3,2,$1 + bne $1,$L53 + cmpeq $3,3,$1 + bne $1,$L53 + cmpeq $3,4,$1 + bne $1,$L53 + cmpeq $3,5,$1 + bne $1,$L54 + cmpeq $3,6,$1 + bne $1,$L54 + cmpeq $3,7,$1 + bne $1,$L56 + cmpeq $3,8,$1 + bne $1,$L56 + cmpeq $3,9,$1 + bne $1,$L55 + cmpeq $3,10,$1 + bne $1,$L55 + cmpeq $3,11,$1 + bne $1,$L55 + cmpeq $3,12,$1 + bne $1,$L55 + cmpeq $3,13,$1 + bne $1,$L58 + cmpeq $3,14,$1 + bne $1,$L59 + cmpeq $3,15,$1 + bne $1,$L55 + cmpeq $3,16,$1 + beq $1,$L5 + .align 3 #realign + lda $1,512($31) + ldl $2,0($9) + and $1,$2,$1 + beq $1,$L5 + ldq $2,32($9) + cmpeq $2,1,$1 + bne $1,$L53 + cmpeq $2,2,$1 + bne $1,$L54 + cmpeq $2,4,$1 + bne $1,$L56 + cmpeq $2,8,$1 + bne $1,$L55 + cmpeq $2,16,$1 + beq $1,$L5 + ldq $1,16($9) + stq $4,8($1) + stq $0,0($1) +$L5: + mov $15,$30 + mov $31,$0 + ldq $26,0($30) + ldq $9,8($30) + ldq $15,16($30) + lda $30,32($30) + ret $31,($26),1 + bis $31,$31,$31 +$L55: + mov $15,$30 + ldq $1,16($9) + stq $0,0($1) + mov $31,$0 + ldq $26,0($30) + ldq $9,8($30) + ldq $15,16($30) + lda $30,32($30) + ret $31,($26),1 + bis $31,$31,$31 +$L53: + mov $15,$30 + ldq $1,16($9) + insbl $0,$1,$3 + ldq_u $2,0($1) + mov $31,$0 + mskbl $2,$1,$2 + bis $3,$2,$3 + stq_u $3,0($1) + ldq $26,0($30) + ldq $9,8($30) + ldq $15,16($30) + lda $30,32($30) + ret $31,($26),1 +$L54: + ldq $1,16($9) + inswl $0,$1,$3 + ldq_u $2,0($1) + mskwl $2,$1,$2 + bis $3,$2,$3 + stq_u $3,0($1) + br $31,$L5 +$L56: + ldq $1,16($9) + bis $31,$31,$31 + stl $0,0($1) + br $31,$L5 +$L58: + cvtts $f0,$f0 + ldq $1,16($9) + sts $f0,0($1) + br $31,$L5 +$L59: + ldq $1,16($9) + bis $31,$31,$31 + stt $f0,0($1) + br $31,$L5 + .end avcall_call + .ident "GCC: (GNU) 4.0.2" + .section .note.GNU-stack,"",@progbits diff --git a/avcall/avcall-alpha-macro.S b/avcall/avcall-alpha-macro.S new file mode 100644 index 0000000..e3a897d --- /dev/null +++ b/avcall/avcall-alpha-macro.S @@ -0,0 +1,192 @@ + .set noreorder + .set volatile + .set noat + .set nomacro + .text + .align 2 + .align 4 + .globl avcall_call + .ent avcall_call +avcall_call: + .frame $15,32,$26,0 + .mask 0x4008200,-32 + ldah $29,0($27) !gpdisp!1 + lda $29,0($29) !gpdisp!1 +$avcall_call..ng: + lda $30,-32($30) + ldq $1,40($16) + ldq $3,48($16) + stq $9,8($30) + mov $16,$9 + stq $15,16($30) + mov $30,$15 + subq $1,$3,$1 + stq $26,0($30) + .prologue 1 + srl $1,3,$1 + lda $30,-2064($30) + addl $31,$1,$7 + cmple $7,6,$2 + bne $2,$L2 + mov $30,$5 + lda $6,6($31) + lda $4,48($3) + .align 4 +$L4: + lda $6,1($6) + ldq $1,0($4) + cmpeq $7,$6,$2 + lda $4,8($4) + stq $1,0($5) + lda $5,8($5) + beq $2,$L4 +$L2: + .set macro + ldq $16,0($3) + ldt $f16,0($3) + .set nomacro + lda $1,8($3) + .set macro + ldq $17,0($1) + ldt $f17,0($1) + .set nomacro + lda $2,16($3) + .set macro + ldq $18,0($2) + ldt $f18,0($2) + .set nomacro + lda $1,24($3) + .set macro + ldq $19,0($1) + ldt $f19,0($1) + .set nomacro + lda $2,32($3) + .set macro + ldq $20,0($2) + ldt $f20,0($2) + .set nomacro + lda $3,40($3) + .set macro + ldq $21,0($3) + ldt $f21,0($3) + .set nomacro + ldq $27,8($9) + jsr $26,($27),0 + ldah $29,0($26) !gpdisp!2 + lda $29,0($29) !gpdisp!2 + mov $1,$4 + ldl $2,24($9) + zapnot $2,15,$3 + cmpeq $3,1,$1 + bne $1,$L5 + beq $2,$L55 + cmpeq $3,2,$1 + bne $1,$L53 + cmpeq $3,3,$1 + bne $1,$L53 + cmpeq $3,4,$1 + bne $1,$L53 + cmpeq $3,5,$1 + bne $1,$L54 + cmpeq $3,6,$1 + bne $1,$L54 + cmpeq $3,7,$1 + bne $1,$L56 + cmpeq $3,8,$1 + bne $1,$L56 + cmpeq $3,9,$1 + bne $1,$L55 + cmpeq $3,10,$1 + bne $1,$L55 + cmpeq $3,11,$1 + bne $1,$L55 + cmpeq $3,12,$1 + bne $1,$L55 + cmpeq $3,13,$1 + bne $1,$L58 + cmpeq $3,14,$1 + bne $1,$L59 + cmpeq $3,15,$1 + bne $1,$L55 + cmpeq $3,16,$1 + beq $1,$L5 + .align 3 #realign + lda $1,512($31) + ldl $2,0($9) + and $1,$2,$1 + beq $1,$L5 + ldq $2,32($9) + cmpeq $2,1,$1 + bne $1,$L53 + cmpeq $2,2,$1 + bne $1,$L54 + cmpeq $2,4,$1 + bne $1,$L56 + cmpeq $2,8,$1 + bne $1,$L55 + cmpeq $2,16,$1 + beq $1,$L5 + ldq $1,16($9) + stq $4,8($1) + stq $0,0($1) +$L5: + mov $15,$30 + mov $31,$0 + ldq $26,0($30) + ldq $9,8($30) + ldq $15,16($30) + lda $30,32($30) + ret $31,($26),1 + bis $31,$31,$31 +$L55: + mov $15,$30 + ldq $1,16($9) + stq $0,0($1) + mov $31,$0 + ldq $26,0($30) + ldq $9,8($30) + ldq $15,16($30) + lda $30,32($30) + ret $31,($26),1 + bis $31,$31,$31 +$L53: + mov $15,$30 + ldq $1,16($9) + insbl $0,$1,$3 + ldq_u $2,0($1) + mov $31,$0 + mskbl $2,$1,$2 + bis $3,$2,$3 + stq_u $3,0($1) + ldq $26,0($30) + ldq $9,8($30) + ldq $15,16($30) + lda $30,32($30) + ret $31,($26),1 +$L54: + ldq $1,16($9) + inswl $0,$1,$3 + ldq_u $2,0($1) + mskwl $2,$1,$2 + bis $3,$2,$3 + stq_u $3,0($1) + br $31,$L5 +$L56: + ldq $1,16($9) + bis $31,$31,$31 + stl $0,0($1) + br $31,$L5 +$L58: + cvtts $f0,$f0 + ldq $1,16($9) + sts $f0,0($1) + br $31,$L5 +$L59: + ldq $1,16($9) + bis $31,$31,$31 + stt $f0,0($1) + br $31,$L5 + .end avcall_call +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/avcall/avcall-alpha.c b/avcall/avcall-alpha.c new file mode 100644 index 0000000..6f05888 --- /dev/null +++ b/avcall/avcall-alpha.c @@ -0,0 +1,168 @@ +/** + Copyright 1993 Bill Triggs + Copyright 1995-2017 Bruno Haible + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . +**/ +/*---------------------------------------------------------------------- + !!! THIS ROUTINE MUST BE COMPILED gcc -O !!! + + Foreign function interface for a DEC Alpha with gcc. + + This calls a C function with an argument list built up using macros + defined in avcall.h. + + Alpha Argument Passing Conventions + + The first 6 arguments are passed in registers $16-$21 for integers, + in registers $f16-$f21 for floats. From then on, everything is passed + on the stack. + + Everything on the stack is word-aligned. + + Integers and pointers are returned in $0, floats and doubles in $f0. + To return a structure, the called function copies the value to space + pointed to by its first argument, and all other arguments are shifted + down by one. + + Compile this routine with gcc for the __asm__ extensions and with + optimisation on (-O or -O2 or -g -O) so that argframe is set to the + correct offset. + ----------------------------------------------------------------------*/ +#include "avcall-internal.h" + +#define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) + +int +avcall_call(av_alist* list) +{ + register __avword* sp __asm__("$30"); /* C names for registers */ + register long arg1 __asm__("$16"); + register long arg2 __asm__("$17"); + register long arg3 __asm__("$18"); + register long arg4 __asm__("$19"); + register long arg5 __asm__("$20"); + register long arg6 __asm__("$21"); + register double fret __asm__("$f0"); + register double farg1 __asm__("$f16"); + register double farg2 __asm__("$f17"); + register double farg3 __asm__("$f18"); + register double farg4 __asm__("$f19"); + register double farg5 __asm__("$f20"); + register double farg6 __asm__("$f21"); +/*register __avword iret __asm__("$0"); */ + register __avword iret2 __asm__("$1"); + + __av_alist* l = &AV_LIST_INNER(list); + + __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ + int arglen = ((unsigned long) l->aptr - (unsigned long) l->args) / sizeof (__avword); + __avword i, i2; + + for (i = 6; i < arglen; i++) /* push excess function args */ + argframe[i-6] = l->args[i]; + + /* call function with 1st 6 args */ + /* we pass the args both in the integer registers and the floating point + registers, so we don't have to store the argument types. */ + __asm__ __volatile__ ("ldq $16,%0" : : "m" (l->args[0])); /* arg1 = l->args[0]; */ + __asm__ __volatile__ ("ldt $f16,%0" : : "m" (l->args[0])); /* farg1 = *(double*) &l->args[0]; */ + __asm__ __volatile__ ("ldq $17,%0" : : "m" (l->args[1])); /* arg2 = l->args[1]; */ + __asm__ __volatile__ ("ldt $f17,%0" : : "m" (l->args[1])); /* farg2 = *(double*) &l->args[1]; */ + __asm__ __volatile__ ("ldq $18,%0" : : "m" (l->args[2])); /* arg3 = l->args[2]; */ + __asm__ __volatile__ ("ldt $f18,%0" : : "m" (l->args[2])); /* farg3 = *(double*) &l->args[2]; */ + __asm__ __volatile__ ("ldq $19,%0" : : "m" (l->args[3])); /* arg4 = l->args[3]; */ + __asm__ __volatile__ ("ldt $f19,%0" : : "m" (l->args[3])); /* farg4 = *(double*) &l->args[3]; */ + __asm__ __volatile__ ("ldq $20,%0" : : "m" (l->args[4])); /* arg5 = l->args[4]; */ + __asm__ __volatile__ ("ldt $f20,%0" : : "m" (l->args[4])); /* farg5 = *(double*) &l->args[4]; */ + __asm__ __volatile__ ("ldq $21,%0" : : "m" (l->args[5])); /* arg6 = l->args[5]; */ + __asm__ __volatile__ ("ldt $f21,%0" : : "m" (l->args[5])); /* farg6 = *(double*) &l->args[5]; */ + i = (*l->func)(); + i2 = iret2; + /* this is apparently not needed, but better safe than sorry... */ + __asm__ __volatile__ ("" : : : + /* clobber */ "$16", "$17", "$18", "$19", "$20", "$21", + "$f16","$f17","$f18","$f19","$f20","$f21"); + + /* save return value */ + if (l->rtype == __AVvoid) { + } else + if (l->rtype == __AVword) { + RETURN(__avword, i); + } else + if (l->rtype == __AVchar) { + RETURN(char, i); + } else + if (l->rtype == __AVschar) { + RETURN(signed char, i); + } else + if (l->rtype == __AVuchar) { + RETURN(unsigned char, i); + } else + if (l->rtype == __AVshort) { + RETURN(short, i); + } else + if (l->rtype == __AVushort) { + RETURN(unsigned short, i); + } else + if (l->rtype == __AVint) { + RETURN(int, i); + } else + if (l->rtype == __AVuint) { + RETURN(unsigned int, i); + } else + if (l->rtype == __AVlong) { + RETURN(long, i); + } else + if (l->rtype == __AVulong) { + RETURN(unsigned long, i); + } else + if (l->rtype == __AVlonglong) { + RETURN(long long, i); + } else + if (l->rtype == __AVulonglong) { + RETURN(unsigned long long, i); + } else + if (l->rtype == __AVfloat) { + RETURN(float, fret); + } else + if (l->rtype == __AVdouble) { + RETURN(double, fret); + } else + if (l->rtype == __AVvoidp) { + RETURN(void*, i); + } else + if (l->rtype == __AVstruct) { + if (l->flags & __AV_REGISTER_STRUCT_RETURN) { + if (l->rsize == sizeof(char)) { + RETURN(char, i); + } else + if (l->rsize == sizeof(short)) { + RETURN(short, i); + } else + if (l->rsize == sizeof(int)) { + RETURN(int, i); + } else + if (l->rsize == sizeof(long)) { + RETURN(long, i); + } else + if (l->rsize == 2*sizeof(__avword)) { + void* raddr = l->raddr; + ((__avword*)raddr)[0] = i; + ((__avword*)raddr)[1] = i2; + } + } + } + return 0; +} diff --git a/avcall/avcall-arm-macro.S b/avcall/avcall-arm-macro.S new file mode 100644 index 0000000..da8fc5f --- /dev/null +++ b/avcall/avcall-arm-macro.S @@ -0,0 +1,112 @@ +#include "asm-arm.h" + .text + .align 2 + .global C(avcall_call) + DECLARE_FUNCTION(avcall_call) +FUNBEGIN(avcall_call) + // args = 0, pretend = 0, frame = 1024 + // frame_needed = 1, uses_anonymous_args = 0 + mov ip, sp + stmfd sp!, {r4, r5, fp, ip, lr, pc} + sub fp, ip, $4 + sub sp, sp, $1024 + add r2, r0, $20 + ldmia r2, {r2, r3} + sub r3, r2, r3 + mov ip, $4 + mov r1, r3, asr $2 + cmp ip, r1 + mov r5, r0 + bic sp, sp, $7 + ldr r4, [r0, $24] + bge L(47) + add r2, sp, $16 +L(6): + ldr r3, [r4, ip, asl $2] + add ip, ip, $1 + cmp ip, r1 + str r3, [r2, $-16] + add r2, r2, $4 + blt L(6) +L(47): + ldmia r4, {r0, r1, r2, r3} // phole ldm + mov lr, pc + ldr pc, [r5, $4] + ldr r2, [r5, $12] + cmp r2, $1 + mov ip, r0 + beq L(8) + cmp r2, $0 + beq L(57) + cmp r2, $2 + beq L(50) + cmp r2, $3 + beq L(50) + cmp r2, $4 + beq L(50) + cmp r2, $5 + beq L(49) + cmp r2, $6 + beq L(49) + cmp r2, $7 + beq L(57) + cmp r2, $8 + beq L(57) + cmp r2, $9 + beq L(57) + cmp r2, $10 + beq L(57) + sub r3, r2, $11 + cmp r3, $1 + bls L(56) + cmp r2, $13 + ldreq r3, [r5, $8] + streq r0, [r3, $0] // float + beq L(8) + cmp r2, $14 + ldreq r3, [r5, $8] + stmeqia r3, {r0-r1} // double + beq L(8) + cmp r2, $15 + beq L(57) + cmp r2, $16 + beq L(58) +L(8): + mov r0, $0 + ldmea fp, {r4, r5, fp, sp, pc} +L(58): + ldr r3, [r5, $0] + tst r3, $512 + beq L(8) + ldr r3, [r5, $16] + cmp r3, $1 + beq L(50) + cmp r3, $2 + beq L(49) + cmp r3, $4 + bhi L(43) +L(57): + ldr r3, [r5, $8] +L(48): + str ip, [r3, $0] + b L(8) +L(43): + cmp r3, $8 + bne L(8) +L(56): + ldr r3, [r5, $8] + str r1, [r3, $4] + b L(48) +L(49): + ldr r3, [r5, $8] + strh ip, [r3, $0] // movhi + b L(8) +L(50): + ldr r3, [r5, $8] + strb ip, [r3, $0] + b L(8) +L(fe1): + FUNEND(avcall_call) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",%progbits +#endif diff --git a/avcall/avcall-arm.c b/avcall/avcall-arm.c new file mode 100644 index 0000000..787d95b --- /dev/null +++ b/avcall/avcall-arm.c @@ -0,0 +1,148 @@ +/** + Copyright 1993 Bill Triggs + Copyright 1995-2017 Bruno Haible + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . +**/ +/*---------------------------------------------------------------------- + !!! THIS ROUTINE MUST BE COMPILED gcc -O !!! + + Foreign function interface for an Acorn Risc Maschine with gcc. + + This calls a C function with an argument list built up using macros + defined in avcall.h. + + ARM Argument Passing Conventions: + + All arguments, except the first 4 words which are passed in the registers + r0, r1, r2, r3, are passed on the stack with word alignment. Doubles take + two words. + In ABIs where 'double' and 'long long' have alignment 4, they are passed + entirely in registers or entirely on the stack (i.e. not the first half + in r3 and the second half on the stack). + In ABIs where 'double' and 'long long' have alignment 8, they are passed + with 2-word alignment in this word sequence (e.g. a 'double' after an + 'int' in r0 gets passed in (r2,r3), not in (r1,r2)). This implies that + they are passed entirely in registers or entirely on the stack. + Structure args are passed as true structures embedded in the argument stack. + A structure arg may be allocated partially in registers (r0,...,r3) and + partially on the stack, if no previous args already consume stack space. + To return a structure, the called function copies the return value to the + address supplied in register r0. + + Compile this routine with gcc -O (or -O2 or -g -O) to get the right + register variables, or use the assembler version. + ----------------------------------------------------------------------*/ +#include "avcall-internal.h" + +#define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) + +int +avcall_call(av_alist* list) +{ + register unsigned long sp __asm__("r13"); /* C names for registers */ +/*register __avword iret __asm__("r0"); */ + register __avword iret2 __asm__("r1"); + register float fret __asm__("r0"); /* r0 */ + register double dret __asm__("r0"); /* r0,r1 */ + + __av_alist* l = &AV_LIST_INNER(list); + + __avword space[__AV_ALIST_WORDS]; /* space for callee's stack frame */ + + /* Enforce 8-bytes-alignment of the stack pointer. + We need to do it this way because the old GCC that we use to compile + this file does not support the option '-mabi=aapcs'. */ + sp &= -8; + + __avword* argframe = (__avword*) sp; /* stack offset for argument list */ + int arglen = l->aptr - l->args; + __avword i; + + for (i = 4; i < arglen; i++) /* push function args onto stack */ + argframe[i-4] = l->args[i]; + + /* call function, pass 4 args in registers */ + i = (*l->func)(l->args[0], l->args[1], l->args[2], l->args[3]); + + /* save return value */ + if (l->rtype == __AVvoid) { + } else + if (l->rtype == __AVword) { + RETURN(__avword, i); + } else + if (l->rtype == __AVchar) { + RETURN(char, i); + } else + if (l->rtype == __AVschar) { + RETURN(signed char, i); + } else + if (l->rtype == __AVuchar) { + RETURN(unsigned char, i); + } else + if (l->rtype == __AVshort) { + RETURN(short, i); + } else + if (l->rtype == __AVushort) { + RETURN(unsigned short, i); + } else + if (l->rtype == __AVint) { + RETURN(int, i); + } else + if (l->rtype == __AVuint) { + RETURN(unsigned int, i); + } else + if (l->rtype == __AVlong) { + RETURN(long, i); + } else + if (l->rtype == __AVulong) { + RETURN(unsigned long, i); + } else + if (l->rtype == __AVlonglong || l->rtype == __AVulonglong) { + void* raddr = l->raddr; + ((__avword*)raddr)[0] = i; + ((__avword*)raddr)[1] = iret2; + } else + if (l->rtype == __AVfloat) { + RETURN(float, fret); + } else + if (l->rtype == __AVdouble) { + RETURN(double, dret); + } else + if (l->rtype == __AVvoidp) { + RETURN(void*, i); + } else + if (l->rtype == __AVstruct) { + /* PCS for ARM (http://infocenter.arm.com/help/topic/com.arm.doc.ihi0042b/IHI0042B_aapcs.pdf): + page 19: "A Composite Type not larger than 4 bytes is returned in r0." + sizeof({char a[3];}) = 3, so we have to use <= sizeof below */ + if (l->flags & __AV_REGISTER_STRUCT_RETURN) { + if (l->rsize == sizeof(char)) { /* can't occur */ + RETURN(char, i); + } else + if (l->rsize == sizeof(short)) { /* can't occur */ + RETURN(short, i); + } else + if (l->rsize <= sizeof(int)) { + RETURN(int, i); + } else + if (l->rsize == 2*sizeof(__avword)) { + void* raddr = l->raddr; + ((__avword*)raddr)[0] = i; + ((__avword*)raddr)[1] = iret2; + } + } + } + return 0; +} diff --git a/avcall/avcall-arm64-macro.S b/avcall/avcall-arm64-macro.S new file mode 100644 index 0000000..c59d0f4 --- /dev/null +++ b/avcall/avcall-arm64-macro.S @@ -0,0 +1,329 @@ +#include "asm-arm.h" + .cpu generic+fp+simd + .text + .align 2 + .p2align 3,,7 + .global C(avcall_call) + .type avcall_call, %function +FUNBEGIN(avcall_call) + stp x29, x30, [sp, -48]! + add x29, sp, 0 + ldp x11, x12, [x0, 40] + stp x19, x20, [sp, 16] + sub x11, x11, x12 + ldr w15, [x0, 64] + asr x10, x11, 3 + ldr w14, [x0, 136] + cmp w10, wzr + mov x19, x0 + str d8, [sp, 32] + sub sp, sp, $2064 + ble L(6) + mov x13, sp + mov x9, 0 + mov w11, w10 + .p2align 2 +L(87): + ldr x10, [x12, x9, lsl 3] + str x10, [x13, x9, lsl 3] + add x9, x9, 1 + cmp w11, w9 + bgt L(87) +L(6): + cbz w15, L(7) + cmp w15, 1 + ldr x0, [x19, 72] + bls L(7) + cmp w15, 2 + ldr x1, [x19, 80] + beq L(7) + cmp w15, 3 + ldr x2, [x19, 88] + beq L(7) + cmp w15, 4 + ldr x3, [x19, 96] + beq L(7) + cmp w15, 5 + ldr x4, [x19, 104] + beq L(7) + cmp w15, 6 + ldr x5, [x19, 112] + beq L(7) + cmp w15, 7 + ldr x6, [x19, 120] + beq L(7) + ldr x7, [x19, 128] + .p2align 2 +L(7): + cbz w14, L(9) + ldr w9, [x19, 144] + tbz x9, 0, L(10) + ldr d0, [x19, 184] +L(11): + cmp w14, 1 + bls L(9) + tbnz x9, 1, L(121) + ldr w10, [x19, 140] + tbz x10, 1, L(14) + ldr s1, [x19, 152] +L(14): + cmp w14, 2 + beq L(9) + tbz x9, 2, L(15) + ldr d2, [x19, 200] +L(16): + cmp w14, 3 + beq L(9) + tbnz x9, 3, L(122) + ldr w10, [x19, 140] + tbz x10, 3, L(18) + ldr s3, [x19, 160] +L(18): + cmp w14, 4 + beq L(9) + tbz x9, 4, L(19) + ldr d4, [x19, 216] +L(20): + cmp w14, 5 + beq L(9) + tbz x9, 5, L(21) + ldr d5, [x19, 224] +L(22): + cmp w14, 6 + beq L(9) + tbz x9, 6, L(23) + ldr d6, [x19, 232] +L(24): + cmp w14, 7 + beq L(9) + tbz x9, 7, L(25) + ldr d7, [x19, 240] + .p2align 2 +L(9): + ldr w9, [x19, 24] + cmp w9, 13 + beq L(123) + cmp w9, 14 + beq L(124) + ldr x9, [x19, 8] + blr x9 + mov x16, x0 + ldr w9, [x19, 24] + cmp w9, 1 + beq L(27) + cbz w9, L(119) + cmp w9, 2 + beq L(115) + cmp w9, 3 + beq L(115) + cmp w9, 4 + beq L(115) + cmp w9, 5 + beq L(116) + cmp w9, 6 + beq L(116) + cmp w9, 7 + beq L(117) + cmp w9, 8 + beq L(117) + and w12, w9, -3 + cmp w12, 9 + beq L(119) + sub w12, w9, $10 + tst w12, -3 + beq L(119) + cmp w9, 15 + beq L(119) + cmp w9, 16 + bne L(27) + ldr w9, [x19] + tbz x9, 9, L(27) + ldr x12, [x19, 32] + sub x9, x12, $1 + cmp x9, 15 + bhi L(27) + ldr x13, [x19, 16] + cmp x12, 8 + and x9, x13, 7 + and x13, x13, -8 + add x12, x12, x9 + bhi L(40) + cmp x12, 8 + lsl w11, w12, 3 + bhi L(41) + lsl w9, w9, 3 + mov x12, 2 + mov x14, 1 + sub w11, w11, $1 + lsl x14, x14, x9 + lsl x11, x12, x11 + lsl x9, x0, x9 + sub x10, x11, x14 + ldr d17, [x13] + fmov d16, x10 + fmov d8, x9 + bif v8.8b, v17.8b, v16.8b + str d8, [x13] +L(27): + add sp, x29, 0 + ldr d8, [sp, 32] + mov w0, 0 + ldp x19, x20, [sp, 16] + ldp x29, x30, [sp], 48 + ret + .p2align 3 +L(10): + ldr w10, [x19, 140] + tbz x10, 0, L(11) + ldr s0, [x19, 148] + b L(11) + .p2align 3 +L(119): + ldr x9, [x19, 16] + mov w0, 0 + str x16, [x9] + ldr d8, [x29, 32] + add sp, x29, 0 + ldp x19, x20, [sp, 16] + ldp x29, x30, [sp], 48 + ret + .p2align 3 +L(121): + ldr d1, [x19, 192] + b L(14) + .p2align 3 +L(115): + ldr x9, [x19, 16] + mov w0, 0 + strb w16, [x9] + ldr d8, [x29, 32] + add sp, x29, 0 + ldp x19, x20, [sp, 16] + ldp x29, x30, [sp], 48 + ret + .p2align 3 +L(124): + ldp x9, x20, [x19, 8] + blr x9 + str d0, [x20] + mov w0, 0 + ldr d8, [x29, 32] + add sp, x29, 0 + ldp x19, x20, [sp, 16] + ldp x29, x30, [sp], 48 + ret +L(123): + ldp x9, x20, [x19, 8] + blr x9 + str s0, [x20] + b L(27) +L(15): + ldr w10, [x19, 140] + tbz x10, 2, L(16) + ldr s2, [x19, 156] + b L(16) +L(116): + ldr x9, [x19, 16] + strh w16, [x9] + b L(27) +L(122): + ldr d3, [x19, 208] + b L(18) +L(117): + ldr x9, [x19, 16] + str w16, [x9] + b L(27) +L(19): + ldr w10, [x19, 140] + tbz x10, 4, L(20) + ldr s4, [x19, 164] + b L(20) +L(21): + ldr w10, [x19, 140] + tbz x10, 5, L(22) + ldr s5, [x19, 168] + b L(22) +L(23): + ldr w10, [x19, 140] + tbz x10, 6, L(24) + ldr s6, [x19, 172] + b L(24) +L(25): + ldr w9, [x19, 140] + tbz x9, 7, L(9) + ldr s7, [x19, 176] + b L(9) +L(41): + lsl w14, w9, 3 + neg w9, w9, lsl 3 + movi d16, -1 + add w10, w9, 64 + dup v8.8b, w14 + lsl x9, x0, x14 + ldp d17, d18, [x13] + mov x12, 2 + sub w11, w11, $65 + lsl x11, x12, x11 + ushl d16, d16, d8 + fmov d8, x9 + asr x9, x0, x10 + sub x10, x11, $1 + bsl v16.8b, v8.8b, v17.8b + fmov d8, x10 + fmov d17, x9 + str d16, [x13] + bif v17.8b, v18.8b, v8.8b + str d17, [x13, 8] + b L(27) +L(40): + lsl w14, w9, 3 + cmp x12, 16 + movi d16, -1 + lsl x15, x0, x14 + dup v8.8b, w14 + fmov d17, x15 + ushl d16, d16, d8 + ldr d8, [x13] + bsl v16.8b, v17.8b, v8.8b + str d16, [x13] + bls L(125) + lsl w12, w12, 3 + mov x15, 2 + neg w9, w9, lsl 3 + sub w12, w12, $129 + add w9, w9, 64 + lsl x12, x15, x12 + asr x11, x1, x9 + asr x10, x0, x9 + sub x9, x12, $1 + ldr d17, [x13, 16] + fmov d16, x11 + lsl x14, x1, x14 + fmov d8, x9 + orr x10, x10, x14 + bif v16.8b, v17.8b, v8.8b + fmov x11, d16 + stp x10, x11, [x13, 8] + b L(27) +L(125): + neg w9, w9, lsl 2 + lsl w12, w12, 3 + add w9, w9, 32 + mov x15, 2 + sub w12, w12, $65 + lsl x11, x1, x14 + lsl x12, x15, x12 + asr x14, x0, x9 + asr x10, x14, x9 + sub x9, x12, $1 + ldr d17, [x13, 8] + fmov d8, x9 + orr x9, x10, x11 + fmov d16, x9 + bif v16.8b, v17.8b, v8.8b + str d16, [x13, 8] + b L(27) + FUNEND(avcall_call) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",%progbits +#endif diff --git a/avcall/avcall-arm64.c b/avcall/avcall-arm64.c new file mode 100644 index 0000000..d1385d1 --- /dev/null +++ b/avcall/avcall-arm64.c @@ -0,0 +1,362 @@ +/** + Copyright 1993 Bill Triggs + Copyright 1995-2017 Bruno Haible + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . +**/ +/*---------------------------------------------------------------------- + !!! THIS ROUTINE MUST BE COMPILED gcc -O -fno-omit-frame-pointer !!! + + Foreign function interface for a Linux arm64 (a.k.a. aarch64) with gcc. + + This calls a C function with an argument list built up using macros + defined in avcall.h. + + ARM64 Argument Passing Conventions are documented in + http://infocenter.arm.com/help/topic/com.arm.doc.ihi0055b/IHI0055B_aapcs64.pdf. + + Up to 8 words are passed in integer registers (x0, ..., x7). + Up to 8 float/double arguments are passed in floating point / SIMD + registers (v0/q0/d0/s0, ..., v7/q7/d7/s7). + Arguments passed on the stack have word alignment. + Structure args larger than 16 bytes are passed as pointers to caller-made + local copies. (§ 5.4.2 rule B.3) + Structure args <= 16 bytes are passed as up to two words in registers + (§ 5.4.2 rule C.10) or otherwise on the stack (§ 5.4.2 rule C.13). + + Integers are returned in x0, x1. + Float/double values are returned in d0/s0, d1/s1. + Structures <= 16 bytes are returned in registers. To return a structure + larger than 16 bytes, the called function copies the value to space + pointed to by x8. + ----------------------------------------------------------------------*/ +#include "avcall-internal.h" + +#define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) + +register __avword* sret __asm__("x8"); /* structure return pointer */ + +register __avword iarg1 __asm__("x0"); +register __avword iarg2 __asm__("x1"); +register __avword iarg3 __asm__("x2"); +register __avword iarg4 __asm__("x3"); +register __avword iarg5 __asm__("x4"); +register __avword iarg6 __asm__("x5"); +register __avword iarg7 __asm__("x6"); +register __avword iarg8 __asm__("x7"); + +register float farg1 __asm__("s0"); +register float farg2 __asm__("s1"); +register float farg3 __asm__("s2"); +register float farg4 __asm__("s3"); +register float farg5 __asm__("s4"); +register float farg6 __asm__("s5"); +register float farg7 __asm__("s6"); +register float farg8 __asm__("s7"); + +register double darg1 __asm__("d0"); +register double darg2 __asm__("d1"); +register double darg3 __asm__("d2"); +register double darg4 __asm__("d3"); +register double darg5 __asm__("d4"); +register double darg6 __asm__("d5"); +register double darg7 __asm__("d6"); +register double darg8 __asm__("d7"); + +int +avcall_call(av_alist* list) +{ + register __avword* sp __asm__("sp"); /* C names for registers */ + register __avword iretreg __asm__("x0"); + register __avword iret2reg __asm__("x1"); + register double dret __asm__("d0"); + + __av_alist* l = &AV_LIST_INNER(list); + + __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ + int arglen = l->aptr - l->args; + unsigned int ianum = l->ianum; + unsigned int fanum = l->fanum; + __avword iret, iret2; + + { + int i; + for (i = 0; i < arglen; i++) /* push function args onto stack */ + argframe[i] = l->args[i]; + } + + /* Put up to 8 integer args into registers. */ + if (ianum >= 1) { + iarg1 = l->iargs[0]; + if (ianum >= 2) { + iarg2 = l->iargs[1]; + if (ianum >= 3) { + iarg3 = l->iargs[2]; + if (ianum >= 4) { + iarg4 = l->iargs[3]; + if (ianum >= 5) { + iarg5 = l->iargs[4]; + if (ianum >= 6) { + iarg6 = l->iargs[5]; + if (ianum >= 7) { + iarg7 = l->iargs[6]; + if (ianum >= 8) { + iarg8 = l->iargs[7]; + } + } + } + } + } + } + } + } + + /* Put upto 8 floating-point args into registers. */ + if (fanum >= 1) { + if (l->darg_mask & (1 << 0)) darg1 = l->dargs[0]; + else if (l->farg_mask & (1 << 0)) farg1 = l->fargs[0]; + if (fanum >= 2) { + if (l->darg_mask & (1 << 1)) darg2 = l->dargs[1]; + else if (l->farg_mask & (1 << 1)) farg2 = l->fargs[1]; + if (fanum >= 3) { + if (l->darg_mask & (1 << 2)) darg3 = l->dargs[2]; + else if (l->farg_mask & (1 << 2)) farg3 = l->fargs[2]; + if (fanum >= 4) { + if (l->darg_mask & (1 << 3)) darg4 = l->dargs[3]; + else if (l->farg_mask & (1 << 3)) farg4 = l->fargs[3]; + if (fanum >= 5) { + if (l->darg_mask & (1 << 4)) darg5 = l->dargs[4]; + else if (l->farg_mask & (1 << 4)) farg5 = l->fargs[4]; + if (fanum >= 6) { + if (l->darg_mask & (1 << 5)) darg6 = l->dargs[5]; + else if (l->farg_mask & (1 << 5)) farg6 = l->fargs[5]; + if (fanum >= 7) { + if (l->darg_mask & (1 << 6)) darg7 = l->dargs[6]; + else if (l->farg_mask & (1 << 6)) farg7 = l->fargs[6]; + if (fanum >= 8) { + if (l->darg_mask & (1 << 7)) darg8 = l->dargs[7]; + else if (l->farg_mask & (1 << 7)) farg8 = l->fargs[7]; + } + } + } + } + } + } + } + } + + /* Call function. */ + if (l->rtype == __AVfloat) { + *(float*)l->raddr = (*(float(*)())l->func)(); + } else + if (l->rtype == __AVdouble) { + *(double*)l->raddr = (*(double(*)())l->func)(); + } else { + iret = (*l->func)(); + iret2 = iret2reg; + + /* save return value */ + if (l->rtype == __AVvoid) { + } else + if (l->rtype == __AVword) { + RETURN(__avword, iret); + } else + if (l->rtype == __AVchar) { + RETURN(char, iret); + } else + if (l->rtype == __AVschar) { + RETURN(signed char, iret); + } else + if (l->rtype == __AVuchar) { + RETURN(unsigned char, iret); + } else + if (l->rtype == __AVshort) { + RETURN(short, iret); + } else + if (l->rtype == __AVushort) { + RETURN(unsigned short, iret); + } else + if (l->rtype == __AVint) { + RETURN(int, iret); + } else + if (l->rtype == __AVuint) { + RETURN(unsigned int, iret); + } else + if (l->rtype == __AVlong || l->rtype == __AVlonglong) { + RETURN(long, iret); + } else + if (l->rtype == __AVulong || l->rtype == __AVulonglong) { + RETURN(unsigned long, iret); + } else + /* see above + if (l->rtype == __AVfloat) { + } else + if (l->rtype == __AVdouble) { + } else + */ + if (l->rtype == __AVvoidp) { + RETURN(void*, iret); + } else + if (l->rtype == __AVstruct) { + if (l->flags & __AV_REGISTER_STRUCT_RETURN) { + /* Return structs of size <= 16 in registers. */ + if (l->rsize > 0 && l->rsize <= 16) { + void* raddr = l->raddr; + #if 0 /* Unoptimized */ + if (l->rsize == 1) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + } else + if (l->rsize == 2) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + } else + if (l->rsize == 3) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + } else + if (l->rsize == 4) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + } else + if (l->rsize == 5) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); + } else + if (l->rsize == 6) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); + } else + if (l->rsize == 7) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[6] = (unsigned char)(iret>>48); + } else + if (l->rsize >= 8 && l->rsize <= 16) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[6] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[7] = (unsigned char)(iret>>56); + if (l->rsize == 8) { + } else + if (l->rsize == 9) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + } else + if (l->rsize == 10) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + } else + if (l->rsize == 11) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + } else + if (l->rsize == 12) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + } else + if (l->rsize == 13) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); + } else + if (l->rsize == 14) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); + } else + if (l->rsize == 15) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>48); + } else + if (l->rsize == 16) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+7] = (unsigned char)(iret2>>56); + } + } + #else /* Optimized: fewer conditional jumps, fewer memory accesses */ + uintptr_t count = l->rsize; /* > 0, ≤ 2*sizeof(__avword) */ + __avword* wordaddr = (__avword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avword)-1)); + uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avword)-1); /* ≥ 0, < sizeof(__avword) */ + uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__avword) */ + if (count <= sizeof(__avword)) { + /* Use iret. */ + if (end_offset <= sizeof(__avword)) { + /* 0 < end_offset ≤ sizeof(__avword) */ + __avword mask0 = ((__avword)2 << (end_offset*8-1)) - ((__avword)1 << (start_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; + } else { + /* sizeof(__avword) < end_offset < 2*sizeof(__avword), start_offset > 0 */ + __avword mask0 = - ((__avword)1 << (start_offset*8)); + __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; + wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; + wordaddr[1] ^= (wordaddr[1] ^ (iret >> (sizeof(__avword)*8-start_offset*8))) & mask1; + } + } else { + /* Use iret, iret2. */ + __avword mask0 = - ((__avword)1 << (start_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; + if (end_offset <= 2*sizeof(__avword)) { + /* sizeof(__avword) < end_offset ≤ 2*sizeof(__avword) */ + __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; + wordaddr[1] ^= (wordaddr[1] ^ ((iret >> (sizeof(__avword)*4-start_offset*4) >> (sizeof(__avword)*4-start_offset*4)) | (iret2 << (start_offset*8)))) & mask1; + } else { + /* 2*sizeof(__avword) < end_offset < 3*sizeof(__avword), start_offset > 0 */ + __avword mask2 = ((__avword)2 << (end_offset*8-2*sizeof(__avword)*8-1)) - 1; + wordaddr[1] = (iret >> (sizeof(__avword)*8-start_offset*8)) | (iret2 << (start_offset*8)); + wordaddr[2] ^= (wordaddr[2] ^ (iret2 >> (sizeof(__avword)*8-start_offset*8))) & mask2; + } + } + #endif + } + } + } + } + return 0; +} diff --git a/avcall/avcall-armhf-macro.S b/avcall/avcall-armhf-macro.S new file mode 100644 index 0000000..142839f --- /dev/null +++ b/avcall/avcall-armhf-macro.S @@ -0,0 +1,346 @@ +#include "asm-arm.h" + .arch armv6 + .eabi_attribute 28, 1 + .eabi_attribute 20, 1 + .eabi_attribute 21, 1 + .eabi_attribute 23, 3 + .eabi_attribute 24, 1 + .eabi_attribute 25, 1 + .eabi_attribute 26, 1 + .eabi_attribute 30, 2 + .eabi_attribute 34, 1 + .eabi_attribute 18, 4 + .text + .align 2 + .global C(avcall_call) + .syntax unified + .arm + .fpu vfpv3-d16 + .type avcall_call, %function +FUNBEGIN(avcall_call) + // args = 0, pretend = 0, frame = 0 + // frame_needed = 1, uses_anonymous_args = 0 + push {r4, r5, fp, lr} + mov r4, r0 + ldr r0, [r0, $20] + ldr ip, [r4, $24] + sub r3, sp, $1024 + add fp, sp, $12 + sub sp, r3, $8 + sub r3, r0, ip + cmp r3, $19 + movgt r2, sp + subgt r2, r2, $4 + addgt r3, ip, $16 + ble L(6) +L(5): + ldr r1, [r3], $4 + cmp r0, r3 + str r1, [r2, $4]! + bne L(5) +L(6): + ldr r3, [r4, $48] + tst r3, $1 + beq L(4) + .syntax divided +// 87 "avcall-armhf.c" 1 + vldr.32 s0,[r4, $56] +// 0 "" 2 + .arm + .syntax unified +L(4): + tst r3, $2 + beq L(7) + .syntax divided +// 89 "avcall-armhf.c" 1 + vldr.32 s1,[r4, $60] +// 0 "" 2 + .arm + .syntax unified +L(7): + tst r3, $4 + beq L(8) + .syntax divided +// 91 "avcall-armhf.c" 1 + vldr.32 s2,[r4, $64] +// 0 "" 2 + .arm + .syntax unified +L(8): + tst r3, $8 + beq L(9) + .syntax divided +// 93 "avcall-armhf.c" 1 + vldr.32 s3,[r4, $68] +// 0 "" 2 + .arm + .syntax unified +L(9): + tst r3, $16 + beq L(10) + .syntax divided +// 95 "avcall-armhf.c" 1 + vldr.32 s4,[r4, $72] +// 0 "" 2 + .arm + .syntax unified +L(10): + tst r3, $32 + beq L(11) + .syntax divided +// 97 "avcall-armhf.c" 1 + vldr.32 s5,[r4, $76] +// 0 "" 2 + .arm + .syntax unified +L(11): + tst r3, $64 + beq L(12) + .syntax divided +// 99 "avcall-armhf.c" 1 + vldr.32 s6,[r4, $80] +// 0 "" 2 + .arm + .syntax unified +L(12): + tst r3, $128 + beq L(13) + .syntax divided +// 101 "avcall-armhf.c" 1 + vldr.32 s7,[r4, $84] +// 0 "" 2 + .arm + .syntax unified +L(13): + tst r3, $256 + beq L(14) + .syntax divided +// 103 "avcall-armhf.c" 1 + vldr.32 s8,[r4, $88] +// 0 "" 2 + .arm + .syntax unified +L(14): + tst r3, $512 + beq L(15) + .syntax divided +// 105 "avcall-armhf.c" 1 + vldr.32 s9,[r4, $92] +// 0 "" 2 + .arm + .syntax unified +L(15): + tst r3, $1024 + beq L(16) + .syntax divided +// 107 "avcall-armhf.c" 1 + vldr.32 s10,[r4, $96] +// 0 "" 2 + .arm + .syntax unified +L(16): + tst r3, $2048 + beq L(17) + .syntax divided +// 109 "avcall-armhf.c" 1 + vldr.32 s11,[r4, $100] +// 0 "" 2 + .arm + .syntax unified +L(17): + tst r3, $4096 + beq L(18) + .syntax divided +// 111 "avcall-armhf.c" 1 + vldr.32 s12,[r4, $104] +// 0 "" 2 + .arm + .syntax unified +L(18): + tst r3, $8192 + beq L(19) + .syntax divided +// 113 "avcall-armhf.c" 1 + vldr.32 s13,[r4, $108] +// 0 "" 2 + .arm + .syntax unified +L(19): + tst r3, $16384 + beq L(20) + .syntax divided +// 115 "avcall-armhf.c" 1 + vldr.32 s14,[r4, $112] +// 0 "" 2 + .arm + .syntax unified +L(20): + tst r3, $32768 + beq L(21) + .syntax divided +// 117 "avcall-armhf.c" 1 + vldr.32 s15,[r4, $116] +// 0 "" 2 + .arm + .syntax unified +L(21): + ldr r3, [r4, $52] + tst r3, $1 + beq L(22) + .syntax divided +// 121 "avcall-armhf.c" 1 + vldr.64 d0,[r4, $120] +// 0 "" 2 + .arm + .syntax unified +L(22): + tst r3, $2 + beq L(23) + .syntax divided +// 123 "avcall-armhf.c" 1 + vldr.64 d1,[r4, $128] +// 0 "" 2 + .arm + .syntax unified +L(23): + tst r3, $4 + beq L(24) + .syntax divided +// 125 "avcall-armhf.c" 1 + vldr.64 d2,[r4, $136] +// 0 "" 2 + .arm + .syntax unified +L(24): + tst r3, $8 + beq L(25) + .syntax divided +// 127 "avcall-armhf.c" 1 + vldr.64 d3,[r4, $144] +// 0 "" 2 + .arm + .syntax unified +L(25): + tst r3, $16 + beq L(26) + .syntax divided +// 129 "avcall-armhf.c" 1 + vldr.64 d4,[r4, $152] +// 0 "" 2 + .arm + .syntax unified +L(26): + tst r3, $32 + beq L(27) + .syntax divided +// 131 "avcall-armhf.c" 1 + vldr.64 d5,[r4, $160] +// 0 "" 2 + .arm + .syntax unified +L(27): + tst r3, $64 + beq L(28) + .syntax divided +// 133 "avcall-armhf.c" 1 + vldr.64 d6,[r4, $168] +// 0 "" 2 + .arm + .syntax unified +L(28): + tst r3, $128 + beq L(29) + .syntax divided +// 135 "avcall-armhf.c" 1 + vldr.64 d7,[r4, $176] +// 0 "" 2 + .arm + .syntax unified +L(29): + ldm ip, {r0, r1, r2, r3} + ldr r5, [r4, $4] + blx r5 + ldrb r3, [r4, $12] // zero_extendqisi2 + cmp r3, $1 + beq L(30) + cmp r3, $0 + beq L(130) + cmp r3, $2 + beq L(128) + cmp r3, $3 + beq L(128) + cmp r3, $4 + beq L(128) + cmp r3, $5 + beq L(131) + cmp r3, $6 + beq L(131) + cmp r3, $7 + beq L(130) + cmp r3, $8 + beq L(130) + cmp r3, $9 + beq L(130) + cmp r3, $10 + beq L(130) + sub r2, r3, $11 + cmp r2, $1 + bls L(132) + cmp r3, $13 + beq L(134) + cmp r3, $14 + beq L(135) + cmp r3, $15 + beq L(130) + cmp r3, $16 + bne L(30) + ldr r3, [r4] + tst r3, $512 + beq L(30) + ldr r3, [r4, $16] + cmp r3, $1 + beq L(128) + cmp r3, $2 + beq L(131) + cmp r3, $4 + bls L(130) + cmp r3, $8 + bne L(30) +L(132): + ldr r3, [r4, $8] + stm r3, {r0, r1} +L(30): + mov r0, $0 + sub sp, fp, $12 + // sp needed + pop {r4, r5, fp, pc} +L(130): + ldr r3, [r4, $8] + str r0, [r3] + mov r0, $0 + sub sp, fp, $12 + // sp needed + pop {r4, r5, fp, pc} +L(128): + ldr r3, [r4, $8] + strb r0, [r3] + mov r0, $0 + sub sp, fp, $12 + // sp needed + pop {r4, r5, fp, pc} +L(131): + ldr r3, [r4, $8] + strh r0, [r3] // movhi + b L(30) +L(134): + ldr r3, [r4, $8] + vstr.32 s0, [r3] + b L(30) +L(135): + ldr r3, [r4, $8] + vstr.64 d0, [r3] + b L(30) + FUNEND(avcall_call) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",%progbits +#endif diff --git a/avcall/avcall-armhf.c b/avcall/avcall-armhf.c new file mode 100644 index 0000000..68c1e7a --- /dev/null +++ b/avcall/avcall-armhf.c @@ -0,0 +1,209 @@ +/** + Copyright 1993 Bill Triggs + Copyright 1995-2017 Bruno Haible + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . +**/ +/*---------------------------------------------------------------------- + !!! THIS ROUTINE MUST BE COMPILED gcc -O !!! + + Foreign function interface for an ARM with -mfloat-abi=hard with gcc. + + This calls a C function with an argument list built up using macros + defined in avcall.h. + + ARM Argument Passing Conventions: + + All arguments, except the first 4 words which are passed in the registers + r0, r1, r2, r3, are passed on the stack with word alignment. Doubles take + two words. + In ABIs where 'double' and 'long long' have alignment 4, they are passed + entirely in registers or entirely on the stack (i.e. not the first half + in r3 and the second half on the stack). + In ABIs where 'double' and 'long long' have alignment 8, they are passed + with 2-word alignment in this word sequence (e.g. a 'double' after an + 'int' in r0 gets passed in (r2,r3), not in (r1,r2)). This implies that + they are passed entirely in registers or entirely on the stack. + Structure args are passed as true structures embedded in the argument stack. + A structure arg may be allocated partially in registers (r0,...,r3) and + partially on the stack, if no previous args already consume stack space. + To return a structure, the called function copies the return value to the + address supplied in register r0. + + In hard-float configurations (armhf): Up to 16 floats get passed in the + single-float registers s0, s1, ..., s15. A float gets returned in s0. + Up to 8 doubles gets passed in the double-float registers d0, ..., d7 + (= {s0,s1}, {s2,s3}, ..., {s14,s15}). A double gets returned in d0. + + The 4 integer args registers and the 16 float args slots are allocated + independently: 1) After more than 16 float args, integer args can still + be allocated in registers. 2) After more than 4 integer args, float args + can still be allocated in registers. + + Compile this routine with gcc -O (or -O2 or -g -O) to get the right + register variables, or use the assembler version. + ----------------------------------------------------------------------*/ +#include "avcall-internal.h" + +#define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) + +int +avcall_call(av_alist* list) +{ + register unsigned long sp __asm__("r13"); /* C names for registers */ +/*register __avword iret __asm__("r0"); */ + register __avword iret2 __asm__("r1"); + register float fret __asm__("s0"); + register double dret __asm__("d0"); + + __av_alist* l = &AV_LIST_INNER(list); + + __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ + + /* Enforce 8-bytes-alignment of the stack pointer. + We need to do it this way because the old GCC that we use to compile + this file does not support the option '-mabi=aapcs'. */ + sp &= -8; + + int arglen = l->aptr - l->args; + __avword i; + + for (i = 4; i < arglen; i++) /* push function args onto stack */ + argframe[i-4] = l->args[i]; + + /* load float values into floating-point registers */ + if ((l->farg_mask >> 0) & 1) + __asm__ __volatile__ ("vldr.32 s0,%0" : : "m" (l->fargs[0])); + if ((l->farg_mask >> 1) & 1) + __asm__ __volatile__ ("vldr.32 s1,%0" : : "m" (l->fargs[1])); + if ((l->farg_mask >> 2) & 1) + __asm__ __volatile__ ("vldr.32 s2,%0" : : "m" (l->fargs[2])); + if ((l->farg_mask >> 3) & 1) + __asm__ __volatile__ ("vldr.32 s3,%0" : : "m" (l->fargs[3])); + if ((l->farg_mask >> 4) & 1) + __asm__ __volatile__ ("vldr.32 s4,%0" : : "m" (l->fargs[4])); + if ((l->farg_mask >> 5) & 1) + __asm__ __volatile__ ("vldr.32 s5,%0" : : "m" (l->fargs[5])); + if ((l->farg_mask >> 6) & 1) + __asm__ __volatile__ ("vldr.32 s6,%0" : : "m" (l->fargs[6])); + if ((l->farg_mask >> 7) & 1) + __asm__ __volatile__ ("vldr.32 s7,%0" : : "m" (l->fargs[7])); + if ((l->farg_mask >> 8) & 1) + __asm__ __volatile__ ("vldr.32 s8,%0" : : "m" (l->fargs[8])); + if ((l->farg_mask >> 9) & 1) + __asm__ __volatile__ ("vldr.32 s9,%0" : : "m" (l->fargs[9])); + if ((l->farg_mask >> 10) & 1) + __asm__ __volatile__ ("vldr.32 s10,%0" : : "m" (l->fargs[10])); + if ((l->farg_mask >> 11) & 1) + __asm__ __volatile__ ("vldr.32 s11,%0" : : "m" (l->fargs[11])); + if ((l->farg_mask >> 12) & 1) + __asm__ __volatile__ ("vldr.32 s12,%0" : : "m" (l->fargs[12])); + if ((l->farg_mask >> 13) & 1) + __asm__ __volatile__ ("vldr.32 s13,%0" : : "m" (l->fargs[13])); + if ((l->farg_mask >> 14) & 1) + __asm__ __volatile__ ("vldr.32 s14,%0" : : "m" (l->fargs[14])); + if ((l->farg_mask >> 15) & 1) + __asm__ __volatile__ ("vldr.32 s15,%0" : : "m" (l->fargs[15])); + + /* load double values into floating-point registers */ + if ((l->darg_mask >> 0) & 1) + __asm__ __volatile__ ("vldr.64 d0,%0" : : "m" (l->dargs[0])); + if ((l->darg_mask >> 1) & 1) + __asm__ __volatile__ ("vldr.64 d1,%0" : : "m" (l->dargs[1])); + if ((l->darg_mask >> 2) & 1) + __asm__ __volatile__ ("vldr.64 d2,%0" : : "m" (l->dargs[2])); + if ((l->darg_mask >> 3) & 1) + __asm__ __volatile__ ("vldr.64 d3,%0" : : "m" (l->dargs[3])); + if ((l->darg_mask >> 4) & 1) + __asm__ __volatile__ ("vldr.64 d4,%0" : : "m" (l->dargs[4])); + if ((l->darg_mask >> 5) & 1) + __asm__ __volatile__ ("vldr.64 d5,%0" : : "m" (l->dargs[5])); + if ((l->darg_mask >> 6) & 1) + __asm__ __volatile__ ("vldr.64 d6,%0" : : "m" (l->dargs[6])); + if ((l->darg_mask >> 7) & 1) + __asm__ __volatile__ ("vldr.64 d7,%0" : : "m" (l->dargs[7])); + + /* call function, pass 4 integer args in registers */ + i = (*l->func)(l->args[0], l->args[1], l->args[2], l->args[3]); + + /* save return value */ + if (l->rtype == __AVvoid) { + } else + if (l->rtype == __AVword) { + RETURN(__avword, i); + } else + if (l->rtype == __AVchar) { + RETURN(char, i); + } else + if (l->rtype == __AVschar) { + RETURN(signed char, i); + } else + if (l->rtype == __AVuchar) { + RETURN(unsigned char, i); + } else + if (l->rtype == __AVshort) { + RETURN(short, i); + } else + if (l->rtype == __AVushort) { + RETURN(unsigned short, i); + } else + if (l->rtype == __AVint) { + RETURN(int, i); + } else + if (l->rtype == __AVuint) { + RETURN(unsigned int, i); + } else + if (l->rtype == __AVlong) { + RETURN(long, i); + } else + if (l->rtype == __AVulong) { + RETURN(unsigned long, i); + } else + if (l->rtype == __AVlonglong || l->rtype == __AVulonglong) { + void* raddr = l->raddr; + ((__avword*)raddr)[0] = i; + ((__avword*)raddr)[1] = iret2; + } else + if (l->rtype == __AVfloat) { + RETURN(float, fret); + } else + if (l->rtype == __AVdouble) { + RETURN(double, dret); + } else + if (l->rtype == __AVvoidp) { + RETURN(void*, i); + } else + if (l->rtype == __AVstruct) { + /* PCS for ARM (http://infocenter.arm.com/help/topic/com.arm.doc.ihi0042b/IHI0042B_aapcs.pdf): + page 19: "A Composite Type not larger than 4 bytes is returned in r0." + sizeof({char a[3];}) = 3, so we have to use <= sizeof below */ + if (l->flags & __AV_REGISTER_STRUCT_RETURN) { + if (l->rsize == sizeof(char)) { /* can't occur */ + RETURN(char, i); + } else + if (l->rsize == sizeof(short)) { /* can't occur */ + RETURN(short, i); + } else + if (l->rsize <= sizeof(int)) { + RETURN(int, i); + } else + if (l->rsize == 2*sizeof(__avword)) { + void* raddr = l->raddr; + ((__avword*)raddr)[0] = i; + ((__avword*)raddr)[1] = iret2; + } + } + } + return 0; +} diff --git a/avcall/avcall-compat.c b/avcall/avcall-compat.c new file mode 100644 index 0000000..a1bdf92 --- /dev/null +++ b/avcall/avcall-compat.c @@ -0,0 +1,24 @@ +/* + * Copyright 2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "config.h" + +#include + +/* A dummy symbol, so that GNU clisp's autoconfiguration recognizes this + library. */ +void __builtin_avcall (void) { abort(); } diff --git a/avcall/avcall-hppa-linux.s b/avcall/avcall-hppa-linux.s new file mode 100644 index 0000000..340466e --- /dev/null +++ b/avcall/avcall-hppa-linux.s @@ -0,0 +1,258 @@ + .LEVEL 1.1 + .text + .align 4 +.globl avcall_call + .type avcall_call,@function +avcall_call: + .PROC + .CALLINFO FRAME=128,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=5 + .ENTRY + copy %r3,%r1 + stw %r2,-20(%r30) + copy %r30,%r3 + stwm %r1,128(%r30) + stw %r5,8(%r3) + ldo -48(%r30),%r24 + ldo 15(%r24),%r21 + copy %r19,%r5 + stw %r4,12(%r3) + copy %r21,%r24 + depi 0,31,4,%r24 + copy %r26,%r4 + stw %r19,-32(%r30) + ldo 1104(%r24),%r24 + ldw 28(%r26),%r22 + ldw 20(%r26),%r20 + sub %r22,%r20,%r20 + extrs %r20,29,30,%r25 + sub %r0,%r25,%r23 + comib,<= -4,%r23,.L59 + ldo 1088(%r30),%r30 + copy %r22,%r29 +.L6: + zdep %r23,29,30,%r20 + ldo 1(%r23),%r23 + addl %r20,%r29,%r22 + addl %r20,%r24,%r20 + ldw 0(%r22),%r21 + comib,> -4,%r23,.L6 + stw %r21,0(%r20) +.L58: + ldw 12(%r4),%r21 + ldi 16,%r20 + comb,=,n %r20,%r21,.L64 +.L7: + comib,>=,n 0,%r25,.L8 + ldw 48(%r4),%r21 + extrs,>= %r21,31,1,%r0 + fldws -4(%r29),%fr4L +.L9: + comib,>=,n 1,%r25,.L8 + extrs,>= %r21,30,1,%r0 + fldws -8(%r29),%fr5L +.L11: + ldw 52(%r4),%r22 + ldi 2,%r20 + and %r22,%r20,%r20 + comiclr,= 0,%r20,%r0 + fldds -8(%r29),%fr5 +.L12: + comib,>=,n 2,%r25,.L8 + extrs,>= %r21,29,1,%r0 + fldws -12(%r29),%fr6L +.L14: + comib,>=,n 3,%r25,.L8 + extrs,>= %r21,28,1,%r0 + fldws -16(%r29),%fr7L +.L16: + ldi 8,%r20 + and %r22,%r20,%r20 + comiclr,= 0,%r20,%r0 + fldds -16(%r29),%fr7 +.L8: + ldw -16(%r29),%r23 + ldw -4(%r29),%r26 + ldw -8(%r29),%r25 + ldw -12(%r29),%r24 + ldw 4(%r4),%r22 + .CALL ARGW0=GR + bl $$dyncall,%r31 + copy %r31,%r2 + ldw 12(%r4),%r21 + copy %r5,%r19 + comib,= 1,%r21,.L19 + copy %r28,%r2 + comib,=,n 0,%r21,.L63 + comib,=,n 2,%r21,.L62 + comib,=,n 3,%r21,.L62 + comib,=,n 4,%r21,.L62 + comib,=,n 5,%r21,.L61 + comib,=,n 6,%r21,.L61 + comib,=,n 7,%r21,.L63 + comib,=,n 8,%r21,.L63 + comib,=,n 9,%r21,.L63 + comib,=,n 10,%r21,.L63 + ldo -11(%r21),%r20 + comib,<<,n 1,%r20,.L40 + ldw 8(%r4),%r20 + stw %r29,4(%r20) +.L60: + stw %r2,0(%r20) +.L19: + ldw -20(%r3),%r2 +.L67: + ldi 0,%r28 + ldw 8(%r3),%r5 + ldw 12(%r3),%r4 + ldo 64(%r3),%r30 + bv %r0(%r2) + ldwm -64(%r30),%r3 +.L40: + comib,=,n 13,%r21,.L65 + comib,=,n 14,%r21,.L66 + comib,=,n 15,%r21,.L63 + ldi 16,%r20 + comb,<>,n %r20,%r21,.L67 + ldw -20(%r3),%r2 + ldw 0(%r4),%r20 + bb,>=,n %r20,30,.L67 + ldw -20(%r3),%r2 + ldw 16(%r4),%r22 + ldo -1(%r22),%r20 + comib,<<,n 7,%r20,.L67 + ldw -20(%r3),%r2 + ldw 8(%r4),%r20 + extru %r20,31,2,%r26 + copy %r20,%r4 + depi 0,31,2,%r4 + comib,<< 4,%r22,.L51 + addl %r26,%r22,%r21 + comib,<< 4,%r21,.L52 + zdep %r21,28,29,%r20 + ldo -1(%r20),%r25 + zdep %r26,28,29,%r21 + mtsar %r25 + ldw 0(%r4),%r23 + zvdep %r28,32,%r20 + mtsar %r21 + zvdepi 2,32,%r21 + xor %r23,%r20,%r20 + mtsar %r25 + zvdepi 1,32,%r22 + sub %r21,%r22,%r21 + and %r20,%r21,%r20 + xor %r23,%r20,%r23 + b .L19 + stw %r23,0(%r4) +.L52: + subi 63,%r20,%r31 + zdep %r26,28,29,%r26 + ldo -33(%r20),%r20 + ldw 0(%r4),%r25 + mtsar %r20 + ldw 4(%r4),%r24 + zvdep %r28,32,%r23 + mtsar %r26 + zvdepi 2,32,%r22 + xor %r24,%r23,%r23 + mtsar %r31 + ldo -1(%r22),%r22 + vextrs %r28,32,%r21 + mtsar %r20 + zvdepi 1,32,%r20 + xor %r25,%r21,%r21 + sub %r0,%r20,%r20 + and %r21,%r22,%r21 + and %r23,%r20,%r23 + xor %r25,%r21,%r25 + xor %r24,%r23,%r24 + stw %r25,0(%r4) + b .L19 + stw %r24,4(%r4) +.L51: + zdep %r26,28,29,%r26 + mtsar %r26 + zvdepi 2,32,%r20 + comib,<< 8,%r21,.L55 + ldo -1(%r20),%r25 + zdep %r21,29,30,%r20 + subi 47,%r20,%r24 + zdep %r21,28,29,%r21 + mtsar %r24 + ldo -33(%r21),%r26 + vextrs %r29,32,%r22 + vextrs %r22,32,%r22 + mtsar %r26 + ldw 0(%r4),%r24 + ldw 4(%r4),%r23 + zvdep %r28,32,%r20 + or %r20,%r22,%r20 + zvdep %r29,32,%r29 + zvdepi 1,32,%r21 + xor %r24,%r20,%r20 + xor %r23,%r29,%r29 + sub %r0,%r21,%r21 + and %r20,%r25,%r20 + and %r29,%r21,%r29 + xor %r24,%r20,%r24 + xor %r23,%r29,%r23 + stw %r24,0(%r4) + b .L19 + stw %r23,4(%r4) +.L55: + zdep %r21,28,29,%r20 + ldo -65(%r20),%r31 + subi 95,%r20,%r26 + ldw 8(%r4),%r23 + mtsar %r31 + ldw 0(%r4),%r24 + zvdep %r29,32,%r22 + zvdepi 1,32,%r21 + xor %r23,%r22,%r22 + mtsar %r26 + sub %r0,%r21,%r21 + vextrs %r28,32,%r20 + and %r22,%r21,%r22 + mtsar %r31 + xor %r24,%r20,%r20 + zvdep %r28,32,%r21 + and %r20,%r25,%r20 + mtsar %r26 + xor %r24,%r20,%r24 + vextrs %r29,32,%r29 + xor %r23,%r22,%r23 + or %r21,%r29,%r21 + stw %r23,8(%r4) + stw %r24,0(%r4) + b .L19 + stw %r21,4(%r4) +.L63: + b .L60 + ldw 8(%r4),%r20 +.L66: + ldw 8(%r4),%r20 + b .L19 + fstds %fr4,0(%r20) +.L65: + ldw 8(%r4),%r20 + b .L19 + fstws %fr4L,0(%r20) +.L61: + ldw 8(%r4),%r20 + b .L19 + sth %r2,0(%r20) +.L62: + ldw 8(%r4),%r20 + b .L19 + stb %r2,0(%r20) +.L64: + b .L7 + ldw 8(%r4),%r28 +.L59: + b .L58 + ldw 28(%r26),%r29 + .EXIT + .PROCEND +.Lfe1: + .size avcall_call,.Lfe1-avcall_call + .ident "GCC: (GNU) 3.1" diff --git a/avcall/avcall-hppa-macro.S b/avcall/avcall-hppa-macro.S new file mode 100644 index 0000000..94c7b38 --- /dev/null +++ b/avcall/avcall-hppa-macro.S @@ -0,0 +1,263 @@ +#include "asm-hppa.h" + .LEVEL 1.1 + IMPORT_MILLICODE($$dyncall) + TEXT1() + TEXT2() + .align 4 +GLOBL(avcall_call) + DECLARE_FUNCTION(avcall_call) +DEF(avcall_call) + .PROC + .CALLINFO FRAME=128,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=5 + .ENTRY + copy %r3,%r1 + stw %r2,-20(%r30) + copy %r30,%r3 + stwm %r1,128(%r30) + stw %r5,8(%r3) + ldo -48(%r30),%r24 + ldo 15(%r24),%r21 + copy %r19,%r5 + stw %r4,12(%r3) + copy %r21,%r24 + depi 0,31,4,%r24 + copy %r26,%r4 + stw %r19,-32(%r30) + ldo 1104(%r24),%r24 + ldw 28(%r26),%r22 + ldw 20(%r26),%r20 + sub %r22,%r20,%r20 + extrs %r20,29,30,%r25 + sub %r0,%r25,%r23 + comib,<= -4,%r23,L(59) + ldo 1088(%r30),%r30 + copy %r22,%r29 +DEF(L(6)) + zdep %r23,29,30,%r20 + ldo 1(%r23),%r23 + addl %r20,%r29,%r22 + addl %r20,%r24,%r20 + ldw 0(%r22),%r21 + comib,> -4,%r23,L(6) + stw %r21,0(%r20) +DEF(L(58)) + ldw 12(%r4),%r21 + ldi 16,%r20 + comb,=,n %r20,%r21,L(64) +DEF(L(7)) + comib,>=,n 0,%r25,L(8) + ldw 48(%r4),%r21 + extrs,>= %r21,31,1,%r0 + fldws -4(%r29),%fr4L +DEF(L(9)) + comib,>=,n 1,%r25,L(8) + extrs,>= %r21,30,1,%r0 + fldws -8(%r29),%fr5L +DEF(L(11)) + ldw 52(%r4),%r22 + ldi 2,%r20 + and %r22,%r20,%r20 + comiclr,= 0,%r20,%r0 + fldds -8(%r29),%fr5 +DEF(L(12)) + comib,>=,n 2,%r25,L(8) + extrs,>= %r21,29,1,%r0 + fldws -12(%r29),%fr6L +DEF(L(14)) + comib,>=,n 3,%r25,L(8) + extrs,>= %r21,28,1,%r0 + fldws -16(%r29),%fr7L +DEF(L(16)) + ldi 8,%r20 + and %r22,%r20,%r20 + comiclr,= 0,%r20,%r0 + fldds -16(%r29),%fr7 +DEF(L(8)) + ldw -16(%r29),%r23 + ldw -4(%r29),%r26 + ldw -8(%r29),%r25 + ldw -12(%r29),%r24 + ldw 4(%r4),%r22 + .CALL ARGW0=GR + bl $$dyncall,%r31 + copy %r31,%r2 + ldw 12(%r4),%r21 + copy %r5,%r19 + comib,= 1,%r21,L(19) + copy %r28,%r2 + comib,=,n 0,%r21,L(63) + comib,=,n 2,%r21,L(62) + comib,=,n 3,%r21,L(62) + comib,=,n 4,%r21,L(62) + comib,=,n 5,%r21,L(61) + comib,=,n 6,%r21,L(61) + comib,=,n 7,%r21,L(63) + comib,=,n 8,%r21,L(63) + comib,=,n 9,%r21,L(63) + comib,=,n 10,%r21,L(63) + ldo -11(%r21),%r20 + comib,<<,n 1,%r20,L(40) + ldw 8(%r4),%r20 + stw %r29,4(%r20) +DEF(L(60)) + stw %r2,0(%r20) +DEF(L(19)) + ldw -20(%r3),%r2 +DEF(L(67)) + ldi 0,%r28 + ldw 8(%r3),%r5 + ldw 12(%r3),%r4 + ldo 64(%r3),%r30 + bv %r0(%r2) + ldwm -64(%r30),%r3 +DEF(L(40)) + comib,=,n 13,%r21,L(65) + comib,=,n 14,%r21,L(66) + comib,=,n 15,%r21,L(63) + ldi 16,%r20 + comb,<>,n %r20,%r21,L(67) + ldw -20(%r3),%r2 + ldw 0(%r4),%r20 + bb,>=,n %r20,30,L(67) + ldw -20(%r3),%r2 + ldw 16(%r4),%r22 + ldo -1(%r22),%r20 + comib,<<,n 7,%r20,L(67) + ldw -20(%r3),%r2 + ldw 8(%r4),%r20 + extru %r20,31,2,%r26 + copy %r20,%r4 + depi 0,31,2,%r4 + comib,<< 4,%r22,L(51) + addl %r26,%r22,%r21 + comib,<< 4,%r21,L(52) + zdep %r21,28,29,%r20 + ldo -1(%r20),%r25 + zdep %r26,28,29,%r21 + mtsar %r25 + ldw 0(%r4),%r23 + zvdep %r28,32,%r20 + mtsar %r21 + zvdepi 2,32,%r21 + xor %r23,%r20,%r20 + mtsar %r25 + zvdepi 1,32,%r22 + sub %r21,%r22,%r21 + and %r20,%r21,%r20 + xor %r23,%r20,%r23 + b L(19) + stw %r23,0(%r4) +DEF(L(52)) + subi 63,%r20,%r31 + zdep %r26,28,29,%r26 + ldo -33(%r20),%r20 + ldw 0(%r4),%r25 + mtsar %r20 + ldw 4(%r4),%r24 + zvdep %r28,32,%r23 + mtsar %r26 + zvdepi 2,32,%r22 + xor %r24,%r23,%r23 + mtsar %r31 + ldo -1(%r22),%r22 + vextrs %r28,32,%r21 + mtsar %r20 + zvdepi 1,32,%r20 + xor %r25,%r21,%r21 + sub %r0,%r20,%r20 + and %r21,%r22,%r21 + and %r23,%r20,%r23 + xor %r25,%r21,%r25 + xor %r24,%r23,%r24 + stw %r25,0(%r4) + b L(19) + stw %r24,4(%r4) +DEF(L(51)) + zdep %r26,28,29,%r26 + mtsar %r26 + zvdepi 2,32,%r20 + comib,<< 8,%r21,L(55) + ldo -1(%r20),%r25 + zdep %r21,29,30,%r20 + subi 47,%r20,%r24 + zdep %r21,28,29,%r21 + mtsar %r24 + ldo -33(%r21),%r26 + vextrs %r29,32,%r22 + vextrs %r22,32,%r22 + mtsar %r26 + ldw 0(%r4),%r24 + ldw 4(%r4),%r23 + zvdep %r28,32,%r20 + or %r20,%r22,%r20 + zvdep %r29,32,%r29 + zvdepi 1,32,%r21 + xor %r24,%r20,%r20 + xor %r23,%r29,%r29 + sub %r0,%r21,%r21 + and %r20,%r25,%r20 + and %r29,%r21,%r29 + xor %r24,%r20,%r24 + xor %r23,%r29,%r23 + stw %r24,0(%r4) + b L(19) + stw %r23,4(%r4) +DEF(L(55)) + zdep %r21,28,29,%r20 + ldo -65(%r20),%r31 + subi 95,%r20,%r26 + ldw 8(%r4),%r23 + mtsar %r31 + ldw 0(%r4),%r24 + zvdep %r29,32,%r22 + zvdepi 1,32,%r21 + xor %r23,%r22,%r22 + mtsar %r26 + sub %r0,%r21,%r21 + vextrs %r28,32,%r20 + and %r22,%r21,%r22 + mtsar %r31 + xor %r24,%r20,%r20 + zvdep %r28,32,%r21 + and %r20,%r25,%r20 + mtsar %r26 + xor %r24,%r20,%r24 + vextrs %r29,32,%r29 + xor %r23,%r22,%r23 + or %r21,%r29,%r21 + stw %r23,8(%r4) + stw %r24,0(%r4) + b L(19) + stw %r21,4(%r4) +DEF(L(63)) + b L(60) + ldw 8(%r4),%r20 +DEF(L(66)) + ldw 8(%r4),%r20 + b L(19) + fstds %fr4,0(%r20) +DEF(L(65)) + ldw 8(%r4),%r20 + b L(19) + fstws %fr4L,0(%r20) +DEF(L(61)) + ldw 8(%r4),%r20 + b L(19) + sth %r2,0(%r20) +DEF(L(62)) + ldw 8(%r4),%r20 + b L(19) + stb %r2,0(%r20) +DEF(L(64)) + b L(7) + ldw 8(%r4),%r28 +DEF(L(59)) + b L(58) + ldw 28(%r26),%r29 + .EXIT + .PROCEND +DEF(L(fe1)) + FUNEND(avcall_call) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/avcall/avcall-hppa.c b/avcall/avcall-hppa.c new file mode 100644 index 0000000..382b992 --- /dev/null +++ b/avcall/avcall-hppa.c @@ -0,0 +1,273 @@ +/** + Copyright 1993 Bill Triggs + Copyright 1995-2019 Bruno Haible + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . +**/ +/*---------------------------------------------------------------------- + !!! THIS ROUTINE MUST BE COMPILED gcc -O !!! + + Foreign function interface for a HP Precision Architecture 1.0 with gcc + + This calls a C function with an argument list built up using macros + defined in avcall.h. + + HPPA Argument Passing Conventions: + + All arguments, except the first 4 words, are passed on the stack + - growing down! - with word alignment. Doubles take two words and force + double alignment. Small structures args are passed as true structures + embedded in the argument stack. They force double alignment and - if they + don't fit entirely in the 4 register words - are passed in memory. + The first 2 words are passed like this: + %r26 = first integer arg, %r25 = second integer arg, or + %r26 = high word of double arg, %r25 = low word of double arg. + Similarly for the next 2 words, passed in %r24 and %r23. + Note that other calling conventions would be in effect if we would call + an explicitly named function! + + Structures larger than 8 bytes are passed as a pointer. In GCC >= 8 + it's a caller-made copy; with GCC < 8 and with HP cc it's the callee's + responsibility to make a copy of the structure, so that side effects + made by the callee are not visible to the caller. + + To return a structure of more than 8 bytes, the called function copies + the return value to the address supplied in register "%r28". Smaller + structures are returned in the registers %r28 (first 4 bytes) and %r29 + (next 4 bytes, if present). + + It is forbidden to modify the stack pointer. + + Compile this routine with gcc -O2 -fomit-frame-pointer to get the right + register variables. + ----------------------------------------------------------------------*/ +#include "avcall-internal.h" + +#define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) + +/* This declaration tells gcc not to modify %r28. */ +register __avword* sret __asm__("%r28"); /* structure return pointer */ + +register float farg1 __asm__("%fr4"); /* fr4L */ +register float farg2 __asm__("%fr5"); /* fr5L */ +register float farg3 __asm__("%fr6"); /* fr6L */ +register float farg4 __asm__("%fr7"); /* fr7L */ +register double darg1 __asm__("%fr5"); +register double darg2 __asm__("%fr7"); + +int +avcall_call(av_alist* list) +{ + register __avword* sp __asm__("%r30"); /* C names for registers */ + register float fret __asm__("%fr4"); + register double dret __asm__("%fr4"); +/*register __avword iret1 __asm__("%r28"); */ + register __avword iret2 __asm__("%r29"); + + __av_alist* l = &AV_LIST_INNER(list); + + __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ + argframe += __AV_ALIST_WORDS + 20; + int arglen = l->args_end - l->aptr; + __avword iret; + + { + int i; + for (i = -arglen; i < -4; i++) /* push function args onto stack */ + argframe[i] = l->args_end[i]; + } + + if (l->rtype == __AVstruct) /* push struct return address */ + sret = l->raddr; + + /* The floats and doubles among the first 4 argument words are passed + * - in both general registers and floating-point registers when the + * function call is a variadic one, which means: + * - for HP cc: the call is done through a function pointer or + * directly to a function declared with a varargs prototype, + * - for GCC: the function's type is a varargs function. + * - in floating-point registers otherwise. + * To cover both cases, put these floating-point values into the general + * registers and the floating-point registers always. + */ + if (arglen >= 1) { + if (l->farg_mask & (1 << 0)) + /*__asm__ __volatile__ ("fldw %0,%%fr4R" : : "m" (*(float*)&l->args_end[-1]));*/ farg1 = *((float*)&l->args_end[-1]); + if (arglen >= 2) { + if (l->farg_mask & (1 << 1)) + /* __asm__ __volatile__ ("fldw %0,%%fr5R" : : "m" (*(float*)&l->args_end[-2])); */ farg2 = *((float*)&l->args_end[-2]); + if (l->darg_mask & (1 << 1)) + darg1 = *((double*)&l->args_end[-2]); + if (arglen >= 3) { + if (l->farg_mask & (1 << 2)) + /* __asm__ __volatile__ ("fldw %0,%%fr6R" : : "m" (*(float*)&l->args_end[-3])); */ farg3 = *((float*)&l->args_end[-3]); + if (arglen >= 4) { + if (l->farg_mask & (1 << 3)) + /* __asm__ __volatile__ ("fldw %0,%%fr7R" : : "m" (*(float*)&l->args_end[-4])); */ farg4 = *((float*)&l->args_end[-4]); + if (l->darg_mask & (1 << 3)) + darg2 = *((double*)&l->args_end[-4]); + } + } + } + } + /* call function, pass first 4 arg words in general registers */ + iret = (*l->func)(l->args_end[-1], l->args_end[-2], + l->args_end[-3], l->args_end[-4]); + + /* save return value */ + if (l->rtype == __AVvoid) { + } else + if (l->rtype == __AVword) { + RETURN(__avword, iret); + } else + if (l->rtype == __AVchar) { + RETURN(char, iret); + } else + if (l->rtype == __AVschar) { + RETURN(signed char, iret); + } else + if (l->rtype == __AVuchar) { + RETURN(unsigned char, iret); + } else + if (l->rtype == __AVshort) { + RETURN(short, iret); + } else + if (l->rtype == __AVushort) { + RETURN(unsigned short, iret); + } else + if (l->rtype == __AVint) { + RETURN(int, iret); + } else + if (l->rtype == __AVuint) { + RETURN(unsigned int, iret); + } else + if (l->rtype == __AVlong) { + RETURN(long, iret); + } else + if (l->rtype == __AVulong) { + RETURN(unsigned long, iret); + } else + if (l->rtype == __AVlonglong || l->rtype == __AVulonglong) { + void* raddr = l->raddr; + ((__avword*)raddr)[0] = iret; + ((__avword*)raddr)[1] = iret2; + } else + if (l->rtype == __AVfloat) { + RETURN(float, fret); + } else + if (l->rtype == __AVdouble) { + RETURN(double, dret); + } else + if (l->rtype == __AVvoidp) { + RETURN(void*, iret); + } else + if (l->rtype == __AVstruct) { + if (l->flags & __AV_SMALL_STRUCT_RETURN) { + /* cc, c89 and gcc >= 2.7 return structs of size <= 8 in registers. */ + if (l->rsize > 0 && l->rsize <= 8) { + /* This is really weird code, unlike all other big-endian platforms. */ + void* raddr = l->raddr; + #if 0 /* Unoptimized */ + if (l->rsize == 1) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + } else + if (l->rsize == 2) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[1] = (unsigned char)(iret); + } else + if (l->rsize == 3) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret); + } else + if (l->rsize == 4) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[3] = (unsigned char)(iret); + } else + if (l->rsize == 5) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[4] = (unsigned char)(iret2); + } else + if (l->rsize == 6) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[1] = (unsigned char)(iret); + ((unsigned char *)raddr)[2] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[3] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[4] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[5] = (unsigned char)(iret2); + } else + if (l->rsize == 7) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret); + ((unsigned char *)raddr)[3] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[4] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[5] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[6] = (unsigned char)(iret2); + } else + if (l->rsize == 8) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[3] = (unsigned char)(iret); + ((unsigned char *)raddr)[4] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[5] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[6] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[7] = (unsigned char)(iret2); + } + #else /* Optimized: fewer conditional jumps, fewer memory accesses */ + uintptr_t count = l->rsize; /* > 0, ≤ 2*sizeof(__avword) */ + __avword* wordaddr = (__avword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avword)-1)); + uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avword)-1); /* ≥ 0, < sizeof(__avword) */ + uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__avword) */ + if (count <= sizeof(__avword)) { + /* Use iret. */ + if (end_offset <= sizeof(__avword)) { + /* 0 < end_offset ≤ sizeof(__avword) */ + __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - ((__avword)1 << (sizeof(__avword)*8-end_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret << (sizeof(__avword)*8-end_offset*8))) & mask0; + } else { + /* sizeof(__avword) < end_offset < 2*sizeof(__avword), start_offset > 0 */ + __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - 1; + __avword mask1 = - ((__avword)1 << (2*sizeof(__avword)*8-end_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret >> (end_offset*8-sizeof(__avword)*8))) & mask0; + wordaddr[1] ^= (wordaddr[1] ^ (iret << (2*sizeof(__avword)*8-end_offset*8))) & mask1; + } + } else { + /* Use iret, iret2. */ + __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - 1; + if (end_offset <= 2*sizeof(__avword)) { + /* sizeof(__avword) < end_offset ≤ 2*sizeof(__avword) */ + __avword mask1 = - ((__avword)1 << (2*sizeof(__avword)*8-end_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ ((iret << (2*sizeof(__avword)*8-end_offset*8)) | (iret2 >> (end_offset*4-sizeof(__avword)*4) >> (end_offset*4-sizeof(__avword)*4)))) & mask0; + wordaddr[1] ^= (wordaddr[1] ^ (iret2 << (2*sizeof(__avword)*8-end_offset*8))) & mask1; + } else { + /* 2*sizeof(__avword) < end_offset < 3*sizeof(__avword), start_offset > 0 */ + __avword mask2 = - ((__avword)1 << (3*sizeof(__avword)*8-end_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret >> (end_offset*8-2*sizeof(__avword)*8))) & mask0; + wordaddr[1] = (iret << (3*sizeof(__avword)*8-end_offset*8)) | (iret2 >> (end_offset*8-2*sizeof(__avword)*8)); + wordaddr[2] ^= (wordaddr[2] ^ (iret2 << (3*sizeof(__avword)*8-end_offset*8))) & mask2; + } + } + #endif + } + } + } + return 0; +} diff --git a/avcall/avcall-hppa64-linux.s b/avcall/avcall-hppa64-linux.s new file mode 100644 index 0000000..9e18dac --- /dev/null +++ b/avcall/avcall-hppa64-linux.s @@ -0,0 +1,532 @@ + .LEVEL 2.0w + .text + .align 8 +.globl avcall_call + .type avcall_call,@function +avcall_call: + .PROC + .CALLINFO FRAME=256,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=9 + .ENTRY + copy %r3,%r1 + std %r2,-16(%r30) + copy %r30,%r3 + std,ma %r1,256(%r30) + ldi 8,%r31 + std %r9,16(%r3) + copy %r27,%r9 + std %r8,24(%r3) + copy %r26,%r8 + std %r7,32(%r3) + ldo -80(%r30),%r7 + std %r6,40(%r3) + std %r5,48(%r3) + std %r4,56(%r3) + ldd 40(%r26),%r29 + ldd 48(%r26),%r5 + sub %r29,%r5,%r29 + extrd,s %r29,29+32-1,32,%r6 + cmpb,<= %r6,%r31,.L115 + ldo 2112(%r30),%r30 +.L6: + depd,z %r31,60,61,%r29 + ldo 1(%r31),%r31 + add,l %r29,%r5,%r2 + extrd,s %r31,63,32,%r31 + ldd 0(%r2),%r4 + add,l %r29,%r7,%r29 + cmpb,> %r6,%r31,.L6 + std %r4,0(%r29) +.L115: + ldw 24(%r8),%r31 + ldi 16,%r29 + cmpb,= %r29,%r31,.L120 + copy %r31,%r4 +.L7: + cmpib,>=,n 0,%r6,.L8 + ldw 68(%r8),%r2 + extrw,u %r2,31,1,%r29 + cmpib,=,n 0,%r29,.L9 + fldd 0(%r5),%fr4 +.L10: + cmpib,>=,n 1,%r6,.L8 + ldi 2,%r31 + and %r2,%r31,%r29 + cmpib,=,n 0,%r29,.L14 + fldd 8(%r5),%fr5 +.L15: + cmpib,>=,n 2,%r6,.L8 + ldi 4,%r31 + and %r2,%r31,%r29 + cmpib,=,n 0,%r29,.L19 + fldd 16(%r5),%fr6 +.L20: + cmpib,>=,n 3,%r6,.L8 + ldi 8,%r31 + and %r2,%r31,%r29 + cmpib,=,n 0,%r29,.L24 + fldd 24(%r5),%fr7 +.L25: + cmpib,>=,n 4,%r6,.L8 + ldi 16,%r31 + and %r2,%r31,%r29 + cmpib,=,n 0,%r29,.L29 + fldd 32(%r5),%fr8 +.L30: + cmpib,>=,n 5,%r6,.L8 + ldi 32,%r31 + and %r2,%r31,%r29 + cmpib,=,n 0,%r29,.L34 + fldd 40(%r5),%fr9 +.L35: + cmpib,>=,n 6,%r6,.L8 + ldi 64,%r31 + and %r2,%r31,%r29 + cmpib,=,n 0,%r29,.L39 + fldd 48(%r5),%fr10 +.L40: + cmpib,>=,n 7,%r6,.L8 + ldi 128,%r31 + and %r2,%r31,%r29 + cmpib,=,n 0,%r29,.L44 + fldd 56(%r5),%fr11 +.L45: + cmpiclr,>= 8,%r6,%r0 + ldo 64(%r7),%r1 +.L8: + cmpib,=,n 13,%r4,.L121 + cmpib,=,n 14,%r4,.L122 +#APP + copy %r1,%r29 +#NO_APP + ldd 8(%r8),%r31 + ldo -16(%r30),%r29 + ldd 16(%r31),%r2 + ldd 24(%r31),%r27 + bve,l (%r2),%r2 + nop + ldw 24(%r8),%r2 + copy %r9,%r27 + cmpib,= 1,%r2,.L50 + copy %r28,%r1 + cmpib,=,n 0,%r2,.L116 + cmpib,=,n 2,%r2,.L119 + cmpib,=,n 3,%r2,.L119 + cmpib,=,n 4,%r2,.L119 + cmpib,=,n 5,%r2,.L118 + cmpib,=,n 6,%r2,.L118 + cmpib,=,n 7,%r2,.L117 + cmpib,=,n 8,%r2,.L117 + cmpib,=,n 9,%r2,.L116 + cmpib,=,n 11,%r2,.L116 + cmpib,=,n 10,%r2,.L116 + cmpib,=,n 12,%r2,.L116 + cmpib,= 15,%r2,.L116 + ldi 16,%r31 + cmpb,=,n %r31,%r2,.L123 +.L50: + ldd -16(%r3),%r2 +.L138: + ldi 0,%r28 + ldd 16(%r3),%r9 + ldd 24(%r3),%r8 + ldd 32(%r3),%r7 + ldd 40(%r3),%r6 + ldd 48(%r3),%r5 + ldd 56(%r3),%r4 + ldo 64(%r3),%r30 + bve (%r2) + ldd,mb -64(%r30),%r3 +.L123: + ldw 0(%r8),%r31 + extrd,u %r31,54+1-1,1,%r31 + cmpib,= 0,%r31,.L138 + ldd -16(%r3),%r2 + ldd 32(%r8),%r2 + ldo -1(%r2),%r31 + cmpib,*<<,n 15,%r31,.L138 + ldd -16(%r3),%r2 + cmpib,*=,n 1,%r2,.L124 + cmpib,*=,n 2,%r2,.L125 + cmpib,*= 3,%r2,.L126 + extrd,s %r28,23,24,%r4 + cmpib,*= 4,%r2,.L127 + extrd,s %r28,31,32,%r5 + cmpib,*=,n 5,%r2,.L128 + cmpib,*=,n 6,%r2,.L129 + cmpib,*= 7,%r2,.L130 + ldo -8(%r2),%r31 + cmpib,*<< 8,%r31,.L50 + extrd,s %r28,7,8,%r31 + ldd 16(%r8),%r2 + stb %r31,0(%r2) + extrd,s %r28,15,16,%r4 + ldd 16(%r8),%r31 + extrd,s %r28,23,24,%r2 + stb %r4,1(%r31) + extrd,s %r28,31,32,%r5 + ldd 16(%r8),%r31 + extrd,s %r28,39,40,%r4 + stb %r2,2(%r31) + extrd,s %r28,47,48,%r6 + ldd 16(%r8),%r2 + extrd,s %r28,55,56,%r7 + stb %r5,3(%r2) + ldd 16(%r8),%r31 + stb %r4,4(%r31) + ldd 16(%r8),%r2 + stb %r6,5(%r2) + ldd 16(%r8),%r31 + stb %r7,6(%r31) + ldd 16(%r8),%r2 + stb %r28,7(%r2) + ldd 32(%r8),%r2 + cmpib,*=,n 8,%r2,.L138 + ldd -16(%r3),%r2 + cmpib,*=,n 9,%r2,.L131 + cmpib,*=,n 10,%r2,.L132 + cmpib,*=,n 11,%r2,.L133 + cmpib,*=,n 12,%r2,.L134 + cmpib,*= 13,%r2,.L135 + extrd,s %r29,7,8,%r31 + cmpib,*=,n 14,%r2,.L136 + cmpib,*= 15,%r2,.L137 + ldi 16,%r31 + cmpb,*<> %r31,%r2,.L138 + ldd -16(%r3),%r2 + ldd 16(%r8),%r2 + extrd,s %r29,7,8,%r31 + stb %r31,8(%r2) + extrd,s %r29,15,16,%r4 + ldd 16(%r8),%r31 + extrd,s %r29,23,24,%r2 + stb %r4,9(%r31) + extrd,s %r29,31,32,%r5 + ldd 16(%r8),%r31 + extrd,s %r29,39,40,%r4 + stb %r2,10(%r31) + extrd,s %r29,47,48,%r6 + ldd 16(%r8),%r2 + extrd,s %r29,55,56,%r7 + stb %r5,11(%r2) + ldd 16(%r8),%r31 + stb %r4,12(%r31) + ldd 16(%r8),%r2 + stb %r6,13(%r2) + ldd 16(%r8),%r31 + stb %r7,14(%r31) + ldd 16(%r8),%r2 + b .L50 + stb %r29,15(%r2) +.L137: + ldd 16(%r8),%r2 + extrd,s %r29,7,8,%r31 + stb %r31,8(%r2) + extrd,s %r29,15,16,%r4 + ldd 16(%r8),%r31 + extrd,s %r29,23,24,%r2 + stb %r4,9(%r31) + extrd,s %r29,31,32,%r5 + ldd 16(%r8),%r31 + extrd,s %r29,39,40,%r4 + stb %r2,10(%r31) + extrd,s %r29,47,48,%r6 + ldd 16(%r8),%r2 + extrd,s %r29,55,56,%r29 + stb %r5,11(%r2) + ldd 16(%r8),%r31 + stb %r4,12(%r31) + ldd 16(%r8),%r2 + stb %r6,13(%r2) + ldd 16(%r8),%r31 + b .L50 + stb %r29,14(%r31) +.L136: + ldd 16(%r8),%r2 + stb %r31,8(%r2) + extrd,s %r29,15,16,%r4 + ldd 16(%r8),%r31 + extrd,s %r29,23,24,%r2 + stb %r4,9(%r31) + extrd,s %r29,31,32,%r5 + ldd 16(%r8),%r31 + extrd,s %r29,39,40,%r4 + stb %r2,10(%r31) + extrd,s %r29,47,48,%r29 + ldd 16(%r8),%r31 + stb %r5,11(%r31) + ldd 16(%r8),%r2 + stb %r4,12(%r2) + ldd 16(%r8),%r31 + b .L50 + stb %r29,13(%r31) +.L135: + ldd 16(%r8),%r2 + stb %r31,8(%r2) + extrd,s %r29,15,16,%r4 + ldd 16(%r8),%r31 + extrd,s %r29,23,24,%r5 + stb %r4,9(%r31) + extrd,s %r29,31,32,%r6 + ldd 16(%r8),%r2 + extrd,s %r29,39,40,%r29 + stb %r5,10(%r2) + ldd 16(%r8),%r31 + stb %r6,11(%r31) + ldd 16(%r8),%r2 + b .L50 + stb %r29,12(%r2) +.L134: + ldd 16(%r8),%r2 + extrd,s %r29,7,8,%r31 + stb %r31,8(%r2) + extrd,s %r29,15,16,%r4 + ldd 16(%r8),%r31 + extrd,s %r29,23,24,%r5 + stb %r4,9(%r31) + extrd,s %r29,31,32,%r29 + ldd 16(%r8),%r31 + stb %r5,10(%r31) + ldd 16(%r8),%r2 + b .L50 + stb %r29,11(%r2) +.L133: + ldd 16(%r8),%r2 + extrd,s %r29,7,8,%r31 + stb %r31,8(%r2) + extrd,s %r29,15,16,%r4 + ldd 16(%r8),%r2 + extrd,s %r29,23,24,%r29 + stb %r4,9(%r2) + ldd 16(%r8),%r31 + b .L50 + stb %r29,10(%r31) +.L132: + ldd 16(%r8),%r2 + extrd,s %r29,7,8,%r31 + stb %r31,8(%r2) + extrd,s %r29,15,16,%r29 + ldd 16(%r8),%r31 + b .L50 + stb %r29,9(%r31) +.L131: + ldd 16(%r8),%r31 + extrd,s %r29,7,8,%r29 + b .L50 + stb %r29,8(%r31) +.L130: + ldd 16(%r8),%r31 + extrd,s %r28,7,8,%r29 + stb %r29,0(%r31) + extrd,s %r28,15,16,%r2 + ldd 16(%r8),%r29 + extrd,s %r28,23,24,%r31 + stb %r2,1(%r29) + extrd,s %r28,31,32,%r4 + ldd 16(%r8),%r29 + extrd,s %r28,39,40,%r2 + stb %r31,2(%r29) + extrd,s %r28,47,48,%r5 + ldd 16(%r8),%r31 + extrd,s %r28,55,56,%r6 + stb %r4,3(%r31) + ldd 16(%r8),%r29 + stb %r2,4(%r29) + ldd 16(%r8),%r31 + stb %r5,5(%r31) + ldd 16(%r8),%r29 + b .L50 + stb %r6,6(%r29) +.L129: + ldd 16(%r8),%r31 + extrd,s %r28,7,8,%r29 + stb %r29,0(%r31) + extrd,s %r28,15,16,%r2 + ldd 16(%r8),%r29 + extrd,s %r28,23,24,%r31 + stb %r2,1(%r29) + extrd,s %r28,31,32,%r4 + ldd 16(%r8),%r29 + extrd,s %r28,39,40,%r2 + stb %r31,2(%r29) + extrd,s %r28,47,48,%r5 + ldd 16(%r8),%r29 + stb %r4,3(%r29) + ldd 16(%r8),%r31 + stb %r2,4(%r31) + ldd 16(%r8),%r29 + b .L50 + stb %r5,5(%r29) +.L128: + ldd 16(%r8),%r31 + extrd,s %r28,7,8,%r29 + stb %r29,0(%r31) + extrd,s %r28,15,16,%r2 + ldd 16(%r8),%r29 + stb %r2,1(%r29) + ldd 16(%r8),%r31 + extrd,s %r28,39,40,%r2 + stb %r4,2(%r31) + ldd 16(%r8),%r29 + stb %r5,3(%r29) + ldd 16(%r8),%r31 + b .L50 + stb %r2,4(%r31) +.L127: + ldd 16(%r8),%r31 + extrd,s %r28,7,8,%r29 + stb %r29,0(%r31) + extrd,s %r28,15,16,%r2 + ldd 16(%r8),%r29 + stb %r2,1(%r29) + ldd 16(%r8),%r29 + stb %r4,2(%r29) + ldd 16(%r8),%r31 + b .L50 + stb %r5,3(%r31) +.L126: + ldd 16(%r8),%r31 + extrd,s %r28,7,8,%r29 + stb %r29,0(%r31) + extrd,s %r28,15,16,%r2 + ldd 16(%r8),%r31 + stb %r2,1(%r31) + ldd 16(%r8),%r29 + b .L50 + stb %r4,2(%r29) +.L125: + ldd 16(%r8),%r31 + extrd,s %r28,7,8,%r29 + stb %r29,0(%r31) + extrd,s %r28,15,16,%r2 + ldd 16(%r8),%r29 + b .L50 + stb %r2,1(%r29) +.L124: + ldd 16(%r8),%r31 + extrd,s %r28,7,8,%r29 + b .L50 + stb %r29,0(%r31) +.L116: + ldd 16(%r8),%r29 + b .L50 + std %r1,0(%r29) +.L117: + ldd 16(%r8),%r29 + b .L50 + stw %r1,0(%r29) +.L118: + ldd 16(%r8),%r29 + b .L50 + sth %r1,0(%r29) +.L119: + ldd 16(%r8),%r29 + b .L50 + stb %r1,0(%r29) +.L122: +#APP + copy %r1,%r29 +#NO_APP + ldd 8(%r8),%r31 + ldo -16(%r30),%r29 + ldd 16(%r31),%r2 + ldd 24(%r31),%r27 + bve,l (%r2),%r2 + nop + ldd 16(%r8),%r29 + copy %r9,%r27 + b .L50 + fstd %fr4,0(%r29) +.L121: +#APP + copy %r1,%r29 +#NO_APP + ldd 8(%r8),%r31 + ldo -16(%r30),%r29 + ldd 16(%r31),%r2 + ldd 24(%r31),%r27 + bve,l (%r2),%r2 + nop + ldd 16(%r8),%r29 + copy %r9,%r27 + b .L50 + fstw %fr4R,0(%r29) +.L44: + ldw 64(%r8),%r29 + and %r29,%r31,%r29 + cmpib,=,n 0,%r29,.L45 + ldd 56(%r5),%r19 +#APP + fldw 60(%r5),%fr11R +#NO_APP + b,n .L45 +.L39: + ldw 64(%r8),%r29 + and %r29,%r31,%r29 + cmpib,=,n 0,%r29,.L40 + ldd 48(%r5),%r20 +#APP + fldw 52(%r5),%fr10R +#NO_APP + b,n .L40 +.L34: + ldw 64(%r8),%r29 + and %r29,%r31,%r29 + cmpib,=,n 0,%r29,.L35 + ldd 40(%r5),%r21 +#APP + fldw 44(%r5),%fr9R +#NO_APP + b,n .L35 +.L29: + ldw 64(%r8),%r29 + and %r29,%r31,%r29 + cmpib,=,n 0,%r29,.L30 + ldd 32(%r5),%r22 +#APP + fldw 36(%r5),%fr8R +#NO_APP + b,n .L30 +.L24: + ldw 64(%r8),%r29 + and %r29,%r31,%r29 + cmpib,=,n 0,%r29,.L25 + ldd 24(%r5),%r23 +#APP + fldw 28(%r5),%fr7R +#NO_APP + b,n .L25 +.L19: + ldw 64(%r8),%r29 + and %r29,%r31,%r29 + cmpib,=,n 0,%r29,.L20 + ldd 16(%r5),%r24 +#APP + fldw 20(%r5),%fr6R +#NO_APP + b,n .L20 +.L14: + ldw 64(%r8),%r29 + and %r29,%r31,%r29 + cmpib,=,n 0,%r29,.L15 + ldd 8(%r5),%r25 +#APP + fldw 12(%r5),%fr5R +#NO_APP + b,n .L15 +.L9: + ldw 64(%r8),%r29 + extrw,u %r29,31,1,%r29 + cmpib,=,n 0,%r29,.L10 + ldd 0(%r5),%r26 +#APP + fldw 4(%r5),%fr4R +#NO_APP + b,n .L10 +.L120: + b .L7 + ldd 16(%r8),%r28 + .EXIT + .PROCEND +.Lfe1: + .size avcall_call,.Lfe1-avcall_call + .ident "GCC: (GNU) 3.1" diff --git a/avcall/avcall-hppa64-macro.S b/avcall/avcall-hppa64-macro.S new file mode 100644 index 0000000..0484da3 --- /dev/null +++ b/avcall/avcall-hppa64-macro.S @@ -0,0 +1,511 @@ +#include "asm-hppa64.h" + .LEVEL 2.0w + TEXT1() + TEXT2() + .align 8 +GLOBL(avcall_call) + DECLARE_FUNCTION(avcall_call) +DEF(avcall_call) + .PROC + .CALLINFO FRAME=256,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=9 + .ENTRY + copy %r3,%r1 + std %r2,-16(%r30) + copy %r30,%r3 + std,ma %r1,256(%r30) + ldi 8,%r31 + std %r9,16(%r3) + copy %r27,%r9 + std %r8,24(%r3) + copy %r26,%r8 + std %r7,32(%r3) + ldo -80(%r30),%r7 + std %r6,40(%r3) + std %r5,48(%r3) + std %r4,56(%r3) + ldd 40(%r26),%r29 + ldd 48(%r26),%r5 + sub %r29,%r5,%r29 + extrd,s %r29,29+32-1,32,%r6 + cmpb,<= %r6,%r31,L(115) + ldo 2112(%r30),%r30 +DEF(L(6)) + depd,z %r31,60,61,%r29 + ldo 1(%r31),%r31 + add,l %r29,%r5,%r2 + extrd,s %r31,63,32,%r31 + ldd 0(%r2),%r4 + add,l %r29,%r7,%r29 + cmpb,> %r6,%r31,L(6) + std %r4,0(%r29) +DEF(L(115)) + ldw 24(%r8),%r31 + ldi 16,%r29 + cmpb,= %r29,%r31,L(120) + copy %r31,%r4 +DEF(L(7)) + cmpib,>=,n 0,%r6,L(8) + ldw 68(%r8),%r2 + extrw,u %r2,31,1,%r29 + cmpib,=,n 0,%r29,L(9) + fldd 0(%r5),%fr4 +DEF(L(10)) + cmpib,>=,n 1,%r6,L(8) + ldi 2,%r31 + and %r2,%r31,%r29 + cmpib,=,n 0,%r29,L(14) + fldd 8(%r5),%fr5 +DEF(L(15)) + cmpib,>=,n 2,%r6,L(8) + ldi 4,%r31 + and %r2,%r31,%r29 + cmpib,=,n 0,%r29,L(19) + fldd 16(%r5),%fr6 +DEF(L(20)) + cmpib,>=,n 3,%r6,L(8) + ldi 8,%r31 + and %r2,%r31,%r29 + cmpib,=,n 0,%r29,L(24) + fldd 24(%r5),%fr7 +DEF(L(25)) + cmpib,>=,n 4,%r6,L(8) + ldi 16,%r31 + and %r2,%r31,%r29 + cmpib,=,n 0,%r29,L(29) + fldd 32(%r5),%fr8 +DEF(L(30)) + cmpib,>=,n 5,%r6,L(8) + ldi 32,%r31 + and %r2,%r31,%r29 + cmpib,=,n 0,%r29,L(34) + fldd 40(%r5),%fr9 +DEF(L(35)) + cmpib,>=,n 6,%r6,L(8) + ldi 64,%r31 + and %r2,%r31,%r29 + cmpib,=,n 0,%r29,L(39) + fldd 48(%r5),%fr10 +DEF(L(40)) + cmpib,>=,n 7,%r6,L(8) + ldi 128,%r31 + and %r2,%r31,%r29 + cmpib,=,n 0,%r29,L(44) + fldd 56(%r5),%fr11 +DEF(L(45)) + cmpiclr,>= 8,%r6,%r0 + ldo 64(%r7),%r1 +DEF(L(8)) + cmpib,=,n 13,%r4,L(121) + cmpib,=,n 14,%r4,L(122) + copy %r1,%r29 + ldd 8(%r8),%r31 + ldd 16(%r31),%r2 + ldd 24(%r31),%r27 + bve,l (%r2),%r2 + nop + ldw 24(%r8),%r2 + copy %r9,%r27 + cmpib,= 1,%r2,L(50) + copy %r28,%r1 + cmpib,=,n 0,%r2,L(116) + cmpib,=,n 2,%r2,L(119) + cmpib,=,n 3,%r2,L(119) + cmpib,=,n 4,%r2,L(119) + cmpib,=,n 5,%r2,L(118) + cmpib,=,n 6,%r2,L(118) + cmpib,=,n 7,%r2,L(117) + cmpib,=,n 8,%r2,L(117) + cmpib,=,n 9,%r2,L(116) + cmpib,=,n 11,%r2,L(116) + cmpib,=,n 10,%r2,L(116) + cmpib,=,n 12,%r2,L(116) + cmpib,= 15,%r2,L(116) + ldi 16,%r31 + cmpb,=,n %r31,%r2,L(123) +DEF(L(50)) + ldd -16(%r3),%r2 +DEF(L(138)) + ldi 0,%r28 + ldd 16(%r3),%r9 + ldd 24(%r3),%r8 + ldd 32(%r3),%r7 + ldd 40(%r3),%r6 + ldd 48(%r3),%r5 + ldd 56(%r3),%r4 + ldo 64(%r3),%r30 + bve (%r2) + ldd,mb -64(%r30),%r3 +DEF(L(123)) + ldw 0(%r8),%r31 + extrd,u %r31,54+1-1,1,%r31 + cmpib,= 0,%r31,L(138) + ldd -16(%r3),%r2 + ldd 32(%r8),%r2 + ldo -1(%r2),%r31 + cmpib,*<<,n 15,%r31,L(138) + ldd -16(%r3),%r2 + cmpib,*=,n 1,%r2,L(124) + cmpib,*=,n 2,%r2,L(125) + cmpib,*= 3,%r2,L(126) + extrd,s %r28,23,24,%r4 + cmpib,*= 4,%r2,L(127) + extrd,s %r28,31,32,%r5 + cmpib,*=,n 5,%r2,L(128) + cmpib,*=,n 6,%r2,L(129) + cmpib,*= 7,%r2,L(130) + ldo -8(%r2),%r31 + cmpib,*<< 8,%r31,L(50) + extrd,s %r28,7,8,%r31 + ldd 16(%r8),%r2 + stb %r31,0(%r2) + extrd,s %r28,15,16,%r4 + ldd 16(%r8),%r31 + extrd,s %r28,23,24,%r2 + stb %r4,1(%r31) + extrd,s %r28,31,32,%r5 + ldd 16(%r8),%r31 + extrd,s %r28,39,40,%r4 + stb %r2,2(%r31) + extrd,s %r28,47,48,%r6 + ldd 16(%r8),%r2 + extrd,s %r28,55,56,%r7 + stb %r5,3(%r2) + ldd 16(%r8),%r31 + stb %r4,4(%r31) + ldd 16(%r8),%r2 + stb %r6,5(%r2) + ldd 16(%r8),%r31 + stb %r7,6(%r31) + ldd 16(%r8),%r2 + stb %r28,7(%r2) + ldd 32(%r8),%r2 + cmpib,*=,n 8,%r2,L(138) + ldd -16(%r3),%r2 + cmpib,*=,n 9,%r2,L(131) + cmpib,*=,n 10,%r2,L(132) + cmpib,*=,n 11,%r2,L(133) + cmpib,*=,n 12,%r2,L(134) + cmpib,*= 13,%r2,L(135) + extrd,s %r29,7,8,%r31 + cmpib,*=,n 14,%r2,L(136) + cmpib,*= 15,%r2,L(137) + ldi 16,%r31 + cmpb,*<> %r31,%r2,L(138) + ldd -16(%r3),%r2 + ldd 16(%r8),%r2 + extrd,s %r29,7,8,%r31 + stb %r31,8(%r2) + extrd,s %r29,15,16,%r4 + ldd 16(%r8),%r31 + extrd,s %r29,23,24,%r2 + stb %r4,9(%r31) + extrd,s %r29,31,32,%r5 + ldd 16(%r8),%r31 + extrd,s %r29,39,40,%r4 + stb %r2,10(%r31) + extrd,s %r29,47,48,%r6 + ldd 16(%r8),%r2 + extrd,s %r29,55,56,%r7 + stb %r5,11(%r2) + ldd 16(%r8),%r31 + stb %r4,12(%r31) + ldd 16(%r8),%r2 + stb %r6,13(%r2) + ldd 16(%r8),%r31 + stb %r7,14(%r31) + ldd 16(%r8),%r2 + b L(50) + stb %r29,15(%r2) +DEF(L(137)) + ldd 16(%r8),%r2 + extrd,s %r29,7,8,%r31 + stb %r31,8(%r2) + extrd,s %r29,15,16,%r4 + ldd 16(%r8),%r31 + extrd,s %r29,23,24,%r2 + stb %r4,9(%r31) + extrd,s %r29,31,32,%r5 + ldd 16(%r8),%r31 + extrd,s %r29,39,40,%r4 + stb %r2,10(%r31) + extrd,s %r29,47,48,%r6 + ldd 16(%r8),%r2 + extrd,s %r29,55,56,%r29 + stb %r5,11(%r2) + ldd 16(%r8),%r31 + stb %r4,12(%r31) + ldd 16(%r8),%r2 + stb %r6,13(%r2) + ldd 16(%r8),%r31 + b L(50) + stb %r29,14(%r31) +DEF(L(136)) + ldd 16(%r8),%r2 + stb %r31,8(%r2) + extrd,s %r29,15,16,%r4 + ldd 16(%r8),%r31 + extrd,s %r29,23,24,%r2 + stb %r4,9(%r31) + extrd,s %r29,31,32,%r5 + ldd 16(%r8),%r31 + extrd,s %r29,39,40,%r4 + stb %r2,10(%r31) + extrd,s %r29,47,48,%r29 + ldd 16(%r8),%r31 + stb %r5,11(%r31) + ldd 16(%r8),%r2 + stb %r4,12(%r2) + ldd 16(%r8),%r31 + b L(50) + stb %r29,13(%r31) +DEF(L(135)) + ldd 16(%r8),%r2 + stb %r31,8(%r2) + extrd,s %r29,15,16,%r4 + ldd 16(%r8),%r31 + extrd,s %r29,23,24,%r5 + stb %r4,9(%r31) + extrd,s %r29,31,32,%r6 + ldd 16(%r8),%r2 + extrd,s %r29,39,40,%r29 + stb %r5,10(%r2) + ldd 16(%r8),%r31 + stb %r6,11(%r31) + ldd 16(%r8),%r2 + b L(50) + stb %r29,12(%r2) +DEF(L(134)) + ldd 16(%r8),%r2 + extrd,s %r29,7,8,%r31 + stb %r31,8(%r2) + extrd,s %r29,15,16,%r4 + ldd 16(%r8),%r31 + extrd,s %r29,23,24,%r5 + stb %r4,9(%r31) + extrd,s %r29,31,32,%r29 + ldd 16(%r8),%r31 + stb %r5,10(%r31) + ldd 16(%r8),%r2 + b L(50) + stb %r29,11(%r2) +DEF(L(133)) + ldd 16(%r8),%r2 + extrd,s %r29,7,8,%r31 + stb %r31,8(%r2) + extrd,s %r29,15,16,%r4 + ldd 16(%r8),%r2 + extrd,s %r29,23,24,%r29 + stb %r4,9(%r2) + ldd 16(%r8),%r31 + b L(50) + stb %r29,10(%r31) +DEF(L(132)) + ldd 16(%r8),%r2 + extrd,s %r29,7,8,%r31 + stb %r31,8(%r2) + extrd,s %r29,15,16,%r29 + ldd 16(%r8),%r31 + b L(50) + stb %r29,9(%r31) +DEF(L(131)) + ldd 16(%r8),%r31 + extrd,s %r29,7,8,%r29 + b L(50) + stb %r29,8(%r31) +DEF(L(130)) + ldd 16(%r8),%r31 + extrd,s %r28,7,8,%r29 + stb %r29,0(%r31) + extrd,s %r28,15,16,%r2 + ldd 16(%r8),%r29 + extrd,s %r28,23,24,%r31 + stb %r2,1(%r29) + extrd,s %r28,31,32,%r4 + ldd 16(%r8),%r29 + extrd,s %r28,39,40,%r2 + stb %r31,2(%r29) + extrd,s %r28,47,48,%r5 + ldd 16(%r8),%r31 + extrd,s %r28,55,56,%r6 + stb %r4,3(%r31) + ldd 16(%r8),%r29 + stb %r2,4(%r29) + ldd 16(%r8),%r31 + stb %r5,5(%r31) + ldd 16(%r8),%r29 + b L(50) + stb %r6,6(%r29) +DEF(L(129)) + ldd 16(%r8),%r31 + extrd,s %r28,7,8,%r29 + stb %r29,0(%r31) + extrd,s %r28,15,16,%r2 + ldd 16(%r8),%r29 + extrd,s %r28,23,24,%r31 + stb %r2,1(%r29) + extrd,s %r28,31,32,%r4 + ldd 16(%r8),%r29 + extrd,s %r28,39,40,%r2 + stb %r31,2(%r29) + extrd,s %r28,47,48,%r5 + ldd 16(%r8),%r29 + stb %r4,3(%r29) + ldd 16(%r8),%r31 + stb %r2,4(%r31) + ldd 16(%r8),%r29 + b L(50) + stb %r5,5(%r29) +DEF(L(128)) + ldd 16(%r8),%r31 + extrd,s %r28,7,8,%r29 + stb %r29,0(%r31) + extrd,s %r28,15,16,%r2 + ldd 16(%r8),%r29 + stb %r2,1(%r29) + ldd 16(%r8),%r31 + extrd,s %r28,39,40,%r2 + stb %r4,2(%r31) + ldd 16(%r8),%r29 + stb %r5,3(%r29) + ldd 16(%r8),%r31 + b L(50) + stb %r2,4(%r31) +DEF(L(127)) + ldd 16(%r8),%r31 + extrd,s %r28,7,8,%r29 + stb %r29,0(%r31) + extrd,s %r28,15,16,%r2 + ldd 16(%r8),%r29 + stb %r2,1(%r29) + ldd 16(%r8),%r29 + stb %r4,2(%r29) + ldd 16(%r8),%r31 + b L(50) + stb %r5,3(%r31) +DEF(L(126)) + ldd 16(%r8),%r31 + extrd,s %r28,7,8,%r29 + stb %r29,0(%r31) + extrd,s %r28,15,16,%r2 + ldd 16(%r8),%r31 + stb %r2,1(%r31) + ldd 16(%r8),%r29 + b L(50) + stb %r4,2(%r29) +DEF(L(125)) + ldd 16(%r8),%r31 + extrd,s %r28,7,8,%r29 + stb %r29,0(%r31) + extrd,s %r28,15,16,%r2 + ldd 16(%r8),%r29 + b L(50) + stb %r2,1(%r29) +DEF(L(124)) + ldd 16(%r8),%r31 + extrd,s %r28,7,8,%r29 + b L(50) + stb %r29,0(%r31) +DEF(L(116)) + ldd 16(%r8),%r29 + b L(50) + std %r1,0(%r29) +DEF(L(117)) + ldd 16(%r8),%r29 + b L(50) + stw %r1,0(%r29) +DEF(L(118)) + ldd 16(%r8),%r29 + b L(50) + sth %r1,0(%r29) +DEF(L(119)) + ldd 16(%r8),%r29 + b L(50) + stb %r1,0(%r29) +DEF(L(122)) + copy %r1,%r29 + ldd 8(%r8),%r31 + ldd 16(%r31),%r2 + ldd 24(%r31),%r27 + bve,l (%r2),%r2 + nop + ldd 16(%r8),%r29 + copy %r9,%r27 + b L(50) + fstd %fr4,0(%r29) +DEF(L(121)) + copy %r1,%r29 + ldd 8(%r8),%r31 + ldd 16(%r31),%r2 + ldd 24(%r31),%r27 + bve,l (%r2),%r2 + nop + ldd 16(%r8),%r29 + copy %r9,%r27 + b L(50) + fstw %fr4R,0(%r29) +DEF(L(44)) + ldw 64(%r8),%r29 + and %r29,%r31,%r29 + cmpib,=,n 0,%r29,L(45) + ldd 56(%r5),%r19 + fldw 60(%r5),%fr11R + b,n L(45) +DEF(L(39)) + ldw 64(%r8),%r29 + and %r29,%r31,%r29 + cmpib,=,n 0,%r29,L(40) + ldd 48(%r5),%r20 + fldw 52(%r5),%fr10R + b,n L(40) +DEF(L(34)) + ldw 64(%r8),%r29 + and %r29,%r31,%r29 + cmpib,=,n 0,%r29,L(35) + ldd 40(%r5),%r21 + fldw 44(%r5),%fr9R + b,n L(35) +DEF(L(29)) + ldw 64(%r8),%r29 + and %r29,%r31,%r29 + cmpib,=,n 0,%r29,L(30) + ldd 32(%r5),%r22 + fldw 36(%r5),%fr8R + b,n L(30) +DEF(L(24)) + ldw 64(%r8),%r29 + and %r29,%r31,%r29 + cmpib,=,n 0,%r29,L(25) + ldd 24(%r5),%r23 + fldw 28(%r5),%fr7R + b,n L(25) +DEF(L(19)) + ldw 64(%r8),%r29 + and %r29,%r31,%r29 + cmpib,=,n 0,%r29,L(20) + ldd 16(%r5),%r24 + fldw 20(%r5),%fr6R + b,n L(20) +DEF(L(14)) + ldw 64(%r8),%r29 + and %r29,%r31,%r29 + cmpib,=,n 0,%r29,L(15) + ldd 8(%r5),%r25 + fldw 12(%r5),%fr5R + b,n L(15) +DEF(L(9)) + ldw 64(%r8),%r29 + extrw,u %r29,31,1,%r29 + cmpib,=,n 0,%r29,L(10) + ldd 0(%r5),%r26 + fldw 4(%r5),%fr4R + b,n L(10) +DEF(L(120)) + b L(7) + ldd 16(%r8),%r28 + .EXIT + .PROCEND +DEF(L(fe1)) + FUNEND(avcall_call) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/avcall/avcall-hppa64.c b/avcall/avcall-hppa64.c new file mode 100644 index 0000000..e4c0d78 --- /dev/null +++ b/avcall/avcall-hppa64.c @@ -0,0 +1,402 @@ +/** + Copyright 1993 Bill Triggs + Copyright 1995-2017 Bruno Haible + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . +**/ +/*---------------------------------------------------------------------- + !!! THIS ROUTINE MUST BE COMPILED gcc -O !!! + + Foreign function interface for a HP-PA 2.0w in 64-bit mode with cc + (NB: gcc-7.1.0/gcc/config/pa/pa64-regs.h is quite incorrect. Ignore it.) + + This calls a C function with an argument list built up using macros + defined in avcall.h. + + hppa64 Argument Passing Conventions: + + Up to 8 words are passed in registers: + integer/pointer float double + 1. %r26 %fr4R %fr4 + 2. %r25 %fr5R %fr5 + 3. %r24 %fr6R %fr6 + 4. %r23 %fr7R %fr7 + 5. %r22 %fr8R %fr8 + 6. %r21 %fr9R %fr9 + 7. %r20 %fr10R %fr10 + 8. %r19 %fr11R %fr11 + The remaining arguments are passed on the stack - growing up, unlike + in 32-bit mode! -, and %r29 is the base address of this stack area. + Room is preallocated for 8 words, i.e. from address %r29-64 to %r29-1. + Among these stack arguments: + - integer/pointer occupies 1 word (right-adjusted, since big-endian), + - float occupies 1 word and is stored in the upper 4 bytes of the word, + - double occupies 1 word. + + Structs of any size are passed in the argument sequence, e.g. in integer + registers (first byte being at bits 63..56). Note that a {long,long} + struct has 2*(8 bytes) alignment. + + The return value is returned in register %r28. + Float return values are also returned in %fr4R. + Double return values are also returned in %fr4. + (How silly! Who designed this ABI?!) + + To return a structure of more than 16 bytes, the called function copies + the return value to the address supplied in register %r28. The function + also returns the pointer. + Smaller structures are returned in the registers %r28 (first 8 bytes) + and %r29 (next 8 bytes, if present). + + ----------------------------------------------------------------------*/ +#include "avcall-internal.h" + +#define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) + +/* This declaration tells gcc not to modify %r28. */ +register __avword* sret __asm__("%r28"); /* structure return pointer */ + +register __avword arg1 __asm__("r26"); +register __avword arg2 __asm__("r25"); +register __avword arg3 __asm__("r24"); +register __avword arg4 __asm__("r23"); +register __avword arg5 __asm__("r22"); +register __avword arg6 __asm__("r21"); +register __avword arg7 __asm__("r20"); +register __avword arg8 __asm__("r19"); + +/*register float farg1 __asm__("fr4R");*/ +/*register float farg2 __asm__("fr5R");*/ +/*register float farg3 __asm__("fr6R");*/ +/*register float farg4 __asm__("fr7R");*/ +/*register float farg5 __asm__("fr8R");*/ +/*register float farg6 __asm__("fr9R");*/ +/*register float farg7 __asm__("fr10R");*/ +/*register float farg8 __asm__("fr11R");*/ + +register double darg1 __asm__("fr4"); +register double darg2 __asm__("fr5"); +register double darg3 __asm__("fr6"); +register double darg4 __asm__("fr7"); +register double darg5 __asm__("fr8"); +register double darg6 __asm__("fr9"); +register double darg7 __asm__("fr10"); +register double darg8 __asm__("fr11"); + +int +avcall_call(av_alist* list) +{ + register __avword* sp __asm__("%r30"); /* C names for registers */ +/*register __avword iret1 __asm__("%r28"); */ + register __avword iret2 __asm__("%r29"); + + __av_alist* l = &AV_LIST_INNER(list); + + __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ + __avword* memargptr; + int arglen = l->aptr - l->args; + __avword iret; + + { + int i; + for (i = 8; i < arglen; i++) /* push function args onto stack */ + argframe[i] = l->args[i]; + } + + if (l->rtype == __AVstruct) /* push struct return address */ + sret = l->raddr; + + /* Put args in registers */ + if (arglen >= 1) { + if (l->darg_mask & (1 << 0)) + darg1 = ((double*)&l->args[1])[-1]; + else if (l->farg_mask & (1 << 0)) + __asm__ __volatile__ ("fldw %0,%%fr4R" : : "m" (((float*)&l->args[1])[-1])); /* farg1 = ((float*)&l->args[1])[-1]; */ + else + arg1 = l->args[0]; + if (arglen >= 2) { + if (l->darg_mask & (1 << 1)) + darg2 = ((double*)&l->args[2])[-1]; + else if (l->farg_mask & (1 << 1)) + __asm__ __volatile__ ("fldw %0,%%fr5R" : : "m" (((float*)&l->args[2])[-1])); /* farg2 = ((float*)&l->args[2])[-1]; */ + else + arg2 = l->args[1]; + if (arglen >= 3) { + if (l->darg_mask & (1 << 2)) + darg3 = ((double*)&l->args[3])[-1]; + else if (l->farg_mask & (1 << 2)) + __asm__ __volatile__ ("fldw %0,%%fr6R" : : "m" (((float*)&l->args[3])[-1])); /* farg3 = ((float*)&l->args[3])[-1]; */ + else + arg3 = l->args[2]; + if (arglen >= 4) { + if (l->darg_mask & (1 << 3)) + darg4 = ((double*)&l->args[4])[-1]; + else if (l->farg_mask & (1 << 3)) + __asm__ __volatile__ ("fldw %0,%%fr7R" : : "m" (((float*)&l->args[4])[-1])); /* farg4 = ((float*)&l->args[4])[-1]; */ + else + arg4 = l->args[3]; + if (arglen >= 5) { + if (l->darg_mask & (1 << 4)) + darg5 = ((double*)&l->args[5])[-1]; + else if (l->farg_mask & (1 << 4)) + __asm__ __volatile__ ("fldw %0,%%fr8R" : : "m" (((float*)&l->args[5])[-1])); /* farg5 = ((float*)&l->args[5])[-1]; */ + else + arg5 = l->args[4]; + if (arglen >= 6) { + if (l->darg_mask & (1 << 5)) + darg6 = ((double*)&l->args[6])[-1]; + else if (l->farg_mask & (1 << 5)) + __asm__ __volatile__ ("fldw %0,%%fr9R" : : "m" (((float*)&l->args[6])[-1])); /* farg6 = ((float*)&l->args[6])[-1]; */ + else + arg6 = l->args[5]; + if (arglen >= 7) { + if (l->darg_mask & (1 << 6)) + darg7 = ((double*)&l->args[7])[-1]; + else if (l->farg_mask & (1 << 6)) + __asm__ __volatile__ ("fldw %0,%%fr10R" : : "m" (((float*)&l->args[7])[-1])); /* farg7 = ((float*)&l->args[7])[-1]; */ + else + arg7 = l->args[6]; + if (arglen >= 8) { + if (l->darg_mask & (1 << 7)) + darg8 = ((double*)&l->args[8])[-1]; + else if (l->farg_mask & (1 << 7)) + __asm__ __volatile__ ("fldw %0,%%fr11R" : : "m" (((float*)&l->args[8])[-1])); /* farg8 = ((float*)&l->args[8])[-1]; */ + else + arg8 = l->args[7]; + if (arglen > 8) { + memargptr = &argframe[8]; + } + } + } + } + } + } + } + } + } + if (l->rtype == __AVfloat) { + __asm__ __volatile__ ("copy %0,%%r29" : : "r" (memargptr)); + /* GCC generates an 'ldo -16(%r30),%r29' instruction as part of this + function call. We eliminate it through post-processing. */ + *(float*)l->raddr = (*(float(*)())l->func)(); + } else + if (l->rtype == __AVdouble) { + __asm__ __volatile__ ("copy %0,%%r29" : : "r" (memargptr)); + /* GCC generates an 'ldo -16(%r30),%r29' instruction as part of this + function call. We eliminate it through post-processing. */ + *(double*)l->raddr = (*(double(*)())l->func)(); + } else { + __asm__ __volatile__ ("copy %0,%%r29" : : "r" (memargptr)); + /* GCC generates an 'ldo -16(%r30),%r29' instruction as part of this + function call. We eliminate it through post-processing. */ + iret = (*l->func)(); + + /* save return value */ + if (l->rtype == __AVvoid) { + } else + if (l->rtype == __AVword) { + RETURN(__avword, iret); + } else + if (l->rtype == __AVchar) { + RETURN(char, iret); + } else + if (l->rtype == __AVschar) { + RETURN(signed char, iret); + } else + if (l->rtype == __AVuchar) { + RETURN(unsigned char, iret); + } else + if (l->rtype == __AVshort) { + RETURN(short, iret); + } else + if (l->rtype == __AVushort) { + RETURN(unsigned short, iret); + } else + if (l->rtype == __AVint) { + RETURN(int, iret); + } else + if (l->rtype == __AVuint) { + RETURN(unsigned int, iret); + } else + if (l->rtype == __AVlong || l->rtype == __AVlonglong) { + RETURN(long, iret); + } else + if (l->rtype == __AVulong || l->rtype == __AVulonglong) { + RETURN(unsigned long, iret); + } else + /* see above + if (l->rtype == __AVfloat) { + } else + if (l->rtype == __AVdouble) { + } else + */ + if (l->rtype == __AVvoidp) { + RETURN(void*, iret); + } else + if (l->rtype == __AVstruct) { + if (l->flags & __AV_REGISTER_STRUCT_RETURN) { + /* cc returns structs of size <= 16 in registers. */ + if (l->rsize > 0 && l->rsize <= 16) { + #if 0 + void* raddr = l->raddr; + #else + #define raddr l->raddr + #endif + #if 1 /* Unoptimized */ + if (l->rsize == 1) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + } else + if (l->rsize == 2) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); + } else + if (l->rsize == 3) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); + } else + if (l->rsize == 4) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); + } else + if (l->rsize == 5) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); + } else + if (l->rsize == 6) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>16); + } else + if (l->rsize == 7) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[6] = (unsigned char)(iret>>8); + } else + if (l->rsize >= 8 && l->rsize <= 16) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[6] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[7] = (unsigned char)(iret); + if (l->rsize == 8) { + } else + if (l->rsize == 9) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + } else + if (l->rsize == 10) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); + } else + if (l->rsize == 11) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); + } else + if (l->rsize == 12) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); + } else + if (l->rsize == 13) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); + } else + if (l->rsize == 14) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>16); + } else + if (l->rsize == 15) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>8); + } else + if (l->rsize == 16) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+7] = (unsigned char)(iret2); + } + } + #else /* Optimized: fewer conditional jumps, fewer memory accesses */ + uintptr_t count = l->rsize; /* > 0, ≤ 2*sizeof(__avword) */ + __avword* wordaddr = (__avword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avword)-1)); + uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avword)-1); /* ≥ 0, < sizeof(__avword) */ + uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__avword) */ + if (count <= sizeof(__avword)) { + /* Use iret. */ + if (end_offset <= sizeof(__avword)) { + /* 0 < end_offset ≤ sizeof(__avword) */ + __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - ((__avword)1 << (sizeof(__avword)*8-end_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; + } else { + /* sizeof(__avword) < end_offset < 2*sizeof(__avword), start_offset > 0 */ + __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - 1; + __avword mask1 = - ((__avword)1 << (2*sizeof(__avword)*8-end_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; + wordaddr[1] ^= (wordaddr[1] ^ (iret << (sizeof(__avword)*8-start_offset*8))) & mask1; + } + } else { + /* Use iret, iret2. */ + __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - 1; + wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; + if (end_offset <= 2*sizeof(__avword)) { + /* sizeof(__avword) < end_offset ≤ 2*sizeof(__avword) */ + __avword mask1 = - ((__avword)1 << (2*sizeof(__avword)*8-end_offset*8)); + wordaddr[1] ^= (wordaddr[1] ^ ((iret << (sizeof(__avword)*4-start_offset*4) << (sizeof(__avword)*4-start_offset*4)) | (iret2 >> (start_offset*8)))) & mask1; + } else { + /* 2*sizeof(__avword) < end_offset < 3*sizeof(__avword), start_offset > 0 */ + __avword mask2 = - ((__avword)1 << (3*sizeof(__avword)*8-end_offset*8)); + wordaddr[1] = (iret << (sizeof(__avword)*8-start_offset*8)) | (iret2 >> (start_offset*8)); + wordaddr[2] ^= (wordaddr[2] ^ (iret2 << (sizeof(__avword)*8-start_offset*8))) & mask2; + } + } + #endif + } + } + } + } + return 0; +} diff --git a/avcall/avcall-i386-linux.s b/avcall/avcall-i386-linux.s new file mode 100644 index 0000000..7c0e4f1 --- /dev/null +++ b/avcall/avcall-i386-linux.s @@ -0,0 +1,145 @@ + .file "avcall-i386.c" + .text + .align 2 + .p2align 2,,3 +.globl avcall_call + .type avcall_call,@function +avcall_call: + pushl %ebp + movl %esp, %ebp + pushl %edi + pushl %esi + movl 8(%ebp), %eax + movl 20(%eax), %edx + movl 24(%eax), %eax + subl %eax, %edx + sarl $2, %edx + xorl %esi, %esi + subl $1024, %esp + cmpl %edx, %esi + movl %esp, %edi + jge .L47 + movl %eax, %ecx + .p2align 2,,3 +.L6: + movl (%ecx,%esi,4), %eax + movl %eax, (%edi,%esi,4) + incl %esi + cmpl %edx, %esi + jl .L6 +.L47: + movl 8(%ebp), %edx + movl 12(%edx), %eax + cmpl $13, %eax + je .L55 + cmpl $14, %eax + je .L56 + movl 8(%ebp), %ecx + call *4(%ecx) + movl %eax, %esi + movl 8(%ebp), %eax + movl 12(%eax), %ecx + cmpl $1, %ecx + je .L8 + testl %ecx, %ecx + jne .L13 + movl 8(%eax), %eax +.L50: + movl %esi, (%eax) +.L8: + leal -8(%ebp), %esp + popl %esi + xorl %eax, %eax + popl %edi + leave + ret +.L13: + cmpl $2, %ecx + je .L53 + cmpl $3, %ecx + je .L53 + cmpl $4, %ecx + je .L53 + cmpl $5, %ecx + je .L57 + cmpl $6, %ecx + je .L51 + cmpl $7, %ecx + je .L48 + cmpl $8, %ecx + je .L54 + cmpl $9, %ecx + je .L48 + cmpl $10, %ecx + je .L54 + leal -11(%ecx), %eax + cmpl $1, %eax + jbe .L49 + cmpl $15, %ecx + je .L48 + cmpl $16, %ecx + jne .L8 + movl 8(%ebp), %ecx + testb $2, 1(%ecx) + je .L8 + movl 16(%ecx), %eax + cmpl $1, %eax + je .L58 + cmpl $2, %eax + je .L51 + cmpl $4, %eax + je .L48 + cmpl $8, %eax + jne .L8 +.L49: + movl 8(%ebp), %ecx + movl 8(%ecx), %eax + movl %esi, (%eax) + movl %edx, 4(%eax) + jmp .L8 +.L48: + movl 8(%ebp), %edx + movl 8(%edx), %eax + jmp .L50 +.L51: + movl 8(%ebp), %ecx + movl 8(%ecx), %eax +.L52: + movw %si, (%eax) + jmp .L8 +.L58: + movl 8(%ecx), %eax + movl %esi, %edx + movb %dl, (%eax) + jmp .L8 + .p2align 2,,3 +.L54: + movl 8(%ebp), %ecx + movl 8(%ecx), %eax + jmp .L50 +.L57: + movl 8(%ebp), %edx + movl 8(%edx), %eax + jmp .L52 +.L53: + movl 8(%ebp), %edx + movl 8(%edx), %eax + movl %esi, %ecx + movb %cl, (%eax) + jmp .L8 +.L56: + movl 8(%ebp), %eax + call *4(%eax) + movl 8(%ebp), %edx + movl 8(%edx), %eax + fstpl (%eax) + jmp .L8 +.L55: + call *4(%edx) + movl 8(%ebp), %ecx + movl 8(%ecx), %eax + fstps (%eax) + jmp .L8 +.Lfe1: + .size avcall_call,.Lfe1-avcall_call + .ident "GCC: (GNU) 3.1" diff --git a/avcall/avcall-i386-macro.S b/avcall/avcall-i386-macro.S new file mode 100644 index 0000000..59b898c --- /dev/null +++ b/avcall/avcall-i386-macro.S @@ -0,0 +1,148 @@ +#include "asm-i386.h" + TEXT() + ALIGN(2) + P2ALIGN(2,3) +GLOBL(C(avcall_call)) + DECLARE_FUNCTION(avcall_call) +FUNBEGIN(avcall_call) + INSN1(push,l ,R(ebp)) + INSN2(mov,l ,R(esp), R(ebp)) + INSN1(push,l ,R(edi)) + INSN1(push,l ,R(esi)) + INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(eax)) + INSN2(mov,l ,X4 MEM_DISP(eax,20), R(edx)) + INSN2(mov,l ,X4 MEM_DISP(eax,24), R(eax)) + INSN2(sub,l ,R(eax), R(edx)) + INSN2(sar,l ,NUM(2), R(edx)) + INSN2(xor,l ,R(esi), R(esi)) + INSN2(sub,l ,NUM(1024), R(esp)) + INSN2(cmp,l ,R(edx), R(esi)) + INSN2(mov,l ,R(esp), R(edi)) + INSN1(jge,_ ,L(47)) + INSN2(mov,l ,R(eax), R(ecx)) + P2ALIGN(2,3) +L(6): + INSN2(mov,l ,X4 MEM_SHINDEX(ecx,esi,4), R(eax)) + INSN2(mov,l ,R(eax),X4 MEM_SHINDEX(edi,esi,4)) + INSN1(inc,l ,R(esi)) + INSN2(cmp,l ,R(edx), R(esi)) + INSN1(jl,_ ,L(6)) +L(47): + INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(edx)) + INSN2(mov,l ,X4 MEM_DISP(edx,12), R(eax)) + INSN2(cmp,l ,NUM(13), R(eax)) + INSN1(je,_ ,L(55)) + INSN2(cmp,l ,NUM(14), R(eax)) + INSN1(je,_ ,L(56)) + INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) + INSN1(call,_ ,INDIR(X4 MEM_DISP(ecx,4))) + INSN2(mov,l ,R(eax), R(esi)) + INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(eax)) + INSN2(mov,l ,X4 MEM_DISP(eax,12), R(ecx)) + INSN2(cmp,l ,NUM(1), R(ecx)) + INSN1(je,_ ,L(8)) + INSN2(test,l ,R(ecx), R(ecx)) + INSN1(jne,_ ,L(13)) + INSN2(mov,l ,X4 MEM_DISP(eax,8), R(eax)) +L(50): + INSN2(mov,l ,R(esi),X4 MEM(eax)) +L(8): + INSN2(lea,l ,X4 MEM_DISP(ebp,-8), R(esp)) + INSN1(pop,l ,R(esi)) + INSN2(xor,l ,R(eax), R(eax)) + INSN1(pop,l ,R(edi)) + leave + ret +L(13): + INSN2(cmp,l ,NUM(2), R(ecx)) + INSN1(je,_ ,L(53)) + INSN2(cmp,l ,NUM(3), R(ecx)) + INSN1(je,_ ,L(53)) + INSN2(cmp,l ,NUM(4), R(ecx)) + INSN1(je,_ ,L(53)) + INSN2(cmp,l ,NUM(5), R(ecx)) + INSN1(je,_ ,L(57)) + INSN2(cmp,l ,NUM(6), R(ecx)) + INSN1(je,_ ,L(51)) + INSN2(cmp,l ,NUM(7), R(ecx)) + INSN1(je,_ ,L(48)) + INSN2(cmp,l ,NUM(8), R(ecx)) + INSN1(je,_ ,L(54)) + INSN2(cmp,l ,NUM(9), R(ecx)) + INSN1(je,_ ,L(48)) + INSN2(cmp,l ,NUM(10), R(ecx)) + INSN1(je,_ ,L(54)) + INSN2(lea,l ,X4 MEM_DISP(ecx,-11), R(eax)) + INSN2(cmp,l ,NUM(1), R(eax)) + INSN1(jbe,_ ,L(49)) + INSN2(cmp,l ,NUM(15), R(ecx)) + INSN1(je,_ ,L(48)) + INSN2(cmp,l ,NUM(16), R(ecx)) + INSN1(jne,_ ,L(8)) + INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) + INSN2(test,b ,NUM(2),X1 MEM_DISP(ecx,1)) + INSN1(je,_ ,L(8)) + INSN2(mov,l ,X4 MEM_DISP(ecx,16), R(eax)) + INSN2(cmp,l ,NUM(1), R(eax)) + INSN1(je,_ ,L(58)) + INSN2(cmp,l ,NUM(2), R(eax)) + INSN1(je,_ ,L(51)) + INSN2(cmp,l ,NUM(4), R(eax)) + INSN1(je,_ ,L(48)) + INSN2(cmp,l ,NUM(8), R(eax)) + INSN1(jne,_ ,L(8)) +L(49): + INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) + INSN2(mov,l ,X4 MEM_DISP(ecx,8), R(eax)) + INSN2(mov,l ,R(esi),X4 MEM(eax)) + INSN2(mov,l ,R(edx),X4 MEM_DISP(eax,4)) + INSN1(jmp,_ ,L(8)) +L(48): + INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(edx)) + INSN2(mov,l ,X4 MEM_DISP(edx,8), R(eax)) + INSN1(jmp,_ ,L(50)) +L(51): + INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) + INSN2(mov,l ,X4 MEM_DISP(ecx,8), R(eax)) +L(52): + INSN2(mov,w ,R(si),X2 MEM(eax)) + INSN1(jmp,_ ,L(8)) +L(58): + INSN2(mov,l ,X4 MEM_DISP(ecx,8), R(eax)) + INSN2(mov,l ,R(esi), R(edx)) + INSN2(mov,b ,R(dl),X1 MEM(eax)) + INSN1(jmp,_ ,L(8)) + P2ALIGN(2,3) +L(54): + INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) + INSN2(mov,l ,X4 MEM_DISP(ecx,8), R(eax)) + INSN1(jmp,_ ,L(50)) +L(57): + INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(edx)) + INSN2(mov,l ,X4 MEM_DISP(edx,8), R(eax)) + INSN1(jmp,_ ,L(52)) +L(53): + INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(edx)) + INSN2(mov,l ,X4 MEM_DISP(edx,8), R(eax)) + INSN2(mov,l ,R(esi), R(ecx)) + INSN2(mov,b ,R(cl),X1 MEM(eax)) + INSN1(jmp,_ ,L(8)) +L(56): + INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(eax)) + INSN1(call,_ ,INDIR(X4 MEM_DISP(eax,4))) + INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(edx)) + INSN2(mov,l ,X4 MEM_DISP(edx,8), R(eax)) + INSN1(fstp,l ,X8 MEM(eax)) + INSN1(jmp,_ ,L(8)) +L(55): + INSN1(call,_ ,INDIR(X4 MEM_DISP(edx,4))) + INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) + INSN2(mov,l ,X4 MEM_DISP(ecx,8), R(eax)) + INSN1(fstp,s ,X4 MEM(eax)) + INSN1(jmp,_ ,L(8)) +L(fe1): + FUNEND(avcall_call,L(fe1)-avcall_call) + +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/avcall/avcall-i386-msvc.c b/avcall/avcall-i386-msvc.c new file mode 100644 index 0000000..59b898c --- /dev/null +++ b/avcall/avcall-i386-msvc.c @@ -0,0 +1,148 @@ +#include "asm-i386.h" + TEXT() + ALIGN(2) + P2ALIGN(2,3) +GLOBL(C(avcall_call)) + DECLARE_FUNCTION(avcall_call) +FUNBEGIN(avcall_call) + INSN1(push,l ,R(ebp)) + INSN2(mov,l ,R(esp), R(ebp)) + INSN1(push,l ,R(edi)) + INSN1(push,l ,R(esi)) + INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(eax)) + INSN2(mov,l ,X4 MEM_DISP(eax,20), R(edx)) + INSN2(mov,l ,X4 MEM_DISP(eax,24), R(eax)) + INSN2(sub,l ,R(eax), R(edx)) + INSN2(sar,l ,NUM(2), R(edx)) + INSN2(xor,l ,R(esi), R(esi)) + INSN2(sub,l ,NUM(1024), R(esp)) + INSN2(cmp,l ,R(edx), R(esi)) + INSN2(mov,l ,R(esp), R(edi)) + INSN1(jge,_ ,L(47)) + INSN2(mov,l ,R(eax), R(ecx)) + P2ALIGN(2,3) +L(6): + INSN2(mov,l ,X4 MEM_SHINDEX(ecx,esi,4), R(eax)) + INSN2(mov,l ,R(eax),X4 MEM_SHINDEX(edi,esi,4)) + INSN1(inc,l ,R(esi)) + INSN2(cmp,l ,R(edx), R(esi)) + INSN1(jl,_ ,L(6)) +L(47): + INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(edx)) + INSN2(mov,l ,X4 MEM_DISP(edx,12), R(eax)) + INSN2(cmp,l ,NUM(13), R(eax)) + INSN1(je,_ ,L(55)) + INSN2(cmp,l ,NUM(14), R(eax)) + INSN1(je,_ ,L(56)) + INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) + INSN1(call,_ ,INDIR(X4 MEM_DISP(ecx,4))) + INSN2(mov,l ,R(eax), R(esi)) + INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(eax)) + INSN2(mov,l ,X4 MEM_DISP(eax,12), R(ecx)) + INSN2(cmp,l ,NUM(1), R(ecx)) + INSN1(je,_ ,L(8)) + INSN2(test,l ,R(ecx), R(ecx)) + INSN1(jne,_ ,L(13)) + INSN2(mov,l ,X4 MEM_DISP(eax,8), R(eax)) +L(50): + INSN2(mov,l ,R(esi),X4 MEM(eax)) +L(8): + INSN2(lea,l ,X4 MEM_DISP(ebp,-8), R(esp)) + INSN1(pop,l ,R(esi)) + INSN2(xor,l ,R(eax), R(eax)) + INSN1(pop,l ,R(edi)) + leave + ret +L(13): + INSN2(cmp,l ,NUM(2), R(ecx)) + INSN1(je,_ ,L(53)) + INSN2(cmp,l ,NUM(3), R(ecx)) + INSN1(je,_ ,L(53)) + INSN2(cmp,l ,NUM(4), R(ecx)) + INSN1(je,_ ,L(53)) + INSN2(cmp,l ,NUM(5), R(ecx)) + INSN1(je,_ ,L(57)) + INSN2(cmp,l ,NUM(6), R(ecx)) + INSN1(je,_ ,L(51)) + INSN2(cmp,l ,NUM(7), R(ecx)) + INSN1(je,_ ,L(48)) + INSN2(cmp,l ,NUM(8), R(ecx)) + INSN1(je,_ ,L(54)) + INSN2(cmp,l ,NUM(9), R(ecx)) + INSN1(je,_ ,L(48)) + INSN2(cmp,l ,NUM(10), R(ecx)) + INSN1(je,_ ,L(54)) + INSN2(lea,l ,X4 MEM_DISP(ecx,-11), R(eax)) + INSN2(cmp,l ,NUM(1), R(eax)) + INSN1(jbe,_ ,L(49)) + INSN2(cmp,l ,NUM(15), R(ecx)) + INSN1(je,_ ,L(48)) + INSN2(cmp,l ,NUM(16), R(ecx)) + INSN1(jne,_ ,L(8)) + INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) + INSN2(test,b ,NUM(2),X1 MEM_DISP(ecx,1)) + INSN1(je,_ ,L(8)) + INSN2(mov,l ,X4 MEM_DISP(ecx,16), R(eax)) + INSN2(cmp,l ,NUM(1), R(eax)) + INSN1(je,_ ,L(58)) + INSN2(cmp,l ,NUM(2), R(eax)) + INSN1(je,_ ,L(51)) + INSN2(cmp,l ,NUM(4), R(eax)) + INSN1(je,_ ,L(48)) + INSN2(cmp,l ,NUM(8), R(eax)) + INSN1(jne,_ ,L(8)) +L(49): + INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) + INSN2(mov,l ,X4 MEM_DISP(ecx,8), R(eax)) + INSN2(mov,l ,R(esi),X4 MEM(eax)) + INSN2(mov,l ,R(edx),X4 MEM_DISP(eax,4)) + INSN1(jmp,_ ,L(8)) +L(48): + INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(edx)) + INSN2(mov,l ,X4 MEM_DISP(edx,8), R(eax)) + INSN1(jmp,_ ,L(50)) +L(51): + INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) + INSN2(mov,l ,X4 MEM_DISP(ecx,8), R(eax)) +L(52): + INSN2(mov,w ,R(si),X2 MEM(eax)) + INSN1(jmp,_ ,L(8)) +L(58): + INSN2(mov,l ,X4 MEM_DISP(ecx,8), R(eax)) + INSN2(mov,l ,R(esi), R(edx)) + INSN2(mov,b ,R(dl),X1 MEM(eax)) + INSN1(jmp,_ ,L(8)) + P2ALIGN(2,3) +L(54): + INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) + INSN2(mov,l ,X4 MEM_DISP(ecx,8), R(eax)) + INSN1(jmp,_ ,L(50)) +L(57): + INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(edx)) + INSN2(mov,l ,X4 MEM_DISP(edx,8), R(eax)) + INSN1(jmp,_ ,L(52)) +L(53): + INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(edx)) + INSN2(mov,l ,X4 MEM_DISP(edx,8), R(eax)) + INSN2(mov,l ,R(esi), R(ecx)) + INSN2(mov,b ,R(cl),X1 MEM(eax)) + INSN1(jmp,_ ,L(8)) +L(56): + INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(eax)) + INSN1(call,_ ,INDIR(X4 MEM_DISP(eax,4))) + INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(edx)) + INSN2(mov,l ,X4 MEM_DISP(edx,8), R(eax)) + INSN1(fstp,l ,X8 MEM(eax)) + INSN1(jmp,_ ,L(8)) +L(55): + INSN1(call,_ ,INDIR(X4 MEM_DISP(edx,4))) + INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) + INSN2(mov,l ,X4 MEM_DISP(ecx,8), R(eax)) + INSN1(fstp,s ,X4 MEM(eax)) + INSN1(jmp,_ ,L(8)) +L(fe1): + FUNEND(avcall_call,L(fe1)-avcall_call) + +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/avcall/avcall-i386.c b/avcall/avcall-i386.c new file mode 100644 index 0000000..63d3af9 --- /dev/null +++ b/avcall/avcall-i386.c @@ -0,0 +1,147 @@ +/** + Copyright 1993 Bill Triggs + Copyright 1995-2017 Bruno Haible + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . +**/ +/*---------------------------------------------------------------------- + !!! THIS ROUTINE MUST BE COMPILED gcc -O -fno-omit-frame-pointer !!! + + Foreign function interface for a Linux i386/486 with gcc. + + This calls a C function with an argument list built up using macros + defined in avcall.h. + + i386 Argument Passing Conventions: + + All arguments are passed on the stack with word alignment. Doubles take + two words. Structure args are passed as true structures embedded in the + argument stack. Float and double returns often come from FPU registers. + + To return a structure, the called function copies the value to space + pointed to by its first argument, and all other arguments are shifted + down by one. At least on FreeBSD, the function also returns the pointer. + GCC returns structures of size 1, 2, 4, 8 like integers. + + Compile this routine with gcc -O (or -O2 -fno-omit-frame-pointer or -g -O) + to get the right register variables. For other compilers use the + pre-compiled assembler version. + + -fomit-frame-pointer is forbidden because when calling structure returning + functions (the "i = (*l->func)();" line below) the called functions pops + the return value container pointer from the stack: "ret $4" instead of + "ret". (See gcc-2.6.3 macro RETURN_POPS_ARGS.) From our point of view, %esp + gets magically incremented. A workaround would be to push the return value + container pointer using an __asm__("pushl %0" : : : ...) instruction. + Similarly, when calling functions with ‘stdcall’ linkage, %esp also gets + incremented: all arguments (including the return value container pointer) + are popped from the stack. + ----------------------------------------------------------------------*/ +#include "avcall-internal.h" + +#define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) + +int +avcall_call(av_alist* list) +{ + register __avword* sp __asm__("sp"); /* C names for registers */ +/*register __avword iret __asm__("eax"); */ + register __avword iret2 __asm__("edx"); + + __av_alist* l = &AV_LIST_INNER(list); + + __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ + int arglen = l->aptr - l->args; + __avword i; + + for (i = 0; i < arglen; i++) /* push function args onto stack */ + argframe[i] = l->args[i]; + + /* call function */ + if (l->rtype == __AVfloat) { + *(float*)l->raddr = (*(float(*)())l->func)(); + } else + if (l->rtype == __AVdouble) { + *(double*)l->raddr = (*(double(*)())l->func)(); + } else { + i = (*l->func)(); + + /* save return value */ + if (l->rtype == __AVvoid) { + } else + if (l->rtype == __AVword) { + RETURN(__avword, i); + } else + if (l->rtype == __AVchar) { + RETURN(char, i); + } else + if (l->rtype == __AVschar) { + RETURN(signed char, i); + } else + if (l->rtype == __AVuchar) { + RETURN(unsigned char, i); + } else + if (l->rtype == __AVshort) { + RETURN(short, i); + } else + if (l->rtype == __AVushort) { + RETURN(unsigned short, i); + } else + if (l->rtype == __AVint) { + RETURN(int, i); + } else + if (l->rtype == __AVuint) { + RETURN(unsigned int, i); + } else + if (l->rtype == __AVlong) { + RETURN(long, i); + } else + if (l->rtype == __AVulong) { + RETURN(unsigned long, i); + } else + if (l->rtype == __AVlonglong || l->rtype == __AVulonglong) { + void* raddr = l->raddr; + ((__avword*)raddr)[0] = i; + ((__avword*)raddr)[1] = iret2; + } else + /* see above + if (l->rtype == __AVfloat) { + } else + if (l->rtype == __AVdouble) { + } else + */ + if (l->rtype == __AVvoidp) { + RETURN(void*, i); + } else + if (l->rtype == __AVstruct) { + if (l->flags & __AV_REGISTER_STRUCT_RETURN) { + if (l->rsize == sizeof(char)) { + RETURN(char, i); + } else + if (l->rsize == sizeof(short)) { + RETURN(short, i); + } else + if (l->rsize == sizeof(int)) { + RETURN(int, i); + } else + if (l->rsize == 2*sizeof(__avword)) { + void* raddr = l->raddr; + ((__avword*)raddr)[0] = i; + ((__avword*)raddr)[1] = iret2; + } + } + } + } + return 0; +} diff --git a/avcall/avcall-ia64-linux.s b/avcall/avcall-ia64-linux.s new file mode 100644 index 0000000..93df523 --- /dev/null +++ b/avcall/avcall-ia64-linux.s @@ -0,0 +1,1174 @@ + .file "avcall-ia64.c" + .pred.safe_across_calls p1-p5,p16-p63 + .text + .align 16 + .global avcall_call# + .proc avcall_call# +avcall_call: + .prologue 14, 34 + .mmi + .save ar.pfs, r35 + alloc r35 = ar.pfs, 1, 6, 8, 0 + adds r14 = 40, r32 + adds r20 = 48, r32 + .mmi + adds r16 = 64, r32 + adds r21 = 72, r32 + adds r19 = -2032, r12 + ;; + .mmb + ld8 r15 = [r14] + ld8 r17 = [r20] + nop 0 + .mii + .vframe r36 + mov r36 = r12 + .save ar.lc, r38 + mov r38 = ar.lc + mov r37 = r1 + ;; + .mmi + sub r15 = r15, r17 + ld8 r14 = [r16] + .save rp, r34 + mov r34 = b0 + .body + .mmi + nop 0 + ;; + nop 0 + shr.u r15 = r15, 3 + .mmi + sub r14 = r14, r21 + ;; + nop 0 + shr.u r18 = r14, 3 + .mmb + nop 0 + cmp4.ge p6, p7 = 8, r15 + (p6) br.cond.dptk .L2 + .mii + sub r14 = 8, r15 + addl r16 = 8, r0 + ;; + andcm r14 = -1, r14 + ;; + .mii + nop 0 + addp4 r14 = r14, r0 + ;; + mov ar.lc = r14 +.L4: + .mii + nop 0 + sxt4 r14 = r16 + adds r16 = 1, r16 + ;; + .mmi + shladd r14 = r14, 3, r0 + ;; + add r15 = r17, r14 + add r14 = r19, r14 + ;; + .mmb + adds r14 = -64, r14 + ld8 r15 = [r15] + nop 0 + ;; + .mfb + st8 [r14] = r15 + nop 0 + br.cloop.sptk.few .L4 +.L2: + .mmi + adds r33 = 24, r32 + ;; + ld4 r15 = [r33] + nop 0 + ;; + .mii + nop 0 + cmp4.ne p6, p7 = 16, r15 + ;; + (p7) adds r14 = 16, r32 + ;; + .mfi + (p7) ld8 r8 = [r14] + nop 0 + cmp4.ge p6, p7 = 0, r18 + .mfb + adds r14 = 80, r32 + nop 0 + (p6) br.cond.dpnt .L7 + ;; + .mmb + nop 0 + cmp4.ge p6, p7 = 1, r18 + nop 0 + .mfb + ldfd f8 = [r21] + nop 0 + (p6) br.cond.dpnt .L7 + ;; + .mmb + nop 0 + cmp4.ge p6, p7 = 2, r18 + nop 0 + .mfb + ldfd f9 = [r14] + nop 0 + (p7) br.cond.dptk .L71 + ;; +.L7: + .mib + nop 0 + cmp4.ne p6, p7 = 13, r15 + (p7) br.cond.dpnt .L72 + ;; +.L16: + .mib + cmp4.ne p6, p7 = 14, r15 + adds r15 = 8, r32 + (p7) br.cond.dpnt .L73 + .mmb + nop 0 + ld8 r14 = [r20] + nop 0 + ;; + .mmi + ld8 r15 = [r15] + adds r16 = 8, r14 + adds r17 = 16, r14 + .mmi + adds r18 = 24, r14 + adds r19 = 32, r14 + adds r20 = 40, r14 + .mmi + nop 0 + adds r21 = 48, r14 + adds r22 = 56, r14 + .mmi + ld8 r39 = [r14] + ;; + ld8 r14 = [r15], 8 + nop 0 + .mii + ld8 r40 = [r16] + nop 0 + ;; + mov b6 = r14 + .mmb + ld8 r1 = [r15] + ld8 r41 = [r17] + nop 0 + .mmb + ld8 r42 = [r18] + ld8 r43 = [r19] + nop 0 + .mmb + ld8 r44 = [r20] + ld8 r45 = [r21] + nop 0 + .mbb + ld8 r46 = [r22] + nop 0 + br.call.sptk.many b0 = b6 + ;; + .mmi + mov r1 = r37 + ld4 r14 = [r33] + mov r28 = r8 + ;; + .mfb + cmp4.eq p6, p7 = 1, r14 + nop 0 + (p6) br.cond.dpnt .L18 + ;; + .mib + nop 0 + cmp4.ne p6, p7 = 0, r14 + (p7) br.cond.dptk .L69 + ;; + .mfb + cmp4.ne p6, p7 = 2, r14 + nop 0 + (p7) br.cond.dpnt .L65 + ;; + .mfb + cmp4.ne p6, p7 = 3, r14 + nop 0 + (p7) br.cond.dpnt .L65 + ;; + .mfb + cmp4.ne p6, p7 = 4, r14 + nop 0 + (p7) br.cond.dpnt .L65 + ;; + .mfb + cmp4.ne p6, p7 = 5, r14 + nop 0 + (p7) br.cond.dpnt .L66 + ;; + .mfb + cmp4.ne p6, p7 = 6, r14 + nop 0 + (p7) br.cond.dpnt .L66 + ;; + .mfb + cmp4.ne p6, p7 = 7, r14 + nop 0 + (p7) br.cond.dpnt .L67 + ;; + .mfb + cmp4.ne p6, p7 = 8, r14 + nop 0 + (p7) br.cond.dpnt .L67 + ;; + .mii + nop 0 + cmp4.ne p6, p7 = 9, r14 + ;; + nop 0 + .mfb + cmp4.ne.and.orcm p6, p7 = 11, r14 + nop 0 + (p7) br.cond.dptk .L69 + ;; + .mii + nop 0 + cmp4.ne p6, p7 = 10, r14 + ;; + nop 0 + .mfb + cmp4.ne.and.orcm p6, p7 = 12, r14 + nop 0 + (p7) br.cond.dptk .L69 + ;; + .mfb + cmp4.ne p6, p7 = 15, r14 + nop 0 + (p7) br.cond.dpnt .L69 + ;; + .mib + nop 0 + cmp4.ne p6, p7 = 16, r14 + (p6) br.cond.dptk .L18 + .mmi + ld4 r14 = [r32] + ;; + nop 0 + tbit.z p6, p7 = r14, 9 + .mfb + adds r14 = 32, r32 + nop 0 + (p6) br.cond.dpnt .L18 + ;; + .mmi + ld8 r19 = [r14] + ;; + adds r14 = -1, r19 + nop 0 + ;; + .mib + cmp.ltu p6, p7 = 31, r14 + adds r14 = 16, r32 + (p6) br.cond.dpnt .L18 + ;; + .mii + ld8 r14 = [r14] + cmp.ltu p6, p7 = 8, r19 + ;; + and r17 = 7, r14 + .mii + nop 0 + and r27 = -8, r14 + ;; + nop 0 + .mfb + add r23 = r19, r17 + nop 0 + (p6) br.cond.dptk .L47 + ;; + .mib + nop 0 + cmp.ltu p6, p7 = 8, r23 + (p6) br.cond.dptk .L49 + .mmi + shladd r15 = r23, 3, r0 + addl r14 = 2, r0 + shladd r18 = r17, 3, r0 + .mmi + ld8 r17 = [r27] + ;; + adds r15 = -1, r15 + nop 0 + ;; + .mii + nop 0 + sxt4 r15 = r15 + ;; + shl r14 = r14, r15 + .mii + addl r15 = 1, r0 + shl r16 = r8, r18 + ;; + shl r15 = r15, r18 + .mii + nop 0 + xor r16 = r16, r17 + ;; + sub r14 = r14, r15 + ;; + .mmi + and r14 = r16, r14 + ;; + xor r17 = r14, r17 + nop 0 + ;; + .mfb + st8 [r27] = r17 + nop 0 + nop 0 +.L18: + .mfi + mov r8 = r0 + nop 0 + mov b0 = r34 + .mmi + nop 0 + .label_state 1 + .restore sp + mov r12 = r36 + mov ar.pfs = r35 + .mib + nop 0 + mov ar.lc = r38 + br.ret.sptk.many b0 +.L71: + .body + .copy_state 1 + .mfi + adds r14 = 88, r32 + nop 0 + cmp4.ge p6, p7 = 3, r18 + ;; + .mfb + ldfd f10 = [r14] + nop 0 + (p6) br.cond.dptk .L7 + .mfi + adds r14 = 96, r32 + nop 0 + cmp4.ge p6, p7 = 4, r18 + ;; + .mfb + ldfd f11 = [r14] + nop 0 + (p6) br.cond.dptk .L7 + .mfi + adds r14 = 104, r32 + nop 0 + cmp4.ge p6, p7 = 5, r18 + ;; + .mfb + ldfd f12 = [r14] + nop 0 + (p6) br.cond.dptk .L7 + .mfi + adds r14 = 112, r32 + nop 0 + cmp4.ge p6, p7 = 6, r18 + ;; + .mfb + ldfd f13 = [r14] + nop 0 + (p6) br.cond.dptk .L7 + .mii + adds r14 = 120, r32 + cmp4.ge p6, p7 = 7, r18 + ;; + nop 0 + .mii + ldfd f14 = [r14] + (p7) adds r14 = 128, r32 + ;; + nop 0 + .mmb + (p7) ldfd f15 = [r14] + cmp4.ne p6, p7 = 13, r15 + (p6) br.cond.dptk .L16 +.L72: + .mmb + adds r16 = 8, r32 + adds r15 = 16, r32 + nop 0 + .mfi + ld8 r14 = [r20] + nop 0 + mov ar.lc = r38 + ;; + .mmi + ld8 r33 = [r15] + ld8 r15 = [r16] + adds r17 = 8, r14 + .mmi + adds r18 = 16, r14 + adds r19 = 24, r14 + adds r20 = 32, r14 + .mmi + adds r21 = 40, r14 + adds r22 = 48, r14 + adds r23 = 56, r14 + .mii + ld8 r39 = [r14] + nop 0 + ;; + nop 0 + .mmb + ld8 r14 = [r15], 8 + ld8 r40 = [r17] + nop 0 + ;; + .mmi + ld8 r1 = [r15] + ld8 r41 = [r18] + mov b6 = r14 + .mmb + ld8 r42 = [r19] + ld8 r43 = [r20] + nop 0 + .mmb + ld8 r44 = [r21] + ld8 r45 = [r22] + nop 0 + .mbb + ld8 r46 = [r23] + nop 0 + br.call.sptk.many b0 = b6 + ;; + .mmb + .label_state 2 + .restore sp + mov r12 = r36 + mov r8 = r0 + nop 0 + .mmi + mov r1 = r37 + stfs [r33] = f8 + mov b0 = r34 + .mib + nop 0 + mov ar.pfs = r35 + br.ret.sptk.many b0 + ;; +.L69: + .body + .copy_state 2 + .mmi + adds r14 = 16, r32 + mov r8 = r0 + mov b0 = r34 + .mmi + .label_state 3 + .restore sp + mov r12 = r36 + ;; + ld8 r14 = [r14] + mov ar.pfs = r35 + .mii + nop 0 + mov ar.lc = r38 + ;; + nop 0 + .mfb + st8 [r14] = r28 + nop 0 + br.ret.sptk.many b0 +.L73: + .body + .copy_state 3 + .mmb + adds r16 = 8, r32 + adds r15 = 16, r32 + nop 0 + .mfi + ld8 r14 = [r20] + nop 0 + mov ar.lc = r38 + ;; + .mmi + ld8 r33 = [r15] + ld8 r15 = [r16] + adds r17 = 8, r14 + .mmi + adds r18 = 16, r14 + adds r19 = 24, r14 + adds r20 = 32, r14 + .mmi + adds r21 = 40, r14 + adds r22 = 48, r14 + adds r23 = 56, r14 + .mii + ld8 r39 = [r14] + nop 0 + ;; + nop 0 + .mmb + ld8 r14 = [r15], 8 + ld8 r40 = [r17] + nop 0 + ;; + .mmi + ld8 r1 = [r15] + ld8 r41 = [r18] + mov b6 = r14 + .mmb + ld8 r42 = [r19] + ld8 r43 = [r20] + nop 0 + .mmb + ld8 r44 = [r21] + ld8 r45 = [r22] + nop 0 + .mbb + ld8 r46 = [r23] + nop 0 + br.call.sptk.many b0 = b6 + ;; + .mmb + .label_state 4 + .restore sp + mov r12 = r36 + mov r8 = r0 + nop 0 + .mmi + mov r1 = r37 + stfd [r33] = f8 + mov b0 = r34 + .mib + nop 0 + mov ar.pfs = r35 + br.ret.sptk.many b0 + ;; +.L65: + .body + .copy_state 4 + .mmi + adds r14 = 16, r32 + mov r8 = r0 + mov b0 = r34 + .mmi + .label_state 5 + .restore sp + mov r12 = r36 + ;; + ld8 r14 = [r14] + mov ar.pfs = r35 + .mii + nop 0 + mov ar.lc = r38 + ;; + nop 0 + .mfb + st1 [r14] = r28 + nop 0 + br.ret.sptk.many b0 +.L66: + .body + .copy_state 5 + .mmi + adds r14 = 16, r32 + mov r8 = r0 + mov b0 = r34 + .mmi + .label_state 6 + .restore sp + mov r12 = r36 + ;; + ld8 r14 = [r14] + mov ar.pfs = r35 + .mii + nop 0 + mov ar.lc = r38 + ;; + nop 0 + .mfb + st2 [r14] = r28 + nop 0 + br.ret.sptk.many b0 +.L67: + .body + .copy_state 6 + .mmi + adds r14 = 16, r32 + mov r8 = r0 + mov b0 = r34 + .mmi + .label_state 7 + .restore sp + mov r12 = r36 + ;; + ld8 r14 = [r14] + mov ar.pfs = r35 + .mii + nop 0 + mov ar.lc = r38 + ;; + nop 0 + .mfb + st4 [r14] = r28 + nop 0 + br.ret.sptk.many b0 +.L47: + .body + .copy_state 7 + .mib + nop 0 + cmp.ltu p6, p7 = 16, r19 + (p6) br.cond.dptk .L51 + ;; + .mfi + shladd r20 = r17, 3, r0 + nop 0 + addl r14 = -1, r0 + .mii + ld8 r16 = [r27] + cmp.ltu p6, p7 = 16, r23 + ;; + nop 0 + .mii + mov r19 = r20 + shl r15 = r8, r20 + shl r14 = r14, r20 + ;; + .mmi + xor r15 = r15, r16 + ;; + and r14 = r15, r14 + nop 0 + ;; + .mii + nop 0 + xor r16 = r14, r16 + ;; + nop 0 + .mfb + st8 [r27] = r16 + nop 0 + (p6) br.cond.dptk .L53 + .mmi + shladd r17 = r17, 2, r0 + shladd r16 = r23, 3, r0 + addl r15 = 2, r0 + .mmi + adds r19 = 8, r27 + .label_state 8 + .restore sp + mov r12 = r36 + shl r20 = r9, r20 + ;; + .mmb + sub r17 = 32, r17 + adds r16 = -65, r16 + nop 0 + .mii + ld8 r18 = [r19] + mov b0 = r34 + mov ar.pfs = r35 + ;; + .mii + nop 0 + sxt4 r16 = r16 + sxt4 r17 = r17 + .mib + nop 0 + mov ar.lc = r38 + nop 0 + ;; + .mii + nop 0 + shr r14 = r8, r17 + shl r15 = r15, r16 + .mmi + mov r8 = r0 + ;; + nop 0 + shr r14 = r14, r17 + .mii + nop 0 + adds r15 = -1, r15 + ;; + or r14 = r20, r14 + ;; + .mii + nop 0 + xor r14 = r14, r18 + ;; + and r15 = r14, r15 + ;; + .mii + nop 0 + xor r18 = r15, r18 + ;; + nop 0 + .mfb + st8 [r19] = r18 + nop 0 + br.ret.sptk.many b0 +.L49: + .body + .copy_state 8 + .mmi + shladd r14 = r23, 3, r0 + addl r15 = 2, r0 + mov b0 = r34 + .mmi + shladd r18 = r17, 3, r0 + ld8 r19 = [r27] + .label_state 9 + .restore sp + mov r12 = r36 + ;; + .mmi + adds r14 = -65, r14 + sub r16 = 64, r18 + mov ar.pfs = r35 + .mii + nop 0 + mov ar.lc = r38 + ;; + sxt4 r14 = r14 + .mii + nop 0 + shl r17 = r8, r18 + ;; + shl r15 = r15, r14 + .mii + addl r14 = -1, r0 + sxt4 r16 = r16 + ;; + shr r16 = r8, r16 + .mii + mov r8 = r0 + xor r17 = r17, r19 + shl r14 = r14, r18 + .mii + nop 0 + adds r15 = -1, r15 + ;; + and r14 = r17, r14 + ;; + .mmi + xor r19 = r14, r19 + ;; + st8 [r27] = r19, 8 + nop 0 + ;; + .mmi + ld8 r14 = [r27] + ;; + xor r16 = r16, r14 + nop 0 + ;; + .mmi + and r15 = r16, r15 + ;; + xor r14 = r15, r14 + nop 0 + ;; + .mfb + st8 [r27] = r14 + nop 0 + br.ret.sptk.many b0 +.L53: + .body + .copy_state 9 + .mmi + shladd r15 = r23, 3, r0 + addl r14 = 2, r0 + sub r17 = 64, r20 + .mmi + adds r21 = 16, r27 + adds r20 = 8, r27 + shl r19 = r9, r19 + ;; + .mii + adds r15 = -129, r15 + mov b0 = r34 + sxt4 r17 = r17 + .mmi + .label_state 10 + .restore sp + mov r12 = r36 + nop 0 + mov ar.pfs = r35 + ;; + .mii + nop 0 + shr r18 = r9, r17 + sxt4 r15 = r15 + ;; + .mii + nop 0 + shl r14 = r14, r15 + shr r16 = r8, r17 + .mmi + ld8 r15 = [r21] + mov r8 = r0 + mov ar.lc = r38 + ;; + .mii + xor r18 = r18, r15 + adds r14 = -1, r14 + or r16 = r19, r16 + ;; + .mmb + and r14 = r18, r14 + st8 [r20] = r16 + nop 0 + ;; + .mii + nop 0 + xor r15 = r14, r15 + ;; + nop 0 + .mfb + st8 [r21] = r15 + nop 0 + br.ret.sptk.many b0 +.L51: + .body + .copy_state 10 + .mib + nop 0 + cmp.ltu p6, p7 = 24, r19 + (p6) br.cond.dptk .L55 + ;; + .mfi + shladd r19 = r17, 3, r0 + nop 0 + addl r14 = -1, r0 + .mii + ld8 r16 = [r27] + cmp.ltu p6, p7 = 24, r23 + ;; + nop 0 + .mii + mov r29 = r19 + shl r15 = r8, r19 + shl r14 = r14, r19 + ;; + .mmi + xor r15 = r15, r16 + ;; + and r14 = r15, r14 + nop 0 + ;; + .mii + nop 0 + xor r16 = r14, r16 + ;; + nop 0 + .mfb + st8 [r27] = r16 + nop 0 + (p6) br.cond.dptk .L57 + .mmi + shladd r14 = r17, 2, r0 + shladd r18 = r23, 3, r0 + addl r16 = 2, r0 + .mmi + adds r22 = 16, r27 + adds r20 = 8, r27 + shl r21 = r10, r29 + ;; + .mmi + sub r14 = 32, r14 + adds r18 = -65, r18 + mov b0 = r34 + .mii + .label_state 11 + .restore sp + mov r12 = r36 + shl r19 = r9, r29 + mov ar.pfs = r35 + ;; + .mii + nop 0 + sxt4 r18 = r18 + sxt4 r14 = r14 + .mib + nop 0 + mov ar.lc = r38 + nop 0 + ;; + .mii + nop 0 + shr r15 = r9, r14 + shr r17 = r8, r14 + .mii + mov r8 = r0 + nop 0 + shl r16 = r16, r18 + ;; + .mii + nop 0 + shr r15 = r15, r14 + shr r17 = r17, r14 + .mii + ld8 r14 = [r22] + nop 0 + adds r16 = -1, r16 + ;; + .mii + or r15 = r21, r15 + or r17 = r19, r17 + ;; + xor r15 = r15, r14 + .mmi + st8 [r20] = r17 + ;; + and r16 = r15, r16 + nop 0 + ;; + .mii + nop 0 + xor r14 = r16, r14 + ;; + nop 0 + .mfb + st8 [r22] = r14 + nop 0 + br.ret.sptk.many b0 +.L55: + .body + .copy_state 11 + .mfi + shladd r18 = r17, 3, r0 + nop 0 + addl r14 = -1, r0 + .mii + ld8 r16 = [r27] + cmp.ltu p6, p7 = 32, r23 + ;; + nop 0 + .mii + mov r29 = r18 + shl r15 = r8, r18 + shl r14 = r14, r18 + ;; + .mmi + xor r15 = r15, r16 + ;; + and r14 = r15, r14 + nop 0 + ;; + .mii + nop 0 + xor r16 = r14, r16 + ;; + nop 0 + .mfb + st8 [r27] = r16 + nop 0 + (p6) br.cond.dptk .L59 + .mmi + shladd r14 = r17, 2, r0 + addl r15 = 2, r0 + shl r20 = r10, r18 + .mmi + shladd r18 = r23, 3, r0 + adds r23 = 24, r27 + shl r19 = r9, r29 + ;; + .mmi + sub r14 = 32, r14 + adds r18 = -65, r18 + mov b0 = r34 + .mmi + adds r21 = 8, r27 + adds r22 = 16, r27 + .label_state 12 + .restore sp + mov r12 = r36 + .mii + nop 0 + mov ar.pfs = r35 + ;; + sxt4 r18 = r18 + .mii + nop 0 + sxt4 r14 = r14 + mov ar.lc = r38 + ;; + .mii + nop 0 + shr r16 = r8, r14 + shr r17 = r9, r14 + .mii + mov r8 = r0 + nop 0 + shl r15 = r15, r18 + ;; + .mii + nop 0 + shr r16 = r16, r14 + shr r17 = r17, r14 + .mii + ld8 r14 = [r23] + adds r15 = -1, r15 + ;; + or r16 = r19, r16 + .mmi + or r17 = r20, r17 + ;; + st8 [r21] = r16 + xor r16 = r14, r16 + .mmi + st8 [r22] = r17 + ;; + and r15 = r16, r15 + nop 0 + ;; + .mii + nop 0 + xor r14 = r15, r14 + ;; + nop 0 + .mfb + st8 [r23] = r14 + nop 0 + br.ret.sptk.many b0 +.L57: + .body + .copy_state 12 + .mmi + shladd r14 = r23, 3, r0 + addl r15 = 2, r0 + sub r16 = 64, r19 + .mmi + adds r24 = 24, r27 + adds r22 = 8, r27 + shl r21 = r10, r29 + ;; + .mii + adds r14 = -129, r14 + sxt4 r16 = r16 + shl r20 = r9, r29 + .mmi + adds r23 = 16, r27 + .label_state 13 + .restore sp + mov r12 = r36 + mov b0 = r34 + ;; + .mii + nop 0 + shr r18 = r10, r16 + sxt4 r14 = r14 + ;; + .mii + nop 0 + shl r15 = r15, r14 + shr r19 = r8, r16 + .mmi + ld8 r14 = [r24] + mov r8 = r0 + mov ar.pfs = r35 + .mib + nop 0 + shr r17 = r9, r16 + nop 0 + ;; + .mii + xor r18 = r18, r14 + mov ar.lc = r38 + adds r15 = -1, r15 + .mmi + or r19 = r20, r19 + ;; + and r15 = r18, r15 + or r17 = r21, r17 + .mii + st8 [r22] = r19 + nop 0 + ;; + xor r14 = r15, r14 + .mmb + nop 0 + st8 [r23] = r17 + nop 0 + ;; + .mfb + st8 [r24] = r14 + nop 0 + br.ret.sptk.many b0 +.L59: + .body + .copy_state 13 + .mmi + shladd r16 = r23, 3, r0 + addl r15 = 2, r0 + sub r14 = 64, r18 + .mmi + adds r24 = 8, r27 + adds r25 = 16, r27 + adds r26 = 24, r27 + ;; + .mmi + nop 0 + adds r16 = -129, r16 + sxt4 r14 = r14 + .mmi + adds r27 = 32, r27 + .restore sp + mov r12 = r36 + shl r23 = r11, r29 + ;; + .mii + nop 0 + sxt4 r16 = r16 + shr r22 = r11, r14 + ;; + .mii + nop 0 + shl r15 = r15, r16 + shr r17 = r8, r14 + .mii + mov r8 = r0 + shr r18 = r9, r14 + shr r19 = r10, r14 + .mii + ld8 r14 = [r27] + shl r20 = r9, r29 + shl r21 = r10, r29 + ;; + .mmi + xor r22 = r22, r14 + adds r15 = -1, r15 + mov b0 = r34 + ;; + .mmi + and r15 = r22, r15 + or r19 = r23, r19 + mov ar.pfs = r35 + .mmi + or r17 = r20, r17 + or r18 = r21, r18 + mov ar.lc = r38 + ;; + .mmb + xor r14 = r15, r14 + st8 [r24] = r17 + nop 0 + .mmb + st8 [r25] = r18 + st8 [r26] = r19 + nop 0 + ;; + .mfb + st8 [r27] = r14 + nop 0 + br.ret.sptk.many b0 + .endp avcall_call# + .ident "GCC: (GNU) 4.0.1" diff --git a/avcall/avcall-ia64-macro.S b/avcall/avcall-ia64-macro.S new file mode 100644 index 0000000..e0da01a --- /dev/null +++ b/avcall/avcall-ia64-macro.S @@ -0,0 +1,1177 @@ + .file "avcall-ia64.c" + .pred.safe_across_calls p1-p5,p16-p63 + .text + .align 16 + .global avcall_call# + .proc avcall_call# +avcall_call: + .prologue 14, 34 + .mmi + .save ar.pfs, r35 + alloc r35 = ar.pfs, 1, 6, 8, 0 + adds r14 = 40, r32 + adds r20 = 48, r32 + .mmi + adds r16 = 64, r32 + adds r21 = 72, r32 + adds r19 = -2032, r12 + ;; + .mmb + ld8 r15 = [r14] + ld8 r17 = [r20] + nop 0 + .mii + .vframe r36 + mov r36 = r12 + .save ar.lc, r38 + mov r38 = ar.lc + mov r37 = r1 + ;; + .mmi + sub r15 = r15, r17 + ld8 r14 = [r16] + .save rp, r34 + mov r34 = b0 + .body + .mmi + nop 0 + ;; + nop 0 + shr.u r15 = r15, 3 + .mmi + sub r14 = r14, r21 + ;; + nop 0 + shr.u r18 = r14, 3 + .mmb + nop 0 + cmp4.ge p6, p7 = 8, r15 + (p6) br.cond.dptk .L2 + .mii + sub r14 = 8, r15 + addl r16 = 8, r0 + ;; + andcm r14 = -1, r14 + ;; + .mii + nop 0 + addp4 r14 = r14, r0 + ;; + mov ar.lc = r14 +.L4: + .mii + nop 0 + sxt4 r14 = r16 + adds r16 = 1, r16 + ;; + .mmi + shladd r14 = r14, 3, r0 + ;; + add r15 = r17, r14 + add r14 = r19, r14 + ;; + .mmb + adds r14 = -64, r14 + ld8 r15 = [r15] + nop 0 + ;; + .mfb + st8 [r14] = r15 + nop 0 + br.cloop.sptk.few .L4 +.L2: + .mmi + adds r33 = 24, r32 + ;; + ld4 r15 = [r33] + nop 0 + ;; + .mii + nop 0 + cmp4.ne p6, p7 = 16, r15 + ;; + (p7) adds r14 = 16, r32 + ;; + .mfi + (p7) ld8 r8 = [r14] + nop 0 + cmp4.ge p6, p7 = 0, r18 + .mfb + adds r14 = 80, r32 + nop 0 + (p6) br.cond.dpnt .L7 + ;; + .mmb + nop 0 + cmp4.ge p6, p7 = 1, r18 + nop 0 + .mfb + ldfd f8 = [r21] + nop 0 + (p6) br.cond.dpnt .L7 + ;; + .mmb + nop 0 + cmp4.ge p6, p7 = 2, r18 + nop 0 + .mfb + ldfd f9 = [r14] + nop 0 + (p7) br.cond.dptk .L71 + ;; +.L7: + .mib + nop 0 + cmp4.ne p6, p7 = 13, r15 + (p7) br.cond.dpnt .L72 + ;; +.L16: + .mib + cmp4.ne p6, p7 = 14, r15 + adds r15 = 8, r32 + (p7) br.cond.dpnt .L73 + .mmb + nop 0 + ld8 r14 = [r20] + nop 0 + ;; + .mmi + ld8 r15 = [r15] + adds r16 = 8, r14 + adds r17 = 16, r14 + .mmi + adds r18 = 24, r14 + adds r19 = 32, r14 + adds r20 = 40, r14 + .mmi + nop 0 + adds r21 = 48, r14 + adds r22 = 56, r14 + .mmi + ld8 r39 = [r14] + ;; + ld8 r14 = [r15], 8 + nop 0 + .mii + ld8 r40 = [r16] + nop 0 + ;; + mov b6 = r14 + .mmb + ld8 r1 = [r15] + ld8 r41 = [r17] + nop 0 + .mmb + ld8 r42 = [r18] + ld8 r43 = [r19] + nop 0 + .mmb + ld8 r44 = [r20] + ld8 r45 = [r21] + nop 0 + .mbb + ld8 r46 = [r22] + nop 0 + br.call.sptk.many b0 = b6 + ;; + .mmi + mov r1 = r37 + ld4 r14 = [r33] + mov r28 = r8 + ;; + .mfb + cmp4.eq p6, p7 = 1, r14 + nop 0 + (p6) br.cond.dpnt .L18 + ;; + .mib + nop 0 + cmp4.ne p6, p7 = 0, r14 + (p7) br.cond.dptk .L69 + ;; + .mfb + cmp4.ne p6, p7 = 2, r14 + nop 0 + (p7) br.cond.dpnt .L65 + ;; + .mfb + cmp4.ne p6, p7 = 3, r14 + nop 0 + (p7) br.cond.dpnt .L65 + ;; + .mfb + cmp4.ne p6, p7 = 4, r14 + nop 0 + (p7) br.cond.dpnt .L65 + ;; + .mfb + cmp4.ne p6, p7 = 5, r14 + nop 0 + (p7) br.cond.dpnt .L66 + ;; + .mfb + cmp4.ne p6, p7 = 6, r14 + nop 0 + (p7) br.cond.dpnt .L66 + ;; + .mfb + cmp4.ne p6, p7 = 7, r14 + nop 0 + (p7) br.cond.dpnt .L67 + ;; + .mfb + cmp4.ne p6, p7 = 8, r14 + nop 0 + (p7) br.cond.dpnt .L67 + ;; + .mii + nop 0 + cmp4.ne p6, p7 = 9, r14 + ;; + nop 0 + .mfb + cmp4.ne.and.orcm p6, p7 = 11, r14 + nop 0 + (p7) br.cond.dptk .L69 + ;; + .mii + nop 0 + cmp4.ne p6, p7 = 10, r14 + ;; + nop 0 + .mfb + cmp4.ne.and.orcm p6, p7 = 12, r14 + nop 0 + (p7) br.cond.dptk .L69 + ;; + .mfb + cmp4.ne p6, p7 = 15, r14 + nop 0 + (p7) br.cond.dpnt .L69 + ;; + .mib + nop 0 + cmp4.ne p6, p7 = 16, r14 + (p6) br.cond.dptk .L18 + .mmi + ld4 r14 = [r32] + ;; + nop 0 + tbit.z p6, p7 = r14, 9 + .mfb + adds r14 = 32, r32 + nop 0 + (p6) br.cond.dpnt .L18 + ;; + .mmi + ld8 r19 = [r14] + ;; + adds r14 = -1, r19 + nop 0 + ;; + .mib + cmp.ltu p6, p7 = 31, r14 + adds r14 = 16, r32 + (p6) br.cond.dpnt .L18 + ;; + .mii + ld8 r14 = [r14] + cmp.ltu p6, p7 = 8, r19 + ;; + and r17 = 7, r14 + .mii + nop 0 + and r27 = -8, r14 + ;; + nop 0 + .mfb + add r23 = r19, r17 + nop 0 + (p6) br.cond.dptk .L47 + ;; + .mib + nop 0 + cmp.ltu p6, p7 = 8, r23 + (p6) br.cond.dptk .L49 + .mmi + shladd r15 = r23, 3, r0 + addl r14 = 2, r0 + shladd r18 = r17, 3, r0 + .mmi + ld8 r17 = [r27] + ;; + adds r15 = -1, r15 + nop 0 + ;; + .mii + nop 0 + sxt4 r15 = r15 + ;; + shl r14 = r14, r15 + .mii + addl r15 = 1, r0 + shl r16 = r8, r18 + ;; + shl r15 = r15, r18 + .mii + nop 0 + xor r16 = r16, r17 + ;; + sub r14 = r14, r15 + ;; + .mmi + and r14 = r16, r14 + ;; + xor r17 = r14, r17 + nop 0 + ;; + .mfb + st8 [r27] = r17 + nop 0 + nop 0 +.L18: + .mfi + mov r8 = r0 + nop 0 + mov b0 = r34 + .mmi + nop 0 + .label_state 1 + .restore sp + mov r12 = r36 + mov ar.pfs = r35 + .mib + nop 0 + mov ar.lc = r38 + br.ret.sptk.many b0 +.L71: + .body + .copy_state 1 + .mfi + adds r14 = 88, r32 + nop 0 + cmp4.ge p6, p7 = 3, r18 + ;; + .mfb + ldfd f10 = [r14] + nop 0 + (p6) br.cond.dptk .L7 + .mfi + adds r14 = 96, r32 + nop 0 + cmp4.ge p6, p7 = 4, r18 + ;; + .mfb + ldfd f11 = [r14] + nop 0 + (p6) br.cond.dptk .L7 + .mfi + adds r14 = 104, r32 + nop 0 + cmp4.ge p6, p7 = 5, r18 + ;; + .mfb + ldfd f12 = [r14] + nop 0 + (p6) br.cond.dptk .L7 + .mfi + adds r14 = 112, r32 + nop 0 + cmp4.ge p6, p7 = 6, r18 + ;; + .mfb + ldfd f13 = [r14] + nop 0 + (p6) br.cond.dptk .L7 + .mii + adds r14 = 120, r32 + cmp4.ge p6, p7 = 7, r18 + ;; + nop 0 + .mii + ldfd f14 = [r14] + (p7) adds r14 = 128, r32 + ;; + nop 0 + .mmb + (p7) ldfd f15 = [r14] + cmp4.ne p6, p7 = 13, r15 + (p6) br.cond.dptk .L16 +.L72: + .mmb + adds r16 = 8, r32 + adds r15 = 16, r32 + nop 0 + .mfi + ld8 r14 = [r20] + nop 0 + mov ar.lc = r38 + ;; + .mmi + ld8 r33 = [r15] + ld8 r15 = [r16] + adds r17 = 8, r14 + .mmi + adds r18 = 16, r14 + adds r19 = 24, r14 + adds r20 = 32, r14 + .mmi + adds r21 = 40, r14 + adds r22 = 48, r14 + adds r23 = 56, r14 + .mii + ld8 r39 = [r14] + nop 0 + ;; + nop 0 + .mmb + ld8 r14 = [r15], 8 + ld8 r40 = [r17] + nop 0 + ;; + .mmi + ld8 r1 = [r15] + ld8 r41 = [r18] + mov b6 = r14 + .mmb + ld8 r42 = [r19] + ld8 r43 = [r20] + nop 0 + .mmb + ld8 r44 = [r21] + ld8 r45 = [r22] + nop 0 + .mbb + ld8 r46 = [r23] + nop 0 + br.call.sptk.many b0 = b6 + ;; + .mmb + .label_state 2 + .restore sp + mov r12 = r36 + mov r8 = r0 + nop 0 + .mmi + mov r1 = r37 + stfs [r33] = f8 + mov b0 = r34 + .mib + nop 0 + mov ar.pfs = r35 + br.ret.sptk.many b0 + ;; +.L69: + .body + .copy_state 2 + .mmi + adds r14 = 16, r32 + mov r8 = r0 + mov b0 = r34 + .mmi + .label_state 3 + .restore sp + mov r12 = r36 + ;; + ld8 r14 = [r14] + mov ar.pfs = r35 + .mii + nop 0 + mov ar.lc = r38 + ;; + nop 0 + .mfb + st8 [r14] = r28 + nop 0 + br.ret.sptk.many b0 +.L73: + .body + .copy_state 3 + .mmb + adds r16 = 8, r32 + adds r15 = 16, r32 + nop 0 + .mfi + ld8 r14 = [r20] + nop 0 + mov ar.lc = r38 + ;; + .mmi + ld8 r33 = [r15] + ld8 r15 = [r16] + adds r17 = 8, r14 + .mmi + adds r18 = 16, r14 + adds r19 = 24, r14 + adds r20 = 32, r14 + .mmi + adds r21 = 40, r14 + adds r22 = 48, r14 + adds r23 = 56, r14 + .mii + ld8 r39 = [r14] + nop 0 + ;; + nop 0 + .mmb + ld8 r14 = [r15], 8 + ld8 r40 = [r17] + nop 0 + ;; + .mmi + ld8 r1 = [r15] + ld8 r41 = [r18] + mov b6 = r14 + .mmb + ld8 r42 = [r19] + ld8 r43 = [r20] + nop 0 + .mmb + ld8 r44 = [r21] + ld8 r45 = [r22] + nop 0 + .mbb + ld8 r46 = [r23] + nop 0 + br.call.sptk.many b0 = b6 + ;; + .mmb + .label_state 4 + .restore sp + mov r12 = r36 + mov r8 = r0 + nop 0 + .mmi + mov r1 = r37 + stfd [r33] = f8 + mov b0 = r34 + .mib + nop 0 + mov ar.pfs = r35 + br.ret.sptk.many b0 + ;; +.L65: + .body + .copy_state 4 + .mmi + adds r14 = 16, r32 + mov r8 = r0 + mov b0 = r34 + .mmi + .label_state 5 + .restore sp + mov r12 = r36 + ;; + ld8 r14 = [r14] + mov ar.pfs = r35 + .mii + nop 0 + mov ar.lc = r38 + ;; + nop 0 + .mfb + st1 [r14] = r28 + nop 0 + br.ret.sptk.many b0 +.L66: + .body + .copy_state 5 + .mmi + adds r14 = 16, r32 + mov r8 = r0 + mov b0 = r34 + .mmi + .label_state 6 + .restore sp + mov r12 = r36 + ;; + ld8 r14 = [r14] + mov ar.pfs = r35 + .mii + nop 0 + mov ar.lc = r38 + ;; + nop 0 + .mfb + st2 [r14] = r28 + nop 0 + br.ret.sptk.many b0 +.L67: + .body + .copy_state 6 + .mmi + adds r14 = 16, r32 + mov r8 = r0 + mov b0 = r34 + .mmi + .label_state 7 + .restore sp + mov r12 = r36 + ;; + ld8 r14 = [r14] + mov ar.pfs = r35 + .mii + nop 0 + mov ar.lc = r38 + ;; + nop 0 + .mfb + st4 [r14] = r28 + nop 0 + br.ret.sptk.many b0 +.L47: + .body + .copy_state 7 + .mib + nop 0 + cmp.ltu p6, p7 = 16, r19 + (p6) br.cond.dptk .L51 + ;; + .mfi + shladd r20 = r17, 3, r0 + nop 0 + addl r14 = -1, r0 + .mii + ld8 r16 = [r27] + cmp.ltu p6, p7 = 16, r23 + ;; + nop 0 + .mii + mov r19 = r20 + shl r15 = r8, r20 + shl r14 = r14, r20 + ;; + .mmi + xor r15 = r15, r16 + ;; + and r14 = r15, r14 + nop 0 + ;; + .mii + nop 0 + xor r16 = r14, r16 + ;; + nop 0 + .mfb + st8 [r27] = r16 + nop 0 + (p6) br.cond.dptk .L53 + .mmi + shladd r17 = r17, 2, r0 + shladd r16 = r23, 3, r0 + addl r15 = 2, r0 + .mmi + adds r19 = 8, r27 + .label_state 8 + .restore sp + mov r12 = r36 + shl r20 = r9, r20 + ;; + .mmb + sub r17 = 32, r17 + adds r16 = -65, r16 + nop 0 + .mii + ld8 r18 = [r19] + mov b0 = r34 + mov ar.pfs = r35 + ;; + .mii + nop 0 + sxt4 r16 = r16 + sxt4 r17 = r17 + .mib + nop 0 + mov ar.lc = r38 + nop 0 + ;; + .mii + nop 0 + shr r14 = r8, r17 + shl r15 = r15, r16 + .mmi + mov r8 = r0 + ;; + nop 0 + shr r14 = r14, r17 + .mii + nop 0 + adds r15 = -1, r15 + ;; + or r14 = r20, r14 + ;; + .mii + nop 0 + xor r14 = r14, r18 + ;; + and r15 = r14, r15 + ;; + .mii + nop 0 + xor r18 = r15, r18 + ;; + nop 0 + .mfb + st8 [r19] = r18 + nop 0 + br.ret.sptk.many b0 +.L49: + .body + .copy_state 8 + .mmi + shladd r14 = r23, 3, r0 + addl r15 = 2, r0 + mov b0 = r34 + .mmi + shladd r18 = r17, 3, r0 + ld8 r19 = [r27] + .label_state 9 + .restore sp + mov r12 = r36 + ;; + .mmi + adds r14 = -65, r14 + sub r16 = 64, r18 + mov ar.pfs = r35 + .mii + nop 0 + mov ar.lc = r38 + ;; + sxt4 r14 = r14 + .mii + nop 0 + shl r17 = r8, r18 + ;; + shl r15 = r15, r14 + .mii + addl r14 = -1, r0 + sxt4 r16 = r16 + ;; + shr r16 = r8, r16 + .mii + mov r8 = r0 + xor r17 = r17, r19 + shl r14 = r14, r18 + .mii + nop 0 + adds r15 = -1, r15 + ;; + and r14 = r17, r14 + ;; + .mmi + xor r19 = r14, r19 + ;; + st8 [r27] = r19, 8 + nop 0 + ;; + .mmi + ld8 r14 = [r27] + ;; + xor r16 = r16, r14 + nop 0 + ;; + .mmi + and r15 = r16, r15 + ;; + xor r14 = r15, r14 + nop 0 + ;; + .mfb + st8 [r27] = r14 + nop 0 + br.ret.sptk.many b0 +.L53: + .body + .copy_state 9 + .mmi + shladd r15 = r23, 3, r0 + addl r14 = 2, r0 + sub r17 = 64, r20 + .mmi + adds r21 = 16, r27 + adds r20 = 8, r27 + shl r19 = r9, r19 + ;; + .mii + adds r15 = -129, r15 + mov b0 = r34 + sxt4 r17 = r17 + .mmi + .label_state 10 + .restore sp + mov r12 = r36 + nop 0 + mov ar.pfs = r35 + ;; + .mii + nop 0 + shr r18 = r9, r17 + sxt4 r15 = r15 + ;; + .mii + nop 0 + shl r14 = r14, r15 + shr r16 = r8, r17 + .mmi + ld8 r15 = [r21] + mov r8 = r0 + mov ar.lc = r38 + ;; + .mii + xor r18 = r18, r15 + adds r14 = -1, r14 + or r16 = r19, r16 + ;; + .mmb + and r14 = r18, r14 + st8 [r20] = r16 + nop 0 + ;; + .mii + nop 0 + xor r15 = r14, r15 + ;; + nop 0 + .mfb + st8 [r21] = r15 + nop 0 + br.ret.sptk.many b0 +.L51: + .body + .copy_state 10 + .mib + nop 0 + cmp.ltu p6, p7 = 24, r19 + (p6) br.cond.dptk .L55 + ;; + .mfi + shladd r19 = r17, 3, r0 + nop 0 + addl r14 = -1, r0 + .mii + ld8 r16 = [r27] + cmp.ltu p6, p7 = 24, r23 + ;; + nop 0 + .mii + mov r29 = r19 + shl r15 = r8, r19 + shl r14 = r14, r19 + ;; + .mmi + xor r15 = r15, r16 + ;; + and r14 = r15, r14 + nop 0 + ;; + .mii + nop 0 + xor r16 = r14, r16 + ;; + nop 0 + .mfb + st8 [r27] = r16 + nop 0 + (p6) br.cond.dptk .L57 + .mmi + shladd r14 = r17, 2, r0 + shladd r18 = r23, 3, r0 + addl r16 = 2, r0 + .mmi + adds r22 = 16, r27 + adds r20 = 8, r27 + shl r21 = r10, r29 + ;; + .mmi + sub r14 = 32, r14 + adds r18 = -65, r18 + mov b0 = r34 + .mii + .label_state 11 + .restore sp + mov r12 = r36 + shl r19 = r9, r29 + mov ar.pfs = r35 + ;; + .mii + nop 0 + sxt4 r18 = r18 + sxt4 r14 = r14 + .mib + nop 0 + mov ar.lc = r38 + nop 0 + ;; + .mii + nop 0 + shr r15 = r9, r14 + shr r17 = r8, r14 + .mii + mov r8 = r0 + nop 0 + shl r16 = r16, r18 + ;; + .mii + nop 0 + shr r15 = r15, r14 + shr r17 = r17, r14 + .mii + ld8 r14 = [r22] + nop 0 + adds r16 = -1, r16 + ;; + .mii + or r15 = r21, r15 + or r17 = r19, r17 + ;; + xor r15 = r15, r14 + .mmi + st8 [r20] = r17 + ;; + and r16 = r15, r16 + nop 0 + ;; + .mii + nop 0 + xor r14 = r16, r14 + ;; + nop 0 + .mfb + st8 [r22] = r14 + nop 0 + br.ret.sptk.many b0 +.L55: + .body + .copy_state 11 + .mfi + shladd r18 = r17, 3, r0 + nop 0 + addl r14 = -1, r0 + .mii + ld8 r16 = [r27] + cmp.ltu p6, p7 = 32, r23 + ;; + nop 0 + .mii + mov r29 = r18 + shl r15 = r8, r18 + shl r14 = r14, r18 + ;; + .mmi + xor r15 = r15, r16 + ;; + and r14 = r15, r14 + nop 0 + ;; + .mii + nop 0 + xor r16 = r14, r16 + ;; + nop 0 + .mfb + st8 [r27] = r16 + nop 0 + (p6) br.cond.dptk .L59 + .mmi + shladd r14 = r17, 2, r0 + addl r15 = 2, r0 + shl r20 = r10, r18 + .mmi + shladd r18 = r23, 3, r0 + adds r23 = 24, r27 + shl r19 = r9, r29 + ;; + .mmi + sub r14 = 32, r14 + adds r18 = -65, r18 + mov b0 = r34 + .mmi + adds r21 = 8, r27 + adds r22 = 16, r27 + .label_state 12 + .restore sp + mov r12 = r36 + .mii + nop 0 + mov ar.pfs = r35 + ;; + sxt4 r18 = r18 + .mii + nop 0 + sxt4 r14 = r14 + mov ar.lc = r38 + ;; + .mii + nop 0 + shr r16 = r8, r14 + shr r17 = r9, r14 + .mii + mov r8 = r0 + nop 0 + shl r15 = r15, r18 + ;; + .mii + nop 0 + shr r16 = r16, r14 + shr r17 = r17, r14 + .mii + ld8 r14 = [r23] + adds r15 = -1, r15 + ;; + or r16 = r19, r16 + .mmi + or r17 = r20, r17 + ;; + st8 [r21] = r16 + xor r16 = r14, r16 + .mmi + st8 [r22] = r17 + ;; + and r15 = r16, r15 + nop 0 + ;; + .mii + nop 0 + xor r14 = r15, r14 + ;; + nop 0 + .mfb + st8 [r23] = r14 + nop 0 + br.ret.sptk.many b0 +.L57: + .body + .copy_state 12 + .mmi + shladd r14 = r23, 3, r0 + addl r15 = 2, r0 + sub r16 = 64, r19 + .mmi + adds r24 = 24, r27 + adds r22 = 8, r27 + shl r21 = r10, r29 + ;; + .mii + adds r14 = -129, r14 + sxt4 r16 = r16 + shl r20 = r9, r29 + .mmi + adds r23 = 16, r27 + .label_state 13 + .restore sp + mov r12 = r36 + mov b0 = r34 + ;; + .mii + nop 0 + shr r18 = r10, r16 + sxt4 r14 = r14 + ;; + .mii + nop 0 + shl r15 = r15, r14 + shr r19 = r8, r16 + .mmi + ld8 r14 = [r24] + mov r8 = r0 + mov ar.pfs = r35 + .mib + nop 0 + shr r17 = r9, r16 + nop 0 + ;; + .mii + xor r18 = r18, r14 + mov ar.lc = r38 + adds r15 = -1, r15 + .mmi + or r19 = r20, r19 + ;; + and r15 = r18, r15 + or r17 = r21, r17 + .mii + st8 [r22] = r19 + nop 0 + ;; + xor r14 = r15, r14 + .mmb + nop 0 + st8 [r23] = r17 + nop 0 + ;; + .mfb + st8 [r24] = r14 + nop 0 + br.ret.sptk.many b0 +.L59: + .body + .copy_state 13 + .mmi + shladd r16 = r23, 3, r0 + addl r15 = 2, r0 + sub r14 = 64, r18 + .mmi + adds r24 = 8, r27 + adds r25 = 16, r27 + adds r26 = 24, r27 + ;; + .mmi + nop 0 + adds r16 = -129, r16 + sxt4 r14 = r14 + .mmi + adds r27 = 32, r27 + .restore sp + mov r12 = r36 + shl r23 = r11, r29 + ;; + .mii + nop 0 + sxt4 r16 = r16 + shr r22 = r11, r14 + ;; + .mii + nop 0 + shl r15 = r15, r16 + shr r17 = r8, r14 + .mii + mov r8 = r0 + shr r18 = r9, r14 + shr r19 = r10, r14 + .mii + ld8 r14 = [r27] + shl r20 = r9, r29 + shl r21 = r10, r29 + ;; + .mmi + xor r22 = r22, r14 + adds r15 = -1, r15 + mov b0 = r34 + ;; + .mmi + and r15 = r22, r15 + or r19 = r23, r19 + mov ar.pfs = r35 + .mmi + or r17 = r20, r17 + or r18 = r21, r18 + mov ar.lc = r38 + ;; + .mmb + xor r14 = r15, r14 + st8 [r24] = r17 + nop 0 + .mmb + st8 [r25] = r18 + st8 [r26] = r19 + nop 0 + ;; + .mfb + st8 [r27] = r14 + nop 0 + br.ret.sptk.many b0 + .endp avcall_call# + .ident "GCC: (GNU) 4.0.1" +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/avcall/avcall-ia64.c b/avcall/avcall-ia64.c new file mode 100644 index 0000000..e49b2b8 --- /dev/null +++ b/avcall/avcall-ia64.c @@ -0,0 +1,317 @@ +/** + Copyright 1993 Bill Triggs + Copyright 1995-2017 Bruno Haible + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . +**/ +/*---------------------------------------------------------------------- + !!! THIS ROUTINE MUST BE COMPILED gcc -O !!! + + Foreign function interface for a Intel IA-64 in little-endian mode with gcc. + + This calls a C function with an argument list built up using macros + defined in avcall.h. + + IA-64 64-bit Argument Passing Conventions: + + The argument sequence is mapped linearly on the registers r32,...,r39, + and continued on the stack, in [r12+16], [r12+24], ... + Items in this sequence are word-aligned. In gcc < 3.0, structures larger + than a single word are even two-word-aligned. + Integer/pointer arguments are passed in the allocated slots (registers + or stack slots). The first 8 float/double arguments are passed in + registers f8,...,f15 instead, but their slots are kept allocated. + Structure args are passed like multiple integer arguments; except that + structures consisting only of floats or only of doubles are passed like + multiple float arguments or multiple double arguments, respectively. + + Integers and pointers are returned in r8, floats and doubles in f8. + Structures consisting only of at most 8 floats or only of at most 8 doubles + are returned in f8,...,f15. Other than that, structures of size <= 32 bytes + are returned in r8,...,r11, as if these were 4 contiguous words in memory. + Larger structures are returned in memory; the caller passes the address + of the target memory area in r8, and it is returned unmodified in r8. + ----------------------------------------------------------------------*/ +#include "avcall-internal.h" + +#define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) + +register __avword* sret __asm__("r8"); /* structure return pointer */ +/*register __avword iret __asm__("r8");*/ +register __avword iret2 __asm__("r9"); +register __avword iret3 __asm__("r10"); +register __avword iret4 __asm__("r11"); +/*register float fret __asm__("f8");*/ +/*register double dret __asm__("f8");*/ +register double farg1 __asm__("f8"); +register double farg2 __asm__("f9"); +register double farg3 __asm__("f10"); +register double farg4 __asm__("f11"); +register double farg5 __asm__("f12"); +register double farg6 __asm__("f13"); +register double farg7 __asm__("f14"); +register double farg8 __asm__("f15"); + +int +avcall_call(av_alist* list) +{ + register __avword* sp __asm__("r12"); /* C names for registers */ + + __av_alist* l = &AV_LIST_INNER(list); + + __avword* argframe = (sp -= __AV_ALIST_WORDS) + 2; /* make room for argument list */ + int arglen = l->aptr - l->args; + int farglen = l->faptr - l->fargs; + __avword iret; + + { + int i; + for (i = 8; i < arglen; i++) /* push function args onto stack */ + argframe[i-8] = l->args[i]; + } + + /* struct return address */ + if (l->rtype == __AVstruct) + sret = l->raddr; + + /* put max. 8 double args in registers */ + if (farglen > 0) { + farg1 = l->fargs[0]; + if (farglen > 1) { + farg2 = l->fargs[1]; + if (farglen > 2) { + farg3 = l->fargs[2]; + if (farglen > 3) { + farg4 = l->fargs[3]; + if (farglen > 4) { + farg5 = l->fargs[4]; + if (farglen > 5) { + farg6 = l->fargs[5]; + if (farglen > 6) { + farg7 = l->fargs[6]; + if (farglen > 7) + farg8 = l->fargs[7]; + } + } + } + } + } + } + } + + /* call function, pass 8 integer and 8 double args in registers */ + if (l->rtype == __AVfloat) { + *(float*)l->raddr = (*(float(*)())l->func)(l->args[0], l->args[1], + l->args[2], l->args[3], + l->args[4], l->args[5], + l->args[6], l->args[7]); + } else + if (l->rtype == __AVdouble) { + *(double*)l->raddr = (*(double(*)())l->func)(l->args[0], l->args[1], + l->args[2], l->args[3], + l->args[4], l->args[5], + l->args[6], l->args[7]); + } else { + iret = (*l->func)(l->args[0], l->args[1], l->args[2], l->args[3], + l->args[4], l->args[5], l->args[6], l->args[7]); + + /* save return value */ + if (l->rtype == __AVvoid) { + } else + if (l->rtype == __AVword) { + RETURN(__avword, iret); + } else + if (l->rtype == __AVchar) { + RETURN(char, iret); + } else + if (l->rtype == __AVschar) { + RETURN(signed char, iret); + } else + if (l->rtype == __AVuchar) { + RETURN(unsigned char, iret); + } else + if (l->rtype == __AVshort) { + RETURN(short, iret); + } else + if (l->rtype == __AVushort) { + RETURN(unsigned short, iret); + } else + if (l->rtype == __AVint) { + RETURN(int, iret); + } else + if (l->rtype == __AVuint) { + RETURN(unsigned int, iret); + } else + if (l->rtype == __AVlong || l->rtype == __AVlonglong) { + RETURN(long, iret); + } else + if (l->rtype == __AVulong || l->rtype == __AVulonglong) { + RETURN(unsigned long, iret); + } else + /* see above + if (l->rtype == __AVfloat) { + } else + if (l->rtype == __AVdouble) { + } else + */ + if (l->rtype == __AVvoidp) { + RETURN(void*, iret); + } else + if (l->rtype == __AVstruct) { + if (l->flags & __AV_REGISTER_STRUCT_RETURN) { + /* Return structs of size <= 32 in registers. */ + if (l->rsize > 0 && l->rsize <= 32) { + void* raddr = l->raddr; + #if 0 /* Unoptimized */ + if (l->rsize >= 1) + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + if (l->rsize >= 2) + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + if (l->rsize >= 3) + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + if (l->rsize >= 4) + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + if (l->rsize >= 5) + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); + if (l->rsize >= 6) + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); + if (l->rsize >= 7) + ((unsigned char *)raddr)[6] = (unsigned char)(iret>>48); + if (l->rsize >= 8) + ((unsigned char *)raddr)[7] = (unsigned char)(iret>>56); + if (l->rsize >= 9) { + ((unsigned char *)raddr)[8] = (unsigned char)(iret2); + if (l->rsize >= 10) + ((unsigned char *)raddr)[9] = (unsigned char)(iret2>>8); + if (l->rsize >= 11) + ((unsigned char *)raddr)[10] = (unsigned char)(iret2>>16); + if (l->rsize >= 12) + ((unsigned char *)raddr)[11] = (unsigned char)(iret2>>24); + if (l->rsize >= 13) + ((unsigned char *)raddr)[12] = (unsigned char)(iret2>>32); + if (l->rsize >= 14) + ((unsigned char *)raddr)[13] = (unsigned char)(iret2>>40); + if (l->rsize >= 15) + ((unsigned char *)raddr)[14] = (unsigned char)(iret2>>48); + if (l->rsize >= 16) + ((unsigned char *)raddr)[15] = (unsigned char)(iret2>>56); + if (l->rsize >= 17) { + ((unsigned char *)raddr)[16] = (unsigned char)(iret3); + if (l->rsize >= 18) + ((unsigned char *)raddr)[17] = (unsigned char)(iret3>>8); + if (l->rsize >= 19) + ((unsigned char *)raddr)[18] = (unsigned char)(iret3>>16); + if (l->rsize >= 20) + ((unsigned char *)raddr)[19] = (unsigned char)(iret3>>24); + if (l->rsize >= 21) + ((unsigned char *)raddr)[20] = (unsigned char)(iret3>>32); + if (l->rsize >= 22) + ((unsigned char *)raddr)[21] = (unsigned char)(iret3>>40); + if (l->rsize >= 23) + ((unsigned char *)raddr)[22] = (unsigned char)(iret3>>48); + if (l->rsize >= 24) + ((unsigned char *)raddr)[23] = (unsigned char)(iret3>>56); + if (l->rsize >= 25) { + ((unsigned char *)raddr)[24] = (unsigned char)(iret4); + if (l->rsize >= 26) + ((unsigned char *)raddr)[25] = (unsigned char)(iret4>>8); + if (l->rsize >= 27) + ((unsigned char *)raddr)[26] = (unsigned char)(iret4>>16); + if (l->rsize >= 28) + ((unsigned char *)raddr)[27] = (unsigned char)(iret4>>24); + if (l->rsize >= 29) + ((unsigned char *)raddr)[28] = (unsigned char)(iret4>>32); + if (l->rsize >= 30) + ((unsigned char *)raddr)[29] = (unsigned char)(iret4>>40); + if (l->rsize >= 31) + ((unsigned char *)raddr)[30] = (unsigned char)(iret4>>48); + if (l->rsize >= 32) + ((unsigned char *)raddr)[31] = (unsigned char)(iret4>>56); + } + } + } + #else /* Optimized: fewer conditional jumps, fewer memory accesses */ + uintptr_t count = l->rsize; /* > 0, ≤ 4*sizeof(__avword) */ + __avword* wordaddr = (__avword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avword)-1)); + uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avword)-1); /* ≥ 0, < sizeof(__avword) */ + uintptr_t end_offset = start_offset + count; /* > 0, < 5*sizeof(__avword) */ + if (count <= sizeof(__avword)) { + /* Use iret. */ + if (end_offset <= sizeof(__avword)) { + /* 0 < end_offset ≤ sizeof(__avword) */ + __avword mask0 = ((__avword)2 << (end_offset*8-1)) - ((__avword)1 << (start_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; + } else { + /* sizeof(__avword) < end_offset < 2*sizeof(__avword), start_offset > 0 */ + __avword mask0 = - ((__avword)1 << (start_offset*8)); + __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; + wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; + wordaddr[1] ^= (wordaddr[1] ^ (iret >> (sizeof(__avword)*8-start_offset*8))) & mask1; + } + } else if (count <= 2*sizeof(__avword)) { + /* Use iret, iret2. */ + __avword mask0 = - ((__avword)1 << (start_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; + if (end_offset <= 2*sizeof(__avword)) { + /* sizeof(__avword) < end_offset ≤ 2*sizeof(__avword) */ + __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; + wordaddr[1] ^= (wordaddr[1] ^ ((iret >> (sizeof(__avword)*4-start_offset*4) >> (sizeof(__avword)*4-start_offset*4)) | (iret2 << (start_offset*8)))) & mask1; + } else { + /* 2*sizeof(__avword) < end_offset < 3*sizeof(__avword), start_offset > 0 */ + __avword mask2 = ((__avword)2 << (end_offset*8-2*sizeof(__avword)*8-1)) - 1; + wordaddr[1] = (iret >> (sizeof(__avword)*8-start_offset*8)) | (iret2 << (start_offset*8)); + wordaddr[2] ^= (wordaddr[2] ^ (iret2 >> (sizeof(__avword)*8-start_offset*8))) & mask2; + } + } else if (count <= 3*sizeof(__avword)) { + /* Use iret, iret2, iret3. */ + __avword mask0 = - ((__avword)1 << (start_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; + if (end_offset <= 3*sizeof(__avword)) { + /* 2*sizeof(__avword) < end_offset ≤ 3*sizeof(__avword) */ + __avword mask2 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; + wordaddr[1] = (iret >> (sizeof(__avword)*4-start_offset*4) >> (sizeof(__avword)*4-start_offset*4)) | (iret2 << (start_offset*8)); + wordaddr[2] ^= (wordaddr[2] ^ ((iret2 >> (sizeof(__avword)*4-start_offset*4) >> (sizeof(__avword)*4-start_offset*4)) | (iret3 << (start_offset*8)))) & mask2; + } else { + /* 3*sizeof(__avword) < end_offset < 4*sizeof(__avword), start_offset > 0 */ + __avword mask3 = ((__avword)2 << (end_offset*8-2*sizeof(__avword)*8-1)) - 1; + wordaddr[1] = (iret >> (sizeof(__avword)*8-start_offset*8)) | (iret2 << (start_offset*8)); + wordaddr[2] = (iret2 >> (sizeof(__avword)*8-start_offset*8)) | (iret3 << (start_offset*8)); + wordaddr[3] ^= (wordaddr[3] ^ (iret3 >> (sizeof(__avword)*8-start_offset*8))) & mask3; + } + } else { + /* Use iret, iret2, iret3, iret4. */ + __avword mask0 = - ((__avword)1 << (start_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; + if (end_offset <= 4*sizeof(__avword)) { + /* 3*sizeof(__avword) < end_offset ≤ 4*sizeof(__avword) */ + __avword mask3 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; + wordaddr[1] = (iret >> (sizeof(__avword)*4-start_offset*4) >> (sizeof(__avword)*4-start_offset*4)) | (iret2 << (start_offset*8)); + wordaddr[2] = (iret2 >> (sizeof(__avword)*4-start_offset*4) >> (sizeof(__avword)*4-start_offset*4)) | (iret3 << (start_offset*8)); + wordaddr[3] ^= (wordaddr[3] ^ ((iret >> (sizeof(__avword)*4-start_offset*4) >> (sizeof(__avword)*4-start_offset*4)) | (iret2 << (start_offset*8)))) & mask3; + } else { + /* 4*sizeof(__avword) < end_offset < 5*sizeof(__avword), start_offset > 0 */ + __avword mask4 = ((__avword)2 << (end_offset*8-2*sizeof(__avword)*8-1)) - 1; + wordaddr[1] = (iret >> (sizeof(__avword)*8-start_offset*8)) | (iret2 << (start_offset*8)); + wordaddr[2] = (iret2 >> (sizeof(__avword)*8-start_offset*8)) | (iret3 << (start_offset*8)); + wordaddr[3] = (iret3 >> (sizeof(__avword)*8-start_offset*8)) | (iret4 << (start_offset*8)); + wordaddr[4] ^= (wordaddr[4] ^ (iret4 >> (sizeof(__avword)*8-start_offset*8))) & mask4; + } + } + #endif + } + } + } + } + return 0; +} diff --git a/avcall/avcall-internal.h b/avcall/avcall-internal.h new file mode 100644 index 0000000..0357a77 --- /dev/null +++ b/avcall/avcall-internal.h @@ -0,0 +1,1508 @@ +/* + * Copyright 1993-1995 Bill Triggs + * Copyright 1995-2019 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#ifndef _AVCALL_INTERNAL_H +#define _AVCALL_INTERNAL_H + +/* Get intptr_t, uintptr_t. */ +#include "ffcall-stdint.h" + +/* Include the public definitions and "avcall-alist.h", */ +#include "avcall.h" + + +/* Verify at compile time that sizeof(__av_alist) <= __AV_ALIST_SIZE_BOUND. */ +typedef int __av_alist_verify[2*(__AV_ALIST_SIZE_BOUND - (int)sizeof(__av_alist))+1]; + +/* Conversion from the public, mostly opaque, 'av_alist*' to '__av_alist*'. */ +#define AV_LIST_INNER(list) ((list)->_av_alist_head._av_m_alist) + + +/* Delayed overflow detection */ +#if defined(__hppa__) && !defined(__hppa64__) +#define _av_overflown(LIST) ((LIST).aptr < (LIST).eptr) +#else +#define _av_overflown(LIST) ((LIST).aptr > (LIST).eptr) +#endif + + +/* + * Initialization of an __av_alist + */ + +#define __av_start(LIST,LIST_ARGS,LIST_ARGS_END,FUNC,RADDR,RETTYPE,FLAGS) \ + ((LIST).func = (FUNC), \ + (LIST).raddr = (RADDR), \ + (LIST).rtype = (RETTYPE), \ + (LIST).args = (LIST_ARGS), \ + __av_start1(LIST,LIST_ARGS_END) \ + __av_start_init_eptr(LIST,LIST_ARGS_END) \ + (LIST).flags = (FLAGS)) + +#if defined(__i386__) || defined(__m68k__) || defined(__alpha__) || (defined(__arm__) && !defined(__armhf__)) +#define __av_start1(LIST,LIST_ARGS_END) \ + (LIST).aptr = &(LIST).args[0], +#endif +#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) +#define __av_start1(LIST,LIST_ARGS_END) \ + (LIST).anum = 0, \ + (LIST).fanum = 0, \ + (LIST).farg_mask = 0, \ + (LIST).darg_mask = 0, \ + (LIST).aptr = &(LIST).args[0], +#endif +#if defined(__mipsn32__) || defined(__mips64__) +#define __av_start1(LIST,LIST_ARGS_END) \ + (LIST).anum = 0, \ + (LIST).farg_mask = 0, \ + (LIST).darg_mask = 0, \ + (LIST).aptr = &(LIST).args[0], +#endif +#if defined(__sparc__) && !defined(__sparc64__) +#define __av_start1(LIST,LIST_ARGS_END) \ + (LIST).aptr = &(LIST).args[0], +#endif +#if defined(__sparc64__) +#define __av_start1(LIST,LIST_ARGS_END) \ + (LIST).anum = 0, \ + (LIST).darg_mask = 0, \ + (LIST).aptr = &(LIST).args[0], +#endif +#if defined(__hppa__) && !defined(__hppa64__) +#define __av_start1(LIST,LIST_ARGS_END) \ + (LIST).farg_mask = 0, \ + (LIST).darg_mask = 0, \ + (LIST).aptr = (LIST).args_end = (LIST_ARGS_END), +#endif +#if defined(__hppa64__) +#define __av_start1(LIST,LIST_ARGS_END) \ + (LIST).farg_mask = 0, \ + (LIST).darg_mask = 0, \ + (LIST).aptr = &(LIST).args[0], +#endif +#if defined(__armhf__) +#define __av_start1(LIST,LIST_ARGS_END) \ + (LIST).aptr = &(LIST).args[__AV_IARG_NUM], \ + (LIST).ianum = 0, \ + (LIST).fanum = 0, \ + (LIST).farg_mask = 0, \ + (LIST).darg_mask = 0, +#endif +#if defined(__arm64__) || defined(__s390__) || defined(__s390x__) +#define __av_start1(LIST,LIST_ARGS_END) \ + (LIST).aptr = &(LIST).args[0], \ + (LIST).ianum = 0, \ + (LIST).fanum = 0, \ + (LIST).farg_mask = 0, \ + (LIST).darg_mask = 0, +#endif +#if defined(__riscv32__) || defined(__riscv64__) +#define __av_start1(LIST,LIST_ARGS_END) \ + (LIST).aptr = &(LIST).args[0], \ + (LIST).fanum = 0, \ + (LIST).farg_mask = 0, \ + (LIST).darg_mask = 0, +#endif +#if defined(__powerpc_aix__) || defined(__powerpc64__) +#define __av_start1(LIST,LIST_ARGS_END) \ + (LIST).aptr = &(LIST).args[0], \ + (LIST).faptr = &(LIST).fargs[0], +#endif +#if defined(__powerpc_sysv4__) +#define __av_start1(LIST,LIST_ARGS_END) \ + (LIST).aptr = &(LIST).args[0], \ + (LIST).ianum = 0, \ + (LIST).faptr = &(LIST).fargs[0], +#endif +#if defined(__ia64__) +#define __av_start1(LIST,LIST_ARGS_END) \ + (LIST).aptr = &(LIST).args[0], \ + (LIST).faptr = &(LIST).fargs[0], +#endif +#if defined(__x86_64_sysv__) +#define __av_start1(LIST,LIST_ARGS_END) \ + (LIST).aptr = &(LIST).args[0], \ + (LIST).ianum = 0, \ + (LIST).faptr = &(LIST).fargs[0], +#endif +#if defined(__x86_64_ms__) +#define __av_start1(LIST,LIST_ARGS_END) \ + (LIST).aptr = &(LIST).args[0], \ + (LIST).anum = 0, \ + (LIST).farg_mask = 0, \ + (LIST).darg_mask = 0, +#endif + +#if defined(__hppa__) && !defined(__hppa64__) +#define __av_start_init_eptr(LIST,LIST_ARGS_END) \ + (LIST).eptr = &(LIST).args[0], +#else +#define __av_start_init_eptr(LIST,LIST_ARGS_END) \ + (LIST).eptr = (LIST_ARGS_END), +#endif + +#define __av_start_struct(LIST,LIST_ARGS,LIST_ARGS_END,FUNC,TYPE_SIZE,TYPE_SPLITTABLE,RADDR,FLAGS) \ + (__av_start(LIST,LIST_ARGS,LIST_ARGS_END,FUNC,RADDR,__AVstruct,FLAGS), \ + (LIST).rsize = (TYPE_SIZE), \ + __av_start_struct2(LIST,TYPE_SIZE,TYPE_SPLITTABLE), \ + 0) + +#if (defined(__sparc__) && !defined(__sparc64__)) +/* Return structure pointer is passed in a special register. + */ +#define __av_start_struct2(LIST,TYPE_SIZE,TYPE_SPLITTABLE) 0 +#else +#define __av_start_struct2(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ + (((LIST).flags & __AV_SMALL_STRUCT_RETURN) \ + && __av_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ + ? /* <= Word-sized structures are returned in a register. */ \ + __av_start_struct3(LIST) \ + : __av_start_struct4(LIST,TYPE_SIZE) \ + ) +/* Determines whether a structure is returned in registers, + * depending on its size and its word-splittable flag. + */ +#if (defined(__i386__) && defined(_WIN32)) +#define __av_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ + ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 \ + || ((TYPE_SIZE) == 8 \ + && (((LIST).flags & __AV_MSVC_STRUCT_RETURN) \ + || ((TYPE_SPLITTABLE) \ + && ((LIST).flags & __AV_GCC_STRUCT_RETURN) \ + ) ) ) ) +/* Turn on __AV_REGISTER_STRUCT_RETURN if __AV_SMALL_STRUCT_RETURN was set + * and the struct will actually be returned in registers. + */ +#define __av_start_struct3(LIST) \ + ((LIST).flags |= __AV_REGISTER_STRUCT_RETURN, 0) +#endif +#if (defined(__i386__) && !defined(_WIN32)) || defined(__m68k__) || (defined(__powerpc__) && !defined(__powerpc64__)) || (defined(__s390__) && !defined(__s390x__)) +#define __av_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ + ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 \ + || ((TYPE_SIZE) == 8 && (TYPE_SPLITTABLE) \ + && ((LIST).flags & __AV_GCC_STRUCT_RETURN) \ + ) ) +/* Turn on __AV_REGISTER_STRUCT_RETURN if __AV_SMALL_STRUCT_RETURN was set + * and the struct will actually be returned in registers. + */ +#define __av_start_struct3(LIST) \ + ((LIST).flags |= __AV_REGISTER_STRUCT_RETURN, 0) +#endif +#if defined(__arm__) || defined(__armhf__) +#define __av_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ + ((TYPE_SIZE) <= 4) +#define __av_start_struct3(LIST) \ + ((LIST).flags |= __AV_REGISTER_STRUCT_RETURN, 0) +#endif +#if defined(__alpha__) +#define __av_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ + ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 || (TYPE_SIZE) == 8 \ + || ((TYPE_SIZE) == 16 && (TYPE_SPLITTABLE) \ + && ((LIST).flags & __AV_GCC_STRUCT_RETURN) \ + ) ) +/* Turn on __AV_REGISTER_STRUCT_RETURN if __AV_SMALL_STRUCT_RETURN was set + * and the struct will actually be returned in registers. + */ +#define __av_start_struct3(LIST) \ + ((LIST).flags |= __AV_REGISTER_STRUCT_RETURN, 0) +#endif +#if (defined(__hppa__) && !defined(__hppa64__)) || defined(__riscv32__) +#define __av_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ + ((TYPE_SIZE) <= 8) +/* Test __AV_SMALL_STRUCT_RETURN at run time. */ +#define __av_start_struct3(LIST) \ + 0 +#endif +#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) +#define __av_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ + ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4) +/* Test __AV_SMALL_STRUCT_RETURN instead of __AV_REGISTER_STRUCT_RETURN. */ +#define __av_start_struct3(LIST) \ + 0 +#endif +#if defined(__mipsn32__) || defined(__mips64__) +#define __av_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ + ((LIST).flags & __AV_GCC_STRUCT_RETURN \ + ? ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 || (TYPE_SIZE) == 8) \ + : ((TYPE_SIZE) <= 16) \ + ) +/* Turn on __AV_REGISTER_STRUCT_RETURN if __AV_SMALL_STRUCT_RETURN was set + * and the struct will actually be returned in registers. + */ +#define __av_start_struct3(LIST) \ + ((LIST).flags |= __AV_REGISTER_STRUCT_RETURN, 0) +#endif +#if (defined(__powerpc64__) && !defined(__powerpc64_elfv2__)) || defined(__s390x__) +#define __av_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ + 0 +#define __av_start_struct3(LIST) \ + 0 +#endif +#if defined(__sparc64__) || defined(__ia64__) +#define __av_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ + ((TYPE_SIZE) <= 32) +/* Turn on __AV_REGISTER_STRUCT_RETURN if __AV_SMALL_STRUCT_RETURN was set + * and the struct will actually be returned in registers. + */ +#define __av_start_struct3(LIST) \ + ((LIST).flags |= __AV_REGISTER_STRUCT_RETURN, 0) +#endif +#if defined(__hppa64__) || defined(__arm64__) || (defined(__powerpc64__) && defined(__powerpc64_elfv2__)) || defined(__x86_64_sysv__) || defined(__riscv64__) +#define __av_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ + ((TYPE_SIZE) <= 16) +/* Turn on __AV_REGISTER_STRUCT_RETURN if __AV_SMALL_STRUCT_RETURN was set + * and the struct will actually be returned in registers. + */ +#define __av_start_struct3(LIST) \ + ((LIST).flags |= __AV_REGISTER_STRUCT_RETURN, 0) +#endif +#if defined(__x86_64_ms__) +#define __av_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ + ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 || (TYPE_SIZE) == 8) +/* Turn on __AV_REGISTER_STRUCT_RETURN if __AV_SMALL_STRUCT_RETURN was set + * and the struct will actually be returned in registers. + */ +#define __av_start_struct3(LIST) \ + ((LIST).flags |= __AV_REGISTER_STRUCT_RETURN, 0) +#endif +#if defined(__m68k__) || defined(__hppa__) || defined(__hppa64__) || defined(__arm64__) || defined(__ia64__) +/* Return structure pointer is passed in a special register. + */ +#define __av_start_struct4(LIST,TYPE_SIZE) 0 +#endif +/* Return structure pointer is passed as first arg. + */ +#if defined(__i386__) || defined(__alpha__) || (defined(__arm__) && !defined(__armhf__)) || defined(__powerpc_aix__) || defined(__powerpc64__) || defined(__riscv32__) || defined(__riscv64__) +#define __av_start_struct4(LIST,TYPE_SIZE) \ + (*(LIST).aptr++ = (__avword)((LIST).raddr), 0) +#endif +#if defined(__armhf__) +#define __av_start_struct4(LIST,TYPE_SIZE) \ + ((LIST).args[(LIST).ianum++] = (__avword)((LIST).raddr), 0) +#endif +#if defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc64__) || defined(__x86_64_ms__) +#define __av_start_struct4(LIST,TYPE_SIZE) \ + (*(LIST).aptr++ = (__avword)((LIST).raddr), \ + (LIST).anum++, \ + 0 \ + ) +#endif +#if defined(__powerpc_sysv4__) || defined(__x86_64_sysv__) || defined(__s390__) || defined(__s390x__) +#if defined(__x86_64_x32__) +/* The x86_64 ABI, section 10.1, specifies that pointers are zero-extended + from 32 bits to 64 bits. */ +#define __av_start_struct4(LIST,TYPE_SIZE) \ + ((LIST).iargs[(LIST).ianum++] = (unsigned long long)(unsigned long)((LIST).raddr), 0) +#else +#define __av_start_struct4(LIST,TYPE_SIZE) \ + ((LIST).iargs[(LIST).ianum++] = (__avword)((LIST).raddr), 0) +#endif +#endif +#endif + + +/* + * av_ macros which specify the argument and its type + * In these macro definitions, + * 1. check the new value of (LIST).aptr against (LIST).eptr, then + * 2. modify (LIST).aptr (considering the alignment needed for the argument + * type), then store the argument. On little-endian machines and when + * there are no alignment considerations, it's also OK to store the + * argument and then modify (LIST).aptr. + */ + +/* + * scalar argument types + */ + +#if defined(__i386__) || defined(__m68k__) || (defined(__sparc__) && !defined(__sparc64__)) || defined(__alpha__) || defined(__hppa64__) || (defined(__arm__) && !defined(__armhf__)) || defined(__arm64__) || defined(__powerpc__) || defined(__powerpc64__) || defined(__ia64__) || defined(__x86_64_sysv__) || defined(__s390__) || defined(__s390x__) || defined(__riscv32__) || defined(__riscv64__) +/* Floats and all integer types are passed as words, + * doubles as two words (on 32-bit platforms) or one word (on 64-bit platforms). + */ +#define __av_word(LIST,VAL) \ + ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + ((LIST).aptr++, \ + ((LIST).aptr)[-1] = (__avword)(VAL), \ + 0)) +#endif +#if defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc64__) || defined(__x86_64_ms__) +/* Most things are passed as integers: + */ +#define __av_word(LIST,VAL) \ + ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + ((LIST).aptr++, \ + ((LIST).aptr)[-1] = (__avword)(VAL), \ + (LIST).anum++, \ + 0)) +#endif +#if defined(__hppa__) && !defined(__hppa64__) +/* Floats and all integer types are passed as words, + * doubles as two words. + */ +#define __av_word(LIST,VAL) \ + ((LIST).aptr <= (LIST).eptr \ + ? -1 : \ + ((LIST).aptr--, \ + *(LIST).aptr = (__avword)(VAL), \ + 0)) +#endif +#if defined(__armhf__) +#define __av_word(LIST,VAL) \ + ((LIST).ianum < __AV_IARG_NUM \ + ? ((LIST).args[(LIST).ianum++] = (__avword)(VAL), 0) \ + : ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + ((LIST).aptr++, \ + ((LIST).aptr)[-1] = (__avword)(VAL), \ + 0))) +#endif + +/* integer argument types */ + +#if defined(__arm64__) || defined(__powerpc_sysv4__) || defined(__x86_64_sysv__) || defined(__s390__) || defined(__s390x__) +/* The first __AV_IARG_NUM integer arguments are passed in registers. */ +#define __av_long(LIST,VAL) \ + ((LIST).ianum < __AV_IARG_NUM \ + ? ((LIST).iargs[(LIST).ianum++] = (long)(VAL), 0) \ + : __av_word(LIST,(long)(VAL))) +#else +#define __av_long(LIST,VAL) __av_word(LIST,(long)(VAL)) +#endif + +#if defined(__arm64__) || defined(__powerpc_sysv4__) || defined(__x86_64_sysv__) || defined(__s390__) || defined(__s390x__) +/* The first __AV_IARG_NUM integer arguments are passed in registers. */ +#define __av_ulong(LIST,VAL) \ + ((LIST).ianum < __AV_IARG_NUM \ + ? ((LIST).iargs[(LIST).ianum++] = (unsigned long)(VAL), 0) \ + : __av_word(LIST,(unsigned long)(VAL))) +#else +#define __av_ulong(LIST,VAL) __av_word(LIST,(unsigned long)(VAL)) +#endif + +#if defined(__arm64__) || defined(__powerpc_sysv4__) || defined(__x86_64_sysv__) || defined(__s390__) || defined(__s390x__) +/* The first __AV_IARG_NUM integer arguments are passed in registers. */ +#if defined(__x86_64_x32__) +/* The x86_64 ABI, section 10.1, specifies that pointers are zero-extended + from 32 bits to 64 bits. */ +#define __av_ptr(LIST,VAL) \ + ((LIST).ianum < __AV_IARG_NUM \ + ? ((LIST).iargs[(LIST).ianum++] = (unsigned long long)(unsigned long)(VAL), 0) \ + : __av_word(LIST,(unsigned long long)(unsigned long)(VAL))) +#else +#define __av_ptr(LIST,VAL) \ + ((LIST).ianum < __AV_IARG_NUM \ + ? ((LIST).iargs[(LIST).ianum++] = (__avword)(VAL), 0) \ + : __av_word(LIST,VAL)) +#endif +#else +#define __av_ptr(LIST,VAL) __av_word(LIST,VAL) +#endif + +#if defined(__mips64__) || defined(__sparc64__) || defined(__alpha__) || defined(__hppa64__) || defined(__arm64__) || defined(__powerpc64__) || defined(__ia64__) || (defined(__x86_64__) && !defined(__x86_64_x32__) && !defined(__AV_LLP64)) || defined(__s390x__) || defined(__riscv64__) +/* ‘long long’ and ‘long’ are identical. */ +#define __av_longlong __av_long +#define __av_ulonglong __av_ulong +#elif defined(__mipsn32__) || (defined(__x86_64__) && defined(__AV_LLP64)) +/* ‘long long’ fits in __avword. */ +#define __av_longlong __av_word +#define __av_ulonglong(LIST,VAL) __av_word(LIST,(unsigned long long)(VAL)) +#elif defined(__i386__) || defined(__m68k__) || (defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)) || (defined(__sparc__) && !defined(__sparc64__)) || (defined(__hppa__) && !defined(__hppa64__)) || defined(__arm__) || defined(__armhf__) || defined(__powerpc__) || defined(__x86_64_x32__) || (defined(__s390__) && !defined(__s390x__)) || defined(__riscv32__) +/* ‘long long’s are passed embedded on the arg stack. */ +#define __av_longlong(LIST,VAL) __av_arg_longlong(LIST,long long,VAL) +#define __av_ulonglong(LIST,VAL) __av_arg_longlong(LIST,unsigned long long,VAL) +#if defined(__i386__) || defined(__m68k__) || defined(__powerpc_aix__) +/* ‘long long’s are (at most) word-aligned. */ +#define __av_arg_longlong(LIST,TYPE,VAL) \ + ((LIST).aptr + sizeof(TYPE)/sizeof(__avword) > (LIST).eptr \ + ? -1 : \ + ((LIST).aptr += sizeof(TYPE)/sizeof(__avword), \ + ((TYPE*)(LIST).aptr)[-1] = (TYPE)(VAL), \ + 0)) +#endif +#if defined(__mips__) || (defined(__sparc__) && !defined(__sparc64__)) || (defined(__hppa__) && !defined(__hppa64__)) || defined(__arm__) || defined(__armhf__) || defined(__powerpc_sysv4__) || defined(__x86_64_x32__) || (defined(__s390__) && !defined(__s390x__)) || defined(__riscv32__) +/* ‘long long’s have alignment 4 or 8. */ +#if defined(__mips__) +#define __av_arg_longlong(LIST,TYPE,VAL) \ + ((__avword*)(((uintptr_t)(LIST).aptr+sizeof(TYPE)+__AV_alignof(TYPE)-1) & -(intptr_t)__AV_alignof(TYPE)) > (LIST).eptr \ + ? -1 : \ + (((LIST).aptr = (__avword*)(((uintptr_t)(LIST).aptr+sizeof(TYPE)+__AV_alignof(TYPE)-1) & -(intptr_t)__AV_alignof(TYPE))), \ + ((TYPE*)(LIST).aptr)[-1] = (TYPE)(VAL), \ + (LIST).anum++, \ + 0)) +#endif +#if defined(__sparc__) && !defined(__sparc64__) +/* Within the arg stack, the alignment is only 4, not 8. */ +/* This assumes sizeof(long long) == 2*sizeof(__avword). */ +#define __av_arg_longlong(LIST,TYPE,VAL) \ + ((LIST).aptr + sizeof(TYPE)/sizeof(__avword) > (LIST).eptr \ + ? -1 : \ + ((LIST).aptr += sizeof(TYPE)/sizeof(__avword), \ + (LIST).tmp._longlong = (TYPE)(VAL), \ + (LIST).aptr[-2] = (LIST).tmp.words[0], \ + (LIST).aptr[-1] = (LIST).tmp.words[1], \ + 0)) +#endif +#if (defined(__hppa__) && !defined(__hppa64__)) +#define __av_arg_longlong(LIST,TYPE,VAL) \ + ((__avword*)(((uintptr_t)(LIST).aptr & -(intptr_t)__AV_alignof(TYPE)) - sizeof(TYPE)) < (LIST).eptr \ + ? -1 : \ + ((LIST).aptr = (__avword*)(((uintptr_t)(LIST).aptr & -(intptr_t)__AV_alignof(TYPE)) - sizeof(TYPE)), \ + *(TYPE*)(LIST).aptr = (TYPE)(VAL), \ + 0)) +#endif +#if defined(__arm__) && !defined(__armhf__) +#define __av_arg_longlong(LIST,TYPE,VAL) \ + ((__avword*)(((uintptr_t)(LIST).aptr+sizeof(TYPE)+__AV_alignof(TYPE)-1) & -(intptr_t)__AV_alignof(TYPE)) > (LIST).eptr \ + ? -1 : \ + ((LIST).aptr = (__avword*)(((uintptr_t)(LIST).aptr+sizeof(TYPE)+__AV_alignof(TYPE)-1) & -(intptr_t)__AV_alignof(TYPE)), \ + ((TYPE*)(LIST).aptr)[-1] = (TYPE)(VAL), \ + 0)) +#endif +#if defined(__armhf__) +#define __av_arg_longlong(LIST,TYPE,VAL) \ + ((((LIST).ianum + sizeof(TYPE)/sizeof(__avword)+__AV_alignof(TYPE)/sizeof(__avword)-1) & -(intptr_t)(__AV_alignof(TYPE)/sizeof(__avword))) <= __AV_IARG_NUM \ + ? ((LIST).ianum = (((LIST).ianum + sizeof(TYPE)/sizeof(__avword)+__AV_alignof(TYPE)/sizeof(__avword)-1) & -(intptr_t)(__AV_alignof(TYPE)/sizeof(__avword))), \ + ((TYPE*)&(LIST).args[(LIST).ianum])[-1] = (TYPE)(VAL), \ + 0) \ + : ((LIST).aptr == &(LIST).args[__AV_IARG_NUM] \ + ? /* split case */ \ + ((__avword*)(((uintptr_t)&(LIST).args[(LIST).ianum]+sizeof(TYPE)+__AV_alignof(TYPE)-1) & -(intptr_t)__AV_alignof(TYPE)) > (LIST).eptr \ + ? -1 : \ + ((LIST).aptr = (__avword*)(((uintptr_t)&(LIST).args[(LIST).ianum]+sizeof(TYPE)+__AV_alignof(TYPE)-1) & -(intptr_t)__AV_alignof(TYPE)), \ + ((TYPE*)(LIST).aptr)[-1] = (TYPE)(VAL), \ + (LIST).ianum = __AV_IARG_NUM, \ + 0)) \ + : ((__avword*)(((uintptr_t)(LIST).aptr+sizeof(TYPE)+__AV_alignof(TYPE)-1) & -(intptr_t)__AV_alignof(TYPE)) > (LIST).eptr \ + ? -1 : \ + ((LIST).aptr = (__avword*)(((uintptr_t)(LIST).aptr+sizeof(TYPE)+__AV_alignof(TYPE)-1) & -(intptr_t)__AV_alignof(TYPE)), \ + ((TYPE*)(LIST).aptr)[-1] = (TYPE)(VAL), \ + (LIST).ianum = __AV_IARG_NUM, \ + 0)))) +#endif +#if defined(__powerpc_sysv4__) +#define __av_arg_longlong(LIST,TYPE,VAL) \ + ((((LIST).ianum + sizeof(TYPE)/sizeof(__avword)+__AV_alignof(TYPE)/sizeof(__avword)-1) & -(intptr_t)(__AV_alignof(TYPE)/sizeof(__avword))) <= __AV_IARG_NUM \ + ? ((LIST).ianum = (((LIST).ianum + sizeof(TYPE)/sizeof(__avword)+__AV_alignof(TYPE)/sizeof(__avword)-1) & -(intptr_t)(__AV_alignof(TYPE)/sizeof(__avword))), \ + ((TYPE*)&(LIST).iargs[(LIST).ianum])[-1] = (TYPE)(VAL), \ + 0) \ + : ((LIST).ianum = __AV_IARG_NUM, \ + ((__avword*)(((uintptr_t)(LIST).aptr+sizeof(TYPE)+__AV_alignof(TYPE)-1) & -(intptr_t)__AV_alignof(TYPE)) > (LIST).eptr \ + ? -1 : \ + ((LIST).aptr = (__avword*)(((uintptr_t)(LIST).aptr+sizeof(TYPE)+__AV_alignof(TYPE)-1) & -(intptr_t)__AV_alignof(TYPE)), \ + ((TYPE*)(LIST).aptr)[-1] = (TYPE)(VAL), \ + 0)))) +#endif +#if defined(__x86_64_x32__) +#define __av_arg_longlong(LIST,TYPE,VAL) \ + ((LIST).ianum < __AV_IARG_NUM \ + ? ((LIST).iargs[(LIST).ianum++] = (__avword)(TYPE)(VAL), 0) \ + : __av_word(LIST,(TYPE)(VAL))) +#endif +#if (defined(__s390__) && !defined(__s390x__)) +/* Within the arg stack, the alignment is only 4, not 8. */ +#define __av_arg_longlong(LIST,TYPE,VAL) \ + ((LIST).ianum + (sizeof(TYPE)+sizeof(__avword)-1)/sizeof(__avword) <= __AV_IARG_NUM \ + ? ((LIST).ianum += (sizeof(TYPE)+sizeof(__avword)-1)/sizeof(__avword), \ + ((TYPE*)&(LIST).iargs[(LIST).ianum])[-1] = (TYPE)(VAL), \ + 0) \ + : ((LIST).ianum = __AV_IARG_NUM, \ + ((__avword*)(((uintptr_t)(LIST).aptr+sizeof(TYPE)+sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)) > (LIST).eptr \ + ? -1 : \ + ((LIST).aptr = (__avword*)(((uintptr_t)(LIST).aptr+sizeof(TYPE)+sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ + ((TYPE*)(LIST).aptr)[-1] = (TYPE)(VAL), \ + 0)))) +#endif +#if defined(__riscv32__) +/* Within the arg stack, the alignment is only 4, not 8. Also, the argument + may be put into one word in registers and one word on the stack. */ +#define __av_arg_longlong(LIST,TYPE,VAL) \ + (((__avword*)(((uintptr_t)(LIST).aptr+sizeof(TYPE)+sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)) > (LIST).eptr \ + ? -1 : \ + ((LIST).aptr = (__avword*)(((uintptr_t)(LIST).aptr+sizeof(TYPE)+sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ + ((TYPE*)(LIST).aptr)[-1] = (TYPE)(VAL), \ + 0))) +#endif +#endif +#endif + +/* floating-point argument types */ + +#if defined(__i386__) || defined(__m68k__) || (defined(__sparc__) && !defined(__sparc64__)) + +#define _av_float(LIST,VAL) \ + ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + ((LIST).aptr++, \ + ((float*)(LIST).aptr)[-1] = (float)(VAL), \ + 0)) + +/* This assumes sizeof(double) == 2*sizeof(__avword). */ +#define _av_double(LIST,VAL) \ + ((LIST).aptr + 2 > (LIST).eptr \ + ? -1 : \ + ((LIST).aptr += 2, \ + (LIST).tmp._double = (double)(VAL), \ + (LIST).aptr[-2] = (LIST).tmp.words[0], \ + (LIST).aptr[-1] = (LIST).tmp.words[1], \ + 0)) + +#endif + +#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) + +/* Up to 2 leading float or double non-varargs args can be passed in + * float registers, but we also push them into the corresponding int + * registers in case of varargs. For doubles we need to align the aptr + * to an even boundary. + */ +#define _av_float(LIST,VAL) \ + ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + ((LIST).aptr++, \ + ((LIST).anum == (LIST).fanum && (LIST).fanum < __AV_FARG_NUM \ + ? /* only floating-point arguments so far */ \ + ((LIST).farg_mask |= (unsigned int) 1 << (LIST).fanum, \ + (LIST).fargs[(LIST).fanum] = ((float*)(LIST).aptr)[-1] = (float)(VAL), \ + (LIST).fanum++, \ + 0) \ + : (((float*)(LIST).aptr)[-1] = (float)(VAL), \ + 0)), \ + (LIST).anum++, \ + 0)) + +#define _av_double(LIST,VAL) \ + ((__avword*)(((uintptr_t)(LIST).aptr+15)&-8) > (LIST).eptr \ + ? -1 : \ + ((LIST).aptr = (__avword*)(((uintptr_t)(LIST).aptr+15)&-8), \ + ((LIST).anum == (LIST).fanum && (LIST).fanum < __AV_FARG_NUM \ + ? /* only floating-point arguments so far */ \ + ((LIST).darg_mask |= (unsigned int) 1 << (LIST).fanum, \ + (LIST).dargs[(LIST).fanum] = ((double*)(LIST).aptr)[-1] = (double)(VAL), \ + (LIST).fanum++, \ + 0) \ + : (((double*)(LIST).aptr)[-1] = (double)(VAL), \ + 0)), \ + (LIST).anum++, \ + 0)) + +#endif + +#if defined(__mipsn32__) || defined(__mips64__) + +/* Up to 8 leading float or double non-varargs args can be passed in + * float registers, but we also push them into the corresponding int + * registers in case of varargs. + */ +#define _av_float(LIST,VAL) \ + ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + (((LIST).anum < 8 \ + ? ((LIST).farg_mask |= (1 << (LIST).anum), \ + (LIST).fargs[(LIST).anum] = *(float*)(LIST).aptr = (float)(VAL)) \ + : (*(float*)(LIST).aptr = (float)(VAL))), \ + (LIST).anum++, \ + (LIST).aptr++, \ + 0)) + +#define _av_double(LIST,VAL) \ + ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + (((LIST).anum < 8 && ((LIST).darg_mask |= (1 << (LIST).anum))), \ + *(double*)(LIST).aptr = (double)(VAL), \ + (LIST).anum++, \ + (LIST).aptr++, \ + 0)) + +#endif + +#if defined(__sparc64__) + +/* Up to 16 leading float or double non-varargs args can be passed in + * float registers, but we also push them into the corresponding int + * registers in case of varargs. + */ +#define _av_float(LIST,VAL) \ + ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + ((LIST).aptr++, \ + ((LIST).anum < 16 && ((LIST).darg_mask |= (1 << (LIST).anum))), \ + (((float*)(LIST).aptr)[-1] = (float)(VAL)), \ + (LIST).anum++, \ + 0)) + +#define _av_double(LIST,VAL) \ + ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + ((LIST).aptr++, \ + ((LIST).anum < 16 && ((LIST).darg_mask |= (1 << (LIST).anum))), \ + ((double*)(LIST).aptr)[-1] = (double)(VAL), \ + (LIST).anum++, \ + 0)) + +#endif + +#if defined(__alpha__) + +#define _av_double(LIST,VAL) \ + ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + ((LIST).aptr++, \ + ((double*)(LIST).aptr)[-1] = (double)(VAL), \ + 0)) + +#define _av_float(LIST,VAL) \ + ((LIST).aptr >= (LIST).eptr \ + ? -1 \ + : ((LIST).aptr++, \ + ((LIST).aptr > &(LIST).args[6] \ + ? /* These args will be fetched from memory using "lds" instructions */ \ + /* therefore store them as floats */ \ + (*(float*)((LIST).aptr-1) = (float)(VAL)) \ + : /* The first 6 args will be put into registers by "ldt" instructions */ \ + /* (see avcall-alpha.c!). Therefore store them as doubles. */ \ + /* When viewed as floats, the value will be the correct one. */\ + (*(double*)((LIST).aptr-1) = (double)(float)(VAL))), \ + 0)) + +#endif + +#if defined(__hppa__) && !defined(__hppa64__) + +#define _av_float(LIST,VAL) \ + ((LIST).aptr <= (LIST).eptr \ + ? -1 : \ + ((LIST).aptr--, \ + ((LIST).aptr >= &(LIST).args_end[-4] \ + ? ((LIST).farg_mask |= (unsigned int)1 << ((LIST).args_end - (LIST).aptr - 1), 0) \ + : 0), \ + *(float*)(LIST).aptr = (float)(VAL), \ + 0)) + +#define _av_double(LIST,VAL) \ + ((__avword*)(((uintptr_t)(LIST).aptr-sizeof(double)) & -(intptr_t)sizeof(double)) < (LIST).eptr \ + ? -1 : \ + ((LIST).aptr = (__avword*)(((uintptr_t)(LIST).aptr-sizeof(double)) & -(intptr_t)sizeof(double)), \ + ((LIST).aptr >= &(LIST).args_end[-4] \ + ? ((LIST).darg_mask |= (unsigned int)1 << ((LIST).args_end - (LIST).aptr - 1), 0) \ + : 0), \ + *(double*)(LIST).aptr = (double)(VAL), \ + 0)) + +#endif + +#if defined(__hppa64__) + +#define _av_float(LIST,VAL) \ + ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + (((LIST).aptr < &(LIST).args[8] \ + ? ((LIST).farg_mask |= (unsigned int)1 << ((LIST).aptr - (LIST).args), 0) \ + : 0), \ + (LIST).aptr++, \ + ((float*)(LIST).aptr)[-1] = (float)(VAL), \ + 0)) + +#define _av_double(LIST,VAL) \ + ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + (((LIST).aptr < &(LIST).args[8] \ + ? ((LIST).darg_mask |= (unsigned int)1 << ((LIST).aptr - (LIST).args), 0) \ + : 0), \ + (LIST).aptr++, \ + ((double*)(LIST).aptr)[-1] = (double)(VAL), \ + 0)) + +#endif + +#if defined(__arm__) && !defined(__armhf__) + +#define _av_float(LIST,VAL) \ + ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + ((LIST).aptr++, \ + ((float*)(LIST).aptr)[-1] = (float)(VAL), \ + 0)) + +#define _av_double(LIST,VAL) \ + ((__avword*)(((uintptr_t)(LIST).aptr + 15) & -8) > (LIST).eptr \ + ? -1 : \ + ((LIST).aptr = (__avword*)(((uintptr_t)(LIST).aptr + 15) & -8), \ + (LIST).tmp._double = (double)(VAL), \ + (LIST).aptr[-2] = (LIST).tmp.words[0], \ + (LIST).aptr[-1] = (LIST).tmp.words[1], \ + 0)) + +#endif + +#if defined(__armhf__) + +/* Up to 16 float or up to 8 double args can be passed in float registers. + * But they overlap: {s0,s1} = d0, {s2,s3} = d1, and so on. + */ +#define _av_float(LIST,VAL) \ + ((LIST).fanum <= 15 \ + ? ((LIST).fargs[(LIST).fanum] = (float)(VAL), \ + (LIST).farg_mask |= ((unsigned int) 1) << (LIST).fanum, \ + (LIST).fanum++, \ + 0) \ + : ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + ((*(float*)(LIST).aptr = (float)(VAL)), \ + (LIST).aptr++, \ + 0))) + +#define _av_double(LIST,VAL) \ + (((LIST).fanum % 2 ? ((LIST).fanum++, 0) : 0), \ + ((LIST).fanum <= 14 \ + ? ((LIST).dargs[(LIST).fanum / 2] = (double)(VAL), \ + (LIST).darg_mask |= ((unsigned int) 1) << ((LIST).fanum / 2), \ + (LIST).fanum += 2, \ + 0) \ + : ((LIST).aptr + 2 > (LIST).eptr \ + ? -1 : \ + ((*(double*)(LIST).aptr = (double)(VAL)), \ + (LIST).aptr += 2, \ + 0)))) + +#endif + +#if defined(__arm64__) || defined(__riscv64__) + +/* Up to __AV_FARG_NUM float or double args can be passed in float registers. + The remaining float or double args are passed in the general-purpose + argument sequence (first the integer registers, then the stack.) */ +#define _av_float(LIST,VAL) \ + ((LIST).fanum < __AV_FARG_NUM \ + ? ((LIST).fargs[(LIST).fanum] = (float)(VAL), \ + (LIST).farg_mask |= ((unsigned int) 1) << (LIST).fanum, \ + (LIST).fanum++, \ + 0) \ + : ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + ((*(float*)(LIST).aptr = (float)(VAL)), \ + (LIST).aptr++, \ + 0))) + +#define _av_double(LIST,VAL) \ + ((LIST).fanum < __AV_FARG_NUM \ + ? ((LIST).dargs[(LIST).fanum] = (double)(VAL), \ + (LIST).darg_mask |= ((unsigned int) 1) << (LIST).fanum, \ + (LIST).fanum++, \ + 0) \ + : ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + ((*(double*)(LIST).aptr = (double)(VAL)), \ + (LIST).aptr++, \ + 0))) + +#endif + +#if defined(__powerpc_aix__) + +/* Up to __AV_FARG_NUM float or double non-varargs args can be passed in + * float registers, but we also push them into the corresponding int + * registers in case of varargs. + */ + +#define _av_float(LIST,VAL) \ + ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + ((LIST).aptr++, \ + ((float*)(LIST).aptr)[-1] = (float)(VAL), \ + (LIST).faptr < &(LIST).fargs[__AV_FARG_NUM] && (*(LIST).faptr++ = (double)(float)(VAL)), \ + 0)) + +#define _av_double(LIST,VAL) \ + ((LIST).aptr + 2 > (LIST).eptr \ + ? -1 : \ + ((LIST).aptr += 2, \ + (LIST).tmp._double = (double)(VAL), \ + (LIST).aptr[-2] = (LIST).tmp.words[0], \ + (LIST).aptr[-1] = (LIST).tmp.words[1], \ + (LIST).faptr < &(LIST).fargs[__AV_FARG_NUM] && (*(LIST).faptr++ = (LIST).tmp._double), \ + 0)) + +#endif + +#if defined(__powerpc_sysv4__) + +/* Up to __AV_FARG_NUM float or double non-varargs args can be passed in + * float registers, without occupying space in the general registers. + */ + +#define _av_float(LIST,VAL) \ + ((LIST).faptr < &(LIST).fargs[__AV_FARG_NUM] \ + ? ((*(LIST).faptr++ = (double)(float)(VAL)), 0) \ + : ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + ((LIST).aptr++, \ + ((float*)(LIST).aptr)[-1] = (float)(VAL), \ + 0))) + +#define _av_double(LIST,VAL) \ + ((LIST).faptr < &(LIST).fargs[__AV_FARG_NUM] \ + ? ((*(LIST).faptr++ = (double)(VAL)), 0) \ + : ((LIST).aptr + 2 > (LIST).eptr \ + ? -1 : \ + ((LIST).aptr += 2, \ + (LIST).tmp._double = (double)(VAL), \ + (LIST).aptr[-2] = (LIST).tmp.words[0], \ + (LIST).aptr[-1] = (LIST).tmp.words[1], \ + 0))) + +#endif + +#if defined(__powerpc64__) + +/* Up to __AV_FARG_NUM float or double non-varargs args can be passed in + * float registers, but we also push them into the corresponding int + * registers in case of varargs. + */ + +#if defined(_AIX) +#define _av_float(LIST,VAL) \ + ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + ((LIST).aptr++, \ + ((float*)(LIST).aptr)[(LIST).flags & __AV_AIXCC_FLOAT_ARGS ? -2 : -1] = (float)(VAL), \ + (LIST).faptr < &(LIST).fargs[__AV_FARG_NUM] && (*(LIST).faptr++ = (double)(float)(VAL)), \ + 0)) +#elif defined(_LITTLE_ENDIAN) +#define _av_float(LIST,VAL) \ + ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + ((LIST).aptr++, \ + ((float*)(LIST).aptr)[-2] = (float)(VAL), \ + (LIST).faptr < &(LIST).fargs[__AV_FARG_NUM] && (*(LIST).faptr++ = (double)(float)(VAL)), \ + 0)) +#else /* _BIG_ENDIAN */ +#define _av_float(LIST,VAL) \ + ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + ((LIST).aptr++, \ + ((float*)(LIST).aptr)[-1] = (float)(VAL), \ + (LIST).faptr < &(LIST).fargs[__AV_FARG_NUM] && (*(LIST).faptr++ = (double)(float)(VAL)), \ + 0)) +#endif + +#define _av_double(LIST,VAL) \ + ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + ((LIST).aptr++, \ + ((double*)(LIST).aptr)[-1] = (double)(VAL), \ + (LIST).faptr < &(LIST).fargs[__AV_FARG_NUM] && (*(LIST).faptr++ = (double)(VAL)), \ + 0)) + +#endif + +#if defined(__ia64__) + +/* Up to 8 leading float or double non-varargs args can be passed in + * float registers, but we also push them into the corresponding int + * registers in case of varargs. + */ +#define _av_float(LIST,VAL) \ + ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + ((*(float*)(LIST).aptr = (float)(VAL)), \ + ((LIST).faptr < &(LIST).fargs[__AV_FARG_NUM] && (*(LIST).faptr = *(float*)(LIST).aptr, (LIST).faptr++)), \ + (LIST).aptr++, \ + 0)) + +#define _av_double(LIST,VAL) \ + ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + (*(double*)(LIST).aptr = (double)(VAL), \ + ((LIST).faptr < &(LIST).fargs[__AV_FARG_NUM] && (*(LIST).faptr = *(double*)(LIST).aptr, (LIST).faptr++)), \ + (LIST).aptr++, \ + 0)) + +#endif + +#if defined(__x86_64_sysv__) + +/* Up to 8 leading float or double args can be passed in float registers. + */ +#define _av_float(LIST,VAL) \ + ((LIST).faptr < &(LIST).fargs[__AV_FARG_NUM] \ + ? (*(LIST).faptr = 0.0, *(float*)(LIST).faptr = (float)(VAL), \ + (LIST).faptr++, \ + 0) \ + : ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + ((*(float*)(LIST).aptr = (float)(VAL)), \ + (LIST).aptr++, \ + 0))) + +#define _av_double(LIST,VAL) \ + ((LIST).faptr < &(LIST).fargs[__AV_FARG_NUM] \ + ? (*(LIST).faptr = (double)(VAL), \ + (LIST).faptr++, \ + 0) \ + : ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + ((*(double*)(LIST).aptr = (double)(VAL)), \ + (LIST).aptr++, \ + 0))) + +#endif + +#if defined(__x86_64_ms__) + +/* The float or double args among the first 4 argument words are passed + * in floating-point registers, but we also push them into the + * corresponding integer registers in case of varargs. + */ +#define _av_float(LIST,VAL) \ + ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + (((LIST).anum < 4 \ + ? ((LIST).farg_mask |= (1 << (LIST).anum), \ + (LIST).fargs[(LIST).anum] = *(float*)(LIST).aptr = (float)(VAL)) \ + : (*(float*)(LIST).aptr = (float)(VAL))), \ + (LIST).anum++, \ + (LIST).aptr++, \ + 0)) + +#define _av_double(LIST,VAL) \ + ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + (((LIST).anum < 4 \ + ? ((LIST).darg_mask |= (1 << (LIST).anum), \ + (LIST).dargs[(LIST).anum] = *(double*)(LIST).aptr = (double)(VAL)) \ + : (*(double*)(LIST).aptr = (double)(VAL))), \ + (LIST).anum++, \ + (LIST).aptr++, \ + 0)) + +#endif + +#if defined(__s390__) && !defined(__s390x__) + +/* Up to 2 float or double non-varargs args can be passed in + * float registers, without occupying space in the general registers. + */ + +#define _av_float(LIST,VAL) \ + ((LIST).fanum < __AV_FARG_NUM \ + ? ((LIST).fargs[(LIST).fanum] = (float)(VAL), \ + (LIST).farg_mask |= ((unsigned int) 1) << (LIST).fanum, \ + (LIST).fanum++, \ + 0) \ + : ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + ((LIST).aptr++, \ + ((float*)(LIST).aptr)[-1] = (float)(VAL), \ + 0))) + +#define _av_double(LIST,VAL) \ + ((LIST).fanum < __AV_FARG_NUM \ + ? ((LIST).dargs[(LIST).fanum] = (double)(VAL), \ + (LIST).darg_mask |= ((unsigned int) 1) << (LIST).fanum, \ + (LIST).fanum++, \ + 0) \ + : ((LIST).aptr + 2 > (LIST).eptr \ + ? -1 : \ + ((LIST).aptr += 2, \ + (LIST).tmp._double = (double)(VAL), \ + (LIST).aptr[-2] = (LIST).tmp.words[0], \ + (LIST).aptr[-1] = (LIST).tmp.words[1], \ + 0))) + +#endif + +#if defined(__s390x__) + +/* Up to __AV_FARG_NUM float or double args can be passed in float registers. */ +#define _av_float(LIST,VAL) \ + ((LIST).fanum < __AV_FARG_NUM \ + ? ((LIST).fargs[(LIST).fanum] = (float)(VAL), \ + (LIST).farg_mask |= ((unsigned int) 1) << (LIST).fanum, \ + (LIST).fanum++, \ + 0) \ + : ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + ((LIST).aptr++, \ + ((float*)(LIST).aptr)[-1] = (float)(VAL), \ + 0))) + +#define _av_double(LIST,VAL) \ + ((LIST).fanum < __AV_FARG_NUM \ + ? ((LIST).dargs[(LIST).fanum] = (double)(VAL), \ + (LIST).darg_mask |= ((unsigned int) 1) << (LIST).fanum, \ + (LIST).fanum++, \ + 0) \ + : ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + ((*(double*)(LIST).aptr = (double)(VAL)), \ + (LIST).aptr++, \ + 0))) + +#endif + +#if defined(__riscv32__) + +/* Up to __AV_FARG_NUM float or double args can be passed in float registers. + The remaining float or double args are passed in the general-purpose + argument sequence (first the integer registers, then the stack.) */ +#define _av_float(LIST,VAL) \ + ((LIST).fanum < __AV_FARG_NUM \ + ? ((LIST).fargs[(LIST).fanum] = (float)(VAL), \ + (LIST).farg_mask |= ((unsigned int) 1) << (LIST).fanum, \ + (LIST).fanum++, \ + 0) \ + : ((LIST).aptr >= (LIST).eptr \ + ? -1 : \ + ((*(float*)(LIST).aptr) = (float)(VAL), \ + (LIST).aptr++, \ + 0))) + +#define _av_double(LIST,VAL) \ + ((LIST).fanum < __AV_FARG_NUM \ + ? ((LIST).dargs[(LIST).fanum] = (double)(VAL), \ + (LIST).darg_mask |= ((unsigned int) 1) << (LIST).fanum, \ + (LIST).fanum++, \ + 0) \ + : ((LIST).aptr + 2 > (LIST).eptr \ + ? -1 : \ + ((LIST).aptr += 2, \ + (LIST).tmp._double = (double)(VAL), \ + (LIST).aptr[-2] = (LIST).tmp.words[0], \ + (LIST).aptr[-1] = (LIST).tmp.words[1], \ + 0))) + +#endif + +/* + * structure argument types + */ + +extern void avcall_structcpy (void* dest, const void* src, unsigned long size, unsigned long alignment); + +#define __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,PLACE,VAL_ADDR) \ + avcall_structcpy(PLACE,VAL_ADDR,TYPE_SIZE,TYPE_ALIGN) + +/* Structure argument alignment. */ +#if defined(__i386__) && defined(_MSC_VER) +/* In MSVC, doubles inside structures have alignment 8, i.e. + * __AV_alignof(double) = 8, but doubles (and also structures containing + * doubles) are passed on the stack with alignment 4. Looks really weird. + */ +#define __av_struct_alignment(TYPE_ALIGN) \ + ((TYPE_ALIGN) <= 4 ? (TYPE_ALIGN) : 4) +#else +#define __av_struct_alignment(TYPE_ALIGN) \ + (TYPE_ALIGN) +#endif +#if defined(__i386__) || defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) || defined(__alpha__) || defined(__hppa64__) || defined(__arm__) || defined(__armhf__) || defined(__powerpc_aix__) || defined(__powerpc64__) || defined(__ia64__) +/* Structures are passed as fully aligned structures on the arg stack. + * We align the aptr, store the structure, then fill to word alignment. + * Single-small-integer structures are NOT promoted to integers and have + * different alignment. + */ +/* little endian -> small structures < 1 word are adjusted to the left (i.e. occupy the low bits of the word) */ +#if defined(__i386__) || defined(__alpha__) || (defined(__arm__) && !defined(__armhf__) && defined(__ARMEL__)) +#define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + ((__avword*)(((uintptr_t)(LIST).aptr+(TYPE_SIZE)+__av_struct_alignment(TYPE_ALIGN)-1) & -(intptr_t)__av_struct_alignment(TYPE_ALIGN)) > (LIST).eptr \ + ? -1 : \ + (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+__av_struct_alignment(TYPE_ALIGN)-1) & -(intptr_t)__av_struct_alignment(TYPE_ALIGN)) - (TYPE_SIZE)),VAL), \ + (LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+__av_struct_alignment(TYPE_ALIGN)-1) & -(intptr_t)__av_struct_alignment(TYPE_ALIGN)) +sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ + 0)) +#endif +#if defined(__ia64__) +/* With GCC < 3, types larger than a word have 2-word alignment. */ +#define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + (((LIST).flags & __AV_OLDGCC_STRUCT_ARGS) \ + ? ((LIST).aptr = (__avword*)(((uintptr_t)(LIST).aptr+(TYPE_SIZE)+__av_struct_alignment(TYPE_ALIGN)-1) & -(intptr_t)__av_struct_alignment(TYPE_ALIGN)), \ + ((TYPE_SIZE) > sizeof(__avword) && (((LIST).aptr - &(LIST).args[0]) & 1) ? ++(LIST).aptr : 0), \ + ((LIST).aptr > (LIST).eptr \ + ? -1 : \ + (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((uintptr_t)(LIST).aptr-(TYPE_SIZE)),VAL), \ + (LIST).aptr = (__avword*)(((uintptr_t)(LIST).aptr+sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ + 0))) \ + : ((__avword*)(((uintptr_t)(LIST).aptr+(TYPE_SIZE)+__av_struct_alignment(TYPE_ALIGN)-1) & -(intptr_t)__av_struct_alignment(TYPE_ALIGN)) > (LIST).eptr \ + ? -1 : \ + (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+__av_struct_alignment(TYPE_ALIGN)-1) & -(intptr_t)__av_struct_alignment(TYPE_ALIGN)) - (TYPE_SIZE)),VAL), \ + (LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+__av_struct_alignment(TYPE_ALIGN)-1) & -(intptr_t)__av_struct_alignment(TYPE_ALIGN)) +sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ + 0))) +#endif +/* small structures < 1 word are adjusted depending on compiler */ +#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) +#define __av_struct_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + ((__avword*)(((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) > (LIST).eptr \ + ? -1 : \ + (++(LIST).anum, \ + __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) - (TYPE_SIZE)),VAL), \ + (LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) +sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ + 0)) +#define __av_struct_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + ((__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)) > (LIST).eptr \ + ? -1 : \ + ((LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ + ++(LIST).anum, \ + __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((uintptr_t)(LIST).aptr-(TYPE_SIZE)),VAL),\ + 0)) +#define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + ((LIST).flags & __AV_SGICC_STRUCT_ARGS \ + ? /* SGI MIPS cc passes small structures left-adjusted, although big-endian! */\ + __av_struct_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + : /* SGI MIPS gcc passes small structures within the first four words left- \ + * adjusted, for compatibility with cc. But structures in memory are passed \ + * right-adjusted!! See gcc-2.6.3/config/mips/mips.c:function_arg(). \ + */ \ + ((LIST).aptr < &(LIST).args[4] \ + ? __av_struct_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + : __av_struct_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL))) +#endif +#if defined(__mipsn32__) || defined(__mips64__) +/* When a structure is passed (partially) in registers, it is passed in the + * integer registers, except that doubles within the structure are passed in + * the floating point registers. Instead of distinguishing these cases, we + * always pass the structure in both the integer and the floating point + * registers. + */ +#define __av_struct_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + ((__avword*)(((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) > (LIST).eptr \ + ? -1 : \ + (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) - (TYPE_SIZE)),VAL), \ + (LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) +sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ + ((LIST).anum < 8 && ((LIST).darg_mask |= (-1 << (LIST).anum))), \ + (LIST).anum += (((((TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword))/sizeof(__avword), \ + (LIST).darg_mask &= (1 << ((LIST).anum < 8 ? (LIST).anum : 8)) - 1, \ + 0)) +#define __av_struct_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + ((__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)) > (LIST).eptr \ + ? -1 : \ + ((LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ + __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((uintptr_t)(LIST).aptr-(TYPE_SIZE)),VAL), \ + ((LIST).anum < 8 && ((LIST).darg_mask |= (-1 << (LIST).anum))), \ + (LIST).anum += (((((TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword))/sizeof(__avword), \ + (LIST).darg_mask &= (1 << ((LIST).anum < 8 ? (LIST).anum : 8)) - 1, \ + 0)) +#define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + ((LIST).flags & __AV_SGICC_STRUCT_ARGS \ + ? /* SGI MIPS cc and gcc >= 3.4 passes small structures left-adjusted, although big-endian! */\ + __av_struct_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + : /* SGI MIPS gcc < 3.4 passes small structures right-adjusted. */ \ + __av_struct_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL)) +#endif +#if (defined(__armhf__) && defined(__ARMEL__)) +#define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + ((((LIST).ianum*sizeof(__avword)+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) <= __AV_IARG_NUM*sizeof(__avword) \ + ? ((LIST).ianum += (((((TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword))/sizeof(__avword), \ + __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((uintptr_t)&(LIST).args[(LIST).ianum]-(TYPE_SIZE)),VAL), \ + 0) \ + : ((LIST).aptr == &(LIST).args[__AV_IARG_NUM] \ + ? /* split case */ \ + ((__avword*)(((((uintptr_t)&(LIST).args[(LIST).ianum]+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)) > (LIST).eptr \ + ? -1 : \ + (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((((uintptr_t)&(LIST).args[(LIST).ianum]+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) - (TYPE_SIZE)),VAL), \ + (LIST).aptr = (__avword*)(((((uintptr_t)&(LIST).args[(LIST).ianum]+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ + (LIST).ianum = __AV_IARG_NUM, \ + 0)) \ + : ((__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)) > (LIST).eptr \ + ? -1 : \ + (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) - (TYPE_SIZE)),VAL), \ + (LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ + (LIST).ianum = __AV_IARG_NUM, \ + 0)))) +#endif +#if defined(__powerpc__) || defined(__powerpc64__) +#define __av_struct_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + ((__avword*)(((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) > (LIST).eptr \ + ? -1 : \ + (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) - (TYPE_SIZE)),VAL), \ + (LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) +sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ + 0)) +#define __av_struct_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + ((__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)) > (LIST).eptr \ + ? -1 : \ + ((LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ + __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((uintptr_t)(LIST).aptr-(TYPE_SIZE)),VAL), \ + 0)) +#if (defined(__powerpc__) && !defined(__powerpc64__)) || (defined(__powerpc64__) && defined(_BIG_ENDIAN)) +#define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + ((LIST).flags & __AV_AIXCC_STRUCT_ARGS \ + ? /* AIX cc and xlc pass small structures left-adjusted, although big-endian! */\ + __av_struct_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + : /* gcc passes small structures right-adjusted. */ \ + __av_struct_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL)) +#endif +#if (defined(__powerpc64__) && defined(_LITTLE_ENDIAN)) +#define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + __av_struct_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) +#endif +#endif +/* big endian -> small structures < 1 word are adjusted to the right (i.e. occupy the high bits of the word) */ +#if (defined(__arm__) && !defined(__armhf__) && !defined(__ARMEL__)) +#define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + ((__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)) > (LIST).eptr \ + ? -1 : \ + ((LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ + __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((uintptr_t)(LIST).aptr-(TYPE_SIZE)),VAL), \ + 0)) +#endif +#if (defined(__armhf__) && !defined(__ARMEL__)) +#define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + ((((LIST).ianum*sizeof(__avword)+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) <= __AV_IARG_NUM*sizeof(__avword) \ + ? ((LIST).ianum += (((((TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword))/sizeof(__avword), \ + __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((uintptr_t)&(LIST).args[(LIST).ianum]-(TYPE_SIZE)),VAL), \ + 0) \ + : ((LIST).aptr == &(LIST).args[__AV_IARG_NUM] \ + ? /* split case */ \ + ((__avword*)(((((uintptr_t)&(LIST).args[(LIST).ianum]+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)) > (LIST).eptr \ + ? -1 : \ + ((LIST).aptr = (__avword*)(((((uintptr_t)&(LIST).args[(LIST).ianum]+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ + __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((uintptr_t)(LIST).aptr-(TYPE_SIZE)),VAL), \ + (LIST).ianum = __AV_IARG_NUM, \ + 0)) \ + : ((__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)) > (LIST).eptr \ + ? -1 : \ + ((LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ + __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((uintptr_t)(LIST).aptr-(TYPE_SIZE)),VAL), \ + (LIST).ianum = __AV_IARG_NUM, \ + 0)))) +#endif +#if defined(__hppa64__) +/* Structures are passed left-adjusted (although big-endian!). */ +#define __av_struct_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + ((__avword*)(((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) > (LIST).eptr \ + ? -1 : \ + (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) - (TYPE_SIZE)),VAL), \ + (LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) +sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ + 0)) +#define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + __av_struct_leftadjusted(LIST,TYPE_SIZE,(TYPE_SIZE)>sizeof(__avword)?2*sizeof(__avword):(TYPE_ALIGN),VAL) +#endif +#endif +#if defined(__m68k__) +/* Structures are passed as embedded copies on the arg stack. + */ +#define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + ((__avword*)(((uintptr_t)(LIST).aptr+(TYPE_SIZE)+sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)) > (LIST).eptr \ + ? -1 : \ + ((LIST).aptr = (__avword*)(((uintptr_t)(LIST).aptr+(TYPE_SIZE)+sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ + __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((uintptr_t)(LIST).aptr-(TYPE_SIZE)),VAL),\ + 0)) +#endif +#if (defined(__sparc__) && !defined(__sparc64__)) +/* Structures are passed as pointers to caller-made local copies. We + * grab space for the copies from the end of the argument list space + * and always use maximal (double) alignment. + */ +#define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + (++(LIST).aptr \ + > ((LIST).eptr = (__avword*)((uintptr_t)(LIST).eptr - (((TYPE_SIZE)+7)&-8)))\ + ? -1 : \ + (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)(LIST).eptr,VAL), \ + (LIST).aptr[-1] = (__avword)(LIST).eptr, \ + 0)) +#endif +#if defined(__sparc64__) +/* Structures <= 16 bytes are passed as embedded copies on the arg stack, + * left-adjusted (although big-endian!). + * When a structure is passed (partially) in registers, it is passed in the + * integer registers, except that floats and doubles within the structure + * are passed in the floating point registers. Instead of distinguishing + * these cases, we always pass the structure in both the integer and the + * floating point registers. + * Big structures are passed as pointers to caller-made local copies. + * FIXME: Shouldn't (LIST).anum be incremented in sync with (LIST).aptr ? + */ +#define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + ((TYPE_SIZE) > 16 \ + ? (++(LIST).aptr \ + > ((LIST).eptr = (__avword*)((uintptr_t)(LIST).eptr - (((TYPE_SIZE)+7)&-8)))\ + ? -1 : \ + (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)(LIST).eptr,VAL), \ + (LIST).aptr[-1] = (__avword)(LIST).eptr, \ + 0)) \ + : ((__avword*)(((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) > (LIST).eptr \ + ? -1 : \ + (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) - (TYPE_SIZE)),VAL), \ + (LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) +sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ + ((LIST).anum < 16 && ((LIST).darg_mask |= (-1 << (LIST).anum))), \ + (LIST).anum += (((((TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword))/sizeof(__avword), \ + (LIST).darg_mask &= (1 << ((LIST).anum < 16 ? (LIST).anum : 16)) - 1, \ + 0))) +#endif +#if defined(__hppa__) && !defined(__hppa64__) +/* Structures <= 8 bytes are passed as embedded copies on the arg stack. + * Big structures are passed as pointers (to caller-made local copies + * with GCC >= 8, without copy otherwise). + */ +#define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + ((TYPE_SIZE) > 8 \ + ? (--(LIST).aptr \ + < ((LIST).eptr = (__avword*)((uintptr_t)(LIST).eptr + (((TYPE_SIZE) + 7) & -8))) \ + ? -1 \ + : (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((uintptr_t)(LIST).eptr - (((TYPE_SIZE) + 7) & -8)), VAL), \ + *(LIST).aptr = (__avword)((uintptr_t)(LIST).eptr - (((TYPE_SIZE) + 7) & -8)), \ + 0)) \ + : ((TYPE_SIZE) > 4 \ + ? ((__avword*)((((uintptr_t)(LIST).aptr & -8) - (intptr_t)(TYPE_SIZE)) & -8) < (LIST).eptr \ + ? -1 : \ + ((LIST).aptr = (__avword*)((((uintptr_t)(LIST).aptr & -8) - (intptr_t)(TYPE_SIZE)) & -8), \ + __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)(LIST).aptr,VAL), \ + 0)) \ + : /* FIXME: gcc-2.6.3 passes structures <= 4 bytes in memory left-adjusted! ?? */\ + ((__avword*)(((uintptr_t)(LIST).aptr & -4) - (intptr_t)(TYPE_SIZE)) < (LIST).eptr \ + ? -1 : \ + (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)(((uintptr_t)(LIST).aptr & -4) - (intptr_t)(TYPE_SIZE)),VAL), \ + (LIST).aptr = (__avword*)((((uintptr_t)(LIST).aptr & -4) - (intptr_t)(TYPE_SIZE)) & -4), \ + 0)))) +#endif +#if defined(__arm64__) +/* Structures <= 16 bytes are passed as embedded copies on the arg stack. + * Big structures are passed as pointers to caller-made local copies. + */ +#define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + ((TYPE_SIZE) <= 16 \ + ? ((((LIST).ianum*sizeof(__avword)+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) <= __AV_IARG_NUM*sizeof(__avword) \ + ? (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)&(LIST).iargs[(LIST).ianum],VAL), \ + (LIST).ianum += (((((TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword))/sizeof(__avword), \ + 0) \ + : ((__avword*)(((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) > (LIST).eptr \ + ? -1 : \ + ((LIST).ianum = __AV_IARG_NUM, \ + __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) - (TYPE_SIZE)),VAL), \ + (LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) +sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ + 0))) \ + : ((LIST).ianum < __AV_IARG_NUM \ + ? ((LIST).aptr \ + > ((LIST).eptr = (__avword*)((uintptr_t)(LIST).eptr - (((TYPE_SIZE)+7)&-8)))\ + ? -1 : \ + (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)(LIST).eptr,VAL), \ + (LIST).iargs[(LIST).ianum++] = (__avword)(LIST).eptr, \ + 0)) \ + : (++(LIST).aptr \ + > ((LIST).eptr = (__avword*)((uintptr_t)(LIST).eptr - (((TYPE_SIZE)+7)&-8)))\ + ? -1 : \ + (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)(LIST).eptr,VAL), \ + (LIST).aptr[-1] = (__avword)(LIST).eptr, \ + 0)))) +#endif +#if defined(__powerpc_sysv4__) +/* Structures are passed as pointers to caller-made local copies. We + * grab space for the copies from the end of the argument list space + * and always use maximal (double) alignment. + */ +#define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + ((LIST).ianum < __AV_IARG_NUM \ + ? ((LIST).aptr \ + > ((LIST).eptr = (__avword*)((uintptr_t)(LIST).eptr - (((TYPE_SIZE)+7)&-8)))\ + ? -1 : \ + (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)(LIST).eptr,VAL), \ + (LIST).iargs[(LIST).ianum++] = (__avword)(LIST).eptr, \ + 0)) \ + : (++(LIST).aptr \ + > ((LIST).eptr = (__avword*)((uintptr_t)(LIST).eptr - (((TYPE_SIZE)+7)&-8)))\ + ? -1 : \ + (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)(LIST).eptr,VAL), \ + (LIST).aptr[-1] = (__avword)(LIST).eptr, \ + 0))) +#endif +#if defined(__x86_64_sysv__) +/* Structures <= 16 bytes can be passed in integer or floating-point registers + if there is enough room for the whole number of words needed by the structure + in the corresponding iargs/fargs block. We can't distinguish the two cases + and support only passing in integer registers. Other structures are passed + on the arg stack. */ +#define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + (((TYPE_SIZE) <= 2*sizeof(__avword) \ + && (LIST).ianum + ((TYPE_SIZE) + sizeof(__avword)-1) / sizeof(__avword) <= __AV_IARG_NUM) \ + ? (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)&(LIST).iargs[(LIST).ianum],VAL), \ + (LIST).ianum += ((TYPE_SIZE) + sizeof(__avword)-1) / sizeof(__avword), \ + 0) \ + : ((__avword*)((uintptr_t)(LIST).aptr + (((TYPE_SIZE)+__av_struct_alignment(TYPE_ALIGN)-1) & -(intptr_t)__av_struct_alignment(TYPE_ALIGN))) > (LIST).eptr \ + ? -1 : \ + ((LIST).aptr = (__avword*)((uintptr_t)(LIST).aptr + (((TYPE_SIZE)+__av_struct_alignment(TYPE_ALIGN)-1) & -(intptr_t)__av_struct_alignment(TYPE_ALIGN))), \ + __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((uintptr_t)(LIST).aptr - (((TYPE_SIZE)+__av_struct_alignment(TYPE_ALIGN)-1) & -(intptr_t)__av_struct_alignment(TYPE_ALIGN))),VAL), \ + 0))) +#endif +#if defined(__x86_64_ms__) +/* Structures of 1, 2, 4, 8 bytes are passed as embedded copies on the arg stack. + * Big structures are passed as pointers to caller-made local copies. + */ +#define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 || (TYPE_SIZE) == 8 \ + ? ((__avword*)((uintptr_t)(LIST).aptr + (((TYPE_SIZE)+sizeof(__avword)-1) & -(intptr_t)sizeof(__avword))) > (LIST).eptr \ + ? -1 : \ + ((LIST).aptr = (__avword*)((uintptr_t)(LIST).aptr + (((TYPE_SIZE)+sizeof(__avword)-1) & -(intptr_t)sizeof(__avword))), \ + __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((uintptr_t)(LIST).aptr - (((TYPE_SIZE)+sizeof(__avword)-1) & -(intptr_t)sizeof(__avword))),VAL), \ + 0)) \ + : (++(LIST).aptr \ + > ((LIST).eptr = (__avword*)((uintptr_t)(LIST).eptr - (((TYPE_SIZE)+7)&-8)))\ + ? -1 : \ + (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)(LIST).eptr,VAL), \ + (LIST).aptr[-1] = (__avword)(LIST).eptr, \ + 0))) +#endif +#if defined(__s390__) || defined(__s390x__) +/* Structures of 1, 2, 4, 8 bytes are passed as embedded copies on the arg stack. + * Big structures are passed as pointers to caller-made local copies. + */ +#define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 || (TYPE_SIZE) == 8 \ + ? ((((LIST).ianum*sizeof(__avword)+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) <= __AV_IARG_NUM*sizeof(__avword) \ + ? ((LIST).ianum += (((((TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword))/sizeof(__avword), \ + __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((uintptr_t)&(LIST).iargs[(LIST).ianum]-(TYPE_SIZE)),VAL), \ + 0) \ + : ((__avword*)(((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) > (LIST).eptr \ + ? -1 : \ + ((LIST).ianum = __AV_IARG_NUM, \ + __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) - (TYPE_SIZE)),VAL), \ + (LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) +sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ + 0))) \ + : ((LIST).ianum < __AV_IARG_NUM \ + ? ((LIST).aptr \ + > ((LIST).eptr = (__avword*)((uintptr_t)(LIST).eptr - (((TYPE_SIZE)+7)&-8)))\ + ? -1 : \ + (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)(LIST).eptr,VAL), \ + (LIST).iargs[(LIST).ianum++] = (__avword)(LIST).eptr, \ + 0)) \ + : (++(LIST).aptr \ + > ((LIST).eptr = (__avword*)((uintptr_t)(LIST).eptr - (((TYPE_SIZE)+7)&-8)))\ + ? -1 : \ + (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)(LIST).eptr,VAL), \ + (LIST).aptr[-1] = (__avword)(LIST).eptr, \ + 0)))) +#endif +#if defined(__riscv32__) || defined(__riscv64__) +/* Structures <= 16 bytes are passed as embedded copies on the arg stack. + * Big structures are passed as pointers to caller-made local copies. + */ +#define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ + ((TYPE_SIZE) <= 2*sizeof(__avword) \ + ? ((__avword*)(((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) > (LIST).eptr \ + ? -1 : \ + (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) - (TYPE_SIZE)),VAL), \ + (LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) +sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ + 0)) \ + : (++(LIST).aptr \ + > ((LIST).eptr = (__avword*)((uintptr_t)(LIST).eptr - (((TYPE_SIZE)+7)&-8)))\ + ? -1 : \ + (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)(LIST).eptr,VAL), \ + (LIST).aptr[-1] = (__avword)(LIST).eptr, \ + 0))) +#endif + + +#endif /* _AVCALL_INTERNAL_H */ diff --git a/avcall/avcall-libapi.c b/avcall/avcall-libapi.c new file mode 100644 index 0000000..5b22dfc --- /dev/null +++ b/avcall/avcall-libapi.c @@ -0,0 +1,79 @@ +/* + * Copyright 2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "config.h" + +#include "avcall-internal.h" + +/* This is the implementation of the library API. + The symbols that the linker sees are all prefixed with 'avcall_', + to avoid potential collisions with other libraries. */ + +int avcall_overflown (av_alist* list) +{ + return _av_overflown(AV_LIST_INNER(list)); +} + +void avcall_start (av_alist* list, __avword* list_args, __avword* list_args_end, __avword(*func)(), void* raddr, int rettype, int flags) +{ + __av_start(AV_LIST_INNER(list),list_args,list_args_end,func,raddr,rettype,flags); +} + +void avcall_start_struct (av_alist* list, __avword* list_args, __avword* list_args_end, __avword(*func)(), size_t type_size, int type_splittable, void* raddr, int flags) +{ + __av_start_struct(AV_LIST_INNER(list),list_args,list_args_end,func,type_size,type_splittable,raddr,flags); +} + +int avcall_arg_long (av_alist* list, long val) +{ + return __av_long(AV_LIST_INNER(list),val); +} + +int avcall_arg_ulong (av_alist* list, unsigned long val) +{ + return __av_ulong(AV_LIST_INNER(list),val); +} + +int avcall_arg_ptr (av_alist* list, void* val) +{ + return __av_ptr(AV_LIST_INNER(list),val); +} + +int avcall_arg_longlong (av_alist* list, long long val) +{ + return __av_longlong(AV_LIST_INNER(list),val); +} + +int avcall_arg_ulonglong (av_alist* list, unsigned long long val) +{ + return __av_ulonglong(AV_LIST_INNER(list),val); +} + +int avcall_arg_float (av_alist* list, float val) +{ + return _av_float(AV_LIST_INNER(list),val); +} + +int avcall_arg_double (av_alist* list, double val) +{ + return _av_double(AV_LIST_INNER(list),val); +} + +int avcall_arg_struct (av_alist* list, size_t type_size, size_t type_align, const void* val_addr) +{ + return __av_struct(AV_LIST_INNER(list),type_size,type_align,val_addr); +} diff --git a/avcall/avcall-m68k-linux.s b/avcall/avcall-m68k-linux.s new file mode 100644 index 0000000..6190bd9 --- /dev/null +++ b/avcall/avcall-m68k-linux.s @@ -0,0 +1,167 @@ + .file "avcall-m68k.c" + .text + .align 2 + .globl avcall_call + .type avcall_call,@function +avcall_call: + link.w %a6,#0 + movm.l #0x3820,-(%sp) + move.l 8(%a6),%a2 + lea (-1024,%sp),%sp + move.l 24(%a2),%d1 + move.l 20(%a2),%d0 + sub.l %d1,%d0 + asr.l #2,%d0 + jble .L54 + move.l %sp,%a1 + move.l %d1,%a0 + move.l %d0,%d2 + .align 2 +.L6: + move.l (%a0)+,(%a1)+ + subq.l #1,%d2 + jbne .L6 +.L54: + moveq.l #16,%d0 + cmp.l 12(%a2),%d0 + jbeq .L59 +.L7: + move.l 4(%a2),%a0 + jsr (%a0) + move.l %d0,%d2 + move.l %d1,%d3 + move.l 12(%a2),%a1 + moveq.l #1,%d1 + cmp.l %a1,%d1 + jbeq .L9 + tst.l %a1 + jbeq .L55 + moveq.l #2,%d4 + cmp.l %a1,%d4 + jbeq .L58 + moveq.l #3,%d4 + cmp.l %a1,%d4 + jbeq .L58 + moveq.l #4,%d4 + cmp.l %a1,%d4 + jbeq .L58 + moveq.l #5,%d4 + cmp.l %a1,%d4 + jbeq .L57 + moveq.l #6,%d4 + cmp.l %a1,%d4 + jbeq .L57 + moveq.l #7,%d4 + cmp.l %a1,%d4 + jbeq .L55 + moveq.l #8,%d4 + cmp.l %a1,%d4 + jbeq .L55 + moveq.l #9,%d4 + cmp.l %a1,%d4 + jbeq .L55 + moveq.l #10,%d4 + cmp.l %a1,%d4 + jbeq .L55 + lea (-11,%a1),%a0 + moveq.l #1,%d4 + cmp.l %a0,%d4 + jbcc .L56 + moveq.l #13,%d4 + cmp.l %a1,%d4 + jbeq .L60 + moveq.l #14,%d4 + cmp.l %a1,%d4 + jbeq .L61 + moveq.l #15,%d0 + cmp.l %a1,%d0 + jbeq .L55 + moveq.l #16,%d1 + cmp.l %a1,%d1 + jbne .L9 + btst #1,2(%a2) + jbeq .L9 + move.l 16(%a2),%d0 + moveq.l #1,%d4 + cmp.l %d0,%d4 + jbeq .L58 + moveq.l #2,%d1 + cmp.l %d0,%d1 + jbeq .L57 + moveq.l #4,%d4 + cmp.l %d0,%d4 + jbeq .L55 + moveq.l #8,%d1 + cmp.l %d0,%d1 + jbne .L9 +.L56: + move.l 8(%a2),%a0 + move.l %d2,(%a0) + move.l %d3,4(%a0) + jbra .L9 + .align 2 +.L55: + move.l 8(%a2),%a0 + move.l %d2,(%a0) + jbra .L9 + .align 2 +.L57: + move.l 8(%a2),%a0 + move.w %d2,(%a0) + jbra .L9 + .align 2 +.L58: + move.l 8(%a2),%a0 + move.b %d2,(%a0) + jbra .L9 + .align 2 +.L61: + btst #6,3(%a2) + jbeq .L39 + move.l 8(%a2),%a0 + fmove.d %fp0,(%a0) + jbra .L9 + .align 2 +.L39: + move.l 8(%a2),%a0 + move.l %d0,(%a0) + move.l %d1,4(%a0) + jbra .L9 + .align 2 +.L60: + move.l (%a2),%d2 + btst #6,%d2 + jbeq .L33 + move.l 8(%a2),%a0 + fmove.s %fp0,(%a0) + jbra .L9 + .align 2 +.L33: + btst #5,%d2 + jbeq .L35 + move.l 8(%a2),%a0 + move.l %d1,-(%sp) + move.l %d0,-(%sp) + fmove.d (%sp)+,%fp0 + fmove.s %fp0,(%a0) + jbra .L9 + .align 2 +.L35: + move.l 8(%a2),%a0 + move.l %d0,(%a0) + jbra .L9 + .align 2 +.L59: +#APP + move.l 8(%a2),%a1 +#NO_APP + jbra .L7 + .align 2 +.L9: + clr.l %d0 + movm.l -16(%a6),#0x41c + unlk %a6 + rts +.Lfe1: + .size avcall_call,.Lfe1-avcall_call + .ident "GCC: (GNU) 3.1" diff --git a/avcall/avcall-m68k-sun.s b/avcall/avcall-m68k-sun.s new file mode 100644 index 0000000..0ffb17c --- /dev/null +++ b/avcall/avcall-m68k-sun.s @@ -0,0 +1,163 @@ +#NO_APP + .text + .even + .globl _avcall_call +_avcall_call: + link a6,#0 + moveml #0x3820,sp@- + movel a6@(8),a2 + lea sp@(-1024),sp + movel a2@(24),d1 + movel a2@(20),d0 + subl d1,d0 + asrl #2,d0 + jle L54 + movel sp,a1 + movel d1,a0 + movel d0,d2 + .even +L6: + movel a0@+,a1@+ + subql #1,d2 + jne L6 +L54: + moveq #16,d0 + cmpl a2@(12),d0 + jeq L59 +L7: + movel a2@(4),a0 + jsr a0@ + movel d0,d2 + movel d1,d3 + movel a2@(12),a1 + moveq #1,d1 + cmpl a1,d1 + jeq L9 + tstl a1 + jeq L55 + moveq #2,d4 + cmpl a1,d4 + jeq L58 + moveq #3,d4 + cmpl a1,d4 + jeq L58 + moveq #4,d4 + cmpl a1,d4 + jeq L58 + moveq #5,d4 + cmpl a1,d4 + jeq L57 + moveq #6,d4 + cmpl a1,d4 + jeq L57 + moveq #7,d4 + cmpl a1,d4 + jeq L55 + moveq #8,d4 + cmpl a1,d4 + jeq L55 + moveq #9,d4 + cmpl a1,d4 + jeq L55 + moveq #10,d4 + cmpl a1,d4 + jeq L55 + lea a1@(-11),a0 + moveq #1,d4 + cmpl a0,d4 + jcc L56 + moveq #13,d4 + cmpl a1,d4 + jeq L60 + moveq #14,d4 + cmpl a1,d4 + jeq L61 + moveq #15,d0 + cmpl a1,d0 + jeq L55 + moveq #16,d1 + cmpl a1,d1 + jne L9 + btst #1,a2@(2) + jeq L9 + movel a2@(16),d0 + moveq #1,d4 + cmpl d0,d4 + jeq L58 + moveq #2,d1 + cmpl d0,d1 + jeq L57 + moveq #4,d4 + cmpl d0,d4 + jeq L55 + moveq #8,d1 + cmpl d0,d1 + jne L9 +L56: + movel a2@(8),a0 + movel d2,a0@ + movel d3,a0@(4) + jra L9 + .even +L55: + movel a2@(8),a0 + movel d2,a0@ + jra L9 + .even +L57: + movel a2@(8),a0 + movew d2,a0@ + jra L9 + .even +L58: + movel a2@(8),a0 + moveb d2,a0@ + jra L9 + .even +L61: + btst #6,a2@(3) + jeq L39 + movel a2@(8),a0 + fmoved fp0,a0@ + jra L9 + .even +L39: + movel a2@(8),a0 + movel d0,a0@ + movel d1,a0@(4) + jra L9 + .even +L60: + movel a2@,d2 + btst #6,d2 + jeq L33 + movel a2@(8),a0 + fmoves fp0,a0@ + jra L9 + .even +L33: + btst #5,d2 + jeq L35 + movel a2@(8),a0 + movel d1,sp@- + movel d0,sp@- + fmoved sp@+,fp0 + fmoves fp0,a0@ + jra L9 + .even +L35: + movel a2@(8),a0 + movel d0,a0@ + jra L9 + .even +L59: +#APP + movel a2@(8),a1 +#NO_APP + jra L7 + .even +L9: + clrl d0 + moveml a6@(-16),#0x41c + unlk a6 + rts diff --git a/avcall/avcall-m68k.c b/avcall/avcall-m68k.c new file mode 100644 index 0000000..2be7276 --- /dev/null +++ b/avcall/avcall-m68k.c @@ -0,0 +1,148 @@ +/** + Copyright 1993 Bill Triggs + Copyright 1995-2017 Bruno Haible + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . +**/ +/*---------------------------------------------------------------------- + !!! THIS ROUTINE MUST BE COMPILED gcc -O !!! + + Foreign function interface for a m68k Sun3 with gcc/sun-cc. + + This calls a C function with an argument list built up using macros + defined in avcall.h. + + M68k Argument Passing Conventions: + + All arguments are passed on the stack with word alignment. Doubles take + two words. Structure args are passed as true structures embedded in the + argument stack. To return a structure, the called function copies the + return value to the address supplied in register "a1". Gcc without + -fpcc-struct-return returns <= 4 byte structures as integers. + + Compile this routine with gcc -O (or -O2 or -g -O) to get the right + register variables, or use the assembler version. + ----------------------------------------------------------------------*/ +#include "avcall-internal.h" + +#define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) + +int +avcall_call(av_alist* list) +{ + register __avword* sp __asm__("sp"); /* C names for registers */ + register __avword* sret __asm__("a1"); /* structure return pointer */ +/*register __avword iret __asm__("d0"); */ + register __avword iret2 __asm__("d1"); + register float fret __asm__("d0"); /* d0 */ + register double dret __asm__("d0"); /* d0,d1 */ + register float fp_fret __asm__("fp0"); + register double fp_dret __asm__("fp0"); + + __av_alist* l = &AV_LIST_INNER(list); + + __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ + int arglen = l->aptr - l->args; + __avword i; + __avword i2; + + for (i = 0; i < arglen; i++) /* push function args onto stack */ + argframe[i] = l->args[i]; + + if (l->rtype == __AVstruct) /* push struct return address */ + __asm__("move%.l %0,%/a1" : : "g" (l->raddr)); + + i = (*l->func)(); /* call function */ + i2 = iret2; + + /* save return value */ + if (l->rtype == __AVvoid) { + } else + if (l->rtype == __AVword) { + RETURN(__avword, i); + } else + if (l->rtype == __AVchar) { + RETURN(char, i); + } else + if (l->rtype == __AVschar) { + RETURN(signed char, i); + } else + if (l->rtype == __AVuchar) { + RETURN(unsigned char, i); + } else + if (l->rtype == __AVshort) { + RETURN(short, i); + } else + if (l->rtype == __AVushort) { + RETURN(unsigned short, i); + } else + if (l->rtype == __AVint) { + RETURN(int, i); + } else + if (l->rtype == __AVuint) { + RETURN(unsigned int, i); + } else + if (l->rtype == __AVlong) { + RETURN(long, i); + } else + if (l->rtype == __AVulong) { + RETURN(unsigned long, i); + } else + if (l->rtype == __AVlonglong || l->rtype == __AVulonglong) { + void* raddr = l->raddr; + ((__avword*)raddr)[0] = i; + ((__avword*)raddr)[1] = i2; + } else + if (l->rtype == __AVfloat) { + if (l->flags & __AV_FREG_FLOAT_RETURN) { + RETURN(float, fp_fret); + } else { + if (l->flags & __AV_SUNCC_FLOAT_RETURN) { + RETURN(float, (float)dret); + } else { + RETURN(float, fret); + } + } + } else + if (l->rtype == __AVdouble) { + if (l->flags & __AV_FREG_FLOAT_RETURN) { + RETURN(double, fp_dret); + } else { + RETURN(double, dret); + } + } else + if (l->rtype == __AVvoidp) { + RETURN(void*, i); + } else + if (l->rtype == __AVstruct) { + /* NB: On m68k, all structure sizes are divisible by 2. */ + if (l->flags & __AV_REGISTER_STRUCT_RETURN) { + if (l->rsize == sizeof(char)) { /* can't occur */ + RETURN(char, i); + } else + if (l->rsize == sizeof(short)) { + RETURN(short, i); + } else + if (l->rsize == sizeof(int)) { + RETURN(int, i); + } else + if (l->rsize == 2*sizeof(__avword)) { + void* raddr = l->raddr; + ((__avword*)raddr)[0] = i; + ((__avword*)raddr)[1] = i2; + } + } + } + return 0; +} diff --git a/avcall/avcall-m68k.mit.S b/avcall/avcall-m68k.mit.S new file mode 100644 index 0000000..d9591d9 --- /dev/null +++ b/avcall/avcall-m68k.mit.S @@ -0,0 +1,166 @@ +#include "asm-m68k.h" + .text + .even + .globl C(avcall_call) + DECLARE_FUNCTION(avcall_call) +FUNBEGIN(avcall_call) + link $a6,#0 + moveml #0x3820,$sp@- + movel $a6@(8),$a2 + lea $sp@(-1024),$sp + movel $a2@(24),$d1 + movel $a2@(20),$d0 + subl $d1,$d0 + asrl #2,$d0 + jle L(54) + movel $sp,$a1 + movel $d1,$a0 + movel $d0,$d2 + .even +L(6): + movel $a0@+,$a1@+ + subql #1,$d2 + jne L(6) +L(54): + moveq #16,$d0 + cmpl $a2@(12),$d0 + jeq L(59) +L(7): + movel $a2@(4),$a0 + jsr $a0@ + movel $d0,$d2 + movel $d1,$d3 + movel $a2@(12),$a1 + moveq #1,$d1 + cmpl $a1,$d1 + jeq L(9) + tstl $a1 + jeq L(55) + moveq #2,$d4 + cmpl $a1,$d4 + jeq L(58) + moveq #3,$d4 + cmpl $a1,$d4 + jeq L(58) + moveq #4,$d4 + cmpl $a1,$d4 + jeq L(58) + moveq #5,$d4 + cmpl $a1,$d4 + jeq L(57) + moveq #6,$d4 + cmpl $a1,$d4 + jeq L(57) + moveq #7,$d4 + cmpl $a1,$d4 + jeq L(55) + moveq #8,$d4 + cmpl $a1,$d4 + jeq L(55) + moveq #9,$d4 + cmpl $a1,$d4 + jeq L(55) + moveq #10,$d4 + cmpl $a1,$d4 + jeq L(55) + lea $a1@(-11),$a0 + moveq #1,$d4 + cmpl $a0,$d4 + jcc L(56) + moveq #13,$d4 + cmpl $a1,$d4 + jeq L(60) + moveq #14,$d4 + cmpl $a1,$d4 + jeq L(61) + moveq #15,$d0 + cmpl $a1,$d0 + jeq L(55) + moveq #16,$d1 + cmpl $a1,$d1 + jne L(9) + btst #1,$a2@(2) + jeq L(9) + movel $a2@(16),$d0 + moveq #1,$d4 + cmpl $d0,$d4 + jeq L(58) + moveq #2,$d1 + cmpl $d0,$d1 + jeq L(57) + moveq #4,$d4 + cmpl $d0,$d4 + jeq L(55) + moveq #8,$d1 + cmpl $d0,$d1 + jne L(9) +L(56): + movel $a2@(8),$a0 + movel $d2,$a0@ + movel $d3,$a0@(4) + jra L(9) + .even +L(55): + movel $a2@(8),$a0 + movel $d2,$a0@ + jra L(9) + .even +L(57): + movel $a2@(8),$a0 + movew $d2,$a0@ + jra L(9) + .even +L(58): + movel $a2@(8),$a0 + moveb $d2,$a0@ + jra L(9) + .even +L(61): + btst #6,$a2@(3) + jeq L(39) + movel $a2@(8),$a0 + fmoved $fp0,$a0@ + jra L(9) + .even +L(39): + movel $a2@(8),$a0 + movel $d0,$a0@ + movel $d1,$a0@(4) + jra L(9) + .even +L(60): + movel $a2@,$d2 + btst #6,$d2 + jeq L(33) + movel $a2@(8),$a0 + fmoves $fp0,$a0@ + jra L(9) + .even +L(33): + btst #5,$d2 + jeq L(35) + movel $a2@(8),$a0 + movel $d1,$sp@- + movel $d0,$sp@- + fmoved $sp@+,$fp0 + fmoves $fp0,$a0@ + jra L(9) + .even +L(35): + movel $a2@(8),$a0 + movel $d0,$a0@ + jra L(9) + .even +L(59): + movel $a2@(8),$a1 + jra L(7) + .even +L(9): + clrl $d0 + moveml $a6@(-16),#0x41c + unlk $a6 + rts +FUNEND(avcall_call) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/avcall/avcall-m68k.motorola.S b/avcall/avcall-m68k.motorola.S new file mode 100644 index 0000000..a03518d --- /dev/null +++ b/avcall/avcall-m68k.motorola.S @@ -0,0 +1,167 @@ +#include "asm-m68k.h" + .text + .align 2 + .globl C(avcall_call) + DECLARE_FUNCTION(avcall_call) +FUNBEGIN(avcall_call) + link.w %a6,#0 + movm.l #0x3820,-(%sp) + move.l 8(%a6),%a2 + lea (-1024,%sp),%sp + move.l 24(%a2),%d1 + move.l 20(%a2),%d0 + sub.l %d1,%d0 + asr.l #2,%d0 + jble L(54) + move.l %sp,%a1 + move.l %d1,%a0 + move.l %d0,%d2 + .align 2 +L(6): + move.l (%a0)+,(%a1)+ + subq.l #1,%d2 + jbne L(6) +L(54): + moveq.l #16,%d0 + cmp.l 12(%a2),%d0 + jbeq L(59) +L(7): + move.l 4(%a2),%a0 + jsr (%a0) + move.l %d0,%d2 + move.l %d1,%d3 + move.l 12(%a2),%a1 + moveq.l #1,%d1 + cmp.l %a1,%d1 + jbeq L(9) + tst.l %a1 + jbeq L(55) + moveq.l #2,%d4 + cmp.l %a1,%d4 + jbeq L(58) + moveq.l #3,%d4 + cmp.l %a1,%d4 + jbeq L(58) + moveq.l #4,%d4 + cmp.l %a1,%d4 + jbeq L(58) + moveq.l #5,%d4 + cmp.l %a1,%d4 + jbeq L(57) + moveq.l #6,%d4 + cmp.l %a1,%d4 + jbeq L(57) + moveq.l #7,%d4 + cmp.l %a1,%d4 + jbeq L(55) + moveq.l #8,%d4 + cmp.l %a1,%d4 + jbeq L(55) + moveq.l #9,%d4 + cmp.l %a1,%d4 + jbeq L(55) + moveq.l #10,%d4 + cmp.l %a1,%d4 + jbeq L(55) + lea (-11,%a1),%a0 + moveq.l #1,%d4 + cmp.l %a0,%d4 + jbcc L(56) + moveq.l #13,%d4 + cmp.l %a1,%d4 + jbeq L(60) + moveq.l #14,%d4 + cmp.l %a1,%d4 + jbeq L(61) + moveq.l #15,%d0 + cmp.l %a1,%d0 + jbeq L(55) + moveq.l #16,%d1 + cmp.l %a1,%d1 + jbne L(9) + btst #1,2(%a2) + jbeq L(9) + move.l 16(%a2),%d0 + moveq.l #1,%d4 + cmp.l %d0,%d4 + jbeq L(58) + moveq.l #2,%d1 + cmp.l %d0,%d1 + jbeq L(57) + moveq.l #4,%d4 + cmp.l %d0,%d4 + jbeq L(55) + moveq.l #8,%d1 + cmp.l %d0,%d1 + jbne L(9) +L(56): + move.l 8(%a2),%a0 + move.l %d2,(%a0) + move.l %d3,4(%a0) + jbra L(9) + .align 2 +L(55): + move.l 8(%a2),%a0 + move.l %d2,(%a0) + jbra L(9) + .align 2 +L(57): + move.l 8(%a2),%a0 + move.w %d2,(%a0) + jbra L(9) + .align 2 +L(58): + move.l 8(%a2),%a0 + move.b %d2,(%a0) + jbra L(9) + .align 2 +L(61): + btst #6,3(%a2) + jbeq L(39) + move.l 8(%a2),%a0 + fmove.d %fp0,(%a0) + jbra L(9) + .align 2 +L(39): + move.l 8(%a2),%a0 + move.l %d0,(%a0) + move.l %d1,4(%a0) + jbra L(9) + .align 2 +L(60): + move.l (%a2),%d2 + btst #6,%d2 + jbeq L(33) + move.l 8(%a2),%a0 + fmove.s %fp0,(%a0) + jbra L(9) + .align 2 +L(33): + btst #5,%d2 + jbeq L(35) + move.l 8(%a2),%a0 + move.l %d1,-(%sp) + move.l %d0,-(%sp) + fmove.d (%sp)+,%fp0 + fmove.s %fp0,(%a0) + jbra L(9) + .align 2 +L(35): + move.l 8(%a2),%a0 + move.l %d0,(%a0) + jbra L(9) + .align 2 +L(59): + move.l 8(%a2),%a1 + jbra L(7) + .align 2 +L(9): + clr.l %d0 + movm.l -16(%a6),#0x41c + unlk %a6 + rts +L(fe1): + FUNEND(avcall_call) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/avcall/avcall-mips.c b/avcall/avcall-mips.c new file mode 100644 index 0000000..390bd60 --- /dev/null +++ b/avcall/avcall-mips.c @@ -0,0 +1,155 @@ +/** + Copyright 1993 Bill Triggs + Copyright 1995-2017 Bruno Haible + Copyright 2005 Thiemo Seufer + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . +**/ +/*---------------------------------------------------------------------- + !!! THIS ROUTINE MUST BE COMPILED gcc -O !!! + + Foreign function interface for an SGI MIPS with gcc/sgi-cc. + + This calls a C function with an argument list built up using macros + defined in avcall.h. + + SGI MIPS Argument Passing Conventions + + - The entire argument list forms a structure with all the appropriate + holes & alignments, and space for this is allocated in the stack frame. + - Shorter integers are promoted to word length (sizeof(int)=sizeof(long)=4). + - Doubles are 2 words aligned on even boundaries. + - The first 4 words of the structure are passed in registers $4...$7, stack + space for these is always allocated. Remaining words are passed on the + stack. + - If the first two args are floats or doubles, they are also passed in $f12 + and $f14. But varargs functions will expect them in the integer registers + and we can't tell whether the function is varargs so we pass them both ways. + - GCC 3.3.x and 3.4.x pass the next args after two floats in $7 and on the + stack, instead of in $6, $7, and on the stack. This is a bug that is fixed + in GCC 4.0.4. We don't support these versions of GCC on mips with -mabi=32. + - Structure arguments are copies embedded in the arglist structure. + - Structure returns are pointers to caller-allocated space passed in as the + first argument of the list. The function also returns the pointer. + - Integer/pointer returns are in $2, float/double returns in $f0. + - Under IRIX 5, the called function expects to see its own address in $25. + + This file needs to be compiled with gcc for the asm extensions, but the + assembly version of it and the header file seem to work with SGI cc. + ----------------------------------------------------------------------*/ +#include "avcall-internal.h" + +#define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) +#define OFFSETOF(struct,member) ((int)&(((struct*)0)->member)) + +int +avcall_call(av_alist* list) +{ + register __avword* sp __asm__("$sp"); /* C names for registers */ + register __avword iret2 __asm__("$3"); + register float fret_tmp __asm__("$f0"); + register double dret_tmp __asm__("$f0"); + + __av_alist* l = &AV_LIST_INNER(list); + + __avword *space = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* big space for child's stack frame */ + __avword *argframe = sp; /* stack offset for argument list is 0 */ + int arglen = l->aptr - l->args; + int i; + __avword iret; + float fret; + double dret; + + /* load leading float args */ + if (l->farg_mask & (1 << 0)) + __asm__("l.s $f12,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[0])); + if (l->darg_mask & (1 << 0)) + __asm__("l.d $f12,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,dargs[0])); + if (l->farg_mask & (1 << 1)) + __asm__("l.s $f14,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[1])); + if (l->darg_mask & (1 << 1)) + __asm__("l.d $f14,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,dargs[1])); + + for (i = 4; i < arglen; i++) /* push excess function args */ + argframe[i] = l->args[i]; + + /* Note: The code of this call ought to put the address of the called function + in register $25 before the call. */ + iret = (*l->func)(l->args[0], l->args[1], /* call function with 1st 4 args */ + l->args[2], l->args[3]); + fret = fret_tmp; + dret = dret_tmp; + + /* save return value */ + if (l->rtype == __AVvoid) { + } else + if (l->rtype == __AVword) { + RETURN(__avword, iret); + } else + if (l->rtype == __AVchar) { + RETURN(char, iret); + } else + if (l->rtype == __AVschar) { + RETURN(signed char, iret); + } else + if (l->rtype == __AVuchar) { + RETURN(unsigned char, iret); + } else + if (l->rtype == __AVshort) { + RETURN(short, iret); + } else + if (l->rtype == __AVushort) { + RETURN(unsigned short, iret); + } else + if (l->rtype == __AVint) { + RETURN(int, iret); + } else + if (l->rtype == __AVuint) { + RETURN(unsigned int, iret); + } else + if (l->rtype == __AVlong) { + RETURN(long, iret); + } else + if (l->rtype == __AVulong) { + RETURN(unsigned long, iret); + } else + if (l->rtype == __AVlonglong || l->rtype == __AVulonglong) { + void* raddr = l->raddr; + ((__avword*)raddr)[0] = iret; + ((__avword*)raddr)[1] = iret2; + } else + if (l->rtype == __AVfloat) { + RETURN(float, fret); + } else + if (l->rtype == __AVdouble) { + RETURN(double, dret); + } else + if (l->rtype == __AVvoidp) { + RETURN(void*, iret); + } else + if (l->rtype == __AVstruct) { + if (l->flags & __AV_SMALL_STRUCT_RETURN) { + if (l->rsize == sizeof(char)) { + RETURN(char, iret); + } else + if (l->rsize == sizeof(short)) { + RETURN(short, iret); + } else + if (l->rsize == sizeof(int)) { + RETURN(int, iret); + } + } + } + return 0; +} diff --git a/avcall/avcall-mips64.c b/avcall/avcall-mips64.c new file mode 100644 index 0000000..2da61a5 --- /dev/null +++ b/avcall/avcall-mips64.c @@ -0,0 +1,495 @@ +/** + Copyright 1993 Bill Triggs + Copyright 1995-2017 Bruno Haible + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . +**/ +/*---------------------------------------------------------------------- + !!! THIS ROUTINE MUST BE COMPILED gcc -O !!! + + Foreign function interface for an SGI 64-bit MIPS with sgi-cc. + + This calls a C function with an argument list built up using macros + defined in avcall.h. + + SGI MIPS 64-bit Argument Passing Conventions + + - The entire argument list forms a structure with all the appropriate + holes & alignments, and space for this is allocated in the stack frame. + - Shorter integers are promoted to longword length (sizeof(long)=8). + - Doubles are 1 longword. + - Structure arguments are copies embedded in the arglist structure. + - The first 8 longwords of the structure are passed in registers $4...$11, + except that float arguments are passed in registers $f12...$f19, and + that double arguments and structure elements of type double are passed + in registers $f12...$f19. (But varargs functions may expect them in the + integer registers and we can't tell whether the function is varargs so + we pass them both ways.) + Remaining longwords are passed on the stack. No stack space is allocated + for the first 8 longwords of the structure. + - Structure returns of structures > 16 bytes: pointers to caller-allocated + space are passed in as the first argument of the list. + - Structure returns of structures <= 16 bytes: in the registers $2 (for the + first 8 bytes) and $3 (for the next 8 bytes). + A structure of 1 or 2 floats or doubles is returned in $f0 and $f2: + the first float or double in $f0, the second float or double in $f2. + - Integer/pointer returns are in $2, float/double returns in $f0. + - The called function expects to see its own address in $25. + + This file needs to be compiled with gcc for the asm extensions, but the + assembly version of it and the header file seem to work with SGI cc. + ----------------------------------------------------------------------*/ +#include "avcall-internal.h" + +#define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) +#define OFFSETOF(struct,member) ((int)&(((struct*)0)->member)) + +int +avcall_call(av_alist* list) +{ + register __avword* sp __asm__("$sp"); /* C names for registers */ + register float fret __asm__("$f0"); + register double dret __asm__("$f0"); +/*register __avword iret1 __asm__("$2"); */ + register __avword iret2 __asm__("$3"); + + __av_alist* l = &AV_LIST_INNER(list); + + __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ + int arglen = l->aptr - l->args; + __avword iret; + int i; + + if (l->farg_mask) + { /* push leading float args */ + if (l->farg_mask & (1<<0)) + __asm__("lwc1 $f12,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[0])); + if (l->farg_mask & (1<<1)) + __asm__("lwc1 $f13,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[1])); + if (l->farg_mask & (1<<2)) + __asm__("lwc1 $f14,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[2])); + if (l->farg_mask & (1<<3)) + __asm__("lwc1 $f15,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[3])); + if (l->farg_mask & (1<<4)) + __asm__("lwc1 $f16,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[4])); + if (l->farg_mask & (1<<5)) + __asm__("lwc1 $f17,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[5])); + if (l->farg_mask & (1<<6)) + __asm__("lwc1 $f18,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[6])); + if (l->farg_mask & (1<<7)) + __asm__("lwc1 $f19,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[7])); + } + if (l->darg_mask) + { /* push leading double args */ + __avword* a = l->args; + if (l->darg_mask & (1<<0)) + __asm__("ldc1 $f12,%1(%0)" : : "p" (a), "i" (0 * sizeof (__avword))); + if (l->darg_mask & (1<<1)) + __asm__("ldc1 $f13,%1(%0)" : : "p" (a), "i" (1 * sizeof (__avword))); + if (l->darg_mask & (1<<2)) + __asm__("ldc1 $f14,%1(%0)" : : "p" (a), "i" (2 * sizeof (__avword))); + if (l->darg_mask & (1<<3)) + __asm__("ldc1 $f15,%1(%0)" : : "p" (a), "i" (3 * sizeof (__avword))); + if (l->darg_mask & (1<<4)) + __asm__("ldc1 $f16,%1(%0)" : : "p" (a), "i" (4 * sizeof (__avword))); + if (l->darg_mask & (1<<5)) + __asm__("ldc1 $f17,%1(%0)" : : "p" (a), "i" (5 * sizeof (__avword))); + if (l->darg_mask & (1<<6)) + __asm__("ldc1 $f18,%1(%0)" : : "p" (a), "i" (6 * sizeof (__avword))); + if (l->darg_mask & (1<<7)) + __asm__("ldc1 $f19,%1(%0)" : : "p" (a), "i" (7 * sizeof (__avword))); + } + + for (i = 8; i < arglen; i++) /* push excess function args */ + argframe[i-8] = l->args[i]; + + /* call function with 1st 8 args */ + __asm__ __volatile__ ("ld $4,%0" : : "m" (l->args[0]) : "$4"); /* arg1 = l->args[0]; */ + __asm__ __volatile__ ("ld $5,%0" : : "m" (l->args[1]) : "$5"); /* arg1 = l->args[1]; */ + __asm__ __volatile__ ("ld $6,%0" : : "m" (l->args[2]) : "$6"); /* arg1 = l->args[2]; */ + __asm__ __volatile__ ("ld $7,%0" : : "m" (l->args[3]) : "$7"); /* arg1 = l->args[3]; */ + __asm__ __volatile__ ("ld $8,%0" : : "m" (l->args[4]) : "$8"); /* arg1 = l->args[4]; */ + __asm__ __volatile__ ("ld $9,%0" : : "m" (l->args[5]) : "$9"); /* arg1 = l->args[5]; */ + __asm__ __volatile__ ("ld $10,%0" : : "m" (l->args[6]) : "$10"); /* arg1 = l->args[6]; */ + __asm__ __volatile__ ("ld $11,%0" : : "m" (l->args[7]) : "$11"); /* arg1 = l->args[7]; */ + /* Note: The code of this call ought to put the address of the called function + in register $25 before the call. */ + iret = (*l->func)(); + + /* save return value */ + if (l->rtype == __AVvoid) { + } else + if (l->rtype == __AVword) { + RETURN(__avword, iret); + } else + if (l->rtype == __AVchar) { + RETURN(char, iret); + } else + if (l->rtype == __AVschar) { + RETURN(signed char, iret); + } else + if (l->rtype == __AVuchar) { + RETURN(unsigned char, iret); + } else + if (l->rtype == __AVshort) { + RETURN(short, iret); + } else + if (l->rtype == __AVushort) { + RETURN(unsigned short, iret); + } else + if (l->rtype == __AVint) { + RETURN(int, iret); + } else + if (l->rtype == __AVuint) { + RETURN(unsigned int, iret); + } else + if (l->rtype == __AVlong) { + RETURN(long, iret); + } else + if (l->rtype == __AVulong) { + RETURN(unsigned long, iret); + } else + if (l->rtype == __AVlonglong) { + RETURN(long long, iret); + } else + if (l->rtype == __AVulonglong) { + RETURN(unsigned long long, iret); + } else + if (l->rtype == __AVfloat) { + RETURN(float, fret); + } else + if (l->rtype == __AVdouble) { + RETURN(double, dret); + } else + if (l->rtype == __AVvoidp) { + RETURN(void*, iret); + } else + if (l->rtype == __AVstruct) { + if (l->flags & __AV_REGISTER_STRUCT_RETURN) { + if (l->flags & __AV_GCC_STRUCT_RETURN) { + /* gcc returns structs of size 1,2,4,8 in registers. */ + if (l->rsize == sizeof(char)) { + RETURN(char, iret); + } else + if (l->rsize == sizeof(short)) { + RETURN(short, iret); + } else + if (l->rsize == sizeof(int)) { + RETURN(int, iret); + } else + if (l->rsize == sizeof(long)) { + RETURN(long, iret); + } + } else { + /* cc returns structs of size <= 16 in registers. */ + if (l->rsize > 0 && l->rsize <= 16) { + void* raddr = l->raddr; + #if 0 /* Unoptimized */ + if (l->rsize == 1) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + #else + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + #endif + } else + if (l->rsize == 2) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + #else + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); + #endif + } else + if (l->rsize == 3) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + #else + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); + #endif + } else + if (l->rsize == 4) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + #else + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); + #endif + } else + if (l->rsize == 5) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); + #else + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); + #endif + } else + if (l->rsize == 6) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); + #else + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>16); + #endif + } else + if (l->rsize == 7) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[6] = (unsigned char)(iret>>48); + #else + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[6] = (unsigned char)(iret>>8); + #endif + } else + if (l->rsize >= 8 && l->rsize <= 16) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[6] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[7] = (unsigned char)(iret>>56); + #else + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[6] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[7] = (unsigned char)(iret); + #endif + if (l->rsize == 8) { + } else + if (l->rsize == 9) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + #else + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + #endif + } else + if (l->rsize == 10) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + #else + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); + #endif + } else + if (l->rsize == 11) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + #else + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); + #endif + } else + if (l->rsize == 12) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + #else + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); + #endif + } else + if (l->rsize == 13) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); + #else + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); + #endif + } else + if (l->rsize == 14) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); + #else + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>16); + #endif + } else + if (l->rsize == 15) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>48); + #else + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>8); + #endif + } else + if (l->rsize == 16) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+7] = (unsigned char)(iret2>>56); + #else + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+7] = (unsigned char)(iret2); + #endif + } + } + #else /* Optimized: fewer conditional jumps, fewer memory accesses */ + uintptr_t count = l->rsize; /* > 0, ≤ 2*sizeof(__avword) */ + __avword* wordaddr = (__avword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avword)-1)); + uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avword)-1); /* ≥ 0, < sizeof(__avword) */ + uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__avword) */ + #if defined(_MIPSEL) + if (count <= sizeof(__avword)) { + /* Use iret. */ + if (end_offset <= sizeof(__avword)) { + /* 0 < end_offset ≤ sizeof(__avword) */ + __avword mask0 = ((__avword)2 << (end_offset*8-1)) - ((__avword)1 << (start_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; + } else { + /* sizeof(__avword) < end_offset < 2*sizeof(__avword), start_offset > 0 */ + __avword mask0 = - ((__avword)1 << (start_offset*8)); + __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; + wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; + wordaddr[1] ^= (wordaddr[1] ^ (iret >> (sizeof(__avword)*8-start_offset*8))) & mask1; + } + } else { + /* Use iret, iret2. */ + __avword mask0 = - ((__avword)1 << (start_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; + if (end_offset <= 2*sizeof(__avword)) { + /* sizeof(__avword) < end_offset ≤ 2*sizeof(__avword) */ + __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; + wordaddr[1] ^= (wordaddr[1] ^ ((iret >> (sizeof(__avword)*4-start_offset*4) >> (sizeof(__avword)*4-start_offset*4)) | (iret2 << (start_offset*8)))) & mask1; + } else { + /* 2*sizeof(__avword) < end_offset < 3*sizeof(__avword), start_offset > 0 */ + __avword mask2 = ((__avword)2 << (end_offset*8-2*sizeof(__avword)*8-1)) - 1; + wordaddr[1] = (iret >> (sizeof(__avword)*8-start_offset*8)) | (iret2 << (start_offset*8)); + wordaddr[2] ^= (wordaddr[2] ^ (iret2 >> (sizeof(__avword)*8-start_offset*8))) & mask2; + } + } + #else + if (count <= sizeof(__avword)) { + /* Use iret. */ + if (end_offset <= sizeof(__avword)) { + /* 0 < end_offset ≤ sizeof(__avword) */ + __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - ((__avword)1 << (sizeof(__avword)*8-end_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; + } else { + /* sizeof(__avword) < end_offset < 2*sizeof(__avword), start_offset > 0 */ + __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - 1; + __avword mask1 = - ((__avword)1 << (2*sizeof(__avword)*8-end_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; + wordaddr[1] ^= (wordaddr[1] ^ (iret << (sizeof(__avword)*8-start_offset*8))) & mask1; + } + } else { + /* Use iret, iret2. */ + __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - 1; + wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; + if (end_offset <= 2*sizeof(__avword)) { + /* sizeof(__avword) < end_offset ≤ 2*sizeof(__avword) */ + __avword mask1 = - ((__avword)1 << (2*sizeof(__avword)*8-end_offset*8)); + wordaddr[1] ^= (wordaddr[1] ^ ((iret << (sizeof(__avword)*4-start_offset*4) << (sizeof(__avword)*4-start_offset*4)) | (iret2 >> (start_offset*8)))) & mask1; + } else { + /* 2*sizeof(__avword) < end_offset < 3*sizeof(__avword), start_offset > 0 */ + __avword mask2 = - ((__avword)1 << (3*sizeof(__avword)*8-end_offset*8)); + wordaddr[1] = (iret << (sizeof(__avword)*8-start_offset*8)) | (iret2 >> (start_offset*8)); + wordaddr[2] ^= (wordaddr[2] ^ (iret2 << (sizeof(__avword)*8-start_offset*8))) & mask2; + } + } + #endif + #endif + } + } + } + } + return 0; +} diff --git a/avcall/avcall-mips64eb-linux.s b/avcall/avcall-mips64eb-linux.s new file mode 100644 index 0000000..c638618 --- /dev/null +++ b/avcall/avcall-mips64eb-linux.s @@ -0,0 +1,734 @@ + .file 1 "avcall-mips64.c" + .section .mdebug.abi64 + .previous + .nan legacy + .module fp=64 + .module oddspreg + .abicalls + .text + .align 2 + .align 3 + .globl avcall_call + .set nomips16 + .set nomicromips + .ent avcall_call + .type avcall_call, @function +avcall_call: + .frame $fp,32,$31 # vars= 0, regs= 4/0, args= 0, gp= 0 + .mask 0xd0010000,-8 + .fmask 0x00000000,0 + ld $2,40($4) + ld $12,48($4) + lw $3,68($4) + daddiu $sp,$sp,-32 + dsubu $6,$2,$12 + dsra $6,$6,3 + sd $fp,16($sp) + sd $16,0($sp) + sd $31,24($sp) + move $fp,$sp + daddiu $sp,$sp,-2064 + move $16,$4 + sll $6,$6,0 + .set noreorder + .set nomacro + beq $3,$0,.L2 + move $2,$sp + .set macro + .set reorder + + andi $4,$3,0x1 + .set noreorder + .set nomacro + beq $4,$0,.L125 + andi $4,$3,0x2 + .set macro + .set reorder + +#APP + # 77 "avcall-mips64.c" 1 + lwc1 $f12,76($16) + # 0 "" 2 +#NO_APP + andi $4,$3,0x2 +.L125: + .set noreorder + .set nomacro + beq $4,$0,.L126 + andi $4,$3,0x4 + .set macro + .set reorder + +#APP + # 79 "avcall-mips64.c" 1 + lwc1 $f13,80($16) + # 0 "" 2 +#NO_APP + andi $4,$3,0x4 +.L126: + .set noreorder + .set nomacro + beq $4,$0,.L127 + andi $4,$3,0x8 + .set macro + .set reorder + +#APP + # 81 "avcall-mips64.c" 1 + lwc1 $f14,84($16) + # 0 "" 2 +#NO_APP + andi $4,$3,0x8 +.L127: + .set noreorder + .set nomacro + beq $4,$0,.L128 + andi $4,$3,0x10 + .set macro + .set reorder + +#APP + # 83 "avcall-mips64.c" 1 + lwc1 $f15,88($16) + # 0 "" 2 +#NO_APP + andi $4,$3,0x10 +.L128: + .set noreorder + .set nomacro + beq $4,$0,.L129 + andi $4,$3,0x20 + .set macro + .set reorder + +#APP + # 85 "avcall-mips64.c" 1 + lwc1 $f16,92($16) + # 0 "" 2 +#NO_APP + andi $4,$3,0x20 +.L129: + .set noreorder + .set nomacro + beq $4,$0,.L130 + andi $4,$3,0x40 + .set macro + .set reorder + +#APP + # 87 "avcall-mips64.c" 1 + lwc1 $f17,96($16) + # 0 "" 2 +#NO_APP + andi $4,$3,0x40 +.L130: + .set noreorder + .set nomacro + beql $4,$0,.L131 + andi $3,$3,0x80 + .set macro + .set reorder + +#APP + # 89 "avcall-mips64.c" 1 + lwc1 $f18,100($16) + # 0 "" 2 +#NO_APP + andi $3,$3,0x80 +.L131: + bne $3,$0,.L118 +.L2: + lw $3,72($16) +.L124: + .set noreorder + .set nomacro + beql $3,$0,.L123 + slt $3,$6,9 + .set macro + .set reorder + + andi $4,$3,0x1 + .set noreorder + .set nomacro + beq $4,$0,.L132 + andi $4,$3,0x2 + .set macro + .set reorder + +#APP + # 97 "avcall-mips64.c" 1 + ldc1 $f12,0($12) + # 0 "" 2 +#NO_APP + andi $4,$3,0x2 +.L132: + .set noreorder + .set nomacro + beq $4,$0,.L133 + andi $4,$3,0x4 + .set macro + .set reorder + +#APP + # 99 "avcall-mips64.c" 1 + ldc1 $f13,8($12) + # 0 "" 2 +#NO_APP + andi $4,$3,0x4 +.L133: + .set noreorder + .set nomacro + beq $4,$0,.L134 + andi $4,$3,0x8 + .set macro + .set reorder + +#APP + # 101 "avcall-mips64.c" 1 + ldc1 $f14,16($12) + # 0 "" 2 +#NO_APP + andi $4,$3,0x8 +.L134: + .set noreorder + .set nomacro + beq $4,$0,.L135 + andi $4,$3,0x10 + .set macro + .set reorder + +#APP + # 103 "avcall-mips64.c" 1 + ldc1 $f15,24($12) + # 0 "" 2 +#NO_APP + andi $4,$3,0x10 +.L135: + .set noreorder + .set nomacro + beq $4,$0,.L136 + andi $4,$3,0x20 + .set macro + .set reorder + +#APP + # 105 "avcall-mips64.c" 1 + ldc1 $f16,32($12) + # 0 "" 2 +#NO_APP + andi $4,$3,0x20 +.L136: + .set noreorder + .set nomacro + beq $4,$0,.L137 + andi $4,$3,0x40 + .set macro + .set reorder + +#APP + # 107 "avcall-mips64.c" 1 + ldc1 $f17,40($12) + # 0 "" 2 +#NO_APP + andi $4,$3,0x40 +.L137: + .set noreorder + .set nomacro + beql $4,$0,.L138 + andi $3,$3,0x80 + .set macro + .set reorder + +#APP + # 109 "avcall-mips64.c" 1 + ldc1 $f18,48($12) + # 0 "" 2 +#NO_APP + andi $3,$3,0x80 +.L138: + bne $3,$0,.L119 + slt $3,$6,9 +.L123: + .set noreorder + .set nomacro + bne $3,$0,.L22 + daddiu $4,$12,64 + .set macro + .set reorder + + li $3,8 # 0x8 + .align 3 +.L21: + ld $5,0($4) + addiu $3,$3,1 + daddiu $4,$4,8 + sd $5,0($2) + .set noreorder + .set nomacro + bne $6,$3,.L21 + daddiu $2,$2,8 + .set macro + .set reorder + +.L22: +#APP + # 118 "avcall-mips64.c" 1 + ld $4,0($12) + # 0 "" 2 + # 119 "avcall-mips64.c" 1 + ld $5,8($12) + # 0 "" 2 + # 120 "avcall-mips64.c" 1 + ld $6,16($12) + # 0 "" 2 + # 121 "avcall-mips64.c" 1 + ld $7,24($12) + # 0 "" 2 + # 122 "avcall-mips64.c" 1 + ld $8,32($12) + # 0 "" 2 + # 123 "avcall-mips64.c" 1 + ld $9,40($12) + # 0 "" 2 + # 124 "avcall-mips64.c" 1 + ld $10,48($12) + # 0 "" 2 + # 125 "avcall-mips64.c" 1 + ld $11,56($12) + # 0 "" 2 +#NO_APP + ld $25,8($16) + jalr $25 + lw $4,24($16) + li $5,1 # 0x1 + .set noreorder + .set nomacro + beql $4,$5,.L139 + move $sp,$fp + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$0,.L110 + li $5,2 # 0x2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L108 + li $5,3 # 0x3 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L108 + li $5,4 # 0x4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L108 + li $5,5 # 0x5 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L111 + li $5,6 # 0x6 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L111 + li $5,7 # 0x7 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L113 + li $5,8 # 0x8 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L113 + li $5,9 # 0x9 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L110 + li $5,10 # 0xa + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L110 + li $5,11 # 0xb + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L110 + li $5,12 # 0xc + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L110 + li $5,13 # 0xd + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L120 + li $5,14 # 0xe + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L121 + li $5,15 # 0xf + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L110 + li $5,16 # 0x10 + .set macro + .set reorder + + .set noreorder + .set nomacro + bnel $4,$5,.L139 + move $sp,$fp + .set macro + .set reorder + + lw $4,0($16) + andi $5,$4,0x200 + .set noreorder + .set nomacro + beq $5,$0,.L19 + andi $4,$4,0x4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beql $4,$0,.L38 + ld $4,32($16) + .set macro + .set reorder + + ld $3,32($16) + li $4,1 # 0x1 + .set noreorder + .set nomacro + beq $3,$4,.L108 + li $4,2 # 0x2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $3,$4,.L111 + li $4,4 # 0x4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $3,$4,.L113 + li $4,8 # 0x8 + .set macro + .set reorder + + .set noreorder + .set nomacro + beql $3,$4,.L140 + ld $3,16($16) + .set macro + .set reorder + +.L19: + move $sp,$fp +.L139: + ld $31,24($sp) + ld $fp,16($sp) + ld $16,0($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + daddiu $sp,$sp,32 + .set macro + .set reorder + + .align 3 +.L110: + ld $3,16($16) + .align 3 +.L140: + sd $2,0($3) + move $sp,$fp + ld $31,24($sp) + ld $fp,16($sp) + ld $16,0($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + daddiu $sp,$sp,32 + .set macro + .set reorder + + .align 3 +.L119: +#APP + # 111 "avcall-mips64.c" 1 + ldc1 $f19,56($12) + # 0 "" 2 +#NO_APP + .set noreorder + .set nomacro + b .L123 + slt $3,$6,9 + .set macro + .set reorder + + .align 3 +.L118: +#APP + # 91 "avcall-mips64.c" 1 + lwc1 $f19,104($16) + # 0 "" 2 +#NO_APP + .set noreorder + .set nomacro + b .L124 + lw $3,72($16) + .set macro + .set reorder + + .align 3 +.L108: + ld $3,16($16) + sb $2,0($3) + move $sp,$fp + ld $31,24($sp) + ld $fp,16($sp) + ld $16,0($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + daddiu $sp,$sp,32 + .set macro + .set reorder + +.L111: + ld $3,16($16) + .set noreorder + .set nomacro + b .L19 + sh $2,0($3) + .set macro + .set reorder + +.L113: + ld $3,16($16) + .set noreorder + .set nomacro + b .L19 + sw $2,0($3) + .set macro + .set reorder + +.L120: + ld $2,16($16) + .set noreorder + .set nomacro + b .L19 + swc1 $f0,0($2) + .set macro + .set reorder + +.L121: + ld $2,16($16) + .set noreorder + .set nomacro + b .L19 + sdc1 $f0,0($2) + .set macro + .set reorder + +.L38: + daddiu $5,$4,-1 + sltu $5,$5,16 + .set noreorder + .set nomacro + beq $5,$0,.L19 + sltu $7,$4,9 + .set macro + .set reorder + + ld $6,16($16) + li $8,-8 # 0xfffffffffffffff8 + andi $5,$6,0x7 + daddu $4,$4,$5 + .set noreorder + .set nomacro + beq $7,$0,.L42 + and $6,$6,$8 + .set macro + .set reorder + + sltu $3,$4,9 + .set noreorder + .set nomacro + beq $3,$0,.L43 + subu $8,$0,$5 + .set macro + .set reorder + + subu $3,$0,$5 + sll $7,$4,0 + sll $3,$3,3 + ld $8,0($6) + addiu $3,$3,63 + subu $7,$0,$7 + li $4,2 # 0x2 + dsll $4,$4,$3 + sll $7,$7,3 + sll $5,$5,3 + li $3,1 # 0x1 + dsll $3,$3,$7 + dsra $2,$2,$5 + dsubu $3,$4,$3 + xor $2,$2,$8 + and $2,$3,$2 + xor $2,$2,$8 + .set noreorder + .set nomacro + b .L19 + sd $2,0($6) + .set macro + .set reorder + + .align 3 +.L42: + subu $9,$0,$5 + ld $11,0($6) + sll $10,$9,3 + addiu $7,$10,63 + sll $5,$5,3 + li $8,2 # 0x2 + dsll $8,$8,$7 + dsra $7,$2,$5 + daddiu $8,$8,-1 + xor $7,$7,$11 + and $7,$8,$7 + xor $7,$7,$11 + sltu $8,$4,17 + .set noreorder + .set nomacro + bne $8,$0,.L122 + sd $7,0($6) + .set macro + .set reorder + + ld $9,16($6) + sll $4,$4,0 + addiu $10,$10,64 + subu $4,$0,$4 + move $8,$3 + sll $4,$4,3 + dsll $3,$3,$10 + li $7,-1 # 0xffffffffffffffff + dsll $4,$7,$4 + xor $3,$3,$9 + dsll $2,$2,$10 + dsra $5,$8,$5 + and $3,$4,$3 + or $2,$2,$5 + xor $3,$3,$9 + sd $2,8($6) + .set noreorder + .set nomacro + b .L19 + sd $3,16($6) + .set macro + .set reorder + +.L43: + ld $11,0($6) + ld $10,8($6) + sll $7,$4,0 + sll $8,$8,3 + sll $5,$5,3 + subu $9,$0,$7 + addiu $4,$8,63 + li $7,2 # 0x2 + dsra $3,$2,$5 + dsll $4,$7,$4 + dsll $2,$2,$8 + sll $7,$9,3 + li $5,-1 # 0xffffffffffffffff + daddiu $4,$4,-1 + xor $3,$3,$11 + dsll $5,$5,$7 + xor $2,$2,$10 + and $3,$4,$3 + and $2,$5,$2 + xor $3,$3,$11 + xor $2,$2,$10 + sd $3,0($6) + .set noreorder + .set nomacro + b .L19 + sd $2,8($6) + .set macro + .set reorder + +.L122: + sll $7,$9,2 + addiu $7,$7,32 + ld $8,8($6) + dsll $2,$2,$7 + sll $4,$4,0 + dsll $7,$2,$7 + dsra $3,$3,$5 + subu $4,$0,$4 + or $3,$7,$3 + sll $4,$4,3 + li $2,-1 # 0xffffffffffffffff + xor $3,$3,$8 + dsll $2,$2,$4 + and $2,$3,$2 + xor $2,$2,$8 + .set noreorder + .set nomacro + b .L19 + sd $2,8($6) + .set macro + .set reorder + + .end avcall_call + .size avcall_call, .-avcall_call + .ident "GCC: (GNU) 5.4.0" diff --git a/avcall/avcall-mips64eb-macro.S b/avcall/avcall-mips64eb-macro.S new file mode 100644 index 0000000..6858ebf --- /dev/null +++ b/avcall/avcall-mips64eb-macro.S @@ -0,0 +1,728 @@ +#include "asm-mips.h" + .file 1 "avcall-mips64.c" + .text + .align 2 + .align 3 + .globl avcall_call + .set nomips16 + .set nomicromips + .ent avcall_call + DECLARE_FUNCTION(avcall_call) +avcall_call: + .frame $fp,32,$31 + .mask 0xd0010000,-8 + .fmask 0x00000000,0 + ld $2,40($4) + ld $12,48($4) + lw $3,68($4) + daddiu $sp,$sp,-32 + dsubu $6,$2,$12 + dsra $6,$6,3 + sd $fp,16($sp) + sd $16,0($sp) + sd $31,24($sp) + move $fp,$sp + daddiu $sp,$sp,-2064 + move $16,$4 + sll $6,$6,0 + .set noreorder + .set nomacro + beq $3,$0,.L2 + move $2,$sp + .set macro + .set reorder + + andi $4,$3,0x1 + .set noreorder + .set nomacro + beq $4,$0,.L125 + andi $4,$3,0x2 + .set macro + .set reorder + + + + lwc1 $f12,76($16) + + + andi $4,$3,0x2 +.L125: + .set noreorder + .set nomacro + beq $4,$0,.L126 + andi $4,$3,0x4 + .set macro + .set reorder + + + + lwc1 $f13,80($16) + + + andi $4,$3,0x4 +.L126: + .set noreorder + .set nomacro + beq $4,$0,.L127 + andi $4,$3,0x8 + .set macro + .set reorder + + + + lwc1 $f14,84($16) + + + andi $4,$3,0x8 +.L127: + .set noreorder + .set nomacro + beq $4,$0,.L128 + andi $4,$3,0x10 + .set macro + .set reorder + + + + lwc1 $f15,88($16) + + + andi $4,$3,0x10 +.L128: + .set noreorder + .set nomacro + beq $4,$0,.L129 + andi $4,$3,0x20 + .set macro + .set reorder + + + + lwc1 $f16,92($16) + + + andi $4,$3,0x20 +.L129: + .set noreorder + .set nomacro + beq $4,$0,.L130 + andi $4,$3,0x40 + .set macro + .set reorder + + + + lwc1 $f17,96($16) + + + andi $4,$3,0x40 +.L130: + .set noreorder + .set nomacro + beql $4,$0,.L131 + andi $3,$3,0x80 + .set macro + .set reorder + + + + lwc1 $f18,100($16) + + + andi $3,$3,0x80 +.L131: + bne $3,$0,.L118 +.L2: + lw $3,72($16) +.L124: + .set noreorder + .set nomacro + beql $3,$0,.L123 + slt $3,$6,9 + .set macro + .set reorder + + andi $4,$3,0x1 + .set noreorder + .set nomacro + beq $4,$0,.L132 + andi $4,$3,0x2 + .set macro + .set reorder + + + + ldc1 $f12,0($12) + + + andi $4,$3,0x2 +.L132: + .set noreorder + .set nomacro + beq $4,$0,.L133 + andi $4,$3,0x4 + .set macro + .set reorder + + + + ldc1 $f13,8($12) + + + andi $4,$3,0x4 +.L133: + .set noreorder + .set nomacro + beq $4,$0,.L134 + andi $4,$3,0x8 + .set macro + .set reorder + + + + ldc1 $f14,16($12) + + + andi $4,$3,0x8 +.L134: + .set noreorder + .set nomacro + beq $4,$0,.L135 + andi $4,$3,0x10 + .set macro + .set reorder + + + + ldc1 $f15,24($12) + + + andi $4,$3,0x10 +.L135: + .set noreorder + .set nomacro + beq $4,$0,.L136 + andi $4,$3,0x20 + .set macro + .set reorder + + + + ldc1 $f16,32($12) + + + andi $4,$3,0x20 +.L136: + .set noreorder + .set nomacro + beq $4,$0,.L137 + andi $4,$3,0x40 + .set macro + .set reorder + + + + ldc1 $f17,40($12) + + + andi $4,$3,0x40 +.L137: + .set noreorder + .set nomacro + beql $4,$0,.L138 + andi $3,$3,0x80 + .set macro + .set reorder + + + + ldc1 $f18,48($12) + + + andi $3,$3,0x80 +.L138: + bne $3,$0,.L119 + slt $3,$6,9 +.L123: + .set noreorder + .set nomacro + bne $3,$0,.L22 + daddiu $4,$12,64 + .set macro + .set reorder + + li $3,8 + .align 3 +.L21: + ld $5,0($4) + addiu $3,$3,1 + daddiu $4,$4,8 + sd $5,0($2) + .set noreorder + .set nomacro + bne $6,$3,.L21 + daddiu $2,$2,8 + .set macro + .set reorder + +.L22: + + + ld $4,0($12) + + + ld $5,8($12) + + + ld $6,16($12) + + + ld $7,24($12) + + + ld $8,32($12) + + + ld $9,40($12) + + + ld $10,48($12) + + + ld $11,56($12) + + + ld $25,8($16) + jalr $25 + lw $4,24($16) + li $5,1 + .set noreorder + .set nomacro + beql $4,$5,.L139 + move $sp,$fp + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$0,.L110 + li $5,2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L108 + li $5,3 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L108 + li $5,4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L108 + li $5,5 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L111 + li $5,6 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L111 + li $5,7 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L113 + li $5,8 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L113 + li $5,9 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L110 + li $5,10 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L110 + li $5,11 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L110 + li $5,12 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L110 + li $5,13 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L120 + li $5,14 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L121 + li $5,15 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L110 + li $5,16 + .set macro + .set reorder + + .set noreorder + .set nomacro + bnel $4,$5,.L139 + move $sp,$fp + .set macro + .set reorder + + lw $4,0($16) + andi $5,$4,0x200 + .set noreorder + .set nomacro + beq $5,$0,.L19 + andi $4,$4,0x4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beql $4,$0,.L38 + ld $4,32($16) + .set macro + .set reorder + + ld $3,32($16) + li $4,1 + .set noreorder + .set nomacro + beq $3,$4,.L108 + li $4,2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $3,$4,.L111 + li $4,4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $3,$4,.L113 + li $4,8 + .set macro + .set reorder + + .set noreorder + .set nomacro + beql $3,$4,.L140 + ld $3,16($16) + .set macro + .set reorder + +.L19: + move $sp,$fp +.L139: + ld $31,24($sp) + ld $fp,16($sp) + ld $16,0($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + daddiu $sp,$sp,32 + .set macro + .set reorder + + .align 3 +.L110: + ld $3,16($16) + .align 3 +.L140: + sd $2,0($3) + move $sp,$fp + ld $31,24($sp) + ld $fp,16($sp) + ld $16,0($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + daddiu $sp,$sp,32 + .set macro + .set reorder + + .align 3 +.L119: + + + ldc1 $f19,56($12) + + + .set noreorder + .set nomacro + b .L123 + slt $3,$6,9 + .set macro + .set reorder + + .align 3 +.L118: + + + lwc1 $f19,104($16) + + + .set noreorder + .set nomacro + b .L124 + lw $3,72($16) + .set macro + .set reorder + + .align 3 +.L108: + ld $3,16($16) + sb $2,0($3) + move $sp,$fp + ld $31,24($sp) + ld $fp,16($sp) + ld $16,0($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + daddiu $sp,$sp,32 + .set macro + .set reorder + +.L111: + ld $3,16($16) + .set noreorder + .set nomacro + b .L19 + sh $2,0($3) + .set macro + .set reorder + +.L113: + ld $3,16($16) + .set noreorder + .set nomacro + b .L19 + sw $2,0($3) + .set macro + .set reorder + +.L120: + ld $2,16($16) + .set noreorder + .set nomacro + b .L19 + swc1 $f0,0($2) + .set macro + .set reorder + +.L121: + ld $2,16($16) + .set noreorder + .set nomacro + b .L19 + sdc1 $f0,0($2) + .set macro + .set reorder + +.L38: + daddiu $5,$4,-1 + sltu $5,$5,16 + .set noreorder + .set nomacro + beq $5,$0,.L19 + sltu $7,$4,9 + .set macro + .set reorder + + ld $6,16($16) + li $8,-8 + andi $5,$6,0x7 + daddu $4,$4,$5 + .set noreorder + .set nomacro + beq $7,$0,.L42 + and $6,$6,$8 + .set macro + .set reorder + + sltu $3,$4,9 + .set noreorder + .set nomacro + beq $3,$0,.L43 + subu $8,$0,$5 + .set macro + .set reorder + + subu $3,$0,$5 + sll $7,$4,0 + sll $3,$3,3 + ld $8,0($6) + addiu $3,$3,63 + subu $7,$0,$7 + li $4,2 + dsll $4,$4,$3 + sll $7,$7,3 + sll $5,$5,3 + li $3,1 + dsll $3,$3,$7 + dsra $2,$2,$5 + dsubu $3,$4,$3 + xor $2,$2,$8 + and $2,$3,$2 + xor $2,$2,$8 + .set noreorder + .set nomacro + b .L19 + sd $2,0($6) + .set macro + .set reorder + + .align 3 +.L42: + subu $9,$0,$5 + ld $11,0($6) + sll $10,$9,3 + addiu $7,$10,63 + sll $5,$5,3 + li $8,2 + dsll $8,$8,$7 + dsra $7,$2,$5 + daddiu $8,$8,-1 + xor $7,$7,$11 + and $7,$8,$7 + xor $7,$7,$11 + sltu $8,$4,17 + .set noreorder + .set nomacro + bne $8,$0,.L122 + sd $7,0($6) + .set macro + .set reorder + + ld $9,16($6) + sll $4,$4,0 + addiu $10,$10,64 + subu $4,$0,$4 + move $8,$3 + sll $4,$4,3 + dsll $3,$3,$10 + li $7,-1 + dsll $4,$7,$4 + xor $3,$3,$9 + dsll $2,$2,$10 + dsra $5,$8,$5 + and $3,$4,$3 + or $2,$2,$5 + xor $3,$3,$9 + sd $2,8($6) + .set noreorder + .set nomacro + b .L19 + sd $3,16($6) + .set macro + .set reorder + +.L43: + ld $11,0($6) + ld $10,8($6) + sll $7,$4,0 + sll $8,$8,3 + sll $5,$5,3 + subu $9,$0,$7 + addiu $4,$8,63 + li $7,2 + dsra $3,$2,$5 + dsll $4,$7,$4 + dsll $2,$2,$8 + sll $7,$9,3 + li $5,-1 + daddiu $4,$4,-1 + xor $3,$3,$11 + dsll $5,$5,$7 + xor $2,$2,$10 + and $3,$4,$3 + and $2,$5,$2 + xor $3,$3,$11 + xor $2,$2,$10 + sd $3,0($6) + .set noreorder + .set nomacro + b .L19 + sd $2,8($6) + .set macro + .set reorder + +.L122: + sll $7,$9,2 + addiu $7,$7,32 + ld $8,8($6) + dsll $2,$2,$7 + sll $4,$4,0 + dsll $7,$2,$7 + dsra $3,$3,$5 + subu $4,$0,$4 + or $3,$7,$3 + sll $4,$4,3 + li $2,-1 + xor $3,$3,$8 + dsll $2,$2,$4 + and $2,$3,$2 + xor $2,$2,$8 + .set noreorder + .set nomacro + b .L19 + sd $2,8($6) + .set macro + .set reorder + + .end avcall_call + .size avcall_call, .-avcall_call diff --git a/avcall/avcall-mips64el-linux.s b/avcall/avcall-mips64el-linux.s new file mode 100644 index 0000000..ce33b01 --- /dev/null +++ b/avcall/avcall-mips64el-linux.s @@ -0,0 +1,729 @@ + .file 1 "avcall-mips64.c" + .section .mdebug.abi64 + .previous + .nan legacy + .module fp=64 + .module oddspreg + .abicalls + .text + .align 2 + .align 3 + .globl avcall_call + .set nomips16 + .set nomicromips + .ent avcall_call + .type avcall_call, @function +avcall_call: + .frame $fp,32,$31 # vars= 0, regs= 4/0, args= 0, gp= 0 + .mask 0xd0010000,-8 + .fmask 0x00000000,0 + ld $2,40($4) + ld $12,48($4) + lw $3,68($4) + daddiu $sp,$sp,-32 + dsubu $6,$2,$12 + dsra $6,$6,3 + sd $fp,16($sp) + sd $16,0($sp) + sd $31,24($sp) + move $fp,$sp + daddiu $sp,$sp,-2064 + move $16,$4 + sll $6,$6,0 + .set noreorder + .set nomacro + beq $3,$0,.L2 + move $2,$sp + .set macro + .set reorder + + andi $4,$3,0x1 + .set noreorder + .set nomacro + beq $4,$0,.L125 + andi $4,$3,0x2 + .set macro + .set reorder + +#APP + # 77 "avcall-mips64.c" 1 + lwc1 $f12,76($16) + # 0 "" 2 +#NO_APP + andi $4,$3,0x2 +.L125: + .set noreorder + .set nomacro + beq $4,$0,.L126 + andi $4,$3,0x4 + .set macro + .set reorder + +#APP + # 79 "avcall-mips64.c" 1 + lwc1 $f13,80($16) + # 0 "" 2 +#NO_APP + andi $4,$3,0x4 +.L126: + .set noreorder + .set nomacro + beq $4,$0,.L127 + andi $4,$3,0x8 + .set macro + .set reorder + +#APP + # 81 "avcall-mips64.c" 1 + lwc1 $f14,84($16) + # 0 "" 2 +#NO_APP + andi $4,$3,0x8 +.L127: + .set noreorder + .set nomacro + beq $4,$0,.L128 + andi $4,$3,0x10 + .set macro + .set reorder + +#APP + # 83 "avcall-mips64.c" 1 + lwc1 $f15,88($16) + # 0 "" 2 +#NO_APP + andi $4,$3,0x10 +.L128: + .set noreorder + .set nomacro + beq $4,$0,.L129 + andi $4,$3,0x20 + .set macro + .set reorder + +#APP + # 85 "avcall-mips64.c" 1 + lwc1 $f16,92($16) + # 0 "" 2 +#NO_APP + andi $4,$3,0x20 +.L129: + .set noreorder + .set nomacro + beq $4,$0,.L130 + andi $4,$3,0x40 + .set macro + .set reorder + +#APP + # 87 "avcall-mips64.c" 1 + lwc1 $f17,96($16) + # 0 "" 2 +#NO_APP + andi $4,$3,0x40 +.L130: + .set noreorder + .set nomacro + beql $4,$0,.L131 + andi $3,$3,0x80 + .set macro + .set reorder + +#APP + # 89 "avcall-mips64.c" 1 + lwc1 $f18,100($16) + # 0 "" 2 +#NO_APP + andi $3,$3,0x80 +.L131: + bne $3,$0,.L118 +.L2: + lw $3,72($16) +.L124: + .set noreorder + .set nomacro + beql $3,$0,.L123 + slt $3,$6,9 + .set macro + .set reorder + + andi $4,$3,0x1 + .set noreorder + .set nomacro + beq $4,$0,.L132 + andi $4,$3,0x2 + .set macro + .set reorder + +#APP + # 97 "avcall-mips64.c" 1 + ldc1 $f12,0($12) + # 0 "" 2 +#NO_APP + andi $4,$3,0x2 +.L132: + .set noreorder + .set nomacro + beq $4,$0,.L133 + andi $4,$3,0x4 + .set macro + .set reorder + +#APP + # 99 "avcall-mips64.c" 1 + ldc1 $f13,8($12) + # 0 "" 2 +#NO_APP + andi $4,$3,0x4 +.L133: + .set noreorder + .set nomacro + beq $4,$0,.L134 + andi $4,$3,0x8 + .set macro + .set reorder + +#APP + # 101 "avcall-mips64.c" 1 + ldc1 $f14,16($12) + # 0 "" 2 +#NO_APP + andi $4,$3,0x8 +.L134: + .set noreorder + .set nomacro + beq $4,$0,.L135 + andi $4,$3,0x10 + .set macro + .set reorder + +#APP + # 103 "avcall-mips64.c" 1 + ldc1 $f15,24($12) + # 0 "" 2 +#NO_APP + andi $4,$3,0x10 +.L135: + .set noreorder + .set nomacro + beq $4,$0,.L136 + andi $4,$3,0x20 + .set macro + .set reorder + +#APP + # 105 "avcall-mips64.c" 1 + ldc1 $f16,32($12) + # 0 "" 2 +#NO_APP + andi $4,$3,0x20 +.L136: + .set noreorder + .set nomacro + beq $4,$0,.L137 + andi $4,$3,0x40 + .set macro + .set reorder + +#APP + # 107 "avcall-mips64.c" 1 + ldc1 $f17,40($12) + # 0 "" 2 +#NO_APP + andi $4,$3,0x40 +.L137: + .set noreorder + .set nomacro + beql $4,$0,.L138 + andi $3,$3,0x80 + .set macro + .set reorder + +#APP + # 109 "avcall-mips64.c" 1 + ldc1 $f18,48($12) + # 0 "" 2 +#NO_APP + andi $3,$3,0x80 +.L138: + bne $3,$0,.L119 + slt $3,$6,9 +.L123: + .set noreorder + .set nomacro + bne $3,$0,.L22 + daddiu $4,$12,64 + .set macro + .set reorder + + li $3,8 # 0x8 + .align 3 +.L21: + ld $5,0($4) + addiu $3,$3,1 + daddiu $4,$4,8 + sd $5,0($2) + .set noreorder + .set nomacro + bne $6,$3,.L21 + daddiu $2,$2,8 + .set macro + .set reorder + +.L22: +#APP + # 118 "avcall-mips64.c" 1 + ld $4,0($12) + # 0 "" 2 + # 119 "avcall-mips64.c" 1 + ld $5,8($12) + # 0 "" 2 + # 120 "avcall-mips64.c" 1 + ld $6,16($12) + # 0 "" 2 + # 121 "avcall-mips64.c" 1 + ld $7,24($12) + # 0 "" 2 + # 122 "avcall-mips64.c" 1 + ld $8,32($12) + # 0 "" 2 + # 123 "avcall-mips64.c" 1 + ld $9,40($12) + # 0 "" 2 + # 124 "avcall-mips64.c" 1 + ld $10,48($12) + # 0 "" 2 + # 125 "avcall-mips64.c" 1 + ld $11,56($12) + # 0 "" 2 +#NO_APP + ld $25,8($16) + jalr $25 + lw $4,24($16) + li $5,1 # 0x1 + .set noreorder + .set nomacro + beql $4,$5,.L139 + move $sp,$fp + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$0,.L110 + li $5,2 # 0x2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L108 + li $5,3 # 0x3 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L108 + li $5,4 # 0x4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L108 + li $5,5 # 0x5 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L111 + li $5,6 # 0x6 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L111 + li $5,7 # 0x7 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L113 + li $5,8 # 0x8 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L113 + li $5,9 # 0x9 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L110 + li $5,10 # 0xa + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L110 + li $5,11 # 0xb + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L110 + li $5,12 # 0xc + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L110 + li $5,13 # 0xd + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L120 + li $5,14 # 0xe + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L121 + li $5,15 # 0xf + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L110 + li $5,16 # 0x10 + .set macro + .set reorder + + .set noreorder + .set nomacro + bnel $4,$5,.L139 + move $sp,$fp + .set macro + .set reorder + + lw $4,0($16) + andi $5,$4,0x200 + .set noreorder + .set nomacro + beq $5,$0,.L19 + andi $4,$4,0x4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beql $4,$0,.L38 + ld $5,32($16) + .set macro + .set reorder + + ld $3,32($16) + li $4,1 # 0x1 + .set noreorder + .set nomacro + beq $3,$4,.L108 + li $4,2 # 0x2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $3,$4,.L111 + li $4,4 # 0x4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $3,$4,.L113 + li $4,8 # 0x8 + .set macro + .set reorder + + .set noreorder + .set nomacro + beql $3,$4,.L140 + ld $3,16($16) + .set macro + .set reorder + +.L19: + move $sp,$fp +.L139: + ld $31,24($sp) + ld $fp,16($sp) + ld $16,0($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + daddiu $sp,$sp,32 + .set macro + .set reorder + + .align 3 +.L110: + ld $3,16($16) + .align 3 +.L140: + sd $2,0($3) + move $sp,$fp + ld $31,24($sp) + ld $fp,16($sp) + ld $16,0($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + daddiu $sp,$sp,32 + .set macro + .set reorder + + .align 3 +.L119: +#APP + # 111 "avcall-mips64.c" 1 + ldc1 $f19,56($12) + # 0 "" 2 +#NO_APP + .set noreorder + .set nomacro + b .L123 + slt $3,$6,9 + .set macro + .set reorder + + .align 3 +.L118: +#APP + # 91 "avcall-mips64.c" 1 + lwc1 $f19,104($16) + # 0 "" 2 +#NO_APP + .set noreorder + .set nomacro + b .L124 + lw $3,72($16) + .set macro + .set reorder + + .align 3 +.L108: + ld $3,16($16) + sb $2,0($3) + move $sp,$fp + ld $31,24($sp) + ld $fp,16($sp) + ld $16,0($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + daddiu $sp,$sp,32 + .set macro + .set reorder + +.L111: + ld $3,16($16) + .set noreorder + .set nomacro + b .L19 + sh $2,0($3) + .set macro + .set reorder + +.L113: + ld $3,16($16) + .set noreorder + .set nomacro + b .L19 + sw $2,0($3) + .set macro + .set reorder + +.L120: + ld $2,16($16) + .set noreorder + .set nomacro + b .L19 + swc1 $f0,0($2) + .set macro + .set reorder + +.L121: + ld $2,16($16) + .set noreorder + .set nomacro + b .L19 + sdc1 $f0,0($2) + .set macro + .set reorder + +.L38: + daddiu $4,$5,-1 + sltu $4,$4,16 + .set noreorder + .set nomacro + beq $4,$0,.L19 + sltu $7,$5,9 + .set macro + .set reorder + + ld $6,16($16) + li $8,-8 # 0xfffffffffffffff8 + andi $4,$6,0x7 + daddu $5,$5,$4 + .set noreorder + .set nomacro + beq $7,$0,.L42 + and $6,$6,$8 + .set macro + .set reorder + + sltu $3,$5,9 + .set noreorder + .set nomacro + beq $3,$0,.L43 + dsll $3,$5,3 + .set macro + .set reorder + + daddiu $3,$3,-1 + ld $7,0($6) + li $5,2 # 0x2 + sll $3,$3,0 + sll $4,$4,3 + dsll $3,$5,$3 + li $5,1 # 0x1 + dsll $5,$5,$4 + dsll $4,$2,$4 + dsubu $3,$3,$5 + xor $4,$4,$7 + and $4,$3,$4 + xor $4,$4,$7 + .set noreorder + .set nomacro + b .L19 + sd $4,0($6) + .set macro + .set reorder + + .align 3 +.L42: + ld $10,0($6) + sll $8,$4,3 + dsll $7,$2,$8 + li $9,-1 # 0xffffffffffffffff + dsll $9,$9,$8 + xor $7,$7,$10 + and $7,$9,$7 + xor $7,$7,$10 + sltu $9,$5,17 + subu $4,$0,$4 + .set noreorder + .set nomacro + bne $9,$0,.L122 + sd $7,0($6) + .set macro + .set reorder + + dsll $5,$5,3 + ld $10,16($6) + sll $4,$4,3 + daddiu $5,$5,-129 + addiu $4,$4,64 + sll $5,$5,0 + li $7,2 # 0x2 + move $9,$3 + dsll $5,$7,$5 + dsra $3,$3,$4 + daddiu $5,$5,-1 + xor $3,$3,$10 + dsra $2,$2,$4 + dsll $8,$9,$8 + and $3,$5,$3 + or $2,$2,$8 + xor $3,$3,$10 + sd $2,8($6) + .set noreorder + .set nomacro + b .L19 + sd $3,16($6) + .set macro + .set reorder + +.L43: + ld $10,0($6) + ld $9,8($6) + subu $7,$0,$4 + daddiu $3,$3,-65 + sll $4,$4,3 + li $5,2 # 0x2 + sll $3,$3,0 + sll $7,$7,3 + dsll $8,$2,$4 + dsll $3,$5,$3 + dsra $2,$2,$7 + li $5,-1 # 0xffffffffffffffff + dsll $4,$5,$4 + daddiu $3,$3,-1 + xor $5,$8,$10 + xor $2,$2,$9 + and $2,$3,$2 + and $4,$4,$5 + xor $3,$4,$10 + xor $2,$2,$9 + sd $3,0($6) + .set noreorder + .set nomacro + b .L19 + sd $2,8($6) + .set macro + .set reorder + +.L122: + sll $4,$4,2 + addiu $4,$4,32 + dsll $5,$5,3 + ld $7,8($6) + dsra $2,$2,$4 + daddiu $5,$5,-65 + dsra $4,$2,$4 + dsll $3,$3,$8 + sll $5,$5,0 + li $2,2 # 0x2 + or $3,$4,$3 + dsll $2,$2,$5 + xor $3,$3,$7 + daddiu $2,$2,-1 + and $2,$3,$2 + xor $2,$2,$7 + .set noreorder + .set nomacro + b .L19 + sd $2,8($6) + .set macro + .set reorder + + .end avcall_call + .size avcall_call, .-avcall_call + .ident "GCC: (GNU) 5.4.0" diff --git a/avcall/avcall-mips64el-macro.S b/avcall/avcall-mips64el-macro.S new file mode 100644 index 0000000..ed3df52 --- /dev/null +++ b/avcall/avcall-mips64el-macro.S @@ -0,0 +1,723 @@ +#include "asm-mips.h" + .file 1 "avcall-mips64.c" + .text + .align 2 + .align 3 + .globl avcall_call + .set nomips16 + .set nomicromips + .ent avcall_call + DECLARE_FUNCTION(avcall_call) +avcall_call: + .frame $fp,32,$31 + .mask 0xd0010000,-8 + .fmask 0x00000000,0 + ld $2,40($4) + ld $12,48($4) + lw $3,68($4) + daddiu $sp,$sp,-32 + dsubu $6,$2,$12 + dsra $6,$6,3 + sd $fp,16($sp) + sd $16,0($sp) + sd $31,24($sp) + move $fp,$sp + daddiu $sp,$sp,-2064 + move $16,$4 + sll $6,$6,0 + .set noreorder + .set nomacro + beq $3,$0,.L2 + move $2,$sp + .set macro + .set reorder + + andi $4,$3,0x1 + .set noreorder + .set nomacro + beq $4,$0,.L125 + andi $4,$3,0x2 + .set macro + .set reorder + + + + lwc1 $f12,76($16) + + + andi $4,$3,0x2 +.L125: + .set noreorder + .set nomacro + beq $4,$0,.L126 + andi $4,$3,0x4 + .set macro + .set reorder + + + + lwc1 $f13,80($16) + + + andi $4,$3,0x4 +.L126: + .set noreorder + .set nomacro + beq $4,$0,.L127 + andi $4,$3,0x8 + .set macro + .set reorder + + + + lwc1 $f14,84($16) + + + andi $4,$3,0x8 +.L127: + .set noreorder + .set nomacro + beq $4,$0,.L128 + andi $4,$3,0x10 + .set macro + .set reorder + + + + lwc1 $f15,88($16) + + + andi $4,$3,0x10 +.L128: + .set noreorder + .set nomacro + beq $4,$0,.L129 + andi $4,$3,0x20 + .set macro + .set reorder + + + + lwc1 $f16,92($16) + + + andi $4,$3,0x20 +.L129: + .set noreorder + .set nomacro + beq $4,$0,.L130 + andi $4,$3,0x40 + .set macro + .set reorder + + + + lwc1 $f17,96($16) + + + andi $4,$3,0x40 +.L130: + .set noreorder + .set nomacro + beql $4,$0,.L131 + andi $3,$3,0x80 + .set macro + .set reorder + + + + lwc1 $f18,100($16) + + + andi $3,$3,0x80 +.L131: + bne $3,$0,.L118 +.L2: + lw $3,72($16) +.L124: + .set noreorder + .set nomacro + beql $3,$0,.L123 + slt $3,$6,9 + .set macro + .set reorder + + andi $4,$3,0x1 + .set noreorder + .set nomacro + beq $4,$0,.L132 + andi $4,$3,0x2 + .set macro + .set reorder + + + + ldc1 $f12,0($12) + + + andi $4,$3,0x2 +.L132: + .set noreorder + .set nomacro + beq $4,$0,.L133 + andi $4,$3,0x4 + .set macro + .set reorder + + + + ldc1 $f13,8($12) + + + andi $4,$3,0x4 +.L133: + .set noreorder + .set nomacro + beq $4,$0,.L134 + andi $4,$3,0x8 + .set macro + .set reorder + + + + ldc1 $f14,16($12) + + + andi $4,$3,0x8 +.L134: + .set noreorder + .set nomacro + beq $4,$0,.L135 + andi $4,$3,0x10 + .set macro + .set reorder + + + + ldc1 $f15,24($12) + + + andi $4,$3,0x10 +.L135: + .set noreorder + .set nomacro + beq $4,$0,.L136 + andi $4,$3,0x20 + .set macro + .set reorder + + + + ldc1 $f16,32($12) + + + andi $4,$3,0x20 +.L136: + .set noreorder + .set nomacro + beq $4,$0,.L137 + andi $4,$3,0x40 + .set macro + .set reorder + + + + ldc1 $f17,40($12) + + + andi $4,$3,0x40 +.L137: + .set noreorder + .set nomacro + beql $4,$0,.L138 + andi $3,$3,0x80 + .set macro + .set reorder + + + + ldc1 $f18,48($12) + + + andi $3,$3,0x80 +.L138: + bne $3,$0,.L119 + slt $3,$6,9 +.L123: + .set noreorder + .set nomacro + bne $3,$0,.L22 + daddiu $4,$12,64 + .set macro + .set reorder + + li $3,8 + .align 3 +.L21: + ld $5,0($4) + addiu $3,$3,1 + daddiu $4,$4,8 + sd $5,0($2) + .set noreorder + .set nomacro + bne $6,$3,.L21 + daddiu $2,$2,8 + .set macro + .set reorder + +.L22: + + + ld $4,0($12) + + + ld $5,8($12) + + + ld $6,16($12) + + + ld $7,24($12) + + + ld $8,32($12) + + + ld $9,40($12) + + + ld $10,48($12) + + + ld $11,56($12) + + + ld $25,8($16) + jalr $25 + lw $4,24($16) + li $5,1 + .set noreorder + .set nomacro + beql $4,$5,.L139 + move $sp,$fp + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$0,.L110 + li $5,2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L108 + li $5,3 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L108 + li $5,4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L108 + li $5,5 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L111 + li $5,6 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L111 + li $5,7 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L113 + li $5,8 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L113 + li $5,9 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L110 + li $5,10 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L110 + li $5,11 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L110 + li $5,12 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L110 + li $5,13 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L120 + li $5,14 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L121 + li $5,15 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L110 + li $5,16 + .set macro + .set reorder + + .set noreorder + .set nomacro + bnel $4,$5,.L139 + move $sp,$fp + .set macro + .set reorder + + lw $4,0($16) + andi $5,$4,0x200 + .set noreorder + .set nomacro + beq $5,$0,.L19 + andi $4,$4,0x4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beql $4,$0,.L38 + ld $5,32($16) + .set macro + .set reorder + + ld $3,32($16) + li $4,1 + .set noreorder + .set nomacro + beq $3,$4,.L108 + li $4,2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $3,$4,.L111 + li $4,4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $3,$4,.L113 + li $4,8 + .set macro + .set reorder + + .set noreorder + .set nomacro + beql $3,$4,.L140 + ld $3,16($16) + .set macro + .set reorder + +.L19: + move $sp,$fp +.L139: + ld $31,24($sp) + ld $fp,16($sp) + ld $16,0($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + daddiu $sp,$sp,32 + .set macro + .set reorder + + .align 3 +.L110: + ld $3,16($16) + .align 3 +.L140: + sd $2,0($3) + move $sp,$fp + ld $31,24($sp) + ld $fp,16($sp) + ld $16,0($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + daddiu $sp,$sp,32 + .set macro + .set reorder + + .align 3 +.L119: + + + ldc1 $f19,56($12) + + + .set noreorder + .set nomacro + b .L123 + slt $3,$6,9 + .set macro + .set reorder + + .align 3 +.L118: + + + lwc1 $f19,104($16) + + + .set noreorder + .set nomacro + b .L124 + lw $3,72($16) + .set macro + .set reorder + + .align 3 +.L108: + ld $3,16($16) + sb $2,0($3) + move $sp,$fp + ld $31,24($sp) + ld $fp,16($sp) + ld $16,0($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + daddiu $sp,$sp,32 + .set macro + .set reorder + +.L111: + ld $3,16($16) + .set noreorder + .set nomacro + b .L19 + sh $2,0($3) + .set macro + .set reorder + +.L113: + ld $3,16($16) + .set noreorder + .set nomacro + b .L19 + sw $2,0($3) + .set macro + .set reorder + +.L120: + ld $2,16($16) + .set noreorder + .set nomacro + b .L19 + swc1 $f0,0($2) + .set macro + .set reorder + +.L121: + ld $2,16($16) + .set noreorder + .set nomacro + b .L19 + sdc1 $f0,0($2) + .set macro + .set reorder + +.L38: + daddiu $4,$5,-1 + sltu $4,$4,16 + .set noreorder + .set nomacro + beq $4,$0,.L19 + sltu $7,$5,9 + .set macro + .set reorder + + ld $6,16($16) + li $8,-8 + andi $4,$6,0x7 + daddu $5,$5,$4 + .set noreorder + .set nomacro + beq $7,$0,.L42 + and $6,$6,$8 + .set macro + .set reorder + + sltu $3,$5,9 + .set noreorder + .set nomacro + beq $3,$0,.L43 + dsll $3,$5,3 + .set macro + .set reorder + + daddiu $3,$3,-1 + ld $7,0($6) + li $5,2 + sll $3,$3,0 + sll $4,$4,3 + dsll $3,$5,$3 + li $5,1 + dsll $5,$5,$4 + dsll $4,$2,$4 + dsubu $3,$3,$5 + xor $4,$4,$7 + and $4,$3,$4 + xor $4,$4,$7 + .set noreorder + .set nomacro + b .L19 + sd $4,0($6) + .set macro + .set reorder + + .align 3 +.L42: + ld $10,0($6) + sll $8,$4,3 + dsll $7,$2,$8 + li $9,-1 + dsll $9,$9,$8 + xor $7,$7,$10 + and $7,$9,$7 + xor $7,$7,$10 + sltu $9,$5,17 + subu $4,$0,$4 + .set noreorder + .set nomacro + bne $9,$0,.L122 + sd $7,0($6) + .set macro + .set reorder + + dsll $5,$5,3 + ld $10,16($6) + sll $4,$4,3 + daddiu $5,$5,-129 + addiu $4,$4,64 + sll $5,$5,0 + li $7,2 + move $9,$3 + dsll $5,$7,$5 + dsra $3,$3,$4 + daddiu $5,$5,-1 + xor $3,$3,$10 + dsra $2,$2,$4 + dsll $8,$9,$8 + and $3,$5,$3 + or $2,$2,$8 + xor $3,$3,$10 + sd $2,8($6) + .set noreorder + .set nomacro + b .L19 + sd $3,16($6) + .set macro + .set reorder + +.L43: + ld $10,0($6) + ld $9,8($6) + subu $7,$0,$4 + daddiu $3,$3,-65 + sll $4,$4,3 + li $5,2 + sll $3,$3,0 + sll $7,$7,3 + dsll $8,$2,$4 + dsll $3,$5,$3 + dsra $2,$2,$7 + li $5,-1 + dsll $4,$5,$4 + daddiu $3,$3,-1 + xor $5,$8,$10 + xor $2,$2,$9 + and $2,$3,$2 + and $4,$4,$5 + xor $3,$4,$10 + xor $2,$2,$9 + sd $3,0($6) + .set noreorder + .set nomacro + b .L19 + sd $2,8($6) + .set macro + .set reorder + +.L122: + sll $4,$4,2 + addiu $4,$4,32 + dsll $5,$5,3 + ld $7,8($6) + dsra $2,$2,$4 + daddiu $5,$5,-65 + dsra $4,$2,$4 + dsll $3,$3,$8 + sll $5,$5,0 + li $2,2 + or $3,$4,$3 + dsll $2,$2,$5 + xor $3,$3,$7 + daddiu $2,$2,-1 + and $2,$3,$2 + xor $2,$2,$7 + .set noreorder + .set nomacro + b .L19 + sd $2,8($6) + .set macro + .set reorder + + .end avcall_call + .size avcall_call, .-avcall_call diff --git a/avcall/avcall-mipseb-linux.s b/avcall/avcall-mipseb-linux.s new file mode 100644 index 0000000..4a7dee3 --- /dev/null +++ b/avcall/avcall-mipseb-linux.s @@ -0,0 +1,350 @@ + .file 1 "avcall-mips.c" + .section .mdebug.abi32 + .previous + .nan legacy + .module fp=xx + .module nooddspreg + .abicalls + .text + .align 2 + .globl avcall_call + .set nomips16 + .set nomicromips + .ent avcall_call + .type avcall_call, @function +avcall_call: + .frame $fp,40,$31 # vars= 0, regs= 3/0, args= 16, gp= 8 + .mask 0xc0010000,-4 + .fmask 0x00000000,0 + lw $6,40($4) + lw $5,20($4) + lw $8,24($4) + addiu $sp,$sp,-40 + andi $2,$6,0x1 + sw $fp,32($sp) + sw $16,28($sp) + move $fp,$sp + sw $31,36($sp) + move $16,$4 + addiu $sp,$sp,-1032 + subu $4,$5,$8 + move $3,$sp + .set noreorder + .set nomacro + beq $2,$0,$L2 + sra $4,$4,2 + .set macro + .set reorder + +#APP + # 76 "avcall-mips.c" 1 + l.s $f12,48($16) + # 0 "" 2 +#NO_APP +$L2: + lw $2,44($16) + andi $7,$2,0x1 + .set noreorder + .set nomacro + beql $7,$0,$L55 + andi $6,$6,0x2 + .set macro + .set reorder + +#APP + # 78 "avcall-mips.c" 1 + l.d $f12,56($16) + # 0 "" 2 +#NO_APP + andi $6,$6,0x2 +$L55: + .set noreorder + .set nomacro + beql $6,$0,$L56 + andi $2,$2,0x2 + .set macro + .set reorder + +#APP + # 80 "avcall-mips.c" 1 + l.s $f14,52($16) + # 0 "" 2 +#NO_APP + andi $2,$2,0x2 +$L56: + .set noreorder + .set nomacro + beql $2,$0,$L57 + slt $4,$4,5 + .set macro + .set reorder + +#APP + # 82 "avcall-mips.c" 1 + l.d $f14,64($16) + # 0 "" 2 +#NO_APP + slt $4,$4,5 +$L57: + addiu $2,$8,16 + .set noreorder + .set nomacro + bne $4,$0,$L10 + addiu $3,$3,16 + .set macro + .set reorder + +$L37: + lw $4,0($2) + addiu $3,$3,4 + addiu $2,$2,4 + .set noreorder + .set nomacro + bne $5,$2,$L37 + sw $4,-4($3) + .set macro + .set reorder + +$L10: + lw $5,4($8) + lw $4,0($8) + lw $25,4($16) + lw $7,12($8) + .set noreorder + .set nomacro + jalr $25 + lw $6,8($8) + .set macro + .set reorder + + lw $4,12($16) + li $5,1 # 0x1 + .set noreorder + .set nomacro + beql $4,$5,$L58 + move $sp,$fp + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$0,$L46 + li $5,2 # 0x2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L49 + li $5,3 # 0x3 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L49 + li $5,4 # 0x4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L49 + li $5,5 # 0x5 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L50 + li $5,6 # 0x6 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L50 + li $5,7 # 0x7 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L46 + li $5,8 # 0x8 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L46 + li $5,9 # 0x9 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L46 + li $5,10 # 0xa + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L46 + addiu $5,$4,-11 + .set macro + .set reorder + + sltu $5,$5,2 + .set noreorder + .set nomacro + bnel $5,$0,$L52 + lw $4,8($16) + .set macro + .set reorder + + li $3,13 # 0xd + .set noreorder + .set nomacro + beq $4,$3,$L53 + li $3,14 # 0xe + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$3,$L54 + li $3,15 # 0xf + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$3,$L46 + li $3,16 # 0x10 + .set macro + .set reorder + + .set noreorder + .set nomacro + bnel $4,$3,$L58 + move $sp,$fp + .set macro + .set reorder + + lw $3,0($16) + andi $3,$3,0x2 + .set noreorder + .set nomacro + beq $3,$0,$L7 + li $4,1 # 0x1 + .set macro + .set reorder + + lw $3,16($16) + .set noreorder + .set nomacro + beq $3,$4,$L49 + li $4,2 # 0x2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $3,$4,$L50 + li $4,4 # 0x4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beql $3,$4,$L59 + lw $3,8($16) + .set macro + .set reorder + +$L7: + move $sp,$fp +$L58: + lw $31,36($sp) + lw $fp,32($sp) + lw $16,28($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,40 + .set macro + .set reorder + +$L46: + lw $3,8($16) +$L59: + sw $2,0($3) + move $sp,$fp + lw $31,36($sp) + lw $fp,32($sp) + lw $16,28($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,40 + .set macro + .set reorder + +$L49: + lw $3,8($16) + sb $2,0($3) + move $sp,$fp + lw $31,36($sp) + lw $fp,32($sp) + lw $16,28($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,40 + .set macro + .set reorder + +$L50: + lw $3,8($16) + .set noreorder + .set nomacro + b $L7 + sh $2,0($3) + .set macro + .set reorder + +$L53: + lw $2,8($16) + .set noreorder + .set nomacro + b $L7 + swc1 $f0,0($2) + .set macro + .set reorder + +$L52: + sw $2,0($4) + .set noreorder + .set nomacro + b $L7 + sw $3,4($4) + .set macro + .set reorder + +$L54: + lw $2,8($16) + .set noreorder + .set nomacro + b $L7 + sdc1 $f0,0($2) + .set macro + .set reorder + + .end avcall_call + .size avcall_call, .-avcall_call + .ident "GCC: (GNU) 5.4.0" diff --git a/avcall/avcall-mipseb-macro.S b/avcall/avcall-mipseb-macro.S new file mode 100644 index 0000000..e37fcd2 --- /dev/null +++ b/avcall/avcall-mipseb-macro.S @@ -0,0 +1,344 @@ +#include "asm-mips.h" + .file 1 "avcall-mips.c" + .text + .align 2 + .globl avcall_call + .set nomips16 + .set nomicromips + .ent avcall_call + DECLARE_FUNCTION(avcall_call) +avcall_call: + .frame $fp,40,$31 + .mask 0xc0010000,-4 + .fmask 0x00000000,0 + lw $6,40($4) + lw $5,20($4) + lw $8,24($4) + addiu $sp,$sp,-40 + andi $2,$6,0x1 + sw $fp,32($sp) + sw $16,28($sp) + move $fp,$sp + sw $31,36($sp) + move $16,$4 + addiu $sp,$sp,-1032 + subu $4,$5,$8 + move $3,$sp + .set noreorder + .set nomacro + beq $2,$0,$L2 + sra $4,$4,2 + .set macro + .set reorder + + + + l.s $f12,48($16) + + +$L2: + lw $2,44($16) + andi $7,$2,0x1 + .set noreorder + .set nomacro + beql $7,$0,$L55 + andi $6,$6,0x2 + .set macro + .set reorder + + + + l.d $f12,56($16) + + + andi $6,$6,0x2 +$L55: + .set noreorder + .set nomacro + beql $6,$0,$L56 + andi $2,$2,0x2 + .set macro + .set reorder + + + + l.s $f14,52($16) + + + andi $2,$2,0x2 +$L56: + .set noreorder + .set nomacro + beql $2,$0,$L57 + slt $4,$4,5 + .set macro + .set reorder + + + + l.d $f14,64($16) + + + slt $4,$4,5 +$L57: + addiu $2,$8,16 + .set noreorder + .set nomacro + bne $4,$0,$L10 + addiu $3,$3,16 + .set macro + .set reorder + +$L37: + lw $4,0($2) + addiu $3,$3,4 + addiu $2,$2,4 + .set noreorder + .set nomacro + bne $5,$2,$L37 + sw $4,-4($3) + .set macro + .set reorder + +$L10: + lw $5,4($8) + lw $4,0($8) + lw $25,4($16) + lw $7,12($8) + .set noreorder + .set nomacro + jalr $25 + lw $6,8($8) + .set macro + .set reorder + + lw $4,12($16) + li $5,1 + .set noreorder + .set nomacro + beql $4,$5,$L58 + move $sp,$fp + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$0,$L46 + li $5,2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L49 + li $5,3 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L49 + li $5,4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L49 + li $5,5 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L50 + li $5,6 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L50 + li $5,7 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L46 + li $5,8 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L46 + li $5,9 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L46 + li $5,10 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L46 + addiu $5,$4,-11 + .set macro + .set reorder + + sltu $5,$5,2 + .set noreorder + .set nomacro + bnel $5,$0,$L52 + lw $4,8($16) + .set macro + .set reorder + + li $3,13 + .set noreorder + .set nomacro + beq $4,$3,$L53 + li $3,14 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$3,$L54 + li $3,15 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$3,$L46 + li $3,16 + .set macro + .set reorder + + .set noreorder + .set nomacro + bnel $4,$3,$L58 + move $sp,$fp + .set macro + .set reorder + + lw $3,0($16) + andi $3,$3,0x2 + .set noreorder + .set nomacro + beq $3,$0,$L7 + li $4,1 + .set macro + .set reorder + + lw $3,16($16) + .set noreorder + .set nomacro + beq $3,$4,$L49 + li $4,2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $3,$4,$L50 + li $4,4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beql $3,$4,$L59 + lw $3,8($16) + .set macro + .set reorder + +$L7: + move $sp,$fp +$L58: + lw $31,36($sp) + lw $fp,32($sp) + lw $16,28($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,40 + .set macro + .set reorder + +$L46: + lw $3,8($16) +$L59: + sw $2,0($3) + move $sp,$fp + lw $31,36($sp) + lw $fp,32($sp) + lw $16,28($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,40 + .set macro + .set reorder + +$L49: + lw $3,8($16) + sb $2,0($3) + move $sp,$fp + lw $31,36($sp) + lw $fp,32($sp) + lw $16,28($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,40 + .set macro + .set reorder + +$L50: + lw $3,8($16) + .set noreorder + .set nomacro + b $L7 + sh $2,0($3) + .set macro + .set reorder + +$L53: + lw $2,8($16) + .set noreorder + .set nomacro + b $L7 + swc1 $f0,0($2) + .set macro + .set reorder + +$L52: + sw $2,0($4) + .set noreorder + .set nomacro + b $L7 + sw $3,4($4) + .set macro + .set reorder + +$L54: + lw $2,8($16) + .set noreorder + .set nomacro + b $L7 + sdc1 $f0,0($2) + .set macro + .set reorder + + .end avcall_call + .size avcall_call, .-avcall_call diff --git a/avcall/avcall-mipsel-linux.s b/avcall/avcall-mipsel-linux.s new file mode 100644 index 0000000..4a7dee3 --- /dev/null +++ b/avcall/avcall-mipsel-linux.s @@ -0,0 +1,350 @@ + .file 1 "avcall-mips.c" + .section .mdebug.abi32 + .previous + .nan legacy + .module fp=xx + .module nooddspreg + .abicalls + .text + .align 2 + .globl avcall_call + .set nomips16 + .set nomicromips + .ent avcall_call + .type avcall_call, @function +avcall_call: + .frame $fp,40,$31 # vars= 0, regs= 3/0, args= 16, gp= 8 + .mask 0xc0010000,-4 + .fmask 0x00000000,0 + lw $6,40($4) + lw $5,20($4) + lw $8,24($4) + addiu $sp,$sp,-40 + andi $2,$6,0x1 + sw $fp,32($sp) + sw $16,28($sp) + move $fp,$sp + sw $31,36($sp) + move $16,$4 + addiu $sp,$sp,-1032 + subu $4,$5,$8 + move $3,$sp + .set noreorder + .set nomacro + beq $2,$0,$L2 + sra $4,$4,2 + .set macro + .set reorder + +#APP + # 76 "avcall-mips.c" 1 + l.s $f12,48($16) + # 0 "" 2 +#NO_APP +$L2: + lw $2,44($16) + andi $7,$2,0x1 + .set noreorder + .set nomacro + beql $7,$0,$L55 + andi $6,$6,0x2 + .set macro + .set reorder + +#APP + # 78 "avcall-mips.c" 1 + l.d $f12,56($16) + # 0 "" 2 +#NO_APP + andi $6,$6,0x2 +$L55: + .set noreorder + .set nomacro + beql $6,$0,$L56 + andi $2,$2,0x2 + .set macro + .set reorder + +#APP + # 80 "avcall-mips.c" 1 + l.s $f14,52($16) + # 0 "" 2 +#NO_APP + andi $2,$2,0x2 +$L56: + .set noreorder + .set nomacro + beql $2,$0,$L57 + slt $4,$4,5 + .set macro + .set reorder + +#APP + # 82 "avcall-mips.c" 1 + l.d $f14,64($16) + # 0 "" 2 +#NO_APP + slt $4,$4,5 +$L57: + addiu $2,$8,16 + .set noreorder + .set nomacro + bne $4,$0,$L10 + addiu $3,$3,16 + .set macro + .set reorder + +$L37: + lw $4,0($2) + addiu $3,$3,4 + addiu $2,$2,4 + .set noreorder + .set nomacro + bne $5,$2,$L37 + sw $4,-4($3) + .set macro + .set reorder + +$L10: + lw $5,4($8) + lw $4,0($8) + lw $25,4($16) + lw $7,12($8) + .set noreorder + .set nomacro + jalr $25 + lw $6,8($8) + .set macro + .set reorder + + lw $4,12($16) + li $5,1 # 0x1 + .set noreorder + .set nomacro + beql $4,$5,$L58 + move $sp,$fp + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$0,$L46 + li $5,2 # 0x2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L49 + li $5,3 # 0x3 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L49 + li $5,4 # 0x4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L49 + li $5,5 # 0x5 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L50 + li $5,6 # 0x6 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L50 + li $5,7 # 0x7 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L46 + li $5,8 # 0x8 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L46 + li $5,9 # 0x9 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L46 + li $5,10 # 0xa + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L46 + addiu $5,$4,-11 + .set macro + .set reorder + + sltu $5,$5,2 + .set noreorder + .set nomacro + bnel $5,$0,$L52 + lw $4,8($16) + .set macro + .set reorder + + li $3,13 # 0xd + .set noreorder + .set nomacro + beq $4,$3,$L53 + li $3,14 # 0xe + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$3,$L54 + li $3,15 # 0xf + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$3,$L46 + li $3,16 # 0x10 + .set macro + .set reorder + + .set noreorder + .set nomacro + bnel $4,$3,$L58 + move $sp,$fp + .set macro + .set reorder + + lw $3,0($16) + andi $3,$3,0x2 + .set noreorder + .set nomacro + beq $3,$0,$L7 + li $4,1 # 0x1 + .set macro + .set reorder + + lw $3,16($16) + .set noreorder + .set nomacro + beq $3,$4,$L49 + li $4,2 # 0x2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $3,$4,$L50 + li $4,4 # 0x4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beql $3,$4,$L59 + lw $3,8($16) + .set macro + .set reorder + +$L7: + move $sp,$fp +$L58: + lw $31,36($sp) + lw $fp,32($sp) + lw $16,28($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,40 + .set macro + .set reorder + +$L46: + lw $3,8($16) +$L59: + sw $2,0($3) + move $sp,$fp + lw $31,36($sp) + lw $fp,32($sp) + lw $16,28($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,40 + .set macro + .set reorder + +$L49: + lw $3,8($16) + sb $2,0($3) + move $sp,$fp + lw $31,36($sp) + lw $fp,32($sp) + lw $16,28($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,40 + .set macro + .set reorder + +$L50: + lw $3,8($16) + .set noreorder + .set nomacro + b $L7 + sh $2,0($3) + .set macro + .set reorder + +$L53: + lw $2,8($16) + .set noreorder + .set nomacro + b $L7 + swc1 $f0,0($2) + .set macro + .set reorder + +$L52: + sw $2,0($4) + .set noreorder + .set nomacro + b $L7 + sw $3,4($4) + .set macro + .set reorder + +$L54: + lw $2,8($16) + .set noreorder + .set nomacro + b $L7 + sdc1 $f0,0($2) + .set macro + .set reorder + + .end avcall_call + .size avcall_call, .-avcall_call + .ident "GCC: (GNU) 5.4.0" diff --git a/avcall/avcall-mipsel-macro.S b/avcall/avcall-mipsel-macro.S new file mode 100644 index 0000000..e37fcd2 --- /dev/null +++ b/avcall/avcall-mipsel-macro.S @@ -0,0 +1,344 @@ +#include "asm-mips.h" + .file 1 "avcall-mips.c" + .text + .align 2 + .globl avcall_call + .set nomips16 + .set nomicromips + .ent avcall_call + DECLARE_FUNCTION(avcall_call) +avcall_call: + .frame $fp,40,$31 + .mask 0xc0010000,-4 + .fmask 0x00000000,0 + lw $6,40($4) + lw $5,20($4) + lw $8,24($4) + addiu $sp,$sp,-40 + andi $2,$6,0x1 + sw $fp,32($sp) + sw $16,28($sp) + move $fp,$sp + sw $31,36($sp) + move $16,$4 + addiu $sp,$sp,-1032 + subu $4,$5,$8 + move $3,$sp + .set noreorder + .set nomacro + beq $2,$0,$L2 + sra $4,$4,2 + .set macro + .set reorder + + + + l.s $f12,48($16) + + +$L2: + lw $2,44($16) + andi $7,$2,0x1 + .set noreorder + .set nomacro + beql $7,$0,$L55 + andi $6,$6,0x2 + .set macro + .set reorder + + + + l.d $f12,56($16) + + + andi $6,$6,0x2 +$L55: + .set noreorder + .set nomacro + beql $6,$0,$L56 + andi $2,$2,0x2 + .set macro + .set reorder + + + + l.s $f14,52($16) + + + andi $2,$2,0x2 +$L56: + .set noreorder + .set nomacro + beql $2,$0,$L57 + slt $4,$4,5 + .set macro + .set reorder + + + + l.d $f14,64($16) + + + slt $4,$4,5 +$L57: + addiu $2,$8,16 + .set noreorder + .set nomacro + bne $4,$0,$L10 + addiu $3,$3,16 + .set macro + .set reorder + +$L37: + lw $4,0($2) + addiu $3,$3,4 + addiu $2,$2,4 + .set noreorder + .set nomacro + bne $5,$2,$L37 + sw $4,-4($3) + .set macro + .set reorder + +$L10: + lw $5,4($8) + lw $4,0($8) + lw $25,4($16) + lw $7,12($8) + .set noreorder + .set nomacro + jalr $25 + lw $6,8($8) + .set macro + .set reorder + + lw $4,12($16) + li $5,1 + .set noreorder + .set nomacro + beql $4,$5,$L58 + move $sp,$fp + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$0,$L46 + li $5,2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L49 + li $5,3 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L49 + li $5,4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L49 + li $5,5 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L50 + li $5,6 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L50 + li $5,7 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L46 + li $5,8 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L46 + li $5,9 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L46 + li $5,10 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L46 + addiu $5,$4,-11 + .set macro + .set reorder + + sltu $5,$5,2 + .set noreorder + .set nomacro + bnel $5,$0,$L52 + lw $4,8($16) + .set macro + .set reorder + + li $3,13 + .set noreorder + .set nomacro + beq $4,$3,$L53 + li $3,14 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$3,$L54 + li $3,15 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$3,$L46 + li $3,16 + .set macro + .set reorder + + .set noreorder + .set nomacro + bnel $4,$3,$L58 + move $sp,$fp + .set macro + .set reorder + + lw $3,0($16) + andi $3,$3,0x2 + .set noreorder + .set nomacro + beq $3,$0,$L7 + li $4,1 + .set macro + .set reorder + + lw $3,16($16) + .set noreorder + .set nomacro + beq $3,$4,$L49 + li $4,2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $3,$4,$L50 + li $4,4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beql $3,$4,$L59 + lw $3,8($16) + .set macro + .set reorder + +$L7: + move $sp,$fp +$L58: + lw $31,36($sp) + lw $fp,32($sp) + lw $16,28($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,40 + .set macro + .set reorder + +$L46: + lw $3,8($16) +$L59: + sw $2,0($3) + move $sp,$fp + lw $31,36($sp) + lw $fp,32($sp) + lw $16,28($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,40 + .set macro + .set reorder + +$L49: + lw $3,8($16) + sb $2,0($3) + move $sp,$fp + lw $31,36($sp) + lw $fp,32($sp) + lw $16,28($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,40 + .set macro + .set reorder + +$L50: + lw $3,8($16) + .set noreorder + .set nomacro + b $L7 + sh $2,0($3) + .set macro + .set reorder + +$L53: + lw $2,8($16) + .set noreorder + .set nomacro + b $L7 + swc1 $f0,0($2) + .set macro + .set reorder + +$L52: + sw $2,0($4) + .set noreorder + .set nomacro + b $L7 + sw $3,4($4) + .set macro + .set reorder + +$L54: + lw $2,8($16) + .set noreorder + .set nomacro + b $L7 + sdc1 $f0,0($2) + .set macro + .set reorder + + .end avcall_call + .size avcall_call, .-avcall_call diff --git a/avcall/avcall-mipsn32.c b/avcall/avcall-mipsn32.c new file mode 100644 index 0000000..c776317 --- /dev/null +++ b/avcall/avcall-mipsn32.c @@ -0,0 +1,496 @@ +/** + Copyright 1993 Bill Triggs + Copyright 1995-2019 Bruno Haible + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . +**/ +/*---------------------------------------------------------------------- + !!! THIS ROUTINE MUST BE COMPILED gcc -O !!! + + Foreign function interface for an SGI 32-bit MIPS III with "cc -n32", + or gcc configured as mips-sgi-irix6. + + This calls a C function with an argument list built up using macros + defined in avcall.h. + + SGI MIPS new 32-bit Argument Passing Conventions + + - The entire argument list forms a structure with all the appropriate + holes & alignments, and space for this is allocated in the stack frame. + - Shorter integers are promoted to long long length (sizeof(long long)=8). + - Doubles are 1 longword. + - Structure arguments are copies embedded in the arglist structure. + - The first 8 longwords of the structure are passed in registers $4...$11, + except that float arguments are passed in registers $f12...$f19, and + that double arguments and structure elements of type double are passed + in registers $f12...$f19. (But varargs functions may expect them in the + integer registers and we can't tell whether the function is varargs so + we pass them both ways.) + Remaining longwords are passed on the stack. No stack space is allocated + for the first 8 longwords of the structure. + - Structure returns of structures > 16 bytes: pointers to caller-allocated + space are passed in as the first argument of the list. + - Structure returns of structures <= 16 bytes: in the registers $2 (for the + first 8 bytes) and $3 (for the next 8 bytes). + A structure of 1 or 2 floats or doubles is returned in $f0 and $f2: + the first float or double in $f0, the second float or double in $f2. + - Integer/pointer returns are in $2, float/double returns in $f0. + - The called function expects to see its own address in $25. + + This file needs to be compiled with gcc for the asm extensions, but the + assembly version of it and the header file seem to work with SGI cc. + ----------------------------------------------------------------------*/ +#include "avcall-internal.h" + +#define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) +#define OFFSETOF(struct,member) ((int)&(((struct*)0)->member)) + +int +avcall_call(av_alist* list) +{ + register __avword* sp __asm__("$sp"); /* C names for registers */ + register float fret __asm__("$f0"); + register double dret __asm__("$f0"); +/*register __avword iret1 __asm__("$2"); */ + register __avword iret2 __asm__("$3"); + + __av_alist* l = &AV_LIST_INNER(list); + + __avword *argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* big space for child's stack frame */ + int arglen = l->aptr - l->args; + __avword iret; + int i; + + if (l->farg_mask) + { /* push leading float args */ + if (l->farg_mask & (1<<0)) + __asm__("lwc1 $f12,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[0])); + if (l->farg_mask & (1<<1)) + __asm__("lwc1 $f13,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[1])); + if (l->farg_mask & (1<<2)) + __asm__("lwc1 $f14,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[2])); + if (l->farg_mask & (1<<3)) + __asm__("lwc1 $f15,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[3])); + if (l->farg_mask & (1<<4)) + __asm__("lwc1 $f16,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[4])); + if (l->farg_mask & (1<<5)) + __asm__("lwc1 $f17,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[5])); + if (l->farg_mask & (1<<6)) + __asm__("lwc1 $f18,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[6])); + if (l->farg_mask & (1<<7)) + __asm__("lwc1 $f19,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[7])); + } + if (l->darg_mask) + { /* push leading double args */ + __avword* a = l->args; + if (l->darg_mask & (1<<0)) + __asm__("ldc1 $f12,%1(%0)" : : "p" (a), "i" (0 * sizeof (__avword))); + if (l->darg_mask & (1<<1)) + __asm__("ldc1 $f13,%1(%0)" : : "p" (a), "i" (1 * sizeof (__avword))); + if (l->darg_mask & (1<<2)) + __asm__("ldc1 $f14,%1(%0)" : : "p" (a), "i" (2 * sizeof (__avword))); + if (l->darg_mask & (1<<3)) + __asm__("ldc1 $f15,%1(%0)" : : "p" (a), "i" (3 * sizeof (__avword))); + if (l->darg_mask & (1<<4)) + __asm__("ldc1 $f16,%1(%0)" : : "p" (a), "i" (4 * sizeof (__avword))); + if (l->darg_mask & (1<<5)) + __asm__("ldc1 $f17,%1(%0)" : : "p" (a), "i" (5 * sizeof (__avword))); + if (l->darg_mask & (1<<6)) + __asm__("ldc1 $f18,%1(%0)" : : "p" (a), "i" (6 * sizeof (__avword))); + if (l->darg_mask & (1<<7)) + __asm__("ldc1 $f19,%1(%0)" : : "p" (a), "i" (7 * sizeof (__avword))); + } + + for (i = 8; i < arglen; i++) /* push excess function args */ + argframe[i-8] = l->args[i]; + + /* call function with 1st 8 args */ + __asm__ __volatile__ ("ld $4,%0" : : "m" (l->args[0]) : "$4"); /* arg1 = l->args[0]; */ + __asm__ __volatile__ ("ld $5,%0" : : "m" (l->args[1]) : "$5"); /* arg1 = l->args[1]; */ + __asm__ __volatile__ ("ld $6,%0" : : "m" (l->args[2]) : "$6"); /* arg1 = l->args[2]; */ + __asm__ __volatile__ ("ld $7,%0" : : "m" (l->args[3]) : "$7"); /* arg1 = l->args[3]; */ + __asm__ __volatile__ ("ld $8,%0" : : "m" (l->args[4]) : "$8"); /* arg1 = l->args[4]; */ + __asm__ __volatile__ ("ld $9,%0" : : "m" (l->args[5]) : "$9"); /* arg1 = l->args[5]; */ + __asm__ __volatile__ ("ld $10,%0" : : "m" (l->args[6]) : "$10"); /* arg1 = l->args[6]; */ + __asm__ __volatile__ ("ld $11,%0" : : "m" (l->args[7]) : "$11"); /* arg1 = l->args[7]; */ + /* Note: The code of this call ought to put the address of the called function + in register $25 before the call. */ + iret = (*l->func)(); + + /* save return value */ + if (l->rtype == __AVvoid) { + } else + if (l->rtype == __AVword) { + RETURN(__avword, iret); + } else + if (l->rtype == __AVchar) { + RETURN(char, iret); + } else + if (l->rtype == __AVschar) { + RETURN(signed char, iret); + } else + if (l->rtype == __AVuchar) { + RETURN(unsigned char, iret); + } else + if (l->rtype == __AVshort) { + RETURN(short, iret); + } else + if (l->rtype == __AVushort) { + RETURN(unsigned short, iret); + } else + if (l->rtype == __AVint) { + RETURN(int, iret); + } else + if (l->rtype == __AVuint) { + RETURN(unsigned int, iret); + } else + if (l->rtype == __AVlong) { + RETURN(long, iret); + } else + if (l->rtype == __AVulong) { + RETURN(unsigned long, iret); + } else + if (l->rtype == __AVlonglong) { + RETURN(long long, iret); + } else + if (l->rtype == __AVulonglong) { + RETURN(unsigned long long, iret); + } else + if (l->rtype == __AVfloat) { + RETURN(float, fret); + } else + if (l->rtype == __AVdouble) { + RETURN(double, dret); + } else + if (l->rtype == __AVvoidp) { + RETURN(void*, iret); + } else + if (l->rtype == __AVstruct) { + if (l->flags & __AV_REGISTER_STRUCT_RETURN) { + if (l->flags & __AV_GCC_STRUCT_RETURN) { + /* gcc returns structs of size 1,2,4,8 in registers. */ + if (l->rsize == sizeof(char)) { + RETURN(char, iret); + } else + if (l->rsize == sizeof(short)) { + RETURN(short, iret); + } else + if (l->rsize == sizeof(int)) { + RETURN(int, iret); + } else + if (l->rsize == sizeof(long long)) { + RETURN(long long, iret); + } + } else { + /* cc returns structs of size <= 16 in registers. */ + if (l->rsize > 0 && l->rsize <= 16) { + void* raddr = l->raddr; + #if 0 /* Unoptimized */ + if (l->rsize == 1) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + #else + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + #endif + } else + if (l->rsize == 2) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + #else + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); + #endif + } else + if (l->rsize == 3) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + #else + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); + #endif + } else + if (l->rsize == 4) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + #else + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); + #endif + } else + if (l->rsize == 5) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); + #else + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); + #endif + } else + if (l->rsize == 6) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); + #else + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>16); + #endif + } else + if (l->rsize == 7) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[6] = (unsigned char)(iret>>48); + #else + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[6] = (unsigned char)(iret>>8); + #endif + } else + if (l->rsize >= 8 && l->rsize <= 16) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[6] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[7] = (unsigned char)(iret>>56); + #else + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[6] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[7] = (unsigned char)(iret); + #endif + if (l->rsize == 8) { + } else + if (l->rsize == 9) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + #else + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + #endif + } else + if (l->rsize == 10) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + #else + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); + #endif + } else + if (l->rsize == 11) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + #else + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); + #endif + } else + if (l->rsize == 12) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + #else + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); + #endif + } else + if (l->rsize == 13) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); + #else + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); + #endif + } else + if (l->rsize == 14) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); + #else + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>16); + #endif + } else + if (l->rsize == 15) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>48); + #else + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>8); + #endif + } else + if (l->rsize == 16) { + #if defined(_MIPSEL) + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+7] = (unsigned char)(iret2>>56); + #else + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+7] = (unsigned char)(iret2); + #endif + } + } + #else /* Optimized: fewer conditional jumps, fewer memory accesses */ + uintptr_t count = l->rsize; /* > 0, ≤ 2*sizeof(__avword) */ + __avword* wordaddr = (__avword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avword)-1)); + uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avword)-1); /* ≥ 0, < sizeof(__avword) */ + uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__avword) */ + #if defined(_MIPSEL) + if (count <= sizeof(__avword)) { + /* Use iret. */ + if (end_offset <= sizeof(__avword)) { + /* 0 < end_offset ≤ sizeof(__avword) */ + __avword mask0 = ((__avword)2 << (end_offset*8-1)) - ((__avword)1 << (start_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; + } else { + /* sizeof(__avword) < end_offset < 2*sizeof(__avword), start_offset > 0 */ + __avword mask0 = - ((__avword)1 << (start_offset*8)); + __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; + wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; + wordaddr[1] ^= (wordaddr[1] ^ (iret >> (sizeof(__avword)*8-start_offset*8))) & mask1; + } + } else { + /* Use iret, iret2. */ + __avword mask0 = - ((__avword)1 << (start_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; + if (end_offset <= 2*sizeof(__avword)) { + /* sizeof(__avword) < end_offset ≤ 2*sizeof(__avword) */ + __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; + wordaddr[1] ^= (wordaddr[1] ^ ((iret >> (sizeof(__avword)*4-start_offset*4) >> (sizeof(__avword)*4-start_offset*4)) | (iret2 << (start_offset*8)))) & mask1; + } else { + /* 2*sizeof(__avword) < end_offset < 3*sizeof(__avword), start_offset > 0 */ + __avword mask2 = ((__avword)2 << (end_offset*8-2*sizeof(__avword)*8-1)) - 1; + wordaddr[1] = (iret >> (sizeof(__avword)*8-start_offset*8)) | (iret2 << (start_offset*8)); + wordaddr[2] ^= (wordaddr[2] ^ (iret2 >> (sizeof(__avword)*8-start_offset*8))) & mask2; + } + } + #else + if (count <= sizeof(__avword)) { + /* Use iret. */ + if (end_offset <= sizeof(__avword)) { + /* 0 < end_offset ≤ sizeof(__avword) */ + __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - ((__avword)1 << (sizeof(__avword)*8-end_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; + } else { + /* sizeof(__avword) < end_offset < 2*sizeof(__avword), start_offset > 0 */ + __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - 1; + __avword mask1 = - ((__avword)1 << (2*sizeof(__avword)*8-end_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; + wordaddr[1] ^= (wordaddr[1] ^ (iret << (sizeof(__avword)*8-start_offset*8))) & mask1; + } + } else { + /* Use iret, iret2. */ + __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - 1; + wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; + if (end_offset <= 2*sizeof(__avword)) { + /* sizeof(__avword) < end_offset ≤ 2*sizeof(__avword) */ + __avword mask1 = - ((__avword)1 << (2*sizeof(__avword)*8-end_offset*8)); + wordaddr[1] ^= (wordaddr[1] ^ ((iret << (sizeof(__avword)*4-start_offset*4) << (sizeof(__avword)*4-start_offset*4)) | (iret2 >> (start_offset*8)))) & mask1; + } else { + /* 2*sizeof(__avword) < end_offset < 3*sizeof(__avword), start_offset > 0 */ + __avword mask2 = - ((__avword)1 << (3*sizeof(__avword)*8-end_offset*8)); + wordaddr[1] = (iret << (sizeof(__avword)*8-start_offset*8)) | (iret2 >> (start_offset*8)); + wordaddr[2] ^= (wordaddr[2] ^ (iret2 << (sizeof(__avword)*8-start_offset*8))) & mask2; + } + } + #endif + #endif + } + } + } + } + return 0; +} diff --git a/avcall/avcall-mipsn32eb-linux.s b/avcall/avcall-mipsn32eb-linux.s new file mode 100644 index 0000000..531488a --- /dev/null +++ b/avcall/avcall-mipsn32eb-linux.s @@ -0,0 +1,733 @@ + .file 1 "avcall-mipsn32.c" + .section .mdebug.abiN32 + .previous + .nan legacy + .module fp=64 + .module oddspreg + .abicalls + .text + .align 2 + .align 3 + .globl avcall_call + .set nomips16 + .set nomicromips + .ent avcall_call + .type avcall_call, @function +avcall_call: + .frame $fp,32,$31 # vars= 0, regs= 4/0, args= 0, gp= 0 + .mask 0xd0010000,-8 + .fmask 0x00000000,0 + lw $5,20($4) + lw $12,24($4) + lw $2,36($4) + addiu $sp,$sp,-32 + sd $fp,16($sp) + sd $16,0($sp) + sd $31,24($sp) + move $fp,$sp + move $16,$4 + addiu $sp,$sp,-2064 + subu $4,$5,$12 + move $3,$sp + .set noreorder + .set nomacro + beq $2,$0,.L2 + sra $4,$4,3 + .set macro + .set reorder + + andi $6,$2,0x1 + .set noreorder + .set nomacro + beq $6,$0,.L125 + andi $6,$2,0x2 + .set macro + .set reorder + +#APP + # 78 "avcall-mipsn32.c" 1 + lwc1 $f12,44($16) + # 0 "" 2 +#NO_APP + andi $6,$2,0x2 +.L125: + .set noreorder + .set nomacro + beq $6,$0,.L126 + andi $6,$2,0x4 + .set macro + .set reorder + +#APP + # 80 "avcall-mipsn32.c" 1 + lwc1 $f13,48($16) + # 0 "" 2 +#NO_APP + andi $6,$2,0x4 +.L126: + .set noreorder + .set nomacro + beq $6,$0,.L127 + andi $6,$2,0x8 + .set macro + .set reorder + +#APP + # 82 "avcall-mipsn32.c" 1 + lwc1 $f14,52($16) + # 0 "" 2 +#NO_APP + andi $6,$2,0x8 +.L127: + .set noreorder + .set nomacro + beq $6,$0,.L128 + andi $6,$2,0x10 + .set macro + .set reorder + +#APP + # 84 "avcall-mipsn32.c" 1 + lwc1 $f15,56($16) + # 0 "" 2 +#NO_APP + andi $6,$2,0x10 +.L128: + .set noreorder + .set nomacro + beq $6,$0,.L129 + andi $6,$2,0x20 + .set macro + .set reorder + +#APP + # 86 "avcall-mipsn32.c" 1 + lwc1 $f16,60($16) + # 0 "" 2 +#NO_APP + andi $6,$2,0x20 +.L129: + .set noreorder + .set nomacro + beq $6,$0,.L130 + andi $6,$2,0x40 + .set macro + .set reorder + +#APP + # 88 "avcall-mipsn32.c" 1 + lwc1 $f17,64($16) + # 0 "" 2 +#NO_APP + andi $6,$2,0x40 +.L130: + .set noreorder + .set nomacro + beql $6,$0,.L131 + andi $2,$2,0x80 + .set macro + .set reorder + +#APP + # 90 "avcall-mipsn32.c" 1 + lwc1 $f18,68($16) + # 0 "" 2 +#NO_APP + andi $2,$2,0x80 +.L131: + bne $2,$0,.L118 +.L2: + lw $2,40($16) +.L124: + .set noreorder + .set nomacro + beql $2,$0,.L123 + slt $4,$4,9 + .set macro + .set reorder + + andi $6,$2,0x1 + .set noreorder + .set nomacro + beq $6,$0,.L132 + andi $6,$2,0x2 + .set macro + .set reorder + +#APP + # 98 "avcall-mipsn32.c" 1 + ldc1 $f12,0($12) + # 0 "" 2 +#NO_APP + andi $6,$2,0x2 +.L132: + .set noreorder + .set nomacro + beq $6,$0,.L133 + andi $6,$2,0x4 + .set macro + .set reorder + +#APP + # 100 "avcall-mipsn32.c" 1 + ldc1 $f13,8($12) + # 0 "" 2 +#NO_APP + andi $6,$2,0x4 +.L133: + .set noreorder + .set nomacro + beq $6,$0,.L134 + andi $6,$2,0x8 + .set macro + .set reorder + +#APP + # 102 "avcall-mipsn32.c" 1 + ldc1 $f14,16($12) + # 0 "" 2 +#NO_APP + andi $6,$2,0x8 +.L134: + .set noreorder + .set nomacro + beq $6,$0,.L135 + andi $6,$2,0x10 + .set macro + .set reorder + +#APP + # 104 "avcall-mipsn32.c" 1 + ldc1 $f15,24($12) + # 0 "" 2 +#NO_APP + andi $6,$2,0x10 +.L135: + .set noreorder + .set nomacro + beq $6,$0,.L136 + andi $6,$2,0x20 + .set macro + .set reorder + +#APP + # 106 "avcall-mipsn32.c" 1 + ldc1 $f16,32($12) + # 0 "" 2 +#NO_APP + andi $6,$2,0x20 +.L136: + .set noreorder + .set nomacro + beq $6,$0,.L137 + andi $6,$2,0x40 + .set macro + .set reorder + +#APP + # 108 "avcall-mipsn32.c" 1 + ldc1 $f17,40($12) + # 0 "" 2 +#NO_APP + andi $6,$2,0x40 +.L137: + .set noreorder + .set nomacro + beql $6,$0,.L138 + andi $2,$2,0x80 + .set macro + .set reorder + +#APP + # 110 "avcall-mipsn32.c" 1 + ldc1 $f18,48($12) + # 0 "" 2 +#NO_APP + andi $2,$2,0x80 +.L138: + bne $2,$0,.L119 + slt $4,$4,9 +.L123: + .set noreorder + .set nomacro + bne $4,$0,.L22 + addiu $2,$12,64 + .set macro + .set reorder + + .align 3 +.L83: + ld $4,0($2) + addiu $3,$3,8 + addiu $2,$2,8 + .set noreorder + .set nomacro + bne $5,$2,.L83 + sd $4,-8($3) + .set macro + .set reorder + +.L22: +#APP + # 119 "avcall-mipsn32.c" 1 + ld $4,0($12) + # 0 "" 2 + # 120 "avcall-mipsn32.c" 1 + ld $5,8($12) + # 0 "" 2 + # 121 "avcall-mipsn32.c" 1 + ld $6,16($12) + # 0 "" 2 + # 122 "avcall-mipsn32.c" 1 + ld $7,24($12) + # 0 "" 2 + # 123 "avcall-mipsn32.c" 1 + ld $8,32($12) + # 0 "" 2 + # 124 "avcall-mipsn32.c" 1 + ld $9,40($12) + # 0 "" 2 + # 125 "avcall-mipsn32.c" 1 + ld $10,48($12) + # 0 "" 2 + # 126 "avcall-mipsn32.c" 1 + ld $11,56($12) + # 0 "" 2 +#NO_APP + lw $25,4($16) + jalr $25 + lw $4,12($16) + li $5,1 # 0x1 + .set noreorder + .set nomacro + beql $4,$5,.L139 + move $sp,$fp + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$0,.L116 + li $5,2 # 0x2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L109 + li $5,3 # 0x3 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L109 + li $5,4 # 0x4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L109 + li $5,5 # 0x5 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L112 + li $5,6 # 0x6 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L112 + li $5,7 # 0x7 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L111 + li $5,8 # 0x8 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L111 + li $5,9 # 0x9 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L111 + li $5,10 # 0xa + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L111 + li $5,11 # 0xb + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L116 + li $5,12 # 0xc + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L116 + li $5,13 # 0xd + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L120 + li $5,14 # 0xe + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L121 + li $5,15 # 0xf + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L111 + li $5,16 # 0x10 + .set macro + .set reorder + + .set noreorder + .set nomacro + bnel $4,$5,.L139 + move $sp,$fp + .set macro + .set reorder + + lw $4,0($16) + andi $5,$4,0x200 + .set noreorder + .set nomacro + beq $5,$0,.L19 + andi $4,$4,0x4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beql $4,$0,.L38 + lw $4,16($16) + .set macro + .set reorder + + lw $3,16($16) + li $4,1 # 0x1 + .set noreorder + .set nomacro + beq $3,$4,.L109 + li $4,2 # 0x2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $3,$4,.L112 + li $4,4 # 0x4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $3,$4,.L111 + li $4,8 # 0x8 + .set macro + .set reorder + + .set noreorder + .set nomacro + beql $3,$4,.L140 + lw $3,8($16) + .set macro + .set reorder + +.L19: + move $sp,$fp +.L139: + ld $31,24($sp) + ld $fp,16($sp) + ld $16,0($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,32 + .set macro + .set reorder + + .align 3 +.L116: + lw $3,8($16) + .align 3 +.L140: + sd $2,0($3) + move $sp,$fp + ld $31,24($sp) + ld $fp,16($sp) + ld $16,0($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,32 + .set macro + .set reorder + + .align 3 +.L119: +#APP + # 112 "avcall-mipsn32.c" 1 + ldc1 $f19,56($12) + # 0 "" 2 +#NO_APP + .set noreorder + .set nomacro + b .L123 + slt $4,$4,9 + .set macro + .set reorder + + .align 3 +.L118: +#APP + # 92 "avcall-mipsn32.c" 1 + lwc1 $f19,72($16) + # 0 "" 2 +#NO_APP + .set noreorder + .set nomacro + b .L124 + lw $2,40($16) + .set macro + .set reorder + + .align 3 +.L109: + lw $3,8($16) + sb $2,0($3) + move $sp,$fp + ld $31,24($sp) + ld $fp,16($sp) + ld $16,0($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,32 + .set macro + .set reorder + +.L112: + lw $3,8($16) + .set noreorder + .set nomacro + b .L19 + sh $2,0($3) + .set macro + .set reorder + +.L111: + lw $3,8($16) + sw $2,0($3) + move $sp,$fp + ld $31,24($sp) + ld $fp,16($sp) + ld $16,0($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,32 + .set macro + .set reorder + +.L120: + lw $2,8($16) + .set noreorder + .set nomacro + b .L19 + swc1 $f0,0($2) + .set macro + .set reorder + +.L121: + lw $2,8($16) + .set noreorder + .set nomacro + b .L19 + sdc1 $f0,0($2) + .set macro + .set reorder + +.L38: + addiu $5,$4,-1 + sltu $5,$5,16 + .set noreorder + .set nomacro + beq $5,$0,.L19 + sltu $8,$4,9 + .set macro + .set reorder + + lw $6,8($16) + li $7,-8 # 0xfffffffffffffff8 + andi $5,$6,0x7 + and $7,$6,$7 + .set noreorder + .set nomacro + beq $8,$0,.L42 + addu $4,$4,$5 + .set macro + .set reorder + + sltu $3,$4,9 + .set noreorder + .set nomacro + beq $3,$0,.L43 + subu $6,$0,$5 + .set macro + .set reorder + + subu $3,$0,$5 + sll $3,$3,3 + ld $8,0($7) + addiu $3,$3,63 + subu $4,$0,$4 + li $6,2 # 0x2 + dsll $6,$6,$3 + sll $4,$4,3 + sll $5,$5,3 + li $3,1 # 0x1 + dsll $3,$3,$4 + dsra $2,$2,$5 + dsubu $3,$6,$3 + xor $2,$2,$8 + and $2,$3,$2 + xor $2,$2,$8 + .set noreorder + .set nomacro + b .L19 + sd $2,0($7) + .set macro + .set reorder + + .align 3 +.L42: + subu $9,$0,$5 + ld $11,0($7) + sll $10,$9,3 + addiu $6,$10,63 + sll $5,$5,3 + li $8,2 # 0x2 + dsll $8,$8,$6 + dsra $6,$2,$5 + daddiu $8,$8,-1 + xor $6,$6,$11 + and $6,$8,$6 + xor $6,$6,$11 + sltu $8,$4,17 + .set noreorder + .set nomacro + bne $8,$0,.L122 + sd $6,0($7) + .set macro + .set reorder + + ld $11,16($7) + addiu $6,$10,64 + subu $4,$0,$4 + move $8,$3 + dsll $9,$3,$6 + sll $4,$4,3 + li $3,-1 # 0xffffffffffffffff + dsll $4,$3,$4 + xor $3,$9,$11 + dsll $2,$2,$6 + dsra $5,$8,$5 + and $3,$4,$3 + or $2,$2,$5 + xor $3,$3,$11 + sd $2,8($7) + .set noreorder + .set nomacro + b .L19 + sd $3,16($7) + .set macro + .set reorder + +.L43: + ld $9,0($7) + ld $8,8($7) + sll $6,$6,3 + addiu $10,$6,63 + sll $3,$5,3 + subu $4,$0,$4 + li $5,2 # 0x2 + dsra $3,$2,$3 + dsll $5,$5,$10 + dsll $2,$2,$6 + sll $4,$4,3 + li $6,-1 # 0xffffffffffffffff + daddiu $5,$5,-1 + xor $3,$3,$9 + dsll $4,$6,$4 + xor $2,$2,$8 + and $3,$5,$3 + and $2,$4,$2 + xor $3,$3,$9 + xor $2,$2,$8 + sd $3,0($7) + .set noreorder + .set nomacro + b .L19 + sd $2,8($7) + .set macro + .set reorder + +.L122: + sll $6,$9,2 + addiu $6,$6,32 + ld $8,8($7) + dsll $2,$2,$6 + dsll $6,$2,$6 + dsra $3,$3,$5 + subu $2,$0,$4 + or $3,$6,$3 + sll $2,$2,3 + li $5,-1 # 0xffffffffffffffff + xor $3,$3,$8 + dsll $2,$5,$2 + and $2,$3,$2 + xor $2,$2,$8 + .set noreorder + .set nomacro + b .L19 + sd $2,8($7) + .set macro + .set reorder + + .end avcall_call + .size avcall_call, .-avcall_call + .ident "GCC: (GNU) 5.4.0" diff --git a/avcall/avcall-mipsn32eb-macro.S b/avcall/avcall-mipsn32eb-macro.S new file mode 100644 index 0000000..270e68b --- /dev/null +++ b/avcall/avcall-mipsn32eb-macro.S @@ -0,0 +1,727 @@ +#include "asm-mips.h" + .file 1 "avcall-mipsn32.c" + .text + .align 2 + .align 3 + .globl avcall_call + .set nomips16 + .set nomicromips + .ent avcall_call + DECLARE_FUNCTION(avcall_call) +avcall_call: + .frame $fp,32,$31 + .mask 0xd0010000,-8 + .fmask 0x00000000,0 + lw $5,20($4) + lw $12,24($4) + lw $2,36($4) + addiu $sp,$sp,-32 + sd $fp,16($sp) + sd $16,0($sp) + sd $31,24($sp) + move $fp,$sp + move $16,$4 + addiu $sp,$sp,-2064 + subu $4,$5,$12 + move $3,$sp + .set noreorder + .set nomacro + beq $2,$0,.L2 + sra $4,$4,3 + .set macro + .set reorder + + andi $6,$2,0x1 + .set noreorder + .set nomacro + beq $6,$0,.L125 + andi $6,$2,0x2 + .set macro + .set reorder + + + + lwc1 $f12,44($16) + + + andi $6,$2,0x2 +.L125: + .set noreorder + .set nomacro + beq $6,$0,.L126 + andi $6,$2,0x4 + .set macro + .set reorder + + + + lwc1 $f13,48($16) + + + andi $6,$2,0x4 +.L126: + .set noreorder + .set nomacro + beq $6,$0,.L127 + andi $6,$2,0x8 + .set macro + .set reorder + + + + lwc1 $f14,52($16) + + + andi $6,$2,0x8 +.L127: + .set noreorder + .set nomacro + beq $6,$0,.L128 + andi $6,$2,0x10 + .set macro + .set reorder + + + + lwc1 $f15,56($16) + + + andi $6,$2,0x10 +.L128: + .set noreorder + .set nomacro + beq $6,$0,.L129 + andi $6,$2,0x20 + .set macro + .set reorder + + + + lwc1 $f16,60($16) + + + andi $6,$2,0x20 +.L129: + .set noreorder + .set nomacro + beq $6,$0,.L130 + andi $6,$2,0x40 + .set macro + .set reorder + + + + lwc1 $f17,64($16) + + + andi $6,$2,0x40 +.L130: + .set noreorder + .set nomacro + beql $6,$0,.L131 + andi $2,$2,0x80 + .set macro + .set reorder + + + + lwc1 $f18,68($16) + + + andi $2,$2,0x80 +.L131: + bne $2,$0,.L118 +.L2: + lw $2,40($16) +.L124: + .set noreorder + .set nomacro + beql $2,$0,.L123 + slt $4,$4,9 + .set macro + .set reorder + + andi $6,$2,0x1 + .set noreorder + .set nomacro + beq $6,$0,.L132 + andi $6,$2,0x2 + .set macro + .set reorder + + + + ldc1 $f12,0($12) + + + andi $6,$2,0x2 +.L132: + .set noreorder + .set nomacro + beq $6,$0,.L133 + andi $6,$2,0x4 + .set macro + .set reorder + + + + ldc1 $f13,8($12) + + + andi $6,$2,0x4 +.L133: + .set noreorder + .set nomacro + beq $6,$0,.L134 + andi $6,$2,0x8 + .set macro + .set reorder + + + + ldc1 $f14,16($12) + + + andi $6,$2,0x8 +.L134: + .set noreorder + .set nomacro + beq $6,$0,.L135 + andi $6,$2,0x10 + .set macro + .set reorder + + + + ldc1 $f15,24($12) + + + andi $6,$2,0x10 +.L135: + .set noreorder + .set nomacro + beq $6,$0,.L136 + andi $6,$2,0x20 + .set macro + .set reorder + + + + ldc1 $f16,32($12) + + + andi $6,$2,0x20 +.L136: + .set noreorder + .set nomacro + beq $6,$0,.L137 + andi $6,$2,0x40 + .set macro + .set reorder + + + + ldc1 $f17,40($12) + + + andi $6,$2,0x40 +.L137: + .set noreorder + .set nomacro + beql $6,$0,.L138 + andi $2,$2,0x80 + .set macro + .set reorder + + + + ldc1 $f18,48($12) + + + andi $2,$2,0x80 +.L138: + bne $2,$0,.L119 + slt $4,$4,9 +.L123: + .set noreorder + .set nomacro + bne $4,$0,.L22 + addiu $2,$12,64 + .set macro + .set reorder + + .align 3 +.L83: + ld $4,0($2) + addiu $3,$3,8 + addiu $2,$2,8 + .set noreorder + .set nomacro + bne $5,$2,.L83 + sd $4,-8($3) + .set macro + .set reorder + +.L22: + + + ld $4,0($12) + + + ld $5,8($12) + + + ld $6,16($12) + + + ld $7,24($12) + + + ld $8,32($12) + + + ld $9,40($12) + + + ld $10,48($12) + + + ld $11,56($12) + + + lw $25,4($16) + jalr $25 + lw $4,12($16) + li $5,1 + .set noreorder + .set nomacro + beql $4,$5,.L139 + move $sp,$fp + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$0,.L116 + li $5,2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L109 + li $5,3 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L109 + li $5,4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L109 + li $5,5 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L112 + li $5,6 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L112 + li $5,7 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L111 + li $5,8 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L111 + li $5,9 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L111 + li $5,10 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L111 + li $5,11 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L116 + li $5,12 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L116 + li $5,13 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L120 + li $5,14 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L121 + li $5,15 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L111 + li $5,16 + .set macro + .set reorder + + .set noreorder + .set nomacro + bnel $4,$5,.L139 + move $sp,$fp + .set macro + .set reorder + + lw $4,0($16) + andi $5,$4,0x200 + .set noreorder + .set nomacro + beq $5,$0,.L19 + andi $4,$4,0x4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beql $4,$0,.L38 + lw $4,16($16) + .set macro + .set reorder + + lw $3,16($16) + li $4,1 + .set noreorder + .set nomacro + beq $3,$4,.L109 + li $4,2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $3,$4,.L112 + li $4,4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $3,$4,.L111 + li $4,8 + .set macro + .set reorder + + .set noreorder + .set nomacro + beql $3,$4,.L140 + lw $3,8($16) + .set macro + .set reorder + +.L19: + move $sp,$fp +.L139: + ld $31,24($sp) + ld $fp,16($sp) + ld $16,0($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,32 + .set macro + .set reorder + + .align 3 +.L116: + lw $3,8($16) + .align 3 +.L140: + sd $2,0($3) + move $sp,$fp + ld $31,24($sp) + ld $fp,16($sp) + ld $16,0($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,32 + .set macro + .set reorder + + .align 3 +.L119: + + + ldc1 $f19,56($12) + + + .set noreorder + .set nomacro + b .L123 + slt $4,$4,9 + .set macro + .set reorder + + .align 3 +.L118: + + + lwc1 $f19,72($16) + + + .set noreorder + .set nomacro + b .L124 + lw $2,40($16) + .set macro + .set reorder + + .align 3 +.L109: + lw $3,8($16) + sb $2,0($3) + move $sp,$fp + ld $31,24($sp) + ld $fp,16($sp) + ld $16,0($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,32 + .set macro + .set reorder + +.L112: + lw $3,8($16) + .set noreorder + .set nomacro + b .L19 + sh $2,0($3) + .set macro + .set reorder + +.L111: + lw $3,8($16) + sw $2,0($3) + move $sp,$fp + ld $31,24($sp) + ld $fp,16($sp) + ld $16,0($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,32 + .set macro + .set reorder + +.L120: + lw $2,8($16) + .set noreorder + .set nomacro + b .L19 + swc1 $f0,0($2) + .set macro + .set reorder + +.L121: + lw $2,8($16) + .set noreorder + .set nomacro + b .L19 + sdc1 $f0,0($2) + .set macro + .set reorder + +.L38: + addiu $5,$4,-1 + sltu $5,$5,16 + .set noreorder + .set nomacro + beq $5,$0,.L19 + sltu $8,$4,9 + .set macro + .set reorder + + lw $6,8($16) + li $7,-8 + andi $5,$6,0x7 + and $7,$6,$7 + .set noreorder + .set nomacro + beq $8,$0,.L42 + addu $4,$4,$5 + .set macro + .set reorder + + sltu $3,$4,9 + .set noreorder + .set nomacro + beq $3,$0,.L43 + subu $6,$0,$5 + .set macro + .set reorder + + subu $3,$0,$5 + sll $3,$3,3 + ld $8,0($7) + addiu $3,$3,63 + subu $4,$0,$4 + li $6,2 + dsll $6,$6,$3 + sll $4,$4,3 + sll $5,$5,3 + li $3,1 + dsll $3,$3,$4 + dsra $2,$2,$5 + dsubu $3,$6,$3 + xor $2,$2,$8 + and $2,$3,$2 + xor $2,$2,$8 + .set noreorder + .set nomacro + b .L19 + sd $2,0($7) + .set macro + .set reorder + + .align 3 +.L42: + subu $9,$0,$5 + ld $11,0($7) + sll $10,$9,3 + addiu $6,$10,63 + sll $5,$5,3 + li $8,2 + dsll $8,$8,$6 + dsra $6,$2,$5 + daddiu $8,$8,-1 + xor $6,$6,$11 + and $6,$8,$6 + xor $6,$6,$11 + sltu $8,$4,17 + .set noreorder + .set nomacro + bne $8,$0,.L122 + sd $6,0($7) + .set macro + .set reorder + + ld $11,16($7) + addiu $6,$10,64 + subu $4,$0,$4 + move $8,$3 + dsll $9,$3,$6 + sll $4,$4,3 + li $3,-1 + dsll $4,$3,$4 + xor $3,$9,$11 + dsll $2,$2,$6 + dsra $5,$8,$5 + and $3,$4,$3 + or $2,$2,$5 + xor $3,$3,$11 + sd $2,8($7) + .set noreorder + .set nomacro + b .L19 + sd $3,16($7) + .set macro + .set reorder + +.L43: + ld $9,0($7) + ld $8,8($7) + sll $6,$6,3 + addiu $10,$6,63 + sll $3,$5,3 + subu $4,$0,$4 + li $5,2 + dsra $3,$2,$3 + dsll $5,$5,$10 + dsll $2,$2,$6 + sll $4,$4,3 + li $6,-1 + daddiu $5,$5,-1 + xor $3,$3,$9 + dsll $4,$6,$4 + xor $2,$2,$8 + and $3,$5,$3 + and $2,$4,$2 + xor $3,$3,$9 + xor $2,$2,$8 + sd $3,0($7) + .set noreorder + .set nomacro + b .L19 + sd $2,8($7) + .set macro + .set reorder + +.L122: + sll $6,$9,2 + addiu $6,$6,32 + ld $8,8($7) + dsll $2,$2,$6 + dsll $6,$2,$6 + dsra $3,$3,$5 + subu $2,$0,$4 + or $3,$6,$3 + sll $2,$2,3 + li $5,-1 + xor $3,$3,$8 + dsll $2,$5,$2 + and $2,$3,$2 + xor $2,$2,$8 + .set noreorder + .set nomacro + b .L19 + sd $2,8($7) + .set macro + .set reorder + + .end avcall_call + .size avcall_call, .-avcall_call diff --git a/avcall/avcall-mipsn32el-linux.s b/avcall/avcall-mipsn32el-linux.s new file mode 100644 index 0000000..cb9019c --- /dev/null +++ b/avcall/avcall-mipsn32el-linux.s @@ -0,0 +1,731 @@ + .file 1 "avcall-mipsn32.c" + .section .mdebug.abiN32 + .previous + .nan legacy + .module fp=64 + .module oddspreg + .abicalls + .text + .align 2 + .align 3 + .globl avcall_call + .set nomips16 + .set nomicromips + .ent avcall_call + .type avcall_call, @function +avcall_call: + .frame $fp,32,$31 # vars= 0, regs= 4/0, args= 0, gp= 0 + .mask 0xd0010000,-8 + .fmask 0x00000000,0 + lw $5,20($4) + lw $12,24($4) + lw $2,36($4) + addiu $sp,$sp,-32 + sd $fp,16($sp) + sd $16,0($sp) + sd $31,24($sp) + move $fp,$sp + move $16,$4 + addiu $sp,$sp,-2064 + subu $4,$5,$12 + move $3,$sp + .set noreorder + .set nomacro + beq $2,$0,.L2 + sra $4,$4,3 + .set macro + .set reorder + + andi $6,$2,0x1 + .set noreorder + .set nomacro + beq $6,$0,.L125 + andi $6,$2,0x2 + .set macro + .set reorder + +#APP + # 78 "avcall-mipsn32.c" 1 + lwc1 $f12,44($16) + # 0 "" 2 +#NO_APP + andi $6,$2,0x2 +.L125: + .set noreorder + .set nomacro + beq $6,$0,.L126 + andi $6,$2,0x4 + .set macro + .set reorder + +#APP + # 80 "avcall-mipsn32.c" 1 + lwc1 $f13,48($16) + # 0 "" 2 +#NO_APP + andi $6,$2,0x4 +.L126: + .set noreorder + .set nomacro + beq $6,$0,.L127 + andi $6,$2,0x8 + .set macro + .set reorder + +#APP + # 82 "avcall-mipsn32.c" 1 + lwc1 $f14,52($16) + # 0 "" 2 +#NO_APP + andi $6,$2,0x8 +.L127: + .set noreorder + .set nomacro + beq $6,$0,.L128 + andi $6,$2,0x10 + .set macro + .set reorder + +#APP + # 84 "avcall-mipsn32.c" 1 + lwc1 $f15,56($16) + # 0 "" 2 +#NO_APP + andi $6,$2,0x10 +.L128: + .set noreorder + .set nomacro + beq $6,$0,.L129 + andi $6,$2,0x20 + .set macro + .set reorder + +#APP + # 86 "avcall-mipsn32.c" 1 + lwc1 $f16,60($16) + # 0 "" 2 +#NO_APP + andi $6,$2,0x20 +.L129: + .set noreorder + .set nomacro + beq $6,$0,.L130 + andi $6,$2,0x40 + .set macro + .set reorder + +#APP + # 88 "avcall-mipsn32.c" 1 + lwc1 $f17,64($16) + # 0 "" 2 +#NO_APP + andi $6,$2,0x40 +.L130: + .set noreorder + .set nomacro + beql $6,$0,.L131 + andi $2,$2,0x80 + .set macro + .set reorder + +#APP + # 90 "avcall-mipsn32.c" 1 + lwc1 $f18,68($16) + # 0 "" 2 +#NO_APP + andi $2,$2,0x80 +.L131: + bne $2,$0,.L118 +.L2: + lw $2,40($16) +.L124: + .set noreorder + .set nomacro + beql $2,$0,.L123 + slt $4,$4,9 + .set macro + .set reorder + + andi $6,$2,0x1 + .set noreorder + .set nomacro + beq $6,$0,.L132 + andi $6,$2,0x2 + .set macro + .set reorder + +#APP + # 98 "avcall-mipsn32.c" 1 + ldc1 $f12,0($12) + # 0 "" 2 +#NO_APP + andi $6,$2,0x2 +.L132: + .set noreorder + .set nomacro + beq $6,$0,.L133 + andi $6,$2,0x4 + .set macro + .set reorder + +#APP + # 100 "avcall-mipsn32.c" 1 + ldc1 $f13,8($12) + # 0 "" 2 +#NO_APP + andi $6,$2,0x4 +.L133: + .set noreorder + .set nomacro + beq $6,$0,.L134 + andi $6,$2,0x8 + .set macro + .set reorder + +#APP + # 102 "avcall-mipsn32.c" 1 + ldc1 $f14,16($12) + # 0 "" 2 +#NO_APP + andi $6,$2,0x8 +.L134: + .set noreorder + .set nomacro + beq $6,$0,.L135 + andi $6,$2,0x10 + .set macro + .set reorder + +#APP + # 104 "avcall-mipsn32.c" 1 + ldc1 $f15,24($12) + # 0 "" 2 +#NO_APP + andi $6,$2,0x10 +.L135: + .set noreorder + .set nomacro + beq $6,$0,.L136 + andi $6,$2,0x20 + .set macro + .set reorder + +#APP + # 106 "avcall-mipsn32.c" 1 + ldc1 $f16,32($12) + # 0 "" 2 +#NO_APP + andi $6,$2,0x20 +.L136: + .set noreorder + .set nomacro + beq $6,$0,.L137 + andi $6,$2,0x40 + .set macro + .set reorder + +#APP + # 108 "avcall-mipsn32.c" 1 + ldc1 $f17,40($12) + # 0 "" 2 +#NO_APP + andi $6,$2,0x40 +.L137: + .set noreorder + .set nomacro + beql $6,$0,.L138 + andi $2,$2,0x80 + .set macro + .set reorder + +#APP + # 110 "avcall-mipsn32.c" 1 + ldc1 $f18,48($12) + # 0 "" 2 +#NO_APP + andi $2,$2,0x80 +.L138: + bne $2,$0,.L119 + slt $4,$4,9 +.L123: + .set noreorder + .set nomacro + bne $4,$0,.L22 + addiu $2,$12,64 + .set macro + .set reorder + + .align 3 +.L83: + ld $4,0($2) + addiu $3,$3,8 + addiu $2,$2,8 + .set noreorder + .set nomacro + bne $5,$2,.L83 + sd $4,-8($3) + .set macro + .set reorder + +.L22: +#APP + # 119 "avcall-mipsn32.c" 1 + ld $4,0($12) + # 0 "" 2 + # 120 "avcall-mipsn32.c" 1 + ld $5,8($12) + # 0 "" 2 + # 121 "avcall-mipsn32.c" 1 + ld $6,16($12) + # 0 "" 2 + # 122 "avcall-mipsn32.c" 1 + ld $7,24($12) + # 0 "" 2 + # 123 "avcall-mipsn32.c" 1 + ld $8,32($12) + # 0 "" 2 + # 124 "avcall-mipsn32.c" 1 + ld $9,40($12) + # 0 "" 2 + # 125 "avcall-mipsn32.c" 1 + ld $10,48($12) + # 0 "" 2 + # 126 "avcall-mipsn32.c" 1 + ld $11,56($12) + # 0 "" 2 +#NO_APP + lw $25,4($16) + jalr $25 + lw $4,12($16) + li $5,1 # 0x1 + .set noreorder + .set nomacro + beql $4,$5,.L139 + move $sp,$fp + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$0,.L116 + li $5,2 # 0x2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L109 + li $5,3 # 0x3 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L109 + li $5,4 # 0x4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L109 + li $5,5 # 0x5 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L112 + li $5,6 # 0x6 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L112 + li $5,7 # 0x7 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L111 + li $5,8 # 0x8 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L111 + li $5,9 # 0x9 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L111 + li $5,10 # 0xa + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L111 + li $5,11 # 0xb + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L116 + li $5,12 # 0xc + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L116 + li $5,13 # 0xd + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L120 + li $5,14 # 0xe + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L121 + li $5,15 # 0xf + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L111 + li $5,16 # 0x10 + .set macro + .set reorder + + .set noreorder + .set nomacro + bnel $4,$5,.L139 + move $sp,$fp + .set macro + .set reorder + + lw $4,0($16) + andi $5,$4,0x200 + .set noreorder + .set nomacro + beq $5,$0,.L19 + andi $4,$4,0x4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beql $4,$0,.L38 + lw $5,16($16) + .set macro + .set reorder + + lw $3,16($16) + li $4,1 # 0x1 + .set noreorder + .set nomacro + beq $3,$4,.L109 + li $4,2 # 0x2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $3,$4,.L112 + li $4,4 # 0x4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $3,$4,.L111 + li $4,8 # 0x8 + .set macro + .set reorder + + .set noreorder + .set nomacro + beql $3,$4,.L140 + lw $3,8($16) + .set macro + .set reorder + +.L19: + move $sp,$fp +.L139: + ld $31,24($sp) + ld $fp,16($sp) + ld $16,0($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,32 + .set macro + .set reorder + + .align 3 +.L116: + lw $3,8($16) + .align 3 +.L140: + sd $2,0($3) + move $sp,$fp + ld $31,24($sp) + ld $fp,16($sp) + ld $16,0($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,32 + .set macro + .set reorder + + .align 3 +.L119: +#APP + # 112 "avcall-mipsn32.c" 1 + ldc1 $f19,56($12) + # 0 "" 2 +#NO_APP + .set noreorder + .set nomacro + b .L123 + slt $4,$4,9 + .set macro + .set reorder + + .align 3 +.L118: +#APP + # 92 "avcall-mipsn32.c" 1 + lwc1 $f19,72($16) + # 0 "" 2 +#NO_APP + .set noreorder + .set nomacro + b .L124 + lw $2,40($16) + .set macro + .set reorder + + .align 3 +.L109: + lw $3,8($16) + sb $2,0($3) + move $sp,$fp + ld $31,24($sp) + ld $fp,16($sp) + ld $16,0($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,32 + .set macro + .set reorder + +.L112: + lw $3,8($16) + .set noreorder + .set nomacro + b .L19 + sh $2,0($3) + .set macro + .set reorder + +.L111: + lw $3,8($16) + sw $2,0($3) + move $sp,$fp + ld $31,24($sp) + ld $fp,16($sp) + ld $16,0($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,32 + .set macro + .set reorder + +.L120: + lw $2,8($16) + .set noreorder + .set nomacro + b .L19 + swc1 $f0,0($2) + .set macro + .set reorder + +.L121: + lw $2,8($16) + .set noreorder + .set nomacro + b .L19 + sdc1 $f0,0($2) + .set macro + .set reorder + +.L38: + addiu $4,$5,-1 + sltu $4,$4,16 + .set noreorder + .set nomacro + beq $4,$0,.L19 + sltu $7,$5,9 + .set macro + .set reorder + + lw $6,8($16) + li $8,-8 # 0xfffffffffffffff8 + andi $4,$6,0x7 + addu $5,$5,$4 + .set noreorder + .set nomacro + beq $7,$0,.L42 + and $6,$6,$8 + .set macro + .set reorder + + sltu $3,$5,9 + .set noreorder + .set nomacro + beql $3,$0,.L43 + ld $10,0($6) + .set macro + .set reorder + + sll $5,$5,3 + ld $7,0($6) + li $3,2 # 0x2 + addiu $5,$5,-1 + sll $4,$4,3 + dsll $5,$3,$5 + li $3,1 # 0x1 + dsll $3,$3,$4 + dsll $4,$2,$4 + dsubu $3,$5,$3 + xor $2,$4,$7 + and $2,$3,$2 + xor $2,$2,$7 + .set noreorder + .set nomacro + b .L19 + sd $2,0($6) + .set macro + .set reorder + + .align 3 +.L42: + ld $10,0($6) + sll $9,$4,3 + dsll $7,$2,$9 + li $8,-1 # 0xffffffffffffffff + dsll $8,$8,$9 + xor $7,$7,$10 + and $7,$8,$7 + xor $7,$7,$10 + sltu $8,$5,17 + .set noreorder + .set nomacro + bne $8,$0,.L122 + sd $7,0($6) + .set macro + .set reorder + + subu $4,$0,$4 + ld $10,16($6) + sll $4,$4,3 + sll $5,$5,3 + addiu $4,$4,64 + addiu $5,$5,-129 + li $7,2 # 0x2 + move $8,$3 + dsll $5,$7,$5 + dsra $3,$3,$4 + daddiu $5,$5,-1 + xor $3,$3,$10 + dsra $2,$2,$4 + dsll $8,$8,$9 + and $3,$5,$3 + or $2,$2,$8 + xor $3,$3,$10 + sd $2,8($6) + .set noreorder + .set nomacro + b .L19 + sd $3,16($6) + .set macro + .set reorder + +.L43: + ld $9,8($6) + sll $3,$5,3 + subu $5,$0,$4 + addiu $8,$3,-65 + sll $4,$4,3 + sll $5,$5,3 + li $3,2 # 0x2 + dsll $7,$2,$4 + dsll $3,$3,$8 + dsra $2,$2,$5 + li $5,-1 # 0xffffffffffffffff + dsll $4,$5,$4 + daddiu $3,$3,-1 + xor $5,$7,$10 + xor $2,$2,$9 + and $2,$3,$2 + and $4,$4,$5 + xor $3,$4,$10 + xor $2,$2,$9 + sd $3,0($6) + .set noreorder + .set nomacro + b .L19 + sd $2,8($6) + .set macro + .set reorder + +.L122: + subu $7,$0,$4 + sll $7,$7,2 + addiu $7,$7,32 + ld $10,8($6) + dsra $4,$2,$7 + move $8,$3 + sll $3,$5,3 + addiu $3,$3,-65 + dsra $5,$4,$7 + dsll $2,$8,$9 + li $4,2 # 0x2 + dsll $3,$4,$3 + or $2,$5,$2 + daddiu $3,$3,-1 + xor $2,$2,$10 + and $2,$3,$2 + xor $2,$2,$10 + .set noreorder + .set nomacro + b .L19 + sd $2,8($6) + .set macro + .set reorder + + .end avcall_call + .size avcall_call, .-avcall_call + .ident "GCC: (GNU) 5.4.0" diff --git a/avcall/avcall-mipsn32el-macro.S b/avcall/avcall-mipsn32el-macro.S new file mode 100644 index 0000000..91e4fe5 --- /dev/null +++ b/avcall/avcall-mipsn32el-macro.S @@ -0,0 +1,725 @@ +#include "asm-mips.h" + .file 1 "avcall-mipsn32.c" + .text + .align 2 + .align 3 + .globl avcall_call + .set nomips16 + .set nomicromips + .ent avcall_call + DECLARE_FUNCTION(avcall_call) +avcall_call: + .frame $fp,32,$31 + .mask 0xd0010000,-8 + .fmask 0x00000000,0 + lw $5,20($4) + lw $12,24($4) + lw $2,36($4) + addiu $sp,$sp,-32 + sd $fp,16($sp) + sd $16,0($sp) + sd $31,24($sp) + move $fp,$sp + move $16,$4 + addiu $sp,$sp,-2064 + subu $4,$5,$12 + move $3,$sp + .set noreorder + .set nomacro + beq $2,$0,.L2 + sra $4,$4,3 + .set macro + .set reorder + + andi $6,$2,0x1 + .set noreorder + .set nomacro + beq $6,$0,.L125 + andi $6,$2,0x2 + .set macro + .set reorder + + + + lwc1 $f12,44($16) + + + andi $6,$2,0x2 +.L125: + .set noreorder + .set nomacro + beq $6,$0,.L126 + andi $6,$2,0x4 + .set macro + .set reorder + + + + lwc1 $f13,48($16) + + + andi $6,$2,0x4 +.L126: + .set noreorder + .set nomacro + beq $6,$0,.L127 + andi $6,$2,0x8 + .set macro + .set reorder + + + + lwc1 $f14,52($16) + + + andi $6,$2,0x8 +.L127: + .set noreorder + .set nomacro + beq $6,$0,.L128 + andi $6,$2,0x10 + .set macro + .set reorder + + + + lwc1 $f15,56($16) + + + andi $6,$2,0x10 +.L128: + .set noreorder + .set nomacro + beq $6,$0,.L129 + andi $6,$2,0x20 + .set macro + .set reorder + + + + lwc1 $f16,60($16) + + + andi $6,$2,0x20 +.L129: + .set noreorder + .set nomacro + beq $6,$0,.L130 + andi $6,$2,0x40 + .set macro + .set reorder + + + + lwc1 $f17,64($16) + + + andi $6,$2,0x40 +.L130: + .set noreorder + .set nomacro + beql $6,$0,.L131 + andi $2,$2,0x80 + .set macro + .set reorder + + + + lwc1 $f18,68($16) + + + andi $2,$2,0x80 +.L131: + bne $2,$0,.L118 +.L2: + lw $2,40($16) +.L124: + .set noreorder + .set nomacro + beql $2,$0,.L123 + slt $4,$4,9 + .set macro + .set reorder + + andi $6,$2,0x1 + .set noreorder + .set nomacro + beq $6,$0,.L132 + andi $6,$2,0x2 + .set macro + .set reorder + + + + ldc1 $f12,0($12) + + + andi $6,$2,0x2 +.L132: + .set noreorder + .set nomacro + beq $6,$0,.L133 + andi $6,$2,0x4 + .set macro + .set reorder + + + + ldc1 $f13,8($12) + + + andi $6,$2,0x4 +.L133: + .set noreorder + .set nomacro + beq $6,$0,.L134 + andi $6,$2,0x8 + .set macro + .set reorder + + + + ldc1 $f14,16($12) + + + andi $6,$2,0x8 +.L134: + .set noreorder + .set nomacro + beq $6,$0,.L135 + andi $6,$2,0x10 + .set macro + .set reorder + + + + ldc1 $f15,24($12) + + + andi $6,$2,0x10 +.L135: + .set noreorder + .set nomacro + beq $6,$0,.L136 + andi $6,$2,0x20 + .set macro + .set reorder + + + + ldc1 $f16,32($12) + + + andi $6,$2,0x20 +.L136: + .set noreorder + .set nomacro + beq $6,$0,.L137 + andi $6,$2,0x40 + .set macro + .set reorder + + + + ldc1 $f17,40($12) + + + andi $6,$2,0x40 +.L137: + .set noreorder + .set nomacro + beql $6,$0,.L138 + andi $2,$2,0x80 + .set macro + .set reorder + + + + ldc1 $f18,48($12) + + + andi $2,$2,0x80 +.L138: + bne $2,$0,.L119 + slt $4,$4,9 +.L123: + .set noreorder + .set nomacro + bne $4,$0,.L22 + addiu $2,$12,64 + .set macro + .set reorder + + .align 3 +.L83: + ld $4,0($2) + addiu $3,$3,8 + addiu $2,$2,8 + .set noreorder + .set nomacro + bne $5,$2,.L83 + sd $4,-8($3) + .set macro + .set reorder + +.L22: + + + ld $4,0($12) + + + ld $5,8($12) + + + ld $6,16($12) + + + ld $7,24($12) + + + ld $8,32($12) + + + ld $9,40($12) + + + ld $10,48($12) + + + ld $11,56($12) + + + lw $25,4($16) + jalr $25 + lw $4,12($16) + li $5,1 + .set noreorder + .set nomacro + beql $4,$5,.L139 + move $sp,$fp + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$0,.L116 + li $5,2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L109 + li $5,3 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L109 + li $5,4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L109 + li $5,5 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L112 + li $5,6 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L112 + li $5,7 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L111 + li $5,8 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L111 + li $5,9 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L111 + li $5,10 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L111 + li $5,11 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L116 + li $5,12 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L116 + li $5,13 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L120 + li $5,14 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L121 + li $5,15 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,.L111 + li $5,16 + .set macro + .set reorder + + .set noreorder + .set nomacro + bnel $4,$5,.L139 + move $sp,$fp + .set macro + .set reorder + + lw $4,0($16) + andi $5,$4,0x200 + .set noreorder + .set nomacro + beq $5,$0,.L19 + andi $4,$4,0x4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beql $4,$0,.L38 + lw $5,16($16) + .set macro + .set reorder + + lw $3,16($16) + li $4,1 + .set noreorder + .set nomacro + beq $3,$4,.L109 + li $4,2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $3,$4,.L112 + li $4,4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $3,$4,.L111 + li $4,8 + .set macro + .set reorder + + .set noreorder + .set nomacro + beql $3,$4,.L140 + lw $3,8($16) + .set macro + .set reorder + +.L19: + move $sp,$fp +.L139: + ld $31,24($sp) + ld $fp,16($sp) + ld $16,0($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,32 + .set macro + .set reorder + + .align 3 +.L116: + lw $3,8($16) + .align 3 +.L140: + sd $2,0($3) + move $sp,$fp + ld $31,24($sp) + ld $fp,16($sp) + ld $16,0($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,32 + .set macro + .set reorder + + .align 3 +.L119: + + + ldc1 $f19,56($12) + + + .set noreorder + .set nomacro + b .L123 + slt $4,$4,9 + .set macro + .set reorder + + .align 3 +.L118: + + + lwc1 $f19,72($16) + + + .set noreorder + .set nomacro + b .L124 + lw $2,40($16) + .set macro + .set reorder + + .align 3 +.L109: + lw $3,8($16) + sb $2,0($3) + move $sp,$fp + ld $31,24($sp) + ld $fp,16($sp) + ld $16,0($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,32 + .set macro + .set reorder + +.L112: + lw $3,8($16) + .set noreorder + .set nomacro + b .L19 + sh $2,0($3) + .set macro + .set reorder + +.L111: + lw $3,8($16) + sw $2,0($3) + move $sp,$fp + ld $31,24($sp) + ld $fp,16($sp) + ld $16,0($sp) + move $2,$0 + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,32 + .set macro + .set reorder + +.L120: + lw $2,8($16) + .set noreorder + .set nomacro + b .L19 + swc1 $f0,0($2) + .set macro + .set reorder + +.L121: + lw $2,8($16) + .set noreorder + .set nomacro + b .L19 + sdc1 $f0,0($2) + .set macro + .set reorder + +.L38: + addiu $4,$5,-1 + sltu $4,$4,16 + .set noreorder + .set nomacro + beq $4,$0,.L19 + sltu $7,$5,9 + .set macro + .set reorder + + lw $6,8($16) + li $8,-8 + andi $4,$6,0x7 + addu $5,$5,$4 + .set noreorder + .set nomacro + beq $7,$0,.L42 + and $6,$6,$8 + .set macro + .set reorder + + sltu $3,$5,9 + .set noreorder + .set nomacro + beql $3,$0,.L43 + ld $10,0($6) + .set macro + .set reorder + + sll $5,$5,3 + ld $7,0($6) + li $3,2 + addiu $5,$5,-1 + sll $4,$4,3 + dsll $5,$3,$5 + li $3,1 + dsll $3,$3,$4 + dsll $4,$2,$4 + dsubu $3,$5,$3 + xor $2,$4,$7 + and $2,$3,$2 + xor $2,$2,$7 + .set noreorder + .set nomacro + b .L19 + sd $2,0($6) + .set macro + .set reorder + + .align 3 +.L42: + ld $10,0($6) + sll $9,$4,3 + dsll $7,$2,$9 + li $8,-1 + dsll $8,$8,$9 + xor $7,$7,$10 + and $7,$8,$7 + xor $7,$7,$10 + sltu $8,$5,17 + .set noreorder + .set nomacro + bne $8,$0,.L122 + sd $7,0($6) + .set macro + .set reorder + + subu $4,$0,$4 + ld $10,16($6) + sll $4,$4,3 + sll $5,$5,3 + addiu $4,$4,64 + addiu $5,$5,-129 + li $7,2 + move $8,$3 + dsll $5,$7,$5 + dsra $3,$3,$4 + daddiu $5,$5,-1 + xor $3,$3,$10 + dsra $2,$2,$4 + dsll $8,$8,$9 + and $3,$5,$3 + or $2,$2,$8 + xor $3,$3,$10 + sd $2,8($6) + .set noreorder + .set nomacro + b .L19 + sd $3,16($6) + .set macro + .set reorder + +.L43: + ld $9,8($6) + sll $3,$5,3 + subu $5,$0,$4 + addiu $8,$3,-65 + sll $4,$4,3 + sll $5,$5,3 + li $3,2 + dsll $7,$2,$4 + dsll $3,$3,$8 + dsra $2,$2,$5 + li $5,-1 + dsll $4,$5,$4 + daddiu $3,$3,-1 + xor $5,$7,$10 + xor $2,$2,$9 + and $2,$3,$2 + and $4,$4,$5 + xor $3,$4,$10 + xor $2,$2,$9 + sd $3,0($6) + .set noreorder + .set nomacro + b .L19 + sd $2,8($6) + .set macro + .set reorder + +.L122: + subu $7,$0,$4 + sll $7,$7,2 + addiu $7,$7,32 + ld $10,8($6) + dsra $4,$2,$7 + move $8,$3 + sll $3,$5,3 + addiu $3,$3,-65 + dsra $5,$4,$7 + dsll $2,$8,$9 + li $4,2 + dsll $3,$4,$3 + or $2,$5,$2 + daddiu $3,$3,-1 + xor $2,$2,$10 + and $2,$3,$2 + xor $2,$2,$10 + .set noreorder + .set nomacro + b .L19 + sd $2,8($6) + .set macro + .set reorder + + .end avcall_call + .size avcall_call, .-avcall_call diff --git a/avcall/avcall-powerpc-aix.s b/avcall/avcall-powerpc-aix.s new file mode 100644 index 0000000..d345fb6 --- /dev/null +++ b/avcall/avcall-powerpc-aix.s @@ -0,0 +1,214 @@ + .file "avcall-powerpc.c" + .toc + .csect .text[PR] + .align 2 + .globl avcall_call + .globl .avcall_call + .csect avcall_call[DS] +avcall_call: + .long .avcall_call, TOC[tc0], 0 + .csect .text[PR] +.avcall_call: + .extern __mulh + .extern __mull + .extern __divss + .extern __divus + .extern __quoss + .extern __quous + mflr 0 + stw 0,8(1) + stw 30,-8(1) + stw 31,-4(1) + stw 29,-12(1) + stwu 1,-72(1) + lwz 0,20(3) + lwz 11,24(3) + mr 30,3 + subfc 0,11,0 + srawi 8,0,2 + li 3,8 + lwz 9,0(1) + cmpw 0,3,8 + mr 31,1 + stwu 9,-1040(1) + addi 0,1,71 + rlwinm 10,0,0,0,27 + bge- 0,L..89 +L..6: + slwi 9,3,2 + addi 3,3,1 + cmpw 0,3,8 + lwzx 0,9,11 + add 9,9,10 + stw 0,-32(9) + blt+ 0,L..6 +L..88: + lwz 9,40(30) + subfc 9,30,9 + addi 9,9,-44 + srawi. 9,9,3 + beq- 0,L..8 + cmpwi 0,9,1 + beq- 0,L..11 + cmpwi 0,9,2 + beq- 0,L..14 + cmpwi 0,9,3 + beq- 0,L..17 + cmpwi 0,9,4 + beq- 0,L..20 + cmpwi 0,9,5 + beq- 0,L..23 + cmpwi 0,9,6 + beq- 0,L..26 + cmpwi 0,9,7 + beq- 0,L..29 + cmpwi 0,9,8 + beq- 0,L..32 + cmpwi 0,9,9 + beq- 0,L..35 + cmpwi 0,9,10 + beq- 0,L..38 + cmpwi 0,9,11 + beq- 0,L..41 + cmpwi 0,9,12 + beq- 0,L..44 +L..47: + lfd 13,140(30) +L..44: + lfd 12,132(30) +L..41: + lfd 11,124(30) +L..38: + lfd 10,116(30) +L..35: + lfd 9,108(30) +L..32: + lfd 8,100(30) +L..29: + lfd 7,92(30) +L..26: + lfd 6,84(30) +L..23: + lfd 5,76(30) +L..20: + lfd 4,68(30) +L..17: + lfd 3,60(30) +L..14: + lfd 2,52(30) +L..11: + lfd 1,44(30) +L..8: + lwz 29,4(30) + lwz 9,24(11) + lwz 0,0(29) + lwz 10,28(11) + lwz 3,0(11) + mtctr 0 + lwz 4,4(11) + lwz 5,8(11) + lwz 6,12(11) + lwz 7,16(11) + lwz 8,20(11) + stw 2,20(1) + lwz 11,8(29) + lwz 2,4(29) + bctrl + lwz 2,20(1) + lwz 9,12(30) + cmpwi 0,9,1 + beq- 0,L..49 + cmpwi 0,9,0 + beq- 0,L..99 + cmpwi 0,9,2 + beq- 0,L..92 + cmpwi 0,9,3 + beq- 0,L..92 + cmpwi 0,9,4 + beq- 0,L..92 + cmpwi 0,9,5 + beq- 0,L..91 + cmpwi 0,9,6 + beq- 0,L..91 + cmpwi 0,9,7 + beq- 0,L..99 + cmpwi 0,9,8 + beq- 0,L..99 + cmpwi 0,9,9 + beq- 0,L..99 + cmpwi 0,9,10 + beq- 0,L..99 + addi 0,9,-11 + cmplwi 0,0,1 + ble- 0,L..98 + cmpwi 0,9,13 + beq- 0,L..100 + cmpwi 0,9,14 + beq- 0,L..101 + cmpwi 0,9,15 + beq- 0,L..99 + cmpwi 0,9,16 + beq- 0,L..102 +L..49: + lwz 1,0(1) + li 3,0 + lwz 0,8(1) + lwz 29,-12(1) + mtlr 0 + lwz 30,-8(1) + lwz 31,-4(1) + blr +L..102: + lwz 0,0(30) + andi. 9,0,512 + beq- 0,L..49 + lwz 0,16(30) + cmpwi 0,0,1 + beq- 0,L..92 + cmpwi 0,0,2 + beq- 0,L..91 + cmpwi 0,0,4 + beq- 0,L..99 + cmpwi 0,0,8 + bne+ 0,L..49 +L..98: + lwz 9,8(30) + stw 4,4(9) +L..90: + stw 3,0(9) + b L..49 +L..99: + lwz 9,8(30) + b L..90 +L..91: + lwz 9,8(30) + sth 3,0(9) + b L..49 +L..92: + lwz 9,8(30) + stb 3,0(9) + b L..49 +L..101: + lwz 9,8(30) + stfd 1,0(9) + b L..49 +L..100: + lwz 9,8(30) + frsp 0,1 + stfs 0,0(9) + b L..49 +L..89: + lwz 11,24(30) + b L..88 +LT..avcall_call: + .long 0 + .byte 0,0,32,97,128,3,1,0 + .long 0 + .long LT..avcall_call-.avcall_call + .short 11 + .byte "avcall_call" + .byte 31 + .align 2 +_section_.text: + .csect .data[RW],3 + .long _section_.text diff --git a/avcall/avcall-powerpc-linux-macro.S b/avcall/avcall-powerpc-linux-macro.S new file mode 100644 index 0000000..b67f316 --- /dev/null +++ b/avcall/avcall-powerpc-linux-macro.S @@ -0,0 +1,169 @@ + .file "avcall-powerpc.c" + .section ".text" + .align 2 + .globl avcall_call + .type avcall_call, @function +avcall_call: + .extern __mulh + .extern __mull + .extern __divss + .extern __divus + .extern __quoss + .extern __quous + stwu 1,-1056(1) + mflr 0 + stw 0,1060(1) + addi 10,1,8 + stw 30,1048(1) + mr 30,3 + lwz 0,20(30) + li 3,0 + lwz 11,24(30) + stw 31,1052(1) + mr 31,1 + subfc 0,11,0 + srawi 0,0,2 + cmpw 0,3,0 + bge- 0,.L73 + mtctr 0 +.L74: + slwi 9,3,2 + addi 3,3,1 + lwzx 0,9,11 + stwx 0,9,10 + bdnz .L74 +.L73: + lwz 9,76(30) + subfc 9,30,9 + addi 9,9,-80 + srawi. 9,9,3 + beq- 0,.L8 + cmpwi 0,9,1 + beq- 0,.L11 + cmpwi 0,9,2 + beq- 0,.L14 + cmpwi 0,9,3 + beq- 0,.L17 + cmpwi 0,9,4 + beq- 0,.L20 + cmpwi 0,9,5 + beq- 0,.L23 + cmpwi 0,9,6 + beq- 0,.L26 + cmpwi 0,9,7 + beq- 0,.L29 +.L32: + lfd 8,136(30) +.L29: + lfd 7,128(30) +.L26: + lfd 6,120(30) +.L23: + lfd 5,112(30) +.L20: + lfd 4,104(30) +.L17: + lfd 3,96(30) +.L14: + lfd 2,88(30) +.L11: + lfd 1,80(30) +.L8: + lwz 0,4(30) + lwz 9,68(30) + lwz 3,44(30) + mtctr 0 + lwz 4,48(30) + lwz 5,52(30) + lwz 6,56(30) + lwz 7,60(30) + lwz 8,64(30) + lwz 10,72(30) + crxor 6,6,6 + bctrl + lwz 9,12(30) + cmpwi 0,9,1 + beq- 0,.L34 + cmpwi 0,9,0 + beq- 0,.L84 + cmpwi 0,9,2 + beq- 0,.L77 + cmpwi 0,9,3 + beq- 0,.L77 + cmpwi 0,9,4 + beq- 0,.L77 + cmpwi 0,9,5 + beq- 0,.L76 + cmpwi 0,9,6 + beq- 0,.L76 + cmpwi 0,9,7 + beq- 0,.L84 + cmpwi 0,9,8 + beq- 0,.L84 + cmpwi 0,9,9 + beq- 0,.L84 + cmpwi 0,9,10 + beq- 0,.L84 + addi 0,9,-11 + cmplwi 0,0,1 + ble- 0,.L83 + cmpwi 0,9,13 + beq- 0,.L85 + cmpwi 0,9,14 + beq- 0,.L86 + cmpwi 0,9,15 + beq- 0,.L84 + cmpwi 0,9,16 + beq- 0,.L87 +.L34: + lwz 11,0(1) + li 3,0 + lwz 0,4(11) + lwz 30,-8(11) + lwz 31,-4(11) + mtlr 0 + mr 1,11 + blr +.L87: + lwz 0,0(30) + andi. 9,0,512 + beq- 0,.L34 + lwz 0,16(30) + cmpwi 0,0,1 + beq- 0,.L77 + cmpwi 0,0,2 + beq- 0,.L76 + cmpwi 0,0,4 + beq- 0,.L84 + cmpwi 0,0,8 + bne+ 0,.L34 +.L83: + lwz 9,8(30) + stw 4,4(9) +.L75: + stw 3,0(9) + b .L34 +.L84: + lwz 9,8(30) + b .L75 +.L76: + lwz 9,8(30) + sth 3,0(9) + b .L34 +.L77: + lwz 9,8(30) + stb 3,0(9) + b .L34 +.L86: + lwz 9,8(30) + stfd 1,0(9) + b .L34 +.L85: + frsp 0,1 + lwz 9,8(30) + stfs 0,0(9) + b .L34 + .size avcall_call, .-avcall_call +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/avcall/avcall-powerpc-linux.s b/avcall/avcall-powerpc-linux.s new file mode 100644 index 0000000..bedae2a --- /dev/null +++ b/avcall/avcall-powerpc-linux.s @@ -0,0 +1,168 @@ + .file "avcall-powerpc.c" + .section ".text" + .align 2 + .globl avcall_call + .type avcall_call, @function +avcall_call: + .extern __mulh + .extern __mull + .extern __divss + .extern __divus + .extern __quoss + .extern __quous + stwu 1,-1056(1) + mflr 0 + stw 0,1060(1) + addi 10,1,8 + stw 30,1048(1) + mr 30,3 + lwz 0,20(30) + li 3,0 + lwz 11,24(30) + stw 31,1052(1) + mr 31,1 + subfc 0,11,0 + srawi 0,0,2 + cmpw 0,3,0 + bge- 0,.L73 + mtctr 0 +.L74: + slwi 9,3,2 + addi 3,3,1 + lwzx 0,9,11 + stwx 0,9,10 + bdnz .L74 +.L73: + lwz 9,76(30) + subfc 9,30,9 + addi 9,9,-80 + srawi. 9,9,3 + beq- 0,.L8 + cmpwi 0,9,1 + beq- 0,.L11 + cmpwi 0,9,2 + beq- 0,.L14 + cmpwi 0,9,3 + beq- 0,.L17 + cmpwi 0,9,4 + beq- 0,.L20 + cmpwi 0,9,5 + beq- 0,.L23 + cmpwi 0,9,6 + beq- 0,.L26 + cmpwi 0,9,7 + beq- 0,.L29 +.L32: + lfd 8,136(30) +.L29: + lfd 7,128(30) +.L26: + lfd 6,120(30) +.L23: + lfd 5,112(30) +.L20: + lfd 4,104(30) +.L17: + lfd 3,96(30) +.L14: + lfd 2,88(30) +.L11: + lfd 1,80(30) +.L8: + lwz 0,4(30) + lwz 9,68(30) + lwz 3,44(30) + mtctr 0 + lwz 4,48(30) + lwz 5,52(30) + lwz 6,56(30) + lwz 7,60(30) + lwz 8,64(30) + lwz 10,72(30) + crxor 6,6,6 + bctrl + lwz 9,12(30) + cmpwi 0,9,1 + beq- 0,.L34 + cmpwi 0,9,0 + beq- 0,.L84 + cmpwi 0,9,2 + beq- 0,.L77 + cmpwi 0,9,3 + beq- 0,.L77 + cmpwi 0,9,4 + beq- 0,.L77 + cmpwi 0,9,5 + beq- 0,.L76 + cmpwi 0,9,6 + beq- 0,.L76 + cmpwi 0,9,7 + beq- 0,.L84 + cmpwi 0,9,8 + beq- 0,.L84 + cmpwi 0,9,9 + beq- 0,.L84 + cmpwi 0,9,10 + beq- 0,.L84 + addi 0,9,-11 + cmplwi 0,0,1 + ble- 0,.L83 + cmpwi 0,9,13 + beq- 0,.L85 + cmpwi 0,9,14 + beq- 0,.L86 + cmpwi 0,9,15 + beq- 0,.L84 + cmpwi 0,9,16 + beq- 0,.L87 +.L34: + lwz 11,0(1) + li 3,0 + lwz 0,4(11) + lwz 30,-8(11) + lwz 31,-4(11) + mtlr 0 + mr 1,11 + blr +.L87: + lwz 0,0(30) + andi. 9,0,512 + beq- 0,.L34 + lwz 0,16(30) + cmpwi 0,0,1 + beq- 0,.L77 + cmpwi 0,0,2 + beq- 0,.L76 + cmpwi 0,0,4 + beq- 0,.L84 + cmpwi 0,0,8 + bne+ 0,.L34 +.L83: + lwz 9,8(30) + stw 4,4(9) +.L75: + stw 3,0(9) + b .L34 +.L84: + lwz 9,8(30) + b .L75 +.L76: + lwz 9,8(30) + sth 3,0(9) + b .L34 +.L77: + lwz 9,8(30) + stb 3,0(9) + b .L34 +.L86: + lwz 9,8(30) + stfd 1,0(9) + b .L34 +.L85: + frsp 0,1 + lwz 9,8(30) + stfs 0,0(9) + b .L34 + .size avcall_call, .-avcall_call + .section .note.GNU-stack,"",@progbits + .ident "GCC: (GNU) 3.3.6" diff --git a/avcall/avcall-powerpc-macos.s b/avcall/avcall-powerpc-macos.s new file mode 100644 index 0000000..f76e2c0 --- /dev/null +++ b/avcall/avcall-powerpc-macos.s @@ -0,0 +1,177 @@ +.text + .align 2 + .globl _avcall_call +_avcall_call: + mflr r0 + stmw r29,-12(r1) + stw r0,8(r1) + mr r29,r3 + stwu r1,-1104(r1) + li r3,8 + lwz r0,20(r29) + mr r30,r1 + lwz r9,24(r29) + addi r10,r1,56 + subf r0,r9,r0 + srawi r11,r0,2 + cmpw cr0,r3,r11 + bge- cr0,L89 + mr r12,r9 +L6: + slwi r9,r3,2 + addi r3,r3,1 + cmpw cr0,r3,r11 + lwzx r0,r9,r12 + add r9,r9,r10 + stw r0,-32(r9) + blt+ cr0,L6 +L88: + lwz r9,40(r29) + subf r9,r29,r9 + addi r9,r9,-44 + srawi. r9,r9,3 + beq- cr0,L8 + cmpwi cr0,r9,1 + beq- cr0,L11 + cmpwi cr0,r9,2 + beq- cr0,L14 + cmpwi cr0,r9,3 + beq- cr0,L17 + cmpwi cr0,r9,4 + beq- cr0,L20 + cmpwi cr0,r9,5 + beq- cr0,L23 + cmpwi cr0,r9,6 + beq- cr0,L26 + cmpwi cr0,r9,7 + beq- cr0,L29 + cmpwi cr0,r9,8 + beq- cr0,L32 + cmpwi cr0,r9,9 + beq- cr0,L35 + cmpwi cr0,r9,10 + beq- cr0,L38 + cmpwi cr0,r9,11 + beq- cr0,L41 + cmpwi cr0,r9,12 + beq- cr0,L44 +L47: + lfd f13,140(r29) +L44: + lfd f12,132(r29) +L41: + lfd f11,124(r29) +L38: + lfd f10,116(r29) +L35: + lfd f9,108(r29) +L32: + lfd f8,100(r29) +L29: + lfd f7,92(r29) +L26: + lfd f6,84(r29) +L23: + lfd f5,76(r29) +L20: + lfd f4,68(r29) +L17: + lfd f3,60(r29) +L14: + lfd f2,52(r29) +L11: + lfd f1,44(r29) +L8: + lwz r0,4(r29) + lwz r9,24(r12) + lwz r10,28(r12) + mtctr r0 + lwz r3,0(r12) + lwz r4,4(r12) + lwz r5,8(r12) + lwz r6,12(r12) + lwz r7,16(r12) + lwz r8,20(r12) + bctrl + lwz r9,12(r29) + cmpwi cr0,r9,1 + beq- cr0,L49 + cmpwi cr0,r9,0 + beq- cr0,L99 + cmpwi cr0,r9,2 + beq- cr0,L92 + cmpwi cr0,r9,3 + beq- cr0,L92 + cmpwi cr0,r9,4 + beq- cr0,L92 + cmpwi cr0,r9,5 + beq- cr0,L91 + cmpwi cr0,r9,6 + beq- cr0,L91 + cmpwi cr0,r9,7 + beq- cr0,L99 + cmpwi cr0,r9,8 + beq- cr0,L99 + cmpwi cr0,r9,9 + beq- cr0,L99 + cmpwi cr0,r9,10 + beq- cr0,L99 + addi r0,r9,-11 + cmplwi cr0,r0,1 + ble- cr0,L98 + cmpwi cr0,r9,13 + beq- cr0,L100 + cmpwi cr0,r9,14 + beq- cr0,L101 + cmpwi cr0,r9,15 + beq- cr0,L99 + cmpwi cr0,r9,16 + beq- cr0,L102 +L49: + lwz r1,0(r1) + li r3,0 + lwz r0,8(r1) + lmw r29,-12(r1) + mtlr r0 + blr +L102: + lwz r0,0(r29) + andi. r9,r0,512 + beq- cr0,L49 + lwz r0,16(r29) + cmpwi cr0,r0,1 + beq- cr0,L92 + cmpwi cr0,r0,2 + beq- cr0,L91 + cmpwi cr0,r0,4 + beq- cr0,L99 + cmpwi cr0,r0,8 + bne+ cr0,L49 +L98: + lwz r9,8(r29) + stw r4,4(r9) +L90: + stw r3,0(r9) + b L49 +L99: + lwz r9,8(r29) + b L90 +L91: + lwz r9,8(r29) + sth r3,0(r9) + b L49 +L92: + lwz r9,8(r29) + stb r3,0(r9) + b L49 +L101: + lwz r9,8(r29) + stfd f1,0(r9) + b L49 +L100: + lwz r9,8(r29) + stfs f1,0(r9) + b L49 +L89: + lwz r12,24(r29) + b L88 diff --git a/avcall/avcall-powerpc-sysv4-macro.S b/avcall/avcall-powerpc-sysv4-macro.S new file mode 100644 index 0000000..b67f316 --- /dev/null +++ b/avcall/avcall-powerpc-sysv4-macro.S @@ -0,0 +1,169 @@ + .file "avcall-powerpc.c" + .section ".text" + .align 2 + .globl avcall_call + .type avcall_call, @function +avcall_call: + .extern __mulh + .extern __mull + .extern __divss + .extern __divus + .extern __quoss + .extern __quous + stwu 1,-1056(1) + mflr 0 + stw 0,1060(1) + addi 10,1,8 + stw 30,1048(1) + mr 30,3 + lwz 0,20(30) + li 3,0 + lwz 11,24(30) + stw 31,1052(1) + mr 31,1 + subfc 0,11,0 + srawi 0,0,2 + cmpw 0,3,0 + bge- 0,.L73 + mtctr 0 +.L74: + slwi 9,3,2 + addi 3,3,1 + lwzx 0,9,11 + stwx 0,9,10 + bdnz .L74 +.L73: + lwz 9,76(30) + subfc 9,30,9 + addi 9,9,-80 + srawi. 9,9,3 + beq- 0,.L8 + cmpwi 0,9,1 + beq- 0,.L11 + cmpwi 0,9,2 + beq- 0,.L14 + cmpwi 0,9,3 + beq- 0,.L17 + cmpwi 0,9,4 + beq- 0,.L20 + cmpwi 0,9,5 + beq- 0,.L23 + cmpwi 0,9,6 + beq- 0,.L26 + cmpwi 0,9,7 + beq- 0,.L29 +.L32: + lfd 8,136(30) +.L29: + lfd 7,128(30) +.L26: + lfd 6,120(30) +.L23: + lfd 5,112(30) +.L20: + lfd 4,104(30) +.L17: + lfd 3,96(30) +.L14: + lfd 2,88(30) +.L11: + lfd 1,80(30) +.L8: + lwz 0,4(30) + lwz 9,68(30) + lwz 3,44(30) + mtctr 0 + lwz 4,48(30) + lwz 5,52(30) + lwz 6,56(30) + lwz 7,60(30) + lwz 8,64(30) + lwz 10,72(30) + crxor 6,6,6 + bctrl + lwz 9,12(30) + cmpwi 0,9,1 + beq- 0,.L34 + cmpwi 0,9,0 + beq- 0,.L84 + cmpwi 0,9,2 + beq- 0,.L77 + cmpwi 0,9,3 + beq- 0,.L77 + cmpwi 0,9,4 + beq- 0,.L77 + cmpwi 0,9,5 + beq- 0,.L76 + cmpwi 0,9,6 + beq- 0,.L76 + cmpwi 0,9,7 + beq- 0,.L84 + cmpwi 0,9,8 + beq- 0,.L84 + cmpwi 0,9,9 + beq- 0,.L84 + cmpwi 0,9,10 + beq- 0,.L84 + addi 0,9,-11 + cmplwi 0,0,1 + ble- 0,.L83 + cmpwi 0,9,13 + beq- 0,.L85 + cmpwi 0,9,14 + beq- 0,.L86 + cmpwi 0,9,15 + beq- 0,.L84 + cmpwi 0,9,16 + beq- 0,.L87 +.L34: + lwz 11,0(1) + li 3,0 + lwz 0,4(11) + lwz 30,-8(11) + lwz 31,-4(11) + mtlr 0 + mr 1,11 + blr +.L87: + lwz 0,0(30) + andi. 9,0,512 + beq- 0,.L34 + lwz 0,16(30) + cmpwi 0,0,1 + beq- 0,.L77 + cmpwi 0,0,2 + beq- 0,.L76 + cmpwi 0,0,4 + beq- 0,.L84 + cmpwi 0,0,8 + bne+ 0,.L34 +.L83: + lwz 9,8(30) + stw 4,4(9) +.L75: + stw 3,0(9) + b .L34 +.L84: + lwz 9,8(30) + b .L75 +.L76: + lwz 9,8(30) + sth 3,0(9) + b .L34 +.L77: + lwz 9,8(30) + stb 3,0(9) + b .L34 +.L86: + lwz 9,8(30) + stfd 1,0(9) + b .L34 +.L85: + frsp 0,1 + lwz 9,8(30) + stfs 0,0(9) + b .L34 + .size avcall_call, .-avcall_call +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/avcall/avcall-powerpc.c b/avcall/avcall-powerpc.c new file mode 100644 index 0000000..5d1b6f8 --- /dev/null +++ b/avcall/avcall-powerpc.c @@ -0,0 +1,216 @@ +/** + Copyright 1993 Bill Triggs + Copyright 1995-2017 Bruno Haible + Copyright 2000 Adam Fedor + Copyright 2004 Paul Guyot + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . +**/ +/*---------------------------------------------------------------------- + !!! THIS ROUTINE MUST BE COMPILED gcc -O !!! + + Foreign function interface for an IBM RS/6000 with gcc + + This calls a C function with an argument list built up using macros + defined in avcall.h. + + RS6000 Argument Passing Conventions: + + All arguments, except the first 8 words, are passed on the stack with + word alignment. Doubles take two words. The first 13 doubles and floats + are also passed in floating-point-registers. + To return a structure, the called function copies the value to space + pointed to by its first argument, and all other arguments are shifted + down by one. + + Differences between AIX and SysV.4 argument passing conventions: + - AIX: the first 13 doubles and floats are passed in FP registers, + and when they do, there is still room allocated for them in the + argument sequence (integer regs or stack). + SysV.4: the first 8 doubles and floats are passed in FP registers, + and no room is allocated for them in the argument sequence. + - AIX: Structures are passed in the argument sequence. + SysV.4: Structures are passed by reference: only a pointer appears in + the argument sequence. + - AIX: Long longs are only word aligned. + SysV.4: Long longs are two-word aligned, both when passed in registers + (pairs: 3/4, 5/6, 7/8, 9/10) and when passed on the stack. (Recall + that the stack is always 8-byte aligned). + + Compile this routine with gcc -O (or -O2 -fno-omit-frame-pointer or -g -O) + to get the right register variables. For other compilers use the + pre-compiled assembler version. + ----------------------------------------------------------------------*/ +#include "avcall-internal.h" + +#if defined(_AIX) || (defined(__MACH__) && defined(__APPLE__)) /* __powerpc_aix__ */ +#define STACK_OFFSET 14 +#else /* __powerpc_sysv4__ */ +#define STACK_OFFSET 2 +#endif + +#define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) + +register double farg1 __asm__("fr1"); +register double farg2 __asm__("fr2"); +register double farg3 __asm__("fr3"); +register double farg4 __asm__("fr4"); +register double farg5 __asm__("fr5"); +register double farg6 __asm__("fr6"); +register double farg7 __asm__("fr7"); +register double farg8 __asm__("fr8"); +register double farg9 __asm__("fr9"); +register double farg10 __asm__("fr10"); +register double farg11 __asm__("fr11"); +register double farg12 __asm__("fr12"); +register double farg13 __asm__("fr13"); + +int +avcall_call(av_alist* list) +{ + register __avword* sp __asm__("r1"); /* C names for registers */ +/*register __avword iret __asm__("r3"); */ + register __avword iret2 __asm__("r4"); + register float fret __asm__("fr1"); + register double dret __asm__("fr1"); + + __av_alist* l = &AV_LIST_INNER(list); + +#if defined(_AIX) /* for some reason, this does not work on Mac OS X and Linux! */ + __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ +#else + __avword space[__AV_ALIST_WORDS]; /* space for callee's stack frame */ + __avword* argframe = sp + STACK_OFFSET;/* stack offset for argument list */ +#endif + int arglen = l->aptr - l->args; + __avword i; +#if defined(_AIX) || (defined(__MACH__) && defined(__APPLE__)) /* __powerpc_aix__ */ + int farglen = 0; + + for (i = (8-farglen); i < arglen; i++) /* push function args onto stack */ + argframe[i-8+farglen] = l->args[i]; +#else /* __powerpc_sysv4__ */ + for (i = 0; i < arglen; i++) /* push function args onto stack */ + argframe[i] = l->args[i]; +#endif + + /* pass first 13 floating-point args in registers */ + arglen = l->faptr - l->fargs; + if (arglen == 0) goto fargs0; + else if (arglen == 1) goto fargs1; + else if (arglen == 2) goto fargs2; + else if (arglen == 3) goto fargs3; + else if (arglen == 4) goto fargs4; + else if (arglen == 5) goto fargs5; + else if (arglen == 6) goto fargs6; + else if (arglen == 7) goto fargs7; + else if (arglen == 8) goto fargs8; +#if defined(_AIX) || (defined(__MACH__) && defined(__APPLE__)) /* __powerpc_aix__ */ + else if (arglen == 9) goto fargs9; + else if (arglen == 10) goto fargs10; + else if (arglen == 11) goto fargs11; + else if (arglen == 12) goto fargs12; + else if (arglen == 13) goto fargs13; + fargs13: farg13 = l->fargs[12]; + fargs12: farg12 = l->fargs[11]; + fargs11: farg11 = l->fargs[10]; + fargs10: farg10 = l->fargs[9]; + fargs9: farg9 = l->fargs[8]; +#endif + fargs8: farg8 = l->fargs[7]; + fargs7: farg7 = l->fargs[6]; + fargs6: farg6 = l->fargs[5]; + fargs5: farg5 = l->fargs[4]; + fargs4: farg4 = l->fargs[3]; + fargs3: farg3 = l->fargs[2]; + fargs2: farg2 = l->fargs[1]; + fargs1: farg1 = l->fargs[0]; + fargs0: ; + +#if defined(_AIX) || (defined(__MACH__) && defined(__APPLE__)) /* __powerpc_aix__ */ + /* call function, pass 8 args in registers */ + i = (*l->func)(l->args[0], l->args[1], l->args[2], l->args[3], + l->args[4], l->args[5], l->args[6], l->args[7]); +#else /* __powerpc_sysv4__ */ + i = (*l->func)(l->iargs[0], l->iargs[1], l->iargs[2], l->iargs[3], + l->iargs[4], l->iargs[5], l->iargs[6], l->iargs[7]); +#endif + + /* save return value */ + if (l->rtype == __AVvoid) { + } else + if (l->rtype == __AVword) { + RETURN(__avword, i); + } else + if (l->rtype == __AVchar) { + RETURN(char, i); + } else + if (l->rtype == __AVschar) { + RETURN(signed char, i); + } else + if (l->rtype == __AVuchar) { + RETURN(unsigned char, i); + } else + if (l->rtype == __AVshort) { + RETURN(short, i); + } else + if (l->rtype == __AVushort) { + RETURN(unsigned short, i); + } else + if (l->rtype == __AVint) { + RETURN(int, i); + } else + if (l->rtype == __AVuint) { + RETURN(unsigned int, i); + } else + if (l->rtype == __AVlong) { + RETURN(long, i); + } else + if (l->rtype == __AVulong) { + RETURN(unsigned long, i); + } else + if (l->rtype == __AVlonglong || l->rtype == __AVulonglong) { + void* raddr = l->raddr; + ((__avword*)raddr)[0] = i; + ((__avword*)raddr)[1] = iret2; + } else + if (l->rtype == __AVfloat) { + RETURN(float, fret); + } else + if (l->rtype == __AVdouble) { + RETURN(double, dret); + } else + if (l->rtype == __AVvoidp) { + RETURN(void*, i); + } else + if (l->rtype == __AVstruct) { + if (l->flags & __AV_REGISTER_STRUCT_RETURN) { + if (l->rsize == sizeof(char)) { + RETURN(char, i); + } else + if (l->rsize == sizeof(short)) { + RETURN(short, i); + } else + if (l->rsize == sizeof(int)) { + RETURN(int, i); + } else + if (l->rsize == 2*sizeof(__avword)) { + void* raddr = l->raddr; + ((__avword*)raddr)[0] = i; + ((__avword*)raddr)[1] = iret2; + } + } + } + return 0; +} diff --git a/avcall/avcall-powerpc64-aix.s b/avcall/avcall-powerpc64-aix.s new file mode 100644 index 0000000..b0248fc --- /dev/null +++ b/avcall/avcall-powerpc64-aix.s @@ -0,0 +1,207 @@ + .file "avcall-powerpc64.c" + .csect .text[PR] + .toc + .csect .text[PR] + .align 2 + .align 4 + .globl avcall_call + .globl .avcall_call + .csect avcall_call[DS],3 +avcall_call: + .llong .avcall_call, TOC[tc0], 0 + .csect .text[PR] +.avcall_call: + mflr 0 + std 30,-16(1) + std 31,-8(1) + mr 30,3 + std 0,16(1) + stdu 1,-128(1) + ld 3,48(3) + ld 9,40(30) + ld 10,0(1) + mr 31,1 + subf 9,3,9 + stdu 10,-2064(1) + sradi 9,9,3 + cmpwi 7,9,8 + ble 7,L..6 + addi 10,9,-9 + addi 8,1,112 + rldicl 10,10,0,32 + addi 9,3,56 + addi 10,10,8 + addi 8,8,-8 + sldi 10,10,3 + add 10,3,10 + .align 4 +L..5: + ldu 7,8(9) + stdu 7,8(8) + cmpld 7,10,9 + bne 7,L..5 +L..6: + ld 10,64(30) + addi 9,30,72 + subf 9,9,10 + sradi 9,9,3 + extsw 9,9 + cmpwi 7,9,0 + ble 7,L..4 + cmpwi 7,9,1 + beq 7,L..7 + cmpwi 7,9,2 + beq 7,L..8 + cmpwi 7,9,3 + beq 7,L..9 + cmpwi 7,9,4 + beq 7,L..10 + cmpwi 7,9,5 + beq 7,L..11 + cmpwi 7,9,6 + beq 7,L..12 + cmpwi 7,9,7 + beq 7,L..13 + cmpwi 7,9,8 + beq 7,L..14 + cmpwi 7,9,9 + beq 7,L..15 + cmpwi 7,9,10 + beq 7,L..16 + cmpwi 7,9,11 + beq 7,L..17 + cmpwi 7,9,12 + beq 7,L..18 + lfd 13,168(30) +L..18: + lfd 12,160(30) +L..17: + lfd 11,152(30) +L..16: + lfd 10,144(30) +L..15: + lfd 9,136(30) +L..14: + lfd 8,128(30) +L..13: + lfd 7,120(30) +L..12: + lfd 6,112(30) +L..11: + lfd 5,104(30) +L..10: + lfd 4,96(30) +L..9: + lfd 3,88(30) +L..8: + lfd 2,80(30) +L..7: + lfd 1,72(30) +L..4: + ld 9,48(3) + ld 10,56(3) + ld 8,40(3) + ld 7,32(3) + ld 6,24(3) + ld 5,16(3) + ld 4,8(3) + ld 3,0(3) + std 2,40(1) + ld 12,8(30) + ld 0,0(12) + ld 11,16(12) + mtctr 0 + ld 2,8(12) + bctrl + ld 2,40(1) + lwz 9,24(30) + cmplwi 7,9,1 + beq 7,L..19 + cmpdi 7,9,0 + beq 7,L..36 + cmplwi 7,9,2 + beq 7,L..38 + cmplwi 7,9,3 + beq 7,L..38 + cmplwi 7,9,4 + beq 7,L..38 + cmplwi 7,9,5 + beq 7,L..39 + cmplwi 7,9,6 + beq 7,L..39 + cmplwi 7,9,7 + beq 7,L..40 + cmplwi 7,9,8 + beq 7,L..40 + cmplwi 7,9,9 + beq 7,L..36 + cmplwi 7,9,10 + beq 7,L..36 + cmplwi 7,9,11 + beq 7,L..36 + cmplwi 7,9,12 + beq 7,L..36 + cmplwi 7,9,13 + beq 7,L..42 + cmplwi 7,9,14 + beq 7,L..43 + cmplwi 7,9,15 + beq 7,L..36 +L..19: + addi 1,31,128 + ld 0,16(1) + ld 30,-16(1) + li 3,0 + ld 31,-8(1) + mtlr 0 + blr + .align 4 +L..36: + ld 9,16(30) + std 3,0(9) + addi 1,31,128 + li 3,0 + ld 0,16(1) + ld 30,-16(1) + ld 31,-8(1) + mtlr 0 + blr + .align 4 +L..38: + ld 9,16(30) + stb 3,0(9) + addi 1,31,128 + li 3,0 + ld 0,16(1) + ld 30,-16(1) + ld 31,-8(1) + mtlr 0 + blr +L..39: + ld 9,16(30) + sth 3,0(9) + b L..19 +L..40: + ld 9,16(30) + stw 3,0(9) + b L..19 +L..42: + ld 9,16(30) + stfs 1,0(9) + b L..19 +L..43: + ld 9,16(30) + stfd 1,0(9) + b L..19 +LT..avcall_call: + .long 0 + .byte 0,0,32,97,128,2,1,0 + .long 0 + .long LT..avcall_call-.avcall_call + .short 11 + .byte "avcall_call" + .byte 31 + .align 2 +_section_.text: + .csect .data[RW],4 + .llong _section_.text diff --git a/avcall/avcall-powerpc64-elfv2-linux.S b/avcall/avcall-powerpc64-elfv2-linux.S new file mode 100644 index 0000000..3ffa3e6 --- /dev/null +++ b/avcall/avcall-powerpc64-elfv2-linux.S @@ -0,0 +1,304 @@ + .file "avcall-powerpc64.c" + .machine power4 + .abiversion 2 + .section ".toc","aw" + .section ".text" + .align 2 + .p2align 4,,15 + .globl avcall_call + .type avcall_call, @function +avcall_call: +0: addis 2,12,.TOC.-0b@ha + addi 2,2,.TOC.-0b@l + .localentry avcall_call,.-avcall_call + mflr 0 + std 30,-16(1) + std 31,-8(1) + mr 30,3 + std 0,16(1) + stdu 1,-112(1) + ld 3,48(3) + ld 9,40(30) + mr 31,1 + ld 10,0(1) + subf 9,3,9 + stdu 10,-2064(1) + sradi 9,9,3 + cmpwi 7,9,8 + ble 7,.L6 + addi 10,9,-9 + addi 8,1,96 + addi 9,3,56 + rldicl 10,10,0,32 + addi 8,8,-8 + addi 10,10,8 + sldi 10,10,3 + add 10,3,10 + .p2align 4,,15 +.L5: + ldu 7,8(9) + cmpld 7,10,9 + stdu 7,8(8) + bne 7,.L5 +.L6: + ld 10,64(30) + addi 9,30,72 + subf 9,9,10 + sradi 9,9,3 + extsw 9,9 + cmpwi 7,9,0 + ble 7,.L4 + cmpwi 7,9,1 + beq 7,.L7 + cmpwi 7,9,2 + beq 7,.L8 + cmpwi 7,9,3 + beq 7,.L9 + cmpwi 7,9,4 + beq 7,.L10 + cmpwi 7,9,5 + beq 7,.L11 + cmpwi 7,9,6 + beq 7,.L12 + cmpwi 7,9,7 + beq 7,.L13 + cmpwi 7,9,8 + beq 7,.L14 + cmpwi 7,9,9 + beq 7,.L15 + cmpwi 7,9,10 + beq 7,.L16 + cmpwi 7,9,11 + beq 7,.L17 + cmpwi 7,9,12 + beq 7,.L18 + lfd 13,168(30) +.L18: + lfd 12,160(30) +.L17: + lfd 11,152(30) +.L16: + lfd 10,144(30) +.L15: + lfd 9,136(30) +.L14: + lfd 8,128(30) +.L13: + lfd 7,120(30) +.L12: + lfd 6,112(30) +.L11: + lfd 5,104(30) +.L10: + lfd 4,96(30) +.L9: + lfd 3,88(30) +.L8: + lfd 2,80(30) +.L7: + lfd 1,72(30) +.L4: + ld 11,8(30) + ld 9,48(3) + ld 10,56(3) + ld 8,40(3) + ld 7,32(3) + ld 6,24(3) + ld 5,16(3) + ld 4,8(3) + mtctr 11 + ld 3,0(3) + mr 12,11 + std 2,24(1) + bctrl + ld 2,24(1) + lwz 9,24(30) + cmplwi 7,9,1 + beq 7,.L19 + cmpdi 7,9,0 + beq 7,.L50 + cmplwi 7,9,2 + beq 7,.L45 + cmplwi 7,9,3 + beq 7,.L45 + cmplwi 7,9,4 + beq 7,.L45 + cmplwi 7,9,5 + beq 7,.L46 + cmplwi 7,9,6 + beq 7,.L46 + cmplwi 7,9,7 + beq 7,.L47 + cmplwi 7,9,8 + beq 7,.L47 + cmplwi 7,9,9 + beq 7,.L50 + cmplwi 7,9,10 + beq 7,.L50 + cmplwi 7,9,11 + beq 7,.L50 + cmplwi 7,9,12 + beq 7,.L50 + cmplwi 7,9,13 + beq 7,.L52 + cmplwi 7,9,14 + beq 7,.L53 + cmplwi 7,9,15 + beq 7,.L50 + cmplwi 7,9,16 + bne 7,.L19 + lwz 9,0(30) + rldicl. 10,9,55,63 + beq 0,.L19 + ld 10,32(30) + addi 9,10,-1 + cmpldi 7,9,15 + bgt 7,.L19 + ld 8,16(30) + cmpldi 7,10,8 + rldicl 9,8,0,61 + rldicr 8,8,0,60 + add 10,10,9 + bgt 7,.L35 + cmpldi 7,10,8 + bgt 7,.L36 + slwi 10,10,3 + li 7,2 + ld 6,0(8) + slwi 9,9,3 + addi 10,10,-1 + sld 10,7,10 + li 7,1 + sld 7,7,9 + sld 9,3,9 + subf 10,7,10 + xor 9,9,6 + and 9,10,9 + xor 9,9,6 + std 9,0(8) +.L19: + addi 1,31,112 + li 3,0 + ld 0,16(1) + ld 30,-16(1) + ld 31,-8(1) + mtlr 0 + blr + .p2align 4,,15 +.L50: + ld 9,16(30) + std 3,0(9) + addi 1,31,112 + li 3,0 + ld 0,16(1) + ld 30,-16(1) + ld 31,-8(1) + mtlr 0 + blr + .p2align 4,,15 +.L45: + ld 9,16(30) + stb 3,0(9) + addi 1,31,112 + li 3,0 + ld 0,16(1) + ld 30,-16(1) + ld 31,-8(1) + mtlr 0 + blr +.L46: + ld 9,16(30) + sth 3,0(9) + b .L19 +.L47: + ld 9,16(30) + stw 3,0(9) + b .L19 +.L52: + ld 9,16(30) + stfs 1,0(9) + b .L19 +.L53: + ld 9,16(30) + stfd 1,0(9) + b .L19 +.L36: + rldicl 9,9,0,32 + slwi 10,10,3 + ld 11,0(8) + ld 4,8(8) + li 7,2 + mulli 6,9,-8 + addi 10,10,-65 + slwi 9,9,3 + sld 10,7,10 + sld 5,3,9 + li 7,-1 + addi 6,6,64 + addi 10,10,-1 + sld 7,7,9 + srad 3,3,6 + xor 6,5,11 + xor 9,3,4 + and 7,7,6 + and 9,10,9 + xor 10,7,11 + xor 9,9,4 + std 10,0(8) + std 9,8(8) + b .L19 +.L35: + rldicl 9,9,0,32 + ld 11,0(8) + li 6,-1 + cmpldi 7,10,16 + slwi 5,9,3 + sld 7,3,5 + sld 6,6,5 + xor 7,7,11 + and 7,6,7 + xor 7,7,11 + std 7,0(8) + ble 7,.L54 + mulli 9,9,-8 + ld 11,16(8) + slwi 10,10,3 + li 7,2 + addi 10,10,-129 + addi 9,9,64 + sld 7,7,10 + srad 6,4,9 + srad 3,3,9 + addi 7,7,-1 + sld 9,4,5 + xor 10,6,11 + or 9,3,9 + and 10,7,10 + std 9,8(8) + xor 10,10,11 + std 10,16(8) + b .L19 +.L54: + mulli 9,9,-4 + slwi 10,10,3 + ld 11,8(8) + sld 4,4,5 + addi 10,10,-65 + li 6,2 + addi 9,9,32 + sld 10,6,10 + srad 3,3,9 + srad 9,3,9 + or 7,9,4 + addi 9,10,-1 + xor 10,7,11 + and 9,10,9 + xor 9,9,11 + std 9,8(8) + b .L19 + .long 0 + .byte 0,0,0,1,128,2,0,0 + .size avcall_call,.-avcall_call +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/avcall/avcall-powerpc64-linux.S b/avcall/avcall-powerpc64-linux.S new file mode 100644 index 0000000..83537fe --- /dev/null +++ b/avcall/avcall-powerpc64-linux.S @@ -0,0 +1,202 @@ + .file "avcall-powerpc64.c" + .machine power4 + .section ".toc","aw" + .section ".text" + .align 2 + .p2align 4,,15 + .globl avcall_call + .section ".opd","aw" + .align 3 +avcall_call: + .quad .L.avcall_call,.TOC.@tocbase,0 + .previous + .type avcall_call, @function +.L.avcall_call: + mflr 0 + std 30,-16(1) + std 31,-8(1) + mr 30,3 + std 0,16(1) + stdu 1,-128(1) + ld 3,48(3) + ld 9,40(30) + mr 31,1 + ld 10,0(1) + subf 9,3,9 + stdu 10,-2064(1) + sradi 9,9,3 + cmpwi 7,9,8 + ble 7,.L6 + addi 10,9,-9 + addi 8,1,112 + addi 9,3,56 + rldicl 10,10,0,32 + addi 8,8,-8 + addi 10,10,8 + sldi 10,10,3 + add 10,3,10 + .p2align 4,,15 +.L5: + ldu 7,8(9) + cmpld 7,10,9 + stdu 7,8(8) + bne 7,.L5 +.L6: + ld 10,64(30) + addi 9,30,72 + subf 9,9,10 + sradi 9,9,3 + extsw 9,9 + cmpwi 7,9,0 + ble 7,.L4 + cmpwi 7,9,1 + beq 7,.L7 + cmpwi 7,9,2 + beq 7,.L8 + cmpwi 7,9,3 + beq 7,.L9 + cmpwi 7,9,4 + beq 7,.L10 + cmpwi 7,9,5 + beq 7,.L11 + cmpwi 7,9,6 + beq 7,.L12 + cmpwi 7,9,7 + beq 7,.L13 + cmpwi 7,9,8 + beq 7,.L14 + cmpwi 7,9,9 + beq 7,.L15 + cmpwi 7,9,10 + beq 7,.L16 + cmpwi 7,9,11 + beq 7,.L17 + cmpwi 7,9,12 + beq 7,.L18 + lfd 13,168(30) +.L18: + lfd 12,160(30) +.L17: + lfd 11,152(30) +.L16: + lfd 10,144(30) +.L15: + lfd 9,136(30) +.L14: + lfd 8,128(30) +.L13: + lfd 7,120(30) +.L12: + lfd 6,112(30) +.L11: + lfd 5,104(30) +.L10: + lfd 4,96(30) +.L9: + lfd 3,88(30) +.L8: + lfd 2,80(30) +.L7: + lfd 1,72(30) +.L4: + ld 9,48(3) + ld 10,56(3) + ld 8,40(3) + ld 7,32(3) + ld 6,24(3) + ld 5,16(3) + ld 4,8(3) + ld 3,0(3) + std 2,40(1) + ld 12,8(30) + ld 0,0(12) + ld 11,16(12) + mtctr 0 + ld 2,8(12) + bctrl + ld 2,40(1) + lwz 9,24(30) + cmplwi 7,9,1 + beq 7,.L19 + cmpdi 7,9,0 + beq 7,.L36 + cmplwi 7,9,2 + beq 7,.L38 + cmplwi 7,9,3 + beq 7,.L38 + cmplwi 7,9,4 + beq 7,.L38 + cmplwi 7,9,5 + beq 7,.L39 + cmplwi 7,9,6 + beq 7,.L39 + cmplwi 7,9,7 + beq 7,.L40 + cmplwi 7,9,8 + beq 7,.L40 + cmplwi 7,9,9 + beq 7,.L36 + cmplwi 7,9,10 + beq 7,.L36 + cmplwi 7,9,11 + beq 7,.L36 + cmplwi 7,9,12 + beq 7,.L36 + cmplwi 7,9,13 + beq 7,.L42 + cmplwi 7,9,14 + beq 7,.L43 + cmplwi 7,9,15 + beq 7,.L36 +.L19: + addi 1,31,128 + li 3,0 + ld 0,16(1) + ld 30,-16(1) + ld 31,-8(1) + mtlr 0 + blr + .p2align 4,,15 +.L36: + ld 9,16(30) + std 3,0(9) + addi 1,31,128 + li 3,0 + ld 0,16(1) + ld 30,-16(1) + ld 31,-8(1) + mtlr 0 + blr + .p2align 4,,15 +.L38: + ld 9,16(30) + stb 3,0(9) + addi 1,31,128 + li 3,0 + ld 0,16(1) + ld 30,-16(1) + ld 31,-8(1) + mtlr 0 + blr +.L39: + ld 9,16(30) + sth 3,0(9) + b .L19 +.L40: + ld 9,16(30) + stw 3,0(9) + b .L19 +.L42: + ld 9,16(30) + stfs 1,0(9) + b .L19 +.L43: + ld 9,16(30) + stfd 1,0(9) + b .L19 + .long 0 + .byte 0,0,0,1,128,2,0,0 + .size avcall_call,.-.L.avcall_call +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/avcall/avcall-powerpc64.c b/avcall/avcall-powerpc64.c new file mode 100644 index 0000000..f0d64d2 --- /dev/null +++ b/avcall/avcall-powerpc64.c @@ -0,0 +1,330 @@ +/** + Copyright 1993 Bill Triggs + Copyright 1995-2017 Bruno Haible + Copyright 2000 Adam Fedor + Copyright 2004 Paul Guyot + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . +**/ +/*---------------------------------------------------------------------- + !!! THIS ROUTINE MUST BE COMPILED gcc -O !!! + + Foreign function interface for a 64-bit PowerPC with gcc + + This calls a C function with an argument list built up using macros + defined in avcall.h. + + PowerPC64 Argument Passing Conventions: + + All arguments, except the first 8 words, are passed on the stack with + word alignment. The first 13 doubles and floats are also passed in + floating-point-registers. + To return a structure, the called function copies the value to space + pointed to by its first argument, and all other arguments are shifted + down by one. + + The AIX argument passing conventions are used: + - the first 13 doubles and floats are passed in FP registers, + and when they do, there is still room allocated for them in the + argument sequence (integer regs or stack). + - Structures are passed in the argument sequence. But structures + containing floats or doubles are passed in FP registers?! + + Compile this routine with gcc -O (or -O2 -fno-omit-frame-pointer or -g -O) + to get the right register variables. For other compilers use the + pre-compiled assembler version. + ----------------------------------------------------------------------*/ +#include "avcall-internal.h" + +#define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) + +register double farg1 __asm__("fr1"); +register double farg2 __asm__("fr2"); +register double farg3 __asm__("fr3"); +register double farg4 __asm__("fr4"); +register double farg5 __asm__("fr5"); +register double farg6 __asm__("fr6"); +register double farg7 __asm__("fr7"); +register double farg8 __asm__("fr8"); +register double farg9 __asm__("fr9"); +register double farg10 __asm__("fr10"); +register double farg11 __asm__("fr11"); +register double farg12 __asm__("fr12"); +register double farg13 __asm__("fr13"); + +int +avcall_call(av_alist* list) +{ + register __avword* sp __asm__("r1"); /* C names for registers */ +/*register __avword iret __asm__("r3"); */ + register __avword iret2 __asm__("r4"); + register float fret __asm__("fr1"); + register double dret __asm__("fr1"); + + __av_alist* l = &AV_LIST_INNER(list); + + __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ + int arglen = l->aptr - l->args; + __avword iret; + int i; + + for (i = 8; i < arglen; i++) /* push function args onto stack */ + argframe[i-8] = l->args[i]; + + /* pass first 13 floating-point args in registers */ + arglen = l->faptr - l->fargs; + if (arglen > 0) { + if (arglen > 1) { + if (arglen > 2) { + if (arglen > 3) { + if (arglen > 4) { + if (arglen > 5) { + if (arglen > 6) { + if (arglen > 7) { + if (arglen > 8) { + if (arglen > 9) { + if (arglen > 10) { + if (arglen > 11) { + if (arglen > 12) { + farg13 = l->fargs[12]; + } + farg12 = l->fargs[11]; + } + farg11 = l->fargs[10]; + } + farg10 = l->fargs[9]; + } + farg9 = l->fargs[8]; + } + farg8 = l->fargs[7]; + } + farg7 = l->fargs[6]; + } + farg6 = l->fargs[5]; + } + farg5 = l->fargs[4]; + } + farg4 = l->fargs[3]; + } + farg3 = l->fargs[2]; + } + farg2 = l->fargs[1]; + } + farg1 = l->fargs[0]; + } + /* call function, pass 8 args in registers */ + iret = (*l->func)(l->args[0], l->args[1], l->args[2], l->args[3], + l->args[4], l->args[5], l->args[6], l->args[7]); + + /* save return value */ + if (l->rtype == __AVvoid) { + } else + if (l->rtype == __AVword) { + RETURN(__avword, iret); + } else + if (l->rtype == __AVchar) { + RETURN(char, iret); + } else + if (l->rtype == __AVschar) { + RETURN(signed char, iret); + } else + if (l->rtype == __AVuchar) { + RETURN(unsigned char, iret); + } else + if (l->rtype == __AVshort) { + RETURN(short, iret); + } else + if (l->rtype == __AVushort) { + RETURN(unsigned short, iret); + } else + if (l->rtype == __AVint) { + RETURN(int, iret); + } else + if (l->rtype == __AVuint) { + RETURN(unsigned int, iret); + } else + if (l->rtype == __AVlong) { + RETURN(long, iret); + } else + if (l->rtype == __AVulong) { + RETURN(unsigned long, iret); + } else + if (l->rtype == __AVlonglong) { + RETURN(long long, iret); + } else + if (l->rtype == __AVulonglong) { + RETURN(unsigned long long, iret); + } else + if (l->rtype == __AVfloat) { + RETURN(float, fret); + } else + if (l->rtype == __AVdouble) { + RETURN(double, dret); + } else + if (l->rtype == __AVvoidp) { + RETURN(void*, iret); + } else + if (l->rtype == __AVstruct) { +#ifdef __powerpc64_elfv2__ + if (l->flags & __AV_REGISTER_STRUCT_RETURN) { + /* In the ELFv2 ABI, gcc returns structs of size <= 16 in registers. */ + if (l->rsize > 0 && l->rsize <= 16) { + void* raddr = l->raddr; + #if 0 /* Unoptimized */ + if (l->rsize == 1) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + } else + if (l->rsize == 2) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + } else + if (l->rsize == 3) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + } else + if (l->rsize == 4) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + } else + if (l->rsize == 5) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); + } else + if (l->rsize == 6) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); + } else + if (l->rsize == 7) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[6] = (unsigned char)(iret>>48); + } else + if (l->rsize >= 8 && l->rsize <= 16) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[6] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[7] = (unsigned char)(iret>>56); + if (l->rsize == 8) { + } else + if (l->rsize == 9) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + } else + if (l->rsize == 10) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + } else + if (l->rsize == 11) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + } else + if (l->rsize == 12) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + } else + if (l->rsize == 13) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); + } else + if (l->rsize == 14) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); + } else + if (l->rsize == 15) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>48); + } else + if (l->rsize == 16) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+7] = (unsigned char)(iret2>>56); + } + } + #else /* Optimized: fewer conditional jumps, fewer memory accesses */ + uintptr_t count = l->rsize; /* > 0, ≤ 2*sizeof(__avword) */ + __avword* wordaddr = (__avword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avword)-1)); + uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avword)-1); /* ≥ 0, < sizeof(__avword) */ + uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__avword) */ + if (count <= sizeof(__avword)) { + /* Use iret. */ + if (end_offset <= sizeof(__avword)) { + /* 0 < end_offset ≤ sizeof(__avword) */ + __avword mask0 = ((__avword)2 << (end_offset*8-1)) - ((__avword)1 << (start_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; + } else { + /* sizeof(__avword) < end_offset < 2*sizeof(__avword), start_offset > 0 */ + __avword mask0 = - ((__avword)1 << (start_offset*8)); + __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; + wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; + wordaddr[1] ^= (wordaddr[1] ^ (iret >> (sizeof(__avword)*8-start_offset*8))) & mask1; + } + } else { + /* Use iret, iret2. */ + __avword mask0 = - ((__avword)1 << (start_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; + if (end_offset <= 2*sizeof(__avword)) { + /* sizeof(__avword) < end_offset ≤ 2*sizeof(__avword) */ + __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; + wordaddr[1] ^= (wordaddr[1] ^ ((iret >> (sizeof(__avword)*4-start_offset*4) >> (sizeof(__avword)*4-start_offset*4)) | (iret2 << (start_offset*8)))) & mask1; + } else { + /* 2*sizeof(__avword) < end_offset < 3*sizeof(__avword), start_offset > 0 */ + __avword mask2 = ((__avword)2 << (end_offset*8-2*sizeof(__avword)*8-1)) - 1; + wordaddr[1] = (iret >> (sizeof(__avword)*8-start_offset*8)) | (iret2 << (start_offset*8)); + wordaddr[2] ^= (wordaddr[2] ^ (iret2 >> (sizeof(__avword)*8-start_offset*8))) & mask2; + } + } + #endif + } + } +#endif + } + return 0; +} diff --git a/avcall/avcall-riscv32-ilp32d-linux.s b/avcall/avcall-riscv32-ilp32d-linux.s new file mode 100644 index 0000000..fbbb9d6 --- /dev/null +++ b/avcall/avcall-riscv32-ilp32d-linux.s @@ -0,0 +1,327 @@ + .file "avcall-riscv32.c" + .option pic + .text + .align 1 + .globl avcall_call + .type avcall_call, @function +avcall_call: + add sp,sp,-32 + sw ra,28(sp) + sw s0,24(sp) + sw s1,20(sp) + sw s2,16(sp) + sw s3,12(sp) + sw s4,8(sp) + sw s5,4(sp) + add s0,sp,32 + lw t2,24(a0) + lw t0,20(a0) + li t3,32 + mv s1,a0 + sub t0,t0,t2 + add sp,sp,-1040 + lw ra,40(a0) + ble t0,t3,.L2 + mv t1,sp + sra t6,t0,2 + add t4,t2,32 + li t3,8 +.L3: + lw t5,0(t4) + add t3,t3,1 + add t4,t4,4 + sw t5,0(t1) + add t1,t1,4 + bgt t6,t3,.L3 +.L4: + li t1,4 + lw a0,0(t2) + bgt t0,t1,.L81 +.L5: + beqz ra,.L8 + lw t1,48(s1) + and t3,t1,1 + beqz t3,.L9 + fld fa0,88(s1) +.L10: + li t3,1 + bleu ra,t3,.L8 + and t3,t1,2 + bnez t3,.L82 + lw t3,44(s1) + and t3,t3,2 + beqz t3,.L13 + flw fa1,56(s1) +.L13: + li t3,2 + beq ra,t3,.L8 + and t3,t1,4 + beqz t3,.L14 + fld fa2,104(s1) +.L15: + li t3,3 + beq ra,t3,.L8 + and t3,t1,8 + bnez t3,.L83 + lw t3,44(s1) + and t3,t3,8 + beqz t3,.L17 + flw fa3,64(s1) +.L17: + li t3,4 + beq ra,t3,.L8 + and t3,t1,16 + beqz t3,.L18 + fld fa4,120(s1) +.L19: + li t3,5 + beq ra,t3,.L8 + and t3,t1,32 + beqz t3,.L20 + fld fa5,128(s1) +.L21: + li t3,6 + beq ra,t3,.L8 + and t3,t1,64 + beqz t3,.L22 + fld fa6,136(s1) +.L23: + li t3,7 + beq ra,t3,.L8 + and t1,t1,128 + beqz t1,.L24 + fld fa7,144(s1) +.L8: + lw t1,12(s1) + li t3,13 + lw t4,4(s1) + bne t1,t3,.L25 + lw s1,8(s1) + jalr t4 + fsw fa0,0(s1) +.L26: + add sp,s0,-32 + lw ra,28(sp) + li a0,0 + lw s0,24(sp) + lw s1,20(sp) + lw s2,16(sp) + lw s3,12(sp) + lw s4,8(sp) + lw s5,4(sp) + add sp,sp,32 + jr ra +.L81: + li t1,8 + lw a1,4(t2) + ble t0,t1,.L5 + li t1,12 + lw a2,8(t2) + ble t0,t1,.L5 + li t1,16 + lw a3,12(t2) + ble t0,t1,.L5 + li t1,20 + lw a4,16(t2) + ble t0,t1,.L5 + li t1,24 + lw a5,20(t2) + ble t0,t1,.L5 + li t1,28 + lw a6,24(t2) + ble t0,t1,.L5 + lw a7,28(t2) + j .L5 +.L9: + lw t3,44(s1) + and t3,t3,1 + beqz t3,.L10 + flw fa0,52(s1) + j .L10 +.L25: + li t3,14 + beq t1,t3,.L84 + jalr t4 + lw t1,12(s1) + li t4,1 + mv t3,a0 + beq t1,t4,.L26 + beqz t1,.L79 + li t4,2 + beq t1,t4,.L74 + li t4,3 + beq t1,t4,.L74 + li t4,4 + beq t1,t4,.L74 + li t4,5 + beq t1,t4,.L75 + li t4,6 + beq t1,t4,.L75 + li t4,7 + beq t1,t4,.L79 + li s4,8 + beq t1,s4,.L79 + li t4,9 + beq t1,t4,.L79 + li t4,10 + beq t1,t4,.L79 + add t6,t1,-11 + li t4,1 + bleu t6,t4,.L85 + li t6,15 + beq t1,t6,.L79 + li t6,16 + bne t1,t6,.L26 + lw t1,0(s1) + and t1,t1,2 + beqz t1,.L26 + lw s3,16(s1) + li t1,7 + add t6,s3,-1 + bgtu t6,t1,.L26 + lw t6,8(s1) + li s5,4 + and t0,t6,-4 + lw t2,0(t0) + and t6,t6,3 + sll s2,t6,3 + sll s1,a0,s2 + add t1,s3,t6 + sll t4,t4,s2 + xor s1,s1,t2 + bgtu s3,s5,.L40 + bgtu t1,s5,.L41 + sll t1,t1,3 + add t3,t1,-1 + li t1,2 + sll t1,t1,t3 + sub t1,t1,t4 + and t1,t1,s1 + xor t1,t1,t2 + sw t1,0(t0) + j .L26 +.L82: + fld fa1,96(s1) + j .L13 +.L84: + lw s1,8(s1) + jalr t4 + fsd fa0,0(s1) + j .L26 +.L2: + blez t0,.L5 + j .L4 +.L14: + lw t3,44(s1) + and t3,t3,4 + beqz t3,.L15 + flw fa2,60(s1) + j .L15 +.L79: + lw t1,8(s1) + sw t3,0(t1) + j .L26 +.L83: + fld fa3,112(s1) + j .L17 +.L74: + lw t1,8(s1) + sb t3,0(t1) + j .L26 +.L18: + lw t3,44(s1) + and t3,t3,16 + beqz t3,.L19 + flw fa4,68(s1) + j .L19 +.L75: + lw t1,8(s1) + sh t3,0(t1) + j .L26 +.L20: + lw t3,44(s1) + and t3,t3,32 + beqz t3,.L21 + flw fa5,72(s1) + j .L21 +.L22: + lw t3,44(s1) + and t3,t3,64 + beqz t3,.L23 + flw fa6,76(s1) + j .L23 +.L24: + lw t1,44(s1) + and t1,t1,128 + beqz t1,.L8 + flw fa7,80(s1) + j .L8 +.L85: + lw t1,8(s1) + sw a0,0(t1) + sw a1,4(t1) + j .L26 +.L41: + li t5,-8 + mul t6,t6,t5 + lw s2,4(t0) + sll t1,t1,3 + add t5,t1,-33 + li t1,2 + sll t1,t1,t5 + sub t4,zero,t4 + add t1,t1,-1 + and t4,t4,s1 + xor t4,t4,t2 + sra t3,a0,t6 + xor t3,t3,s2 + and t1,t1,t3 + xor t1,t1,s2 + sw t4,0(t0) + sw t1,4(t0) + j .L26 +.L40: + sub t4,zero,t4 + and t4,t4,s1 + xor t4,t4,t2 + sw t4,0(t0) + sll s1,a1,s2 + bleu t1,s4,.L86 + li t4,-8 + mul t6,t6,t4 + sll t1,t1,3 + li t2,2 + add t1,t1,-65 + lw s2,8(t0) + sll t1,t2,t1 + add t2,t1,-1 + add t1,t6,32 + sra t4,a1,t1 + xor t4,t4,s2 + sra t1,a0,t1 + and t3,t2,t4 + or t1,t1,s1 + xor t3,t3,s2 + sw t1,4(t0) + sw t3,8(t0) + j .L26 +.L86: + li t4,-4 + mul t4,t6,t4 + sll t1,t1,3 + lw t6,4(t0) + add t5,t1,-33 + li t1,2 + sll t1,t1,t5 + add t1,t1,-1 + add t4,t4,16 + sra t3,a0,t4 + sra t3,t3,t4 + or t3,t3,s1 + xor t3,t3,t6 + and t1,t1,t3 + xor t1,t1,t6 + sw t1,4(t0) + j .L26 + .size avcall_call, .-avcall_call + .ident "GCC: (GNU) 7.3.0" diff --git a/avcall/avcall-riscv32-ilp32d-macro.S b/avcall/avcall-riscv32-ilp32d-macro.S new file mode 100644 index 0000000..2a14861 --- /dev/null +++ b/avcall/avcall-riscv32-ilp32d-macro.S @@ -0,0 +1,329 @@ + .file "avcall-riscv32.c" + .option pic + .text + .align 1 + .globl avcall_call + .type avcall_call, @function +avcall_call: + add sp,sp,-32 + sw ra,28(sp) + sw s0,24(sp) + sw s1,20(sp) + sw s2,16(sp) + sw s3,12(sp) + sw s4,8(sp) + sw s5,4(sp) + add s0,sp,32 + lw t2,24(a0) + lw t0,20(a0) + li t3,32 + mv s1,a0 + sub t0,t0,t2 + add sp,sp,-1040 + lw ra,40(a0) + ble t0,t3,.L2 + mv t1,sp + sra t6,t0,2 + add t4,t2,32 + li t3,8 +.L3: + lw t5,0(t4) + add t3,t3,1 + add t4,t4,4 + sw t5,0(t1) + add t1,t1,4 + bgt t6,t3,.L3 +.L4: + li t1,4 + lw a0,0(t2) + bgt t0,t1,.L81 +.L5: + beqz ra,.L8 + lw t1,48(s1) + and t3,t1,1 + beqz t3,.L9 + fld fa0,88(s1) +.L10: + li t3,1 + bleu ra,t3,.L8 + and t3,t1,2 + bnez t3,.L82 + lw t3,44(s1) + and t3,t3,2 + beqz t3,.L13 + flw fa1,56(s1) +.L13: + li t3,2 + beq ra,t3,.L8 + and t3,t1,4 + beqz t3,.L14 + fld fa2,104(s1) +.L15: + li t3,3 + beq ra,t3,.L8 + and t3,t1,8 + bnez t3,.L83 + lw t3,44(s1) + and t3,t3,8 + beqz t3,.L17 + flw fa3,64(s1) +.L17: + li t3,4 + beq ra,t3,.L8 + and t3,t1,16 + beqz t3,.L18 + fld fa4,120(s1) +.L19: + li t3,5 + beq ra,t3,.L8 + and t3,t1,32 + beqz t3,.L20 + fld fa5,128(s1) +.L21: + li t3,6 + beq ra,t3,.L8 + and t3,t1,64 + beqz t3,.L22 + fld fa6,136(s1) +.L23: + li t3,7 + beq ra,t3,.L8 + and t1,t1,128 + beqz t1,.L24 + fld fa7,144(s1) +.L8: + lw t1,12(s1) + li t3,13 + lw t4,4(s1) + bne t1,t3,.L25 + lw s1,8(s1) + jalr t4 + fsw fa0,0(s1) +.L26: + add sp,s0,-32 + lw ra,28(sp) + li a0,0 + lw s0,24(sp) + lw s1,20(sp) + lw s2,16(sp) + lw s3,12(sp) + lw s4,8(sp) + lw s5,4(sp) + add sp,sp,32 + jr ra +.L81: + li t1,8 + lw a1,4(t2) + ble t0,t1,.L5 + li t1,12 + lw a2,8(t2) + ble t0,t1,.L5 + li t1,16 + lw a3,12(t2) + ble t0,t1,.L5 + li t1,20 + lw a4,16(t2) + ble t0,t1,.L5 + li t1,24 + lw a5,20(t2) + ble t0,t1,.L5 + li t1,28 + lw a6,24(t2) + ble t0,t1,.L5 + lw a7,28(t2) + j .L5 +.L9: + lw t3,44(s1) + and t3,t3,1 + beqz t3,.L10 + flw fa0,52(s1) + j .L10 +.L25: + li t3,14 + beq t1,t3,.L84 + jalr t4 + lw t1,12(s1) + li t4,1 + mv t3,a0 + beq t1,t4,.L26 + beqz t1,.L79 + li t4,2 + beq t1,t4,.L74 + li t4,3 + beq t1,t4,.L74 + li t4,4 + beq t1,t4,.L74 + li t4,5 + beq t1,t4,.L75 + li t4,6 + beq t1,t4,.L75 + li t4,7 + beq t1,t4,.L79 + li s4,8 + beq t1,s4,.L79 + li t4,9 + beq t1,t4,.L79 + li t4,10 + beq t1,t4,.L79 + add t6,t1,-11 + li t4,1 + bleu t6,t4,.L85 + li t6,15 + beq t1,t6,.L79 + li t6,16 + bne t1,t6,.L26 + lw t1,0(s1) + and t1,t1,2 + beqz t1,.L26 + lw s3,16(s1) + li t1,7 + add t6,s3,-1 + bgtu t6,t1,.L26 + lw t6,8(s1) + li s5,4 + and t0,t6,-4 + lw t2,0(t0) + and t6,t6,3 + sll s2,t6,3 + sll s1,a0,s2 + add t1,s3,t6 + sll t4,t4,s2 + xor s1,s1,t2 + bgtu s3,s5,.L40 + bgtu t1,s5,.L41 + sll t1,t1,3 + add t3,t1,-1 + li t1,2 + sll t1,t1,t3 + sub t1,t1,t4 + and t1,t1,s1 + xor t1,t1,t2 + sw t1,0(t0) + j .L26 +.L82: + fld fa1,96(s1) + j .L13 +.L84: + lw s1,8(s1) + jalr t4 + fsd fa0,0(s1) + j .L26 +.L2: + blez t0,.L5 + j .L4 +.L14: + lw t3,44(s1) + and t3,t3,4 + beqz t3,.L15 + flw fa2,60(s1) + j .L15 +.L79: + lw t1,8(s1) + sw t3,0(t1) + j .L26 +.L83: + fld fa3,112(s1) + j .L17 +.L74: + lw t1,8(s1) + sb t3,0(t1) + j .L26 +.L18: + lw t3,44(s1) + and t3,t3,16 + beqz t3,.L19 + flw fa4,68(s1) + j .L19 +.L75: + lw t1,8(s1) + sh t3,0(t1) + j .L26 +.L20: + lw t3,44(s1) + and t3,t3,32 + beqz t3,.L21 + flw fa5,72(s1) + j .L21 +.L22: + lw t3,44(s1) + and t3,t3,64 + beqz t3,.L23 + flw fa6,76(s1) + j .L23 +.L24: + lw t1,44(s1) + and t1,t1,128 + beqz t1,.L8 + flw fa7,80(s1) + j .L8 +.L85: + lw t1,8(s1) + sw a0,0(t1) + sw a1,4(t1) + j .L26 +.L41: + li t5,-8 + mul t6,t6,t5 + lw s2,4(t0) + sll t1,t1,3 + add t5,t1,-33 + li t1,2 + sll t1,t1,t5 + sub t4,zero,t4 + add t1,t1,-1 + and t4,t4,s1 + xor t4,t4,t2 + sra t3,a0,t6 + xor t3,t3,s2 + and t1,t1,t3 + xor t1,t1,s2 + sw t4,0(t0) + sw t1,4(t0) + j .L26 +.L40: + sub t4,zero,t4 + and t4,t4,s1 + xor t4,t4,t2 + sw t4,0(t0) + sll s1,a1,s2 + bleu t1,s4,.L86 + li t4,-8 + mul t6,t6,t4 + sll t1,t1,3 + li t2,2 + add t1,t1,-65 + lw s2,8(t0) + sll t1,t2,t1 + add t2,t1,-1 + add t1,t6,32 + sra t4,a1,t1 + xor t4,t4,s2 + sra t1,a0,t1 + and t3,t2,t4 + or t1,t1,s1 + xor t3,t3,s2 + sw t1,4(t0) + sw t3,8(t0) + j .L26 +.L86: + li t4,-4 + mul t4,t6,t4 + sll t1,t1,3 + lw t6,4(t0) + add t5,t1,-33 + li t1,2 + sll t1,t1,t5 + add t1,t1,-1 + add t4,t4,16 + sra t3,a0,t4 + sra t3,t3,t4 + or t3,t3,s1 + xor t3,t3,t6 + and t1,t1,t3 + xor t1,t1,t6 + sw t1,4(t0) + j .L26 + .size avcall_call, .-avcall_call +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/avcall/avcall-riscv32.c b/avcall/avcall-riscv32.c new file mode 100644 index 0000000..7b70fd9 --- /dev/null +++ b/avcall/avcall-riscv32.c @@ -0,0 +1,280 @@ +/** + Copyright 1993 Bill Triggs + Copyright 1995-2019 Bruno Haible + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . +**/ +/*---------------------------------------------------------------------- + Foreign function interface for a Linux riscv32 with ILP32 ABI. + + This calls a C function with an argument list built up using macros + defined in avcall.h. + + RISC-V Argument Passing Conventions are documented in + https://people.eecs.berkeley.edu/~krste/papers/riscv-spec-v2.1.pdf + chapter 20. + ----------------------------------------------------------------------*/ +#include "avcall-internal.h" + +#define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) + +register __avword iarg1 __asm__("a0"); +register __avword iarg2 __asm__("a1"); +register __avword iarg3 __asm__("a2"); +register __avword iarg4 __asm__("a3"); +register __avword iarg5 __asm__("a4"); +register __avword iarg6 __asm__("a5"); +register __avword iarg7 __asm__("a6"); +register __avword iarg8 __asm__("a7"); + +register float farg1 __asm__("fa0"); +register float farg2 __asm__("fa1"); +register float farg3 __asm__("fa2"); +register float farg4 __asm__("fa3"); +register float farg5 __asm__("fa4"); +register float farg6 __asm__("fa5"); +register float farg7 __asm__("fa6"); +register float farg8 __asm__("fa7"); + +register double darg1 __asm__("fa0"); +register double darg2 __asm__("fa1"); +register double darg3 __asm__("fa2"); +register double darg4 __asm__("fa3"); +register double darg5 __asm__("fa4"); +register double darg6 __asm__("fa5"); +register double darg7 __asm__("fa6"); +register double darg8 __asm__("fa7"); + +int +avcall_call(av_alist* list) +{ + register __avword iretreg __asm__("a0"); + register __avword iret2reg __asm__("a1"); + register double dret __asm__("fa0"); + + __av_alist* l = &AV_LIST_INNER(list); + + __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ + int arglen = l->aptr - l->args; + unsigned int fanum = l->fanum; + + { + int i; + for (i = 8; i < arglen; i++) /* push function args onto stack */ + argframe[i-8] = l->args[i]; + } + + /* Put up to 8 integer args into registers. */ + if (arglen >= 1) { + iarg1 = l->args[0]; + if (arglen >= 2) { + iarg2 = l->args[1]; + if (arglen >= 3) { + iarg3 = l->args[2]; + if (arglen >= 4) { + iarg4 = l->args[3]; + if (arglen >= 5) { + iarg5 = l->args[4]; + if (arglen >= 6) { + iarg6 = l->args[5]; + if (arglen >= 7) { + iarg7 = l->args[6]; + if (arglen >= 8) { + iarg8 = l->args[7]; + } + } + } + } + } + } + } + } + + /* Put upto 8 floating-point args into registers. */ + if (fanum >= 1) { + if (l->darg_mask & (1 << 0)) darg1 = l->dargs[0]; + else if (l->farg_mask & (1 << 0)) farg1 = l->fargs[0]; + if (fanum >= 2) { + if (l->darg_mask & (1 << 1)) darg2 = l->dargs[1]; + else if (l->farg_mask & (1 << 1)) farg2 = l->fargs[1]; + if (fanum >= 3) { + if (l->darg_mask & (1 << 2)) darg3 = l->dargs[2]; + else if (l->farg_mask & (1 << 2)) farg3 = l->fargs[2]; + if (fanum >= 4) { + if (l->darg_mask & (1 << 3)) darg4 = l->dargs[3]; + else if (l->farg_mask & (1 << 3)) farg4 = l->fargs[3]; + if (fanum >= 5) { + if (l->darg_mask & (1 << 4)) darg5 = l->dargs[4]; + else if (l->farg_mask & (1 << 4)) farg5 = l->fargs[4]; + if (fanum >= 6) { + if (l->darg_mask & (1 << 5)) darg6 = l->dargs[5]; + else if (l->farg_mask & (1 << 5)) farg6 = l->fargs[5]; + if (fanum >= 7) { + if (l->darg_mask & (1 << 6)) darg7 = l->dargs[6]; + else if (l->farg_mask & (1 << 6)) farg7 = l->fargs[6]; + if (fanum >= 8) { + if (l->darg_mask & (1 << 7)) darg8 = l->dargs[7]; + else if (l->farg_mask & (1 << 7)) farg8 = l->fargs[7]; + } + } + } + } + } + } + } + } + + /* Call function. */ + if (l->rtype == __AVfloat) { + *(float*)l->raddr = (*(float(*)())l->func)(); + } else + if (l->rtype == __AVdouble) { + *(double*)l->raddr = (*(double(*)())l->func)(); + } else { + __avword iret, iret2; + + iret = (*l->func)(); + iret2 = iret2reg; + + /* save return value */ + if (l->rtype == __AVvoid) { + } else + if (l->rtype == __AVword) { + RETURN(__avword, iret); + } else + if (l->rtype == __AVchar) { + RETURN(char, iret); + } else + if (l->rtype == __AVschar) { + RETURN(signed char, iret); + } else + if (l->rtype == __AVuchar) { + RETURN(unsigned char, iret); + } else + if (l->rtype == __AVshort) { + RETURN(short, iret); + } else + if (l->rtype == __AVushort) { + RETURN(unsigned short, iret); + } else + if (l->rtype == __AVint) { + RETURN(int, iret); + } else + if (l->rtype == __AVuint) { + RETURN(unsigned int, iret); + } else + if (l->rtype == __AVlong) { + RETURN(long, iret); + } else + if (l->rtype == __AVulong) { + RETURN(unsigned long, iret); + } else + if (l->rtype == __AVlonglong || l->rtype == __AVulonglong) { + void* raddr = l->raddr; + ((__avword*)raddr)[0] = iret; + ((__avword*)raddr)[1] = iret2; + } else + /* see above + if (l->rtype == __AVfloat) { + } else + if (l->rtype == __AVdouble) { + } else + */ + if (l->rtype == __AVvoidp) { + RETURN(void*, iret); + } else + if (l->rtype == __AVstruct) { + if (l->flags & __AV_SMALL_STRUCT_RETURN) { + /* Return structs of size <= 8 in registers. */ + if (l->rsize > 0 && l->rsize <= 8) { + void* raddr = l->raddr; + #if 0 /* Unoptimized */ + if (l->rsize == 1) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + } else + if (l->rsize == 2) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + } else + if (l->rsize == 3) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + } else + if (l->rsize >= 4 && l->rsize <= 8) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + if (l->rsize == 4) { + } else + if (l->rsize == 5) { + ((unsigned char *)raddr)[4+0] = (unsigned char)(iret2); + } else + if (l->rsize == 6) { + ((unsigned char *)raddr)[4+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[4+1] = (unsigned char)(iret2>>8); + } else + if (l->rsize == 7) { + ((unsigned char *)raddr)[4+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[4+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[4+2] = (unsigned char)(iret2>>16); + } else + if (l->rsize == 8) { + ((unsigned char *)raddr)[4+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[4+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[4+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[4+3] = (unsigned char)(iret2>>24); + } + } + #else /* Optimized: fewer conditional jumps, fewer memory accesses */ + uintptr_t count = l->rsize; /* > 0, ≤ 2*sizeof(__avword) */ + __avword* wordaddr = (__avword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avword)-1)); + uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avword)-1); /* ≥ 0, < sizeof(__avword) */ + uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__avword) */ + if (count <= sizeof(__avword)) { + /* Use iret. */ + if (end_offset <= sizeof(__avword)) { + /* 0 < end_offset ≤ sizeof(__avword) */ + __avword mask0 = ((__avword)2 << (end_offset*8-1)) - ((__avword)1 << (start_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; + } else { + /* sizeof(__avword) < end_offset < 2*sizeof(__avword), start_offset > 0 */ + __avword mask0 = - ((__avword)1 << (start_offset*8)); + __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; + wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; + wordaddr[1] ^= (wordaddr[1] ^ (iret >> (sizeof(__avword)*8-start_offset*8))) & mask1; + } + } else { + /* Use iret, iret2. */ + __avword mask0 = - ((__avword)1 << (start_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; + if (end_offset <= 2*sizeof(__avword)) { + /* sizeof(__avword) < end_offset ≤ 2*sizeof(__avword) */ + __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; + wordaddr[1] ^= (wordaddr[1] ^ ((iret >> (sizeof(__avword)*4-start_offset*4) >> (sizeof(__avword)*4-start_offset*4)) | (iret2 << (start_offset*8)))) & mask1; + } else { + /* 2*sizeof(__avword) < end_offset < 3*sizeof(__avword), start_offset > 0 */ + __avword mask2 = ((__avword)2 << (end_offset*8-2*sizeof(__avword)*8-1)) - 1; + wordaddr[1] = (iret >> (sizeof(__avword)*8-start_offset*8)) | (iret2 << (start_offset*8)); + wordaddr[2] ^= (wordaddr[2] ^ (iret2 >> (sizeof(__avword)*8-start_offset*8))) & mask2; + } + } + #endif + } + } + } + } + return 0; +} diff --git a/avcall/avcall-riscv64-lp64d-linux.s b/avcall/avcall-riscv64-lp64d-linux.s new file mode 100644 index 0000000..bd8cf68 --- /dev/null +++ b/avcall/avcall-riscv64-lp64d-linux.s @@ -0,0 +1,329 @@ + .file "avcall-riscv64.c" + .option pic + .text + .align 1 + .globl avcall_call + .type avcall_call, @function +avcall_call: + add sp,sp,-64 + sd s0,48(sp) + sd s1,40(sp) + sd ra,56(sp) + sd s2,32(sp) + sd s3,24(sp) + sd s4,16(sp) + sd s5,8(sp) + sd s6,0(sp) + add s0,sp,64 + ld t6,48(a0) + ld t3,40(a0) + li t1,-4096 + add t1,t1,2032 + sub t3,t3,t6 + sra t3,t3,3 + sext.w t0,t3 + li t4,8 + mv s1,a0 + add sp,sp,t1 + lw t2,64(a0) + ble t0,t4,.L2 + addw t3,t3,-9 + sll t3,t3,32 + srl t3,t3,29 + mv t1,sp + add t3,t3,8 + add t4,t6,64 + add t3,t1,t3 +.L3: + ld t5,0(t4) + add t1,t1,8 + add t4,t4,8 + sd t5,-8(t1) + bne t3,t1,.L3 +.L4: + li t1,1 + ld a0,0(t6) + beq t0,t1,.L5 + li t1,2 + ld a1,8(t6) + beq t0,t1,.L5 + li t1,3 + ld a2,16(t6) + beq t0,t1,.L5 + li t1,4 + ld a3,24(t6) + beq t0,t1,.L5 + li t1,5 + ld a4,32(t6) + beq t0,t1,.L5 + li t1,6 + ld a5,40(t6) + beq t0,t1,.L5 + li t1,7 + ld a6,48(t6) + beq t0,t1,.L5 + ld a7,56(t6) +.L5: + beqz t2,.L8 + lw t1,72(s1) + and t3,t1,1 + beqz t3,.L9 + fld fa0,112(s1) +.L10: + li t3,1 + bleu t2,t3,.L8 + and t3,t1,2 + bnez t3,.L79 + lw t3,68(s1) + and t3,t3,2 + beqz t3,.L13 + flw fa1,80(s1) +.L13: + li t3,2 + beq t2,t3,.L8 + and t3,t1,4 + beqz t3,.L14 + fld fa2,128(s1) +.L15: + li t3,3 + beq t2,t3,.L8 + and t3,t1,8 + bnez t3,.L80 + lw t3,68(s1) + and t3,t3,8 + beqz t3,.L17 + flw fa3,88(s1) +.L17: + li t3,4 + beq t2,t3,.L8 + and t3,t1,16 + beqz t3,.L18 + fld fa4,144(s1) +.L19: + li t3,5 + beq t2,t3,.L8 + and t3,t1,32 + beqz t3,.L20 + fld fa5,152(s1) +.L21: + li t3,6 + beq t2,t3,.L8 + and t3,t1,64 + beqz t3,.L22 + fld fa6,160(s1) +.L23: + li t3,7 + beq t2,t3,.L8 + and t1,t1,128 + beqz t1,.L24 + fld fa7,168(s1) +.L8: + lw t1,24(s1) + li t3,13 + ld t4,8(s1) + bne t1,t3,.L25 + ld s1,16(s1) + jalr t4 + fsw fa0,0(s1) +.L26: + add sp,s0,-64 + ld ra,56(sp) + li a0,0 + ld s0,48(sp) + ld s1,40(sp) + ld s2,32(sp) + ld s3,24(sp) + ld s4,16(sp) + ld s5,8(sp) + ld s6,0(sp) + add sp,sp,64 + jr ra +.L9: + lw t3,68(s1) + and t3,t3,1 + beqz t3,.L10 + flw fa0,76(s1) + j .L10 +.L25: + li t3,14 + beq t1,t3,.L81 + jalr t4 + lw t1,24(s1) + li t4,1 + mv t3,a0 + beq t1,t4,.L26 + beqz t1,.L77 + li t4,2 + beq t1,t4,.L73 + li t4,3 + beq t1,t4,.L73 + li t4,4 + beq t1,t4,.L73 + li t4,5 + beq t1,t4,.L74 + li t4,6 + beq t1,t4,.L74 + li t4,7 + beq t1,t4,.L75 + li s4,8 + beq t1,s4,.L75 + and t4,t1,-3 + li t6,9 + beq t4,t6,.L77 + addw t4,t1,-10 + and t4,t4,-3 + sext.w t4,t4 + beqz t4,.L77 + li t6,15 + beq t1,t6,.L77 + li t4,16 + bne t1,t4,.L26 + lw t4,0(s1) + and t4,t4,512 + beqz t4,.L26 + ld s6,32(s1) + add t4,s6,-1 + bgtu t4,t6,.L26 + ld t6,16(s1) + li t4,1 + and s1,t6,7 + and t6,t6,-8 + sext.w s3,s1 + ld t0,0(t6) + sll s5,s3,3 + add s1,s6,s1 + sll t2,a0,s5 + sll t4,t4,s5 + xor t2,t2,t0 + sllw s2,s1,3 + bgtu s6,s4,.L39 + bgtu s1,s4,.L40 + addw s2,s2,-1 + li t1,2 + sll t1,t1,s2 + sub t1,t1,t4 + and t1,t1,t2 + xor t1,t1,t0 + sd t1,0(t6) + j .L26 +.L79: + fld fa1,120(s1) + j .L13 +.L81: + ld s1,16(s1) + jalr t4 + fsd fa0,0(s1) + j .L26 +.L2: + blez t0,.L5 + j .L4 +.L14: + lw t3,68(s1) + and t3,t3,4 + beqz t3,.L15 + flw fa2,84(s1) + j .L15 +.L77: + ld t1,16(s1) + sd t3,0(t1) + j .L26 +.L80: + fld fa3,136(s1) + j .L17 +.L73: + ld t1,16(s1) + sb t3,0(t1) + j .L26 +.L18: + lw t3,68(s1) + and t3,t3,16 + beqz t3,.L19 + flw fa4,92(s1) + j .L19 +.L74: + ld t1,16(s1) + sh t3,0(t1) + j .L26 +.L20: + lw t3,68(s1) + and t3,t3,32 + beqz t3,.L21 + flw fa5,96(s1) + j .L21 +.L75: + ld t1,16(s1) + sw t3,0(t1) + j .L26 +.L22: + lw t3,68(s1) + and t3,t3,64 + beqz t3,.L23 + flw fa6,100(s1) + j .L23 +.L24: + lw t1,68(s1) + and t1,t1,128 + beqz t1,.L8 + flw fa7,104(s1) + j .L8 +.L40: + li t1,-8 + mulw t1,t1,s3 + ld s1,8(t6) + addw s2,s2,-65 + li t5,2 + sll t5,t5,s2 + sub t4,zero,t4 + add t5,t5,-1 + and t4,t4,t2 + xor t4,t4,t0 + sd t4,0(t6) + sra t1,a0,t1 + xor t1,t1,s1 + and t1,t1,t5 + xor t1,t1,s1 + sd t1,8(t6) + j .L26 +.L39: + sub t4,zero,t4 + and t4,t4,t2 + xor t4,t4,t0 + sd t4,0(t6) + sll t2,a1,s5 + bleu s1,t1,.L82 + li t1,-8 + mulw t1,t1,s3 + ld s1,16(t6) + addw t4,s2,-129 + li t0,2 + sll t0,t0,t4 + add t0,t0,-1 + addw t1,t1,64 + sra t4,a1,t1 + xor t4,t4,s1 + sra t1,a0,t1 + and t3,t0,t4 + or t1,t1,t2 + xor t3,t3,s1 + sd t1,8(t6) + sd t3,16(t6) + j .L26 +.L82: + li t1,-4 + mulw t1,t1,s3 + addw t4,s2,-65 + li t5,2 + sll t5,t5,t4 + ld t0,8(t6) + add t5,t5,-1 + addw t4,t1,32 + sra t1,a0,t4 + sra t1,t1,t4 + or t1,t1,t2 + xor t1,t1,t0 + and t1,t1,t5 + xor t1,t1,t0 + sd t1,8(t6) + j .L26 + .size avcall_call, .-avcall_call + .ident "GCC: (GNU) 7.3.0" diff --git a/avcall/avcall-riscv64-lp64d-macro.S b/avcall/avcall-riscv64-lp64d-macro.S new file mode 100644 index 0000000..e768f32 --- /dev/null +++ b/avcall/avcall-riscv64-lp64d-macro.S @@ -0,0 +1,331 @@ + .file "avcall-riscv64.c" + .option pic + .text + .align 1 + .globl avcall_call + .type avcall_call, @function +avcall_call: + add sp,sp,-64 + sd s0,48(sp) + sd s1,40(sp) + sd ra,56(sp) + sd s2,32(sp) + sd s3,24(sp) + sd s4,16(sp) + sd s5,8(sp) + sd s6,0(sp) + add s0,sp,64 + ld t6,48(a0) + ld t3,40(a0) + li t1,-4096 + add t1,t1,2032 + sub t3,t3,t6 + sra t3,t3,3 + sext.w t0,t3 + li t4,8 + mv s1,a0 + add sp,sp,t1 + lw t2,64(a0) + ble t0,t4,.L2 + addw t3,t3,-9 + sll t3,t3,32 + srl t3,t3,29 + mv t1,sp + add t3,t3,8 + add t4,t6,64 + add t3,t1,t3 +.L3: + ld t5,0(t4) + add t1,t1,8 + add t4,t4,8 + sd t5,-8(t1) + bne t3,t1,.L3 +.L4: + li t1,1 + ld a0,0(t6) + beq t0,t1,.L5 + li t1,2 + ld a1,8(t6) + beq t0,t1,.L5 + li t1,3 + ld a2,16(t6) + beq t0,t1,.L5 + li t1,4 + ld a3,24(t6) + beq t0,t1,.L5 + li t1,5 + ld a4,32(t6) + beq t0,t1,.L5 + li t1,6 + ld a5,40(t6) + beq t0,t1,.L5 + li t1,7 + ld a6,48(t6) + beq t0,t1,.L5 + ld a7,56(t6) +.L5: + beqz t2,.L8 + lw t1,72(s1) + and t3,t1,1 + beqz t3,.L9 + fld fa0,112(s1) +.L10: + li t3,1 + bleu t2,t3,.L8 + and t3,t1,2 + bnez t3,.L79 + lw t3,68(s1) + and t3,t3,2 + beqz t3,.L13 + flw fa1,80(s1) +.L13: + li t3,2 + beq t2,t3,.L8 + and t3,t1,4 + beqz t3,.L14 + fld fa2,128(s1) +.L15: + li t3,3 + beq t2,t3,.L8 + and t3,t1,8 + bnez t3,.L80 + lw t3,68(s1) + and t3,t3,8 + beqz t3,.L17 + flw fa3,88(s1) +.L17: + li t3,4 + beq t2,t3,.L8 + and t3,t1,16 + beqz t3,.L18 + fld fa4,144(s1) +.L19: + li t3,5 + beq t2,t3,.L8 + and t3,t1,32 + beqz t3,.L20 + fld fa5,152(s1) +.L21: + li t3,6 + beq t2,t3,.L8 + and t3,t1,64 + beqz t3,.L22 + fld fa6,160(s1) +.L23: + li t3,7 + beq t2,t3,.L8 + and t1,t1,128 + beqz t1,.L24 + fld fa7,168(s1) +.L8: + lw t1,24(s1) + li t3,13 + ld t4,8(s1) + bne t1,t3,.L25 + ld s1,16(s1) + jalr t4 + fsw fa0,0(s1) +.L26: + add sp,s0,-64 + ld ra,56(sp) + li a0,0 + ld s0,48(sp) + ld s1,40(sp) + ld s2,32(sp) + ld s3,24(sp) + ld s4,16(sp) + ld s5,8(sp) + ld s6,0(sp) + add sp,sp,64 + jr ra +.L9: + lw t3,68(s1) + and t3,t3,1 + beqz t3,.L10 + flw fa0,76(s1) + j .L10 +.L25: + li t3,14 + beq t1,t3,.L81 + jalr t4 + lw t1,24(s1) + li t4,1 + mv t3,a0 + beq t1,t4,.L26 + beqz t1,.L77 + li t4,2 + beq t1,t4,.L73 + li t4,3 + beq t1,t4,.L73 + li t4,4 + beq t1,t4,.L73 + li t4,5 + beq t1,t4,.L74 + li t4,6 + beq t1,t4,.L74 + li t4,7 + beq t1,t4,.L75 + li s4,8 + beq t1,s4,.L75 + and t4,t1,-3 + li t6,9 + beq t4,t6,.L77 + addw t4,t1,-10 + and t4,t4,-3 + sext.w t4,t4 + beqz t4,.L77 + li t6,15 + beq t1,t6,.L77 + li t4,16 + bne t1,t4,.L26 + lw t4,0(s1) + and t4,t4,512 + beqz t4,.L26 + ld s6,32(s1) + add t4,s6,-1 + bgtu t4,t6,.L26 + ld t6,16(s1) + li t4,1 + and s1,t6,7 + and t6,t6,-8 + sext.w s3,s1 + ld t0,0(t6) + sll s5,s3,3 + add s1,s6,s1 + sll t2,a0,s5 + sll t4,t4,s5 + xor t2,t2,t0 + sllw s2,s1,3 + bgtu s6,s4,.L39 + bgtu s1,s4,.L40 + addw s2,s2,-1 + li t1,2 + sll t1,t1,s2 + sub t1,t1,t4 + and t1,t1,t2 + xor t1,t1,t0 + sd t1,0(t6) + j .L26 +.L79: + fld fa1,120(s1) + j .L13 +.L81: + ld s1,16(s1) + jalr t4 + fsd fa0,0(s1) + j .L26 +.L2: + blez t0,.L5 + j .L4 +.L14: + lw t3,68(s1) + and t3,t3,4 + beqz t3,.L15 + flw fa2,84(s1) + j .L15 +.L77: + ld t1,16(s1) + sd t3,0(t1) + j .L26 +.L80: + fld fa3,136(s1) + j .L17 +.L73: + ld t1,16(s1) + sb t3,0(t1) + j .L26 +.L18: + lw t3,68(s1) + and t3,t3,16 + beqz t3,.L19 + flw fa4,92(s1) + j .L19 +.L74: + ld t1,16(s1) + sh t3,0(t1) + j .L26 +.L20: + lw t3,68(s1) + and t3,t3,32 + beqz t3,.L21 + flw fa5,96(s1) + j .L21 +.L75: + ld t1,16(s1) + sw t3,0(t1) + j .L26 +.L22: + lw t3,68(s1) + and t3,t3,64 + beqz t3,.L23 + flw fa6,100(s1) + j .L23 +.L24: + lw t1,68(s1) + and t1,t1,128 + beqz t1,.L8 + flw fa7,104(s1) + j .L8 +.L40: + li t1,-8 + mulw t1,t1,s3 + ld s1,8(t6) + addw s2,s2,-65 + li t5,2 + sll t5,t5,s2 + sub t4,zero,t4 + add t5,t5,-1 + and t4,t4,t2 + xor t4,t4,t0 + sd t4,0(t6) + sra t1,a0,t1 + xor t1,t1,s1 + and t1,t1,t5 + xor t1,t1,s1 + sd t1,8(t6) + j .L26 +.L39: + sub t4,zero,t4 + and t4,t4,t2 + xor t4,t4,t0 + sd t4,0(t6) + sll t2,a1,s5 + bleu s1,t1,.L82 + li t1,-8 + mulw t1,t1,s3 + ld s1,16(t6) + addw t4,s2,-129 + li t0,2 + sll t0,t0,t4 + add t0,t0,-1 + addw t1,t1,64 + sra t4,a1,t1 + xor t4,t4,s1 + sra t1,a0,t1 + and t3,t0,t4 + or t1,t1,t2 + xor t3,t3,s1 + sd t1,8(t6) + sd t3,16(t6) + j .L26 +.L82: + li t1,-4 + mulw t1,t1,s3 + addw t4,s2,-65 + li t5,2 + sll t5,t5,t4 + ld t0,8(t6) + add t5,t5,-1 + addw t4,t1,32 + sra t1,a0,t4 + sra t1,t1,t4 + or t1,t1,t2 + xor t1,t1,t0 + and t1,t1,t5 + xor t1,t1,t0 + sd t1,8(t6) + j .L26 + .size avcall_call, .-avcall_call +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/avcall/avcall-riscv64.c b/avcall/avcall-riscv64.c new file mode 100644 index 0000000..eb6e115 --- /dev/null +++ b/avcall/avcall-riscv64.c @@ -0,0 +1,343 @@ +/** + Copyright 1993 Bill Triggs + Copyright 1995-2019 Bruno Haible + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . +**/ +/*---------------------------------------------------------------------- + Foreign function interface for a Linux riscv64 with LP64 ABI. + + This calls a C function with an argument list built up using macros + defined in avcall.h. + + RISC-V Argument Passing Conventions are documented in + https://people.eecs.berkeley.edu/~krste/papers/riscv-spec-v2.1.pdf + chapter 20. + ----------------------------------------------------------------------*/ +#include "avcall-internal.h" + +#define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) + +register __avword iarg1 __asm__("a0"); +register __avword iarg2 __asm__("a1"); +register __avword iarg3 __asm__("a2"); +register __avword iarg4 __asm__("a3"); +register __avword iarg5 __asm__("a4"); +register __avword iarg6 __asm__("a5"); +register __avword iarg7 __asm__("a6"); +register __avword iarg8 __asm__("a7"); + +register float farg1 __asm__("fa0"); +register float farg2 __asm__("fa1"); +register float farg3 __asm__("fa2"); +register float farg4 __asm__("fa3"); +register float farg5 __asm__("fa4"); +register float farg6 __asm__("fa5"); +register float farg7 __asm__("fa6"); +register float farg8 __asm__("fa7"); + +register double darg1 __asm__("fa0"); +register double darg2 __asm__("fa1"); +register double darg3 __asm__("fa2"); +register double darg4 __asm__("fa3"); +register double darg5 __asm__("fa4"); +register double darg6 __asm__("fa5"); +register double darg7 __asm__("fa6"); +register double darg8 __asm__("fa7"); + +int +avcall_call(av_alist* list) +{ + register __avword iretreg __asm__("a0"); + register __avword iret2reg __asm__("a1"); + register double dret __asm__("fa0"); + + __av_alist* l = &AV_LIST_INNER(list); + + __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ + int arglen = l->aptr - l->args; + unsigned int fanum = l->fanum; + + { + int i; + for (i = 8; i < arglen; i++) /* push function args onto stack */ + argframe[i-8] = l->args[i]; + } + + /* Put up to 8 integer args into registers. */ + if (arglen >= 1) { + iarg1 = l->args[0]; + if (arglen >= 2) { + iarg2 = l->args[1]; + if (arglen >= 3) { + iarg3 = l->args[2]; + if (arglen >= 4) { + iarg4 = l->args[3]; + if (arglen >= 5) { + iarg5 = l->args[4]; + if (arglen >= 6) { + iarg6 = l->args[5]; + if (arglen >= 7) { + iarg7 = l->args[6]; + if (arglen >= 8) { + iarg8 = l->args[7]; + } + } + } + } + } + } + } + } + + /* Put upto 8 floating-point args into registers. */ + if (fanum >= 1) { + if (l->darg_mask & (1 << 0)) darg1 = l->dargs[0]; + else if (l->farg_mask & (1 << 0)) farg1 = l->fargs[0]; + if (fanum >= 2) { + if (l->darg_mask & (1 << 1)) darg2 = l->dargs[1]; + else if (l->farg_mask & (1 << 1)) farg2 = l->fargs[1]; + if (fanum >= 3) { + if (l->darg_mask & (1 << 2)) darg3 = l->dargs[2]; + else if (l->farg_mask & (1 << 2)) farg3 = l->fargs[2]; + if (fanum >= 4) { + if (l->darg_mask & (1 << 3)) darg4 = l->dargs[3]; + else if (l->farg_mask & (1 << 3)) farg4 = l->fargs[3]; + if (fanum >= 5) { + if (l->darg_mask & (1 << 4)) darg5 = l->dargs[4]; + else if (l->farg_mask & (1 << 4)) farg5 = l->fargs[4]; + if (fanum >= 6) { + if (l->darg_mask & (1 << 5)) darg6 = l->dargs[5]; + else if (l->farg_mask & (1 << 5)) farg6 = l->fargs[5]; + if (fanum >= 7) { + if (l->darg_mask & (1 << 6)) darg7 = l->dargs[6]; + else if (l->farg_mask & (1 << 6)) farg7 = l->fargs[6]; + if (fanum >= 8) { + if (l->darg_mask & (1 << 7)) darg8 = l->dargs[7]; + else if (l->farg_mask & (1 << 7)) farg8 = l->fargs[7]; + } + } + } + } + } + } + } + } + + /* Call function. */ + if (l->rtype == __AVfloat) { + *(float*)l->raddr = (*(float(*)())l->func)(); + } else + if (l->rtype == __AVdouble) { + *(double*)l->raddr = (*(double(*)())l->func)(); + } else { + __avword iret, iret2; + + iret = (*l->func)(); + iret2 = iret2reg; + + /* save return value */ + if (l->rtype == __AVvoid) { + } else + if (l->rtype == __AVword) { + RETURN(__avword, iret); + } else + if (l->rtype == __AVchar) { + RETURN(char, iret); + } else + if (l->rtype == __AVschar) { + RETURN(signed char, iret); + } else + if (l->rtype == __AVuchar) { + RETURN(unsigned char, iret); + } else + if (l->rtype == __AVshort) { + RETURN(short, iret); + } else + if (l->rtype == __AVushort) { + RETURN(unsigned short, iret); + } else + if (l->rtype == __AVint) { + RETURN(int, iret); + } else + if (l->rtype == __AVuint) { + RETURN(unsigned int, iret); + } else + if (l->rtype == __AVlong || l->rtype == __AVlonglong) { + RETURN(long, iret); + } else + if (l->rtype == __AVulong || l->rtype == __AVulonglong) { + RETURN(unsigned long, iret); + } else + /* see above + if (l->rtype == __AVfloat) { + } else + if (l->rtype == __AVdouble) { + } else + */ + if (l->rtype == __AVvoidp) { + RETURN(void*, iret); + } else + if (l->rtype == __AVstruct) { + if (l->flags & __AV_REGISTER_STRUCT_RETURN) { + /* Return structs of size <= 16 in registers. */ + if (l->rsize > 0 && l->rsize <= 16) { + void* raddr = l->raddr; + #if 0 /* Unoptimized */ + if (l->rsize == 1) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + } else + if (l->rsize == 2) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + } else + if (l->rsize == 3) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + } else + if (l->rsize == 4) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + } else + if (l->rsize == 5) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); + } else + if (l->rsize == 6) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); + } else + if (l->rsize == 7) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[6] = (unsigned char)(iret>>48); + } else + if (l->rsize >= 8 && l->rsize <= 16) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[6] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[7] = (unsigned char)(iret>>56); + if (l->rsize == 8) { + } else + if (l->rsize == 9) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + } else + if (l->rsize == 10) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + } else + if (l->rsize == 11) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + } else + if (l->rsize == 12) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + } else + if (l->rsize == 13) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); + } else + if (l->rsize == 14) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); + } else + if (l->rsize == 15) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>48); + } else + if (l->rsize == 16) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+7] = (unsigned char)(iret2>>56); + } + } + #else /* Optimized: fewer conditional jumps, fewer memory accesses */ + uintptr_t count = l->rsize; /* > 0, ≤ 2*sizeof(__avword) */ + __avword* wordaddr = (__avword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avword)-1)); + uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avword)-1); /* ≥ 0, < sizeof(__avword) */ + uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__avword) */ + if (count <= sizeof(__avword)) { + /* Use iret. */ + if (end_offset <= sizeof(__avword)) { + /* 0 < end_offset ≤ sizeof(__avword) */ + __avword mask0 = ((__avword)2 << (end_offset*8-1)) - ((__avword)1 << (start_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; + } else { + /* sizeof(__avword) < end_offset < 2*sizeof(__avword), start_offset > 0 */ + __avword mask0 = - ((__avword)1 << (start_offset*8)); + __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; + wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; + wordaddr[1] ^= (wordaddr[1] ^ (iret >> (sizeof(__avword)*8-start_offset*8))) & mask1; + } + } else { + /* Use iret, iret2. */ + __avword mask0 = - ((__avword)1 << (start_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; + if (end_offset <= 2*sizeof(__avword)) { + /* sizeof(__avword) < end_offset ≤ 2*sizeof(__avword) */ + __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; + wordaddr[1] ^= (wordaddr[1] ^ ((iret >> (sizeof(__avword)*4-start_offset*4) >> (sizeof(__avword)*4-start_offset*4)) | (iret2 << (start_offset*8)))) & mask1; + } else { + /* 2*sizeof(__avword) < end_offset < 3*sizeof(__avword), start_offset > 0 */ + __avword mask2 = ((__avword)2 << (end_offset*8-2*sizeof(__avword)*8-1)) - 1; + wordaddr[1] = (iret >> (sizeof(__avword)*8-start_offset*8)) | (iret2 << (start_offset*8)); + wordaddr[2] ^= (wordaddr[2] ^ (iret2 >> (sizeof(__avword)*8-start_offset*8))) & mask2; + } + } + #endif + } + } + } + } + return 0; +} diff --git a/avcall/avcall-s390-linux.s b/avcall/avcall-s390-linux.s new file mode 100644 index 0000000..7680874 --- /dev/null +++ b/avcall/avcall-s390-linux.s @@ -0,0 +1,148 @@ + .file "avcall-s390.c" +.text + .align 4 +.globl avcall_call + .type avcall_call,@function +avcall_call: + stm %r6,%r15,24(%r15) + bras %r13,.LTN0_0 +.LT0_0: +.LC0: + .long 1 +.LTN0_0: + lr %r14,%r15 + ahi %r15,-96 + lr %r10,%r2 + lr %r11,%r15 + lhi %r2,0 + st %r14,0(%r15) + l %r1,0(%r15) + ahi %r15,-1032 + l %r3,20(%r10) + l %r4,24(%r10) + sr %r3,%r4 + sra %r3,2 + la %r5,96(%r15) + st %r1,0(%r15) + cr %r2,%r3 + l %r0,64(%r10) + jhe .L55 +.L6: + lr %r1,%r2 + sll %r1,2 + ahi %r2,1 + cr %r2,%r3 + l %r9,0(%r1,%r4) + st %r9,0(%r1,%r5) + jl .L6 +.L55: + ltr %r0,%r0 + je .L7 + l %r1,72(%r10) + tml %r1,1 + je .L8 + ld %f0,88(%r10) +.L9: + cl %r0,.LC0-.LT0_0(%r13) + jle .L7 + tml %r1,2 + je .L12 + ld %f2,96(%r10) +.L7: + l %r1,4(%r10) + l %r4,52(%r10) + l %r2,44(%r10) + l %r3,48(%r10) + l %r5,56(%r10) + l %r6,60(%r10) + basr %r14,%r1 + l %r4,12(%r10) + chi %r4,1 + je .L16 + ltr %r4,%r4 + je .L65 + chi %r4,2 + je .L58 + chi %r4,3 + je .L58 + chi %r4,4 + je .L58 + chi %r4,5 + je .L57 + chi %r4,6 + je .L57 + chi %r4,7 + je .L65 + chi %r4,8 + je .L65 + chi %r4,9 + je .L65 + chi %r4,10 + je .L65 + lr %r1,%r4 + ahi %r1,-11 + cl %r1,.LC0-.LT0_0(%r13) + jle .L64 + chi %r4,13 + je .L66 + chi %r4,14 + je .L67 + chi %r4,15 + je .L65 + chi %r4,16 + je .L68 +.L16: + lhi %r2,0 + l %r4,152(%r11) + lm %r6,%r15,120(%r11) + br %r4 +.L68: + tm 2(%r10),2 + je .L16 + l %r1,16(%r10) + chi %r1,1 + je .L58 + chi %r1,2 + je .L57 + chi %r1,4 + je .L65 + chi %r1,8 + jne .L16 +.L64: + l %r1,8(%r10) + st %r3,4(%r1) +.L56: + st %r2,0(%r1) + j .L16 +.L65: + l %r1,8(%r10) + j .L56 +.L57: + l %r1,8(%r10) + sth %r2,0(%r1) + j .L16 +.L58: + l %r1,8(%r10) + stc %r2,0(%r1) + j .L16 +.L67: + l %r1,8(%r10) + std %f0,0(%r1) + j .L16 +.L66: + l %r1,8(%r10) + ste %f0,0(%r1) + j .L16 +.L12: + tm 71(%r10),2 + je .L7 + le %f2,80(%r10) + j .L7 +.L8: + tm 71(%r10),1 + je .L9 + le %f0,76(%r10) + j .L9 +.Lfe1: + .size avcall_call,.Lfe1-avcall_call + .ident "GCC: (GNU) 3.1" diff --git a/avcall/avcall-s390-macro.S b/avcall/avcall-s390-macro.S new file mode 100644 index 0000000..267b4c3 --- /dev/null +++ b/avcall/avcall-s390-macro.S @@ -0,0 +1,150 @@ + .file "avcall-s390.c" +.text + .align 4 +.globl avcall_call + .type avcall_call,@function +avcall_call: + stm %r6,%r15,24(%r15) + bras %r13,.LTN0_0 +.LT0_0: +.LC0: + .long 1 +.LTN0_0: + lr %r14,%r15 + ahi %r15,-96 + lr %r10,%r2 + lr %r11,%r15 + lhi %r2,0 + st %r14,0(%r15) + l %r1,0(%r15) + ahi %r15,-1032 + l %r3,20(%r10) + l %r4,24(%r10) + sr %r3,%r4 + sra %r3,2 + la %r5,96(%r15) + st %r1,0(%r15) + cr %r2,%r3 + l %r0,64(%r10) + jhe .L55 +.L6: + lr %r1,%r2 + sll %r1,2 + ahi %r2,1 + cr %r2,%r3 + l %r9,0(%r1,%r4) + st %r9,0(%r1,%r5) + jl .L6 +.L55: + ltr %r0,%r0 + je .L7 + l %r1,72(%r10) + tml %r1,1 + je .L8 + ld %f0,88(%r10) +.L9: + cl %r0,.LC0-.LT0_0(%r13) + jle .L7 + tml %r1,2 + je .L12 + ld %f2,96(%r10) +.L7: + l %r1,4(%r10) + l %r4,52(%r10) + l %r2,44(%r10) + l %r3,48(%r10) + l %r5,56(%r10) + l %r6,60(%r10) + basr %r14,%r1 + l %r4,12(%r10) + chi %r4,1 + je .L16 + ltr %r4,%r4 + je .L65 + chi %r4,2 + je .L58 + chi %r4,3 + je .L58 + chi %r4,4 + je .L58 + chi %r4,5 + je .L57 + chi %r4,6 + je .L57 + chi %r4,7 + je .L65 + chi %r4,8 + je .L65 + chi %r4,9 + je .L65 + chi %r4,10 + je .L65 + lr %r1,%r4 + ahi %r1,-11 + cl %r1,.LC0-.LT0_0(%r13) + jle .L64 + chi %r4,13 + je .L66 + chi %r4,14 + je .L67 + chi %r4,15 + je .L65 + chi %r4,16 + je .L68 +.L16: + lhi %r2,0 + l %r4,152(%r11) + lm %r6,%r15,120(%r11) + br %r4 +.L68: + tm 2(%r10),2 + je .L16 + l %r1,16(%r10) + chi %r1,1 + je .L58 + chi %r1,2 + je .L57 + chi %r1,4 + je .L65 + chi %r1,8 + jne .L16 +.L64: + l %r1,8(%r10) + st %r3,4(%r1) +.L56: + st %r2,0(%r1) + j .L16 +.L65: + l %r1,8(%r10) + j .L56 +.L57: + l %r1,8(%r10) + sth %r2,0(%r1) + j .L16 +.L58: + l %r1,8(%r10) + stc %r2,0(%r1) + j .L16 +.L67: + l %r1,8(%r10) + std %f0,0(%r1) + j .L16 +.L66: + l %r1,8(%r10) + ste %f0,0(%r1) + j .L16 +.L12: + tm 71(%r10),2 + je .L7 + le %f2,80(%r10) + j .L7 +.L8: + tm 71(%r10),1 + je .L9 + le %f0,76(%r10) + j .L9 +.Lfe1: + .size avcall_call,.Lfe1-avcall_call +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/avcall/avcall-s390.c b/avcall/avcall-s390.c new file mode 100644 index 0000000..d2cb117 --- /dev/null +++ b/avcall/avcall-s390.c @@ -0,0 +1,146 @@ +/** + Copyright 1993 Bill Triggs + Copyright 1995-2017 Bruno Haible + Copyright 2001 Gerhard Tonn + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . +**/ +/*---------------------------------------------------------------------- + + Foreign function interface for an IBM S/390 with gcc + + This calls a C function with an argument list built up using macros + defined in avcall.h. + + S390 Argument Passing Conventions: + + All arguments, except the first 5 words, are passed on the stack with + word alignment. Doubles take two words. The first 2 doubles and floats + are also passed in floating-point-registers. + To return a structure, the called function copies the value to space + pointed to by its first argument, and all other arguments are shifted + down by one. + + Compile this routine with gcc -O2 to get the right register variables. + For other compilers use the pre-compiled assembler version. + ----------------------------------------------------------------------*/ +#include "avcall-internal.h" + +#define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) + +register float farg1 __asm__("f0"); +register float farg2 __asm__("f2"); +register double darg1 __asm__("f0"); +register double darg2 __asm__("f2"); + +int +avcall_call(av_alist* list) +{ + register __avword* sp __asm__("r15"); /* C names for registers */ +/*register __avword iret __asm__("r2"); */ + register __avword iret2 __asm__("r3"); + register float fret __asm__("f0"); + register double dret __asm__("f0"); + + __av_alist* l = &AV_LIST_INNER(list); + + __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ + int arglen = l->aptr - l->args; + unsigned int fanum = l->fanum; + __avword i; + + for (i = 0; i < arglen; i++) /* push function args onto stack */ + argframe[i] = l->args[i]; + + /* Put upto 2 floating-point args into registers. */ + if (fanum >= 1) { + if (l->darg_mask & (1 << 0)) darg1 = l->dargs[0]; + else if (l->farg_mask & (1 << 0)) farg1 = l->fargs[0]; + if (fanum >= 2) { + if (l->darg_mask & (1 << 1)) darg2 = l->dargs[1]; + else if (l->farg_mask & (1 << 1)) farg2 = l->fargs[1]; + } + } + + /* call function, pass 5 args in registers */ + i = (*l->func)(l->iargs[0], l->iargs[1], l->iargs[2], l->iargs[3], + l->iargs[4]); + + /* save return value */ + if (l->rtype == __AVvoid) { + } else + if (l->rtype == __AVword) { + RETURN(__avword, i); + } else + if (l->rtype == __AVchar) { + RETURN(char, i); + } else + if (l->rtype == __AVschar) { + RETURN(signed char, i); + } else + if (l->rtype == __AVuchar) { + RETURN(unsigned char, i); + } else + if (l->rtype == __AVshort) { + RETURN(short, i); + } else + if (l->rtype == __AVushort) { + RETURN(unsigned short, i); + } else + if (l->rtype == __AVint) { + RETURN(int, i); + } else + if (l->rtype == __AVuint) { + RETURN(unsigned int, i); + } else + if (l->rtype == __AVlong) { + RETURN(long, i); + } else + if (l->rtype == __AVulong) { + RETURN(unsigned long, i); + } else + if (l->rtype == __AVlonglong || l->rtype == __AVulonglong) { + void* raddr = l->raddr; + ((__avword*)raddr)[0] = i; + ((__avword*)raddr)[1] = iret2; + } else + if (l->rtype == __AVfloat) { + RETURN(float, fret); + } else + if (l->rtype == __AVdouble) { + RETURN(double, dret); + } else + if (l->rtype == __AVvoidp) { + RETURN(void*, i); + } else + if (l->rtype == __AVstruct) { + if (l->flags & __AV_REGISTER_STRUCT_RETURN) { + if (l->rsize == sizeof(char)) { + RETURN(char, i); + } else + if (l->rsize == sizeof(short)) { + RETURN(short, i); + } else + if (l->rsize == sizeof(int)) { + RETURN(int, i); + } else + if (l->rsize == 2*sizeof(__avword)) { + void* raddr = l->raddr; + ((__avword*)raddr)[0] = i; + ((__avword*)raddr)[1] = iret2; + } + } + } + return 0; +} diff --git a/avcall/avcall-s390x-linux.s b/avcall/avcall-s390x-linux.s new file mode 100644 index 0000000..a76a9a0 --- /dev/null +++ b/avcall/avcall-s390x-linux.s @@ -0,0 +1,269 @@ + .file "avcall-s390x.c" +.text + .align 8 +.globl avcall_call + .type avcall_call, @function +avcall_call: +.LFB0: + .cfi_startproc + stmg %r7,%r15,56(%r15) + .cfi_offset 7, -104 + .cfi_offset 8, -96 + .cfi_offset 9, -88 + .cfi_offset 10, -80 + .cfi_offset 11, -72 + .cfi_offset 12, -64 + .cfi_offset 13, -56 + .cfi_offset 14, -48 + .cfi_offset 15, -40 + larl %r13,.L78 + aghi %r15,-176 + .cfi_def_cfa_offset 336 + lgr %r11,%r15 + .cfi_def_cfa_register 11 + aghi %r15,-2056 + lg %r9,48(%r2) + lg %r1,40(%r2) + sgr %r1,%r9 + srag %r1,%r1,3 + stg %r2,168(%r11) + stg %r6,160(%r11) + ltr %r1,%r1 + la %r8,160(%r15) + l %r0,64(%r2) + l %r7,112(%r2) + jle .L6 + ahi %r1,-1 + llgfr %r1,%r1 + aghi %r1,1 + lghi %r14,0 +.L5: + lg %r10,0(%r14,%r9) + stg %r10,0(%r14,%r8) + aghi %r14,8 + brctg %r1,.L5 +.L6: + ltr %r0,%r0 + je .L7 + lg %r1,168(%r11) + cl %r0,.L79-.L78(%r13) + lg %r2,72(%r1) + jle .L7 + chi %r0,2 + lg %r3,80(%r1) + je .L7 + chi %r0,3 + lg %r4,88(%r1) + je .L7 + chi %r0,4 + lg %r5,96(%r1) + jne .L73 +.L7: + ltr %r7,%r7 + je .L9 + lg %r10,168(%r11) + l %r1,120(%r10) + tmll %r1,1 + je .L10 + ld %f0,144(%r10) +.L11: + cl %r7,.L79-.L78(%r13) + jle .L9 + tmll %r1,2 + lg %r10,168(%r11) + jne .L74 + tm 119(%r10),2 + je .L14 + le %f2,128(%r10) +.L14: + chi %r7,2 + je .L9 + tmll %r1,4 + lg %r10,168(%r11) + je .L15 + ld %f4,160(%r10) +.L16: + chi %r7,3 + je .L9 + tmll %r1,8 + lg %r1,168(%r11) + jne .L75 + tm 119(%r1),8 + je .L9 + le %f6,136(%r1) +.L9: + lg %r1,168(%r11) + l %r1,24(%r1) + chi %r1,13 + je .L76 + chi %r1,14 + je .L77 + lg %r10,168(%r11) + lg %r1,8(%r10) + basr %r14,%r1 + l %r1,24(%r10) + chi %r1,1 + lgr %r0,%r2 + je .L19 + ltr %r1,%r1 + je .L67 + chi %r1,2 + je .L69 + chi %r1,3 + je .L69 + chi %r1,4 + je .L69 + chi %r1,5 + je .L71 + chi %r1,6 + je .L71 + chi %r1,7 + je .L70 + chi %r1,8 + je .L70 + lr %r9,%r1 + nill %r9,65533 + chi %r9,9 + je .L67 + chi %r1,10 + je .L67 + chi %r1,12 + je .L67 + chi %r1,15 + je .L67 +.L19: + lg %r4,288(%r11) + lg %r6,160(%r11) + lghi %r2,0 + lmg %r7,%r15,232(%r11) + .cfi_remember_state + .cfi_restore 15 + .cfi_restore 14 + .cfi_restore 13 + .cfi_restore 12 + .cfi_restore 11 + .cfi_restore 10 + .cfi_restore 9 + .cfi_restore 8 + .cfi_restore 7 + .cfi_def_cfa 15, 160 + br %r4 +.L10: + .cfi_restore_state + lg %r10,168(%r11) + tm 119(%r10),1 + je .L11 + le %f0,124(%r10) + j .L11 +.L67: + lg %r1,168(%r11) + lghi %r2,0 + lg %r1,16(%r1) + stg %r0,0(%r1) + lg %r4,288(%r11) + lg %r6,160(%r11) + lmg %r7,%r15,232(%r11) + .cfi_remember_state + .cfi_restore 7 + .cfi_restore 8 + .cfi_restore 9 + .cfi_restore 10 + .cfi_restore 11 + .cfi_restore 12 + .cfi_restore 13 + .cfi_restore 14 + .cfi_restore 15 + .cfi_def_cfa 15, 160 + br %r4 +.L74: + .cfi_restore_state + ld %f2,152(%r10) + j .L14 +.L69: + lg %r1,168(%r11) + lghi %r2,0 + lg %r1,16(%r1) + stc %r0,0(%r1) + lg %r4,288(%r11) + lg %r6,160(%r11) + lmg %r7,%r15,232(%r11) + .cfi_remember_state + .cfi_restore 7 + .cfi_restore 8 + .cfi_restore 9 + .cfi_restore 10 + .cfi_restore 11 + .cfi_restore 12 + .cfi_restore 13 + .cfi_restore 14 + .cfi_restore 15 + .cfi_def_cfa 15, 160 + br %r4 +.L77: + .cfi_restore_state + lg %r0,168(%r11) + lgr %r1,%r0 + lgr %r10,%r0 + lg %r1,8(%r1) + lg %r10,16(%r10) + basr %r14,%r1 + lg %r4,288(%r11) + std %f0,0(%r10) + lg %r6,160(%r11) + lghi %r2,0 + lmg %r7,%r15,232(%r11) + .cfi_remember_state + .cfi_restore 7 + .cfi_restore 8 + .cfi_restore 9 + .cfi_restore 10 + .cfi_restore 11 + .cfi_restore 12 + .cfi_restore 13 + .cfi_restore 14 + .cfi_restore 15 + .cfi_def_cfa 15, 160 + br %r4 +.L76: + .cfi_restore_state + lg %r0,168(%r11) + lgr %r1,%r0 + lgr %r10,%r0 + lg %r1,8(%r1) + lg %r10,16(%r10) + basr %r14,%r1 + ste %f0,0(%r10) + j .L19 +.L15: + tm 119(%r10),4 + je .L16 + le %f4,132(%r10) + j .L16 +.L71: + lg %r1,168(%r11) + lg %r1,16(%r1) + sth %r0,0(%r1) + j .L19 +.L73: + lg %r6,104(%r1) + j .L7 +.L75: + ld %f6,168(%r1) + j .L9 +.L70: + lg %r1,168(%r11) + lg %r1,16(%r1) + st %r0,0(%r1) + j .L19 + .section .rodata + .align 8 +.L78: +.L79: + .long 1 + .align 2 + .previous + .cfi_endproc +.LFE0: + .size avcall_call, .-avcall_call + .ident "GCC: (GNU) 5.4.0" + .section .note.GNU-stack,"",@progbits diff --git a/avcall/avcall-s390x-macro.S b/avcall/avcall-s390x-macro.S new file mode 100644 index 0000000..6fafcc3 --- /dev/null +++ b/avcall/avcall-s390x-macro.S @@ -0,0 +1,270 @@ + .file "avcall-s390x.c" +.text + .align 8 +.globl avcall_call + .type avcall_call, @function +avcall_call: +.LFB0: + .cfi_startproc + stmg %r7,%r15,56(%r15) + .cfi_offset 7, -104 + .cfi_offset 8, -96 + .cfi_offset 9, -88 + .cfi_offset 10, -80 + .cfi_offset 11, -72 + .cfi_offset 12, -64 + .cfi_offset 13, -56 + .cfi_offset 14, -48 + .cfi_offset 15, -40 + larl %r13,.L78 + aghi %r15,-176 + .cfi_def_cfa_offset 336 + lgr %r11,%r15 + .cfi_def_cfa_register 11 + aghi %r15,-2056 + lg %r9,48(%r2) + lg %r1,40(%r2) + sgr %r1,%r9 + srag %r1,%r1,3 + stg %r2,168(%r11) + stg %r6,160(%r11) + ltr %r1,%r1 + la %r8,160(%r15) + l %r0,64(%r2) + l %r7,112(%r2) + jle .L6 + ahi %r1,-1 + llgfr %r1,%r1 + aghi %r1,1 + lghi %r14,0 +.L5: + lg %r10,0(%r14,%r9) + stg %r10,0(%r14,%r8) + aghi %r14,8 + brctg %r1,.L5 +.L6: + ltr %r0,%r0 + je .L7 + lg %r1,168(%r11) + cl %r0,.L79-.L78(%r13) + lg %r2,72(%r1) + jle .L7 + chi %r0,2 + lg %r3,80(%r1) + je .L7 + chi %r0,3 + lg %r4,88(%r1) + je .L7 + chi %r0,4 + lg %r5,96(%r1) + jne .L73 +.L7: + ltr %r7,%r7 + je .L9 + lg %r10,168(%r11) + l %r1,120(%r10) + tmll %r1,1 + je .L10 + ld %f0,144(%r10) +.L11: + cl %r7,.L79-.L78(%r13) + jle .L9 + tmll %r1,2 + lg %r10,168(%r11) + jne .L74 + tm 119(%r10),2 + je .L14 + le %f2,128(%r10) +.L14: + chi %r7,2 + je .L9 + tmll %r1,4 + lg %r10,168(%r11) + je .L15 + ld %f4,160(%r10) +.L16: + chi %r7,3 + je .L9 + tmll %r1,8 + lg %r1,168(%r11) + jne .L75 + tm 119(%r1),8 + je .L9 + le %f6,136(%r1) +.L9: + lg %r1,168(%r11) + l %r1,24(%r1) + chi %r1,13 + je .L76 + chi %r1,14 + je .L77 + lg %r10,168(%r11) + lg %r1,8(%r10) + basr %r14,%r1 + l %r1,24(%r10) + chi %r1,1 + lgr %r0,%r2 + je .L19 + ltr %r1,%r1 + je .L67 + chi %r1,2 + je .L69 + chi %r1,3 + je .L69 + chi %r1,4 + je .L69 + chi %r1,5 + je .L71 + chi %r1,6 + je .L71 + chi %r1,7 + je .L70 + chi %r1,8 + je .L70 + lr %r9,%r1 + nill %r9,65533 + chi %r9,9 + je .L67 + chi %r1,10 + je .L67 + chi %r1,12 + je .L67 + chi %r1,15 + je .L67 +.L19: + lg %r4,288(%r11) + lg %r6,160(%r11) + lghi %r2,0 + lmg %r7,%r15,232(%r11) + .cfi_remember_state + .cfi_restore 15 + .cfi_restore 14 + .cfi_restore 13 + .cfi_restore 12 + .cfi_restore 11 + .cfi_restore 10 + .cfi_restore 9 + .cfi_restore 8 + .cfi_restore 7 + .cfi_def_cfa 15, 160 + br %r4 +.L10: + .cfi_restore_state + lg %r10,168(%r11) + tm 119(%r10),1 + je .L11 + le %f0,124(%r10) + j .L11 +.L67: + lg %r1,168(%r11) + lghi %r2,0 + lg %r1,16(%r1) + stg %r0,0(%r1) + lg %r4,288(%r11) + lg %r6,160(%r11) + lmg %r7,%r15,232(%r11) + .cfi_remember_state + .cfi_restore 7 + .cfi_restore 8 + .cfi_restore 9 + .cfi_restore 10 + .cfi_restore 11 + .cfi_restore 12 + .cfi_restore 13 + .cfi_restore 14 + .cfi_restore 15 + .cfi_def_cfa 15, 160 + br %r4 +.L74: + .cfi_restore_state + ld %f2,152(%r10) + j .L14 +.L69: + lg %r1,168(%r11) + lghi %r2,0 + lg %r1,16(%r1) + stc %r0,0(%r1) + lg %r4,288(%r11) + lg %r6,160(%r11) + lmg %r7,%r15,232(%r11) + .cfi_remember_state + .cfi_restore 7 + .cfi_restore 8 + .cfi_restore 9 + .cfi_restore 10 + .cfi_restore 11 + .cfi_restore 12 + .cfi_restore 13 + .cfi_restore 14 + .cfi_restore 15 + .cfi_def_cfa 15, 160 + br %r4 +.L77: + .cfi_restore_state + lg %r0,168(%r11) + lgr %r1,%r0 + lgr %r10,%r0 + lg %r1,8(%r1) + lg %r10,16(%r10) + basr %r14,%r1 + lg %r4,288(%r11) + std %f0,0(%r10) + lg %r6,160(%r11) + lghi %r2,0 + lmg %r7,%r15,232(%r11) + .cfi_remember_state + .cfi_restore 7 + .cfi_restore 8 + .cfi_restore 9 + .cfi_restore 10 + .cfi_restore 11 + .cfi_restore 12 + .cfi_restore 13 + .cfi_restore 14 + .cfi_restore 15 + .cfi_def_cfa 15, 160 + br %r4 +.L76: + .cfi_restore_state + lg %r0,168(%r11) + lgr %r1,%r0 + lgr %r10,%r0 + lg %r1,8(%r1) + lg %r10,16(%r10) + basr %r14,%r1 + ste %f0,0(%r10) + j .L19 +.L15: + tm 119(%r10),4 + je .L16 + le %f4,132(%r10) + j .L16 +.L71: + lg %r1,168(%r11) + lg %r1,16(%r1) + sth %r0,0(%r1) + j .L19 +.L73: + lg %r6,104(%r1) + j .L7 +.L75: + ld %f6,168(%r1) + j .L9 +.L70: + lg %r1,168(%r11) + lg %r1,16(%r1) + st %r0,0(%r1) + j .L19 + .section .rodata + .align 8 +.L78: +.L79: + .long 1 + .align 2 + .previous + .cfi_endproc +.LFE0: + .size avcall_call, .-avcall_call +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/avcall/avcall-s390x.c b/avcall/avcall-s390x.c new file mode 100644 index 0000000..06f488a --- /dev/null +++ b/avcall/avcall-s390x.c @@ -0,0 +1,193 @@ +/** + Copyright 1993 Bill Triggs + Copyright 1995-2018 Bruno Haible + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . +**/ +/*---------------------------------------------------------------------- + !!! THIS ROUTINE MUST BE COMPILED gcc -O -fno-omit-frame-pointer !!! + + Foreign function interface for an s390x 64-bit CPU. + + This calls a C function with an argument list built up using macros + defined in avcall.h. + + s390x 64-bit Argument Passing Conventions + + * Arguments: + - The first 5 integer or pointer arguments get passed in + r2, r3, r4, r5, r6; the remaining ones (as an entire word each) + on the stack. + - The first 4 float or double arguments get passed in + f0, f2, f4, f6; the remaining ones on the stack (as an entire + word each, floats in the upper half of a word). + - Structures of sizes 1, 2, 4, 8 are passed as follows: + - Structures consisting only of a float or double are passed + like an immediate float or double, that is, in f0, f2, f4, f6 + and on the stack (floats in the upper half of their respective + word). But we don't support this kind of structure. + - Other structures get passed as an entire word, like integers + and pointers. + When in r2, ..., r6: as the 8*sizeof(S) low bits of the register + (a.k.a. "right-adjusted"). + When on the stack: they occupy an entire word and are adjusted + on the high end of the word: + - sizeof(S) == 1: at an address == 7 mod 8, + - sizeof(S) == 2: at an address == 6 mod 8, + - sizeof(S) == 4: at an address == 4 mod 8, + - Structures of other sizes are passed as references. + * Return value: + - An integer or pointer is returned in r2. + - A float or double is returned in f0. + - Structure return convention: The caller passes a pointer to the + destination area (quasi as an additional first pointer argument) + in r2. The callee fills it and returns the same pointer in r2. + + ----------------------------------------------------------------------*/ +#include "avcall-internal.h" + +#define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) + +register __avword iarg1 __asm__("r2"); +register __avword iarg2 __asm__("r3"); +register __avword iarg3 __asm__("r4"); +register __avword iarg4 __asm__("r5"); +register __avword iarg5 __asm__("r6"); + +register float farg1 __asm__("f0"); +register float farg2 __asm__("f2"); +register float farg3 __asm__("f4"); +register float farg4 __asm__("f6"); + +register double darg1 __asm__("f0"); +register double darg2 __asm__("f2"); +register double darg3 __asm__("f4"); +register double darg4 __asm__("f6"); + +int +avcall_call(av_alist* list) +{ + register __avword* sp __asm__("r15"); /* C names for registers */ + register __avword iretreg __asm__("r2"); + register double dret __asm__("f0"); + + /* We need to put a value in r6, but it's a call-saved register. */ + __avword saved_iarg5 = iarg5; + + __av_alist* l = &AV_LIST_INNER(list); + + __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ + int arglen = l->aptr - l->args; + unsigned int ianum = l->ianum; + unsigned int fanum = l->fanum; + + { + int i; + for (i = 0; i < arglen; i++) /* push function args onto stack */ + argframe[i] = l->args[i]; + } + + /* Put up to 5 integer args into registers. */ + if (ianum >= 1) { + iarg1 = l->iargs[0]; + if (ianum >= 2) { + iarg2 = l->iargs[1]; + if (ianum >= 3) { + iarg3 = l->iargs[2]; + if (ianum >= 4) { + iarg4 = l->iargs[3]; + if (ianum >= 5) { + iarg5 = l->iargs[4]; + } + } + } + } + } + + /* Put upto 4 floating-point args into registers. */ + if (fanum >= 1) { + if (l->darg_mask & (1 << 0)) darg1 = l->dargs[0]; + else if (l->farg_mask & (1 << 0)) farg1 = l->fargs[0]; + if (fanum >= 2) { + if (l->darg_mask & (1 << 1)) darg2 = l->dargs[1]; + else if (l->farg_mask & (1 << 1)) farg2 = l->fargs[1]; + if (fanum >= 3) { + if (l->darg_mask & (1 << 2)) darg3 = l->dargs[2]; + else if (l->farg_mask & (1 << 2)) farg3 = l->fargs[2]; + if (fanum >= 4) { + if (l->darg_mask & (1 << 3)) darg4 = l->dargs[3]; + else if (l->farg_mask & (1 << 3)) farg4 = l->fargs[3]; + } + } + } + } + + /* Call function. */ + if (l->rtype == __AVfloat) { + *(float*)l->raddr = (*(float(*)())l->func)(); + } else + if (l->rtype == __AVdouble) { + *(double*)l->raddr = (*(double(*)())l->func)(); + } else { + __avword iret = (*l->func)(); + + /* save return value */ + if (l->rtype == __AVvoid) { + } else + if (l->rtype == __AVword) { + RETURN(__avword, iret); + } else + if (l->rtype == __AVchar) { + RETURN(char, iret); + } else + if (l->rtype == __AVschar) { + RETURN(signed char, iret); + } else + if (l->rtype == __AVuchar) { + RETURN(unsigned char, iret); + } else + if (l->rtype == __AVshort) { + RETURN(short, iret); + } else + if (l->rtype == __AVushort) { + RETURN(unsigned short, iret); + } else + if (l->rtype == __AVint) { + RETURN(int, iret); + } else + if (l->rtype == __AVuint) { + RETURN(unsigned int, iret); + } else + if (l->rtype == __AVlong || l->rtype == __AVlonglong) { + RETURN(long, iret); + } else + if (l->rtype == __AVulong || l->rtype == __AVulonglong) { + RETURN(unsigned long, iret); + } else + /* see above + if (l->rtype == __AVfloat) { + } else + if (l->rtype == __AVdouble) { + } else + */ + if (l->rtype == __AVvoidp) { + RETURN(void*, iret); + } else + if (l->rtype == __AVstruct) { + /* normal struct return convention */ + } + } + iarg5 = saved_iarg5; + return 0; +} diff --git a/avcall/avcall-sparc-linux.s b/avcall/avcall-sparc-linux.s new file mode 100644 index 0000000..68946c2 --- /dev/null +++ b/avcall/avcall-sparc-linux.s @@ -0,0 +1,170 @@ + .file "avcall-sparc.c" + .section ".text" + .align 4 + .global avcall_call + .type avcall_call,#function + .proc 04 +avcall_call: + !#PROLOGUE# 0 + save %sp, -1152, %sp + ld [%i0+20], %g3 + add %sp, 68, %l1 + ld [%i0+24], %o7 + ld [%i0+12], %l0 + sub %g3, %o7, %g3 + cmp %l0, 16 + be .LL54 + sra %g3, 2, %g4 +.LL2: + mov 6, %l0 + cmp %l0, %g4 + bge .LL49 + ld [%i0+24], %g1 +.LL7: + sll %l0, 2, %g3 + ld [%g1+%g3], %o7 + add %l0, 1, %l0 + cmp %l0, %g4 + bl .LL7 + st %o7, [%l1+%g3] +.LL49: + ld [%i0+12], %g3 + cmp %g3, 16 + be,a .LL55 + ld [%i0], %g3 + ld [%g1+20], %o5 +.LL60: + ld [%i0+4], %g3 + ld [%g1], %o0 + ld [%g1+4], %o1 + ld [%g1+8], %o2 + ld [%g1+12], %o3 + call %g3, 0 + ld [%g1+16], %o4 + nop + ld [%i0+12], %o7 + cmp %o7, 1 + be .LL10 + mov %o0, %l0 + cmp %o7, 0 + be,a .LL59 + ld [%i0+8], %g3 + cmp %o7, 2 + be .LL53 + cmp %o7, 3 + be .LL53 + cmp %o7, 4 + be .LL53 + cmp %o7, 5 + be .LL52 + cmp %o7, 6 + be .LL52 + cmp %o7, 7 + be .LL51 + cmp %o7, 8 + be .LL51 + cmp %o7, 9 + be .LL51 + cmp %o7, 10 + be .LL51 + add %o7, -11, %g3 + cmp %g3, 1 + bgu .LL31 + cmp %o7, 13 + ld [%i0+8], %g3 + st %o0, [%g3] + b .LL10 + st %o1, [%g3+4] +.LL31: + be .LL56 + cmp %o7, 14 + be .LL57 + cmp %o7, 15 + be .LL51 + cmp %o7, 16 + bne .LL10 + nop + ld [%i0], %g3 + andcc %g3, 2, %g0 + be .LL10 + nop + ld [%i0+16], %g3 + cmp %g3, 1 + be .LL53 + cmp %g3, 2 + be .LL52 + cmp %g3, 4 + bne .LL10 + nop +.LL51: + ld [%i0+8], %g3 +.LL59: + b .LL10 + st %l0, [%g3] +.LL52: + ld [%i0+8], %g3 + b .LL10 + sth %l0, [%g3] +.LL53: + ld [%i0+8], %g3 + b .LL10 + stb %l0, [%g3] +.LL57: + ld [%i0+8], %g3 + b .LL10 + std %f0, [%g3] +.LL56: + ld [%i0], %g3 + andcc %g3, 32, %g0 + bne,a .LL34 + fdtos %f0, %f0 +.LL34: + ld [%i0+8], %g3 + b .LL10 + st %f0, [%g3] +.LL55: + andcc %g3, 16, %g0 + be,a .LL60 + ld [%g1+20], %o5 + b .LL58 + ld [%i0+16], %l0 +.LL54: + ld [%i0+8], %g3 + b .LL2 + st %g3, [%sp+64] +.LL58: + sethi %hi(-1614774272), %g3 + sethi %hi(16777216), %o7 + st %g3, [%fp-32] + st %o7, [%fp-28] + sethi %hi(-1341120512), %o7 + sethi %hi(-2117607424), %g3 + st %o7, [%fp-20] + or %g3, 8, %g3 + and %l0, 4095, %l0 + st %g3, [%fp-16] + sethi %hi(-2115502080), %o7 + st %l0, [%fp-24] + st %o7, [%fp-12] + add %fp, -32, %g3 + iflush %g3 + add %fp, -24, %o7 + iflush %o7 + add %fp, -16, %g3 + iflush %g3 + add %fp, -12, %o7 + iflush %o7 + ld [%g1+20], %o5 + ld [%i0+4], %g2 + ld [%g1], %o0 + ld [%g1+4], %o1 + ld [%g1+8], %o2 + ld [%g1+12], %o3 + jmp %fp-32 + ld [%g1+16], %o4 +.LL10: + ret + restore %g0, 0, %o0 +.LLfe1: + .size avcall_call,.LLfe1-avcall_call + .ident "GCC: (GNU) 3.1" diff --git a/avcall/avcall-sparc-macro.S b/avcall/avcall-sparc-macro.S new file mode 100644 index 0000000..7d4da98 --- /dev/null +++ b/avcall/avcall-sparc-macro.S @@ -0,0 +1,172 @@ +#include "asm-sparc.h" + .section ".text" + .align 4 + .global C(avcall_call) + DECLARE_FUNCTION(avcall_call) + .proc 04 +FUNBEGIN(avcall_call) + !$PROLOGUE$ 0 + save %sp, -1152, %sp + ld [%i0+20], %g3 + add %sp, 68, %l1 + ld [%i0+24], %o7 + ld [%i0+12], %l0 + sub %g3, %o7, %g3 + cmp %l0, 16 + be L(L54) + sra %g3, 2, %g4 +L(L2): + mov 6, %l0 + cmp %l0, %g4 + bge L(L49) + ld [%i0+24], %g1 +L(L7): + sll %l0, 2, %g3 + ld [%g1+%g3], %o7 + add %l0, 1, %l0 + cmp %l0, %g4 + bl L(L7) + st %o7, [%l1+%g3] +L(L49): + ld [%i0+12], %g3 + cmp %g3, 16 + be,a L(L55) + ld [%i0], %g3 + ld [%g1+20], %o5 +L(L60): + ld [%i0+4], %g3 + ld [%g1], %o0 + ld [%g1+4], %o1 + ld [%g1+8], %o2 + ld [%g1+12], %o3 + call %g3, 0 + ld [%g1+16], %o4 + nop + ld [%i0+12], %o7 + cmp %o7, 1 + be L(L10) + mov %o0, %l0 + cmp %o7, 0 + be,a L(L59) + ld [%i0+8], %g3 + cmp %o7, 2 + be L(L53) + cmp %o7, 3 + be L(L53) + cmp %o7, 4 + be L(L53) + cmp %o7, 5 + be L(L52) + cmp %o7, 6 + be L(L52) + cmp %o7, 7 + be L(L51) + cmp %o7, 8 + be L(L51) + cmp %o7, 9 + be L(L51) + cmp %o7, 10 + be L(L51) + add %o7, -11, %g3 + cmp %g3, 1 + bgu L(L31) + cmp %o7, 13 + ld [%i0+8], %g3 + st %o0, [%g3] + b L(L10) + st %o1, [%g3+4] +L(L31): + be L(L56) + cmp %o7, 14 + be L(L57) + cmp %o7, 15 + be L(L51) + cmp %o7, 16 + bne L(L10) + nop + ld [%i0], %g3 + andcc %g3, 2, %g0 + be L(L10) + nop + ld [%i0+16], %g3 + cmp %g3, 1 + be L(L53) + cmp %g3, 2 + be L(L52) + cmp %g3, 4 + bne L(L10) + nop +L(L51): + ld [%i0+8], %g3 +L(L59): + b L(L10) + st %l0, [%g3] +L(L52): + ld [%i0+8], %g3 + b L(L10) + sth %l0, [%g3] +L(L53): + ld [%i0+8], %g3 + b L(L10) + stb %l0, [%g3] +L(L57): + ld [%i0+8], %g3 + b L(L10) + std %f0, [%g3] +L(L56): + ld [%i0], %g3 + andcc %g3, 32, %g0 + bne,a L(L34) + fdtos %f0, %f0 +L(L34): + ld [%i0+8], %g3 + b L(L10) + st %f0, [%g3] +L(L55): + andcc %g3, 16, %g0 + be,a L(L60) + ld [%g1+20], %o5 + b L(L58) + ld [%i0+16], %l0 +L(L54): + ld [%i0+8], %g3 + b L(L2) + st %g3, [%sp+64] +L(L58): + sethi %hi(-1614774272), %g3 + sethi %hi(16777216), %o7 + st %g3, [%fp-32] + st %o7, [%fp-28] + sethi %hi(-1341120512), %o7 + sethi %hi(-2117607424), %g3 + st %o7, [%fp-20] + or %g3, 8, %g3 + and %l0, 4095, %l0 + st %g3, [%fp-16] + sethi %hi(-2115502080), %o7 + st %l0, [%fp-24] + st %o7, [%fp-12] + add %fp, -32, %g3 + iflush %g3 + add %fp, -24, %o7 + iflush %o7 + add %fp, -16, %g3 + iflush %g3 + add %fp, -12, %o7 + iflush %o7 + ld [%g1+20], %o5 + ld [%i0+4], %g2 + ld [%g1], %o0 + ld [%g1+4], %o1 + ld [%g1+8], %o2 + ld [%g1+12], %o3 + jmp %fp-32 + ld [%g1+16], %o4 +L(L10): + ret + restore %g0, 0, %o0 +L(Lfe1): + FUNEND(avcall_call) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/avcall/avcall-sparc.c b/avcall/avcall-sparc.c new file mode 100644 index 0000000..64e649b --- /dev/null +++ b/avcall/avcall-sparc.c @@ -0,0 +1,192 @@ +/** + Copyright 1993 Bill Triggs + Copyright 1995-2017 Bruno Haible + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . +**/ +/*---------------------------------------------------------------------- + !!! THIS ROUTINE MUST BE COMPILED gcc -O !!! + + Foreign function interface for a Sun4 Sparc with gcc/sun-cc. + + This calls a C function with an argument list built up using macros + defined in avcall.h. + + Sparc Argument Passing Conventions + + The first 6 words of arguments are passed in integer registers o0-o5 + regardless of type or alignment. (Registers are windowed: o0-o5 become + i0-i5 if the called function executes a ‘save’ instruction.) Remaining + arguments are pushed onto the stack starting at a fixed offset + ("argframe"). Space is left on the stack frame for temporary storage of + the register arguments as well. + + Doubles may be cut in half and misaligned. Shorter integers are + always promoted to word-length. Functions with K&R-style declarations + and float args pass them as doubles and truncate them on function entry. + Structures are passed as pointers to a local copy of the structure made + by the caller. + + Integers and pointers are returned in o0, floats in f0, doubles in + f0/f1. If the function returns a structure a pointer to space + allocated by the caller is pushed onto the stack immediately + before the function arguments. Gcc without -fpcc-struct-return returns + <= 4 byte structures as integers. + + Sun cc allocates temporary space for a returned structure just below + the current frame pointer $fp (the $sp of the caller), and the caller + must copy them from there. It also returns the temp address in $o0, but + that gets nuked in the return in the code below so we can't use it. + **The Sun cc struct return stuff below is a kludge**, but seems to work + on the test cases... + + Compile this routine with gcc for the __asm__ extensions and with + optimisation on (-O or -O2 or -g -O) so that argframe is set to the + correct offset. (%sp is used differently in non-optimized code). + For Sun cc, use the pre-compiled assembler version of this routine. + ----------------------------------------------------------------------*/ +#include "avcall-internal.h" + +#define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) + +register void* callee __asm__("%g2"); /* any global or local register */ +register __avword o0 __asm__("%o0"); +register __avword o1 __asm__("%o1"); +register __avword o2 __asm__("%o2"); +register __avword o3 __asm__("%o3"); +register __avword o4 __asm__("%o4"); +register __avword o5 __asm__("%o5"); + +int +avcall_call(av_alist* list) +{ + /*?? We probably need to make space for Sun cc + struct return somewhere here. */ + register __avword* sp __asm__("%sp"); /* C names for registers */ + register float fret __asm__("%f0"); /* %f0 */ + register double dret __asm__("%f0"); /* %f0,%f1 */ + + __av_alist* l = &AV_LIST_INNER(list); + + __avword trampoline[6]; /* room for a trampoline */ + __avword space[__AV_ALIST_WORDS]; /* space for callee's stack frame */ + __avword *argframe = sp + 17; /* stack offset for argument list */ + int arglen = l->aptr - l->args; + __avword i; + + if (l->rtype == __AVstruct) + argframe[-1] = (__avword)l->raddr; /* push struct return address */ + + { + int i; + for (i = 6; i < arglen; i++) /* push excess function args */ + argframe[i] = l->args[i]; + } + + if ((l->rtype == __AVstruct) && (l->flags & __AV_SUNPROCC_STRUCT_RETURN)) + /* SUNWspro cc compiled functions don't copy the structure to the area + * pointed to by argframe[-1] unless the caller has a proper "unimp n" + * instruction. We generate the calling instructions on the stack. */ + { + trampoline[0] = 0x9FC08000; /* call %g2 */ + trampoline[1] = 0x01000000; /* nop */ + trampoline[2] = l->rsize & 0xFFF; /* unimp n */ + trampoline[3] = 0xB0102000; /* mov 0,%i0 */ + trampoline[4] = 0x81C7E008; /* ret */ + trampoline[5] = 0x81E80000; /* restore */ + __asm__ __volatile__ ("iflush %0" : : "r" (&trampoline[0])); + __asm__ __volatile__ ("iflush %0" : : "r" (&trampoline[2])); + __asm__ __volatile__ ("iflush %0" : : "r" (&trampoline[4])); + __asm__ __volatile__ ("iflush %0" : : "r" (&trampoline[5])); + o0 = l->args[0]; o1 = l->args[1]; o2 = l->args[2]; + o3 = l->args[3]; o4 = l->args[4]; o5 = l->args[5]; + callee = l->func; + goto *(void*)trampoline; + } + + /* call function with 1st 6 args */ + i = ({ register __avword iret __asm__("%o0"); + iret = (*l->func)(l->args[0], l->args[1], l->args[2], + l->args[3], l->args[4], l->args[5]); + asm ("nop"); /* struct returning functions skip this instruction */ + iret; + }); + + /* save return value */ + if (l->rtype == __AVvoid) { + } else + if (l->rtype == __AVword) { + RETURN(__avword, i); + } else + if (l->rtype == __AVchar) { + RETURN(char, i); + } else + if (l->rtype == __AVschar) { + RETURN(signed char, i); + } else + if (l->rtype == __AVuchar) { + RETURN(unsigned char, i); + } else + if (l->rtype == __AVshort) { + RETURN(short, i); + } else + if (l->rtype == __AVushort) { + RETURN(unsigned short, i); + } else + if (l->rtype == __AVint) { + RETURN(int, i); + } else + if (l->rtype == __AVuint) { + RETURN(unsigned int, i); + } else + if (l->rtype == __AVlong) { + RETURN(long, i); + } else + if (l->rtype == __AVulong) { + RETURN(unsigned long, i); + } else + if (l->rtype == __AVlonglong || l->rtype == __AVulonglong) { + void* raddr = l->raddr; + ((__avword*)raddr)[0] = i; + ((__avword*)raddr)[1] = o1; + } else + if (l->rtype == __AVfloat) { + /* old Sun cc returns floats as doubles */ + if (l->flags & __AV_SUNCC_FLOAT_RETURN) { + RETURN(float, (float)dret); + } else { + RETURN(float, fret); + } + } else + if (l->rtype == __AVdouble) { + RETURN(double, dret); + } else + if (l->rtype == __AVvoidp) { + RETURN(void*, i); + } else + if (l->rtype == __AVstruct) { + if (l->flags & __AV_SMALL_STRUCT_RETURN) { + if (l->rsize == sizeof(char)) { + RETURN(char, i); + } else + if (l->rsize == sizeof(short)) { + RETURN(short, i); + } else + if (l->rsize == sizeof(int)) { + RETURN(int, i); + } + } + } + return 0; +} diff --git a/avcall/avcall-sparc64-linux.s b/avcall/avcall-sparc64-linux.s new file mode 100644 index 0000000..1f9781e --- /dev/null +++ b/avcall/avcall-sparc64-linux.s @@ -0,0 +1,525 @@ + .file "avcall-sparc64.c" + .section ".text" + .align 4 + .global avcall_call + .type avcall_call, #function + .proc 04 +avcall_call: + .register %g2, #scratch + .register %g3, #scratch + save %sp, -192, %sp + ldx [%i0+48], %g2 + ldx [%i0+40], %g1 + lduw [%i0+68], %g3 + sub %g1, %g2, %g1 + cmp %g3, 0 + be,pt %icc, .LL2 + srlx %g1, 3, %o7 + andcc %g3, 1, %g0 + bne,pt %xcc, .LL100 + andcc %g3, 2, %g0 + bne,pt %xcc, .LL101 + andcc %g3, 4, %g0 +.LL130: + bne,pt %xcc, .LL102 + andcc %g3, 8, %g0 +.LL129: + bne,pt %xcc, .LL103 + andcc %g3, 16, %g0 +.LL128: + bne,pt %xcc, .LL104 + andcc %g3, 32, %g0 +.LL127: + bne,pt %xcc, .LL105 + andcc %g3, 64, %g0 +.LL126: + bne,pt %xcc, .LL106 + andcc %g3, 128, %g0 +.LL125: + bne,pt %xcc, .LL107 + andcc %g3, 256, %g0 +.LL124: + bne,pt %xcc, .LL108 + andcc %g3, 512, %g0 +.LL123: + bne,pt %xcc, .LL109 + andcc %g3, 1024, %g0 +.LL134: + bne,pt %xcc, .LL110 + andcc %g3, 2048, %g0 +.LL133: + bne,pt %xcc, .LL111 + sethi %hi(4096), %g1 +.LL132: + andcc %g3, %g1, %g0 + bne,pt %icc, .LL112 + sethi %hi(8192), %g1 +.LL131: + andcc %g3, %g1, %g0 + bne,pt %icc, .LL113 + sethi %hi(16384), %g1 +.LL136: + andcc %g3, %g1, %g0 + bne,pt %icc, .LL114 + sethi %hi(32768), %g1 +.LL135: + andcc %g3, %g1, %g0 + bne,pt %icc, .LL115 + nop +.LL2: + cmp %o7, 6 +.LL137: + bg,pn %icc, .LL120 + add %o7, -6, %g1 + ldx [%i0+48], %g3 +.LL122: + ldx [%g3+40], %o5 +.LL119: + ldx [%i0+8], %g1 + ldx [%g3], %o0 + ldx [%g3+8], %o1 + ldx [%g3+16], %o2 + ldx [%g3+24], %o3 + call %g1, 0 + ldx [%g3+32], %o4 + mov %o0, %l3 + nop + lduw [%i0+24], %g1 + cmp %g1, 1 + be,pn %icc, .LL38 + cmp %g1, 0 + be,a,pt %icc, .LL121 + ldx [%i0+16], %g1 + cmp %g1, 2 + be,pn %icc, .LL92 + cmp %g1, 3 + be,pn %icc, .LL92 + cmp %g1, 4 + be,pn %icc, .LL92 + cmp %g1, 5 + be,pn %icc, .LL93 + cmp %g1, 6 + be,pn %icc, .LL93 + cmp %g1, 7 + be,pn %icc, .LL94 + cmp %g1, 8 + be,pn %icc, .LL94 + cmp %g1, 9 + be,pn %icc, .LL98 + cmp %g1, 10 + be,pn %icc, .LL98 + cmp %g1, 11 + be,pn %icc, .LL98 + cmp %g1, 12 + be,pn %icc, .LL98 + cmp %g1, 13 + be,pn %icc, .LL117 + cmp %g1, 14 + be,pn %icc, .LL118 + cmp %g1, 15 + be,pn %icc, .LL98 + cmp %g1, 16 + bne,pt %icc, .LL38 + nop + lduw [%i0], %g1 + andcc %g1, 512, %g0 + be,pn %xcc, .LL38 + nop + ldx [%i0+32], %g2 + add %g2, -1, %g1 + cmp %g1, 31 + bgu,pn %xcc, .LL38 + cmp %g2, 8 + ldx [%i0+16], %g1 + and %g1, 7, %g5 + and %g1, -8, %i0 + bgu,pt %xcc, .LL73 + add %g2, %g5, %g4 + cmp %g4, 8 + bgu,pt %xcc, .LL75 + sllx %g5, 3, %g2 + sllx %g5, 3, %g3 + sllx %g4, 3, %g4 + ldx [%i0], %g5 + srax %o0, %g3, %o7 + sub %g0, %g4, %g4 + xor %g5, %o7, %o7 + xnor %g0, %g3, %g3 + mov 2, %g1 + mov 1, %g2 + sllx %g1, %g3, %g1 + sllx %g2, %g4, %g2 + sub %g1, %g2, %g1 + and %g1, %o7, %g1 + xor %g5, %g1, %g5 + stx %g5, [%i0] +.LL38: + return %i7+8 + mov 0, %o0 +.LL98: + ldx [%i0+16], %g1 +.LL121: + stx %l3, [%g1] + return %i7+8 + mov 0, %o0 +.LL115: + ldd [%g2+120],%f30 + cmp %o7, 6 + ble,a,pt %icc, .LL122 + ldx [%i0+48], %g3 + add %o7, -6, %g1 +.LL120: + sra %g1, 0, %g1 + sllx %g1, 3, %g1 + add %g1, 15, %g1 + and %g1, -16, %g1 + mov 6, %g4 + sub %sp, %g1, %sp + ldx [%i0+48], %g3 + add %sp, 2238, %g1 + and %g1, -16, %g1 + add %g1, -48, %g5 +.LL37: + sra %g4, 0, %g1 + add %g4, 1, %g4 + sllx %g1, 3, %g1 + cmp %o7, %g4 + ldx [%g1+%g3], %g2 + bne,pt %icc, .LL37 + stx %g2, [%g5+%g1] + ba,pt %xcc, .LL119 + ldx [%g3+40], %o5 +.LL107: + ldd [%g2+56],%f14 + andcc %g3, 256, %g0 + be,pt %xcc, .LL123 + andcc %g3, 512, %g0 + ba,pt %xcc, .LL108 + nop +.LL106: + ldd [%g2+48],%f12 + andcc %g3, 128, %g0 + be,pt %xcc, .LL124 + andcc %g3, 256, %g0 + ba,pt %xcc, .LL107 + nop +.LL105: + ldd [%g2+40],%f10 + andcc %g3, 64, %g0 + be,pt %xcc, .LL125 + andcc %g3, 128, %g0 + ba,pt %xcc, .LL106 + nop +.LL104: + ldd [%g2+32],%f8 + andcc %g3, 32, %g0 + be,pt %xcc, .LL126 + andcc %g3, 64, %g0 + ba,pt %xcc, .LL105 + nop +.LL103: + ldd [%g2+24],%f6 + andcc %g3, 16, %g0 + be,pt %xcc, .LL127 + andcc %g3, 32, %g0 + ba,pt %xcc, .LL104 + nop +.LL102: + ldd [%g2+16],%f4 + andcc %g3, 8, %g0 + be,pt %xcc, .LL128 + andcc %g3, 16, %g0 + ba,pt %xcc, .LL103 + nop +.LL101: + ldd [%g2+8],%f2 + andcc %g3, 4, %g0 + be,pt %xcc, .LL129 + andcc %g3, 8, %g0 + ba,pt %xcc, .LL102 + nop +.LL100: + ldd [%g2+0],%f0 + andcc %g3, 2, %g0 + be,pt %xcc, .LL130 + andcc %g3, 4, %g0 + ba,pt %xcc, .LL101 + nop +.LL111: + ldd [%g2+88],%f22 + sethi %hi(4096), %g1 + andcc %g3, %g1, %g0 + be,pt %icc, .LL131 + sethi %hi(8192), %g1 + ba,pt %xcc, .LL112 + nop +.LL110: + ldd [%g2+80],%f20 + andcc %g3, 2048, %g0 + be,pt %xcc, .LL132 + sethi %hi(4096), %g1 + ba,pt %xcc, .LL111 + nop +.LL109: + ldd [%g2+72],%f18 + andcc %g3, 1024, %g0 + be,pt %xcc, .LL133 + andcc %g3, 2048, %g0 + ba,pt %xcc, .LL110 + nop +.LL108: + ldd [%g2+64],%f16 + andcc %g3, 512, %g0 + be,pt %xcc, .LL134 + andcc %g3, 1024, %g0 + ba,pt %xcc, .LL109 + nop +.LL113: + ldd [%g2+104],%f26 + sethi %hi(16384), %g1 + andcc %g3, %g1, %g0 + be,pt %icc, .LL135 + sethi %hi(32768), %g1 + ba,pt %xcc, .LL114 + nop +.LL112: + ldd [%g2+96],%f24 + sethi %hi(8192), %g1 + andcc %g3, %g1, %g0 + be,pt %icc, .LL136 + sethi %hi(16384), %g1 + ba,pt %xcc, .LL113 + nop +.LL114: + ldd [%g2+112],%f28 + sethi %hi(32768), %g1 + andcc %g3, %g1, %g0 + be,pt %icc, .LL137 + cmp %o7, 6 + ba,pt %xcc, .LL115 + nop +.LL92: + ldx [%i0+16], %g1 + stb %l3, [%g1] + return %i7+8 + mov 0, %o0 +.LL93: + ldx [%i0+16], %g1 + ba,pt %xcc, .LL38 + sth %l3, [%g1] +.LL94: + ldx [%i0+16], %g1 + ba,pt %xcc, .LL38 + st %l3, [%g1] +.LL117: + ldx [%i0+16], %g1 + ba,pt %xcc, .LL38 + st %f0, [%g1] +.LL118: + ldx [%i0+16], %g1 + ba,pt %xcc, .LL38 + std %f0, [%g1] +.LL75: + sllx %g4, 3, %l0 + ldx [%i0], %g5 + srax %o0, %g2, %g4 + sub %g0, %g2, %g3 + xor %g5, %g4, %g4 + xnor %g0, %g2, %g2 + mov 2, %g1 + sllx %g1, %g2, %g1 + add %g1, -1, %g1 + and %g1, %g4, %g1 + ldx [%i0+8], %o7 + xor %g5, %g1, %g5 + sub %g0, %l0, %l0 + sllx %o0, %g3, %g3 + mov -1, %g1 + xor %o7, %g3, %g3 + sllx %g1, %l0, %g1 + stx %g5, [%i0] + and %g1, %g3, %g1 + xor %o7, %g1, %o7 + ba,pt %xcc, .LL38 + stx %o7, [%i0+8] +.LL73: + cmp %g2, 16 + bgu,pt %xcc, .LL77 + cmp %g2, 24 + sll %g5, 3, %l2 + xnor %g0, %l2, %g2 + ldx [%i0], %g3 + mov 2, %g1 + cmp %g4, 16 + sllx %g1, %g2, %g1 + srax %o0, %l2, %g2 + add %g1, -1, %g1 + xor %g3, %g2, %g2 + and %g1, %g2, %g1 + xor %g3, %g1, %g3 + bgu,pt %xcc, .LL79 + stx %g3, [%i0] + sllx %g5, 2, %g5 + mov 32, %g2 + sub %g2, %g5, %g2 + ldx [%i0+8], %g3 + sllx %o0, %g2, %g1 + sllx %g4, 3, %g4 + sllx %g1, %g2, %g1 + srax %o1, %l2, %o7 + sub %g0, %g4, %g4 + or %g1, %o7, %g1 + mov -1, %g2 + xor %g3, %g1, %g1 + sllx %g2, %g4, %g2 + and %g2, %g1, %g2 + xor %g3, %g2, %g3 + ba,pt %xcc, .LL38 + stx %g3, [%i0+8] +.LL77: + bgu,pt %xcc, .LL81 + sll %g5, 3, %l4 + sll %g5, 3, %l2 + xnor %g0, %l2, %g2 + ldx [%i0], %g3 + mov 2, %g1 + cmp %g4, 24 + sllx %g1, %g2, %g1 + srax %o0, %l2, %g2 + add %g1, -1, %g1 + xor %g3, %g2, %g2 + and %g1, %g2, %g1 + xor %g3, %g1, %g3 + bgu,pt %xcc, .LL83 + stx %g3, [%i0] + sllx %g5, 2, %g2 + mov 32, %g1 + sub %g1, %g2, %g1 + ldx [%i0+16], %o7 + sllx %g4, 3, %g5 + sllx %o0, %g1, %g3 + sllx %o1, %g1, %g2 + sllx %g3, %g1, %g3 + sllx %g2, %g1, %g2 + srax %o2, %l2, %l0 + sub %g0, %g5, %g5 + or %g2, %l0, %g2 + srax %o1, %l2, %g4 + xor %o7, %g2, %g2 + or %g3, %g4, %g3 + mov -1, %g1 + stx %g3, [%i0+8] + sllx %g1, %g5, %g1 + and %g1, %g2, %g1 + xor %o7, %g1, %o7 + ba,pt %xcc, .LL38 + stx %o7, [%i0+16] +.LL79: + srax %o1, %l2, %g5 + mov 64, %g1 + sub %g1, %l2, %g1 + sllx %o1, %g1, %g2 + sllx %o0, %g1, %g1 + or %g1, %g5, %g1 + sllx %g4, 3, %g3 + stx %g1, [%i0+8] + ldx [%i0+16], %g4 + sub %g0, %g3, %g3 + xor %g4, %g2, %g2 + mov -1, %g1 + sllx %g1, %g3, %g1 + and %g1, %g2, %g1 + xor %g4, %g1, %g4 + ba,pt %xcc, .LL38 + stx %g4, [%i0+16] +.LL83: + sllx %g4, 3, %g5 + srax %o2, %l2, %l0 + mov 64, %g1 + sub %g1, %l2, %g1 + sllx %o2, %g1, %g4 + sllx %o0, %g1, %g2 + sllx %o1, %g1, %g1 + or %g1, %l0, %g1 + ldx [%i0+24], %o7 + sub %g0, %g5, %g5 + xor %o7, %g4, %g4 + stx %g1, [%i0+16] + srax %o1, %l2, %g3 + mov -1, %g1 + or %g2, %g3, %g2 + sllx %g1, %g5, %g1 + stx %g2, [%i0+8] + and %g1, %g4, %g1 + xor %o7, %g1, %o7 + ba,pt %xcc, .LL38 + stx %o7, [%i0+24] +.LL81: + xnor %g0, %l4, %g2 + ldx [%i0], %g3 + mov 2, %g1 + cmp %g4, 32 + sllx %g1, %g2, %g1 + srax %o0, %l4, %g2 + add %g1, -1, %g1 + xor %g3, %g2, %g2 + and %g1, %g2, %g1 + xor %g3, %g1, %g3 + bgu,pt %xcc, .LL85 + stx %g3, [%i0] + sllx %g5, 2, %g2 + mov 32, %g1 + sub %g1, %g2, %g1 + ldx [%i0+24], %l0 + sllx %g4, 3, %l1 + sllx %o0, %g1, %g3 + sllx %o1, %g1, %g4 + sllx %g3, %g1, %g3 + sllx %g4, %g1, %g4 + sllx %o2, %g1, %g2 + srax %o3, %l4, %l2 + sllx %g2, %g1, %g2 + sub %g0, %l1, %l1 + or %g2, %l2, %g2 + srax %o1, %l4, %g5 + xor %l0, %g2, %g2 + or %g3, %g5, %g3 + srax %o2, %l4, %o7 + mov -1, %g1 + or %g4, %o7, %g4 + sllx %g1, %l1, %g1 + stx %g3, [%i0+8] + and %g1, %g2, %g1 + stx %g4, [%i0+16] + xor %l0, %g1, %l0 + ba,pt %xcc, .LL38 + stx %l0, [%i0+24] +.LL85: + srax %o3, %l4, %l2 + mov 64, %g1 + sub %g1, %l4, %g1 + sllx %o3, %g1, %o7 + sllx %o0, %g1, %g2 + sllx %o1, %g1, %g3 + sllx %o2, %g1, %g1 + or %g1, %l2, %g1 + ldx [%i0+32], %l0 + sllx %g4, 3, %l1 + xor %l0, %o7, %o7 + sub %g0, %l1, %l1 + stx %g1, [%i0+24] + srax %o1, %l4, %g4 + srax %o2, %l4, %g5 + or %g2, %g4, %g2 + or %g3, %g5, %g3 + mov -1, %g1 + stx %g2, [%i0+8] + sllx %g1, %l1, %g1 + stx %g3, [%i0+16] + and %g1, %o7, %g1 + xor %l0, %g1, %l0 + ba,pt %xcc, .LL38 + stx %l0, [%i0+32] + .size avcall_call, .-avcall_call + .ident "GCC: (GNU) 4.0.2" + .section ".note.GNU-stack" diff --git a/avcall/avcall-sparc64-macro.S b/avcall/avcall-sparc64-macro.S new file mode 100644 index 0000000..e538a4e --- /dev/null +++ b/avcall/avcall-sparc64-macro.S @@ -0,0 +1,526 @@ +#include "asm-sparc.h" + .section ".text" + .align 4 + .global C(avcall_call) + DECLARE_FUNCTION(avcall_call) + .proc 04 +FUNBEGIN(avcall_call) + .register %g2, $scratch + .register %g3, $scratch + save %sp, -192, %sp + ldx [%i0+48], %g2 + ldx [%i0+40], %g1 + lduw [%i0+68], %g3 + sub %g1, %g2, %g1 + cmp %g3, 0 + be,pt %icc, L(L2) + srlx %g1, 3, %o7 + andcc %g3, 1, %g0 + bne,pt %xcc, L(L100) + andcc %g3, 2, %g0 + bne,pt %xcc, L(L101) + andcc %g3, 4, %g0 +L(L130): + bne,pt %xcc, L(L102) + andcc %g3, 8, %g0 +L(L129): + bne,pt %xcc, L(L103) + andcc %g3, 16, %g0 +L(L128): + bne,pt %xcc, L(L104) + andcc %g3, 32, %g0 +L(L127): + bne,pt %xcc, L(L105) + andcc %g3, 64, %g0 +L(L126): + bne,pt %xcc, L(L106) + andcc %g3, 128, %g0 +L(L125): + bne,pt %xcc, L(L107) + andcc %g3, 256, %g0 +L(L124): + bne,pt %xcc, L(L108) + andcc %g3, 512, %g0 +L(L123): + bne,pt %xcc, L(L109) + andcc %g3, 1024, %g0 +L(L134): + bne,pt %xcc, L(L110) + andcc %g3, 2048, %g0 +L(L133): + bne,pt %xcc, L(L111) + sethi %hi(4096), %g1 +L(L132): + andcc %g3, %g1, %g0 + bne,pt %icc, L(L112) + sethi %hi(8192), %g1 +L(L131): + andcc %g3, %g1, %g0 + bne,pt %icc, L(L113) + sethi %hi(16384), %g1 +L(L136): + andcc %g3, %g1, %g0 + bne,pt %icc, L(L114) + sethi %hi(32768), %g1 +L(L135): + andcc %g3, %g1, %g0 + bne,pt %icc, L(L115) + nop +L(L2): + cmp %o7, 6 +L(L137): + bg,pn %icc, L(L120) + add %o7, -6, %g1 + ldx [%i0+48], %g3 +L(L122): + ldx [%g3+40], %o5 +L(L119): + ldx [%i0+8], %g1 + ldx [%g3], %o0 + ldx [%g3+8], %o1 + ldx [%g3+16], %o2 + ldx [%g3+24], %o3 + call %g1, 0 + ldx [%g3+32], %o4 + mov %o0, %l3 + nop + lduw [%i0+24], %g1 + cmp %g1, 1 + be,pn %icc, L(L38) + cmp %g1, 0 + be,a,pt %icc, L(L121) + ldx [%i0+16], %g1 + cmp %g1, 2 + be,pn %icc, L(L92) + cmp %g1, 3 + be,pn %icc, L(L92) + cmp %g1, 4 + be,pn %icc, L(L92) + cmp %g1, 5 + be,pn %icc, L(L93) + cmp %g1, 6 + be,pn %icc, L(L93) + cmp %g1, 7 + be,pn %icc, L(L94) + cmp %g1, 8 + be,pn %icc, L(L94) + cmp %g1, 9 + be,pn %icc, L(L98) + cmp %g1, 10 + be,pn %icc, L(L98) + cmp %g1, 11 + be,pn %icc, L(L98) + cmp %g1, 12 + be,pn %icc, L(L98) + cmp %g1, 13 + be,pn %icc, L(L117) + cmp %g1, 14 + be,pn %icc, L(L118) + cmp %g1, 15 + be,pn %icc, L(L98) + cmp %g1, 16 + bne,pt %icc, L(L38) + nop + lduw [%i0], %g1 + andcc %g1, 512, %g0 + be,pn %xcc, L(L38) + nop + ldx [%i0+32], %g2 + add %g2, -1, %g1 + cmp %g1, 31 + bgu,pn %xcc, L(L38) + cmp %g2, 8 + ldx [%i0+16], %g1 + and %g1, 7, %g5 + and %g1, -8, %i0 + bgu,pt %xcc, L(L73) + add %g2, %g5, %g4 + cmp %g4, 8 + bgu,pt %xcc, L(L75) + sllx %g5, 3, %g2 + sllx %g5, 3, %g3 + sllx %g4, 3, %g4 + ldx [%i0], %g5 + srax %o0, %g3, %o7 + sub %g0, %g4, %g4 + xor %g5, %o7, %o7 + xnor %g0, %g3, %g3 + mov 2, %g1 + mov 1, %g2 + sllx %g1, %g3, %g1 + sllx %g2, %g4, %g2 + sub %g1, %g2, %g1 + and %g1, %o7, %g1 + xor %g5, %g1, %g5 + stx %g5, [%i0] +L(L38): + return %i7+8 + mov 0, %o0 +L(L98): + ldx [%i0+16], %g1 +L(L121): + stx %l3, [%g1] + return %i7+8 + mov 0, %o0 +L(L115): + ldd [%g2+120],%f30 + cmp %o7, 6 + ble,a,pt %icc, L(L122) + ldx [%i0+48], %g3 + add %o7, -6, %g1 +L(L120): + sra %g1, 0, %g1 + sllx %g1, 3, %g1 + add %g1, 15, %g1 + and %g1, -16, %g1 + mov 6, %g4 + sub %sp, %g1, %sp + ldx [%i0+48], %g3 + add %sp, 2238, %g1 + and %g1, -16, %g1 + add %g1, -48, %g5 +L(L37): + sra %g4, 0, %g1 + add %g4, 1, %g4 + sllx %g1, 3, %g1 + cmp %o7, %g4 + ldx [%g1+%g3], %g2 + bne,pt %icc, L(L37) + stx %g2, [%g5+%g1] + ba,pt %xcc, L(L119) + ldx [%g3+40], %o5 +L(L107): + ldd [%g2+56],%f14 + andcc %g3, 256, %g0 + be,pt %xcc, L(L123) + andcc %g3, 512, %g0 + ba,pt %xcc, L(L108) + nop +L(L106): + ldd [%g2+48],%f12 + andcc %g3, 128, %g0 + be,pt %xcc, L(L124) + andcc %g3, 256, %g0 + ba,pt %xcc, L(L107) + nop +L(L105): + ldd [%g2+40],%f10 + andcc %g3, 64, %g0 + be,pt %xcc, L(L125) + andcc %g3, 128, %g0 + ba,pt %xcc, L(L106) + nop +L(L104): + ldd [%g2+32],%f8 + andcc %g3, 32, %g0 + be,pt %xcc, L(L126) + andcc %g3, 64, %g0 + ba,pt %xcc, L(L105) + nop +L(L103): + ldd [%g2+24],%f6 + andcc %g3, 16, %g0 + be,pt %xcc, L(L127) + andcc %g3, 32, %g0 + ba,pt %xcc, L(L104) + nop +L(L102): + ldd [%g2+16],%f4 + andcc %g3, 8, %g0 + be,pt %xcc, L(L128) + andcc %g3, 16, %g0 + ba,pt %xcc, L(L103) + nop +L(L101): + ldd [%g2+8],%f2 + andcc %g3, 4, %g0 + be,pt %xcc, L(L129) + andcc %g3, 8, %g0 + ba,pt %xcc, L(L102) + nop +L(L100): + ldd [%g2+0],%f0 + andcc %g3, 2, %g0 + be,pt %xcc, L(L130) + andcc %g3, 4, %g0 + ba,pt %xcc, L(L101) + nop +L(L111): + ldd [%g2+88],%f22 + sethi %hi(4096), %g1 + andcc %g3, %g1, %g0 + be,pt %icc, L(L131) + sethi %hi(8192), %g1 + ba,pt %xcc, L(L112) + nop +L(L110): + ldd [%g2+80],%f20 + andcc %g3, 2048, %g0 + be,pt %xcc, L(L132) + sethi %hi(4096), %g1 + ba,pt %xcc, L(L111) + nop +L(L109): + ldd [%g2+72],%f18 + andcc %g3, 1024, %g0 + be,pt %xcc, L(L133) + andcc %g3, 2048, %g0 + ba,pt %xcc, L(L110) + nop +L(L108): + ldd [%g2+64],%f16 + andcc %g3, 512, %g0 + be,pt %xcc, L(L134) + andcc %g3, 1024, %g0 + ba,pt %xcc, L(L109) + nop +L(L113): + ldd [%g2+104],%f26 + sethi %hi(16384), %g1 + andcc %g3, %g1, %g0 + be,pt %icc, L(L135) + sethi %hi(32768), %g1 + ba,pt %xcc, L(L114) + nop +L(L112): + ldd [%g2+96],%f24 + sethi %hi(8192), %g1 + andcc %g3, %g1, %g0 + be,pt %icc, L(L136) + sethi %hi(16384), %g1 + ba,pt %xcc, L(L113) + nop +L(L114): + ldd [%g2+112],%f28 + sethi %hi(32768), %g1 + andcc %g3, %g1, %g0 + be,pt %icc, L(L137) + cmp %o7, 6 + ba,pt %xcc, L(L115) + nop +L(L92): + ldx [%i0+16], %g1 + stb %l3, [%g1] + return %i7+8 + mov 0, %o0 +L(L93): + ldx [%i0+16], %g1 + ba,pt %xcc, L(L38) + sth %l3, [%g1] +L(L94): + ldx [%i0+16], %g1 + ba,pt %xcc, L(L38) + st %l3, [%g1] +L(L117): + ldx [%i0+16], %g1 + ba,pt %xcc, L(L38) + st %f0, [%g1] +L(L118): + ldx [%i0+16], %g1 + ba,pt %xcc, L(L38) + std %f0, [%g1] +L(L75): + sllx %g4, 3, %l0 + ldx [%i0], %g5 + srax %o0, %g2, %g4 + sub %g0, %g2, %g3 + xor %g5, %g4, %g4 + xnor %g0, %g2, %g2 + mov 2, %g1 + sllx %g1, %g2, %g1 + add %g1, -1, %g1 + and %g1, %g4, %g1 + ldx [%i0+8], %o7 + xor %g5, %g1, %g5 + sub %g0, %l0, %l0 + sllx %o0, %g3, %g3 + mov -1, %g1 + xor %o7, %g3, %g3 + sllx %g1, %l0, %g1 + stx %g5, [%i0] + and %g1, %g3, %g1 + xor %o7, %g1, %o7 + ba,pt %xcc, L(L38) + stx %o7, [%i0+8] +L(L73): + cmp %g2, 16 + bgu,pt %xcc, L(L77) + cmp %g2, 24 + sll %g5, 3, %l2 + xnor %g0, %l2, %g2 + ldx [%i0], %g3 + mov 2, %g1 + cmp %g4, 16 + sllx %g1, %g2, %g1 + srax %o0, %l2, %g2 + add %g1, -1, %g1 + xor %g3, %g2, %g2 + and %g1, %g2, %g1 + xor %g3, %g1, %g3 + bgu,pt %xcc, L(L79) + stx %g3, [%i0] + sllx %g5, 2, %g5 + mov 32, %g2 + sub %g2, %g5, %g2 + ldx [%i0+8], %g3 + sllx %o0, %g2, %g1 + sllx %g4, 3, %g4 + sllx %g1, %g2, %g1 + srax %o1, %l2, %o7 + sub %g0, %g4, %g4 + or %g1, %o7, %g1 + mov -1, %g2 + xor %g3, %g1, %g1 + sllx %g2, %g4, %g2 + and %g2, %g1, %g2 + xor %g3, %g2, %g3 + ba,pt %xcc, L(L38) + stx %g3, [%i0+8] +L(L77): + bgu,pt %xcc, L(L81) + sll %g5, 3, %l4 + sll %g5, 3, %l2 + xnor %g0, %l2, %g2 + ldx [%i0], %g3 + mov 2, %g1 + cmp %g4, 24 + sllx %g1, %g2, %g1 + srax %o0, %l2, %g2 + add %g1, -1, %g1 + xor %g3, %g2, %g2 + and %g1, %g2, %g1 + xor %g3, %g1, %g3 + bgu,pt %xcc, L(L83) + stx %g3, [%i0] + sllx %g5, 2, %g2 + mov 32, %g1 + sub %g1, %g2, %g1 + ldx [%i0+16], %o7 + sllx %g4, 3, %g5 + sllx %o0, %g1, %g3 + sllx %o1, %g1, %g2 + sllx %g3, %g1, %g3 + sllx %g2, %g1, %g2 + srax %o2, %l2, %l0 + sub %g0, %g5, %g5 + or %g2, %l0, %g2 + srax %o1, %l2, %g4 + xor %o7, %g2, %g2 + or %g3, %g4, %g3 + mov -1, %g1 + stx %g3, [%i0+8] + sllx %g1, %g5, %g1 + and %g1, %g2, %g1 + xor %o7, %g1, %o7 + ba,pt %xcc, L(L38) + stx %o7, [%i0+16] +L(L79): + srax %o1, %l2, %g5 + mov 64, %g1 + sub %g1, %l2, %g1 + sllx %o1, %g1, %g2 + sllx %o0, %g1, %g1 + or %g1, %g5, %g1 + sllx %g4, 3, %g3 + stx %g1, [%i0+8] + ldx [%i0+16], %g4 + sub %g0, %g3, %g3 + xor %g4, %g2, %g2 + mov -1, %g1 + sllx %g1, %g3, %g1 + and %g1, %g2, %g1 + xor %g4, %g1, %g4 + ba,pt %xcc, L(L38) + stx %g4, [%i0+16] +L(L83): + sllx %g4, 3, %g5 + srax %o2, %l2, %l0 + mov 64, %g1 + sub %g1, %l2, %g1 + sllx %o2, %g1, %g4 + sllx %o0, %g1, %g2 + sllx %o1, %g1, %g1 + or %g1, %l0, %g1 + ldx [%i0+24], %o7 + sub %g0, %g5, %g5 + xor %o7, %g4, %g4 + stx %g1, [%i0+16] + srax %o1, %l2, %g3 + mov -1, %g1 + or %g2, %g3, %g2 + sllx %g1, %g5, %g1 + stx %g2, [%i0+8] + and %g1, %g4, %g1 + xor %o7, %g1, %o7 + ba,pt %xcc, L(L38) + stx %o7, [%i0+24] +L(L81): + xnor %g0, %l4, %g2 + ldx [%i0], %g3 + mov 2, %g1 + cmp %g4, 32 + sllx %g1, %g2, %g1 + srax %o0, %l4, %g2 + add %g1, -1, %g1 + xor %g3, %g2, %g2 + and %g1, %g2, %g1 + xor %g3, %g1, %g3 + bgu,pt %xcc, L(L85) + stx %g3, [%i0] + sllx %g5, 2, %g2 + mov 32, %g1 + sub %g1, %g2, %g1 + ldx [%i0+24], %l0 + sllx %g4, 3, %l1 + sllx %o0, %g1, %g3 + sllx %o1, %g1, %g4 + sllx %g3, %g1, %g3 + sllx %g4, %g1, %g4 + sllx %o2, %g1, %g2 + srax %o3, %l4, %l2 + sllx %g2, %g1, %g2 + sub %g0, %l1, %l1 + or %g2, %l2, %g2 + srax %o1, %l4, %g5 + xor %l0, %g2, %g2 + or %g3, %g5, %g3 + srax %o2, %l4, %o7 + mov -1, %g1 + or %g4, %o7, %g4 + sllx %g1, %l1, %g1 + stx %g3, [%i0+8] + and %g1, %g2, %g1 + stx %g4, [%i0+16] + xor %l0, %g1, %l0 + ba,pt %xcc, L(L38) + stx %l0, [%i0+24] +L(L85): + srax %o3, %l4, %l2 + mov 64, %g1 + sub %g1, %l4, %g1 + sllx %o3, %g1, %o7 + sllx %o0, %g1, %g2 + sllx %o1, %g1, %g3 + sllx %o2, %g1, %g1 + or %g1, %l2, %g1 + ldx [%i0+32], %l0 + sllx %g4, 3, %l1 + xor %l0, %o7, %o7 + sub %g0, %l1, %l1 + stx %g1, [%i0+24] + srax %o1, %l4, %g4 + srax %o2, %l4, %g5 + or %g2, %g4, %g2 + or %g3, %g5, %g3 + mov -1, %g1 + stx %g2, [%i0+8] + sllx %g1, %l1, %g1 + stx %g3, [%i0+16] + and %g1, %o7, %g1 + xor %l0, %g1, %l0 + ba,pt %xcc, L(L38) + stx %l0, [%i0+32] + FUNEND(avcall_call) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/avcall/avcall-sparc64.c b/avcall/avcall-sparc64.c new file mode 100644 index 0000000..6a911da --- /dev/null +++ b/avcall/avcall-sparc64.c @@ -0,0 +1,521 @@ +/** + Copyright 1993 Bill Triggs + Copyright 1995-2017 Bruno Haible + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . +**/ +/*---------------------------------------------------------------------- + !!! THIS ROUTINE MUST BE COMPILED gcc -O !!! + + Foreign function interface for a Sparc v9 in 64-bit mode with gcc. + + This calls a C function with an argument list built up using macros + defined in avcall.h. + + Sparc 64-bit Argument Passing Conventions + + The argument registers are laid out as an array of 16 elements + and arguments are added sequentially. The first 6 int args and up to the + first 16 fp args (depending on size) are passed in regs. + + Slot Stack Integral Float Float in structure Double Long Double + ---- ----- -------- ----- ------------------ ------ ----------- + 15 [SP+248] %f31 %f30,%f31 %d30 + 14 [SP+240] %f29 %f28,%f29 %d28 %q28 + 13 [SP+232] %f27 %f26,%f27 %d26 + 12 [SP+224] %f25 %f24,%f25 %d24 %q24 + 11 [SP+216] %f23 %f22,%f23 %d22 + 10 [SP+208] %f21 %f20,%f21 %d20 %q20 + 9 [SP+200] %f19 %f18,%f19 %d18 + 8 [SP+192] %f17 %f16,%f17 %d16 %q16 + 7 [SP+184] %f15 %f14,%f15 %d14 + 6 [SP+176] %f13 %f12,%f13 %d12 %q12 + 5 [SP+168] %o5 %f11 %f10,%f11 %d10 + 4 [SP+160] %o4 %f9 %f8,%f9 %d8 %q8 + 3 [SP+152] %o3 %f7 %f6,%f7 %d6 + 2 [SP+144] %o2 %f5 %f4,%f5 %d4 %q4 + 1 [SP+136] %o1 %f3 %f2,%f3 %d2 + 0 [SP+128] %o0 %f1 %f0,%f1 %d0 %q0 + + Here SP = %sp if -mno-stack-bias or %sp+stack_bias otherwise. + + Integral arguments are always passed as 64 bit quantities appropriately + extended. + + Passing of floating point values is handled as follows. + If a prototype is in scope: + If the value is in a named argument (i.e. not a stdarg function or a + value not part of the ‘...’) then the value is passed in the appropriate + fp reg. + If the value is part of the ‘...’ and is passed in one of the first 6 + slots then the value is passed in the appropriate int reg. + If the value is part of the ‘...’ and is not passed in one of the first 6 + slots then the value is passed in memory. + If a prototype is not in scope: + If the value is one of the first 6 arguments the value is passed in the + appropriate integer reg and the appropriate fp reg. + If the value is not one of the first 6 arguments the value is passed in + the appropriate fp reg and in memory. + + Remaining arguments are pushed onto the stack starting at a fixed offset + Space is left on the stack frame for temporary storage of the register + arguments as well. + + Integers shorter than ‘long’ are always promoted to word-length + (zero-extended or sign-extended, according to their type). Structures + <= 16 bytes are passed embedded in the argument sequence; bigger structures + are passed by reference. + + Integers and pointers are returned in o0, floats in f0, doubles in + f0/f1. If the function returns a structure a pointer to space + allocated by the caller is pushed onto the stack immediately + before the function arguments. Structures <= 32 bytes are returned in + registers (integer/float/double registers, as appropriate). + + Long doubles are 16-byte aligned, but we don't deal with this here, so + we assume 8-byte alignment for everything. + + ----------------------------------------------------------------------*/ +#include "avcall-internal.h" + +#define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) +#define OFFSETOF(struct,member) ((int)&(((struct*)0)->member)) + +register __avword o0 __asm__("%o0"); +register __avword o1 __asm__("%o1"); +register __avword o2 __asm__("%o2"); +register __avword o3 __asm__("%o3"); +register __avword o4 __asm__("%o4"); +register __avword o5 __asm__("%o5"); + +int +avcall_call(av_alist* list) +{ + register __avword* sp __asm__("%sp"); /* C names for registers */ + register float fret __asm__("%f0"); /* %f0 */ + register double dret __asm__("%f0"); /* %f0,%f1 */ + + __av_alist* l = &AV_LIST_INNER(list); + + __avword trampoline[6]; /* room for a trampoline */ + int arglen = l->aptr - l->args; + __avword iret; + + if (l->darg_mask) { + /* push leading float/double args */ + __avword* a = l->args; + if (l->darg_mask & (1<<0)) + __asm__("ldd [%0+%1],%%f0" : : "p" (a), "i" (0 * sizeof (__avword))); + if (l->darg_mask & (1<<1)) + __asm__("ldd [%0+%1],%%f2" : : "p" (a), "i" (1 * sizeof (__avword))); + if (l->darg_mask & (1<<2)) + __asm__("ldd [%0+%1],%%f4" : : "p" (a), "i" (2 * sizeof (__avword))); + if (l->darg_mask & (1<<3)) + __asm__("ldd [%0+%1],%%f6" : : "p" (a), "i" (3 * sizeof (__avword))); + if (l->darg_mask & (1<<4)) + __asm__("ldd [%0+%1],%%f8" : : "p" (a), "i" (4 * sizeof (__avword))); + if (l->darg_mask & (1<<5)) + __asm__("ldd [%0+%1],%%f10" : : "p" (a), "i" (5 * sizeof (__avword))); + if (l->darg_mask & (1<<6)) + __asm__("ldd [%0+%1],%%f12" : : "p" (a), "i" (6 * sizeof (__avword))); + if (l->darg_mask & (1<<7)) + __asm__("ldd [%0+%1],%%f14" : : "p" (a), "i" (7 * sizeof (__avword))); + if (l->darg_mask & (1<<8)) + __asm__("ldd [%0+%1],%%f16" : : "p" (a), "i" (8 * sizeof (__avword))); + if (l->darg_mask & (1<<9)) + __asm__("ldd [%0+%1],%%f18" : : "p" (a), "i" (9 * sizeof (__avword))); + if (l->darg_mask & (1<<10)) + __asm__("ldd [%0+%1],%%f20" : : "p" (a), "i" (10 * sizeof (__avword))); + if (l->darg_mask & (1<<11)) + __asm__("ldd [%0+%1],%%f22" : : "p" (a), "i" (11 * sizeof (__avword))); + if (l->darg_mask & (1<<12)) + __asm__("ldd [%0+%1],%%f24" : : "p" (a), "i" (12 * sizeof (__avword))); + if (l->darg_mask & (1<<13)) + __asm__("ldd [%0+%1],%%f26" : : "p" (a), "i" (13 * sizeof (__avword))); + if (l->darg_mask & (1<<14)) + __asm__("ldd [%0+%1],%%f28" : : "p" (a), "i" (14 * sizeof (__avword))); + if (l->darg_mask & (1<<15)) + __asm__("ldd [%0+%1],%%f30" : : "p" (a), "i" (15 * sizeof (__avword))); + } + + if (arglen > 6) { + /* alloca space is separated from the extra outgoing args area by + * the area for compiler temps (addressable with postive offsets from sp) + * but they shouldn't be needed for this function, so, effectively, + * space returned by alloca is safe to use as the area for extra args. + */ + void *extra_args_area = __builtin_alloca(sizeof(__avword) * (arglen - 6)); + __avword *argframe = (__avword *)extra_args_area - 6; +#if 0 + /* "by construction" */ + assert(argframe == (void *)((unsigned long)(sp + 16)+2047)); +#endif + + int i; + for (i = 6; i < arglen; i++) /* push excess function args */ + argframe[i] = l->args[i]; + } + + /* call function with 1st 6 args */ + iret = ({ register __avword iretreg __asm__ ("%o0"); + iretreg = (*l->func)(l->args[0], l->args[1], l->args[2], + l->args[3], l->args[4], l->args[5]); + asm __volatile__("nop"); /* struct returning functions skip this instruction */ + iretreg; + }); + + /* save return value */ + if (l->rtype == __AVvoid) { + } else + if (l->rtype == __AVword) { + RETURN(__avword, iret); + } else + if (l->rtype == __AVchar) { + RETURN(char, iret); + } else + if (l->rtype == __AVschar) { + RETURN(signed char, iret); + } else + if (l->rtype == __AVuchar) { + RETURN(unsigned char, iret); + } else + if (l->rtype == __AVshort) { + RETURN(short, iret); + } else + if (l->rtype == __AVushort) { + RETURN(unsigned short, iret); + } else + if (l->rtype == __AVint) { + RETURN(int, iret); + } else + if (l->rtype == __AVuint) { + RETURN(unsigned int, iret); + } else + if (l->rtype == __AVlong) { + RETURN(long, iret); + } else + if (l->rtype == __AVulong) { + RETURN(unsigned long, iret); + } else + if (l->rtype == __AVlonglong) { + RETURN(long long, iret); + } else + if (l->rtype == __AVulonglong) { + RETURN(unsigned long long, iret); + } else + if (l->rtype == __AVfloat) { + RETURN(float, fret); + } else + if (l->rtype == __AVdouble) { + RETURN(double, dret); + } else + if (l->rtype == __AVvoidp) { + RETURN(void*, iret); + } else + if (l->rtype == __AVstruct) { + if (l->flags & __AV_REGISTER_STRUCT_RETURN) { + /* Return structs of size <= 32 in registers. */ + #define iret2 o1 + #define iret3 o2 + #define iret4 o3 + if (l->rsize > 0 && l->rsize <= 32) { + void* raddr = l->raddr; + #if 0 /* Unoptimized */ + if (l->rsize == 1) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + } else + if (l->rsize == 2) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); + } else + if (l->rsize == 3) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); + } else + if (l->rsize == 4) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); + } else + if (l->rsize == 5) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); + } else + if (l->rsize == 6) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>16); + } else + if (l->rsize == 7) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[6] = (unsigned char)(iret>>8); + } else + if (l->rsize >= 8 && l->rsize <= 32) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[6] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[7] = (unsigned char)(iret); + if (l->rsize == 8) { + } else + if (l->rsize == 9) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + } else + if (l->rsize == 10) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); + } else + if (l->rsize == 11) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); + } else + if (l->rsize == 12) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); + } else + if (l->rsize == 13) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); + } else + if (l->rsize == 14) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>16); + } else + if (l->rsize == 15) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>8); + } else + if (l->rsize >= 16 && l->rsize <= 32) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+7] = (unsigned char)(iret2); + if (l->rsize == 16) { + } else + if (l->rsize == 17) { + ((unsigned char *)raddr)[16+0] = (unsigned char)(iret3>>56); + } else + if (l->rsize == 18) { + ((unsigned char *)raddr)[16+0] = (unsigned char)(iret3>>56); + ((unsigned char *)raddr)[16+1] = (unsigned char)(iret3>>48); + } else + if (l->rsize == 19) { + ((unsigned char *)raddr)[16+0] = (unsigned char)(iret3>>56); + ((unsigned char *)raddr)[16+1] = (unsigned char)(iret3>>48); + ((unsigned char *)raddr)[16+2] = (unsigned char)(iret3>>40); + } else + if (l->rsize == 20) { + ((unsigned char *)raddr)[16+0] = (unsigned char)(iret3>>56); + ((unsigned char *)raddr)[16+1] = (unsigned char)(iret3>>48); + ((unsigned char *)raddr)[16+2] = (unsigned char)(iret3>>40); + ((unsigned char *)raddr)[16+3] = (unsigned char)(iret3>>32); + } else + if (l->rsize == 21) { + ((unsigned char *)raddr)[16+0] = (unsigned char)(iret3>>56); + ((unsigned char *)raddr)[16+1] = (unsigned char)(iret3>>48); + ((unsigned char *)raddr)[16+2] = (unsigned char)(iret3>>40); + ((unsigned char *)raddr)[16+3] = (unsigned char)(iret3>>32); + ((unsigned char *)raddr)[16+4] = (unsigned char)(iret3>>24); + } else + if (l->rsize == 22) { + ((unsigned char *)raddr)[16+0] = (unsigned char)(iret3>>56); + ((unsigned char *)raddr)[16+1] = (unsigned char)(iret3>>48); + ((unsigned char *)raddr)[16+2] = (unsigned char)(iret3>>40); + ((unsigned char *)raddr)[16+3] = (unsigned char)(iret3>>32); + ((unsigned char *)raddr)[16+4] = (unsigned char)(iret3>>24); + ((unsigned char *)raddr)[16+5] = (unsigned char)(iret3>>16); + } else + if (l->rsize == 23) { + ((unsigned char *)raddr)[16+0] = (unsigned char)(iret3>>56); + ((unsigned char *)raddr)[16+1] = (unsigned char)(iret3>>48); + ((unsigned char *)raddr)[16+2] = (unsigned char)(iret3>>40); + ((unsigned char *)raddr)[16+3] = (unsigned char)(iret3>>32); + ((unsigned char *)raddr)[16+4] = (unsigned char)(iret3>>24); + ((unsigned char *)raddr)[16+5] = (unsigned char)(iret3>>16); + ((unsigned char *)raddr)[16+6] = (unsigned char)(iret3>>8); + } else + if (l->rsize >= 24 && l->rsize <= 32) { + ((unsigned char *)raddr)[16+0] = (unsigned char)(iret3>>56); + ((unsigned char *)raddr)[16+1] = (unsigned char)(iret3>>48); + ((unsigned char *)raddr)[16+2] = (unsigned char)(iret3>>40); + ((unsigned char *)raddr)[16+3] = (unsigned char)(iret3>>32); + ((unsigned char *)raddr)[16+4] = (unsigned char)(iret3>>24); + ((unsigned char *)raddr)[16+5] = (unsigned char)(iret3>>16); + ((unsigned char *)raddr)[16+6] = (unsigned char)(iret3>>8); + ((unsigned char *)raddr)[16+7] = (unsigned char)(iret3); + if (l->rsize == 24) { + } else + if (l->rsize == 25) { + ((unsigned char *)raddr)[24+0] = (unsigned char)(iret4>>56); + } else + if (l->rsize == 26) { + ((unsigned char *)raddr)[24+0] = (unsigned char)(iret4>>56); + ((unsigned char *)raddr)[24+1] = (unsigned char)(iret4>>48); + } else + if (l->rsize == 27) { + ((unsigned char *)raddr)[24+0] = (unsigned char)(iret4>>56); + ((unsigned char *)raddr)[24+1] = (unsigned char)(iret4>>48); + ((unsigned char *)raddr)[24+2] = (unsigned char)(iret4>>40); + } else + if (l->rsize == 28) { + ((unsigned char *)raddr)[24+0] = (unsigned char)(iret4>>56); + ((unsigned char *)raddr)[24+1] = (unsigned char)(iret4>>48); + ((unsigned char *)raddr)[24+2] = (unsigned char)(iret4>>40); + ((unsigned char *)raddr)[24+3] = (unsigned char)(iret4>>32); + } else + if (l->rsize == 29) { + ((unsigned char *)raddr)[24+0] = (unsigned char)(iret4>>56); + ((unsigned char *)raddr)[24+1] = (unsigned char)(iret4>>48); + ((unsigned char *)raddr)[24+2] = (unsigned char)(iret4>>40); + ((unsigned char *)raddr)[24+3] = (unsigned char)(iret4>>32); + ((unsigned char *)raddr)[24+4] = (unsigned char)(iret4>>24); + } else + if (l->rsize == 30) { + ((unsigned char *)raddr)[24+0] = (unsigned char)(iret4>>56); + ((unsigned char *)raddr)[24+1] = (unsigned char)(iret4>>48); + ((unsigned char *)raddr)[24+2] = (unsigned char)(iret4>>40); + ((unsigned char *)raddr)[24+3] = (unsigned char)(iret4>>32); + ((unsigned char *)raddr)[24+4] = (unsigned char)(iret4>>24); + ((unsigned char *)raddr)[24+5] = (unsigned char)(iret4>>16); + } else + if (l->rsize == 31) { + ((unsigned char *)raddr)[24+0] = (unsigned char)(iret4>>56); + ((unsigned char *)raddr)[24+1] = (unsigned char)(iret4>>48); + ((unsigned char *)raddr)[24+2] = (unsigned char)(iret4>>40); + ((unsigned char *)raddr)[24+3] = (unsigned char)(iret4>>32); + ((unsigned char *)raddr)[24+4] = (unsigned char)(iret4>>24); + ((unsigned char *)raddr)[24+5] = (unsigned char)(iret4>>16); + ((unsigned char *)raddr)[24+6] = (unsigned char)(iret4>>8); + } else + if (l->rsize == 32) { + ((unsigned char *)raddr)[24+0] = (unsigned char)(iret4>>56); + ((unsigned char *)raddr)[24+1] = (unsigned char)(iret4>>48); + ((unsigned char *)raddr)[24+2] = (unsigned char)(iret4>>40); + ((unsigned char *)raddr)[24+3] = (unsigned char)(iret4>>32); + ((unsigned char *)raddr)[24+4] = (unsigned char)(iret4>>24); + ((unsigned char *)raddr)[24+5] = (unsigned char)(iret4>>16); + ((unsigned char *)raddr)[24+6] = (unsigned char)(iret4>>8); + ((unsigned char *)raddr)[24+7] = (unsigned char)(iret4); + } + } + } + } + #else /* Optimized: fewer conditional jumps, fewer memory accesses */ + uintptr_t count = l->rsize; /* > 0, ≤ 4*sizeof(__avword) */ + __avword* wordaddr = (__avword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avword)-1)); + uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avword)-1); /* ≥ 0, < sizeof(__avword) */ + uintptr_t end_offset = start_offset + count; /* > 0, < 5*sizeof(__avword) */ + if (count <= sizeof(__avword)) { + /* Use iret. */ + if (end_offset <= sizeof(__avword)) { + /* 0 < end_offset ≤ sizeof(__avword) */ + __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - ((__avword)1 << (sizeof(__avword)*8-end_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; + } else { + /* sizeof(__avword) < end_offset < 2*sizeof(__avword), start_offset > 0 */ + __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - 1; + __avword mask1 = - ((__avword)1 << (2*sizeof(__avword)*8-end_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; + wordaddr[1] ^= (wordaddr[1] ^ (iret << (sizeof(__avword)*8-start_offset*8))) & mask1; + } + } else if (count <= 2*sizeof(__avword)) { + /* Use iret, iret2. */ + __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - 1; + wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; + if (end_offset <= 2*sizeof(__avword)) { + /* sizeof(__avword) < end_offset ≤ 2*sizeof(__avword) */ + __avword mask1 = - ((__avword)1 << (2*sizeof(__avword)*8-end_offset*8)); + wordaddr[1] ^= (wordaddr[1] ^ ((iret << (sizeof(__avword)*4-start_offset*4) << (sizeof(__avword)*4-start_offset*4)) | (iret2 >> (start_offset*8)))) & mask1; + } else { + /* 2*sizeof(__avword) < end_offset < 3*sizeof(__avword), start_offset > 0 */ + __avword mask2 = - ((__avword)1 << (3*sizeof(__avword)*8-end_offset*8)); + wordaddr[1] = (iret << (sizeof(__avword)*8-start_offset*8)) | (iret2 >> (start_offset*8)); + wordaddr[2] ^= (wordaddr[2] ^ (iret2 << (sizeof(__avword)*8-start_offset*8))) & mask2; + } + } else if (count <= 3*sizeof(__avword)) { + /* Use iret, iret2, iret3. */ + __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - 1; + wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; + if (end_offset <= 3*sizeof(__avword)) { + /* 2*sizeof(__avword) < end_offset ≤ 3*sizeof(__avword) */ + __avword mask2 = - ((__avword)1 << (3*sizeof(__avword)*8-end_offset*8)); + wordaddr[1] = (iret << (sizeof(__avword)*4-start_offset*4) << (sizeof(__avword)*4-start_offset*4)) | (iret2 >> (start_offset*8)); + wordaddr[2] ^= (wordaddr[2] ^ ((iret2 << (sizeof(__avword)*4-start_offset*4) << (sizeof(__avword)*4-start_offset*4)) | (iret3 >> (start_offset*8)))) & mask2; + } else { + /* 3*sizeof(__avword) < end_offset < 4*sizeof(__avword), start_offset > 0 */ + __avword mask3 = - ((__avword)1 << (4*sizeof(__avword)*8-end_offset*8)); + wordaddr[1] = (iret << (sizeof(__avword)*8-start_offset*8)) | (iret2 >> (start_offset*8)); + wordaddr[2] = (iret2 << (sizeof(__avword)*8-start_offset*8)) | (iret3 >> (start_offset*8)); + wordaddr[3] ^= (wordaddr[3] ^ (iret3 << (sizeof(__avword)*8-start_offset*8))) & mask3; + } + } else { + /* Use iret, iret2, iret3, iret4. */ + __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - 1; + wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; + if (end_offset <= 4*sizeof(__avword)) { + /* 3*sizeof(__avword) < end_offset ≤ 4*sizeof(__avword) */ + __avword mask3 = - ((__avword)1 << (4*sizeof(__avword)*8-end_offset*8)); + wordaddr[1] = (iret << (sizeof(__avword)*4-start_offset*4) << (sizeof(__avword)*4-start_offset*4)) | (iret2 >> (start_offset*8)); + wordaddr[2] = (iret2 << (sizeof(__avword)*4-start_offset*4) << (sizeof(__avword)*4-start_offset*4)) | (iret3 >> (start_offset*8)); + wordaddr[3] ^= (wordaddr[3] ^ ((iret3 << (sizeof(__avword)*4-start_offset*4) << (sizeof(__avword)*4-start_offset*4)) | (iret4 >> (start_offset*8)))) & mask3; + } else { + /* 4*sizeof(__avword) < end_offset < 5*sizeof(__avword), start_offset > 0 */ + __avword mask4 = - ((__avword)1 << (5*sizeof(__avword)*8-end_offset*8)); + wordaddr[1] = (iret << (sizeof(__avword)*8-start_offset*8)) | (iret2 >> (start_offset*8)); + wordaddr[2] = (iret2 << (sizeof(__avword)*8-start_offset*8)) | (iret3 >> (start_offset*8)); + wordaddr[3] = (iret3 << (sizeof(__avword)*8-start_offset*8)) | (iret4 >> (start_offset*8)); + wordaddr[4] ^= (wordaddr[4] ^ (iret4 << (sizeof(__avword)*8-start_offset*8))) & mask4; + } + } + #endif + } + } + } + return 0; +} diff --git a/avcall/avcall-structcpy.c b/avcall/avcall-structcpy.c new file mode 100644 index 0000000..4b41bb5 --- /dev/null +++ b/avcall/avcall-structcpy.c @@ -0,0 +1,22 @@ +/* copy structs */ + +/* + * Copyright 2016 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#define __structcpy avcall_structcpy + +#include "structcpy.c" diff --git a/avcall/avcall-x86_64-linux.s b/avcall/avcall-x86_64-linux.s new file mode 100644 index 0000000..5111dbd --- /dev/null +++ b/avcall/avcall-x86_64-linux.s @@ -0,0 +1,647 @@ + .file "avcall-x86_64.c" + .text + .p2align 4,,15 +.globl avcall_call + .type avcall_call, @function +avcall_call: +.LFB2: + pushq %rbp +.LCFI0: + movq %rsp, %rbp +.LCFI1: + pushq %r13 +.LCFI2: + pushq %r12 +.LCFI3: + pushq %rbx +.LCFI4: + movq %rdi, %rbx + leaq 128(%rbx), %rdx + subq $2072, %rsp +.LCFI5: + movq 40(%rdi), %rax + movq 48(%rdi), %r8 + leaq 15(%rsp), %rsi + subq %r8, %rax + andq $-16, %rsi + movq %rax, %rdi + movq 120(%rbx), %rax + shrq $3, %rdi + subq %rdx, %rax + movq %rax, %r9 + shrq $3, %r9 + testl %edi, %edi + jle .L2 + xorl %ecx, %ecx + xorl %edx, %edx + .p2align 4,,7 +.L4: + movq (%rdx,%r8), %rax + incl %ecx + movq %rax, (%rsi,%rdx) + addq $8, %rdx + cmpl %ecx, %edi + jne .L4 +.L2: + movl 24(%rbx), %eax + cmpl $13, %eax + je .L127 + cmpl $14, %eax + je .L128 + cmpl $7, %r9d + movq 8(%rbx), %r12 + jle .L58 + movlpd 184(%rbx), %xmm10 +.L60: + movq 176(%rbx), %r9 +.L63: + movq 168(%rbx), %r11 +.L66: + movq 160(%rbx), %r10 +.L69: + movlpd 152(%rbx), %xmm8 +.L72: + movq 144(%rbx), %rax +.L75: + movq 136(%rbx), %r8 +.L78: + movlpd 128(%rbx), %xmm9 +.L81: + movq 88(%rbx), %rdx + movq 96(%rbx), %rcx + movsd %xmm10, %xmm7 + movq 80(%rbx), %rsi + movq 72(%rbx), %rdi + movsd %xmm8, %xmm3 + movq %r9, -32(%rbp) + movsd %xmm9, %xmm0 + movlpd -32(%rbp), %xmm6 + movq %r11, -32(%rbp) + movlpd -32(%rbp), %xmm5 + movq %r10, -32(%rbp) + movlpd -32(%rbp), %xmm4 + movq %rax, -32(%rbp) + movl $8, %eax + movlpd -32(%rbp), %xmm2 + movq %r8, -32(%rbp) + movlpd -32(%rbp), %xmm1 + movq 112(%rbx), %r9 + movq 104(%rbx), %r8 + call *%r12 + movq %rax, %r8 + movl 24(%rbx), %eax + movq %rdx, %r9 + cmpl $1, %eax + je .L31 + testl %eax, %eax + je .L125 + cmpl $2, %eax + je .L122 + cmpl $3, %eax + .p2align 4,,5 + je .L122 + cmpl $4, %eax + .p2align 4,,5 + je .L122 + cmpl $5, %eax + .p2align 4,,5 + je .L123 + cmpl $6, %eax + .p2align 4,,5 + je .L123 + cmpl $7, %eax + .p2align 4,,5 + je .L124 + cmpl $8, %eax + .p2align 4,,5 + je .L124 + cmpl $9, %eax + .p2align 4,,5 + je .L125 + cmpl $10, %eax + .p2align 4,,5 + je .L125 + cmpl $11, %eax + .p2align 4,,5 + je .L125 + cmpl $12, %eax + .p2align 4,,5 + je .L125 + cmpl $15, %eax + .p2align 4,,5 + je .L125 + cmpl $16, %eax + .p2align 4,,5 + jne .L31 + testb $2, 1(%rbx) + .p2align 4,,5 + je .L31 + movq 32(%rbx), %rdx + leaq -1(%rdx), %rax + cmpq $15, %rax + ja .L31 + movq 16(%rbx), %rax + movq %rax, %r10 + movq %rax, %rdi + andl $7, %edi + andq $-8, %r10 + cmpq $8, %rdx + leaq (%rdx,%rdi), %r11 + ja .L112 + cmpq $8, %r11 + ja .L114 + leal -1(,%r11,8), %ecx + movq (%r10), %rsi + sall $3, %edi + movl $2, %edx + movl $1, %eax + salq %cl, %rdx + movl %edi, %ecx + salq %cl, %rax + salq %cl, %r8 + xorq %rsi, %r8 + subq %rax, %rdx + andq %r8, %rdx + xorq %rdx, %rsi + movq %rsi, (%r10) +.L31: + leaq -24(%rbp), %rsp + xorl %eax, %eax + popq %rbx + popq %r12 + popq %r13 + leave + ret +.L58: + je .L129 + cmpl $5, %r9d + jle .L64 + xorl %r9d, %r9d + movq %r9, -32(%rbp) + movlpd -32(%rbp), %xmm10 + .p2align 4,,3 + jmp .L63 +.L127: + cmpl $7, %r9d + movq 16(%rbx), %r13 + movq 8(%rbx), %r12 + jle .L7 + movlpd 184(%rbx), %xmm10 +.L9: + movq 176(%rbx), %r9 +.L12: + movq 168(%rbx), %r11 +.L15: + movq 160(%rbx), %r10 +.L18: + movlpd 152(%rbx), %xmm8 +.L21: + movq 144(%rbx), %rax +.L24: + movq 136(%rbx), %r8 +.L27: + movlpd 128(%rbx), %xmm9 +.L30: + movq 96(%rbx), %rcx + movq 88(%rbx), %rdx + movsd %xmm10, %xmm7 + movq 80(%rbx), %rsi + movq 72(%rbx), %rdi + movsd %xmm8, %xmm3 + movq %r9, -32(%rbp) + movsd %xmm9, %xmm0 + movlpd -32(%rbp), %xmm6 + movq %r11, -32(%rbp) + movlpd -32(%rbp), %xmm5 + movq %r10, -32(%rbp) + movlpd -32(%rbp), %xmm4 + movq %rax, -32(%rbp) + movl $8, %eax + movlpd -32(%rbp), %xmm2 + movq %r8, -32(%rbp) + movlpd -32(%rbp), %xmm1 + movq 112(%rbx), %r9 + movq 104(%rbx), %r8 + call *%r12 + movss %xmm0, (%r13) + leaq -24(%rbp), %rsp + xorl %eax, %eax + popq %rbx + popq %r12 + popq %r13 + leave + ret +.L125: + movq 16(%rbx), %rax + movq %r8, (%rax) + leaq -24(%rbp), %rsp + xorl %eax, %eax + popq %rbx + popq %r12 + popq %r13 + leave + ret +.L128: + cmpl $7, %r9d + movq 16(%rbx), %r13 + movq 8(%rbx), %r12 + jle .L34 + movlpd 184(%rbx), %xmm10 +.L36: + movq 176(%rbx), %r10 +.L39: + movq 168(%rbx), %r11 +.L42: + movq 160(%rbx), %r9 +.L45: + movlpd 152(%rbx), %xmm8 +.L48: + movq 144(%rbx), %rax +.L51: + movq 136(%rbx), %r8 +.L54: + movlpd 128(%rbx), %xmm9 +.L57: + movq 96(%rbx), %rcx + movq 88(%rbx), %rdx + movsd %xmm10, %xmm7 + movq 80(%rbx), %rsi + movq 72(%rbx), %rdi + movsd %xmm8, %xmm3 + movq %r10, -32(%rbp) + movsd %xmm9, %xmm0 + movlpd -32(%rbp), %xmm6 + movq %r11, -32(%rbp) + movlpd -32(%rbp), %xmm5 + movq %r9, -32(%rbp) + movlpd -32(%rbp), %xmm4 + movq %rax, -32(%rbp) + movl $8, %eax + movlpd -32(%rbp), %xmm2 + movq %r8, -32(%rbp) + movlpd -32(%rbp), %xmm1 + movq 112(%rbx), %r9 + movq 104(%rbx), %r8 + call *%r12 + movsd %xmm0, (%r13) + leaq -24(%rbp), %rsp + xorl %eax, %eax + popq %rbx + popq %r12 + popq %r13 + leave + ret +.L7: + jne .L10 + xorpd %xmm10, %xmm10 + jmp .L9 +.L129: + xorpd %xmm10, %xmm10 + .p2align 4,,7 + jmp .L60 +.L34: + .p2align 4,,7 + jne .L37 + xorpd %xmm10, %xmm10 + .p2align 4,,7 + jmp .L36 +.L122: + movq 16(%rbx), %rax + movb %r8b, (%rax) + leaq -24(%rbp), %rsp + xorl %eax, %eax + popq %rbx + popq %r12 + popq %r13 + leave + ret +.L10: + cmpl $5, %r9d + jg .L130 + jne .L16 + xorl %r9d, %r9d + movq %r9, -32(%rbp) + movq %r9, %r11 + movlpd -32(%rbp), %xmm10 + jmp .L15 +.L64: + .p2align 4,,3 + je .L131 + cmpl $3, %r9d + jle .L70 + xorl %r9d, %r9d + movq %r9, -32(%rbp) + movq %r9, %r10 + movq %r9, %r11 + movlpd -32(%rbp), %xmm10 + jmp .L69 +.L37: + cmpl $5, %r9d + jg .L132 + jne .L43 + xorl %r10d, %r10d + movq %r10, -32(%rbp) + movq %r10, %r11 + movlpd -32(%rbp), %xmm10 + jmp .L42 +.L130: + xorl %r9d, %r9d + movq %r9, -32(%rbp) + movlpd -32(%rbp), %xmm10 + jmp .L12 +.L131: + xorl %r9d, %r9d + movq %r9, -32(%rbp) + movq %r9, %r11 + movlpd -32(%rbp), %xmm10 + jmp .L66 +.L132: + xorl %r10d, %r10d + movq %r10, -32(%rbp) + movlpd -32(%rbp), %xmm10 + jmp .L39 +.L123: + movq 16(%rbx), %rax + movw %r8w, (%rax) + jmp .L31 +.L124: + movq 16(%rbx), %rax + movl %r8d, (%rax) + jmp .L31 +.L16: + cmpl $3, %r9d + jle .L19 + xorl %r9d, %r9d + movq %r9, -32(%rbp) + movq %r9, %r10 + movq %r9, %r11 + movlpd -32(%rbp), %xmm10 + jmp .L18 +.L70: + jne .L73 + xorl %r9d, %r9d + movq %r9, -32(%rbp) + movq %r9, %r10 + movq %r9, %r11 + movlpd -32(%rbp), %xmm10 + movsd %xmm10, %xmm8 + jmp .L72 +.L43: + cmpl $3, %r9d + jle .L46 + xorl %r10d, %r10d + movq %r10, -32(%rbp) + movq %r10, %r9 + movq %r10, %r11 + movlpd -32(%rbp), %xmm10 + jmp .L45 +.L19: + jne .L22 + xorl %r9d, %r9d + movq %r9, -32(%rbp) + movq %r9, %r10 + movq %r9, %r11 + movlpd -32(%rbp), %xmm10 + movsd %xmm10, %xmm8 + jmp .L21 +.L73: + cmpl $1, %r9d + jle .L76 + xorl %r9d, %r9d + movq %r9, -32(%rbp) + movq %r9, %r10 + movq %r9, %r11 + movlpd -32(%rbp), %xmm10 + movq %r9, %rax + movsd %xmm10, %xmm8 + jmp .L75 +.L46: + jne .L49 + xorl %r10d, %r10d + movq %r10, -32(%rbp) + movq %r10, %r9 + movq %r10, %r11 + movlpd -32(%rbp), %xmm10 + movsd %xmm10, %xmm8 + jmp .L48 +.L22: + cmpl $1, %r9d + jle .L25 + xorl %r9d, %r9d + movq %r9, -32(%rbp) + movq %r9, %r10 + movq %r9, %r11 + movlpd -32(%rbp), %xmm10 + movq %r9, %rax + movsd %xmm10, %xmm8 + jmp .L24 +.L49: + cmpl $1, %r9d + jle .L52 + xorl %r10d, %r10d + movq %r10, -32(%rbp) + movq %r10, %r9 + movq %r10, %r11 + movlpd -32(%rbp), %xmm10 + movq %r10, %rax + movsd %xmm10, %xmm8 + jmp .L51 +.L76: + jne .L133 + xorl %r9d, %r9d + movq %r9, -32(%rbp) + movq %r9, %r10 + movq %r9, %r11 + movlpd -32(%rbp), %xmm10 + movq %r9, %rax + movq %r9, %r8 + movsd %xmm10, %xmm8 + jmp .L78 +.L25: + jne .L134 + xorl %r9d, %r9d + movq %r9, -32(%rbp) + movq %r9, %r10 + movq %r9, %r11 + movlpd -32(%rbp), %xmm10 + movq %r9, %rax + movq %r9, %r8 + movsd %xmm10, %xmm8 + jmp .L27 +.L112: + leaq 0(,%rdi,8), %r12 + movq (%r10), %rsi + movq %r8, %rax + movq $-1, %rdx + movl %r12d, %ecx + salq %cl, %rax + salq %cl, %rdx + xorq %rsi, %rax + andq %rax, %rdx + xorq %rdx, %rsi + cmpq $16, %r11 + movq %rsi, (%r10) + ja .L116 + leaq 0(,%rdi,4), %rax + leal -65(,%r11,8), %edx + movl $32, %edi + movq 8(%r10), %rsi + subl %eax, %edi + movl %edx, %ecx + movl $2, %eax + salq %cl, %rax + movl %edi, %ecx + sarq %cl, %r8 + decq %rax + sarq %cl, %r8 + movl %r12d, %ecx + salq %cl, %r9 + orq %r9, %r8 + xorq %rsi, %r8 + andq %r8, %rax + xorq %rax, %rsi + movq %rsi, 8(%r10) + jmp .L31 + .p2align 4,,7 +.L133: + xorpd %xmm9, %xmm9 + movsd %xmm9, -32(%rbp) + movq -32(%rbp), %r9 + movsd %xmm9, %xmm10 + movsd %xmm9, %xmm8 + movq %r9, %r11 + movq %r9, %r10 + movq %r9, %rax + movq %r9, %r8 + jmp .L81 +.L52: + jne .L135 + xorl %r10d, %r10d + movq %r10, -32(%rbp) + movq %r10, %r9 + movq %r10, %r11 + movlpd -32(%rbp), %xmm10 + movq %r10, %rax + movq %r10, %r8 + movsd %xmm10, %xmm8 + jmp .L54 +.L134: + xorpd %xmm9, %xmm9 + movsd %xmm9, -32(%rbp) + movq -32(%rbp), %r9 + movsd %xmm9, %xmm10 + movsd %xmm9, %xmm8 + movq %r9, %r11 + movq %r9, %r10 + movq %r9, %rax + movq %r9, %r8 + jmp .L30 +.L135: + xorpd %xmm9, %xmm9 + movsd %xmm9, -32(%rbp) + movq -32(%rbp), %r10 + movsd %xmm9, %xmm10 + movsd %xmm9, %xmm8 + movq %r10, %r11 + movq %r10, %r9 + movq %r10, %rax + movq %r10, %r8 + jmp .L57 +.L114: + leaq 0(,%rdi,8), %rsi + movq (%r10), %rdx + movq %r8, %rbx + movq $-1, %rax + movl %esi, %ecx + salq %cl, %rbx + salq %cl, %rax + movq %rbx, %rcx + xorq %rdx, %rcx + andq %rcx, %rax + leal -65(,%r11,8), %ecx + xorq %rax, %rdx + movl $2, %eax + salq %cl, %rax + movq %rdx, (%r10) + movl $64, %ecx + movq 8(%r10), %rdx + subl %esi, %ecx + decq %rax + sarq %cl, %r8 + xorq %rdx, %r8 + andq %r8, %rax + xorq %rax, %rdx + movq %rdx, 8(%r10) + jmp .L31 +.L116: + movl $64, %esi + movq %r9, %rax + movq 16(%r10), %rdx + subl %r12d, %esi + movl %esi, %ecx + sarq %cl, %r8 + movl %r12d, %ecx + salq %cl, %rax + leal -129(,%r11,8), %ecx + orq %r8, %rax + movq %rax, 8(%r10) + movl $2, %eax + salq %cl, %rax + movl %esi, %ecx + sarq %cl, %r9 + decq %rax + xorq %rdx, %r9 + andq %r9, %rax + xorq %rax, %rdx + movq %rdx, 16(%r10) + jmp .L31 +.LFE2: + .size avcall_call, .-avcall_call + .section .eh_frame,"a",@progbits +.Lframe1: + .long .LECIE1-.LSCIE1 +.LSCIE1: + .long 0x0 + .byte 0x1 + .string "zR" + .uleb128 0x1 + .sleb128 -8 + .byte 0x10 + .uleb128 0x1 + .byte 0x1b + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x90 + .uleb128 0x1 + .align 8 +.LECIE1: +.LSFDE1: + .long .LEFDE1-.LASFDE1 +.LASFDE1: + .long .LASFDE1-.Lframe1 + .long .LFB2-. + .long .LFE2-.LFB2 + .uleb128 0x0 + .byte 0x4 + .long .LCFI0-.LFB2 + .byte 0xe + .uleb128 0x10 + .byte 0x86 + .uleb128 0x2 + .byte 0x4 + .long .LCFI1-.LCFI0 + .byte 0xd + .uleb128 0x6 + .byte 0x4 + .long .LCFI4-.LCFI1 + .byte 0x83 + .uleb128 0x5 + .byte 0x8c + .uleb128 0x4 + .byte 0x8d + .uleb128 0x3 + .align 8 +.LEFDE1: + .ident "GCC: (GNU) 4.0.2" + .section .note.GNU-stack,"",@progbits diff --git a/avcall/avcall-x86_64-macro.S b/avcall/avcall-x86_64-macro.S new file mode 100644 index 0000000..f7c6688 --- /dev/null +++ b/avcall/avcall-x86_64-macro.S @@ -0,0 +1,650 @@ +#include "asm-x86_64.h" + TEXT() + P2ALIGN(4,15) +GLOBL(C(avcall_call)) + DECLARE_FUNCTION(avcall_call) +FUNBEGIN(avcall_call) +L(FB2): + INSN1(push,q ,R(rbp)) +L(CFI0): + INSN2(mov,q ,R(rsp), R(rbp)) +L(CFI1): + INSN1(push,q ,R(r13)) +L(CFI2): + INSN1(push,q ,R(r12)) +L(CFI3): + INSN1(push,q ,R(rbx)) +L(CFI4): + INSN2(mov,q ,R(rdi), R(rbx)) + INSN2(lea,q ,X8 MEM_DISP(rbx,128), R(rdx)) + INSN2(sub,q ,NUM(2072), R(rsp)) +L(CFI5): + INSN2(mov,q ,X8 MEM_DISP(rdi,40), R(rax)) + INSN2(mov,q ,X8 MEM_DISP(rdi,48), R(r8)) + INSN2(lea,q ,X8 MEM_DISP(rsp,15), R(rsi)) + INSN2(sub,q ,R(r8), R(rax)) + INSN2(and,q ,NUM(-16), R(rsi)) + INSN2(mov,q ,R(rax), R(rdi)) + INSN2(mov,q ,X8 MEM_DISP(rbx,120), R(rax)) + INSN2(shr,q ,NUM(3), R(rdi)) + INSN2(sub,q ,R(rdx), R(rax)) + INSN2(mov,q ,R(rax), R(r9)) + INSN2(shr,q ,NUM(3), R(r9)) + INSN2(test,l ,R(edi), R(edi)) + INSN1(jle,_ ,L(2)) + INSN2(xor,l ,R(ecx), R(ecx)) + INSN2(xor,l ,R(edx), R(edx)) + P2ALIGN(4,7) +L(4): + INSN2(mov,q ,X8 MEM_INDEX(rdx,r8), R(rax)) + INSN1(inc,l ,R(ecx)) + INSN2(mov,q ,R(rax),X8 MEM_INDEX(rsi,rdx)) + INSN2(add,q ,NUM(8), R(rdx)) + INSN2(cmp,l ,R(ecx), R(edi)) + INSN1(jne,_ ,L(4)) +L(2): + INSN2(mov,l ,X4 MEM_DISP(rbx,24), R(eax)) + INSN2(cmp,l ,NUM(13), R(eax)) + INSN1(je,_ ,L(127)) + INSN2(cmp,l ,NUM(14), R(eax)) + INSN1(je,_ ,L(128)) + INSN2(cmp,l ,NUM(7), R(r9d)) + INSN2(mov,q ,X8 MEM_DISP(rbx,8), R(r12)) + INSN1(jle,_ ,L(58)) + INSN2(movlp,d ,X8 MEM_DISP(rbx,184), R(xmm10)) +L(60): + INSN2(mov,q ,X8 MEM_DISP(rbx,176), R(r9)) +L(63): + INSN2(mov,q ,X8 MEM_DISP(rbx,168), R(r11)) +L(66): + INSN2(mov,q ,X8 MEM_DISP(rbx,160), R(r10)) +L(69): + INSN2(movlp,d ,X8 MEM_DISP(rbx,152), R(xmm8)) +L(72): + INSN2(mov,q ,X8 MEM_DISP(rbx,144), R(rax)) +L(75): + INSN2(mov,q ,X8 MEM_DISP(rbx,136), R(r8)) +L(78): + INSN2(movlp,d ,X8 MEM_DISP(rbx,128), R(xmm9)) +L(81): + INSN2(mov,q ,X8 MEM_DISP(rbx,88), R(rdx)) + INSN2(mov,q ,X8 MEM_DISP(rbx,96), R(rcx)) + INSN2S(movs,d ,R(xmm10), R(xmm7)) + INSN2(mov,q ,X8 MEM_DISP(rbx,80), R(rsi)) + INSN2(mov,q ,X8 MEM_DISP(rbx,72), R(rdi)) + INSN2S(movs,d ,R(xmm8), R(xmm3)) + INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) + INSN2S(movs,d ,R(xmm9), R(xmm0)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm6)) + INSN2(mov,q ,R(r11),X8 MEM_DISP(rbp,-32)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm5)) + INSN2(mov,q ,R(r10),X8 MEM_DISP(rbp,-32)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm4)) + INSN2(mov,q ,R(rax),X8 MEM_DISP(rbp,-32)) + INSN2(mov,l ,NUM(8), R(eax)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm2)) + INSN2(mov,q ,R(r8),X8 MEM_DISP(rbp,-32)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm1)) + INSN2(mov,q ,X8 MEM_DISP(rbx,112), R(r9)) + INSN2(mov,q ,X8 MEM_DISP(rbx,104), R(r8)) + INSN1(call,_ ,INDIR(R(r12))) + INSN2(mov,q ,R(rax), R(r8)) + INSN2(mov,l ,X4 MEM_DISP(rbx,24), R(eax)) + INSN2(mov,q ,R(rdx), R(r9)) + INSN2(cmp,l ,NUM(1), R(eax)) + INSN1(je,_ ,L(31)) + INSN2(test,l ,R(eax), R(eax)) + INSN1(je,_ ,L(125)) + INSN2(cmp,l ,NUM(2), R(eax)) + INSN1(je,_ ,L(122)) + INSN2(cmp,l ,NUM(3), R(eax)) + P2ALIGN(4,5) + INSN1(je,_ ,L(122)) + INSN2(cmp,l ,NUM(4), R(eax)) + P2ALIGN(4,5) + INSN1(je,_ ,L(122)) + INSN2(cmp,l ,NUM(5), R(eax)) + P2ALIGN(4,5) + INSN1(je,_ ,L(123)) + INSN2(cmp,l ,NUM(6), R(eax)) + P2ALIGN(4,5) + INSN1(je,_ ,L(123)) + INSN2(cmp,l ,NUM(7), R(eax)) + P2ALIGN(4,5) + INSN1(je,_ ,L(124)) + INSN2(cmp,l ,NUM(8), R(eax)) + P2ALIGN(4,5) + INSN1(je,_ ,L(124)) + INSN2(cmp,l ,NUM(9), R(eax)) + P2ALIGN(4,5) + INSN1(je,_ ,L(125)) + INSN2(cmp,l ,NUM(10), R(eax)) + P2ALIGN(4,5) + INSN1(je,_ ,L(125)) + INSN2(cmp,l ,NUM(11), R(eax)) + P2ALIGN(4,5) + INSN1(je,_ ,L(125)) + INSN2(cmp,l ,NUM(12), R(eax)) + P2ALIGN(4,5) + INSN1(je,_ ,L(125)) + INSN2(cmp,l ,NUM(15), R(eax)) + P2ALIGN(4,5) + INSN1(je,_ ,L(125)) + INSN2(cmp,l ,NUM(16), R(eax)) + P2ALIGN(4,5) + INSN1(jne,_ ,L(31)) + INSN2(test,b ,NUM(2),X1 MEM_DISP(rbx,1)) + P2ALIGN(4,5) + INSN1(je,_ ,L(31)) + INSN2(mov,q ,X8 MEM_DISP(rbx,32), R(rdx)) + INSN2(lea,q ,X8 MEM_DISP(rdx,-1), R(rax)) + INSN2(cmp,q ,NUM(15), R(rax)) + INSN1(ja,_ ,L(31)) + INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rax)) + INSN2(mov,q ,R(rax), R(r10)) + INSN2(mov,q ,R(rax), R(rdi)) + INSN2(and,l ,NUM(7), R(edi)) + INSN2(and,q ,NUM(-8), R(r10)) + INSN2(cmp,q ,NUM(8), R(rdx)) + INSN2(lea,q ,X8 MEM_INDEX(rdx,rdi), R(r11)) + INSN1(ja,_ ,L(112)) + INSN2(cmp,q ,NUM(8), R(r11)) + INSN1(ja,_ ,L(114)) + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-1,r11,8), R(ecx)) + INSN2(mov,q ,X8 MEM(r10), R(rsi)) + INSN2(sal,l ,NUM(3), R(edi)) + INSN2(mov,l ,NUM(2), R(edx)) + INSN2(mov,l ,NUM(1), R(eax)) + INSN2(sal,q ,R(cl), R(rdx)) + INSN2(mov,l ,R(edi), R(ecx)) + INSN2(sal,q ,R(cl), R(rax)) + INSN2(sal,q ,R(cl), R(r8)) + INSN2(xor,q ,R(rsi), R(r8)) + INSN2(sub,q ,R(rax), R(rdx)) + INSN2(and,q ,R(r8), R(rdx)) + INSN2(xor,q ,R(rdx), R(rsi)) + INSN2(mov,q ,R(rsi),X8 MEM(r10)) +L(31): + INSN2(lea,q ,X8 MEM_DISP(rbp,-24), R(rsp)) + INSN2(xor,l ,R(eax), R(eax)) + INSN1(pop,q ,R(rbx)) + INSN1(pop,q ,R(r12)) + INSN1(pop,q ,R(r13)) + leave + ret +L(58): + INSN1(je,_ ,L(129)) + INSN2(cmp,l ,NUM(5), R(r9d)) + INSN1(jle,_ ,L(64)) + INSN2(xor,l ,R(r9d), R(r9d)) + INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) + P2ALIGN(4,3) + INSN1(jmp,_ ,L(63)) +L(127): + INSN2(cmp,l ,NUM(7), R(r9d)) + INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(r13)) + INSN2(mov,q ,X8 MEM_DISP(rbx,8), R(r12)) + INSN1(jle,_ ,L(7)) + INSN2(movlp,d ,X8 MEM_DISP(rbx,184), R(xmm10)) +L(9): + INSN2(mov,q ,X8 MEM_DISP(rbx,176), R(r9)) +L(12): + INSN2(mov,q ,X8 MEM_DISP(rbx,168), R(r11)) +L(15): + INSN2(mov,q ,X8 MEM_DISP(rbx,160), R(r10)) +L(18): + INSN2(movlp,d ,X8 MEM_DISP(rbx,152), R(xmm8)) +L(21): + INSN2(mov,q ,X8 MEM_DISP(rbx,144), R(rax)) +L(24): + INSN2(mov,q ,X8 MEM_DISP(rbx,136), R(r8)) +L(27): + INSN2(movlp,d ,X8 MEM_DISP(rbx,128), R(xmm9)) +L(30): + INSN2(mov,q ,X8 MEM_DISP(rbx,96), R(rcx)) + INSN2(mov,q ,X8 MEM_DISP(rbx,88), R(rdx)) + INSN2S(movs,d ,R(xmm10), R(xmm7)) + INSN2(mov,q ,X8 MEM_DISP(rbx,80), R(rsi)) + INSN2(mov,q ,X8 MEM_DISP(rbx,72), R(rdi)) + INSN2S(movs,d ,R(xmm8), R(xmm3)) + INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) + INSN2S(movs,d ,R(xmm9), R(xmm0)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm6)) + INSN2(mov,q ,R(r11),X8 MEM_DISP(rbp,-32)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm5)) + INSN2(mov,q ,R(r10),X8 MEM_DISP(rbp,-32)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm4)) + INSN2(mov,q ,R(rax),X8 MEM_DISP(rbp,-32)) + INSN2(mov,l ,NUM(8), R(eax)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm2)) + INSN2(mov,q ,R(r8),X8 MEM_DISP(rbp,-32)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm1)) + INSN2(mov,q ,X8 MEM_DISP(rbx,112), R(r9)) + INSN2(mov,q ,X8 MEM_DISP(rbx,104), R(r8)) + INSN1(call,_ ,INDIR(R(r12))) + INSN2S(movs,s ,R(xmm0),X4 MEM(r13)) + INSN2(lea,q ,X8 MEM_DISP(rbp,-24), R(rsp)) + INSN2(xor,l ,R(eax), R(eax)) + INSN1(pop,q ,R(rbx)) + INSN1(pop,q ,R(r12)) + INSN1(pop,q ,R(r13)) + leave + ret +L(125): + INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rax)) + INSN2(mov,q ,R(r8),X8 MEM(rax)) + INSN2(lea,q ,X8 MEM_DISP(rbp,-24), R(rsp)) + INSN2(xor,l ,R(eax), R(eax)) + INSN1(pop,q ,R(rbx)) + INSN1(pop,q ,R(r12)) + INSN1(pop,q ,R(r13)) + leave + ret +L(128): + INSN2(cmp,l ,NUM(7), R(r9d)) + INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(r13)) + INSN2(mov,q ,X8 MEM_DISP(rbx,8), R(r12)) + INSN1(jle,_ ,L(34)) + INSN2(movlp,d ,X8 MEM_DISP(rbx,184), R(xmm10)) +L(36): + INSN2(mov,q ,X8 MEM_DISP(rbx,176), R(r10)) +L(39): + INSN2(mov,q ,X8 MEM_DISP(rbx,168), R(r11)) +L(42): + INSN2(mov,q ,X8 MEM_DISP(rbx,160), R(r9)) +L(45): + INSN2(movlp,d ,X8 MEM_DISP(rbx,152), R(xmm8)) +L(48): + INSN2(mov,q ,X8 MEM_DISP(rbx,144), R(rax)) +L(51): + INSN2(mov,q ,X8 MEM_DISP(rbx,136), R(r8)) +L(54): + INSN2(movlp,d ,X8 MEM_DISP(rbx,128), R(xmm9)) +L(57): + INSN2(mov,q ,X8 MEM_DISP(rbx,96), R(rcx)) + INSN2(mov,q ,X8 MEM_DISP(rbx,88), R(rdx)) + INSN2S(movs,d ,R(xmm10), R(xmm7)) + INSN2(mov,q ,X8 MEM_DISP(rbx,80), R(rsi)) + INSN2(mov,q ,X8 MEM_DISP(rbx,72), R(rdi)) + INSN2S(movs,d ,R(xmm8), R(xmm3)) + INSN2(mov,q ,R(r10),X8 MEM_DISP(rbp,-32)) + INSN2S(movs,d ,R(xmm9), R(xmm0)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm6)) + INSN2(mov,q ,R(r11),X8 MEM_DISP(rbp,-32)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm5)) + INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm4)) + INSN2(mov,q ,R(rax),X8 MEM_DISP(rbp,-32)) + INSN2(mov,l ,NUM(8), R(eax)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm2)) + INSN2(mov,q ,R(r8),X8 MEM_DISP(rbp,-32)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm1)) + INSN2(mov,q ,X8 MEM_DISP(rbx,112), R(r9)) + INSN2(mov,q ,X8 MEM_DISP(rbx,104), R(r8)) + INSN1(call,_ ,INDIR(R(r12))) + INSN2S(movs,d ,R(xmm0),X8 MEM(r13)) + INSN2(lea,q ,X8 MEM_DISP(rbp,-24), R(rsp)) + INSN2(xor,l ,R(eax), R(eax)) + INSN1(pop,q ,R(rbx)) + INSN1(pop,q ,R(r12)) + INSN1(pop,q ,R(r13)) + leave + ret +L(7): + INSN1(jne,_ ,L(10)) + INSN2(xorp,d ,R(xmm10), R(xmm10)) + INSN1(jmp,_ ,L(9)) +L(129): + INSN2(xorp,d ,R(xmm10), R(xmm10)) + P2ALIGN(4,7) + INSN1(jmp,_ ,L(60)) +L(34): + P2ALIGN(4,7) + INSN1(jne,_ ,L(37)) + INSN2(xorp,d ,R(xmm10), R(xmm10)) + P2ALIGN(4,7) + INSN1(jmp,_ ,L(36)) +L(122): + INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rax)) + INSN2(mov,b ,R(r8b),X1 MEM(rax)) + INSN2(lea,q ,X8 MEM_DISP(rbp,-24), R(rsp)) + INSN2(xor,l ,R(eax), R(eax)) + INSN1(pop,q ,R(rbx)) + INSN1(pop,q ,R(r12)) + INSN1(pop,q ,R(r13)) + leave + ret +L(10): + INSN2(cmp,l ,NUM(5), R(r9d)) + INSN1(jg,_ ,L(130)) + INSN1(jne,_ ,L(16)) + INSN2(xor,l ,R(r9d), R(r9d)) + INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) + INSN2(mov,q ,R(r9), R(r11)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) + INSN1(jmp,_ ,L(15)) +L(64): + P2ALIGN(4,3) + INSN1(je,_ ,L(131)) + INSN2(cmp,l ,NUM(3), R(r9d)) + INSN1(jle,_ ,L(70)) + INSN2(xor,l ,R(r9d), R(r9d)) + INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) + INSN2(mov,q ,R(r9), R(r10)) + INSN2(mov,q ,R(r9), R(r11)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) + INSN1(jmp,_ ,L(69)) +L(37): + INSN2(cmp,l ,NUM(5), R(r9d)) + INSN1(jg,_ ,L(132)) + INSN1(jne,_ ,L(43)) + INSN2(xor,l ,R(r10d), R(r10d)) + INSN2(mov,q ,R(r10),X8 MEM_DISP(rbp,-32)) + INSN2(mov,q ,R(r10), R(r11)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) + INSN1(jmp,_ ,L(42)) +L(130): + INSN2(xor,l ,R(r9d), R(r9d)) + INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) + INSN1(jmp,_ ,L(12)) +L(131): + INSN2(xor,l ,R(r9d), R(r9d)) + INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) + INSN2(mov,q ,R(r9), R(r11)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) + INSN1(jmp,_ ,L(66)) +L(132): + INSN2(xor,l ,R(r10d), R(r10d)) + INSN2(mov,q ,R(r10),X8 MEM_DISP(rbp,-32)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) + INSN1(jmp,_ ,L(39)) +L(123): + INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rax)) + INSN2(mov,w ,R(r8w),X2 MEM(rax)) + INSN1(jmp,_ ,L(31)) +L(124): + INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rax)) + INSN2(mov,l ,R(r8d),X4 MEM(rax)) + INSN1(jmp,_ ,L(31)) +L(16): + INSN2(cmp,l ,NUM(3), R(r9d)) + INSN1(jle,_ ,L(19)) + INSN2(xor,l ,R(r9d), R(r9d)) + INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) + INSN2(mov,q ,R(r9), R(r10)) + INSN2(mov,q ,R(r9), R(r11)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) + INSN1(jmp,_ ,L(18)) +L(70): + INSN1(jne,_ ,L(73)) + INSN2(xor,l ,R(r9d), R(r9d)) + INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) + INSN2(mov,q ,R(r9), R(r10)) + INSN2(mov,q ,R(r9), R(r11)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) + INSN2S(movs,d ,R(xmm10), R(xmm8)) + INSN1(jmp,_ ,L(72)) +L(43): + INSN2(cmp,l ,NUM(3), R(r9d)) + INSN1(jle,_ ,L(46)) + INSN2(xor,l ,R(r10d), R(r10d)) + INSN2(mov,q ,R(r10),X8 MEM_DISP(rbp,-32)) + INSN2(mov,q ,R(r10), R(r9)) + INSN2(mov,q ,R(r10), R(r11)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) + INSN1(jmp,_ ,L(45)) +L(19): + INSN1(jne,_ ,L(22)) + INSN2(xor,l ,R(r9d), R(r9d)) + INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) + INSN2(mov,q ,R(r9), R(r10)) + INSN2(mov,q ,R(r9), R(r11)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) + INSN2S(movs,d ,R(xmm10), R(xmm8)) + INSN1(jmp,_ ,L(21)) +L(73): + INSN2(cmp,l ,NUM(1), R(r9d)) + INSN1(jle,_ ,L(76)) + INSN2(xor,l ,R(r9d), R(r9d)) + INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) + INSN2(mov,q ,R(r9), R(r10)) + INSN2(mov,q ,R(r9), R(r11)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) + INSN2(mov,q ,R(r9), R(rax)) + INSN2S(movs,d ,R(xmm10), R(xmm8)) + INSN1(jmp,_ ,L(75)) +L(46): + INSN1(jne,_ ,L(49)) + INSN2(xor,l ,R(r10d), R(r10d)) + INSN2(mov,q ,R(r10),X8 MEM_DISP(rbp,-32)) + INSN2(mov,q ,R(r10), R(r9)) + INSN2(mov,q ,R(r10), R(r11)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) + INSN2S(movs,d ,R(xmm10), R(xmm8)) + INSN1(jmp,_ ,L(48)) +L(22): + INSN2(cmp,l ,NUM(1), R(r9d)) + INSN1(jle,_ ,L(25)) + INSN2(xor,l ,R(r9d), R(r9d)) + INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) + INSN2(mov,q ,R(r9), R(r10)) + INSN2(mov,q ,R(r9), R(r11)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) + INSN2(mov,q ,R(r9), R(rax)) + INSN2S(movs,d ,R(xmm10), R(xmm8)) + INSN1(jmp,_ ,L(24)) +L(49): + INSN2(cmp,l ,NUM(1), R(r9d)) + INSN1(jle,_ ,L(52)) + INSN2(xor,l ,R(r10d), R(r10d)) + INSN2(mov,q ,R(r10),X8 MEM_DISP(rbp,-32)) + INSN2(mov,q ,R(r10), R(r9)) + INSN2(mov,q ,R(r10), R(r11)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) + INSN2(mov,q ,R(r10), R(rax)) + INSN2S(movs,d ,R(xmm10), R(xmm8)) + INSN1(jmp,_ ,L(51)) +L(76): + INSN1(jne,_ ,L(133)) + INSN2(xor,l ,R(r9d), R(r9d)) + INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) + INSN2(mov,q ,R(r9), R(r10)) + INSN2(mov,q ,R(r9), R(r11)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) + INSN2(mov,q ,R(r9), R(rax)) + INSN2(mov,q ,R(r9), R(r8)) + INSN2S(movs,d ,R(xmm10), R(xmm8)) + INSN1(jmp,_ ,L(78)) +L(25): + INSN1(jne,_ ,L(134)) + INSN2(xor,l ,R(r9d), R(r9d)) + INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) + INSN2(mov,q ,R(r9), R(r10)) + INSN2(mov,q ,R(r9), R(r11)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) + INSN2(mov,q ,R(r9), R(rax)) + INSN2(mov,q ,R(r9), R(r8)) + INSN2S(movs,d ,R(xmm10), R(xmm8)) + INSN1(jmp,_ ,L(27)) +L(112): + INSN2(lea,q ,X8 MEM_DISP_SHINDEX0(0,rdi,8), R(r12)) + INSN2(mov,q ,X8 MEM(r10), R(rsi)) + INSN2(mov,q ,R(r8), R(rax)) + INSN2(mov,q ,NUM(-1), R(rdx)) + INSN2(mov,l ,R(r12d), R(ecx)) + INSN2(sal,q ,R(cl), R(rax)) + INSN2(sal,q ,R(cl), R(rdx)) + INSN2(xor,q ,R(rsi), R(rax)) + INSN2(and,q ,R(rax), R(rdx)) + INSN2(xor,q ,R(rdx), R(rsi)) + INSN2(cmp,q ,NUM(16), R(r11)) + INSN2(mov,q ,R(rsi),X8 MEM(r10)) + INSN1(ja,_ ,L(116)) + INSN2(lea,q ,X8 MEM_DISP_SHINDEX0(0,rdi,4), R(rax)) + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-65,r11,8), R(edx)) + INSN2(mov,l ,NUM(32), R(edi)) + INSN2(mov,q ,X8 MEM_DISP(r10,8), R(rsi)) + INSN2(sub,l ,R(eax), R(edi)) + INSN2(mov,l ,R(edx), R(ecx)) + INSN2(mov,l ,NUM(2), R(eax)) + INSN2(sal,q ,R(cl), R(rax)) + INSN2(mov,l ,R(edi), R(ecx)) + INSN2(sar,q ,R(cl), R(r8)) + INSN1(dec,q ,R(rax)) + INSN2(sar,q ,R(cl), R(r8)) + INSN2(mov,l ,R(r12d), R(ecx)) + INSN2(sal,q ,R(cl), R(r9)) + INSN2(or,q ,R(r9), R(r8)) + INSN2(xor,q ,R(rsi), R(r8)) + INSN2(and,q ,R(r8), R(rax)) + INSN2(xor,q ,R(rax), R(rsi)) + INSN2(mov,q ,R(rsi),X8 MEM_DISP(r10,8)) + INSN1(jmp,_ ,L(31)) + P2ALIGN(4,7) +L(133): + INSN2(xorp,d ,R(xmm9), R(xmm9)) + INSN2S(movs,d ,R(xmm9),X8 MEM_DISP(rbp,-32)) + INSN2(mov,q ,X8 MEM_DISP(rbp,-32), R(r9)) + INSN2S(movs,d ,R(xmm9), R(xmm10)) + INSN2S(movs,d ,R(xmm9), R(xmm8)) + INSN2(mov,q ,R(r9), R(r11)) + INSN2(mov,q ,R(r9), R(r10)) + INSN2(mov,q ,R(r9), R(rax)) + INSN2(mov,q ,R(r9), R(r8)) + INSN1(jmp,_ ,L(81)) +L(52): + INSN1(jne,_ ,L(135)) + INSN2(xor,l ,R(r10d), R(r10d)) + INSN2(mov,q ,R(r10),X8 MEM_DISP(rbp,-32)) + INSN2(mov,q ,R(r10), R(r9)) + INSN2(mov,q ,R(r10), R(r11)) + INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) + INSN2(mov,q ,R(r10), R(rax)) + INSN2(mov,q ,R(r10), R(r8)) + INSN2S(movs,d ,R(xmm10), R(xmm8)) + INSN1(jmp,_ ,L(54)) +L(134): + INSN2(xorp,d ,R(xmm9), R(xmm9)) + INSN2S(movs,d ,R(xmm9),X8 MEM_DISP(rbp,-32)) + INSN2(mov,q ,X8 MEM_DISP(rbp,-32), R(r9)) + INSN2S(movs,d ,R(xmm9), R(xmm10)) + INSN2S(movs,d ,R(xmm9), R(xmm8)) + INSN2(mov,q ,R(r9), R(r11)) + INSN2(mov,q ,R(r9), R(r10)) + INSN2(mov,q ,R(r9), R(rax)) + INSN2(mov,q ,R(r9), R(r8)) + INSN1(jmp,_ ,L(30)) +L(135): + INSN2(xorp,d ,R(xmm9), R(xmm9)) + INSN2S(movs,d ,R(xmm9),X8 MEM_DISP(rbp,-32)) + INSN2(mov,q ,X8 MEM_DISP(rbp,-32), R(r10)) + INSN2S(movs,d ,R(xmm9), R(xmm10)) + INSN2S(movs,d ,R(xmm9), R(xmm8)) + INSN2(mov,q ,R(r10), R(r11)) + INSN2(mov,q ,R(r10), R(r9)) + INSN2(mov,q ,R(r10), R(rax)) + INSN2(mov,q ,R(r10), R(r8)) + INSN1(jmp,_ ,L(57)) +L(114): + INSN2(lea,q ,X8 MEM_DISP_SHINDEX0(0,rdi,8), R(rsi)) + INSN2(mov,q ,X8 MEM(r10), R(rdx)) + INSN2(mov,q ,R(r8), R(rbx)) + INSN2(mov,q ,NUM(-1), R(rax)) + INSN2(mov,l ,R(esi), R(ecx)) + INSN2(sal,q ,R(cl), R(rbx)) + INSN2(sal,q ,R(cl), R(rax)) + INSN2(mov,q ,R(rbx), R(rcx)) + INSN2(xor,q ,R(rdx), R(rcx)) + INSN2(and,q ,R(rcx), R(rax)) + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-65,r11,8), R(ecx)) + INSN2(xor,q ,R(rax), R(rdx)) + INSN2(mov,l ,NUM(2), R(eax)) + INSN2(sal,q ,R(cl), R(rax)) + INSN2(mov,q ,R(rdx),X8 MEM(r10)) + INSN2(mov,l ,NUM(64), R(ecx)) + INSN2(mov,q ,X8 MEM_DISP(r10,8), R(rdx)) + INSN2(sub,l ,R(esi), R(ecx)) + INSN1(dec,q ,R(rax)) + INSN2(sar,q ,R(cl), R(r8)) + INSN2(xor,q ,R(rdx), R(r8)) + INSN2(and,q ,R(r8), R(rax)) + INSN2(xor,q ,R(rax), R(rdx)) + INSN2(mov,q ,R(rdx),X8 MEM_DISP(r10,8)) + INSN1(jmp,_ ,L(31)) +L(116): + INSN2(mov,l ,NUM(64), R(esi)) + INSN2(mov,q ,R(r9), R(rax)) + INSN2(mov,q ,X8 MEM_DISP(r10,16), R(rdx)) + INSN2(sub,l ,R(r12d), R(esi)) + INSN2(mov,l ,R(esi), R(ecx)) + INSN2(sar,q ,R(cl), R(r8)) + INSN2(mov,l ,R(r12d), R(ecx)) + INSN2(sal,q ,R(cl), R(rax)) + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-129,r11,8), R(ecx)) + INSN2(or,q ,R(r8), R(rax)) + INSN2(mov,q ,R(rax),X8 MEM_DISP(r10,8)) + INSN2(mov,l ,NUM(2), R(eax)) + INSN2(sal,q ,R(cl), R(rax)) + INSN2(mov,l ,R(esi), R(ecx)) + INSN2(sar,q ,R(cl), R(r9)) + INSN1(dec,q ,R(rax)) + INSN2(xor,q ,R(rdx), R(r9)) + INSN2(and,q ,R(r9), R(rax)) + INSN2(xor,q ,R(rax), R(rdx)) + INSN2(mov,q ,R(rdx),X8 MEM_DISP(r10,16)) + INSN1(jmp,_ ,L(31)) +L(FE2): + FUNEND(avcall_call, .-avcall_call) +#if !(defined __sun || (defined __APPLE__ && defined __MACH__) || (defined _WIN32 || defined __CYGWIN__)) + .section EH_FRAME_SECTION +L(frame1): + .long L(ECIE1)-.LSCIE1 +L(SCIE1): + .long 0x0 + .byte 0x1 + .string "zR" + .uleb128 0x1 + .sleb128 -8 + .byte 0x10 + .uleb128 0x1 + .byte 0x1b + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x90 + .uleb128 0x1 + .align 8 +L(ECIE1): +L(SFDE1): + .long L(EFDE1)-.LASFDE1 +L(ASFDE1): + .long L(ASFDE1)-.Lframe1 + .long L(FB2)-. + .long L(FE2)-.LFB2 + .uleb128 0x0 + .byte 0x4 + .long L(CFI0)-.LFB2 + .byte 0xe + .uleb128 0x10 + .byte 0x86 + .uleb128 0x2 + .byte 0x4 + .long L(CFI1)-.LCFI0 + .byte 0xd + .uleb128 0x6 + .byte 0x4 + .long L(CFI4)-.LCFI1 + .byte 0x83 + .uleb128 0x5 + .byte 0x8c + .uleb128 0x4 + .byte 0x8d + .uleb128 0x3 + .align 8 +L(EFDE1): +#endif +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/avcall/avcall-x86_64-windows-macro.S b/avcall/avcall-x86_64-windows-macro.S new file mode 100644 index 0000000..fe824f2 --- /dev/null +++ b/avcall/avcall-x86_64-windows-macro.S @@ -0,0 +1,372 @@ +#include "asm-x86_64.h" + TEXT() + P2ALIGN(4,15) + GLOBL(C(avcall_call)) + DECLARE_FUNCTION(avcall_call) +FUNBEGIN(avcall_call) +L(FB0): + INSN1(push,q ,R(rbp)) +L(CFI0): + INSN2(mov,q ,R(rsp), R(rbp)) +L(CFI1): + INSN1(push,q ,R(rsi)) + INSN1(push,q ,R(rbx)) +L(CFI2): + INSN2(mov,q ,R(rcx), R(rbx)) + INSN2(sub,q ,NUM(32), R(rsp)) + INSN2(mov,q ,X8 MEM_DISP(rcx,48), R(rcx)) + INSN2(mov,q ,X8 MEM_DISP(rbx,40), R(rax)) + INSN2(sub,q ,NUM(2064), R(rsp)) + INSN2(sub,q ,R(rcx), R(rax)) + INSN2(sar,q ,NUM(3), R(rax)) + INSN2(cmp,l ,NUM(4), R(eax)) + INSN1(jle,_ ,L(6)) + INSN2(lea,l ,X4 MEM_DISP(rax,-5), R(r8d)) + INSN2(lea,q ,X8 MEM_DISP(rsp,32), R(r9)) + INSN2(xor,l ,R(eax), R(eax)) + INSN2(add,q ,NUM(1), R(r8)) + P2ALIGN(4,10) + P2ALIGN(3,7) +L(5): + INSN2(mov,q ,X8 MEM_DISP_SHINDEX(rcx,32,rax,8), R(rdx)) + INSN2(mov,q ,R(rdx),X8 MEM_SHINDEX(r9,rax,8)) + INSN2(add,q ,NUM(1), R(rax)) + INSN2(cmp,q ,R(r8), R(rax)) + INSN1(jne,_ ,L(5)) +L(6): + INSN2(mov,l ,X4 MEM_DISP(rbx,68), R(eax)) + INSN2(test,l ,R(eax), R(eax)) + INSN1(je,_ ,L(7)) + INSN2(test,b ,NUM(1), R(al)) + INSN1(je,_ ,L(8)) + INSN2S(movs,s ,X4 MEM_DISP(rbx,76), R(xmm0)) +L(8): + INSN2(test,b ,NUM(2), R(al)) + INSN1(je,_ ,L(9)) + INSN2S(movs,s ,X4 MEM_DISP(rbx,80), R(xmm1)) +L(9): + INSN2(test,b ,NUM(4), R(al)) + INSN1(je,_ ,L(10)) + INSN2S(movs,s ,X4 MEM_DISP(rbx,84), R(xmm2)) +L(10): + INSN2(test,b ,NUM(8), R(al)) + INSN1(jne,_ ,L(78)) +L(7): + INSN2(mov,l ,X4 MEM_DISP(rbx,72), R(eax)) + INSN2(test,l ,R(eax), R(eax)) + INSN1(je,_ ,L(12)) + INSN2(test,b ,NUM(1), R(al)) + INSN1(je,_ ,L(13)) + INSN2S(movs,d ,X8 MEM_DISP(rbx,96), R(xmm0)) +L(13): + INSN2(test,b ,NUM(2), R(al)) + INSN1(je,_ ,L(14)) + INSN2S(movs,d ,X8 MEM_DISP(rbx,104), R(xmm1)) +L(14): + INSN2(test,b ,NUM(4), R(al)) + INSN1(je,_ ,L(15)) + INSN2S(movs,d ,X8 MEM_DISP(rbx,112), R(xmm2)) +L(15): + INSN2(test,b ,NUM(8), R(al)) + INSN1(jne,_ ,L(79)) +L(12): + INSN2(mov,l ,X4 MEM_DISP(rbx,24), R(eax)) + INSN2(cmp,l ,NUM(13), R(eax)) + INSN1(je,_ ,L(80)) + INSN2(cmp,l ,NUM(14), R(eax)) + INSN1(je,_ ,L(81)) + INSN2(mov,q ,X8 MEM_DISP(rcx,8), R(rdx)) + INSN2(mov,q ,X8 MEM_DISP(rcx,24), R(r9)) + INSN2(mov,q ,X8 MEM_DISP(rcx,16), R(r8)) + INSN2(mov,q ,X8 MEM(rcx), R(rcx)) + INSN1(call,_ ,INDIR(X8 MEM_DISP(rbx,8))) + INSN2(mov,l ,X4 MEM_DISP(rbx,24), R(edx)) + INSN2(cmp,l ,NUM(1), R(edx)) + INSN1(je,_ ,L(18)) + INSN2(test,l ,R(edx), R(edx)) + INSN1(je,_ ,L(76)) + INSN2(cmp,l ,NUM(2), R(edx)) + INSN1(je,_ ,L(73)) + INSN2(cmp,l ,NUM(3), R(edx)) + INSN1(je,_ ,L(73)) + INSN2(cmp,l ,NUM(4), R(edx)) + INSN1(je,_ ,L(73)) + INSN2(cmp,l ,NUM(5), R(edx)) + INSN1(je,_ ,L(74)) + INSN2(cmp,l ,NUM(6), R(edx)) + INSN1(je,_ ,L(74)) + INSN2(cmp,l ,NUM(7), R(edx)) + INSN1(je,_ ,L(75)) + INSN2(cmp,l ,NUM(8), R(edx)) + INSN1(je,_ ,L(75)) + INSN2(cmp,l ,NUM(9), R(edx)) + INSN1(je,_ ,L(76)) + INSN2(cmp,l ,NUM(10), R(edx)) + INSN1(je,_ ,L(76)) + INSN2(cmp,l ,NUM(11), R(edx)) + INSN1(je,_ ,L(76)) + INSN2(cmp,l ,NUM(12), R(edx)) + INSN1(je,_ ,L(76)) + INSN2(cmp,l ,NUM(15), R(edx)) + INSN1(je,_ ,L(76)) + INSN2(cmp,l ,NUM(16), R(edx)) + INSN1(jne,_ ,L(18)) + INSN2(test,l ,NUM(512),X4 MEM(rbx)) + INSN1(je,_ ,L(18)) + INSN2(mov,q ,X8 MEM_DISP(rbx,32), R(r8)) + INSN2(lea,q ,X8 MEM_DISP(r8,-4), R(rdx)) + INSN2(test,q ,NUM(-5), R(rdx)) + INSN1(je,_ ,L(35)) + INSN2(lea,q ,X8 MEM_DISP(r8,-1), R(rdx)) + INSN2(cmp,q ,NUM(1), R(rdx)) + INSN1(ja,_ ,L(18)) +L(35): + INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rdx)) + INSN2(mov,q ,R(rdx), R(r9)) + INSN2(and,l ,NUM(7), R(edx)) + INSN2(add,q ,R(rdx), R(r8)) + INSN2(and,q ,NUM(-8), R(r9)) + INSN2(cmp,q ,NUM(8), R(r8)) + INSN1(jbe,_ ,L(82)) + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(0,rdx,8), R(ecx)) + INSN2(mov,q ,X8 MEM(r9), R(r10)) + INSN2(mov,q ,R(rax), R(rsi)) + INSN2(mov,q ,NUM(-1), R(r11)) + INSN1(neg,l ,R(edx)) + INSN2(sal,q ,R(cl), R(rsi)) + INSN2(sal,q ,R(cl), R(r11)) + INSN2(mov,q ,R(rsi), R(rcx)) + INSN2(xor,q ,R(r10), R(rcx)) + INSN2(and,q ,R(r11), R(rcx)) + INSN2(xor,q ,R(r10), R(rcx)) + INSN2(mov,q ,X8 MEM_DISP(r9,8), R(r10)) + INSN2(mov,q ,R(rcx),X8 MEM(r9)) + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-65,r8,8), R(ecx)) + INSN2(mov,l ,NUM(2), R(r8d)) + INSN2(sal,q ,R(cl), R(r8)) + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(64,rdx,8), R(ecx)) + INSN2(sub,q ,NUM(1), R(r8)) + INSN2(sar,q ,R(cl), R(rax)) + INSN2(xor,q ,R(r10), R(rax)) + INSN2(and,q ,R(r8), R(rax)) + INSN2(xor,q ,R(r10), R(rax)) + INSN2(mov,q ,R(rax),X8 MEM_DISP(r9,8)) +L(18): + INSN2(lea,q ,X8 MEM_DISP(rbp,-16), R(rsp)) + INSN2(xor,l ,R(eax), R(eax)) + INSN1(pop,q ,R(rbx)) +L(CFI3): + INSN1(pop,q ,R(rsi)) +L(CFI4): + INSN1(pop,q ,R(rbp)) +L(CFI5): + ret + P2ALIGN(4,10) + P2ALIGN(3,7) +L(79): +L(CFI6): + INSN2S(movs,d ,X8 MEM_DISP(rbx,120), R(xmm3)) + INSN1(jmp,_ ,L(12)) + P2ALIGN(4,10) + P2ALIGN(3,7) +L(78): + INSN2S(movs,s ,X4 MEM_DISP(rbx,88), R(xmm3)) + INSN1(jmp,_ ,L(7)) + P2ALIGN(4,10) + P2ALIGN(3,7) +L(76): + INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rdx)) + INSN2(mov,q ,R(rax),X8 MEM(rdx)) + INSN2(lea,q ,X8 MEM_DISP(rbp,-16), R(rsp)) + INSN2(xor,l ,R(eax), R(eax)) + INSN1(pop,q ,R(rbx)) +L(CFI7): + INSN1(pop,q ,R(rsi)) +L(CFI8): + INSN1(pop,q ,R(rbp)) +L(CFI9): + ret + P2ALIGN(4,10) + P2ALIGN(3,7) +L(73): +L(CFI10): + INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rdx)) + INSN2(mov,b ,R(al),X1 MEM(rdx)) + INSN2(lea,q ,X8 MEM_DISP(rbp,-16), R(rsp)) + INSN2(xor,l ,R(eax), R(eax)) + INSN1(pop,q ,R(rbx)) +L(CFI11): + INSN1(pop,q ,R(rsi)) +L(CFI12): + INSN1(pop,q ,R(rbp)) +L(CFI13): + ret + P2ALIGN(4,10) + P2ALIGN(3,7) +L(81): +L(CFI14): + INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rsi)) + INSN2(mov,q ,X8 MEM_DISP(rcx,8), R(rdx)) + INSN2(mov,q ,X8 MEM_DISP(rcx,24), R(r9)) + INSN2(mov,q ,X8 MEM_DISP(rcx,16), R(r8)) + INSN2(mov,q ,X8 MEM(rcx), R(rcx)) + INSN1(call,_ ,INDIR(X8 MEM_DISP(rbx,8))) + INSN2S(movs,d ,R(xmm0),X8 MEM(rsi)) + INSN2(lea,q ,X8 MEM_DISP(rbp,-16), R(rsp)) + INSN2(xor,l ,R(eax), R(eax)) + INSN1(pop,q ,R(rbx)) +L(CFI15): + INSN1(pop,q ,R(rsi)) +L(CFI16): + INSN1(pop,q ,R(rbp)) +L(CFI17): + ret +L(80): +L(CFI18): + INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rsi)) + INSN2(mov,q ,X8 MEM_DISP(rcx,8), R(rdx)) + INSN2(mov,q ,X8 MEM_DISP(rcx,24), R(r9)) + INSN2(mov,q ,X8 MEM_DISP(rcx,16), R(r8)) + INSN2(mov,q ,X8 MEM(rcx), R(rcx)) + INSN1(call,_ ,INDIR(X8 MEM_DISP(rbx,8))) + INSN2S(movs,s ,R(xmm0),X4 MEM(rsi)) + INSN1(jmp,_ ,L(18)) +L(74): + INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rdx)) + INSN2(mov,w ,R(ax),X2 MEM(rdx)) + INSN1(jmp,_ ,L(18)) +L(75): + INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rdx)) + INSN2(mov,l ,R(eax),X4 MEM(rdx)) + INSN1(jmp,_ ,L(18)) +L(82): + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-1,r8,8), R(ecx)) + INSN2(mov,q ,X8 MEM(r9), R(r10)) + INSN2(sal,l ,NUM(3), R(edx)) + INSN2(mov,l ,NUM(2), R(r8d)) + INSN2(mov,l ,NUM(1), R(r11d)) + INSN2(sal,q ,R(cl), R(r8)) + INSN2(mov,l ,R(edx), R(ecx)) + INSN2(sal,q ,R(cl), R(r11)) + INSN2(sal,q ,R(cl), R(rax)) + INSN2(sub,q ,R(r11), R(r8)) + INSN2(xor,q ,R(r10), R(rax)) + INSN2(and,q ,R(r8), R(rax)) + INSN2(xor,q ,R(r10), R(rax)) + INSN2(mov,q ,R(rax),X8 MEM(r9)) + INSN1(jmp,_ ,L(18)) +L(FE0): + FUNEND(avcall_call, .-avcall_call) +#if !(defined __sun || (defined __APPLE__ && defined __MACH__) || (defined _WIN32 || defined __CYGWIN__)) + .section EH_FRAME_SECTION +L(frame1): + .long L(ECIE1)-.LSCIE1 +L(SCIE1): + .long 0 + .byte 0x3 + .string "zR" + .uleb128 0x1 + .sleb128 -8 + .uleb128 0x10 + .uleb128 0x1 + .byte 0x1b + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x90 + .uleb128 0x1 + .align 8 +L(ECIE1): +L(SFDE1): + .long L(EFDE1)-.LASFDE1 +L(ASFDE1): + .long L(ASFDE1)-.Lframe1 + .long L(FB0)-. + .long L(FE0)-.LFB0 + .uleb128 0 + .byte 0x4 + .long L(CFI0)-.LFB0 + .byte 0xe + .uleb128 0x10 + .byte 0x86 + .uleb128 0x2 + .byte 0x4 + .long L(CFI1)-.LCFI0 + .byte 0xd + .uleb128 0x6 + .byte 0x4 + .long L(CFI2)-.LCFI1 + .byte 0x84 + .uleb128 0x3 + .byte 0x83 + .uleb128 0x4 + .byte 0x4 + .long L(CFI3)-.LCFI2 + .byte 0xa + .byte 0xc3 + .byte 0x4 + .long L(CFI4)-.LCFI3 + .byte 0xc4 + .byte 0x4 + .long L(CFI5)-.LCFI4 + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long L(CFI6)-.LCFI5 + .byte 0xb + .byte 0x4 + .long L(CFI7)-.LCFI6 + .byte 0xa + .byte 0xc3 + .byte 0x4 + .long L(CFI8)-.LCFI7 + .byte 0xc4 + .byte 0x4 + .long L(CFI9)-.LCFI8 + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long L(CFI10)-.LCFI9 + .byte 0xb + .byte 0x4 + .long L(CFI11)-.LCFI10 + .byte 0xa + .byte 0xc3 + .byte 0x4 + .long L(CFI12)-.LCFI11 + .byte 0xc4 + .byte 0x4 + .long L(CFI13)-.LCFI12 + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long L(CFI14)-.LCFI13 + .byte 0xb + .byte 0x4 + .long L(CFI15)-.LCFI14 + .byte 0xa + .byte 0xc3 + .byte 0x4 + .long L(CFI16)-.LCFI15 + .byte 0xc4 + .byte 0x4 + .long L(CFI17)-.LCFI16 + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long L(CFI18)-.LCFI17 + .byte 0xb + .align 8 +L(EFDE1): +#endif +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/avcall/avcall-x86_64-windows.c b/avcall/avcall-x86_64-windows.c new file mode 100644 index 0000000..5d5d43c --- /dev/null +++ b/avcall/avcall-x86_64-windows.c @@ -0,0 +1,228 @@ +/** + Copyright 1993 Bill Triggs + Copyright 1995-2017 Bruno Haible + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . +**/ +/*---------------------------------------------------------------------- + Foreign function interface for an x86_64 (a.k.a. amd64) with gcc + using the Windows ABI ('gcc -mabi=ms'). + + This calls a C function with an argument list built up using macros + defined in avcall.h. + + x86_64 Argument Passing Conventions on Windows: + + Documentation is at https://docs.microsoft.com/en-us/cpp/build/calling-convention + A summary is at https://en.wikipedia.org/wiki/X86_calling_conventions#x86-64_calling_conventions + + * Arguments: + - Up to 4 words are passed in registers: + integer/pointer float/double + 1. %rcx %xmm0 + 2. %rdx %xmm1 + 3. %r8 %xmm2 + 4. %r9 %xmm3 + - Integer or pointer arguments: + The first 4 integer or pointer arguments get passed in integer + registers (%rcx, %rdx, %r8, %r9). + The remaining ones (as an entire word each) on the stack. + - Floating-point arguments: + The float/double arguments among the first 4 words are passed in + SSE registers (%xmm0..%xmm3), as shown above. + The remaining ones (as an entire word each) on the stack. + - Structure arguments: + Structure args of size 1, 2, 4, 8 bytes are passed like integers. + Structure args of other sizes are passed as pointers to caller-allocated + temporary locations. + * Return value: + Types of size 1, 2, 4, 8 bytes are returned in %rax or (for float/double + values) in %xmm0. + To return a structure of another size, the called function copies the + value to space pointed to by its first argument, and all other arguments + are shifted down by one. The function also returns the pointer. + * Call-used registers: rax,rdx,rcx,r8-r11 + + ----------------------------------------------------------------------*/ +#include "avcall-internal.h" + +#define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) + +/*register __avword iarg1 __asm__("rcx");*/ +/*register __avword iarg2 __asm__("rdx");*/ +/*register __avword iarg3 __asm__("r8");*/ +/*register __avword iarg4 __asm__("r9");*/ + +register float farg1 __asm__("xmm0"); +register float farg2 __asm__("xmm1"); +register float farg3 __asm__("xmm2"); +register float farg4 __asm__("xmm3"); + +register double darg1 __asm__("xmm0"); +register double darg2 __asm__("xmm1"); +register double darg3 __asm__("xmm2"); +register double darg4 __asm__("xmm3"); + +int +avcall_call(av_alist* list) +{ + register __avword* sp __asm__("rsp"); /* C names for registers */ + register __avword iret __asm__("rax"); + register float fret __asm__("xmm0"); + register double dret __asm__("xmm0"); + + __av_alist* l = &AV_LIST_INNER(list); + + __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ + int arglen = l->aptr - l->args; + int i; + + for (i = 4; i < arglen; i++) /* push function args onto stack */ + argframe[i-4] = l->args[i]; + + /* put up to 4 float args into registers */ + if (l->farg_mask) { + if (l->farg_mask & (1<<0)) + farg1 = l->fargs[0]; + if (l->farg_mask & (1<<1)) + farg2 = l->fargs[1]; + if (l->farg_mask & (1<<2)) + farg3 = l->fargs[2]; + if (l->farg_mask & (1<<3)) + farg4 = l->fargs[3]; + } + + /* put up to 4 double args into registers */ + if (l->darg_mask) { + if (l->darg_mask & (1<<0)) + darg1 = l->dargs[0]; + if (l->darg_mask & (1<<1)) + darg2 = l->dargs[1]; + if (l->darg_mask & (1<<2)) + darg3 = l->dargs[2]; + if (l->darg_mask & (1<<3)) + darg4 = l->dargs[3]; + } + + /* Call function. */ + if (l->rtype == __AVfloat) { + *(float*)l->raddr = (*(float(*)())l->func)(l->args[0], l->args[1], l->args[2], l->args[3]); + } else + if (l->rtype == __AVdouble) { + *(double*)l->raddr = (*(double(*)())l->func)(l->args[0], l->args[1], l->args[2], l->args[3]); + } else { + __avword iret; + iret = (*l->func)(l->args[0], l->args[1], l->args[2], l->args[3]); + + /* save return value */ + if (l->rtype == __AVvoid) { + } else + if (l->rtype == __AVword) { + RETURN(__avword, iret); + } else + if (l->rtype == __AVchar) { + RETURN(char, iret); + } else + if (l->rtype == __AVschar) { + RETURN(signed char, iret); + } else + if (l->rtype == __AVuchar) { + RETURN(unsigned char, iret); + } else + if (l->rtype == __AVshort) { + RETURN(short, iret); + } else + if (l->rtype == __AVushort) { + RETURN(unsigned short, iret); + } else + if (l->rtype == __AVint) { + RETURN(int, iret); + } else + if (l->rtype == __AVuint) { + RETURN(unsigned int, iret); + } else + if (l->rtype == __AVlong) { + RETURN(long, iret); + } else + if (l->rtype == __AVulong) { + RETURN(unsigned long, iret); + } else + if (l->rtype == __AVlonglong) { + RETURN(long long, iret); + } else + if (l->rtype == __AVulonglong) { + RETURN(unsigned long long, iret); + } else + /* see above + if (l->rtype == __AVfloat) { + } else + if (l->rtype == __AVdouble) { + } else + */ + if (l->rtype == __AVvoidp) { + RETURN(void*, iret); + } else + if (l->rtype == __AVstruct) { + if (l->flags & __AV_REGISTER_STRUCT_RETURN) { + /* Return structs of size 1, 2, 4, 8 in registers. */ + void* raddr = l->raddr; + #if 0 /* Unoptimized */ + if (l->rsize == 1) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + } else + if (l->rsize == 2) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + } else + if (l->rsize == 4) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + } else + if (l->rsize == 8) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[6] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[7] = (unsigned char)(iret>>56); + } + #else /* Optimized: fewer conditional jumps, fewer memory accesses */ + uintptr_t count = l->rsize; + if (count == 1 || count == 2 || count == 4 || count == 8) { + /* 0 < count ≤ sizeof(__avword) */ + __avword* wordaddr = (__avword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avword)-1)); + uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avword)-1); /* ≥ 0, < sizeof(__avword) */ + uintptr_t end_offset = start_offset + count; /* > 0, < 2*sizeof(__avword) */ + if (end_offset <= sizeof(__avword)) { + /* 0 < end_offset ≤ sizeof(__avword) */ + __avword mask0 = ((__avword)2 << (end_offset*8-1)) - ((__avword)1 << (start_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; + } else { + /* sizeof(__avword) < end_offset < 2*sizeof(__avword), start_offset > 0 */ + __avword mask0 = - ((__avword)1 << (start_offset*8)); + __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; + wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; + wordaddr[1] ^= (wordaddr[1] ^ (iret >> (sizeof(__avword)*8-start_offset*8))) & mask1; + } + } + #endif + } + } + } + return 0; +} diff --git a/avcall/avcall-x86_64-windows.s b/avcall/avcall-x86_64-windows.s new file mode 100644 index 0000000..73b140d --- /dev/null +++ b/avcall/avcall-x86_64-windows.s @@ -0,0 +1,369 @@ + .file "avcall-x86_64-windows.c" + .text + .p2align 4,,15 + .globl avcall_call + .type avcall_call, @function +avcall_call: +.LFB0: + pushq %rbp +.LCFI0: + movq %rsp, %rbp +.LCFI1: + pushq %rsi + pushq %rbx +.LCFI2: + movq %rcx, %rbx + subq $32, %rsp + movq 48(%rcx), %rcx + movq 40(%rbx), %rax + subq $2064, %rsp + subq %rcx, %rax + sarq $3, %rax + cmpl $4, %eax + jle .L6 + leal -5(%rax), %r8d + leaq 32(%rsp), %r9 + xorl %eax, %eax + addq $1, %r8 + .p2align 4,,10 + .p2align 3 +.L5: + movq 32(%rcx,%rax,8), %rdx + movq %rdx, (%r9,%rax,8) + addq $1, %rax + cmpq %r8, %rax + jne .L5 +.L6: + movl 68(%rbx), %eax + testl %eax, %eax + je .L7 + testb $1, %al + je .L8 + movss 76(%rbx), %xmm0 +.L8: + testb $2, %al + je .L9 + movss 80(%rbx), %xmm1 +.L9: + testb $4, %al + je .L10 + movss 84(%rbx), %xmm2 +.L10: + testb $8, %al + jne .L78 +.L7: + movl 72(%rbx), %eax + testl %eax, %eax + je .L12 + testb $1, %al + je .L13 + movsd 96(%rbx), %xmm0 +.L13: + testb $2, %al + je .L14 + movsd 104(%rbx), %xmm1 +.L14: + testb $4, %al + je .L15 + movsd 112(%rbx), %xmm2 +.L15: + testb $8, %al + jne .L79 +.L12: + movl 24(%rbx), %eax + cmpl $13, %eax + je .L80 + cmpl $14, %eax + je .L81 + movq 8(%rcx), %rdx + movq 24(%rcx), %r9 + movq 16(%rcx), %r8 + movq (%rcx), %rcx + call *8(%rbx) + movl 24(%rbx), %edx + cmpl $1, %edx + je .L18 + testl %edx, %edx + je .L76 + cmpl $2, %edx + je .L73 + cmpl $3, %edx + je .L73 + cmpl $4, %edx + je .L73 + cmpl $5, %edx + je .L74 + cmpl $6, %edx + je .L74 + cmpl $7, %edx + je .L75 + cmpl $8, %edx + je .L75 + cmpl $9, %edx + je .L76 + cmpl $10, %edx + je .L76 + cmpl $11, %edx + je .L76 + cmpl $12, %edx + je .L76 + cmpl $15, %edx + je .L76 + cmpl $16, %edx + jne .L18 + testl $512, (%rbx) + je .L18 + movq 32(%rbx), %r8 + leaq -4(%r8), %rdx + testq $-5, %rdx + je .L35 + leaq -1(%r8), %rdx + cmpq $1, %rdx + ja .L18 +.L35: + movq 16(%rbx), %rdx + movq %rdx, %r9 + andl $7, %edx + addq %rdx, %r8 + andq $-8, %r9 + cmpq $8, %r8 + jbe .L82 + leal 0(,%rdx,8), %ecx + movq (%r9), %r10 + movq %rax, %rsi + movq $-1, %r11 + negl %edx + salq %cl, %rsi + salq %cl, %r11 + movq %rsi, %rcx + xorq %r10, %rcx + andq %r11, %rcx + xorq %r10, %rcx + movq 8(%r9), %r10 + movq %rcx, (%r9) + leal -65(,%r8,8), %ecx + movl $2, %r8d + salq %cl, %r8 + leal 64(,%rdx,8), %ecx + subq $1, %r8 + sarq %cl, %rax + xorq %r10, %rax + andq %r8, %rax + xorq %r10, %rax + movq %rax, 8(%r9) +.L18: + leaq -16(%rbp), %rsp + xorl %eax, %eax + popq %rbx +.LCFI3: + popq %rsi +.LCFI4: + popq %rbp +.LCFI5: + ret + .p2align 4,,10 + .p2align 3 +.L79: +.LCFI6: + movsd 120(%rbx), %xmm3 + jmp .L12 + .p2align 4,,10 + .p2align 3 +.L78: + movss 88(%rbx), %xmm3 + jmp .L7 + .p2align 4,,10 + .p2align 3 +.L76: + movq 16(%rbx), %rdx + movq %rax, (%rdx) + leaq -16(%rbp), %rsp + xorl %eax, %eax + popq %rbx +.LCFI7: + popq %rsi +.LCFI8: + popq %rbp +.LCFI9: + ret + .p2align 4,,10 + .p2align 3 +.L73: +.LCFI10: + movq 16(%rbx), %rdx + movb %al, (%rdx) + leaq -16(%rbp), %rsp + xorl %eax, %eax + popq %rbx +.LCFI11: + popq %rsi +.LCFI12: + popq %rbp +.LCFI13: + ret + .p2align 4,,10 + .p2align 3 +.L81: +.LCFI14: + movq 16(%rbx), %rsi + movq 8(%rcx), %rdx + movq 24(%rcx), %r9 + movq 16(%rcx), %r8 + movq (%rcx), %rcx + call *8(%rbx) + movsd %xmm0, (%rsi) + leaq -16(%rbp), %rsp + xorl %eax, %eax + popq %rbx +.LCFI15: + popq %rsi +.LCFI16: + popq %rbp +.LCFI17: + ret +.L80: +.LCFI18: + movq 16(%rbx), %rsi + movq 8(%rcx), %rdx + movq 24(%rcx), %r9 + movq 16(%rcx), %r8 + movq (%rcx), %rcx + call *8(%rbx) + movss %xmm0, (%rsi) + jmp .L18 +.L74: + movq 16(%rbx), %rdx + movw %ax, (%rdx) + jmp .L18 +.L75: + movq 16(%rbx), %rdx + movl %eax, (%rdx) + jmp .L18 +.L82: + leal -1(,%r8,8), %ecx + movq (%r9), %r10 + sall $3, %edx + movl $2, %r8d + movl $1, %r11d + salq %cl, %r8 + movl %edx, %ecx + salq %cl, %r11 + salq %cl, %rax + subq %r11, %r8 + xorq %r10, %rax + andq %r8, %rax + xorq %r10, %rax + movq %rax, (%r9) + jmp .L18 +.LFE0: + .size avcall_call, .-avcall_call + .section .eh_frame,"a",@progbits +.Lframe1: + .long .LECIE1-.LSCIE1 +.LSCIE1: + .long 0 + .byte 0x3 + .string "zR" + .uleb128 0x1 + .sleb128 -8 + .uleb128 0x10 + .uleb128 0x1 + .byte 0x1b + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x90 + .uleb128 0x1 + .align 8 +.LECIE1: +.LSFDE1: + .long .LEFDE1-.LASFDE1 +.LASFDE1: + .long .LASFDE1-.Lframe1 + .long .LFB0-. + .long .LFE0-.LFB0 + .uleb128 0 + .byte 0x4 + .long .LCFI0-.LFB0 + .byte 0xe + .uleb128 0x10 + .byte 0x86 + .uleb128 0x2 + .byte 0x4 + .long .LCFI1-.LCFI0 + .byte 0xd + .uleb128 0x6 + .byte 0x4 + .long .LCFI2-.LCFI1 + .byte 0x84 + .uleb128 0x3 + .byte 0x83 + .uleb128 0x4 + .byte 0x4 + .long .LCFI3-.LCFI2 + .byte 0xa + .byte 0xc3 + .byte 0x4 + .long .LCFI4-.LCFI3 + .byte 0xc4 + .byte 0x4 + .long .LCFI5-.LCFI4 + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI6-.LCFI5 + .byte 0xb + .byte 0x4 + .long .LCFI7-.LCFI6 + .byte 0xa + .byte 0xc3 + .byte 0x4 + .long .LCFI8-.LCFI7 + .byte 0xc4 + .byte 0x4 + .long .LCFI9-.LCFI8 + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI10-.LCFI9 + .byte 0xb + .byte 0x4 + .long .LCFI11-.LCFI10 + .byte 0xa + .byte 0xc3 + .byte 0x4 + .long .LCFI12-.LCFI11 + .byte 0xc4 + .byte 0x4 + .long .LCFI13-.LCFI12 + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI14-.LCFI13 + .byte 0xb + .byte 0x4 + .long .LCFI15-.LCFI14 + .byte 0xa + .byte 0xc3 + .byte 0x4 + .long .LCFI16-.LCFI15 + .byte 0xc4 + .byte 0x4 + .long .LCFI17-.LCFI16 + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI18-.LCFI17 + .byte 0xb + .align 8 +.LEFDE1: + .ident "GCC: (GNU) 5.4.0" + .section .note.GNU-stack,"",@progbits diff --git a/avcall/avcall-x86_64-x32-linux.s b/avcall/avcall-x86_64-x32-linux.s new file mode 100644 index 0000000..8f3931d --- /dev/null +++ b/avcall/avcall-x86_64-x32-linux.s @@ -0,0 +1,632 @@ + .file "avcall-x86_64.c" + .section .text.unlikely,"ax",@progbits +.LCOLDB1: + .text +.LHOTB1: + .p2align 4,,15 + .globl avcall_call + .type avcall_call, @function +avcall_call: +.LFB0: + pushq %rbp +.LCFI0: + movl %esp, %ebp +.LCFI1: + pushq %r12 + pushq %rbx +.LCFI2: + movq %rdi, %rbx + movl 24(%edi), %edi + movl 20(%ebx), %ecx + movl 88(%ebx), %r8d + subl $2064, %esp + leal 96(%rbx), %eax + leal 15(%rsp), %esi + subl %edi, %ecx + subl %eax, %r8d + andl $-16, %esi + sarl $3, %ecx + sarl $3, %r8d + xorl %eax, %eax + testl %ecx, %ecx + jle .L6 + .p2align 4,,10 + .p2align 3 +.L77: + movq (%edi,%eax,8), %rdx + movq %rdx, (%esi,%eax,8) + addl $1, %eax + cmpl %eax, %ecx + jne .L77 +.L6: + movl 12(%ebx), %eax + cmpl $13, %eax + je .L95 + cmpl $14, %eax + je .L96 + cmpl $7, %r8d + movl 4(%ebx), %r10d + jle .L39 + movsd 152(%ebx), %xmm14 +.L40: + movsd 144(%ebx), %xmm13 +.L42: + movsd 136(%ebx), %xmm12 +.L44: + movsd 128(%ebx), %xmm11 +.L46: + movsd 120(%ebx), %xmm10 +.L48: + movsd 112(%ebx), %xmm9 +.L50: + movsd 104(%ebx), %xmm8 +.L52: + movsd 96(%ebx), %xmm15 +.L53: + movq 64(%ebx), %rcx + movq 56(%ebx), %rdx + movl $8, %eax + movq 48(%ebx), %rsi + movq 40(%ebx), %rdi + movapd %xmm14, %xmm7 + movapd %xmm13, %xmm6 + movapd %xmm12, %xmm5 + movq 80(%ebx), %r9 + movapd %xmm11, %xmm4 + movq 72(%ebx), %r8 + movapd %xmm10, %xmm3 + movapd %xmm9, %xmm2 + movapd %xmm8, %xmm1 + movapd %xmm15, %xmm0 + call *%r10 + movl 12(%ebx), %ecx + cmpl $1, %ecx + je .L22 + testl %ecx, %ecx + je .L92 + cmpl $2, %ecx + je .L86 + cmpl $3, %ecx + je .L86 + cmpl $4, %ecx + je .L86 + cmpl $5, %ecx + je .L87 + cmpl $6, %ecx + je .L87 + cmpl $7, %ecx + je .L91 + cmpl $8, %ecx + je .L91 + cmpl $9, %ecx + je .L91 + cmpl $10, %ecx + je .L91 + cmpl $11, %ecx + je .L92 + cmpl $12, %ecx + je .L92 + cmpl $15, %ecx + je .L91 + cmpl $16, %ecx + jne .L22 + testl $512, (%ebx) + je .L22 + movl 16(%ebx), %ecx + leal -1(%rcx), %esi + cmpl $15, %esi + ja .L22 + movl 8(%ebx), %esi + movl %esi, %edi + andl $7, %esi + andl $-8, %edi + cmpl $8, %ecx + leal (%rcx,%rsi), %r8d + ja .L67 + cmpl $8, %r8d + ja .L68 + leal -1(,%r8,8), %ecx + movq (%edi), %r9 + sall $3, %esi + movl $2, %edx + movl $1, %r8d + salq %cl, %rdx + movl %esi, %ecx + salq %cl, %r8 + salq %cl, %rax + subq %r8, %rdx + xorq %r9, %rax + andq %rdx, %rax + xorq %r9, %rax + movq %rax, (%edi) +.L22: + leal -16(%rbp), %esp + xorl %eax, %eax + popq %rbx + popq %r12 + popq %rbp +.LCFI3: + ret + .p2align 4,,10 + .p2align 3 +.L39: +.LCFI4: + je .L97 + cmpl $6, %r8d + je .L98 + cmpl $5, %r8d + je .L99 + cmpl $4, %r8d + je .L100 + cmpl $3, %r8d + je .L101 + cmpl $2, %r8d + je .L102 + pxor %xmm8, %xmm8 + cmpl $1, %r8d + movapd %xmm8, %xmm9 + movapd %xmm8, %xmm10 + movapd %xmm8, %xmm11 + movapd %xmm8, %xmm12 + movapd %xmm8, %xmm13 + movapd %xmm8, %xmm14 + je .L52 + movapd %xmm8, %xmm15 + jmp .L53 + .p2align 4,,10 + .p2align 3 +.L95: + cmpl $7, %r8d + movl 8(%ebx), %r12d + movl 4(%ebx), %r10d + jle .L7 + movsd 152(%ebx), %xmm14 +.L8: + movsd 144(%ebx), %xmm13 +.L10: + movsd 136(%ebx), %xmm12 +.L12: + movsd 128(%ebx), %xmm11 +.L14: + movsd 120(%ebx), %xmm10 +.L16: + movsd 112(%ebx), %xmm9 +.L18: + movsd 104(%ebx), %xmm8 +.L20: + movsd 96(%ebx), %xmm15 + jmp .L21 + .p2align 4,,10 + .p2align 3 +.L96: + cmpl $7, %r8d + movl 8(%ebx), %r12d + movl 4(%ebx), %r10d + jle .L24 + movsd 152(%ebx), %xmm14 +.L25: + movsd 144(%ebx), %xmm13 +.L27: + movsd 136(%ebx), %xmm12 +.L29: + movsd 128(%ebx), %xmm11 +.L31: + movsd 120(%ebx), %xmm10 +.L33: + movsd 112(%ebx), %xmm9 +.L35: + movsd 104(%ebx), %xmm8 +.L37: + movsd 96(%ebx), %xmm15 +.L38: + movq 64(%ebx), %rcx + movq 56(%ebx), %rdx + movl $8, %eax + movq 48(%ebx), %rsi + movq 40(%ebx), %rdi + movq 80(%ebx), %r9 + movq 72(%ebx), %r8 + movapd %xmm14, %xmm7 + movapd %xmm13, %xmm6 + movapd %xmm12, %xmm5 + movapd %xmm11, %xmm4 + movapd %xmm10, %xmm3 + movapd %xmm9, %xmm2 + movapd %xmm8, %xmm1 + movapd %xmm15, %xmm0 + call *%r10 + movsd %xmm0, (%r12d) + leal -16(%rbp), %esp + xorl %eax, %eax + popq %rbx + popq %r12 + popq %rbp +.LCFI5: + ret + .p2align 4,,10 + .p2align 3 +.L7: +.LCFI6: + je .L103 + cmpl $6, %r8d + je .L104 + cmpl $5, %r8d + je .L105 + cmpl $4, %r8d + je .L106 + cmpl $3, %r8d + je .L107 + cmpl $2, %r8d + je .L108 + pxor %xmm8, %xmm8 + cmpl $1, %r8d + movapd %xmm8, %xmm9 + movapd %xmm8, %xmm10 + movapd %xmm8, %xmm11 + movapd %xmm8, %xmm12 + movapd %xmm8, %xmm13 + movapd %xmm8, %xmm14 + movapd %xmm8, %xmm15 + je .L20 +.L21: + movq 64(%ebx), %rcx + movq 56(%ebx), %rdx + movl $8, %eax + movq 48(%ebx), %rsi + movq 40(%ebx), %rdi + movq 80(%ebx), %r9 + movq 72(%ebx), %r8 + movapd %xmm14, %xmm7 + movapd %xmm13, %xmm6 + movapd %xmm12, %xmm5 + movapd %xmm11, %xmm4 + movapd %xmm10, %xmm3 + movapd %xmm9, %xmm2 + movapd %xmm8, %xmm1 + movapd %xmm15, %xmm0 + call *%r10 + movss %xmm0, (%r12d) + leal -16(%rbp), %esp + xorl %eax, %eax + popq %rbx + popq %r12 + popq %rbp +.LCFI7: + ret + .p2align 4,,10 + .p2align 3 +.L102: +.LCFI8: + pxor %xmm9, %xmm9 + movapd %xmm9, %xmm10 + movapd %xmm9, %xmm11 + movapd %xmm9, %xmm12 + movapd %xmm9, %xmm13 + movapd %xmm9, %xmm14 + jmp .L50 +.L24: + je .L109 + cmpl $6, %r8d + je .L110 + cmpl $5, %r8d + je .L111 + cmpl $4, %r8d + je .L112 + cmpl $3, %r8d + je .L113 + cmpl $2, %r8d + je .L114 + pxor %xmm8, %xmm8 + cmpl $1, %r8d + movapd %xmm8, %xmm9 + movapd %xmm8, %xmm10 + movapd %xmm8, %xmm11 + movapd %xmm8, %xmm12 + movapd %xmm8, %xmm13 + movapd %xmm8, %xmm14 + movapd %xmm8, %xmm15 + jne .L38 + jmp .L37 + .p2align 4,,10 + .p2align 3 +.L86: + movl 8(%ebx), %edx + movb %al, (%edx) + leal -16(%rbp), %esp + xorl %eax, %eax + popq %rbx + popq %r12 + popq %rbp +.LCFI9: + ret +.L91: +.LCFI10: + movl 8(%ebx), %edx + movl %eax, (%edx) + jmp .L22 + .p2align 4,,10 + .p2align 3 +.L92: + movl 8(%ebx), %edx + movq %rax, (%edx) + leal -16(%rbp), %esp + xorl %eax, %eax + popq %rbx + popq %r12 + popq %rbp +.LCFI11: + ret +.L108: +.LCFI12: + pxor %xmm9, %xmm9 + movapd %xmm9, %xmm10 + movapd %xmm9, %xmm11 + movapd %xmm9, %xmm12 + movapd %xmm9, %xmm13 + movapd %xmm9, %xmm14 + jmp .L18 +.L87: + movl 8(%ebx), %edx + movw %ax, (%edx) + jmp .L22 +.L114: + pxor %xmm9, %xmm9 + movapd %xmm9, %xmm10 + movapd %xmm9, %xmm11 + movapd %xmm9, %xmm12 + movapd %xmm9, %xmm13 + movapd %xmm9, %xmm14 + jmp .L35 +.L68: + leal 0(,%rsi,8), %ecx + movq $-1, %rdx + movq (%edi), %r9 + negl %esi + salq %cl, %rdx + movq %rdx, %r10 + movq %rax, %rdx + salq %cl, %rdx + leal -65(,%r8,8), %ecx + xorq %r9, %rdx + andq %r10, %rdx + xorq %r9, %rdx + movq 8(%edi), %r9 + movq %rdx, (%edi) + movl $2, %edx + salq %cl, %rdx + leal 64(,%rsi,8), %ecx + subq $1, %rdx + sarq %cl, %rax + xorq %r9, %rax + andq %rdx, %rax + xorq %r9, %rax + movq %rax, 8(%edi) + jmp .L22 +.L67: + leal 0(,%rsi,8), %r10d + movq (%edi), %r9 + movq %rax, %rbx + movq $-1, %r11 + movl %r10d, %ecx + salq %cl, %rbx + salq %cl, %r11 + movq %rbx, %rcx + xorq %r9, %rcx + andq %r11, %rcx + xorq %r9, %rcx + cmpl $16, %r8d + movq %rcx, (%edi) + jbe .L115 + negl %esi + movq 16(%edi), %r9 + leal 64(,%rsi,8), %r11d + movq %rdx, %rsi + movl %r11d, %ecx + sarq %cl, %rax + movl %r10d, %ecx + salq %cl, %rsi + leal -129(,%r8,8), %ecx + orq %rsi, %rax + movq %rax, 8(%edi) + movl $2, %eax + salq %cl, %rax + movl %r11d, %ecx + leaq -1(%rax), %rsi + movq %rdx, %rax + sarq %cl, %rax + xorq %r9, %rax + andq %rsi, %rax + xorq %r9, %rax + movq %rax, 16(%edi) + jmp .L22 +.L101: + pxor %xmm10, %xmm10 + movapd %xmm10, %xmm11 + movapd %xmm10, %xmm12 + movapd %xmm10, %xmm13 + movapd %xmm10, %xmm14 + jmp .L48 +.L115: + negl %esi + leal -65(,%r8,8), %ecx + movq 8(%edi), %r9 + leal 32(,%rsi,4), %r11d + movl $2, %esi + salq %cl, %rsi + movl %r11d, %ecx + subq $1, %rsi + sarq %cl, %rax + sarq %cl, %rax + movl %r10d, %ecx + salq %cl, %rdx + orq %rdx, %rax + xorq %r9, %rax + andq %rsi, %rax + xorq %r9, %rax + movq %rax, 8(%edi) + jmp .L22 +.L113: + pxor %xmm10, %xmm10 + movapd %xmm10, %xmm11 + movapd %xmm10, %xmm12 + movapd %xmm10, %xmm13 + movapd %xmm10, %xmm14 + jmp .L33 +.L112: + pxor %xmm11, %xmm11 + movapd %xmm11, %xmm12 + movapd %xmm11, %xmm13 + movapd %xmm11, %xmm14 + jmp .L31 +.L97: + pxor %xmm14, %xmm14 + jmp .L40 +.L98: + pxor %xmm13, %xmm13 + movapd %xmm13, %xmm14 + jmp .L42 +.L99: + pxor %xmm12, %xmm12 + movapd %xmm12, %xmm13 + movapd %xmm12, %xmm14 + jmp .L44 +.L100: + pxor %xmm11, %xmm11 + movapd %xmm11, %xmm12 + movapd %xmm11, %xmm13 + movapd %xmm11, %xmm14 + jmp .L46 +.L111: + pxor %xmm12, %xmm12 + movapd %xmm12, %xmm13 + movapd %xmm12, %xmm14 + jmp .L29 +.L110: + pxor %xmm13, %xmm13 + movapd %xmm13, %xmm14 + jmp .L27 +.L109: + pxor %xmm14, %xmm14 + jmp .L25 +.L107: + pxor %xmm10, %xmm10 + movapd %xmm10, %xmm11 + movapd %xmm10, %xmm12 + movapd %xmm10, %xmm13 + movapd %xmm10, %xmm14 + jmp .L16 +.L106: + pxor %xmm11, %xmm11 + movapd %xmm11, %xmm12 + movapd %xmm11, %xmm13 + movapd %xmm11, %xmm14 + jmp .L14 +.L105: + pxor %xmm12, %xmm12 + movapd %xmm12, %xmm13 + movapd %xmm12, %xmm14 + jmp .L12 +.L104: + pxor %xmm13, %xmm13 + movapd %xmm13, %xmm14 + jmp .L10 +.L103: + pxor %xmm14, %xmm14 + jmp .L8 +.LFE0: + .size avcall_call, .-avcall_call + .section .text.unlikely +.LCOLDE1: + .text +.LHOTE1: + .section .eh_frame,"a",@progbits +.Lframe1: + .long .LECIE1-.LSCIE1 +.LSCIE1: + .long 0 + .byte 0x3 + .string "zR" + .uleb128 0x1 + .sleb128 -8 + .uleb128 0x10 + .uleb128 0x1 + .byte 0x1b + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x90 + .uleb128 0x1 + .align 4 +.LECIE1: +.LSFDE1: + .long .LEFDE1-.LASFDE1 +.LASFDE1: + .long .LASFDE1-.Lframe1 + .long .LFB0-. + .long .LFE0-.LFB0 + .uleb128 0 + .byte 0x4 + .long .LCFI0-.LFB0 + .byte 0xe + .uleb128 0x10 + .byte 0x86 + .uleb128 0x2 + .byte 0x4 + .long .LCFI1-.LCFI0 + .byte 0xd + .uleb128 0x6 + .byte 0x4 + .long .LCFI2-.LCFI1 + .byte 0x8c + .uleb128 0x3 + .byte 0x83 + .uleb128 0x4 + .byte 0x4 + .long .LCFI3-.LCFI2 + .byte 0xa + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI4-.LCFI3 + .byte 0xb + .byte 0x4 + .long .LCFI5-.LCFI4 + .byte 0xa + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI6-.LCFI5 + .byte 0xb + .byte 0x4 + .long .LCFI7-.LCFI6 + .byte 0xa + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI8-.LCFI7 + .byte 0xb + .byte 0x4 + .long .LCFI9-.LCFI8 + .byte 0xa + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI10-.LCFI9 + .byte 0xb + .byte 0x4 + .long .LCFI11-.LCFI10 + .byte 0xa + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI12-.LCFI11 + .byte 0xb + .align 4 +.LEFDE1: + .ident "GCC: (GNU) 5.4.0" + .section .note.GNU-stack,"",@progbits diff --git a/avcall/avcall-x86_64.c b/avcall/avcall-x86_64.c new file mode 100644 index 0000000..e3b2627 --- /dev/null +++ b/avcall/avcall-x86_64.c @@ -0,0 +1,342 @@ +/** + Copyright 1993 Bill Triggs + Copyright 1995-2017 Bruno Haible + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . +**/ +/*---------------------------------------------------------------------- + Foreign function interface for an x86_64 (a.k.a. amd64) with gcc + using the Unix ABI ('gcc -mabi=sysv'). + + This calls a C function with an argument list built up using macros + defined in avcall.h. + + x86_64 Argument Passing Conventions on Unix: + + Documentation is at https://github.com/hjl-tools/x86-psABI/wiki/X86-psABI + + * Arguments: + - Integer or pointer arguments: + The first 6 integer or pointer arguments get passed in integer + registers (%rdi, %rsi, %rdx, %rcx, %r8, %r9). + The remaining ones (as an entire word each) on the stack. + - Floating-point arguments: + Up to 8 float/double arguments are passed in SSE registers + (%xmm0..%xmm7). + The remaining ones (as an entire word each) on the stack. + - Structure arguments: + Structure args are passed as true structures embedded in the + argument stack. + * Return value: + Integers are returned in %rax, %rdx. Float/double values are returned + in %xmm0, %xmm1. To return a structure larger than 16 bytes, the called + function copies the value to space pointed to by its first argument, + and all other arguments are shifted down by one. + * Call-used registers: rax,rdx,rcx,rsi,rdi,r8-r11 + + ----------------------------------------------------------------------*/ +#include "avcall-internal.h" + +#define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) + +/*register __avword iarg1 __asm__("rdi");*/ +/*register __avword iarg2 __asm__("rsi");*/ +/*register __avword iarg3 __asm__("rdx");*/ +/*register __avword iarg4 __asm__("rcx");*/ +/*register __avword iarg5 __asm__("r8");*/ +/*register __avword iarg6 __asm__("r9");*/ + +register double farg1 __asm__("xmm0"); +register double farg2 __asm__("xmm1"); +register double farg3 __asm__("xmm2"); +register double farg4 __asm__("xmm3"); +register double farg5 __asm__("xmm4"); +register double farg6 __asm__("xmm5"); +register double farg7 __asm__("xmm6"); +register double farg8 __asm__("xmm7"); + +int +avcall_call(av_alist* list) +{ + register __avword* sp __asm__("rsp"); /* C names for registers */ +/*register __avword iretreg __asm__("rax");*/ + register __avword iret2reg __asm__("rdx"); + register double dret __asm__("xmm0"); + + __av_alist* l = &AV_LIST_INNER(list); + + __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ + int arglen = l->aptr - l->args; + int farglen = l->faptr - l->fargs; + __avword iret, iret2; + + { + int i; + for (i = 0; i < arglen; i++) /* push function args onto stack */ + argframe[i] = l->args[i]; + } + + /* Call function. + It's OK to pass 8 values in SSE registers even if the called function takes + less than 8 float/double arguments. Similarly for the integer arguments. */ + if (l->rtype == __AVfloat) { + *(float*)l->raddr = + (*(float(*)())l->func)(l->iargs[0], + l->iargs[1], + l->iargs[2], + l->iargs[3], + l->iargs[4], + l->iargs[5], + farglen > 0 ? l->fargs[0] : 0.0, + farglen > 1 ? l->fargs[1] : 0.0, + farglen > 2 ? l->fargs[2] : 0.0, + farglen > 3 ? l->fargs[3] : 0.0, + farglen > 4 ? l->fargs[4] : 0.0, + farglen > 5 ? l->fargs[5] : 0.0, + farglen > 6 ? l->fargs[6] : 0.0, + farglen > 7 ? l->fargs[7] : 0.0); + } else + if (l->rtype == __AVdouble) { + *(double*)l->raddr = + (*(double(*)())l->func)(l->iargs[0], + l->iargs[1], + l->iargs[2], + l->iargs[3], + l->iargs[4], + l->iargs[5], + farglen > 0 ? l->fargs[0] : 0.0, + farglen > 1 ? l->fargs[1] : 0.0, + farglen > 2 ? l->fargs[2] : 0.0, + farglen > 3 ? l->fargs[3] : 0.0, + farglen > 4 ? l->fargs[4] : 0.0, + farglen > 5 ? l->fargs[5] : 0.0, + farglen > 6 ? l->fargs[6] : 0.0, + farglen > 7 ? l->fargs[7] : 0.0); + } else { + iret = (*l->func)(l->iargs[0], + l->iargs[1], + l->iargs[2], + l->iargs[3], + l->iargs[4], + l->iargs[5], + farglen > 0 ? l->fargs[0] : 0.0, + farglen > 1 ? l->fargs[1] : 0.0, + farglen > 2 ? l->fargs[2] : 0.0, + farglen > 3 ? l->fargs[3] : 0.0, + farglen > 4 ? l->fargs[4] : 0.0, + farglen > 5 ? l->fargs[5] : 0.0, + farglen > 6 ? l->fargs[6] : 0.0, + farglen > 7 ? l->fargs[7] : 0.0); + iret2 = iret2reg; + + /* save return value */ + if (l->rtype == __AVvoid) { + } else + if (l->rtype == __AVword) { + RETURN(__avword, iret); + } else + if (l->rtype == __AVchar) { + RETURN(char, iret); + } else + if (l->rtype == __AVschar) { + RETURN(signed char, iret); + } else + if (l->rtype == __AVuchar) { + RETURN(unsigned char, iret); + } else + if (l->rtype == __AVshort) { + RETURN(short, iret); + } else + if (l->rtype == __AVushort) { + RETURN(unsigned short, iret); + } else + if (l->rtype == __AVint) { + RETURN(int, iret); + } else + if (l->rtype == __AVuint) { + RETURN(unsigned int, iret); + } else + if (l->rtype == __AVlong) { + RETURN(long, iret); + } else + if (l->rtype == __AVulong) { + RETURN(unsigned long, iret); + } else + if (l->rtype == __AVlonglong) { + RETURN(long long, iret); + } else + if (l->rtype == __AVulonglong) { + RETURN(unsigned long long, iret); + } else + /* see above + if (l->rtype == __AVfloat) { + } else + if (l->rtype == __AVdouble) { + } else + */ + if (l->rtype == __AVvoidp) { + RETURN(void*, iret); + } else + if (l->rtype == __AVstruct) { + if (l->flags & __AV_REGISTER_STRUCT_RETURN) { + /* Return structs of size <= 16 in registers. */ + if (l->rsize > 0 && l->rsize <= 16) { + void* raddr = l->raddr; + #if 0 /* Unoptimized */ + if (l->rsize == 1) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + } else + if (l->rsize == 2) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + } else + if (l->rsize == 3) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + } else + if (l->rsize == 4) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + } else + if (l->rsize == 5) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); + } else + if (l->rsize == 6) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); + } else + if (l->rsize == 7) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[6] = (unsigned char)(iret>>48); + } else + if (l->rsize >= 8 && l->rsize <= 16) { + ((unsigned char *)raddr)[0] = (unsigned char)(iret); + ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); + ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); + ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); + ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); + ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); + ((unsigned char *)raddr)[6] = (unsigned char)(iret>>48); + ((unsigned char *)raddr)[7] = (unsigned char)(iret>>56); + if (l->rsize == 8) { + } else + if (l->rsize == 9) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + } else + if (l->rsize == 10) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + } else + if (l->rsize == 11) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + } else + if (l->rsize == 12) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + } else + if (l->rsize == 13) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); + } else + if (l->rsize == 14) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); + } else + if (l->rsize == 15) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>48); + } else + if (l->rsize == 16) { + ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); + ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); + ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); + ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); + ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); + ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); + ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>48); + ((unsigned char *)raddr)[8+7] = (unsigned char)(iret2>>56); + } + } + #else /* Optimized: fewer conditional jumps, fewer memory accesses */ + uintptr_t count = l->rsize; /* > 0, ≤ 2*sizeof(__avword) */ + __avword* wordaddr = (__avword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avword)-1)); + uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avword)-1); /* ≥ 0, < sizeof(__avword) */ + uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__avword) */ + if (count <= sizeof(__avword)) { + /* Use iret. */ + if (end_offset <= sizeof(__avword)) { + /* 0 < end_offset ≤ sizeof(__avword) */ + __avword mask0 = ((__avword)2 << (end_offset*8-1)) - ((__avword)1 << (start_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; + } else { + /* sizeof(__avword) < end_offset < 2*sizeof(__avword), start_offset > 0 */ + __avword mask0 = - ((__avword)1 << (start_offset*8)); + __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; + wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; + wordaddr[1] ^= (wordaddr[1] ^ (iret >> (sizeof(__avword)*8-start_offset*8))) & mask1; + } + } else { + /* Use iret, iret2. */ + __avword mask0 = - ((__avword)1 << (start_offset*8)); + wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; + if (end_offset <= 2*sizeof(__avword)) { + /* sizeof(__avword) < end_offset ≤ 2*sizeof(__avword) */ + __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; + wordaddr[1] ^= (wordaddr[1] ^ ((iret >> (sizeof(__avword)*4-start_offset*4) >> (sizeof(__avword)*4-start_offset*4)) | (iret2 << (start_offset*8)))) & mask1; + } else { + /* 2*sizeof(__avword) < end_offset < 3*sizeof(__avword), start_offset > 0 */ + __avword mask2 = ((__avword)2 << (end_offset*8-2*sizeof(__avword)*8-1)) - 1; + wordaddr[1] = (iret >> (sizeof(__avword)*8-start_offset*8)) | (iret2 << (start_offset*8)); + wordaddr[2] ^= (wordaddr[2] ^ (iret2 >> (sizeof(__avword)*8-start_offset*8))) & mask2; + } + } + #endif + } + } + } + } + return 0; +} diff --git a/avcall/avcall.3 b/avcall/avcall.3 new file mode 100644 index 0000000..c297248 --- /dev/null +++ b/avcall/avcall.3 @@ -0,0 +1,280 @@ +.\" Copyright (C) 1993 Bill Triggs +.\" Copyright (C) 1995-2017 Bruno Haible +.\" +.\" This manual is covered by the GNU GPL. You can redistribute it and/or +.\" modify it under the terms of the GNU General Public License (GPL), either +.\" version 2 of the License, or (at your option) any later version published +.\" by the Free Software Foundation (FSF). +.\" A copy of the license is at . +.\" +.TH AVCALL 3 "23 July 2017" +.SH NAME +avcall \- build a C argument list incrementally and call a C function on it. +.SH SYNOPSIS +.B #include +.LP +.BI "av_alist " alist ";" +.LP +.BI av_start_ type "(" alist ", " "&func" +.RI "[["\c +.BI ", "\c +.I return_type\c +.RB "]" ", "\c +.I "&return_value"\c +.RB "]" ");" +.LP +.BI av_ type "(" alist ", "\c +.RI "["\c +.IB arg_type ","\c +.RI "] "\c +.IB value ");" +.LP +.BI "av_call(" alist ");" +.IX "av_alist" "" "\fLav_alist\fP \(em avcall argument list declaration" +.IX "av_start_type()" "" "\fLav_start_type()\fP \(em initialize avcall function" +.IX "av_type()" "" "\fLav_type()\fP \(em push next argument in avcall list" +.IX "av_call()" "" "\fLav_call()\fP \(em finish avcall argument list and call function" +.SH DESCRIPTION +.LP +This set of macros builds an argument list for a C function and calls +the function on it. It significantly reduces the amount of `glue' code +required for parsers, debuggers, imbedded interpreters, C extensions to +application programs and other situations where collections of functions +need to be called on lists of externally-supplied arguments. + +Function calling conventions differ considerably on different +machines and +.I avcall +attempts to provide some degree of isolation from such architecture +dependencies. + +The interface is like +.BR stdarg (3) +in reverse. All of the macros return 0 for success, < 0 for failure (e.g., +argument list overflow or type-not-supported). +.RS 0 +.TP +(1) +.B #include +.nf +and declare the argument list structure +.BI "av_alist " alist ; +.fi +.TP +(2) +Set any special flags. This is architecture and compiler dependent. +Compiler options that affect passing conventions may need to be flagged +by +.BR "#define" s +before the +.B "#include " +statement. However, the +.I configure +script should have determined which +.BR "#define" s +are needed and put them +at the top of +.BR avcall.h . +.TP +(3) +Initialize the alist with the function address and return value +pointer (if any). There is a separate macro for each simple return type +([u]char, [u]short, [u]int, [u]long, [u]longlong, float, double, where `u' +indicates `unsigned'). The macros for functions returning structures or +pointers require an explicit type argument. +.LP +E.g., +.LP +.BI "av_start_int (" alist ", " &func ", " &int_return ); +.LP +.BI "av_start_double (" alist ", " &func ", " &double_return ); +.LP +.BI "av_start_void (" alist ", " &func ); +.LP +.nf +.BI "av_start_struct (" alist ", " &func ", " struct_type ", " splittable ", " +.BI " " &struct_return ); +.fi +.LP +.nf +.BI "av_start_ptr (" alist ", " &func ", " pointer_type ", " +.BI " " &pointer_return ); +.fi +.LP +The +.I splittable +flag specifies whether the +.I struct_type +can be returned in registers such that every struct field fits entirely in +a single register. This needs to be specified for structs of size +2*sizeof(long). For structs of size <= sizeof(long), +.I splittable +is ignored and assumed to be 1. For structs of size > 2*sizeof(long), +.I splittable +is ignored and assumed to be 0. There are some handy macros for this: +.nf +.BI "av_word_splittable_1 (" type1 ) +.BI "av_word_splittable_2 (" type1 ", " type2 ) +.BI "av_word_splittable_3 (" type1 ", " type2 ", " type3 ) +.BI "av_word_splittable_4 (" type1 ", " type2 ", " type3 ", " type4 ) +.fi +For a struct with three slots +.nf +.BI "struct { " "type1 id1" "; " "type2 id2" "; " "type3 id3" "; }" +.fi +you can specify +.I splittable +as +.BI "av_word_splittable_3 (" type1 ", " type2 ", " type3 ) +.RB . +.TP +(4) +Push the arguments on to the list in order. Again there is a macro +for each simple built-in type, and the macros for structure and pointer +arguments require an extra type argument: +.LP +.BI "av_int (" alist ", " int_value ); +.LP +.BI "av_double (" alist ", " double_value ); +.LP +.BI "av_struct (" alist ", " struct_or_union_type ", " struct_value ); +.LP +.BI "av_ptr (" alist ", " pointer_type ", " pointer_value ); +.TP +(5) +Call the function, set the return value, and tidy up: +.LP +.BI "av_call (" alist ); +.RE + +.SH NOTES + +(1) Functions whose first declaration is in Kernighan & Ritchie style (i.e., +without a typed argument list) MUST use default K&R C expression promotions +(char and short to int, float to double) whether they are compiled by a K&R +or an ANSI compiler, because the true argument types may not be known at the +call point. Such functions typically back-convert their arguments to the +declared types on function entry. (In fact, the only way to pass a true char, +short or float in K&R C is by an explicit cast: +.B func((char)c,(float)f) +). +Similarly, some K&R compilers (such as Sun cc on the sparc) actually +return a float as a double. + +Hence, for arguments of functions declared in K&R style you should use +.B av_int(\|) +and +.B av_double(\|) +rather than +.B av_char(\|), +.B av_short(\|) +or +.B av_float(\|). +If you use a K&R compiler, the avcall header files may be able to +detect this and define +.B av_float(\|), +etc, appropriately, but with an ANSI compiler there is no way +.I avcall +can know how a function was declared, so you have to correct the +argument types yourself. + +(2) The explicit type arguments of the +.B av_struct(\|) +and +.B av_ptr(\|) +macros are typically used to calculate size, alignment, and passing +conventions. This may not be sufficient for some machines with unusual +structure and pointer handling: in this case additional +.B av_start_\c +.I type\c +.B (\|) +and +.B av_\c +.I type\c +.B (\|) +macros may be defined. + +(3) The macros +.BR av_start_longlong(\|) , +.BR av_start_ulonglong(\|) , +.B av_longlong(\|) +and +.B av_ulonglong(\|) +work only if the C compiler has a working +.B long long +64-bit integer type. + +(4) The struct types used in +.B av_start_struct(\|) +and +.B av_struct(\|) +must only contain (signed or unsigned) int, long, long long or pointer fields. +Struct types containing (signed or unsigned) char, short, float, double or +other structs are not supported. + +.SH SEE ALSO +.BR stdarg (3), +.BR varargs (3). + +.SH BUGS + +The current implementations have been tested on a selection of common +cases but there are probably still many bugs. + +There are typically built-in limits on the size of the argument-list, +which may also include the size of any structure arguments. + +The decision whether a struct is to be returned in registers or in memory +considers only the struct's size and alignment. This is inaccurate: for +example, gcc on m68k-next returns +.B "struct { char a,b,c; }" +in registers and +.B "struct { char a[3]; }" +in memory, although both types have the same size and the same alignment. + +.SH NON-BUGS + +All information is passed in CPU registers and the stack. The +.B avcall +package is therefore multithread-safe. + +.SH PORTING AVCALL + +Ports, bug-fixes, and suggestions are most welcome. The macros required +for argument pushing are pretty grungy, but it does seem to be possible +to port avcall to a range of machines. Ports to non-standard or +non-32-bit machines are especially welcome so we can sort the interface +out before it's too late. + +Knowledge about argument passing conventions can be found in the gcc +source, file +.RI gcc-2.6.3/config/ cpu / cpu .h, +section "Stack layout; function entry, exit and calling." + +Some of the grunge is usually handled by a C or assembly level glue +routine that actually pushes the arguments, calls the function and +unpacks any return value. +This is called avcall_call(\|). A precompiled assembler version for +people without gcc is also made available. The routine should ideally +have flags for the passing conventions of other compilers. + +Many of the current routines waste a lot of stack space and generally do +hairy things to stack frames - a bit more assembly code would probably +help things along quite a bit here. + +.SH AUTHOR + +Bill Triggs . + +.SH ACKNOWLEDGEMENTS + +Some initial ideas were stolen from the C interface to the Zelk +extensions to Oliver Laumann's Elk scheme interpreter by J.P.Lewis, NEC +C&C Research, (for Sun4 & SGI), and Roy +Featherstone's personal C interface library +for Sun[34] & SGI. I also looked at the machine-dependent parts of the +GCC and GDB distributions, and put the gcc asm(\|) extensions to good +use. Thanks guys! + +This work was partly supported by EC-ESPRIT Basic Research Action SECOND. + diff --git a/avcall/avcall.h b/avcall/avcall.h new file mode 100644 index 0000000..f429dc8 --- /dev/null +++ b/avcall/avcall.h @@ -0,0 +1,462 @@ +/* + * Copyright 1993-1995 Bill Triggs + * Copyright 1995-2019 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#ifndef _AVCALL_H +#define _AVCALL_H +/*---------------------------------------------------------------------- + av_call() foreign function interface. + + Varargs-style macros to build a C argument list incrementally + and call a function on it. + ----------------------------------------------------------------------*/ + +#include + +#include "ffcall-version.h" +#include "ffcall-abi.h" + + +/* Max # words in argument-list and temporary structure storage. + * If defined(__hppa__) && !defined(__hppa64__), this must be a multiple of 2. + */ +#ifndef __AV_ALIST_WORDS +#define __AV_ALIST_WORDS 256 +#endif + +/* Determine whether the current ABI is LLP64 + ('long' = 32-bit, 'long long' = 'void*' = 64-bit). */ +#if defined(__x86_64__) && defined(_WIN32) && !defined(__CYGWIN__) +#define __AV_LLP64 1 +#endif + +/* Determine the alignment of a type at compile time. + */ +#if defined(__GNUC__) || defined(__IBM__ALIGNOF__) +#define __AV_alignof __alignof__ +#elif defined(__cplusplus) +template struct __AV_alignof_helper { char __slot1; type __slot2; }; +#define __AV_alignof(type) offsetof (__AV_alignof_helper, __slot2) +#elif defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) /* SGI compiler */ +#define __AV_alignof __builtin_alignof +#else +#define __AV_offsetof(type,ident) ((unsigned long)&(((type*)0)->ident)) +#define __AV_alignof(type) __AV_offsetof(struct { char __slot1; type __slot2; }, __slot2) +#endif + +#ifdef __cplusplus +extern "C" { +#endif + +/* C builtin types. + */ +#if defined(__mipsn32__) || defined(__x86_64_x32__) || defined(__AV_LLP64) +typedef long long __avword; +#else +typedef long __avword; +#endif + +enum __AVtype +{ + __AVword, + __AVvoid, + __AVchar, + __AVschar, + __AVuchar, + __AVshort, + __AVushort, + __AVint, + __AVuint, + __AVlong, + __AVulong, + __AVlonglong, + __AVulonglong, + __AVfloat, + __AVdouble, + __AVvoidp, + __AVstruct +}; + +enum __AV_alist_flags +{ + + /* how to return structs */ + /* There are basically 3 ways to return structs: + * a. The called function returns a pointer to static data. Not reentrant. + * Not supported any more. + * b. The caller passes the return structure address in a dedicated register + * or as a first (or last), invisible argument. The called function stores + * its result there. + * c. Like b, and the called function also returns the return structure + * address in the return value register. (This is not very distinguishable + * from b.) + * Independently of this, + * r. small structures (<= 4 or <= 8 bytes) may be returned in the return + * value register(s), or + * m. even small structures are passed in memory. + */ + /* gcc-2.6.3 employs the following strategy: + * - If PCC_STATIC_STRUCT_RETURN is defined in the machine description + * it uses method a, else method c. + * - If flag_pcc_struct_return is set (either by -fpcc-struct-return or if + * DEFAULT_PCC_STRUCT_RETURN is defined to 1 in the machine description) + * it uses method m, else (either by -freg-struct-return or if + * DEFAULT_PCC_STRUCT_RETURN is defined to 0 in the machine description) + * method r. + */ + __AV_SMALL_STRUCT_RETURN = 1<<1, /* r: special case for small structs */ + __AV_GCC_STRUCT_RETURN = 1<<2, /* consider 8 byte structs as small */ +#if defined(__sparc__) && !defined(__sparc64__) + __AV_SUNCC_STRUCT_RETURN = 1<<3, + __AV_SUNPROCC_STRUCT_RETURN = 1<<4, +#endif +#if defined(__i386__) + __AV_MSVC_STRUCT_RETURN = 1<<4, +#endif + /* the default way to return structs */ + /* This choice here is based on the assumption that the function you are + * going to call has been compiled with the same compiler you are using to + * include this file. + * If you want to call functions with another struct returning convention, + * just #define __AV_STRUCT_RETURN ... + * before or after #including . + */ +#ifndef __AV_STRUCT_RETURN + __AV_STRUCT_RETURN = +#if defined(__sparc__) && !defined(__sparc64__) && defined(__sun) && (defined(__SUNPRO_C) || defined(__SUNPRO_CC)) /* SUNWspro cc or CC */ + __AV_SUNPROCC_STRUCT_RETURN, +#else +#if (defined(__i386__) && (defined(_WIN32) || defined(__CYGWIN__) || (defined(__MACH__) && defined(__APPLE__)) || defined(__FreeBSD__) || defined(__DragonFly__) || defined(__OpenBSD__))) || defined(__m68k__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc64__) || defined(__hppa__) || defined(__hppa64__) || defined(__arm__) || defined(__armhf__) || defined(__arm64__) || defined(__powerpc64_elfv2__) || defined(__ia64__) || defined(__x86_64__) || defined(__riscv32__) || defined(__riscv64__) + __AV_SMALL_STRUCT_RETURN | +#endif +#if defined(__GNUC__) && !((defined(__mipsn32__) || defined(__mips64__)) && ((__GNUC__ == 3 && __GNUC_MINOR__ >= 4) || (__GNUC__ > 3))) + __AV_GCC_STRUCT_RETURN | +#endif +#if defined(__i386__) && defined(_WIN32) && !defined(__CYGWIN__) /* native Windows */ + __AV_MSVC_STRUCT_RETURN | +#endif + 0, +#endif +#endif + + /* how to return floats */ +#if defined(__m68k__) || (defined(__sparc__) && !defined(__sparc64__)) + __AV_SUNCC_FLOAT_RETURN = 1<<5, +#endif +#if defined(__m68k__) + __AV_FREG_FLOAT_RETURN = 1<<6, +#endif + /* the default way to return floats */ + /* This choice here is based on the assumption that the function you are + * going to call has been compiled with the same compiler you are using to + * include this file. + * If you want to call functions with another float returning convention, + * just #define __AV_FLOAT_RETURN ... + * before or after #including . + */ +#ifndef __AV_FLOAT_RETURN +#if (defined(__m68k__) || (defined(__sparc__) && !defined(__sparc64__))) && !defined(__GNUC__) && defined(__sun) && !(defined(__SUNPRO_C) || defined(__SUNPRO_CC)) /* Sun cc or CC */ + __AV_FLOAT_RETURN = __AV_SUNCC_FLOAT_RETURN, +#elif defined(__m68k__) + __AV_FLOAT_RETURN = __AV_FREG_FLOAT_RETURN, +#else + __AV_FLOAT_RETURN = 0, +#endif +#endif + + /* how to pass structs */ +#if defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) + __AV_SGICC_STRUCT_ARGS = 1<<7, +#endif +#if defined(__powerpc__) || defined(__powerpc64__) + __AV_AIXCC_STRUCT_ARGS = 1<<7, +#endif +#if defined(__ia64__) + __AV_OLDGCC_STRUCT_ARGS = 1<<7, +#endif + /* the default way to pass structs */ + /* This choice here is based on the assumption that the function you are + * going to call has been compiled with the same compiler you are using to + * include this file. + * If you want to call functions with another struct passing convention, + * just #define __AV_STRUCT_ARGS ... + * before or after #including . + */ +#ifndef __AV_STRUCT_ARGS +#if (defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)) && !defined(__GNUC__) /* SGI mips cc */ + __AV_STRUCT_ARGS = __AV_SGICC_STRUCT_ARGS, +#else +#if (defined(__mipsn32__) || defined(__mips64__)) && (!defined(__GNUC__) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4) || (__GNUC__ > 3)) /* SGI mips cc or gcc >= 3.4 */ + __AV_STRUCT_ARGS = __AV_SGICC_STRUCT_ARGS, +#else +#if defined(__powerpc__) && !defined(__powerpc64__) && defined(_AIX) && !defined(__GNUC__) /* AIX 32-bit cc, xlc */ + __AV_STRUCT_ARGS = __AV_AIXCC_STRUCT_ARGS, +#else +#if defined(__powerpc64__) && defined(_AIX) /* AIX 64-bit cc, xlc, gcc */ + __AV_STRUCT_ARGS = __AV_AIXCC_STRUCT_ARGS, +#else +#if defined(__ia64__) && !(defined(__GNUC__) && (__GNUC__ >= 3)) + __AV_STRUCT_ARGS = __AV_OLDGCC_STRUCT_ARGS, +#else + __AV_STRUCT_ARGS = 0, +#endif +#endif +#endif +#endif +#endif +#endif + + /* how to pass floats */ + /* ANSI C compilers and GNU gcc pass floats as floats. + * K&R C compilers pass floats as doubles. We don't support them any more. + */ +#if defined(__powerpc64__) + __AV_AIXCC_FLOAT_ARGS = 1<<8, /* pass floats in the low 4 bytes of an 8-bytes word */ +#endif + /* the default way to pass floats */ + /* This choice here is based on the assumption that the function you are + * going to call has been compiled with the same compiler you are using to + * include this file. + * If you want to call functions with another float passing convention, + * just #define __AV_FLOAT_ARGS ... + * before or after #including . + */ +#ifndef __AV_FLOAT_ARGS +#if defined(__powerpc64__) && defined(_AIX) && !defined(__GNUC__) /* AIX 64-bit xlc */ + __AV_FLOAT_ARGS = __AV_AIXCC_FLOAT_ARGS, +#else + __AV_FLOAT_ARGS = 0, +#endif +#endif + + /* how to pass and return small integer arguments */ + __AV_ANSI_INTEGERS = 0, /* no promotions */ + __AV_TRADITIONAL_INTEGERS = 0, /* promote [u]char, [u]short to [u]int */ + /* Fortunately these two methods are compatible. Our macros work with both. */ + + /* stack cleanup policy */ + __AV_CDECL_CLEANUP = 0, /* caller pops args after return */ + __AV_STDCALL_CLEANUP = 0, /* callee pops args before return */ + /* currently only supported on __i386__ */ +#ifndef __AV_CLEANUP + __AV_CLEANUP = __AV_CDECL_CLEANUP, +#endif + + /* These are for internal use only */ +#if defined(__i386__) || defined(__m68k__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc64__) || defined(__alpha__) || defined(__hppa64__) || defined(__arm__) || defined(__armhf__) || defined(__arm64__) || defined(__powerpc__) || defined(__powerpc64__) || defined(__ia64__) || defined(__x86_64__) || (defined(__s390__) && !defined(__s390x__)) || defined(__riscv64__) + __AV_REGISTER_STRUCT_RETURN = 1<<9, +#endif + + __AV_flag_for_broken_compilers_that_dont_like_trailing_commas +}; + +#ifdef _AVCALL_INTERNAL_H +#include "avcall-alist.h" +#endif + +/* An upper bound for sizeof(__av_alist). + The total size of the __av_alist fields, ignoring alignment of fields, + varies from + 40 bytes (for __i386__, __m68k__, __sparc__, __hppa__, __arm__) + to + 232 bytes (for __arm64__). */ +#define __AV_ALIST_SIZE_BOUND 256 + +typedef struct +{ + /* First part: Fixed size __av_alist. */ + union { + char _av_m_room[__AV_ALIST_SIZE_BOUND]; +#ifdef _AVCALL_INTERNAL_H + __av_alist _av_m_alist; +#endif +/* GNU clisp pokes in internals of the alist! + When used by GNU clisp, assume a C compiler that supports anonymous unions + (GCC or an ISO C 11 compiler). */ +#ifdef LISPFUN + int flags; +#endif + /* For alignment. */ + long align1; + double align2; + long long align3; + long double align4; + } +#ifndef LISPFUN + _av_alist_head +#endif + ; + /* Second part: An array whose size depends on __AV_ALIST_WORDS. */ + union { + __avword _av_m_args[__AV_ALIST_WORDS]; + /* For alignment. */ + long align1; + double align2; + long long align3; + long double align4; + } _av_alist_flexarray; +} av_alist; + + +/* Delayed overflow detection */ +extern int avcall_overflown (av_alist* /* LIST */); +#define av_overflown(LIST) avcall_overflown(&(LIST)) + + +/* + * av_start_ macros which specify the return type + */ + +#define __AV_START_FLAGS \ + __AV_STRUCT_RETURN | __AV_FLOAT_RETURN | __AV_STRUCT_ARGS | __AV_FLOAT_ARGS | __AV_CLEANUP + +extern void avcall_start (av_alist* /* LIST */, __avword* /* LIST_ARGS */, __avword* /* LIST_ARGS_END */, __avword(* /* FUNC */)(), void* /* RADDR */, int /* RETTYPE */, int /* FLAGS */); + +#define av_start_void(LIST,FUNC) \ + avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),0, __AVvoid, __AV_START_FLAGS) +#define av_start_char(LIST,FUNC,RADDR) \ + avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),RADDR,__AVchar, __AV_START_FLAGS) +#define av_start_schar(LIST,FUNC,RADDR) \ + avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),RADDR,__AVschar, __AV_START_FLAGS) +#define av_start_uchar(LIST,FUNC,RADDR) \ + avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),RADDR,__AVuchar, __AV_START_FLAGS) +#define av_start_short(LIST,FUNC,RADDR) \ + avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),RADDR,__AVshort, __AV_START_FLAGS) +#define av_start_ushort(LIST,FUNC,RADDR) \ + avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),RADDR,__AVushort, __AV_START_FLAGS) +#define av_start_int(LIST,FUNC,RADDR) \ + avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),RADDR,__AVint, __AV_START_FLAGS) +#define av_start_uint(LIST,FUNC,RADDR) \ + avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),RADDR,__AVuint, __AV_START_FLAGS) +#define av_start_long(LIST,FUNC,RADDR) \ + avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),RADDR,__AVlong, __AV_START_FLAGS) +#define av_start_ulong(LIST,FUNC,RADDR) \ + avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),RADDR,__AVulong, __AV_START_FLAGS) +#define av_start_longlong(LIST,FUNC,RADDR) \ + avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),RADDR,__AVlonglong, __AV_START_FLAGS) +#define av_start_ulonglong(LIST,FUNC,RADDR) \ + avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),RADDR,__AVulonglong,__AV_START_FLAGS) +#define av_start_float(LIST,FUNC,RADDR) \ + avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),RADDR,__AVfloat, __AV_START_FLAGS) +#define av_start_double(LIST,FUNC,RADDR) \ + avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),RADDR,__AVdouble, __AV_START_FLAGS) +#define av_start_ptr(LIST,FUNC,TYPE,RADDR) \ + avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),RADDR,__AVvoidp, __AV_START_FLAGS) + +extern void avcall_start_struct (av_alist* /* LIST */, __avword* /* LIST_ARGS */, __avword* /* LIST_ARGS_END */, __avword(* /* FUNC */)(), size_t /* TYPE_SIZE */, int /* TYPE_SPLITTABLE */, void* /* RADDR */, int /* FLAGS */); + +#define av_start_struct(LIST,FUNC,TYPE,TYPE_SPLITTABLE,RADDR) \ + _av_start_struct(LIST,FUNC,sizeof(TYPE),TYPE_SPLITTABLE,RADDR) +/* Undocumented, but used by GNU clisp. */ +#define _av_start_struct(LIST,FUNC,TYPE_SIZE,TYPE_SPLITTABLE,RADDR) \ + avcall_start_struct(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),TYPE_SIZE,TYPE_SPLITTABLE,RADDR,__AV_START_FLAGS) + + +/* + * av_ macros which specify the argument and its type + */ + +/* integer argument types */ + +extern int avcall_arg_long (av_alist* /* LIST */, long /* VAL */); +extern int avcall_arg_ulong (av_alist* /* LIST */, unsigned long /* VAL */); + +#define av_char(LIST,VAL) avcall_arg_long(&(LIST),(char)(VAL)) +#define av_schar(LIST,VAL) avcall_arg_long(&(LIST),(signed char)(VAL)) +#define av_short(LIST,VAL) avcall_arg_long(&(LIST),(short)(VAL)) +#define av_int(LIST,VAL) avcall_arg_long(&(LIST),(int)(VAL)) +#define av_long(LIST,VAL) avcall_arg_long(&(LIST),(long)(VAL)) +#define av_uchar(LIST,VAL) avcall_arg_ulong(&(LIST),(unsigned char)(VAL)) +#define av_ushort(LIST,VAL) avcall_arg_ulong(&(LIST),(unsigned short)(VAL)) +#define av_uint(LIST,VAL) avcall_arg_ulong(&(LIST),(unsigned int)(VAL)) +#define av_ulong(LIST,VAL) avcall_arg_ulong(&(LIST),(unsigned long)(VAL)) + +extern int avcall_arg_ptr (av_alist* /* LIST */, void* /* VAL */); + +#define av_ptr(LIST,TYPE,VAL) avcall_arg_ptr(&(LIST),(TYPE)(VAL)) + +extern int avcall_arg_longlong (av_alist* /* LIST */, long long /* VAL */); +extern int avcall_arg_ulonglong (av_alist* /* LIST */, unsigned long long /* VAL */); + +#define av_longlong(LIST,VAL) avcall_arg_longlong(&(LIST),VAL) +#define av_ulonglong(LIST,VAL) avcall_arg_ulonglong(&(LIST),VAL) + +/* floating-point argument types */ + +extern int avcall_arg_float (av_alist* /* LIST */, float /* VAL */); +#define av_float(LIST,VAL) avcall_arg_float(&(LIST),VAL) + +extern int avcall_arg_double (av_alist* /* LIST */, double /* VAL */); +#define av_double(LIST,VAL) avcall_arg_double(&(LIST),VAL) + +/* + * structure argument types + */ + +extern int avcall_arg_struct (av_alist* /* LIST */, size_t /* TYPE_SIZE */, size_t /* TYPE_ALIGN */, const void* /* VAL_ADDR */); + +#define av_struct(LIST,TYPE,VAL) \ + avcall_arg_struct(&(LIST),sizeof(TYPE),__AV_alignof(TYPE),&(VAL)) +/* _av_struct() is like av_struct(), except that you pass the type's size and alignment + * and the value's address instead of the type and the value themselves. + * Undocumented, but used by GNU clisp. + */ +#define _av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL_ADDR) \ + avcall_arg_struct(&(LIST),TYPE_SIZE,TYPE_ALIGN,VAL_ADDR) + +/* + * calling the function + */ + +extern int avcall_call (av_alist* /* LIST */); +#define av_call(LIST) avcall_call(&(LIST)) + +/* Determine whether a struct type is word-splittable, i.e. whether each of + * its components fit into a register. + * The entire computation is done at compile time. + */ +#define av_word_splittable_1(slot1) \ + (__av_offset1(slot1)/sizeof(__avword) == (__av_offset1(slot1)+sizeof(slot1)-1)/sizeof(__avword)) +#define av_word_splittable_2(slot1,slot2) \ + ((__av_offset1(slot1)/sizeof(__avword) == (__av_offset1(slot1)+sizeof(slot1)-1)/sizeof(__avword)) \ + && (__av_offset2(slot1,slot2)/sizeof(__avword) == (__av_offset2(slot1,slot2)+sizeof(slot2)-1)/sizeof(__avword)) \ + ) +#define av_word_splittable_3(slot1,slot2,slot3) \ + ((__av_offset1(slot1)/sizeof(__avword) == (__av_offset1(slot1)+sizeof(slot1)-1)/sizeof(__avword)) \ + && (__av_offset2(slot1,slot2)/sizeof(__avword) == (__av_offset2(slot1,slot2)+sizeof(slot2)-1)/sizeof(__avword)) \ + && (__av_offset3(slot1,slot2,slot3)/sizeof(__avword) == (__av_offset3(slot1,slot2,slot3)+sizeof(slot3)-1)/sizeof(__avword)) \ + ) +#define av_word_splittable_4(slot1,slot2,slot3,slot4) \ + ((__av_offset1(slot1)/sizeof(__avword) == (__av_offset1(slot1)+sizeof(slot1)-1)/sizeof(__avword)) \ + && (__av_offset2(slot1,slot2)/sizeof(__avword) == (__av_offset2(slot1,slot2)+sizeof(slot2)-1)/sizeof(__avword)) \ + && (__av_offset3(slot1,slot2,slot3)/sizeof(__avword) == (__av_offset3(slot1,slot2,slot3)+sizeof(slot3)-1)/sizeof(__avword)) \ + && (__av_offset4(slot1,slot2,slot3,slot4)/sizeof(__avword) == (__av_offset4(slot1,slot2,slot3,slot4)+sizeof(slot4)-1)/sizeof(__avword)) \ + ) +#define __av_offset1(slot1) \ + 0 +#define __av_offset2(slot1,slot2) \ + ((__av_offset1(slot1)+sizeof(slot1)+__AV_alignof(slot2)-1) & -(long)__AV_alignof(slot2)) +#define __av_offset3(slot1,slot2,slot3) \ + ((__av_offset2(slot1,slot2)+sizeof(slot2)+__AV_alignof(slot3)-1) & -(long)__AV_alignof(slot3)) +#define __av_offset4(slot1,slot2,slot3,slot4) \ + ((__av_offset3(slot1,slot2,slot3)+sizeof(slot3)+__AV_alignof(slot4)-1) & -(long)__AV_alignof(slot4)) + +#ifdef __cplusplus +} +#endif + +#endif /* _AVCALL_H */ diff --git a/avcall/avcall.html b/avcall/avcall.html new file mode 100644 index 0000000..9fcd138 --- /dev/null +++ b/avcall/avcall.html @@ -0,0 +1,277 @@ + + + + + AVCALL manual page + + +

AVCALL manual page

+ + +

+ +

+ + +

Name

+ + +avcall - build a C argument list incrementally and call a +C function on it. + + +

Synopsis

+ + +
+#include <avcall.h>
+av_alist alist;
+av_start_type (alist, &func, [[return_type,] &return_value]);
+av_type (alist, [arg_type,] value);
+av_call(alist);
+
+ + +

Description

+ + +This set of macros builds an argument list for a C function +and calls the function on it. It significantly +reduces the amount of ‘glue’ code required for parsers, +debuggers, imbedded interpreters, C extensions to application +programs and other situations where collections of +functions need to be called on lists of externally- +supplied arguments. +

+Function calling conventions differ considerably on different +machines and avcall attempts to provide some degree +of isolation from such architecture dependencies. +

+The interface is like stdarg(3) in reverse. All of the +macros return 0 for success, < 0 for failure (e.g., argument +list overflow or type-not-supported). +

+

    +
  1. #include <avcall.h> and declare the argument list +structure av_alist alist; +

    +

  2. Set any special flags. This is architecture and compiler +dependent. +Compiler options that affect passing conventions may need +to be flagged by #defines before the #include <avcall.h> +statement. However, the configure script should have +determined which #defines are needed and put them +at the top of avcall.h. +

    +

  3. Initialize the alist with the function address and +return value pointer (if any). There is a separate macro +for each simple return type ([u]char, [u]short, [u]int, +[u]long, [u]longlong, float, double, where ‘u’ indicates +‘unsigned’). The macros for functions returning structures +or pointers require an explicit type argument. +

    +E.g., +

    +av_start_int (alist, &func, &int_return);
+av_start_double (alist, &func, &double_return);
+av_start_void (alist, &func);
+av_start_struct (alist, &func, struct_type, splittable, &struct_return);
+av_start_ptr (alist, &func, pointer_type, &pointer_return);
+
    +The splittable flag specifies whether the struct_type can +be returned in registers such that every struct field fits +entirely in a single register. This needs to be specified +for structs of size 2*sizeof(long). For structs of size +<= sizeof(long), splittable is ignored and assumed to be 1. +For structs of size > 2*sizeof(long), splittable is +ignored and assumed to be 0. There are some handy macros +for this: +
    +av_word_splittable_1 (type1)
+av_word_splittable_2 (type1, type2)
+av_word_splittable_3 (type1, type2, type3)
+av_word_splittable_4 (type1, type2, type3, type4)
+
    +For a struct with three slots +
    +struct { type1 id1; type2 id2; type3 id3; }
+
    +you can specify splittable as +av_word_splittable_3 (type1, type2, type3). +

    +

  4. Push the arguments on to the list in order. Again +there is a macro for each simple built-in type, and the +macros for structure and pointer arguments require an +extra type argument: +
    +av_int (alist, int_value);
+av_double (alist, double_value);
+av_struct (alist, struct_or_union_type, struct_value);
+av_ptr (alist, pointer_type, pointer_value);
+
    +
  5. Call the function, set the return value, and tidy up: +av_call (alist); +
+ + +

Notes

+ + +
    +
  1. Functions whose first declaration is in Kernighan & +Ritchie style (i.e., without a typed argument list) MUST +use default K&R C expression promotions (char and short to +int, float to double) whether they are compiled by a K&R +or an ANSI compiler, because the true argument types may +not be known at the call point. Such functions typically +back-convert their arguments to the declared types on +function entry. (In fact, the only way to pass a true +char, short or float in K&R C is by an explicit cast: +func((char)c,(float)f) ). Similarly, some K&R compilers +(such as Sun cc on the sparc) actually return a float as a +double. +

    +Hence, for arguments of functions declared in K&R style +you should use av_int() and av_double() rather than +av_char(), av_short() or av_float(). If you use a K&R +compiler, the avcall header files may be able to detect +this and define av_float(), etc, appropriately, but with +an ANSI compiler there is no way avcall can know how a +function was declared, so you have to correct the argument +types yourself. +

    +

  2. The explicit type arguments of the av_struct() and +av_ptr() macros are typically used to calculate size, +alignment, and passing conventions. This may not be sufficient for some machines with unusual structure and +pointer handling: in this case additional av_start_type() +and av_type() macros may be defined. +

    +

  3. The macros av_start_longlong(), +av_start_ulonglong(), av_longlong() and +av_ulonglong() work only if the C compiler has a working +long long 64-bit integer type. +

    +

  4. The struct types used in av_start_struct() and +av_struct() must only contain (signed or unsigned) int, +long, long long or pointer fields. Struct types containing +(signed or unsigned) char, short, float, double or other +structs are not supported. +

    +

+ + +

See also

+ +stdarg(3), varargs(3). + + +

Bugs

+ + +
    +
  • +The current implementations have been tested on a selection +of common cases but there are probably still many +bugs. +
  • +There are typically built-in limits on the size of the +argument-list, which may also include the size of any +structure arguments. +
  • +The decision whether a struct is to be returned in registers or in memory +considers only the struct's size and alignment. This is inaccurate: for +example, gcc on m68k-next returns +struct { char a,b,c; } +in registers and +struct { char a[3]; } +in memory, although both types have the same size and the same alignment. +
+ + +

Non-Bugs

+ + +All information is passed in CPU registers and the stack. +The avcall package is therefore multithread-safe. + + +

Porting AVCALL

+ + +Ports, bug-fixes, and suggestions are most welcome. The +macros required for argument pushing are pretty grungy, +but it does seem to be possible to port avcall to a range +of machines. Ports to non-standard or non-32-bit machines +are especially welcome so we can sort the interface out +before it's too late. +

+Knowledge about argument passing conventions can be found +in the gcc source, file gcc-2.6.3/config/cpu/cpu.h, section +"Stack layout; function entry, exit and calling." +

+Some of the grunge is usually handled by a C or assembly +level glue routine that actually pushes the arguments, +calls the function and unpacks any return value. This is +called avcall_call(). A precompiled assembler version for +people without gcc is also made available. The routine should ideally +have flags for the passing conventions of other compilers. +

+Many of the current routines waste a lot of stack space +and generally do hairy things to stack frames - a bit more +assembly code would probably help things along quite a bit +here. +

+ + +

Author

+ + +Bill Triggs <Bill.Triggs@inrialpes.fr>, <Bill.Triggs@imag.fr>. + + +

Acknowledgements

+ + +Some initial ideas were stolen from the C interface to the +Zelk extensions to Oliver Laumann's Elk scheme interpreter +by J.P.Lewis, NEC C&C Research, <zilla@ccrl.nj.nec.com> +(for Sun4 & SGI), and Roy Featherstone's +<roy@robots.oxford.ac.uk> personal C interface library for +Sun3, Sun4 & SGI. I also looked at the machine-dependent +parts of the GCC and GDB distributions, and put the gcc +asm() extensions to good use. Thanks guys! +

+This work was partly supported by EC-ESPRIT Basic Research +Action SECOND. +

+ +

+ +
AVCALL manual page
+Bruno Haible <bruno@clisp.org> +
+

+Last modified: 14 January 2001. + + + diff --git a/avcall/avcall.man b/avcall/avcall.man new file mode 100644 index 0000000..20f7c03 --- /dev/null +++ b/avcall/avcall.man @@ -0,0 +1,198 @@ +AVCALL(3) Library Functions Manual AVCALL(3) + + + +NAME + avcall - build a C argument list incrementally and call a C function on + it. + +SYNOPSIS + #include  + + av_alist alist; + + av_start_type(alist, &func [[, return_type], &return_value ]); + + av_type(alist, [arg_type,] value); + + av_call(alist); + +DESCRIPTION + This set of macros builds an argument list for a C function and calls + the function on it. It significantly reduces the amount of `glue' code + required for parsers, debuggers, imbedded interpreters, C extensions to + application programs and other situations where collections of func‐ + tions need to be called on lists of externally-supplied arguments. + + Function calling conventions differ considerably on different machines + and avcall attempts to provide some degree of isolation from such + architecture dependencies. + + The interface is like stdarg(3) in reverse. All of the macros return 0 + for success, < 0 for failure (e.g., argument list overflow or type-not- + supported). + + (1) #include  + and declare the argument list structure + av_alist alist; + + (2) Set any special flags. This is architecture and compiler depen‐ + dent. Compiler options that affect passing conventions may need + to be flagged by #defines before the #include state‐ + ment. However, the configure script should have determined which + #defines are needed and put them at the top of avcall.h. + + (3) Initialize the alist with the function address and return value + pointer (if any). There is a separate macro for each simple + return type ([u]char, [u]short, [u]int, [u]long, [u]longlong, + float, double, where `u' indicates `unsigned'). The macros for + functions returning structures or pointers require an explicit + type argument. + + E.g., + + av_start_int (alist, &func, &int_return); + + av_start_double (alist, &func, &double_return); + + av_start_void (alist, &func); + + av_start_struct (alist, &func, struct_type, splittable, + &struct_return); + + av_start_ptr (alist, &func, pointer_type, + &pointer_return); + + The splittable flag specifies whether the struct_type can be returned + in registers such that every struct field fits entirely in a single + register. This needs to be specified for structs of size + 2*sizeof(long). For structs of size <= sizeof(long), splittable is + ignored and assumed to be 1. For structs of size > 2*sizeof(long), + splittable is ignored and assumed to be 0. There are some handy macros + for this: + av_word_splittable_1 (type1) + av_word_splittable_2 (type1, type2) + av_word_splittable_3 (type1, type2, type3) + av_word_splittable_4 (type1, type2, type3, type4) + For a struct with three slots + struct { type1 id1; type2 id2; type3 id3; } + you can specify splittable as av_word_splittable_3 (type1, type2, + type3) . + + (4) Push the arguments on to the list in order. Again there is a + macro for each simple built-in type, and the macros for struc‐ + ture and pointer arguments require an extra type argument: + + av_int (alist, int_value); + + av_double (alist, double_value); + + av_struct (alist, struct_or_union_type, struct_value); + + av_ptr (alist, pointer_type, pointer_value); + + (5) Call the function, set the return value, and tidy up: + + av_call (alist); + + +NOTES + (1) Functions whose first declaration is in Kernighan & Ritchie style + (i.e., without a typed argument list) MUST use default K&R C expression + promotions (char and short to int, float to double) whether they are + compiled by a K&R or an ANSI compiler, because the true argument types + may not be known at the call point. Such functions typically back-con‐ + vert their arguments to the declared types on function entry. (In fact, + the only way to pass a true char, short or float in K&R C is by an + explicit cast: func((char)c,(float)f) ). Similarly, some K&R compilers + (such as Sun cc on the sparc) actually return a float as a double. + + Hence, for arguments of functions declared in K&R style you should use + av_int() and av_double() rather than av_char(), av_short() or + av_float(). If you use a K&R compiler, the avcall header files may be + able to detect this and define av_float(), etc, appropriately, but with + an ANSI compiler there is no way avcall can know how a function was + declared, so you have to correct the argument types yourself. + + (2) The explicit type arguments of the av_struct() and av_ptr() macros + are typically used to calculate size, alignment, and passing conven‐ + tions. This may not be sufficient for some machines with unusual + structure and pointer handling: in this case additional av_start_type() + and av_type() macros may be defined. + + (3) The macros av_start_longlong(), av_start_ulonglong(), av_longlong() + and av_ulonglong() work only if the C compiler has a working long long + 64-bit integer type. + + (4) The struct types used in av_start_struct() and av_struct() must + only contain (signed or unsigned) int, long, long long or pointer + fields. Struct types containing (signed or unsigned) char, short, + float, double or other structs are not supported. + + +SEE ALSO + stdarg(3), varargs(3). + + +BUGS + The current implementations have been tested on a selection of common + cases but there are probably still many bugs. + + There are typically built-in limits on the size of the argument-list, + which may also include the size of any structure arguments. + + The decision whether a struct is to be returned in registers or in mem‐ + ory considers only the struct's size and alignment. This is inaccurate: + for example, gcc on m68k-next returns struct { char a,b,c; } in regis‐ + ters and struct { char a[3]; } in memory, although both types have the + same size and the same alignment. + + +NON-BUGS + All information is passed in CPU registers and the stack. The avcall + package is therefore multithread-safe. + + +PORTING AVCALL + Ports, bug-fixes, and suggestions are most welcome. The macros required + for argument pushing are pretty grungy, but it does seem to be possible + to port avcall to a range of machines. Ports to non-standard or + non-32-bit machines are especially welcome so we can sort the interface + out before it's too late. + + Knowledge about argument passing conventions can be found in the gcc + source, file gcc-2.6.3/config/cpu/cpu.h, section "Stack layout; func‐ + tion entry, exit and calling." + + Some of the grunge is usually handled by a C or assembly level glue + routine that actually pushes the arguments, calls the function and + unpacks any return value. This is called avcall_call(). A precompiled + assembler version for people without gcc is also made available. The + routine should ideally have flags for the passing conventions of other + compilers. + + Many of the current routines waste a lot of stack space and generally + do hairy things to stack frames - a bit more assembly code would proba‐ + bly help things along quite a bit here. + + +AUTHOR + Bill Triggs . + + +ACKNOWLEDGEMENTS + Some initial ideas were stolen from the C interface to the Zelk exten‐ + sions to Oliver Laumann's Elk scheme interpreter by J.P.Lewis, NEC C&C + Research, (for Sun4 & SGI), and Roy Feather‐ + stone's personal C interface library for + Sun[34] & SGI. I also looked at the machine-dependent parts of the GCC + and GDB distributions, and put the gcc asm() extensions to good use. + Thanks guys! + + This work was partly supported by EC-ESPRIT Basic Research Action SEC‐ + OND. + + + + + 23 July 2017 AVCALL(3) diff --git a/avcall/minitests-c++.cc b/avcall/minitests-c++.cc new file mode 100644 index 0000000..1738e11 --- /dev/null +++ b/avcall/minitests-c++.cc @@ -0,0 +1,18 @@ +/* + * Copyright 2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "minitests.c" diff --git a/avcall/minitests.c b/avcall/minitests.c new file mode 100644 index 0000000..b0f50fe --- /dev/null +++ b/avcall/minitests.c @@ -0,0 +1,19 @@ +/* + * Copyright 1999-2001 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#define SKIP_EXTRA_STRUCTS +#include "tests.c" diff --git a/avcall/tests.c b/avcall/tests.c new file mode 100644 index 0000000..427a9e9 --- /dev/null +++ b/avcall/tests.c @@ -0,0 +1,1548 @@ +/** + Copyright 1993 Bill Triggs + Copyright 1995-2019 Bruno Haible + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . +**/ +/*---------------------------------------------------------------------- + Some test routines for avcall foreign function interface. + The coverage is entirely random, this just contains some of the things + that I think are likely to break. + + We really need to add some more pointer (void* / char* / func*) tests + and some varargs ones, and also try to test structure alignment more + throughly. + ----------------------------------------------------------------------*/ + +#include +#include +#include +#include "avcall.h" + +#include "testcases.c" + +#if defined(__hppa__) && defined(__GNUC__) +#if (__GNUC__ == 2 && __GNUC_MINOR__ < 6) +/* gcc-2.5.2 bugs prevent the T test from working. */ +#define SKIP_T +#endif +#endif +#if defined(__m68k__) && defined(__GNUC__) +/* "gcc-2.6.3 -freg-struct-return" returns T = struct { char c[3]; } (which + * has size 4 !) in memory, in contrast to struct { char a,b,c; } and + * struct { char c[4]; } and struct { char a,b,c,d; } which have the same + * size and the same alignment but are returned in registers. I don't know why. + */ +#define SKIP_T +#endif + + +/* + * The way we run these tests - first call the function directly, then + * through av_call() - there is the danger that arguments or results seem + * to be passed correctly, but what we are seeing are in fact the vestiges + * (traces) or the previous call. This may seriously fake the test. + * Avoid this by clearing the registers between the first and the second call. + */ +long clear_traces_i (long a, long b, long c, long d, long e, long f, long g, long h, + long i, long j, long k, long l, long m, long n, long o, long p) +{ return 0; } +float clear_traces_f (float a, float b, float c, float d, float e, float f, float g, + float h, float i, float j, float k, float l, float m, float n, + float o, float p) +{ return 0.0; } +double clear_traces_d (double a, double b, double c, double d, double e, double f, double g, + double h, double i, double j, double k, double l, double m, double n, + double o, double p) +{ return 0.0; } +J clear_traces_J (void) +{ J j; j.l1 = j.l2 = 0; return j; } +void clear_traces (void) +{ clear_traces_i(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0); + clear_traces_f(0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0); + clear_traces_d(0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0); + clear_traces_J(); +} + +void + void_tests (void) +{ + av_alist a; + v_v(); + clear_traces(); + av_start_void(a,v_v); + av_call(a); + return; +} +void + int_tests (void) +{ + av_alist a; + int ir; + + ir = i_v(); + fprintf(out,"->%d\n",ir); + fflush(out); + ir = 0; clear_traces(); + av_start_int(a,i_v,&ir); + av_call(a); + fprintf(out,"->%d\n",ir); + fflush(out); + + ir = i_i(i1); + fprintf(out,"->%d\n",ir); + fflush(out); + ir = 0; clear_traces(); + av_start_int(a,i_i,&ir); + av_int(a,i1); + av_call(a); + fprintf(out,"->%d\n",ir); + fflush(out); + + ir = i_i2(i1,i2); + fprintf(out,"->%d\n",ir); + fflush(out); + ir = 0; clear_traces(); + av_start_int(a,i_i2,&ir); + av_int(a,i1); + av_int(a,i2); + av_call(a); + fprintf(out,"->%d\n",ir); + fflush(out); + + ir = i_i4(i1,i2,i3,i4); + fprintf(out,"->%d\n",ir); + fflush(out); + ir = 0; clear_traces(); + av_start_int(a,i_i4,&ir); + av_int(a,i1); + av_int(a,i2); + av_int(a,i3); + av_int(a,i4); + av_call(a); + fprintf(out,"->%d\n",ir); + fflush(out); + + ir = i_i8(i1,i2,i3,i4,i5,i6,i7,i8); + fprintf(out,"->%d\n",ir); + fflush(out); + ir = 0; clear_traces(); + av_start_int(a,i_i8,&ir); + av_int(a,i1); + av_int(a,i2); + av_int(a,i3); + av_int(a,i4); + av_int(a,i5); + av_int(a,i6); + av_int(a,i7); + av_int(a,i8); + av_call(a); + fprintf(out,"->%d\n",ir); + fflush(out); + + ir = i_i16(i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15,i16); + fprintf(out,"->%d\n",ir); + fflush(out); + ir = 0; clear_traces(); + av_start_int(a,i_i16,&ir); + av_int(a,i1); + av_int(a,i2); + av_int(a,i3); + av_int(a,i4); + av_int(a,i5); + av_int(a,i6); + av_int(a,i7); + av_int(a,i8); + av_int(a,i9); + av_int(a,i10); + av_int(a,i11); + av_int(a,i12); + av_int(a,i13); + av_int(a,i14); + av_int(a,i15); + av_int(a,i16); + av_call(a); + fprintf(out,"->%d\n",ir); + fflush(out); + + ir = i_i32(i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15,i16,i17,i18,i19,i20,i21,i22,i23,i24,i25,i26,i27,i28,i29,i30,i31,i32); + fprintf(out,"->%d\n",ir); + fflush(out); + ir = 0; clear_traces(); + av_start_int(a,i_i32,&ir); + av_int(a,i1); + av_int(a,i2); + av_int(a,i3); + av_int(a,i4); + av_int(a,i5); + av_int(a,i6); + av_int(a,i7); + av_int(a,i8); + av_int(a,i9); + av_int(a,i10); + av_int(a,i11); + av_int(a,i12); + av_int(a,i13); + av_int(a,i14); + av_int(a,i15); + av_int(a,i16); + av_int(a,i17); + av_int(a,i18); + av_int(a,i19); + av_int(a,i20); + av_int(a,i21); + av_int(a,i22); + av_int(a,i23); + av_int(a,i24); + av_int(a,i25); + av_int(a,i26); + av_int(a,i27); + av_int(a,i28); + av_int(a,i29); + av_int(a,i30); + av_int(a,i31); + av_int(a,i32); + av_call(a); + fprintf(out,"->%d\n",ir); + fflush(out); + + return; +} +void + float_tests (void) +{ + av_alist a; + float fr; + + fr = f_f(f1); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + av_start_float(a,f_f,&fr); + av_float(a,f1); + av_call(a); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f2(f1,f2); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + av_start_float(a,f_f2,&fr); + av_float(a,f1); + av_float(a,f2); + av_call(a); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f4(f1,f2,f3,f4); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + av_start_float(a,f_f4,&fr); + av_float(a,f1); + av_float(a,f2); + av_float(a,f3); + av_float(a,f4); + av_call(a); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f8(f1,f2,f3,f4,f5,f6,f7,f8); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + av_start_float(a,f_f8,&fr); + av_float(a,f1); + av_float(a,f2); + av_float(a,f3); + av_float(a,f4); + av_float(a,f5); + av_float(a,f6); + av_float(a,f7); + av_float(a,f8); + av_call(a); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f16(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + av_start_float(a,f_f16,&fr); + av_float(a,f1); + av_float(a,f2); + av_float(a,f3); + av_float(a,f4); + av_float(a,f5); + av_float(a,f6); + av_float(a,f7); + av_float(a,f8); + av_float(a,f9); + av_float(a,f10); + av_float(a,f11); + av_float(a,f12); + av_float(a,f13); + av_float(a,f14); + av_float(a,f15); + av_float(a,f16); + av_call(a); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f24(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18,f19,f20,f21,f22,f23,f24); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + av_start_float(a,f_f24,&fr); + av_float(a,f1); + av_float(a,f2); + av_float(a,f3); + av_float(a,f4); + av_float(a,f5); + av_float(a,f6); + av_float(a,f7); + av_float(a,f8); + av_float(a,f9); + av_float(a,f10); + av_float(a,f11); + av_float(a,f12); + av_float(a,f13); + av_float(a,f14); + av_float(a,f15); + av_float(a,f16); + av_float(a,f17); + av_float(a,f18); + av_float(a,f19); + av_float(a,f20); + av_float(a,f21); + av_float(a,f22); + av_float(a,f23); + av_float(a,f24); + av_call(a); + fprintf(out,"->%g\n",fr); + fflush(out); +} +void + double_tests (void) +{ + av_alist a; + double dr; + + dr = d_d(d1); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + av_start_double(a,d_d,&dr); + av_double(a,d1); + av_call(a); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d2(d1,d2); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + av_start_double(a,d_d2,&dr); + av_double(a,d1); + av_double(a,d2); + av_call(a); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d4(d1,d2,d3,d4); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + av_start_double(a,d_d4,&dr); + av_double(a,d1); + av_double(a,d2); + av_double(a,d3); + av_double(a,d4); + av_call(a); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d8(d1,d2,d3,d4,d5,d6,d7,d8); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + av_start_double(a,d_d8,&dr); + av_double(a,d1); + av_double(a,d2); + av_double(a,d3); + av_double(a,d4); + av_double(a,d5); + av_double(a,d6); + av_double(a,d7); + av_double(a,d8); + av_call(a); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d16(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + av_start_double(a,d_d16,&dr); + av_double(a,d1); + av_double(a,d2); + av_double(a,d3); + av_double(a,d4); + av_double(a,d5); + av_double(a,d6); + av_double(a,d7); + av_double(a,d8); + av_double(a,d9); + av_double(a,d10); + av_double(a,d11); + av_double(a,d12); + av_double(a,d13); + av_double(a,d14); + av_double(a,d15); + av_double(a,d16); + av_call(a); + fprintf(out,"->%g\n",dr); + fflush(out); + + return; +} +void + pointer_tests (void) +{ + av_alist a; + void* vpr; + + vpr = vp_vpdpcpsp(&uc1,&d2,str3,&I4); + fprintf(out,"->0x%p\n",vpr); + fflush(out); + vpr = 0; clear_traces(); + av_start_ptr(a,vp_vpdpcpsp,void*,&vpr); + av_ptr(a,void*,&uc1); + av_ptr(a,double*,&d2); + av_ptr(a,char*,str3); + av_ptr(a,Int*,&I4); + av_call(a); + fprintf(out,"->0x%p\n",vpr); + fflush(out); + + return; +} +void + mixed_number_tests (void) +{ + av_alist a; + uchar ucr; + ushort usr; + float fr; + double dr; + long long llr; + + /* Unsigned types. + */ + ucr = uc_ucsil(uc1,us2,ui3,ul4); + fprintf(out,"->%u\n",ucr); + fflush(out); + ucr = 0; clear_traces(); + av_start_uchar(a,uc_ucsil,&ucr); + av_uchar(a,uc1); + av_ushort(a,us2); + av_uint(a,ui3); + av_ulong(a,ul4); + av_call(a); + fprintf(out,"->%u\n",ucr); + fflush(out); + + /* Mixed int & float types. + */ + dr = d_iidd(i1,i2,d3,d4); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + av_start_double(a,d_iidd,&dr); + av_int(a,i1); + av_int(a,i2); + av_double(a,d3); + av_double(a,d4); + av_call(a); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_iiidi(i1,i2,i3,d4,i5); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + av_start_double(a,d_iiidi,&dr); + av_int(a,i1); + av_int(a,i2); + av_int(a,i3); + av_double(a,d4); + av_int(a,i5); + av_call(a); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_idid(i1,d2,i3,d4); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + av_start_double(a,d_idid,&dr); + av_int(a,i1); + av_double(a,d2); + av_int(a,i3); + av_double(a,d4); + av_call(a); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_fdi(f1,d2,i3); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + av_start_double(a,d_fdi,&dr); + av_float(a,f1); + av_double(a,d2); + av_int(a,i3); + av_call(a); + fprintf(out,"->%g\n",dr); + fflush(out); + + usr = us_cdcd(c1,d2,c3,d4); + fprintf(out,"->%u\n",usr); + fflush(out); + usr = 0; clear_traces(); + av_start_ushort(a,us_cdcd,&usr); + av_char(a,c1); + av_double(a,d2); + av_char(a,c3); + av_double(a,d4); + av_call(a); + fprintf(out,"->%u\n",usr); + fflush(out); + + /* Long long types. + */ + llr = ll_iiilli(i1,i2,i3,ll1,i13); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + llr = 0; clear_traces(); + av_start_longlong(a,ll_iiilli,&llr); + av_int(a,i1); + av_int(a,i2); + av_int(a,i3); + av_longlong(a,ll1); + av_int(a,i13); + av_call(a); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + + llr = ll_flli(f13,ll1,i13); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + llr = 0; clear_traces(); + av_start_longlong(a,ll_flli,&llr); + av_float(a,f13); + av_longlong(a,ll1); + av_int(a,i13); + av_call(a); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + + fr = f_fi(f1,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + av_start_float(a,f_fi,&fr); + av_float(a,f1); + av_int(a,i9); + av_call(a); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f2i(f1,f2,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + av_start_float(a,f_f2i,&fr); + av_float(a,f1); + av_float(a,f2); + av_int(a,i9); + av_call(a); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f3i(f1,f2,f3,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + av_start_float(a,f_f3i,&fr); + av_float(a,f1); + av_float(a,f2); + av_float(a,f3); + av_int(a,i9); + av_call(a); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f4i(f1,f2,f3,f4,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + av_start_float(a,f_f4i,&fr); + av_float(a,f1); + av_float(a,f2); + av_float(a,f3); + av_float(a,f4); + av_int(a,i9); + av_call(a); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f7i(f1,f2,f3,f4,f5,f6,f7,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + av_start_float(a,f_f7i,&fr); + av_float(a,f1); + av_float(a,f2); + av_float(a,f3); + av_float(a,f4); + av_float(a,f5); + av_float(a,f6); + av_float(a,f7); + av_int(a,i9); + av_call(a); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f8i(f1,f2,f3,f4,f5,f6,f7,f8,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + av_start_float(a,f_f8i,&fr); + av_float(a,f1); + av_float(a,f2); + av_float(a,f3); + av_float(a,f4); + av_float(a,f5); + av_float(a,f6); + av_float(a,f7); + av_float(a,f8); + av_int(a,i9); + av_call(a); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f12i(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + av_start_float(a,f_f12i,&fr); + av_float(a,f1); + av_float(a,f2); + av_float(a,f3); + av_float(a,f4); + av_float(a,f5); + av_float(a,f6); + av_float(a,f7); + av_float(a,f8); + av_float(a,f9); + av_float(a,f10); + av_float(a,f11); + av_float(a,f12); + av_int(a,i9); + av_call(a); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f13i(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + av_start_float(a,f_f13i,&fr); + av_float(a,f1); + av_float(a,f2); + av_float(a,f3); + av_float(a,f4); + av_float(a,f5); + av_float(a,f6); + av_float(a,f7); + av_float(a,f8); + av_float(a,f9); + av_float(a,f10); + av_float(a,f11); + av_float(a,f12); + av_float(a,f13); + av_int(a,i9); + av_call(a); + fprintf(out,"->%g\n",fr); + fflush(out); + + dr = d_di(d1,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + av_start_double(a,d_di,&dr); + av_double(a,d1); + av_int(a,i9); + av_call(a); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d2i(d1,d2,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + av_start_double(a,d_d2i,&dr); + av_double(a,d1); + av_double(a,d2); + av_int(a,i9); + av_call(a); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d3i(d1,d2,d3,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + av_start_double(a,d_d3i,&dr); + av_double(a,d1); + av_double(a,d2); + av_double(a,d3); + av_int(a,i9); + av_call(a); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d4i(d1,d2,d3,d4,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + av_start_double(a,d_d4i,&dr); + av_double(a,d1); + av_double(a,d2); + av_double(a,d3); + av_double(a,d4); + av_int(a,i9); + av_call(a); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d7i(d1,d2,d3,d4,d5,d6,d7,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + av_start_double(a,d_d7i,&dr); + av_double(a,d1); + av_double(a,d2); + av_double(a,d3); + av_double(a,d4); + av_double(a,d5); + av_double(a,d6); + av_double(a,d7); + av_int(a,i9); + av_call(a); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d8i(d1,d2,d3,d4,d5,d6,d7,d8,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + av_start_double(a,d_d8i,&dr); + av_double(a,d1); + av_double(a,d2); + av_double(a,d3); + av_double(a,d4); + av_double(a,d5); + av_double(a,d6); + av_double(a,d7); + av_double(a,d8); + av_int(a,i9); + av_call(a); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d12i(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + av_start_double(a,d_d12i,&dr); + av_double(a,d1); + av_double(a,d2); + av_double(a,d3); + av_double(a,d4); + av_double(a,d5); + av_double(a,d6); + av_double(a,d7); + av_double(a,d8); + av_double(a,d9); + av_double(a,d10); + av_double(a,d11); + av_double(a,d12); + av_int(a,i9); + av_call(a); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d13i(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + av_start_double(a,d_d13i,&dr); + av_double(a,d1); + av_double(a,d2); + av_double(a,d3); + av_double(a,d4); + av_double(a,d5); + av_double(a,d6); + av_double(a,d7); + av_double(a,d8); + av_double(a,d9); + av_double(a,d10); + av_double(a,d11); + av_double(a,d12); + av_double(a,d13); + av_int(a,i9); + av_call(a); + fprintf(out,"->%g\n",dr); + fflush(out); + + return; +} +void + small_structure_return_tests (void) +{ + av_alist a; + + { + Size1 r = S1_v(); + fprintf(out,"->{%c}\n",r.x1); + fflush(out); + memset(&r,0,sizeof(r)); clear_traces(); + av_start_struct(a,S1_v,Size1,1,&r); + av_call(a); + fprintf(out,"->{%c}\n",r.x1); + fflush(out); + } + { + Size2 r = S2_v(); + fprintf(out,"->{%c%c}\n",r.x1,r.x2); + fflush(out); + memset(&r,0,sizeof(r)); clear_traces(); + av_start_struct(a,S2_v,Size2,1,&r); + av_call(a); + fprintf(out,"->{%c%c}\n",r.x1,r.x2); + fflush(out); + } + { + Size3 r = S3_v(); + fprintf(out,"->{%c%c%c}\n",r.x1,r.x2,r.x3); + fflush(out); + memset(&r,0,sizeof(r)); clear_traces(); + av_start_struct(a,S3_v,Size3,1,&r); + av_call(a); + fprintf(out,"->{%c%c%c}\n",r.x1,r.x2,r.x3); + fflush(out); + } + { + Size4 r = S4_v(); + fprintf(out,"->{%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4); + fflush(out); + memset(&r,0,sizeof(r)); clear_traces(); + av_start_struct(a,S4_v,Size4,1,&r); + av_call(a); + fprintf(out,"->{%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4); + fflush(out); + } + { + Size7 r = S7_v(); + fprintf(out,"->{%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7); + fflush(out); + memset(&r,0,sizeof(r)); clear_traces(); + av_start_struct(a,S7_v,Size7,1,&r); + av_call(a); + fprintf(out,"->{%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7); + fflush(out); + } + { + Size8 r = S8_v(); + fprintf(out,"->{%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8); + fflush(out); + memset(&r,0,sizeof(r)); clear_traces(); + av_start_struct(a,S8_v,Size8,1,&r); + av_call(a); + fprintf(out,"->{%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8); + fflush(out); + } + { + Size12 r = S12_v(); + fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12); + fflush(out); + memset(&r,0,sizeof(r)); clear_traces(); + av_start_struct(a,S12_v,Size12,1,&r); + av_call(a); + fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12); + fflush(out); + } + { + Size15 r = S15_v(); + fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15); + fflush(out); + memset(&r,0,sizeof(r)); clear_traces(); + av_start_struct(a,S15_v,Size15,1,&r); + av_call(a); + fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15); + fflush(out); + } + { + Size16 r = S16_v(); + fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15,r.x16); + fflush(out); + memset(&r,0,sizeof(r)); clear_traces(); + av_start_struct(a,S16_v,Size16,1,&r); + av_call(a); + fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15,r.x16); + fflush(out); + } +} +void + structure_tests (void) +{ + av_alist a; + Int Ir; + Char Cr; + Float Fr; + Double Dr; + J Jr; + T Tr; + X Xr; + + Ir = I_III(I1,I2,I3); + fprintf(out,"->{%d}\n",Ir.x); + fflush(out); + Ir.x = 0; clear_traces(); + av_start_struct(a,I_III,Int,1,&Ir); + av_struct(a,Int,I1); + av_struct(a,Int,I2); + av_struct(a,Int,I3); + av_call(a); + fprintf(out,"->{%d}\n",Ir.x); + fflush(out); + +#ifndef SKIP_EXTRA_STRUCTS + Cr = C_CdC(C1,d2,C3); + fprintf(out,"->{'%c'}\n",Cr.x); + fflush(out); + Cr.x = '\0'; clear_traces(); + av_start_struct(a,C_CdC,Char,1,&Cr); + av_struct(a,Char,C1); + av_double(a,d2); + av_struct(a,Char,C3); + av_call(a); + fprintf(out,"->{'%c'}\n",Cr.x); + fflush(out); + + Fr = F_Ffd(F1,f2,d3); + fprintf(out,"->{%g}\n",Fr.x); + fflush(out); + Fr.x = 0.0; clear_traces(); + av_start_struct(a,F_Ffd,Float,av_word_splittable_1(float),&Fr); + av_struct(a,Float,F1); + av_float(a,f2); + av_double(a,d3); + av_call(a); + fprintf(out,"->{%g}\n",Fr.x); + fflush(out); + + Dr = D_fDd(f1,D2,d3); + fprintf(out,"->{%g}\n",Dr.x); + fflush(out); + Dr.x = 0.0; clear_traces(); + av_start_struct(a,D_fDd,Double,av_word_splittable_1(double),&Dr); + av_float(a,f1); + av_struct(a,Double,D2); + av_double(a,d3); + av_call(a); + fprintf(out,"->{%g}\n",Dr.x); + fflush(out); + + Dr = D_Dfd(D1,f2,d3); + fprintf(out,"->{%g}\n",Dr.x); + fflush(out); + Dr.x = 0.0; clear_traces(); + av_start_struct(a,D_Dfd,Double,av_word_splittable_1(double),&Dr); + av_struct(a,Double,D1); + av_float(a,f2); + av_double(a,d3); + av_call(a); + fprintf(out,"->{%g}\n",Dr.x); + fflush(out); +#endif + + Jr = J_JiJ(J1,i2,J2); + fprintf(out,"->{%ld,%ld}\n",Jr.l1,Jr.l2); + fflush(out); + Jr.l1 = Jr.l2 = 0; clear_traces(); + av_start_struct(a,J_JiJ,J,av_word_splittable_2(long,long),&Jr); + av_struct(a,J,J1); + av_int(a,i2); + av_struct(a,J,J2); + av_call(a); + fprintf(out,"->{%ld,%ld}\n",Jr.l1,Jr.l2); + fflush(out); + +#ifndef SKIP_EXTRA_STRUCTS +#ifndef SKIP_T + Tr = T_TcT(T1,' ',T2); + fprintf(out,"->{\"%c%c%c\"}\n",Tr.c[0],Tr.c[1],Tr.c[2]); + fflush(out); + Tr.c[0] = Tr.c[1] = Tr.c[2] = 0; clear_traces(); + av_start_struct(a,T_TcT,T,1,&Tr); + av_struct(a,T,T1); + av_char(a,' '); + av_struct(a,T,T2); + av_call(a); + fprintf(out,"->{\"%c%c%c\"}\n",Tr.c[0],Tr.c[1],Tr.c[2]); + fflush(out); +#endif + + Xr = X_BcdB(B1,c2,d3,B2); + fprintf(out,"->{\"%s\",'%c'}\n",Xr.c,Xr.c1); + fflush(out); + Xr.c[0]=Xr.c1='\0'; clear_traces(); + av_start_struct(a,X_BcdB,X,0,&Xr); + av_struct(a,B,B1); + av_char(a,c2); + av_double(a,d3); + av_struct(a,B,B2); + av_call(a); + fprintf(out,"->{\"%s\",'%c'}\n",Xr.c,Xr.c1); + fflush(out); +#endif + + return; +} + +void + gpargs_boundary_tests (void) +{ + av_alist a; + long lr; + long long llr; + float fr; + double dr; + + lr = l_l0J(J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + av_start_long(a,l_l0J,&lr); + av_struct(a,J,J1); + av_long(a,l9); + av_call(a); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l1J(l1,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + av_start_long(a,l_l1J,&lr); + av_long(a,l1); + av_struct(a,J,J1); + av_long(a,l9); + av_call(a); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l2J(l1,l2,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + av_start_long(a,l_l2J,&lr); + av_long(a,l1); + av_long(a,l2); + av_struct(a,J,J1); + av_long(a,l9); + av_call(a); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l3J(l1,l2,l3,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + av_start_long(a,l_l3J,&lr); + av_long(a,l1); + av_long(a,l2); + av_long(a,l3); + av_struct(a,J,J1); + av_long(a,l9); + av_call(a); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l4J(l1,l2,l3,l4,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + av_start_long(a,l_l4J,&lr); + av_long(a,l1); + av_long(a,l2); + av_long(a,l3); + av_long(a,l4); + av_struct(a,J,J1); + av_long(a,l9); + av_call(a); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l5J(l1,l2,l3,l4,l5,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + av_start_long(a,l_l5J,&lr); + av_long(a,l1); + av_long(a,l2); + av_long(a,l3); + av_long(a,l4); + av_long(a,l5); + av_struct(a,J,J1); + av_long(a,l9); + av_call(a); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l6J(l1,l2,l3,l4,l5,l6,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + av_start_long(a,l_l6J,&lr); + av_long(a,l1); + av_long(a,l2); + av_long(a,l3); + av_long(a,l4); + av_long(a,l5); + av_long(a,l6); + av_struct(a,J,J1); + av_long(a,l9); + av_call(a); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l7J(l1,l2,l3,l4,l5,l6,l7,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + av_start_long(a,l_l7J,&lr); + av_long(a,l1); + av_long(a,l2); + av_long(a,l3); + av_long(a,l4); + av_long(a,l5); + av_long(a,l6); + av_long(a,l7); + av_struct(a,J,J1); + av_long(a,l9); + av_call(a); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l0K(K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + av_start_long(a,l_l0K,&lr); + av_struct(a,K,K1); + av_long(a,l9); + av_call(a); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l1K(l1,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + av_start_long(a,l_l1K,&lr); + av_long(a,l1); + av_struct(a,K,K1); + av_long(a,l9); + av_call(a); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l2K(l1,l2,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + av_start_long(a,l_l2K,&lr); + av_long(a,l1); + av_long(a,l2); + av_struct(a,K,K1); + av_long(a,l9); + av_call(a); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l3K(l1,l2,l3,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + av_start_long(a,l_l3K,&lr); + av_long(a,l1); + av_long(a,l2); + av_long(a,l3); + av_struct(a,K,K1); + av_long(a,l9); + av_call(a); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l4K(l1,l2,l3,l4,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + av_start_long(a,l_l4K,&lr); + av_long(a,l1); + av_long(a,l2); + av_long(a,l3); + av_long(a,l4); + av_struct(a,K,K1); + av_long(a,l9); + av_call(a); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l5K(l1,l2,l3,l4,l5,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + av_start_long(a,l_l5K,&lr); + av_long(a,l1); + av_long(a,l2); + av_long(a,l3); + av_long(a,l4); + av_long(a,l5); + av_struct(a,K,K1); + av_long(a,l9); + av_call(a); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l6K(l1,l2,l3,l4,l5,l6,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + av_start_long(a,l_l6K,&lr); + av_long(a,l1); + av_long(a,l2); + av_long(a,l3); + av_long(a,l4); + av_long(a,l5); + av_long(a,l6); + av_struct(a,K,K1); + av_long(a,l9); + av_call(a); + fprintf(out,"->%ld\n",lr); + fflush(out); + + fr = f_f17l3L(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,l6,l7,l8,L1); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + av_start_float(a,f_f17l3L,&fr); + av_float(a,f1); + av_float(a,f2); + av_float(a,f3); + av_float(a,f4); + av_float(a,f5); + av_float(a,f6); + av_float(a,f7); + av_float(a,f8); + av_float(a,f9); + av_float(a,f10); + av_float(a,f11); + av_float(a,f12); + av_float(a,f13); + av_float(a,f14); + av_float(a,f15); + av_float(a,f16); + av_float(a,f17); + av_long(a,l6); + av_long(a,l7); + av_long(a,l8); + av_struct(a,L,L1); + av_call(a); + fprintf(out,"->%g\n",fr); + fflush(out); + + dr = d_d17l3L(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16,d17,l6,l7,l8,L1); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + av_start_double(a,d_d17l3L,&dr); + av_double(a,d1); + av_double(a,d2); + av_double(a,d3); + av_double(a,d4); + av_double(a,d5); + av_double(a,d6); + av_double(a,d7); + av_double(a,d8); + av_double(a,d9); + av_double(a,d10); + av_double(a,d11); + av_double(a,d12); + av_double(a,d13); + av_double(a,d14); + av_double(a,d15); + av_double(a,d16); + av_double(a,d17); + av_long(a,l6); + av_long(a,l7); + av_long(a,l8); + av_struct(a,L,L1); + av_call(a); + fprintf(out,"->%g\n",dr); + fflush(out); + + llr = ll_l2ll(l1,l2,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + llr = 0; clear_traces(); + av_start_longlong(a,ll_l2ll,&llr); + av_long(a,l1); + av_long(a,l2); + av_longlong(a,ll1); + av_long(a,l9); + av_call(a); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + + llr = ll_l3ll(l1,l2,l3,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + llr = 0; clear_traces(); + av_start_longlong(a,ll_l3ll,&llr); + av_long(a,l1); + av_long(a,l2); + av_long(a,l3); + av_longlong(a,ll1); + av_long(a,l9); + av_call(a); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + + llr = ll_l4ll(l1,l2,l3,l4,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + llr = 0; clear_traces(); + av_start_longlong(a,ll_l4ll,&llr); + av_long(a,l1); + av_long(a,l2); + av_long(a,l3); + av_long(a,l4); + av_longlong(a,ll1); + av_long(a,l9); + av_call(a); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + + llr = ll_l5ll(l1,l2,l3,l4,l5,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + llr = 0; clear_traces(); + av_start_longlong(a,ll_l5ll,&llr); + av_long(a,l1); + av_long(a,l2); + av_long(a,l3); + av_long(a,l4); + av_long(a,l5); + av_longlong(a,ll1); + av_long(a,l9); + av_call(a); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + + llr = ll_l6ll(l1,l2,l3,l4,l5,l6,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + llr = 0; clear_traces(); + av_start_longlong(a,ll_l6ll,&llr); + av_long(a,l1); + av_long(a,l2); + av_long(a,l3); + av_long(a,l4); + av_long(a,l5); + av_long(a,l6); + av_longlong(a,ll1); + av_long(a,l9); + av_call(a); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + + llr = ll_l7ll(l1,l2,l3,l4,l5,l6,l7,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + llr = 0; clear_traces(); + av_start_longlong(a,ll_l7ll,&llr); + av_long(a,l1); + av_long(a,l2); + av_long(a,l3); + av_long(a,l4); + av_long(a,l5); + av_long(a,l6); + av_long(a,l7); + av_longlong(a,ll1); + av_long(a,l9); + av_call(a); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + + dr = d_l2d(l1,l2,d2,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + av_start_double(a,d_l2d,&dr); + av_long(a,l1); + av_long(a,l2); + av_double(a,d2); + av_long(a,l9); + av_call(a); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_l3d(l1,l2,l3,d2,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + av_start_double(a,d_l3d,&dr); + av_long(a,l1); + av_long(a,l2); + av_long(a,l3); + av_double(a,d2); + av_long(a,l9); + av_call(a); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_l4d(l1,l2,l3,l4,d2,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + av_start_double(a,d_l4d,&dr); + av_long(a,l1); + av_long(a,l2); + av_long(a,l3); + av_long(a,l4); + av_double(a,d2); + av_long(a,l9); + av_call(a); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_l5d(l1,l2,l3,l4,l5,d2,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + av_start_double(a,d_l5d,&dr); + av_long(a,l1); + av_long(a,l2); + av_long(a,l3); + av_long(a,l4); + av_long(a,l5); + av_double(a,d2); + av_long(a,l9); + av_call(a); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_l6d(l1,l2,l3,l4,l5,l6,d2,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + av_start_double(a,d_l6d,&dr); + av_long(a,l1); + av_long(a,l2); + av_long(a,l3); + av_long(a,l4); + av_long(a,l5); + av_long(a,l6); + av_double(a,d2); + av_long(a,l9); + av_call(a); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_l7d(l1,l2,l3,l4,l5,l6,l7,d2,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + av_start_double(a,d_l7d,&dr); + av_long(a,l1); + av_long(a,l2); + av_long(a,l3); + av_long(a,l4); + av_long(a,l5); + av_long(a,l6); + av_long(a,l7); + av_double(a,d2); + av_long(a,l9); + av_call(a); + fprintf(out,"->%g\n",dr); + fflush(out); + + return; +} + +/* Verify that structs larger than 2 words are really + passed by value, not accidentally by reference. */ +void + by_value_tests (void) +{ + av_alist a; + K k; + + k.l1 = l1; + k.l2 = l2; + k.l3 = l3; + k.l4 = l4; + fprintf(out,"by_value:%ld,%ld,%ld,%ld\n",k.l1,k.l2,k.l3,k.l4); + fflush(out); + clear_traces(); + av_start_void(a,v_clobber_K); + av_struct(a,K,k); + av_call(a); + fprintf(out,"by_value:%ld,%ld,%ld,%ld\n",k.l1,k.l2,k.l3,k.l4); + fflush(out); +} + +int + main (void) +{ + out = stdout; + void_tests(); + int_tests(); + float_tests(); + double_tests(); + pointer_tests(); + mixed_number_tests(); + small_structure_return_tests(); + structure_tests(); + gpargs_boundary_tests(); + by_value_tests(); + + exit(0); +} diff --git a/build-aux/ar-lib b/build-aux/ar-lib new file mode 100755 index 0000000..f64465e --- /dev/null +++ b/build-aux/ar-lib @@ -0,0 +1,271 @@ +#! /bin/sh +# Wrapper for Microsoft lib.exe + +me=ar-lib +scriptversion=2019-07-04.01; # UTC + +# Copyright (C) 2010-2019 Free Software Foundation, Inc. +# Written by Peter Rosin . +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2, or (at your option) +# any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program that contains a +# configuration script generated by Autoconf, you may include it under +# the same distribution terms that you use for the rest of that program. + +# This file is maintained in Automake, please report +# bugs to or send patches to +# . + + +# func_error message +func_error () +{ + echo "$me: $1" 1>&2 + exit 1 +} + +file_conv= + +# func_file_conv build_file +# Convert a $build file to $host form and store it in $file +# Currently only supports Windows hosts. +func_file_conv () +{ + file=$1 + case $file in + / | /[!/]*) # absolute file, and not a UNC file + if test -z "$file_conv"; then + # lazily determine how to convert abs files + case `uname -s` in + MINGW*) + file_conv=mingw + ;; + CYGWIN*) + file_conv=cygwin + ;; + *) + file_conv=wine + ;; + esac + fi + case $file_conv in + mingw) + file=`cmd //C echo "$file " | sed -e 's/"\(.*\) " *$/\1/'` + ;; + cygwin) + file=`cygpath -m "$file" || echo "$file"` + ;; + wine) + file=`winepath -w "$file" || echo "$file"` + ;; + esac + ;; + esac +} + +# func_at_file at_file operation archive +# Iterate over all members in AT_FILE performing OPERATION on ARCHIVE +# for each of them. +# When interpreting the content of the @FILE, do NOT use func_file_conv, +# since the user would need to supply preconverted file names to +# binutils ar, at least for MinGW. +func_at_file () +{ + operation=$2 + archive=$3 + at_file_contents=`cat "$1"` + eval set x "$at_file_contents" + shift + + for member + do + $AR -NOLOGO $operation:"$member" "$archive" || exit $? + done +} + +case $1 in + '') + func_error "no command. Try '$0 --help' for more information." + ;; + -h | --h*) + cat <. +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2, or (at your option) +# any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program that contains a +# configuration script generated by Autoconf, you may include it under +# the same distribution terms that you use for the rest of that program. + +# This file is maintained in Automake, please report +# bugs to or send patches to +# . + +nl=' +' + +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent tools from complaining about whitespace usage. +IFS=" "" $nl" + +file_conv= + +# func_file_conv build_file lazy +# Convert a $build file to $host form and store it in $file +# Currently only supports Windows hosts. If the determined conversion +# type is listed in (the comma separated) LAZY, no conversion will +# take place. +func_file_conv () +{ + file=$1 + case $file in + / | /[!/]*) # absolute file, and not a UNC file + if test -z "$file_conv"; then + # lazily determine how to convert abs files + case `uname -s` in + MINGW*) + file_conv=mingw + ;; + CYGWIN*) + file_conv=cygwin + ;; + *) + file_conv=wine + ;; + esac + fi + case $file_conv/,$2, in + *,$file_conv,*) + ;; + mingw/*) + file=`cmd //C echo "$file " | sed -e 's/"\(.*\) " *$/\1/'` + ;; + cygwin/*) + file=`cygpath -m "$file" || echo "$file"` + ;; + wine/*) + file=`winepath -w "$file" || echo "$file"` + ;; + esac + ;; + esac +} + +# func_cl_dashL linkdir +# Make cl look for libraries in LINKDIR +func_cl_dashL () +{ + func_file_conv "$1" + if test -z "$lib_path"; then + lib_path=$file + else + lib_path="$lib_path;$file" + fi + linker_opts="$linker_opts -LIBPATH:$file" +} + +# func_cl_dashl library +# Do a library search-path lookup for cl +func_cl_dashl () +{ + lib=$1 + found=no + save_IFS=$IFS + IFS=';' + for dir in $lib_path $LIB + do + IFS=$save_IFS + if $shared && test -f "$dir/$lib.dll.lib"; then + found=yes + lib=$dir/$lib.dll.lib + break + fi + if test -f "$dir/$lib.lib"; then + found=yes + lib=$dir/$lib.lib + break + fi + if test -f "$dir/lib$lib.a"; then + found=yes + lib=$dir/lib$lib.a + break + fi + done + IFS=$save_IFS + + if test "$found" != yes; then + lib=$lib.lib + fi +} + +# func_cl_wrapper cl arg... +# Adjust compile command to suit cl +func_cl_wrapper () +{ + # Assume a capable shell + lib_path= + shared=: + linker_opts= + for arg + do + if test -n "$eat"; then + eat= + else + case $1 in + -o) + # configure might choose to run compile as 'compile cc -o foo foo.c'. + eat=1 + case $2 in + *.o | *.[oO][bB][jJ]) + func_file_conv "$2" + set x "$@" -Fo"$file" + shift + ;; + *) + func_file_conv "$2" + set x "$@" -Fe"$file" + shift + ;; + esac + ;; + -I) + eat=1 + func_file_conv "$2" mingw + set x "$@" -I"$file" + shift + ;; + -I*) + func_file_conv "${1#-I}" mingw + set x "$@" -I"$file" + shift + ;; + -l) + eat=1 + func_cl_dashl "$2" + set x "$@" "$lib" + shift + ;; + -l*) + func_cl_dashl "${1#-l}" + set x "$@" "$lib" + shift + ;; + -L) + eat=1 + func_cl_dashL "$2" + ;; + -L*) + func_cl_dashL "${1#-L}" + ;; + -static) + shared=false + ;; + -Wl,*) + arg=${1#-Wl,} + save_ifs="$IFS"; IFS=',' + for flag in $arg; do + IFS="$save_ifs" + linker_opts="$linker_opts $flag" + done + IFS="$save_ifs" + ;; + -Xlinker) + eat=1 + linker_opts="$linker_opts $2" + ;; + -*) + set x "$@" "$1" + shift + ;; + *.cc | *.CC | *.cxx | *.CXX | *.[cC]++) + func_file_conv "$1" + set x "$@" -Tp"$file" + shift + ;; + *.c | *.cpp | *.CPP | *.lib | *.LIB | *.Lib | *.OBJ | *.obj | *.[oO]) + func_file_conv "$1" mingw + set x "$@" "$file" + shift + ;; + *) + set x "$@" "$1" + shift + ;; + esac + fi + shift + done + if test -n "$linker_opts"; then + linker_opts="-link$linker_opts" + fi + exec "$@" $linker_opts + exit 1 +} + +eat= + +case $1 in + '') + echo "$0: No command. Try '$0 --help' for more information." 1>&2 + exit 1; + ;; + -h | --h*) + cat <<\EOF +Usage: compile [--help] [--version] PROGRAM [ARGS] + +Wrapper for compilers which do not understand '-c -o'. +Remove '-o dest.o' from ARGS, run PROGRAM with the remaining +arguments, and rename the output as expected. + +If you are trying to build a whole package this is not the +right script to run: please start by reading the file 'INSTALL'. + +Report bugs to . +EOF + exit $? + ;; + -v | --v*) + echo "compile $scriptversion" + exit $? + ;; + cl | *[/\\]cl | cl.exe | *[/\\]cl.exe | \ + icl | *[/\\]icl | icl.exe | *[/\\]icl.exe ) + func_cl_wrapper "$@" # Doesn't return... + ;; +esac + +ofile= +cfile= + +for arg +do + if test -n "$eat"; then + eat= + else + case $1 in + -o) + # configure might choose to run compile as 'compile cc -o foo foo.c'. + # So we strip '-o arg' only if arg is an object. + eat=1 + case $2 in + *.o | *.obj) + ofile=$2 + ;; + *) + set x "$@" -o "$2" + shift + ;; + esac + ;; + *.c) + cfile=$1 + set x "$@" "$1" + shift + ;; + *) + set x "$@" "$1" + shift + ;; + esac + fi + shift +done + +if test -z "$ofile" || test -z "$cfile"; then + # If no '-o' option was seen then we might have been invoked from a + # pattern rule where we don't need one. That is ok -- this is a + # normal compilation that the losing compiler can handle. If no + # '.c' file was seen then we are probably linking. That is also + # ok. + exec "$@" +fi + +# Name of file we expect compiler to create. +cofile=`echo "$cfile" | sed 's|^.*[\\/]||; s|^[a-zA-Z]:||; s/\.c$/.o/'` + +# Create the lock directory. +# Note: use '[/\\:.-]' here to ensure that we don't use the same name +# that we are using for the .o file. Also, base the name on the expected +# object file name, since that is what matters with a parallel build. +lockdir=`echo "$cofile" | sed -e 's|[/\\:.-]|_|g'`.d +while true; do + if mkdir "$lockdir" >/dev/null 2>&1; then + break + fi + sleep 1 +done +# FIXME: race condition here if user kills between mkdir and trap. +trap "rmdir '$lockdir'; exit 1" 1 2 15 + +# Run the compile. +"$@" +ret=$? + +if test -f "$cofile"; then + test "$cofile" = "$ofile" || mv "$cofile" "$ofile" +elif test -f "${cofile}bj"; then + test "${cofile}bj" = "$ofile" || mv "${cofile}bj" "$ofile" +fi + +rmdir "$lockdir" +exit $ret + +# Local Variables: +# mode: shell-script +# sh-indentation: 2 +# eval: (add-hook 'before-save-hook 'time-stamp) +# time-stamp-start: "scriptversion=" +# time-stamp-format: "%:y-%02m-%02d.%02H" +# time-stamp-time-zone: "UTC0" +# time-stamp-end: "; # UTC" +# End: diff --git a/build-aux/config.guess b/build-aux/config.guess new file mode 100755 index 0000000..97ad073 --- /dev/null +++ b/build-aux/config.guess @@ -0,0 +1,1662 @@ +#! /bin/sh +# Attempt to guess a canonical system name. +# Copyright 1992-2019 Free Software Foundation, Inc. + +timestamp='2019-07-24' + +# This file is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +# General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, see . +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program that contains a +# configuration script generated by Autoconf, you may include it under +# the same distribution terms that you use for the rest of that +# program. This Exception is an additional permission under section 7 +# of the GNU General Public License, version 3 ("GPLv3"). +# +# Originally written by Per Bothner; maintained since 2000 by Ben Elliston. +# +# You can get the latest version of this script from: +# https://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.guess +# +# Please send patches to . + + +me=`echo "$0" | sed -e 's,.*/,,'` + +usage="\ +Usage: $0 [OPTION] + +Output the configuration name of the system \`$me' is run on. + +Options: + -h, --help print this help, then exit + -t, --time-stamp print date of last modification, then exit + -v, --version print version number, then exit + +Report bugs and patches to ." + +version="\ +GNU config.guess ($timestamp) + +Originally written by Per Bothner. +Copyright 1992-2019 Free Software Foundation, Inc. + +This is free software; see the source for copying conditions. There is NO +warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." + +help=" +Try \`$me --help' for more information." + +# Parse command line +while test $# -gt 0 ; do + case $1 in + --time-stamp | --time* | -t ) + echo "$timestamp" ; exit ;; + --version | -v ) + echo "$version" ; exit ;; + --help | --h* | -h ) + echo "$usage"; exit ;; + -- ) # Stop option processing + shift; break ;; + - ) # Use stdin as input. + break ;; + -* ) + echo "$me: invalid option $1$help" >&2 + exit 1 ;; + * ) + break ;; + esac +done + +if test $# != 0; then + echo "$me: too many arguments$help" >&2 + exit 1 +fi + +# CC_FOR_BUILD -- compiler used by this script. Note that the use of a +# compiler to aid in system detection is discouraged as it requires +# temporary files to be created and, as you can see below, it is a +# headache to deal with in a portable fashion. + +# Historically, `CC_FOR_BUILD' used to be named `HOST_CC'. We still +# use `HOST_CC' if defined, but it is deprecated. + +# Portable tmp directory creation inspired by the Autoconf team. + +tmp= +# shellcheck disable=SC2172 +trap 'test -z "$tmp" || rm -fr "$tmp"' 0 1 2 13 15 + +set_cc_for_build() { + : "${TMPDIR=/tmp}" + # shellcheck disable=SC2039 + { tmp=`(umask 077 && mktemp -d "$TMPDIR/cgXXXXXX") 2>/dev/null` && test -n "$tmp" && test -d "$tmp" ; } || + { test -n "$RANDOM" && tmp=$TMPDIR/cg$$-$RANDOM && (umask 077 && mkdir "$tmp" 2>/dev/null) ; } || + { tmp=$TMPDIR/cg-$$ && (umask 077 && mkdir "$tmp" 2>/dev/null) && echo "Warning: creating insecure temp directory" >&2 ; } || + { echo "$me: cannot create a temporary directory in $TMPDIR" >&2 ; exit 1 ; } + dummy=$tmp/dummy + case ${CC_FOR_BUILD-},${HOST_CC-},${CC-} in + ,,) echo "int x;" > "$dummy.c" + for driver in cc gcc c89 c99 ; do + if ($driver -c -o "$dummy.o" "$dummy.c") >/dev/null 2>&1 ; then + CC_FOR_BUILD="$driver" + break + fi + done + if test x"$CC_FOR_BUILD" = x ; then + CC_FOR_BUILD=no_compiler_found + fi + ;; + ,,*) CC_FOR_BUILD=$CC ;; + ,*,*) CC_FOR_BUILD=$HOST_CC ;; + esac +} + +# This is needed to find uname on a Pyramid OSx when run in the BSD universe. +# (ghazi@noc.rutgers.edu 1994-08-24) +if test -f /.attbin/uname ; then + PATH=$PATH:/.attbin ; export PATH +fi + +UNAME_MACHINE=`(uname -m) 2>/dev/null` || UNAME_MACHINE=unknown +UNAME_RELEASE=`(uname -r) 2>/dev/null` || UNAME_RELEASE=unknown +UNAME_SYSTEM=`(uname -s) 2>/dev/null` || UNAME_SYSTEM=unknown +UNAME_VERSION=`(uname -v) 2>/dev/null` || UNAME_VERSION=unknown + +case "$UNAME_SYSTEM" in +Linux|GNU|GNU/*) + # If the system lacks a compiler, then just pick glibc. + # We could probably try harder. + LIBC=gnu + + set_cc_for_build + cat <<-EOF > "$dummy.c" + #include + #if defined(__UCLIBC__) + LIBC=uclibc + #elif defined(__dietlibc__) + LIBC=dietlibc + #else + LIBC=gnu + #endif + EOF + eval "`$CC_FOR_BUILD -E "$dummy.c" 2>/dev/null | grep '^LIBC' | sed 's, ,,g'`" + + # If ldd exists, use it to detect musl libc. + if command -v ldd >/dev/null && \ + ldd --version 2>&1 | grep -q ^musl + then + LIBC=musl + fi + ;; +esac + +# Note: order is significant - the case branches are not exclusive. + +case "$UNAME_MACHINE:$UNAME_SYSTEM:$UNAME_RELEASE:$UNAME_VERSION" in + *:NetBSD:*:*) + # NetBSD (nbsd) targets should (where applicable) match one or + # more of the tuples: *-*-netbsdelf*, *-*-netbsdaout*, + # *-*-netbsdecoff* and *-*-netbsd*. For targets that recently + # switched to ELF, *-*-netbsd* would select the old + # object file format. This provides both forward + # compatibility and a consistent mechanism for selecting the + # object file format. + # + # Note: NetBSD doesn't particularly care about the vendor + # portion of the name. We always set it to "unknown". + sysctl="sysctl -n hw.machine_arch" + UNAME_MACHINE_ARCH=`(uname -p 2>/dev/null || \ + "/sbin/$sysctl" 2>/dev/null || \ + "/usr/sbin/$sysctl" 2>/dev/null || \ + echo unknown)` + case "$UNAME_MACHINE_ARCH" in + armeb) machine=armeb-unknown ;; + arm*) machine=arm-unknown ;; + sh3el) machine=shl-unknown ;; + sh3eb) machine=sh-unknown ;; + sh5el) machine=sh5le-unknown ;; + earmv*) + arch=`echo "$UNAME_MACHINE_ARCH" | sed -e 's,^e\(armv[0-9]\).*$,\1,'` + endian=`echo "$UNAME_MACHINE_ARCH" | sed -ne 's,^.*\(eb\)$,\1,p'` + machine="${arch}${endian}"-unknown + ;; + *) machine="$UNAME_MACHINE_ARCH"-unknown ;; + esac + # The Operating System including object format, if it has switched + # to ELF recently (or will in the future) and ABI. + case "$UNAME_MACHINE_ARCH" in + earm*) + os=netbsdelf + ;; + arm*|i386|m68k|ns32k|sh3*|sparc|vax) + set_cc_for_build + if echo __ELF__ | $CC_FOR_BUILD -E - 2>/dev/null \ + | grep -q __ELF__ + then + # Once all utilities can be ECOFF (netbsdecoff) or a.out (netbsdaout). + # Return netbsd for either. FIX? + os=netbsd + else + os=netbsdelf + fi + ;; + *) + os=netbsd + ;; + esac + # Determine ABI tags. + case "$UNAME_MACHINE_ARCH" in + earm*) + expr='s/^earmv[0-9]/-eabi/;s/eb$//' + abi=`echo "$UNAME_MACHINE_ARCH" | sed -e "$expr"` + ;; + esac + # The OS release + # Debian GNU/NetBSD machines have a different userland, and + # thus, need a distinct triplet. However, they do not need + # kernel version information, so it can be replaced with a + # suitable tag, in the style of linux-gnu. + case "$UNAME_VERSION" in + Debian*) + release='-gnu' + ;; + *) + release=`echo "$UNAME_RELEASE" | sed -e 's/[-_].*//' | cut -d. -f1,2` + ;; + esac + # Since CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM: + # contains redundant information, the shorter form: + # CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM is used. + echo "$machine-${os}${release}${abi-}" + exit ;; + *:Bitrig:*:*) + UNAME_MACHINE_ARCH=`arch | sed 's/Bitrig.//'` + echo "$UNAME_MACHINE_ARCH"-unknown-bitrig"$UNAME_RELEASE" + exit ;; + *:OpenBSD:*:*) + UNAME_MACHINE_ARCH=`arch | sed 's/OpenBSD.//'` + echo "$UNAME_MACHINE_ARCH"-unknown-openbsd"$UNAME_RELEASE" + exit ;; + *:LibertyBSD:*:*) + UNAME_MACHINE_ARCH=`arch | sed 's/^.*BSD\.//'` + echo "$UNAME_MACHINE_ARCH"-unknown-libertybsd"$UNAME_RELEASE" + exit ;; + *:MidnightBSD:*:*) + echo "$UNAME_MACHINE"-unknown-midnightbsd"$UNAME_RELEASE" + exit ;; + *:ekkoBSD:*:*) + echo "$UNAME_MACHINE"-unknown-ekkobsd"$UNAME_RELEASE" + exit ;; + *:SolidBSD:*:*) + echo "$UNAME_MACHINE"-unknown-solidbsd"$UNAME_RELEASE" + exit ;; + *:OS108:*:*) + echo "$UNAME_MACHINE"-unknown-os108_"$UNAME_RELEASE" + exit ;; + macppc:MirBSD:*:*) + echo powerpc-unknown-mirbsd"$UNAME_RELEASE" + exit ;; + *:MirBSD:*:*) + echo "$UNAME_MACHINE"-unknown-mirbsd"$UNAME_RELEASE" + exit ;; + *:Sortix:*:*) + echo "$UNAME_MACHINE"-unknown-sortix + exit ;; + *:Redox:*:*) + echo "$UNAME_MACHINE"-unknown-redox + exit ;; + mips:OSF1:*.*) + echo mips-dec-osf1 + exit ;; + alpha:OSF1:*:*) + case $UNAME_RELEASE in + *4.0) + UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $3}'` + ;; + *5.*) + UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $4}'` + ;; + esac + # According to Compaq, /usr/sbin/psrinfo has been available on + # OSF/1 and Tru64 systems produced since 1995. I hope that + # covers most systems running today. This code pipes the CPU + # types through head -n 1, so we only detect the type of CPU 0. + ALPHA_CPU_TYPE=`/usr/sbin/psrinfo -v | sed -n -e 's/^ The alpha \(.*\) processor.*$/\1/p' | head -n 1` + case "$ALPHA_CPU_TYPE" in + "EV4 (21064)") + UNAME_MACHINE=alpha ;; + "EV4.5 (21064)") + UNAME_MACHINE=alpha ;; + "LCA4 (21066/21068)") + UNAME_MACHINE=alpha ;; + "EV5 (21164)") + UNAME_MACHINE=alphaev5 ;; + "EV5.6 (21164A)") + UNAME_MACHINE=alphaev56 ;; + "EV5.6 (21164PC)") + UNAME_MACHINE=alphapca56 ;; + "EV5.7 (21164PC)") + UNAME_MACHINE=alphapca57 ;; + "EV6 (21264)") + UNAME_MACHINE=alphaev6 ;; + "EV6.7 (21264A)") + UNAME_MACHINE=alphaev67 ;; + "EV6.8CB (21264C)") + UNAME_MACHINE=alphaev68 ;; + "EV6.8AL (21264B)") + UNAME_MACHINE=alphaev68 ;; + "EV6.8CX (21264D)") + UNAME_MACHINE=alphaev68 ;; + "EV6.9A (21264/EV69A)") + UNAME_MACHINE=alphaev69 ;; + "EV7 (21364)") + UNAME_MACHINE=alphaev7 ;; + "EV7.9 (21364A)") + UNAME_MACHINE=alphaev79 ;; + esac + # A Pn.n version is a patched version. + # A Vn.n version is a released version. + # A Tn.n version is a released field test version. + # A Xn.n version is an unreleased experimental baselevel. + # 1.2 uses "1.2" for uname -r. + echo "$UNAME_MACHINE"-dec-osf"`echo "$UNAME_RELEASE" | sed -e 's/^[PVTX]//' | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz`" + # Reset EXIT trap before exiting to avoid spurious non-zero exit code. + exitcode=$? + trap '' 0 + exit $exitcode ;; + Amiga*:UNIX_System_V:4.0:*) + echo m68k-unknown-sysv4 + exit ;; + *:[Aa]miga[Oo][Ss]:*:*) + echo "$UNAME_MACHINE"-unknown-amigaos + exit ;; + *:[Mm]orph[Oo][Ss]:*:*) + echo "$UNAME_MACHINE"-unknown-morphos + exit ;; + *:OS/390:*:*) + echo i370-ibm-openedition + exit ;; + *:z/VM:*:*) + echo s390-ibm-zvmoe + exit ;; + *:OS400:*:*) + echo powerpc-ibm-os400 + exit ;; + arm:RISC*:1.[012]*:*|arm:riscix:1.[012]*:*) + echo arm-acorn-riscix"$UNAME_RELEASE" + exit ;; + arm*:riscos:*:*|arm*:RISCOS:*:*) + echo arm-unknown-riscos + exit ;; + SR2?01:HI-UX/MPP:*:* | SR8000:HI-UX/MPP:*:*) + echo hppa1.1-hitachi-hiuxmpp + exit ;; + Pyramid*:OSx*:*:* | MIS*:OSx*:*:* | MIS*:SMP_DC-OSx*:*:*) + # akee@wpdis03.wpafb.af.mil (Earle F. Ake) contributed MIS and NILE. + if test "`(/bin/universe) 2>/dev/null`" = att ; then + echo pyramid-pyramid-sysv3 + else + echo pyramid-pyramid-bsd + fi + exit ;; + NILE*:*:*:dcosx) + echo pyramid-pyramid-svr4 + exit ;; + DRS?6000:unix:4.0:6*) + echo sparc-icl-nx6 + exit ;; + DRS?6000:UNIX_SV:4.2*:7* | DRS?6000:isis:4.2*:7*) + case `/usr/bin/uname -p` in + sparc) echo sparc-icl-nx7; exit ;; + esac ;; + s390x:SunOS:*:*) + echo "$UNAME_MACHINE"-ibm-solaris2"`echo "$UNAME_RELEASE" | sed -e 's/[^.]*//'`" + exit ;; + sun4H:SunOS:5.*:*) + echo sparc-hal-solaris2"`echo "$UNAME_RELEASE"|sed -e 's/[^.]*//'`" + exit ;; + sun4*:SunOS:5.*:* | tadpole*:SunOS:5.*:*) + echo sparc-sun-solaris2"`echo "$UNAME_RELEASE" | sed -e 's/[^.]*//'`" + exit ;; + i86pc:AuroraUX:5.*:* | i86xen:AuroraUX:5.*:*) + echo i386-pc-auroraux"$UNAME_RELEASE" + exit ;; + i86pc:SunOS:5.*:* | i86xen:SunOS:5.*:*) + set_cc_for_build + SUN_ARCH=i386 + # If there is a compiler, see if it is configured for 64-bit objects. + # Note that the Sun cc does not turn __LP64__ into 1 like gcc does. + # This test works for both compilers. + if [ "$CC_FOR_BUILD" != no_compiler_found ]; then + if (echo '#ifdef __amd64'; echo IS_64BIT_ARCH; echo '#endif') | \ + (CCOPTS="" $CC_FOR_BUILD -E - 2>/dev/null) | \ + grep IS_64BIT_ARCH >/dev/null + then + SUN_ARCH=x86_64 + fi + fi + echo "$SUN_ARCH"-pc-solaris2"`echo "$UNAME_RELEASE"|sed -e 's/[^.]*//'`" + exit ;; + sun4*:SunOS:6*:*) + # According to config.sub, this is the proper way to canonicalize + # SunOS6. Hard to guess exactly what SunOS6 will be like, but + # it's likely to be more like Solaris than SunOS4. + echo sparc-sun-solaris3"`echo "$UNAME_RELEASE"|sed -e 's/[^.]*//'`" + exit ;; + sun4*:SunOS:*:*) + case "`/usr/bin/arch -k`" in + Series*|S4*) + UNAME_RELEASE=`uname -v` + ;; + esac + # Japanese Language versions have a version number like `4.1.3-JL'. + echo sparc-sun-sunos"`echo "$UNAME_RELEASE"|sed -e 's/-/_/'`" + exit ;; + sun3*:SunOS:*:*) + echo m68k-sun-sunos"$UNAME_RELEASE" + exit ;; + sun*:*:4.2BSD:*) + UNAME_RELEASE=`(sed 1q /etc/motd | awk '{print substr($5,1,3)}') 2>/dev/null` + test "x$UNAME_RELEASE" = x && UNAME_RELEASE=3 + case "`/bin/arch`" in + sun3) + echo m68k-sun-sunos"$UNAME_RELEASE" + ;; + sun4) + echo sparc-sun-sunos"$UNAME_RELEASE" + ;; + esac + exit ;; + aushp:SunOS:*:*) + echo sparc-auspex-sunos"$UNAME_RELEASE" + exit ;; + # The situation for MiNT is a little confusing. The machine name + # can be virtually everything (everything which is not + # "atarist" or "atariste" at least should have a processor + # > m68000). The system name ranges from "MiNT" over "FreeMiNT" + # to the lowercase version "mint" (or "freemint"). Finally + # the system name "TOS" denotes a system which is actually not + # MiNT. But MiNT is downward compatible to TOS, so this should + # be no problem. + atarist[e]:*MiNT:*:* | atarist[e]:*mint:*:* | atarist[e]:*TOS:*:*) + echo m68k-atari-mint"$UNAME_RELEASE" + exit ;; + atari*:*MiNT:*:* | atari*:*mint:*:* | atarist[e]:*TOS:*:*) + echo m68k-atari-mint"$UNAME_RELEASE" + exit ;; + *falcon*:*MiNT:*:* | *falcon*:*mint:*:* | *falcon*:*TOS:*:*) + echo m68k-atari-mint"$UNAME_RELEASE" + exit ;; + milan*:*MiNT:*:* | milan*:*mint:*:* | *milan*:*TOS:*:*) + echo m68k-milan-mint"$UNAME_RELEASE" + exit ;; + hades*:*MiNT:*:* | hades*:*mint:*:* | *hades*:*TOS:*:*) + echo m68k-hades-mint"$UNAME_RELEASE" + exit ;; + *:*MiNT:*:* | *:*mint:*:* | *:*TOS:*:*) + echo m68k-unknown-mint"$UNAME_RELEASE" + exit ;; + m68k:machten:*:*) + echo m68k-apple-machten"$UNAME_RELEASE" + exit ;; + powerpc:machten:*:*) + echo powerpc-apple-machten"$UNAME_RELEASE" + exit ;; + RISC*:Mach:*:*) + echo mips-dec-mach_bsd4.3 + exit ;; + RISC*:ULTRIX:*:*) + echo mips-dec-ultrix"$UNAME_RELEASE" + exit ;; + VAX*:ULTRIX*:*:*) + echo vax-dec-ultrix"$UNAME_RELEASE" + exit ;; + 2020:CLIX:*:* | 2430:CLIX:*:*) + echo clipper-intergraph-clix"$UNAME_RELEASE" + exit ;; + mips:*:*:UMIPS | mips:*:*:RISCos) + set_cc_for_build + sed 's/^ //' << EOF > "$dummy.c" +#ifdef __cplusplus +#include /* for printf() prototype */ + int main (int argc, char *argv[]) { +#else + int main (argc, argv) int argc; char *argv[]; { +#endif + #if defined (host_mips) && defined (MIPSEB) + #if defined (SYSTYPE_SYSV) + printf ("mips-mips-riscos%ssysv\\n", argv[1]); exit (0); + #endif + #if defined (SYSTYPE_SVR4) + printf ("mips-mips-riscos%ssvr4\\n", argv[1]); exit (0); + #endif + #if defined (SYSTYPE_BSD43) || defined(SYSTYPE_BSD) + printf ("mips-mips-riscos%sbsd\\n", argv[1]); exit (0); + #endif + #endif + exit (-1); + } +EOF + $CC_FOR_BUILD -o "$dummy" "$dummy.c" && + dummyarg=`echo "$UNAME_RELEASE" | sed -n 's/\([0-9]*\).*/\1/p'` && + SYSTEM_NAME=`"$dummy" "$dummyarg"` && + { echo "$SYSTEM_NAME"; exit; } + echo mips-mips-riscos"$UNAME_RELEASE" + exit ;; + Motorola:PowerMAX_OS:*:*) + echo powerpc-motorola-powermax + exit ;; + Motorola:*:4.3:PL8-*) + echo powerpc-harris-powermax + exit ;; + Night_Hawk:*:*:PowerMAX_OS | Synergy:PowerMAX_OS:*:*) + echo powerpc-harris-powermax + exit ;; + Night_Hawk:Power_UNIX:*:*) + echo powerpc-harris-powerunix + exit ;; + m88k:CX/UX:7*:*) + echo m88k-harris-cxux7 + exit ;; + m88k:*:4*:R4*) + echo m88k-motorola-sysv4 + exit ;; + m88k:*:3*:R3*) + echo m88k-motorola-sysv3 + exit ;; + AViiON:dgux:*:*) + # DG/UX returns AViiON for all architectures + UNAME_PROCESSOR=`/usr/bin/uname -p` + if [ "$UNAME_PROCESSOR" = mc88100 ] || [ "$UNAME_PROCESSOR" = mc88110 ] + then + if [ "$TARGET_BINARY_INTERFACE"x = m88kdguxelfx ] || \ + [ "$TARGET_BINARY_INTERFACE"x = x ] + then + echo m88k-dg-dgux"$UNAME_RELEASE" + else + echo m88k-dg-dguxbcs"$UNAME_RELEASE" + fi + else + echo i586-dg-dgux"$UNAME_RELEASE" + fi + exit ;; + M88*:DolphinOS:*:*) # DolphinOS (SVR3) + echo m88k-dolphin-sysv3 + exit ;; + M88*:*:R3*:*) + # Delta 88k system running SVR3 + echo m88k-motorola-sysv3 + exit ;; + XD88*:*:*:*) # Tektronix XD88 system running UTekV (SVR3) + echo m88k-tektronix-sysv3 + exit ;; + Tek43[0-9][0-9]:UTek:*:*) # Tektronix 4300 system running UTek (BSD) + echo m68k-tektronix-bsd + exit ;; + *:IRIX*:*:*) + echo mips-sgi-irix"`echo "$UNAME_RELEASE"|sed -e 's/-/_/g'`" + exit ;; + ????????:AIX?:[12].1:2) # AIX 2.2.1 or AIX 2.1.1 is RT/PC AIX. + echo romp-ibm-aix # uname -m gives an 8 hex-code CPU id + exit ;; # Note that: echo "'`uname -s`'" gives 'AIX ' + i*86:AIX:*:*) + echo i386-ibm-aix + exit ;; + ia64:AIX:*:*) + if [ -x /usr/bin/oslevel ] ; then + IBM_REV=`/usr/bin/oslevel` + else + IBM_REV="$UNAME_VERSION.$UNAME_RELEASE" + fi + echo "$UNAME_MACHINE"-ibm-aix"$IBM_REV" + exit ;; + *:AIX:2:3) + if grep bos325 /usr/include/stdio.h >/dev/null 2>&1; then + set_cc_for_build + sed 's/^ //' << EOF > "$dummy.c" + #include + + main() + { + if (!__power_pc()) + exit(1); + puts("powerpc-ibm-aix3.2.5"); + exit(0); + } +EOF + if $CC_FOR_BUILD -o "$dummy" "$dummy.c" && SYSTEM_NAME=`"$dummy"` + then + echo "$SYSTEM_NAME" + else + echo rs6000-ibm-aix3.2.5 + fi + elif grep bos324 /usr/include/stdio.h >/dev/null 2>&1; then + echo rs6000-ibm-aix3.2.4 + else + echo rs6000-ibm-aix3.2 + fi + exit ;; + *:AIX:*:[4567]) + IBM_CPU_ID=`/usr/sbin/lsdev -C -c processor -S available | sed 1q | awk '{ print $1 }'` + if /usr/sbin/lsattr -El "$IBM_CPU_ID" | grep ' POWER' >/dev/null 2>&1; then + IBM_ARCH=rs6000 + else + IBM_ARCH=powerpc + fi + if [ -x /usr/bin/lslpp ] ; then + IBM_REV=`/usr/bin/lslpp -Lqc bos.rte.libc | + awk -F: '{ print $3 }' | sed s/[0-9]*$/0/` + else + IBM_REV="$UNAME_VERSION.$UNAME_RELEASE" + fi + echo "$IBM_ARCH"-ibm-aix"$IBM_REV" + exit ;; + *:AIX:*:*) + echo rs6000-ibm-aix + exit ;; + ibmrt:4.4BSD:*|romp-ibm:4.4BSD:*) + echo romp-ibm-bsd4.4 + exit ;; + ibmrt:*BSD:*|romp-ibm:BSD:*) # covers RT/PC BSD and + echo romp-ibm-bsd"$UNAME_RELEASE" # 4.3 with uname added to + exit ;; # report: romp-ibm BSD 4.3 + *:BOSX:*:*) + echo rs6000-bull-bosx + exit ;; + DPX/2?00:B.O.S.:*:*) + echo m68k-bull-sysv3 + exit ;; + 9000/[34]??:4.3bsd:1.*:*) + echo m68k-hp-bsd + exit ;; + hp300:4.4BSD:*:* | 9000/[34]??:4.3bsd:2.*:*) + echo m68k-hp-bsd4.4 + exit ;; + 9000/[34678]??:HP-UX:*:*) + HPUX_REV=`echo "$UNAME_RELEASE"|sed -e 's/[^.]*.[0B]*//'` + case "$UNAME_MACHINE" in + 9000/31?) HP_ARCH=m68000 ;; + 9000/[34]??) HP_ARCH=m68k ;; + 9000/[678][0-9][0-9]) + if [ -x /usr/bin/getconf ]; then + sc_cpu_version=`/usr/bin/getconf SC_CPU_VERSION 2>/dev/null` + sc_kernel_bits=`/usr/bin/getconf SC_KERNEL_BITS 2>/dev/null` + case "$sc_cpu_version" in + 523) HP_ARCH=hppa1.0 ;; # CPU_PA_RISC1_0 + 528) HP_ARCH=hppa1.1 ;; # CPU_PA_RISC1_1 + 532) # CPU_PA_RISC2_0 + case "$sc_kernel_bits" in + 32) HP_ARCH=hppa2.0n ;; + 64) HP_ARCH=hppa2.0w ;; + '') HP_ARCH=hppa2.0 ;; # HP-UX 10.20 + esac ;; + esac + fi + if [ "$HP_ARCH" = "" ]; then + set_cc_for_build + sed 's/^ //' << EOF > "$dummy.c" + + #define _HPUX_SOURCE + #include + #include + + int main () + { + #if defined(_SC_KERNEL_BITS) + long bits = sysconf(_SC_KERNEL_BITS); + #endif + long cpu = sysconf (_SC_CPU_VERSION); + + switch (cpu) + { + case CPU_PA_RISC1_0: puts ("hppa1.0"); break; + case CPU_PA_RISC1_1: puts ("hppa1.1"); break; + case CPU_PA_RISC2_0: + #if defined(_SC_KERNEL_BITS) + switch (bits) + { + case 64: puts ("hppa2.0w"); break; + case 32: puts ("hppa2.0n"); break; + default: puts ("hppa2.0"); break; + } break; + #else /* !defined(_SC_KERNEL_BITS) */ + puts ("hppa2.0"); break; + #endif + default: puts ("hppa1.0"); break; + } + exit (0); + } +EOF + (CCOPTS="" $CC_FOR_BUILD -o "$dummy" "$dummy.c" 2>/dev/null) && HP_ARCH=`"$dummy"` + test -z "$HP_ARCH" && HP_ARCH=hppa + fi ;; + esac + if [ "$HP_ARCH" = hppa2.0w ] + then + set_cc_for_build + + # hppa2.0w-hp-hpux* has a 64-bit kernel and a compiler generating + # 32-bit code. hppa64-hp-hpux* has the same kernel and a compiler + # generating 64-bit code. GNU and HP use different nomenclature: + # + # $ CC_FOR_BUILD=cc ./config.guess + # => hppa2.0w-hp-hpux11.23 + # $ CC_FOR_BUILD="cc +DA2.0w" ./config.guess + # => hppa64-hp-hpux11.23 + + if echo __LP64__ | (CCOPTS="" $CC_FOR_BUILD -E - 2>/dev/null) | + grep -q __LP64__ + then + HP_ARCH=hppa2.0w + else + HP_ARCH=hppa64 + fi + fi + echo "$HP_ARCH"-hp-hpux"$HPUX_REV" + exit ;; + ia64:HP-UX:*:*) + HPUX_REV=`echo "$UNAME_RELEASE"|sed -e 's/[^.]*.[0B]*//'` + echo ia64-hp-hpux"$HPUX_REV" + exit ;; + 3050*:HI-UX:*:*) + set_cc_for_build + sed 's/^ //' << EOF > "$dummy.c" + #include + int + main () + { + long cpu = sysconf (_SC_CPU_VERSION); + /* The order matters, because CPU_IS_HP_MC68K erroneously returns + true for CPU_PA_RISC1_0. CPU_IS_PA_RISC returns correct + results, however. */ + if (CPU_IS_PA_RISC (cpu)) + { + switch (cpu) + { + case CPU_PA_RISC1_0: puts ("hppa1.0-hitachi-hiuxwe2"); break; + case CPU_PA_RISC1_1: puts ("hppa1.1-hitachi-hiuxwe2"); break; + case CPU_PA_RISC2_0: puts ("hppa2.0-hitachi-hiuxwe2"); break; + default: puts ("hppa-hitachi-hiuxwe2"); break; + } + } + else if (CPU_IS_HP_MC68K (cpu)) + puts ("m68k-hitachi-hiuxwe2"); + else puts ("unknown-hitachi-hiuxwe2"); + exit (0); + } +EOF + $CC_FOR_BUILD -o "$dummy" "$dummy.c" && SYSTEM_NAME=`"$dummy"` && + { echo "$SYSTEM_NAME"; exit; } + echo unknown-hitachi-hiuxwe2 + exit ;; + 9000/7??:4.3bsd:*:* | 9000/8?[79]:4.3bsd:*:*) + echo hppa1.1-hp-bsd + exit ;; + 9000/8??:4.3bsd:*:*) + echo hppa1.0-hp-bsd + exit ;; + *9??*:MPE/iX:*:* | *3000*:MPE/iX:*:*) + echo hppa1.0-hp-mpeix + exit ;; + hp7??:OSF1:*:* | hp8?[79]:OSF1:*:*) + echo hppa1.1-hp-osf + exit ;; + hp8??:OSF1:*:*) + echo hppa1.0-hp-osf + exit ;; + i*86:OSF1:*:*) + if [ -x /usr/sbin/sysversion ] ; then + echo "$UNAME_MACHINE"-unknown-osf1mk + else + echo "$UNAME_MACHINE"-unknown-osf1 + fi + exit ;; + parisc*:Lites*:*:*) + echo hppa1.1-hp-lites + exit ;; + C1*:ConvexOS:*:* | convex:ConvexOS:C1*:*) + echo c1-convex-bsd + exit ;; + C2*:ConvexOS:*:* | convex:ConvexOS:C2*:*) + if getsysinfo -f scalar_acc + then echo c32-convex-bsd + else echo c2-convex-bsd + fi + exit ;; + C34*:ConvexOS:*:* | convex:ConvexOS:C34*:*) + echo c34-convex-bsd + exit ;; + C38*:ConvexOS:*:* | convex:ConvexOS:C38*:*) + echo c38-convex-bsd + exit ;; + C4*:ConvexOS:*:* | convex:ConvexOS:C4*:*) + echo c4-convex-bsd + exit ;; + CRAY*Y-MP:*:*:*) + echo ymp-cray-unicos"$UNAME_RELEASE" | sed -e 's/\.[^.]*$/.X/' + exit ;; + CRAY*[A-Z]90:*:*:*) + echo "$UNAME_MACHINE"-cray-unicos"$UNAME_RELEASE" \ + | sed -e 's/CRAY.*\([A-Z]90\)/\1/' \ + -e y/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/ \ + -e 's/\.[^.]*$/.X/' + exit ;; + CRAY*TS:*:*:*) + echo t90-cray-unicos"$UNAME_RELEASE" | sed -e 's/\.[^.]*$/.X/' + exit ;; + CRAY*T3E:*:*:*) + echo alphaev5-cray-unicosmk"$UNAME_RELEASE" | sed -e 's/\.[^.]*$/.X/' + exit ;; + CRAY*SV1:*:*:*) + echo sv1-cray-unicos"$UNAME_RELEASE" | sed -e 's/\.[^.]*$/.X/' + exit ;; + *:UNICOS/mp:*:*) + echo craynv-cray-unicosmp"$UNAME_RELEASE" | sed -e 's/\.[^.]*$/.X/' + exit ;; + F30[01]:UNIX_System_V:*:* | F700:UNIX_System_V:*:*) + FUJITSU_PROC=`uname -m | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz` + FUJITSU_SYS=`uname -p | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz | sed -e 's/\///'` + FUJITSU_REL=`echo "$UNAME_RELEASE" | sed -e 's/ /_/'` + echo "${FUJITSU_PROC}-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}" + exit ;; + 5000:UNIX_System_V:4.*:*) + FUJITSU_SYS=`uname -p | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz | sed -e 's/\///'` + FUJITSU_REL=`echo "$UNAME_RELEASE" | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz | sed -e 's/ /_/'` + echo "sparc-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}" + exit ;; + i*86:BSD/386:*:* | i*86:BSD/OS:*:* | *:Ascend\ Embedded/OS:*:*) + echo "$UNAME_MACHINE"-pc-bsdi"$UNAME_RELEASE" + exit ;; + sparc*:BSD/OS:*:*) + echo sparc-unknown-bsdi"$UNAME_RELEASE" + exit ;; + *:BSD/OS:*:*) + echo "$UNAME_MACHINE"-unknown-bsdi"$UNAME_RELEASE" + exit ;; + arm:FreeBSD:*:*) + UNAME_PROCESSOR=`uname -p` + set_cc_for_build + if echo __ARM_PCS_VFP | $CC_FOR_BUILD -E - 2>/dev/null \ + | grep -q __ARM_PCS_VFP + then + echo "${UNAME_PROCESSOR}"-unknown-freebsd"`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'`"-gnueabi + else + echo "${UNAME_PROCESSOR}"-unknown-freebsd"`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'`"-gnueabihf + fi + exit ;; + *:FreeBSD:*:*) + UNAME_PROCESSOR=`/usr/bin/uname -p` + case "$UNAME_PROCESSOR" in + amd64) + UNAME_PROCESSOR=x86_64 ;; + i386) + UNAME_PROCESSOR=i586 ;; + esac + echo "$UNAME_PROCESSOR"-unknown-freebsd"`echo "$UNAME_RELEASE"|sed -e 's/[-(].*//'`" + exit ;; + i*:CYGWIN*:*) + echo "$UNAME_MACHINE"-pc-cygwin + exit ;; + *:MINGW64*:*) + echo "$UNAME_MACHINE"-pc-mingw64 + exit ;; + *:MINGW*:*) + echo "$UNAME_MACHINE"-pc-mingw32 + exit ;; + *:MSYS*:*) + echo "$UNAME_MACHINE"-pc-msys + exit ;; + i*:PW*:*) + echo "$UNAME_MACHINE"-pc-pw32 + exit ;; + *:Interix*:*) + case "$UNAME_MACHINE" in + x86) + echo i586-pc-interix"$UNAME_RELEASE" + exit ;; + authenticamd | genuineintel | EM64T) + echo x86_64-unknown-interix"$UNAME_RELEASE" + exit ;; + IA64) + echo ia64-unknown-interix"$UNAME_RELEASE" + exit ;; + esac ;; + i*:UWIN*:*) + echo "$UNAME_MACHINE"-pc-uwin + exit ;; + amd64:CYGWIN*:*:* | x86_64:CYGWIN*:*:*) + echo x86_64-pc-cygwin + exit ;; + prep*:SunOS:5.*:*) + echo powerpcle-unknown-solaris2"`echo "$UNAME_RELEASE"|sed -e 's/[^.]*//'`" + exit ;; + *:GNU:*:*) + # the GNU system + echo "`echo "$UNAME_MACHINE"|sed -e 's,[-/].*$,,'`-unknown-$LIBC`echo "$UNAME_RELEASE"|sed -e 's,/.*$,,'`" + exit ;; + *:GNU/*:*:*) + # other systems with GNU libc and userland + echo "$UNAME_MACHINE-unknown-`echo "$UNAME_SYSTEM" | sed 's,^[^/]*/,,' | tr "[:upper:]" "[:lower:]"``echo "$UNAME_RELEASE"|sed -e 's/[-(].*//'`-$LIBC" + exit ;; + *:Minix:*:*) + echo "$UNAME_MACHINE"-unknown-minix + exit ;; + aarch64:Linux:*:*) + echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" + exit ;; + aarch64_be:Linux:*:*) + UNAME_MACHINE=aarch64_be + echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" + exit ;; + alpha:Linux:*:*) + case `sed -n '/^cpu model/s/^.*: \(.*\)/\1/p' < /proc/cpuinfo` in + EV5) UNAME_MACHINE=alphaev5 ;; + EV56) UNAME_MACHINE=alphaev56 ;; + PCA56) UNAME_MACHINE=alphapca56 ;; + PCA57) UNAME_MACHINE=alphapca56 ;; + EV6) UNAME_MACHINE=alphaev6 ;; + EV67) UNAME_MACHINE=alphaev67 ;; + EV68*) UNAME_MACHINE=alphaev68 ;; + esac + objdump --private-headers /bin/sh | grep -q ld.so.1 + if test "$?" = 0 ; then LIBC=gnulibc1 ; fi + echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" + exit ;; + arc:Linux:*:* | arceb:Linux:*:*) + echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" + exit ;; + arm*:Linux:*:*) + set_cc_for_build + if echo __ARM_EABI__ | $CC_FOR_BUILD -E - 2>/dev/null \ + | grep -q __ARM_EABI__ + then + echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" + else + if echo __ARM_PCS_VFP | $CC_FOR_BUILD -E - 2>/dev/null \ + | grep -q __ARM_PCS_VFP + then + echo "$UNAME_MACHINE"-unknown-linux-"$LIBC"eabi + else + echo "$UNAME_MACHINE"-unknown-linux-"$LIBC"eabihf + fi + fi + exit ;; + avr32*:Linux:*:*) + echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" + exit ;; + cris:Linux:*:*) + echo "$UNAME_MACHINE"-axis-linux-"$LIBC" + exit ;; + crisv32:Linux:*:*) + echo "$UNAME_MACHINE"-axis-linux-"$LIBC" + exit ;; + e2k:Linux:*:*) + echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" + exit ;; + frv:Linux:*:*) + echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" + exit ;; + hexagon:Linux:*:*) + echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" + exit ;; + i*86:Linux:*:*) + echo "$UNAME_MACHINE"-pc-linux-"$LIBC" + exit ;; + ia64:Linux:*:*) + echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" + exit ;; + k1om:Linux:*:*) + echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" + exit ;; + m32r*:Linux:*:*) + echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" + exit ;; + m68*:Linux:*:*) + echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" + exit ;; + mips:Linux:*:* | mips64:Linux:*:*) + set_cc_for_build + IS_GLIBC=0 + test x"${LIBC}" = xgnu && IS_GLIBC=1 + sed 's/^ //' << EOF > "$dummy.c" + #undef CPU + #undef mips + #undef mipsel + #undef mips64 + #undef mips64el + #if ${IS_GLIBC} && defined(_ABI64) + LIBCABI=gnuabi64 + #else + #if ${IS_GLIBC} && defined(_ABIN32) + LIBCABI=gnuabin32 + #else + LIBCABI=${LIBC} + #endif + #endif + + #if ${IS_GLIBC} && defined(__mips64) && defined(__mips_isa_rev) && __mips_isa_rev>=6 + CPU=mipsisa64r6 + #else + #if ${IS_GLIBC} && !defined(__mips64) && defined(__mips_isa_rev) && __mips_isa_rev>=6 + CPU=mipsisa32r6 + #else + #if defined(__mips64) + CPU=mips64 + #else + CPU=mips + #endif + #endif + #endif + + #if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) || defined(MIPSEL) + MIPS_ENDIAN=el + #else + #if defined(__MIPSEB__) || defined(__MIPSEB) || defined(_MIPSEB) || defined(MIPSEB) + MIPS_ENDIAN= + #else + MIPS_ENDIAN= + #endif + #endif +EOF + eval "`$CC_FOR_BUILD -E "$dummy.c" 2>/dev/null | grep '^CPU\|^MIPS_ENDIAN\|^LIBCABI'`" + test "x$CPU" != x && { echo "$CPU${MIPS_ENDIAN}-unknown-linux-$LIBCABI"; exit; } + ;; + mips64el:Linux:*:*) + echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" + exit ;; + openrisc*:Linux:*:*) + echo or1k-unknown-linux-"$LIBC" + exit ;; + or32:Linux:*:* | or1k*:Linux:*:*) + echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" + exit ;; + padre:Linux:*:*) + echo sparc-unknown-linux-"$LIBC" + exit ;; + parisc64:Linux:*:* | hppa64:Linux:*:*) + echo hppa64-unknown-linux-"$LIBC" + exit ;; + parisc:Linux:*:* | hppa:Linux:*:*) + # Look for CPU level + case `grep '^cpu[^a-z]*:' /proc/cpuinfo 2>/dev/null | cut -d' ' -f2` in + PA7*) echo hppa1.1-unknown-linux-"$LIBC" ;; + PA8*) echo hppa2.0-unknown-linux-"$LIBC" ;; + *) echo hppa-unknown-linux-"$LIBC" ;; + esac + exit ;; + ppc64:Linux:*:*) + echo powerpc64-unknown-linux-"$LIBC" + exit ;; + ppc:Linux:*:*) + echo powerpc-unknown-linux-"$LIBC" + exit ;; + ppc64le:Linux:*:*) + echo powerpc64le-unknown-linux-"$LIBC" + exit ;; + ppcle:Linux:*:*) + echo powerpcle-unknown-linux-"$LIBC" + exit ;; + riscv32:Linux:*:* | riscv64:Linux:*:*) + echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" + exit ;; + s390:Linux:*:* | s390x:Linux:*:*) + echo "$UNAME_MACHINE"-ibm-linux-"$LIBC" + exit ;; + sh64*:Linux:*:*) + echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" + exit ;; + sh*:Linux:*:*) + echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" + exit ;; + sparc:Linux:*:* | sparc64:Linux:*:*) + echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" + exit ;; + tile*:Linux:*:*) + echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" + exit ;; + vax:Linux:*:*) + echo "$UNAME_MACHINE"-dec-linux-"$LIBC" + exit ;; + x86_64:Linux:*:*) + echo "$UNAME_MACHINE"-pc-linux-"$LIBC" + exit ;; + xtensa*:Linux:*:*) + echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" + exit ;; + i*86:DYNIX/ptx:4*:*) + # ptx 4.0 does uname -s correctly, with DYNIX/ptx in there. + # earlier versions are messed up and put the nodename in both + # sysname and nodename. + echo i386-sequent-sysv4 + exit ;; + i*86:UNIX_SV:4.2MP:2.*) + # Unixware is an offshoot of SVR4, but it has its own version + # number series starting with 2... + # I am not positive that other SVR4 systems won't match this, + # I just have to hope. -- rms. + # Use sysv4.2uw... so that sysv4* matches it. + echo "$UNAME_MACHINE"-pc-sysv4.2uw"$UNAME_VERSION" + exit ;; + i*86:OS/2:*:*) + # If we were able to find `uname', then EMX Unix compatibility + # is probably installed. + echo "$UNAME_MACHINE"-pc-os2-emx + exit ;; + i*86:XTS-300:*:STOP) + echo "$UNAME_MACHINE"-unknown-stop + exit ;; + i*86:atheos:*:*) + echo "$UNAME_MACHINE"-unknown-atheos + exit ;; + i*86:syllable:*:*) + echo "$UNAME_MACHINE"-pc-syllable + exit ;; + i*86:LynxOS:2.*:* | i*86:LynxOS:3.[01]*:* | i*86:LynxOS:4.[02]*:*) + echo i386-unknown-lynxos"$UNAME_RELEASE" + exit ;; + i*86:*DOS:*:*) + echo "$UNAME_MACHINE"-pc-msdosdjgpp + exit ;; + i*86:*:4.*:*) + UNAME_REL=`echo "$UNAME_RELEASE" | sed 's/\/MP$//'` + if grep Novell /usr/include/link.h >/dev/null 2>/dev/null; then + echo "$UNAME_MACHINE"-univel-sysv"$UNAME_REL" + else + echo "$UNAME_MACHINE"-pc-sysv"$UNAME_REL" + fi + exit ;; + i*86:*:5:[678]*) + # UnixWare 7.x, OpenUNIX and OpenServer 6. + case `/bin/uname -X | grep "^Machine"` in + *486*) UNAME_MACHINE=i486 ;; + *Pentium) UNAME_MACHINE=i586 ;; + *Pent*|*Celeron) UNAME_MACHINE=i686 ;; + esac + echo "$UNAME_MACHINE-unknown-sysv${UNAME_RELEASE}${UNAME_SYSTEM}${UNAME_VERSION}" + exit ;; + i*86:*:3.2:*) + if test -f /usr/options/cb.name; then + UNAME_REL=`sed -n 's/.*Version //p' /dev/null >/dev/null ; then + UNAME_REL=`(/bin/uname -X|grep Release|sed -e 's/.*= //')` + (/bin/uname -X|grep i80486 >/dev/null) && UNAME_MACHINE=i486 + (/bin/uname -X|grep '^Machine.*Pentium' >/dev/null) \ + && UNAME_MACHINE=i586 + (/bin/uname -X|grep '^Machine.*Pent *II' >/dev/null) \ + && UNAME_MACHINE=i686 + (/bin/uname -X|grep '^Machine.*Pentium Pro' >/dev/null) \ + && UNAME_MACHINE=i686 + echo "$UNAME_MACHINE"-pc-sco"$UNAME_REL" + else + echo "$UNAME_MACHINE"-pc-sysv32 + fi + exit ;; + pc:*:*:*) + # Left here for compatibility: + # uname -m prints for DJGPP always 'pc', but it prints nothing about + # the processor, so we play safe by assuming i586. + # Note: whatever this is, it MUST be the same as what config.sub + # prints for the "djgpp" host, or else GDB configure will decide that + # this is a cross-build. + echo i586-pc-msdosdjgpp + exit ;; + Intel:Mach:3*:*) + echo i386-pc-mach3 + exit ;; + paragon:*:*:*) + echo i860-intel-osf1 + exit ;; + i860:*:4.*:*) # i860-SVR4 + if grep Stardent /usr/include/sys/uadmin.h >/dev/null 2>&1 ; then + echo i860-stardent-sysv"$UNAME_RELEASE" # Stardent Vistra i860-SVR4 + else # Add other i860-SVR4 vendors below as they are discovered. + echo i860-unknown-sysv"$UNAME_RELEASE" # Unknown i860-SVR4 + fi + exit ;; + mini*:CTIX:SYS*5:*) + # "miniframe" + echo m68010-convergent-sysv + exit ;; + mc68k:UNIX:SYSTEM5:3.51m) + echo m68k-convergent-sysv + exit ;; + M680?0:D-NIX:5.3:*) + echo m68k-diab-dnix + exit ;; + M68*:*:R3V[5678]*:*) + test -r /sysV68 && { echo 'm68k-motorola-sysv'; exit; } ;; + 3[345]??:*:4.0:3.0 | 3[34]??A:*:4.0:3.0 | 3[34]??,*:*:4.0:3.0 | 3[34]??/*:*:4.0:3.0 | 4400:*:4.0:3.0 | 4850:*:4.0:3.0 | SKA40:*:4.0:3.0 | SDS2:*:4.0:3.0 | SHG2:*:4.0:3.0 | S7501*:*:4.0:3.0) + OS_REL='' + test -r /etc/.relid \ + && OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid` + /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ + && { echo i486-ncr-sysv4.3"$OS_REL"; exit; } + /bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \ + && { echo i586-ncr-sysv4.3"$OS_REL"; exit; } ;; + 3[34]??:*:4.0:* | 3[34]??,*:*:4.0:*) + /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ + && { echo i486-ncr-sysv4; exit; } ;; + NCR*:*:4.2:* | MPRAS*:*:4.2:*) + OS_REL='.3' + test -r /etc/.relid \ + && OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid` + /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ + && { echo i486-ncr-sysv4.3"$OS_REL"; exit; } + /bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \ + && { echo i586-ncr-sysv4.3"$OS_REL"; exit; } + /bin/uname -p 2>/dev/null | /bin/grep pteron >/dev/null \ + && { echo i586-ncr-sysv4.3"$OS_REL"; exit; } ;; + m68*:LynxOS:2.*:* | m68*:LynxOS:3.0*:*) + echo m68k-unknown-lynxos"$UNAME_RELEASE" + exit ;; + mc68030:UNIX_System_V:4.*:*) + echo m68k-atari-sysv4 + exit ;; + TSUNAMI:LynxOS:2.*:*) + echo sparc-unknown-lynxos"$UNAME_RELEASE" + exit ;; + rs6000:LynxOS:2.*:*) + echo rs6000-unknown-lynxos"$UNAME_RELEASE" + exit ;; + PowerPC:LynxOS:2.*:* | PowerPC:LynxOS:3.[01]*:* | PowerPC:LynxOS:4.[02]*:*) + echo powerpc-unknown-lynxos"$UNAME_RELEASE" + exit ;; + SM[BE]S:UNIX_SV:*:*) + echo mips-dde-sysv"$UNAME_RELEASE" + exit ;; + RM*:ReliantUNIX-*:*:*) + echo mips-sni-sysv4 + exit ;; + RM*:SINIX-*:*:*) + echo mips-sni-sysv4 + exit ;; + *:SINIX-*:*:*) + if uname -p 2>/dev/null >/dev/null ; then + UNAME_MACHINE=`(uname -p) 2>/dev/null` + echo "$UNAME_MACHINE"-sni-sysv4 + else + echo ns32k-sni-sysv + fi + exit ;; + PENTIUM:*:4.0*:*) # Unisys `ClearPath HMP IX 4000' SVR4/MP effort + # says + echo i586-unisys-sysv4 + exit ;; + *:UNIX_System_V:4*:FTX*) + # From Gerald Hewes . + # How about differentiating between stratus architectures? -djm + echo hppa1.1-stratus-sysv4 + exit ;; + *:*:*:FTX*) + # From seanf@swdc.stratus.com. + echo i860-stratus-sysv4 + exit ;; + i*86:VOS:*:*) + # From Paul.Green@stratus.com. + echo "$UNAME_MACHINE"-stratus-vos + exit ;; + *:VOS:*:*) + # From Paul.Green@stratus.com. + echo hppa1.1-stratus-vos + exit ;; + mc68*:A/UX:*:*) + echo m68k-apple-aux"$UNAME_RELEASE" + exit ;; + news*:NEWS-OS:6*:*) + echo mips-sony-newsos6 + exit ;; + R[34]000:*System_V*:*:* | R4000:UNIX_SYSV:*:* | R*000:UNIX_SV:*:*) + if [ -d /usr/nec ]; then + echo mips-nec-sysv"$UNAME_RELEASE" + else + echo mips-unknown-sysv"$UNAME_RELEASE" + fi + exit ;; + BeBox:BeOS:*:*) # BeOS running on hardware made by Be, PPC only. + echo powerpc-be-beos + exit ;; + BeMac:BeOS:*:*) # BeOS running on Mac or Mac clone, PPC only. + echo powerpc-apple-beos + exit ;; + BePC:BeOS:*:*) # BeOS running on Intel PC compatible. + echo i586-pc-beos + exit ;; + BePC:Haiku:*:*) # Haiku running on Intel PC compatible. + echo i586-pc-haiku + exit ;; + x86_64:Haiku:*:*) + echo x86_64-unknown-haiku + exit ;; + SX-4:SUPER-UX:*:*) + echo sx4-nec-superux"$UNAME_RELEASE" + exit ;; + SX-5:SUPER-UX:*:*) + echo sx5-nec-superux"$UNAME_RELEASE" + exit ;; + SX-6:SUPER-UX:*:*) + echo sx6-nec-superux"$UNAME_RELEASE" + exit ;; + SX-7:SUPER-UX:*:*) + echo sx7-nec-superux"$UNAME_RELEASE" + exit ;; + SX-8:SUPER-UX:*:*) + echo sx8-nec-superux"$UNAME_RELEASE" + exit ;; + SX-8R:SUPER-UX:*:*) + echo sx8r-nec-superux"$UNAME_RELEASE" + exit ;; + SX-ACE:SUPER-UX:*:*) + echo sxace-nec-superux"$UNAME_RELEASE" + exit ;; + Power*:Rhapsody:*:*) + echo powerpc-apple-rhapsody"$UNAME_RELEASE" + exit ;; + *:Rhapsody:*:*) + echo "$UNAME_MACHINE"-apple-rhapsody"$UNAME_RELEASE" + exit ;; + *:Darwin:*:*) + UNAME_PROCESSOR=`uname -p` + case $UNAME_PROCESSOR in + unknown) UNAME_PROCESSOR=powerpc ;; + esac + if command -v xcode-select > /dev/null 2> /dev/null && \ + ! xcode-select --print-path > /dev/null 2> /dev/null ; then + # Avoid executing cc if there is no toolchain installed as + # cc will be a stub that puts up a graphical alert + # prompting the user to install developer tools. + CC_FOR_BUILD=no_compiler_found + else + set_cc_for_build + fi + if [ "$CC_FOR_BUILD" != no_compiler_found ]; then + if (echo '#ifdef __LP64__'; echo IS_64BIT_ARCH; echo '#endif') | \ + (CCOPTS="" $CC_FOR_BUILD -E - 2>/dev/null) | \ + grep IS_64BIT_ARCH >/dev/null + then + case $UNAME_PROCESSOR in + i386) UNAME_PROCESSOR=x86_64 ;; + powerpc) UNAME_PROCESSOR=powerpc64 ;; + esac + fi + # On 10.4-10.6 one might compile for PowerPC via gcc -arch ppc + if (echo '#ifdef __POWERPC__'; echo IS_PPC; echo '#endif') | \ + (CCOPTS="" $CC_FOR_BUILD -E - 2>/dev/null) | \ + grep IS_PPC >/dev/null + then + UNAME_PROCESSOR=powerpc + fi + elif test "$UNAME_PROCESSOR" = i386 ; then + # uname -m returns i386 or x86_64 + UNAME_PROCESSOR=$UNAME_MACHINE + fi + echo "$UNAME_PROCESSOR"-apple-darwin"$UNAME_RELEASE" + exit ;; + *:procnto*:*:* | *:QNX:[0123456789]*:*) + UNAME_PROCESSOR=`uname -p` + if test "$UNAME_PROCESSOR" = x86; then + UNAME_PROCESSOR=i386 + UNAME_MACHINE=pc + fi + echo "$UNAME_PROCESSOR"-"$UNAME_MACHINE"-nto-qnx"$UNAME_RELEASE" + exit ;; + *:QNX:*:4*) + echo i386-pc-qnx + exit ;; + NEO-*:NONSTOP_KERNEL:*:*) + echo neo-tandem-nsk"$UNAME_RELEASE" + exit ;; + NSE-*:NONSTOP_KERNEL:*:*) + echo nse-tandem-nsk"$UNAME_RELEASE" + exit ;; + NSR-*:NONSTOP_KERNEL:*:*) + echo nsr-tandem-nsk"$UNAME_RELEASE" + exit ;; + NSV-*:NONSTOP_KERNEL:*:*) + echo nsv-tandem-nsk"$UNAME_RELEASE" + exit ;; + NSX-*:NONSTOP_KERNEL:*:*) + echo nsx-tandem-nsk"$UNAME_RELEASE" + exit ;; + *:NonStop-UX:*:*) + echo mips-compaq-nonstopux + exit ;; + BS2000:POSIX*:*:*) + echo bs2000-siemens-sysv + exit ;; + DS/*:UNIX_System_V:*:*) + echo "$UNAME_MACHINE"-"$UNAME_SYSTEM"-"$UNAME_RELEASE" + exit ;; + *:Plan9:*:*) + # "uname -m" is not consistent, so use $cputype instead. 386 + # is converted to i386 for consistency with other x86 + # operating systems. + # shellcheck disable=SC2154 + if test "$cputype" = 386; then + UNAME_MACHINE=i386 + else + UNAME_MACHINE="$cputype" + fi + echo "$UNAME_MACHINE"-unknown-plan9 + exit ;; + *:TOPS-10:*:*) + echo pdp10-unknown-tops10 + exit ;; + *:TENEX:*:*) + echo pdp10-unknown-tenex + exit ;; + KS10:TOPS-20:*:* | KL10:TOPS-20:*:* | TYPE4:TOPS-20:*:*) + echo pdp10-dec-tops20 + exit ;; + XKL-1:TOPS-20:*:* | TYPE5:TOPS-20:*:*) + echo pdp10-xkl-tops20 + exit ;; + *:TOPS-20:*:*) + echo pdp10-unknown-tops20 + exit ;; + *:ITS:*:*) + echo pdp10-unknown-its + exit ;; + SEI:*:*:SEIUX) + echo mips-sei-seiux"$UNAME_RELEASE" + exit ;; + *:DragonFly:*:*) + echo "$UNAME_MACHINE"-unknown-dragonfly"`echo "$UNAME_RELEASE"|sed -e 's/[-(].*//'`" + exit ;; + *:*VMS:*:*) + UNAME_MACHINE=`(uname -p) 2>/dev/null` + case "$UNAME_MACHINE" in + A*) echo alpha-dec-vms ; exit ;; + I*) echo ia64-dec-vms ; exit ;; + V*) echo vax-dec-vms ; exit ;; + esac ;; + *:XENIX:*:SysV) + echo i386-pc-xenix + exit ;; + i*86:skyos:*:*) + echo "$UNAME_MACHINE"-pc-skyos"`echo "$UNAME_RELEASE" | sed -e 's/ .*$//'`" + exit ;; + i*86:rdos:*:*) + echo "$UNAME_MACHINE"-pc-rdos + exit ;; + i*86:AROS:*:*) + echo "$UNAME_MACHINE"-pc-aros + exit ;; + x86_64:VMkernel:*:*) + echo "$UNAME_MACHINE"-unknown-esx + exit ;; + amd64:Isilon\ OneFS:*:*) + echo x86_64-unknown-onefs + exit ;; + *:Unleashed:*:*) + echo "$UNAME_MACHINE"-unknown-unleashed"$UNAME_RELEASE" + exit ;; +esac + +# No uname command or uname output not recognized. +set_cc_for_build +cat > "$dummy.c" < +#include +#endif +#if defined(ultrix) || defined(_ultrix) || defined(__ultrix) || defined(__ultrix__) +#if defined (vax) || defined (__vax) || defined (__vax__) || defined(mips) || defined(__mips) || defined(__mips__) || defined(MIPS) || defined(__MIPS__) +#include +#if defined(_SIZE_T_) || defined(SIGLOST) +#include +#endif +#endif +#endif +main () +{ +#if defined (sony) +#if defined (MIPSEB) + /* BFD wants "bsd" instead of "newsos". Perhaps BFD should be changed, + I don't know.... */ + printf ("mips-sony-bsd\n"); exit (0); +#else +#include + printf ("m68k-sony-newsos%s\n", +#ifdef NEWSOS4 + "4" +#else + "" +#endif + ); exit (0); +#endif +#endif + +#if defined (NeXT) +#if !defined (__ARCHITECTURE__) +#define __ARCHITECTURE__ "m68k" +#endif + int version; + version=`(hostinfo | sed -n 's/.*NeXT Mach \([0-9]*\).*/\1/p') 2>/dev/null`; + if (version < 4) + printf ("%s-next-nextstep%d\n", __ARCHITECTURE__, version); + else + printf ("%s-next-openstep%d\n", __ARCHITECTURE__, version); + exit (0); +#endif + +#if defined (MULTIMAX) || defined (n16) +#if defined (UMAXV) + printf ("ns32k-encore-sysv\n"); exit (0); +#else +#if defined (CMU) + printf ("ns32k-encore-mach\n"); exit (0); +#else + printf ("ns32k-encore-bsd\n"); exit (0); +#endif +#endif +#endif + +#if defined (__386BSD__) + printf ("i386-pc-bsd\n"); exit (0); +#endif + +#if defined (sequent) +#if defined (i386) + printf ("i386-sequent-dynix\n"); exit (0); +#endif +#if defined (ns32000) + printf ("ns32k-sequent-dynix\n"); exit (0); +#endif +#endif + +#if defined (_SEQUENT_) + struct utsname un; + + uname(&un); + if (strncmp(un.version, "V2", 2) == 0) { + printf ("i386-sequent-ptx2\n"); exit (0); + } + if (strncmp(un.version, "V1", 2) == 0) { /* XXX is V1 correct? */ + printf ("i386-sequent-ptx1\n"); exit (0); + } + printf ("i386-sequent-ptx\n"); exit (0); +#endif + +#if defined (vax) +#if !defined (ultrix) +#include +#if defined (BSD) +#if BSD == 43 + printf ("vax-dec-bsd4.3\n"); exit (0); +#else +#if BSD == 199006 + printf ("vax-dec-bsd4.3reno\n"); exit (0); +#else + printf ("vax-dec-bsd\n"); exit (0); +#endif +#endif +#else + printf ("vax-dec-bsd\n"); exit (0); +#endif +#else +#if defined(_SIZE_T_) || defined(SIGLOST) + struct utsname un; + uname (&un); + printf ("vax-dec-ultrix%s\n", un.release); exit (0); +#else + printf ("vax-dec-ultrix\n"); exit (0); +#endif +#endif +#endif +#if defined(ultrix) || defined(_ultrix) || defined(__ultrix) || defined(__ultrix__) +#if defined(mips) || defined(__mips) || defined(__mips__) || defined(MIPS) || defined(__MIPS__) +#if defined(_SIZE_T_) || defined(SIGLOST) + struct utsname *un; + uname (&un); + printf ("mips-dec-ultrix%s\n", un.release); exit (0); +#else + printf ("mips-dec-ultrix\n"); exit (0); +#endif +#endif +#endif + +#if defined (alliant) && defined (i860) + printf ("i860-alliant-bsd\n"); exit (0); +#endif + + exit (1); +} +EOF + +$CC_FOR_BUILD -o "$dummy" "$dummy.c" 2>/dev/null && SYSTEM_NAME=`$dummy` && + { echo "$SYSTEM_NAME"; exit; } + +# Apollos put the system type in the environment. +test -d /usr/apollo && { echo "$ISP-apollo-$SYSTYPE"; exit; } + +echo "$0: unable to guess system type" >&2 + +case "$UNAME_MACHINE:$UNAME_SYSTEM" in + mips:Linux | mips64:Linux) + # If we got here on MIPS GNU/Linux, output extra information. + cat >&2 <&2 </dev/null || echo unknown` +uname -r = `(uname -r) 2>/dev/null || echo unknown` +uname -s = `(uname -s) 2>/dev/null || echo unknown` +uname -v = `(uname -v) 2>/dev/null || echo unknown` + +/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null` +/bin/uname -X = `(/bin/uname -X) 2>/dev/null` + +hostinfo = `(hostinfo) 2>/dev/null` +/bin/universe = `(/bin/universe) 2>/dev/null` +/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null` +/bin/arch = `(/bin/arch) 2>/dev/null` +/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null` +/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null` + +UNAME_MACHINE = "$UNAME_MACHINE" +UNAME_RELEASE = "$UNAME_RELEASE" +UNAME_SYSTEM = "$UNAME_SYSTEM" +UNAME_VERSION = "$UNAME_VERSION" +EOF + +exit 1 + +# Local variables: +# eval: (add-hook 'before-save-hook 'time-stamp) +# time-stamp-start: "timestamp='" +# time-stamp-format: "%:y-%02m-%02d" +# time-stamp-end: "'" +# End: diff --git a/build-aux/config.rpath b/build-aux/config.rpath new file mode 100755 index 0000000..be202c1 --- /dev/null +++ b/build-aux/config.rpath @@ -0,0 +1,684 @@ +#! /bin/sh +# Output a system dependent set of variables, describing how to set the +# run time search path of shared libraries in an executable. +# +# Copyright 1996-2019 Free Software Foundation, Inc. +# Taken from GNU libtool, 2001 +# Originally by Gordon Matzigkeit , 1996 +# +# This file is free software; the Free Software Foundation gives +# unlimited permission to copy and/or distribute it, with or without +# modifications, as long as this notice is preserved. +# +# The first argument passed to this file is the canonical host specification, +# CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM +# or +# CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM +# The environment variables CC, GCC, LDFLAGS, LD, with_gnu_ld +# should be set by the caller. +# +# The set of defined variables is at the end of this script. + +# Known limitations: +# - On IRIX 6.5 with CC="cc", the run time search patch must not be longer +# than 256 bytes, otherwise the compiler driver will dump core. The only +# known workaround is to choose shorter directory names for the build +# directory and/or the installation directory. + +# All known linkers require a '.a' archive for static linking (except MSVC, +# which needs '.lib'). +libext=a +shrext=.so + +host="$1" +host_cpu=`echo "$host" | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\1/'` +host_vendor=`echo "$host" | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\2/'` +host_os=`echo "$host" | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\3/'` + +# Code taken from libtool.m4's _LT_CC_BASENAME. + +for cc_temp in $CC""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac +done +cc_basename=`echo "$cc_temp" | sed -e 's%^.*/%%'` + +# Code taken from libtool.m4's _LT_COMPILER_PIC. + +wl= +if test "$GCC" = yes; then + wl='-Wl,' +else + case "$host_os" in + aix*) + wl='-Wl,' + ;; + mingw* | cygwin* | pw32* | os2* | cegcc*) + ;; + hpux9* | hpux10* | hpux11*) + wl='-Wl,' + ;; + irix5* | irix6* | nonstopux*) + wl='-Wl,' + ;; + linux* | k*bsd*-gnu | kopensolaris*-gnu) + case $cc_basename in + ecc*) + wl='-Wl,' + ;; + icc* | ifort*) + wl='-Wl,' + ;; + lf95*) + wl='-Wl,' + ;; + nagfor*) + wl='-Wl,-Wl,,' + ;; + pgcc* | pgf77* | pgf90* | pgf95* | pgfortran*) + wl='-Wl,' + ;; + ccc*) + wl='-Wl,' + ;; + xl* | bgxl* | bgf* | mpixl*) + wl='-Wl,' + ;; + como) + wl='-lopt=' + ;; + *) + case `$CC -V 2>&1 | sed 5q` in + *Sun\ F* | *Sun*Fortran*) + wl= + ;; + *Sun\ C*) + wl='-Wl,' + ;; + esac + ;; + esac + ;; + newsos6) + ;; + *nto* | *qnx*) + ;; + osf3* | osf4* | osf5*) + wl='-Wl,' + ;; + rdos*) + ;; + solaris*) + case $cc_basename in + f77* | f90* | f95* | sunf77* | sunf90* | sunf95*) + wl='-Qoption ld ' + ;; + *) + wl='-Wl,' + ;; + esac + ;; + sunos4*) + wl='-Qoption ld ' + ;; + sysv4 | sysv4.2uw2* | sysv4.3*) + wl='-Wl,' + ;; + sysv4*MP*) + ;; + sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) + wl='-Wl,' + ;; + unicos*) + wl='-Wl,' + ;; + uts4*) + ;; + esac +fi + +# Code taken from libtool.m4's _LT_LINKER_SHLIBS. + +hardcode_libdir_flag_spec= +hardcode_libdir_separator= +hardcode_direct=no +hardcode_minus_L=no + +case "$host_os" in + cygwin* | mingw* | pw32* | cegcc*) + # FIXME: the MSVC++ port hasn't been tested in a loooong time + # When not using gcc, we currently assume that we are using + # Microsoft Visual C++. + if test "$GCC" != yes; then + with_gnu_ld=no + fi + ;; + interix*) + # we just hope/assume this is gcc and not c89 (= MSVC++) + with_gnu_ld=yes + ;; + openbsd*) + with_gnu_ld=no + ;; +esac + +ld_shlibs=yes +if test "$with_gnu_ld" = yes; then + # Set some defaults for GNU ld with shared library support. These + # are reset later if shared libraries are not supported. Putting them + # here allows them to be overridden if necessary. + # Unlike libtool, we use -rpath here, not --rpath, since the documented + # option of GNU ld is called -rpath, not --rpath. + hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' + case "$host_os" in + aix[3-9]*) + # On AIX/PPC, the GNU linker is very broken + if test "$host_cpu" != ia64; then + ld_shlibs=no + fi + ;; + amigaos*) + case "$host_cpu" in + powerpc) + ;; + m68k) + hardcode_libdir_flag_spec='-L$libdir' + hardcode_minus_L=yes + ;; + esac + ;; + beos*) + if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then + : + else + ld_shlibs=no + fi + ;; + cygwin* | mingw* | pw32* | cegcc*) + # hardcode_libdir_flag_spec is actually meaningless, as there is + # no search path for DLLs. + hardcode_libdir_flag_spec='-L$libdir' + if $LD --help 2>&1 | grep 'auto-import' > /dev/null; then + : + else + ld_shlibs=no + fi + ;; + haiku*) + ;; + interix[3-9]*) + hardcode_direct=no + hardcode_libdir_flag_spec='${wl}-rpath,$libdir' + ;; + gnu* | linux* | tpf* | k*bsd*-gnu | kopensolaris*-gnu) + if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then + : + else + ld_shlibs=no + fi + ;; + netbsd*) + ;; + solaris*) + if $LD -v 2>&1 | grep 'BFD 2\.8' > /dev/null; then + ld_shlibs=no + elif $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then + : + else + ld_shlibs=no + fi + ;; + sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*) + case `$LD -v 2>&1` in + *\ [01].* | *\ 2.[0-9].* | *\ 2.1[0-5].*) + ld_shlibs=no + ;; + *) + if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then + hardcode_libdir_flag_spec='`test -z "$SCOABSPATH" && echo ${wl}-rpath,$libdir`' + else + ld_shlibs=no + fi + ;; + esac + ;; + sunos4*) + hardcode_direct=yes + ;; + *) + if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then + : + else + ld_shlibs=no + fi + ;; + esac + if test "$ld_shlibs" = no; then + hardcode_libdir_flag_spec= + fi +else + case "$host_os" in + aix3*) + # Note: this linker hardcodes the directories in LIBPATH if there + # are no directories specified by -L. + hardcode_minus_L=yes + if test "$GCC" = yes; then + # Neither direct hardcoding nor static linking is supported with a + # broken collect2. + hardcode_direct=unsupported + fi + ;; + aix[4-9]*) + if test "$host_cpu" = ia64; then + # On IA64, the linker does run time linking by default, so we don't + # have to do anything special. + aix_use_runtimelinking=no + else + aix_use_runtimelinking=no + # Test if we are trying to use run time linking or normal + # AIX style linking. If -brtl is somewhere in LDFLAGS, we + # need to do runtime linking. + case $host_os in aix4.[23]|aix4.[23].*|aix[5-9]*) + for ld_flag in $LDFLAGS; do + if (test $ld_flag = "-brtl" || test $ld_flag = "-Wl,-brtl"); then + aix_use_runtimelinking=yes + break + fi + done + ;; + esac + fi + hardcode_direct=yes + hardcode_libdir_separator=':' + if test "$GCC" = yes; then + case $host_os in aix4.[012]|aix4.[012].*) + collect2name=`${CC} -print-prog-name=collect2` + if test -f "$collect2name" && \ + strings "$collect2name" | grep resolve_lib_name >/dev/null + then + # We have reworked collect2 + : + else + # We have old collect2 + hardcode_direct=unsupported + hardcode_minus_L=yes + hardcode_libdir_flag_spec='-L$libdir' + hardcode_libdir_separator= + fi + ;; + esac + fi + # Begin _LT_AC_SYS_LIBPATH_AIX. + echo 'int main () { return 0; }' > conftest.c + ${CC} ${LDFLAGS} conftest.c -o conftest + aix_libpath=`dump -H conftest 2>/dev/null | sed -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } +}'` + if test -z "$aix_libpath"; then + aix_libpath=`dump -HX64 conftest 2>/dev/null | sed -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } +}'` + fi + if test -z "$aix_libpath"; then + aix_libpath="/usr/lib:/lib" + fi + rm -f conftest.c conftest + # End _LT_AC_SYS_LIBPATH_AIX. + if test "$aix_use_runtimelinking" = yes; then + hardcode_libdir_flag_spec='${wl}-blibpath:$libdir:'"$aix_libpath" + else + if test "$host_cpu" = ia64; then + hardcode_libdir_flag_spec='${wl}-R $libdir:/usr/lib:/lib' + else + hardcode_libdir_flag_spec='${wl}-blibpath:$libdir:'"$aix_libpath" + fi + fi + ;; + amigaos*) + case "$host_cpu" in + powerpc) + ;; + m68k) + hardcode_libdir_flag_spec='-L$libdir' + hardcode_minus_L=yes + ;; + esac + ;; + bsdi[45]*) + ;; + cygwin* | mingw* | pw32* | cegcc*) + # When not using gcc, we currently assume that we are using + # Microsoft Visual C++. + # hardcode_libdir_flag_spec is actually meaningless, as there is + # no search path for DLLs. + hardcode_libdir_flag_spec=' ' + libext=lib + ;; + darwin* | rhapsody*) + hardcode_direct=no + if { case $cc_basename in ifort*) true;; *) test "$GCC" = yes;; esac; }; then + : + else + ld_shlibs=no + fi + ;; + dgux*) + hardcode_libdir_flag_spec='-L$libdir' + ;; + freebsd2.[01]*) + hardcode_direct=yes + hardcode_minus_L=yes + ;; + freebsd* | dragonfly*) + hardcode_libdir_flag_spec='-R$libdir' + hardcode_direct=yes + ;; + hpux9*) + hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir' + hardcode_libdir_separator=: + hardcode_direct=yes + # hardcode_minus_L: Not really in the search PATH, + # but as the default location of the library. + hardcode_minus_L=yes + ;; + hpux10*) + if test "$with_gnu_ld" = no; then + hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir' + hardcode_libdir_separator=: + hardcode_direct=yes + # hardcode_minus_L: Not really in the search PATH, + # but as the default location of the library. + hardcode_minus_L=yes + fi + ;; + hpux11*) + if test "$with_gnu_ld" = no; then + hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir' + hardcode_libdir_separator=: + case $host_cpu in + hppa*64*|ia64*) + hardcode_direct=no + ;; + *) + hardcode_direct=yes + # hardcode_minus_L: Not really in the search PATH, + # but as the default location of the library. + hardcode_minus_L=yes + ;; + esac + fi + ;; + irix5* | irix6* | nonstopux*) + hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' + hardcode_libdir_separator=: + ;; + netbsd*) + hardcode_libdir_flag_spec='-R$libdir' + hardcode_direct=yes + ;; + newsos6) + hardcode_direct=yes + hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' + hardcode_libdir_separator=: + ;; + *nto* | *qnx*) + ;; + openbsd*) + if test -f /usr/libexec/ld.so; then + hardcode_direct=yes + if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then + hardcode_libdir_flag_spec='${wl}-rpath,$libdir' + else + case "$host_os" in + openbsd[01].* | openbsd2.[0-7] | openbsd2.[0-7].*) + hardcode_libdir_flag_spec='-R$libdir' + ;; + *) + hardcode_libdir_flag_spec='${wl}-rpath,$libdir' + ;; + esac + fi + else + ld_shlibs=no + fi + ;; + os2*) + hardcode_libdir_flag_spec='-L$libdir' + hardcode_minus_L=yes + ;; + osf3*) + hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' + hardcode_libdir_separator=: + ;; + osf4* | osf5*) + if test "$GCC" = yes; then + hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' + else + # Both cc and cxx compiler support -rpath directly + hardcode_libdir_flag_spec='-rpath $libdir' + fi + hardcode_libdir_separator=: + ;; + solaris*) + hardcode_libdir_flag_spec='-R$libdir' + ;; + sunos4*) + hardcode_libdir_flag_spec='-L$libdir' + hardcode_direct=yes + hardcode_minus_L=yes + ;; + sysv4) + case $host_vendor in + sni) + hardcode_direct=yes # is this really true??? + ;; + siemens) + hardcode_direct=no + ;; + motorola) + hardcode_direct=no #Motorola manual says yes, but my tests say they lie + ;; + esac + ;; + sysv4.3*) + ;; + sysv4*MP*) + if test -d /usr/nec; then + ld_shlibs=yes + fi + ;; + sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[01].[10]* | unixware7* | sco3.2v5.0.[024]*) + ;; + sysv5* | sco3.2v5* | sco5v6*) + hardcode_libdir_flag_spec='`test -z "$SCOABSPATH" && echo ${wl}-R,$libdir`' + hardcode_libdir_separator=':' + ;; + uts4*) + hardcode_libdir_flag_spec='-L$libdir' + ;; + *) + ld_shlibs=no + ;; + esac +fi + +# Check dynamic linker characteristics +# Code taken from libtool.m4's _LT_SYS_DYNAMIC_LINKER. +# Unlike libtool.m4, here we don't care about _all_ names of the library, but +# only about the one the linker finds when passed -lNAME. This is the last +# element of library_names_spec in libtool.m4, or possibly two of them if the +# linker has special search rules. +library_names_spec= # the last element of library_names_spec in libtool.m4 +libname_spec='lib$name' +case "$host_os" in + aix3*) + library_names_spec='$libname.a' + ;; + aix[4-9]*) + library_names_spec='$libname$shrext' + ;; + amigaos*) + case "$host_cpu" in + powerpc*) + library_names_spec='$libname$shrext' ;; + m68k) + library_names_spec='$libname.a' ;; + esac + ;; + beos*) + library_names_spec='$libname$shrext' + ;; + bsdi[45]*) + library_names_spec='$libname$shrext' + ;; + cygwin* | mingw* | pw32* | cegcc*) + shrext=.dll + library_names_spec='$libname.dll.a $libname.lib' + ;; + darwin* | rhapsody*) + shrext=.dylib + library_names_spec='$libname$shrext' + ;; + dgux*) + library_names_spec='$libname$shrext' + ;; + freebsd[23].*) + library_names_spec='$libname$shrext$versuffix' + ;; + freebsd* | dragonfly*) + library_names_spec='$libname$shrext' + ;; + gnu*) + library_names_spec='$libname$shrext' + ;; + haiku*) + library_names_spec='$libname$shrext' + ;; + hpux9* | hpux10* | hpux11*) + case $host_cpu in + ia64*) + shrext=.so + ;; + hppa*64*) + shrext=.sl + ;; + *) + shrext=.sl + ;; + esac + library_names_spec='$libname$shrext' + ;; + interix[3-9]*) + library_names_spec='$libname$shrext' + ;; + irix5* | irix6* | nonstopux*) + library_names_spec='$libname$shrext' + case "$host_os" in + irix5* | nonstopux*) + libsuff= shlibsuff= + ;; + *) + case $LD in + *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ") libsuff= shlibsuff= ;; + *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ") libsuff=32 shlibsuff=N32 ;; + *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ") libsuff=64 shlibsuff=64 ;; + *) libsuff= shlibsuff= ;; + esac + ;; + esac + ;; + linux*oldld* | linux*aout* | linux*coff*) + ;; + linux* | k*bsd*-gnu | kopensolaris*-gnu) + library_names_spec='$libname$shrext' + ;; + knetbsd*-gnu) + library_names_spec='$libname$shrext' + ;; + netbsd*) + library_names_spec='$libname$shrext' + ;; + newsos6) + library_names_spec='$libname$shrext' + ;; + *nto* | *qnx*) + library_names_spec='$libname$shrext' + ;; + openbsd*) + library_names_spec='$libname$shrext$versuffix' + ;; + os2*) + libname_spec='$name' + shrext=.dll + library_names_spec='$libname.a' + ;; + osf3* | osf4* | osf5*) + library_names_spec='$libname$shrext' + ;; + rdos*) + ;; + solaris*) + library_names_spec='$libname$shrext' + ;; + sunos4*) + library_names_spec='$libname$shrext$versuffix' + ;; + sysv4 | sysv4.3*) + library_names_spec='$libname$shrext' + ;; + sysv4*MP*) + library_names_spec='$libname$shrext' + ;; + sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) + library_names_spec='$libname$shrext' + ;; + tpf*) + library_names_spec='$libname$shrext' + ;; + uts4*) + library_names_spec='$libname$shrext' + ;; +esac + +sed_quote_subst='s/\(["`$\\]\)/\\\1/g' +escaped_wl=`echo "X$wl" | sed -e 's/^X//' -e "$sed_quote_subst"` +shlibext=`echo "$shrext" | sed -e 's,^\.,,'` +escaped_libname_spec=`echo "X$libname_spec" | sed -e 's/^X//' -e "$sed_quote_subst"` +escaped_library_names_spec=`echo "X$library_names_spec" | sed -e 's/^X//' -e "$sed_quote_subst"` +escaped_hardcode_libdir_flag_spec=`echo "X$hardcode_libdir_flag_spec" | sed -e 's/^X//' -e "$sed_quote_subst"` + +LC_ALL=C sed -e 's/^\([a-zA-Z0-9_]*\)=/acl_cv_\1=/' <. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program that contains a +# configuration script generated by Autoconf, you may include it under +# the same distribution terms that you use for the rest of that +# program. This Exception is an additional permission under section 7 +# of the GNU General Public License, version 3 ("GPLv3"). + + +# Please send patches to . +# +# Configuration subroutine to validate and canonicalize a configuration type. +# Supply the specified configuration type as an argument. +# If it is invalid, we print an error message on stderr and exit with code 1. +# Otherwise, we print the canonical config type on stdout and succeed. + +# You can get the latest version of this script from: +# https://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.sub + +# This file is supposed to be the same for all GNU packages +# and recognize all the CPU types, system types and aliases +# that are meaningful with *any* GNU software. +# Each package is responsible for reporting which valid configurations +# it does not support. The user should be able to distinguish +# a failure to support a valid configuration from a meaningless +# configuration. + +# The goal of this file is to map all the various variations of a given +# machine specification into a single specification in the form: +# CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM +# or in some cases, the newer four-part form: +# CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM +# It is wrong to echo any other type of specification. + +me=`echo "$0" | sed -e 's,.*/,,'` + +usage="\ +Usage: $0 [OPTION] CPU-MFR-OPSYS or ALIAS + +Canonicalize a configuration name. + +Options: + -h, --help print this help, then exit + -t, --time-stamp print date of last modification, then exit + -v, --version print version number, then exit + +Report bugs and patches to ." + +version="\ +GNU config.sub ($timestamp) + +Copyright 1992-2019 Free Software Foundation, Inc. + +This is free software; see the source for copying conditions. There is NO +warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." + +help=" +Try \`$me --help' for more information." + +# Parse command line +while test $# -gt 0 ; do + case $1 in + --time-stamp | --time* | -t ) + echo "$timestamp" ; exit ;; + --version | -v ) + echo "$version" ; exit ;; + --help | --h* | -h ) + echo "$usage"; exit ;; + -- ) # Stop option processing + shift; break ;; + - ) # Use stdin as input. + break ;; + -* ) + echo "$me: invalid option $1$help" >&2 + exit 1 ;; + + *local*) + # First pass through any local machine types. + echo "$1" + exit ;; + + * ) + break ;; + esac +done + +case $# in + 0) echo "$me: missing argument$help" >&2 + exit 1;; + 1) ;; + *) echo "$me: too many arguments$help" >&2 + exit 1;; +esac + +# Split fields of configuration type +# shellcheck disable=SC2162 +IFS="-" read field1 field2 field3 field4 <&2 + exit 1 + ;; + *-*-*-*) + basic_machine=$field1-$field2 + os=$field3-$field4 + ;; + *-*-*) + # Ambiguous whether COMPANY is present, or skipped and KERNEL-OS is two + # parts + maybe_os=$field2-$field3 + case $maybe_os in + nto-qnx* | linux-gnu* | linux-android* | linux-dietlibc \ + | linux-newlib* | linux-musl* | linux-uclibc* | uclinux-uclibc* \ + | uclinux-gnu* | kfreebsd*-gnu* | knetbsd*-gnu* | netbsd*-gnu* \ + | netbsd*-eabi* | kopensolaris*-gnu* | cloudabi*-eabi* \ + | storm-chaos* | os2-emx* | rtmk-nova*) + basic_machine=$field1 + os=$maybe_os + ;; + android-linux) + basic_machine=$field1-unknown + os=linux-android + ;; + *) + basic_machine=$field1-$field2 + os=$field3 + ;; + esac + ;; + *-*) + # A lone config we happen to match not fitting any pattern + case $field1-$field2 in + decstation-3100) + basic_machine=mips-dec + os= + ;; + *-*) + # Second component is usually, but not always the OS + case $field2 in + # Prevent following clause from handling this valid os + sun*os*) + basic_machine=$field1 + os=$field2 + ;; + # Manufacturers + dec* | mips* | sequent* | encore* | pc533* | sgi* | sony* \ + | att* | 7300* | 3300* | delta* | motorola* | sun[234]* \ + | unicom* | ibm* | next | hp | isi* | apollo | altos* \ + | convergent* | ncr* | news | 32* | 3600* | 3100* \ + | hitachi* | c[123]* | convex* | sun | crds | omron* | dg \ + | ultra | tti* | harris | dolphin | highlevel | gould \ + | cbm | ns | masscomp | apple | axis | knuth | cray \ + | microblaze* | sim | cisco \ + | oki | wec | wrs | winbond) + basic_machine=$field1-$field2 + os= + ;; + *) + basic_machine=$field1 + os=$field2 + ;; + esac + ;; + esac + ;; + *) + # Convert single-component short-hands not valid as part of + # multi-component configurations. + case $field1 in + 386bsd) + basic_machine=i386-pc + os=bsd + ;; + a29khif) + basic_machine=a29k-amd + os=udi + ;; + adobe68k) + basic_machine=m68010-adobe + os=scout + ;; + alliant) + basic_machine=fx80-alliant + os= + ;; + altos | altos3068) + basic_machine=m68k-altos + os= + ;; + am29k) + basic_machine=a29k-none + os=bsd + ;; + amdahl) + basic_machine=580-amdahl + os=sysv + ;; + amiga) + basic_machine=m68k-unknown + os= + ;; + amigaos | amigados) + basic_machine=m68k-unknown + os=amigaos + ;; + amigaunix | amix) + basic_machine=m68k-unknown + os=sysv4 + ;; + apollo68) + basic_machine=m68k-apollo + os=sysv + ;; + apollo68bsd) + basic_machine=m68k-apollo + os=bsd + ;; + aros) + basic_machine=i386-pc + os=aros + ;; + aux) + basic_machine=m68k-apple + os=aux + ;; + balance) + basic_machine=ns32k-sequent + os=dynix + ;; + blackfin) + basic_machine=bfin-unknown + os=linux + ;; + cegcc) + basic_machine=arm-unknown + os=cegcc + ;; + convex-c1) + basic_machine=c1-convex + os=bsd + ;; + convex-c2) + basic_machine=c2-convex + os=bsd + ;; + convex-c32) + basic_machine=c32-convex + os=bsd + ;; + convex-c34) + basic_machine=c34-convex + os=bsd + ;; + convex-c38) + basic_machine=c38-convex + os=bsd + ;; + cray) + basic_machine=j90-cray + os=unicos + ;; + crds | unos) + basic_machine=m68k-crds + os= + ;; + da30) + basic_machine=m68k-da30 + os= + ;; + decstation | pmax | pmin | dec3100 | decstatn) + basic_machine=mips-dec + os= + ;; + delta88) + basic_machine=m88k-motorola + os=sysv3 + ;; + dicos) + basic_machine=i686-pc + os=dicos + ;; + djgpp) + basic_machine=i586-pc + os=msdosdjgpp + ;; + ebmon29k) + basic_machine=a29k-amd + os=ebmon + ;; + es1800 | OSE68k | ose68k | ose | OSE) + basic_machine=m68k-ericsson + os=ose + ;; + gmicro) + basic_machine=tron-gmicro + os=sysv + ;; + go32) + basic_machine=i386-pc + os=go32 + ;; + h8300hms) + basic_machine=h8300-hitachi + os=hms + ;; + h8300xray) + basic_machine=h8300-hitachi + os=xray + ;; + h8500hms) + basic_machine=h8500-hitachi + os=hms + ;; + harris) + basic_machine=m88k-harris + os=sysv3 + ;; + hp300 | hp300hpux) + basic_machine=m68k-hp + os=hpux + ;; + hp300bsd) + basic_machine=m68k-hp + os=bsd + ;; + hppaosf) + basic_machine=hppa1.1-hp + os=osf + ;; + hppro) + basic_machine=hppa1.1-hp + os=proelf + ;; + i386mach) + basic_machine=i386-mach + os=mach + ;; + isi68 | isi) + basic_machine=m68k-isi + os=sysv + ;; + m68knommu) + basic_machine=m68k-unknown + os=linux + ;; + magnum | m3230) + basic_machine=mips-mips + os=sysv + ;; + merlin) + basic_machine=ns32k-utek + os=sysv + ;; + mingw64) + basic_machine=x86_64-pc + os=mingw64 + ;; + mingw32) + basic_machine=i686-pc + os=mingw32 + ;; + mingw32ce) + basic_machine=arm-unknown + os=mingw32ce + ;; + monitor) + basic_machine=m68k-rom68k + os=coff + ;; + morphos) + basic_machine=powerpc-unknown + os=morphos + ;; + moxiebox) + basic_machine=moxie-unknown + os=moxiebox + ;; + msdos) + basic_machine=i386-pc + os=msdos + ;; + msys) + basic_machine=i686-pc + os=msys + ;; + mvs) + basic_machine=i370-ibm + os=mvs + ;; + nacl) + basic_machine=le32-unknown + os=nacl + ;; + ncr3000) + basic_machine=i486-ncr + os=sysv4 + ;; + netbsd386) + basic_machine=i386-pc + os=netbsd + ;; + netwinder) + basic_machine=armv4l-rebel + os=linux + ;; + news | news700 | news800 | news900) + basic_machine=m68k-sony + os=newsos + ;; + news1000) + basic_machine=m68030-sony + os=newsos + ;; + necv70) + basic_machine=v70-nec + os=sysv + ;; + nh3000) + basic_machine=m68k-harris + os=cxux + ;; + nh[45]000) + basic_machine=m88k-harris + os=cxux + ;; + nindy960) + basic_machine=i960-intel + os=nindy + ;; + mon960) + basic_machine=i960-intel + os=mon960 + ;; + nonstopux) + basic_machine=mips-compaq + os=nonstopux + ;; + os400) + basic_machine=powerpc-ibm + os=os400 + ;; + OSE68000 | ose68000) + basic_machine=m68000-ericsson + os=ose + ;; + os68k) + basic_machine=m68k-none + os=os68k + ;; + paragon) + basic_machine=i860-intel + os=osf + ;; + parisc) + basic_machine=hppa-unknown + os=linux + ;; + pw32) + basic_machine=i586-unknown + os=pw32 + ;; + rdos | rdos64) + basic_machine=x86_64-pc + os=rdos + ;; + rdos32) + basic_machine=i386-pc + os=rdos + ;; + rom68k) + basic_machine=m68k-rom68k + os=coff + ;; + sa29200) + basic_machine=a29k-amd + os=udi + ;; + sei) + basic_machine=mips-sei + os=seiux + ;; + sequent) + basic_machine=i386-sequent + os= + ;; + sps7) + basic_machine=m68k-bull + os=sysv2 + ;; + st2000) + basic_machine=m68k-tandem + os= + ;; + stratus) + basic_machine=i860-stratus + os=sysv4 + ;; + sun2) + basic_machine=m68000-sun + os= + ;; + sun2os3) + basic_machine=m68000-sun + os=sunos3 + ;; + sun2os4) + basic_machine=m68000-sun + os=sunos4 + ;; + sun3) + basic_machine=m68k-sun + os= + ;; + sun3os3) + basic_machine=m68k-sun + os=sunos3 + ;; + sun3os4) + basic_machine=m68k-sun + os=sunos4 + ;; + sun4) + basic_machine=sparc-sun + os= + ;; + sun4os3) + basic_machine=sparc-sun + os=sunos3 + ;; + sun4os4) + basic_machine=sparc-sun + os=sunos4 + ;; + sun4sol2) + basic_machine=sparc-sun + os=solaris2 + ;; + sun386 | sun386i | roadrunner) + basic_machine=i386-sun + os= + ;; + sv1) + basic_machine=sv1-cray + os=unicos + ;; + symmetry) + basic_machine=i386-sequent + os=dynix + ;; + t3e) + basic_machine=alphaev5-cray + os=unicos + ;; + t90) + basic_machine=t90-cray + os=unicos + ;; + toad1) + basic_machine=pdp10-xkl + os=tops20 + ;; + tpf) + basic_machine=s390x-ibm + os=tpf + ;; + udi29k) + basic_machine=a29k-amd + os=udi + ;; + ultra3) + basic_machine=a29k-nyu + os=sym1 + ;; + v810 | necv810) + basic_machine=v810-nec + os=none + ;; + vaxv) + basic_machine=vax-dec + os=sysv + ;; + vms) + basic_machine=vax-dec + os=vms + ;; + vsta) + basic_machine=i386-pc + os=vsta + ;; + vxworks960) + basic_machine=i960-wrs + os=vxworks + ;; + vxworks68) + basic_machine=m68k-wrs + os=vxworks + ;; + vxworks29k) + basic_machine=a29k-wrs + os=vxworks + ;; + xbox) + basic_machine=i686-pc + os=mingw32 + ;; + ymp) + basic_machine=ymp-cray + os=unicos + ;; + *) + basic_machine=$1 + os= + ;; + esac + ;; +esac + +# Decode 1-component or ad-hoc basic machines +case $basic_machine in + # Here we handle the default manufacturer of certain CPU types. It is in + # some cases the only manufacturer, in others, it is the most popular. + w89k) + cpu=hppa1.1 + vendor=winbond + ;; + op50n) + cpu=hppa1.1 + vendor=oki + ;; + op60c) + cpu=hppa1.1 + vendor=oki + ;; + ibm*) + cpu=i370 + vendor=ibm + ;; + orion105) + cpu=clipper + vendor=highlevel + ;; + mac | mpw | mac-mpw) + cpu=m68k + vendor=apple + ;; + pmac | pmac-mpw) + cpu=powerpc + vendor=apple + ;; + + # Recognize the various machine names and aliases which stand + # for a CPU type and a company and sometimes even an OS. + 3b1 | 7300 | 7300-att | att-7300 | pc7300 | safari | unixpc) + cpu=m68000 + vendor=att + ;; + 3b*) + cpu=we32k + vendor=att + ;; + bluegene*) + cpu=powerpc + vendor=ibm + os=cnk + ;; + decsystem10* | dec10*) + cpu=pdp10 + vendor=dec + os=tops10 + ;; + decsystem20* | dec20*) + cpu=pdp10 + vendor=dec + os=tops20 + ;; + delta | 3300 | motorola-3300 | motorola-delta \ + | 3300-motorola | delta-motorola) + cpu=m68k + vendor=motorola + ;; + dpx2*) + cpu=m68k + vendor=bull + os=sysv3 + ;; + encore | umax | mmax) + cpu=ns32k + vendor=encore + ;; + elxsi) + cpu=elxsi + vendor=elxsi + os=${os:-bsd} + ;; + fx2800) + cpu=i860 + vendor=alliant + ;; + genix) + cpu=ns32k + vendor=ns + ;; + h3050r* | hiux*) + cpu=hppa1.1 + vendor=hitachi + os=hiuxwe2 + ;; + hp3k9[0-9][0-9] | hp9[0-9][0-9]) + cpu=hppa1.0 + vendor=hp + ;; + hp9k2[0-9][0-9] | hp9k31[0-9]) + cpu=m68000 + vendor=hp + ;; + hp9k3[2-9][0-9]) + cpu=m68k + vendor=hp + ;; + hp9k6[0-9][0-9] | hp6[0-9][0-9]) + cpu=hppa1.0 + vendor=hp + ;; + hp9k7[0-79][0-9] | hp7[0-79][0-9]) + cpu=hppa1.1 + vendor=hp + ;; + hp9k78[0-9] | hp78[0-9]) + # FIXME: really hppa2.0-hp + cpu=hppa1.1 + vendor=hp + ;; + hp9k8[67]1 | hp8[67]1 | hp9k80[24] | hp80[24] | hp9k8[78]9 | hp8[78]9 | hp9k893 | hp893) + # FIXME: really hppa2.0-hp + cpu=hppa1.1 + vendor=hp + ;; + hp9k8[0-9][13679] | hp8[0-9][13679]) + cpu=hppa1.1 + vendor=hp + ;; + hp9k8[0-9][0-9] | hp8[0-9][0-9]) + cpu=hppa1.0 + vendor=hp + ;; + i*86v32) + cpu=`echo "$1" | sed -e 's/86.*/86/'` + vendor=pc + os=sysv32 + ;; + i*86v4*) + cpu=`echo "$1" | sed -e 's/86.*/86/'` + vendor=pc + os=sysv4 + ;; + i*86v) + cpu=`echo "$1" | sed -e 's/86.*/86/'` + vendor=pc + os=sysv + ;; + i*86sol2) + cpu=`echo "$1" | sed -e 's/86.*/86/'` + vendor=pc + os=solaris2 + ;; + j90 | j90-cray) + cpu=j90 + vendor=cray + os=${os:-unicos} + ;; + iris | iris4d) + cpu=mips + vendor=sgi + case $os in + irix*) + ;; + *) + os=irix4 + ;; + esac + ;; + miniframe) + cpu=m68000 + vendor=convergent + ;; + *mint | mint[0-9]* | *MiNT | *MiNT[0-9]*) + cpu=m68k + vendor=atari + os=mint + ;; + news-3600 | risc-news) + cpu=mips + vendor=sony + os=newsos + ;; + next | m*-next) + cpu=m68k + vendor=next + case $os in + openstep*) + ;; + nextstep*) + ;; + ns2*) + os=nextstep2 + ;; + *) + os=nextstep3 + ;; + esac + ;; + np1) + cpu=np1 + vendor=gould + ;; + op50n-* | op60c-*) + cpu=hppa1.1 + vendor=oki + os=proelf + ;; + pa-hitachi) + cpu=hppa1.1 + vendor=hitachi + os=hiuxwe2 + ;; + pbd) + cpu=sparc + vendor=tti + ;; + pbb) + cpu=m68k + vendor=tti + ;; + pc532) + cpu=ns32k + vendor=pc532 + ;; + pn) + cpu=pn + vendor=gould + ;; + power) + cpu=power + vendor=ibm + ;; + ps2) + cpu=i386 + vendor=ibm + ;; + rm[46]00) + cpu=mips + vendor=siemens + ;; + rtpc | rtpc-*) + cpu=romp + vendor=ibm + ;; + sde) + cpu=mipsisa32 + vendor=sde + os=${os:-elf} + ;; + simso-wrs) + cpu=sparclite + vendor=wrs + os=vxworks + ;; + tower | tower-32) + cpu=m68k + vendor=ncr + ;; + vpp*|vx|vx-*) + cpu=f301 + vendor=fujitsu + ;; + w65) + cpu=w65 + vendor=wdc + ;; + w89k-*) + cpu=hppa1.1 + vendor=winbond + os=proelf + ;; + none) + cpu=none + vendor=none + ;; + leon|leon[3-9]) + cpu=sparc + vendor=$basic_machine + ;; + leon-*|leon[3-9]-*) + cpu=sparc + vendor=`echo "$basic_machine" | sed 's/-.*//'` + ;; + + *-*) + # shellcheck disable=SC2162 + IFS="-" read cpu vendor <&2 + exit 1 + ;; + esac + ;; +esac + +# Here we canonicalize certain aliases for manufacturers. +case $vendor in + digital*) + vendor=dec + ;; + commodore*) + vendor=cbm + ;; + *) + ;; +esac + +# Decode manufacturer-specific aliases for certain operating systems. + +if [ x$os != x ] +then +case $os in + # First match some system type aliases that might get confused + # with valid system types. + # solaris* is a basic system type, with this one exception. + auroraux) + os=auroraux + ;; + bluegene*) + os=cnk + ;; + solaris1 | solaris1.*) + os=`echo $os | sed -e 's|solaris1|sunos4|'` + ;; + solaris) + os=solaris2 + ;; + unixware*) + os=sysv4.2uw + ;; + gnu/linux*) + os=`echo $os | sed -e 's|gnu/linux|linux-gnu|'` + ;; + # es1800 is here to avoid being matched by es* (a different OS) + es1800*) + os=ose + ;; + # Some version numbers need modification + chorusos*) + os=chorusos + ;; + isc) + os=isc2.2 + ;; + sco6) + os=sco5v6 + ;; + sco5) + os=sco3.2v5 + ;; + sco4) + os=sco3.2v4 + ;; + sco3.2.[4-9]*) + os=`echo $os | sed -e 's/sco3.2./sco3.2v/'` + ;; + sco3.2v[4-9]* | sco5v6*) + # Don't forget version if it is 3.2v4 or newer. + ;; + scout) + # Don't match below + ;; + sco*) + os=sco3.2v2 + ;; + psos*) + os=psos + ;; + # Now accept the basic system types. + # The portable systems comes first. + # Each alternative MUST end in a * to match a version number. + # sysv* is not here because it comes later, after sysvr4. + gnu* | bsd* | mach* | minix* | genix* | ultrix* | irix* \ + | *vms* | esix* | aix* | cnk* | sunos | sunos[34]*\ + | hpux* | unos* | osf* | luna* | dgux* | auroraux* | solaris* \ + | sym* | kopensolaris* | plan9* \ + | amigaos* | amigados* | msdos* | newsos* | unicos* | aof* \ + | aos* | aros* | cloudabi* | sortix* \ + | nindy* | vxsim* | vxworks* | ebmon* | hms* | mvs* \ + | clix* | riscos* | uniplus* | iris* | isc* | rtu* | xenix* \ + | knetbsd* | mirbsd* | netbsd* \ + | bitrig* | openbsd* | solidbsd* | libertybsd* | os108* \ + | ekkobsd* | kfreebsd* | freebsd* | riscix* | lynxos* \ + | bosx* | nextstep* | cxux* | aout* | elf* | oabi* \ + | ptx* | coff* | ecoff* | winnt* | domain* | vsta* \ + | udi* | eabi* | lites* | ieee* | go32* | aux* | hcos* \ + | chorusrdb* | cegcc* | glidix* \ + | cygwin* | msys* | pe* | moss* | proelf* | rtems* \ + | midipix* | mingw32* | mingw64* | linux-gnu* | linux-android* \ + | linux-newlib* | linux-musl* | linux-uclibc* \ + | uxpv* | beos* | mpeix* | udk* | moxiebox* \ + | interix* | uwin* | mks* | rhapsody* | darwin* \ + | openstep* | oskit* | conix* | pw32* | nonstopux* \ + | storm-chaos* | tops10* | tenex* | tops20* | its* \ + | os2* | vos* | palmos* | uclinux* | nucleus* \ + | morphos* | superux* | rtmk* | windiss* \ + | powermax* | dnix* | nx6 | nx7 | sei* | dragonfly* \ + | skyos* | haiku* | rdos* | toppers* | drops* | es* \ + | onefs* | tirtos* | phoenix* | fuchsia* | redox* | bme* \ + | midnightbsd* | amdhsa* | unleashed* | emscripten* | wasi* \ + | nsk* | powerunix) + # Remember, each alternative MUST END IN *, to match a version number. + ;; + qnx*) + case $cpu in + x86 | i*86) + ;; + *) + os=nto-$os + ;; + esac + ;; + hiux*) + os=hiuxwe2 + ;; + nto-qnx*) + ;; + nto*) + os=`echo $os | sed -e 's|nto|nto-qnx|'` + ;; + sim | xray | os68k* | v88r* \ + | windows* | osx | abug | netware* | os9* \ + | macos* | mpw* | magic* | mmixware* | mon960* | lnews*) + ;; + linux-dietlibc) + os=linux-dietlibc + ;; + linux*) + os=`echo $os | sed -e 's|linux|linux-gnu|'` + ;; + lynx*178) + os=lynxos178 + ;; + lynx*5) + os=lynxos5 + ;; + lynx*) + os=lynxos + ;; + mac*) + os=`echo "$os" | sed -e 's|mac|macos|'` + ;; + opened*) + os=openedition + ;; + os400*) + os=os400 + ;; + sunos5*) + os=`echo "$os" | sed -e 's|sunos5|solaris2|'` + ;; + sunos6*) + os=`echo "$os" | sed -e 's|sunos6|solaris3|'` + ;; + wince*) + os=wince + ;; + utek*) + os=bsd + ;; + dynix*) + os=bsd + ;; + acis*) + os=aos + ;; + atheos*) + os=atheos + ;; + syllable*) + os=syllable + ;; + 386bsd) + os=bsd + ;; + ctix* | uts*) + os=sysv + ;; + nova*) + os=rtmk-nova + ;; + ns2) + os=nextstep2 + ;; + # Preserve the version number of sinix5. + sinix5.*) + os=`echo $os | sed -e 's|sinix|sysv|'` + ;; + sinix*) + os=sysv4 + ;; + tpf*) + os=tpf + ;; + triton*) + os=sysv3 + ;; + oss*) + os=sysv3 + ;; + svr4*) + os=sysv4 + ;; + svr3) + os=sysv3 + ;; + sysvr4) + os=sysv4 + ;; + # This must come after sysvr4. + sysv*) + ;; + ose*) + os=ose + ;; + *mint | mint[0-9]* | *MiNT | MiNT[0-9]*) + os=mint + ;; + zvmoe) + os=zvmoe + ;; + dicos*) + os=dicos + ;; + pikeos*) + # Until real need of OS specific support for + # particular features comes up, bare metal + # configurations are quite functional. + case $cpu in + arm*) + os=eabi + ;; + *) + os=elf + ;; + esac + ;; + nacl*) + ;; + ios) + ;; + none) + ;; + *-eabi) + ;; + *) + echo Invalid configuration \`"$1"\': system \`"$os"\' not recognized 1>&2 + exit 1 + ;; +esac +else + +# Here we handle the default operating systems that come with various machines. +# The value should be what the vendor currently ships out the door with their +# machine or put another way, the most popular os provided with the machine. + +# Note that if you're going to try to match "-MANUFACTURER" here (say, +# "-sun"), then you have to tell the case statement up towards the top +# that MANUFACTURER isn't an operating system. Otherwise, code above +# will signal an error saying that MANUFACTURER isn't an operating +# system, and we'll never get to this point. + +case $cpu-$vendor in + score-*) + os=elf + ;; + spu-*) + os=elf + ;; + *-acorn) + os=riscix1.2 + ;; + arm*-rebel) + os=linux + ;; + arm*-semi) + os=aout + ;; + c4x-* | tic4x-*) + os=coff + ;; + c8051-*) + os=elf + ;; + clipper-intergraph) + os=clix + ;; + hexagon-*) + os=elf + ;; + tic54x-*) + os=coff + ;; + tic55x-*) + os=coff + ;; + tic6x-*) + os=coff + ;; + # This must come before the *-dec entry. + pdp10-*) + os=tops20 + ;; + pdp11-*) + os=none + ;; + *-dec | vax-*) + os=ultrix4.2 + ;; + m68*-apollo) + os=domain + ;; + i386-sun) + os=sunos4.0.2 + ;; + m68000-sun) + os=sunos3 + ;; + m68*-cisco) + os=aout + ;; + mep-*) + os=elf + ;; + mips*-cisco) + os=elf + ;; + mips*-*) + os=elf + ;; + or32-*) + os=coff + ;; + *-tti) # must be before sparc entry or we get the wrong os. + os=sysv3 + ;; + sparc-* | *-sun) + os=sunos4.1.1 + ;; + pru-*) + os=elf + ;; + *-be) + os=beos + ;; + *-ibm) + os=aix + ;; + *-knuth) + os=mmixware + ;; + *-wec) + os=proelf + ;; + *-winbond) + os=proelf + ;; + *-oki) + os=proelf + ;; + *-hp) + os=hpux + ;; + *-hitachi) + os=hiux + ;; + i860-* | *-att | *-ncr | *-altos | *-motorola | *-convergent) + os=sysv + ;; + *-cbm) + os=amigaos + ;; + *-dg) + os=dgux + ;; + *-dolphin) + os=sysv3 + ;; + m68k-ccur) + os=rtu + ;; + m88k-omron*) + os=luna + ;; + *-next) + os=nextstep + ;; + *-sequent) + os=ptx + ;; + *-crds) + os=unos + ;; + *-ns) + os=genix + ;; + i370-*) + os=mvs + ;; + *-gould) + os=sysv + ;; + *-highlevel) + os=bsd + ;; + *-encore) + os=bsd + ;; + *-sgi) + os=irix + ;; + *-siemens) + os=sysv4 + ;; + *-masscomp) + os=rtu + ;; + f30[01]-fujitsu | f700-fujitsu) + os=uxpv + ;; + *-rom68k) + os=coff + ;; + *-*bug) + os=coff + ;; + *-apple) + os=macos + ;; + *-atari*) + os=mint + ;; + *-wrs) + os=vxworks + ;; + *) + os=none + ;; +esac +fi + +# Here we handle the case where we know the os, and the CPU type, but not the +# manufacturer. We pick the logical manufacturer. +case $vendor in + unknown) + case $os in + riscix*) + vendor=acorn + ;; + sunos*) + vendor=sun + ;; + cnk*|-aix*) + vendor=ibm + ;; + beos*) + vendor=be + ;; + hpux*) + vendor=hp + ;; + mpeix*) + vendor=hp + ;; + hiux*) + vendor=hitachi + ;; + unos*) + vendor=crds + ;; + dgux*) + vendor=dg + ;; + luna*) + vendor=omron + ;; + genix*) + vendor=ns + ;; + clix*) + vendor=intergraph + ;; + mvs* | opened*) + vendor=ibm + ;; + os400*) + vendor=ibm + ;; + ptx*) + vendor=sequent + ;; + tpf*) + vendor=ibm + ;; + vxsim* | vxworks* | windiss*) + vendor=wrs + ;; + aux*) + vendor=apple + ;; + hms*) + vendor=hitachi + ;; + mpw* | macos*) + vendor=apple + ;; + *mint | mint[0-9]* | *MiNT | MiNT[0-9]*) + vendor=atari + ;; + vos*) + vendor=stratus + ;; + esac + ;; +esac + +echo "$cpu-$vendor-$os" +exit + +# Local variables: +# eval: (add-hook 'before-save-hook 'time-stamp) +# time-stamp-start: "timestamp='" +# time-stamp-format: "%:y-%02m-%02d" +# time-stamp-end: "'" +# End: diff --git a/build-aux/depcomp b/build-aux/depcomp new file mode 100755 index 0000000..b39f98f --- /dev/null +++ b/build-aux/depcomp @@ -0,0 +1,791 @@ +#! /bin/sh +# depcomp - compile a program generating dependencies as side-effects + +scriptversion=2016-01-11.22; # UTC + +# Copyright (C) 1999-2017 Free Software Foundation, Inc. + +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2, or (at your option) +# any later version. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. + +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program that contains a +# configuration script generated by Autoconf, you may include it under +# the same distribution terms that you use for the rest of that program. + +# Originally written by Alexandre Oliva . + +case $1 in + '') + echo "$0: No command. Try '$0 --help' for more information." 1>&2 + exit 1; + ;; + -h | --h*) + cat <<\EOF +Usage: depcomp [--help] [--version] PROGRAM [ARGS] + +Run PROGRAMS ARGS to compile a file, generating dependencies +as side-effects. + +Environment variables: + depmode Dependency tracking mode. + source Source file read by 'PROGRAMS ARGS'. + object Object file output by 'PROGRAMS ARGS'. + DEPDIR directory where to store dependencies. + depfile Dependency file to output. + tmpdepfile Temporary file to use when outputting dependencies. + libtool Whether libtool is used (yes/no). + +Report bugs to . +EOF + exit $? + ;; + -v | --v*) + echo "depcomp $scriptversion" + exit $? + ;; +esac + +# Get the directory component of the given path, and save it in the +# global variables '$dir'. Note that this directory component will +# be either empty or ending with a '/' character. This is deliberate. +set_dir_from () +{ + case $1 in + */*) dir=`echo "$1" | sed -e 's|/[^/]*$|/|'`;; + *) dir=;; + esac +} + +# Get the suffix-stripped basename of the given path, and save it the +# global variable '$base'. +set_base_from () +{ + base=`echo "$1" | sed -e 's|^.*/||' -e 's/\.[^.]*$//'` +} + +# If no dependency file was actually created by the compiler invocation, +# we still have to create a dummy depfile, to avoid errors with the +# Makefile "include basename.Plo" scheme. +make_dummy_depfile () +{ + echo "#dummy" > "$depfile" +} + +# Factor out some common post-processing of the generated depfile. +# Requires the auxiliary global variable '$tmpdepfile' to be set. +aix_post_process_depfile () +{ + # If the compiler actually managed to produce a dependency file, + # post-process it. + if test -f "$tmpdepfile"; then + # Each line is of the form 'foo.o: dependency.h'. + # Do two passes, one to just change these to + # $object: dependency.h + # and one to simply output + # dependency.h: + # which is needed to avoid the deleted-header problem. + { sed -e "s,^.*\.[$lower]*:,$object:," < "$tmpdepfile" + sed -e "s,^.*\.[$lower]*:[$tab ]*,," -e 's,$,:,' < "$tmpdepfile" + } > "$depfile" + rm -f "$tmpdepfile" + else + make_dummy_depfile + fi +} + +# A tabulation character. +tab=' ' +# A newline character. +nl=' +' +# Character ranges might be problematic outside the C locale. +# These definitions help. +upper=ABCDEFGHIJKLMNOPQRSTUVWXYZ +lower=abcdefghijklmnopqrstuvwxyz +digits=0123456789 +alpha=${upper}${lower} + +if test -z "$depmode" || test -z "$source" || test -z "$object"; then + echo "depcomp: Variables source, object and depmode must be set" 1>&2 + exit 1 +fi + +# Dependencies for sub/bar.o or sub/bar.obj go into sub/.deps/bar.Po. +depfile=${depfile-`echo "$object" | + sed 's|[^\\/]*$|'${DEPDIR-.deps}'/&|;s|\.\([^.]*\)$|.P\1|;s|Pobj$|Po|'`} +tmpdepfile=${tmpdepfile-`echo "$depfile" | sed 's/\.\([^.]*\)$/.T\1/'`} + +rm -f "$tmpdepfile" + +# Avoid interferences from the environment. +gccflag= dashmflag= + +# Some modes work just like other modes, but use different flags. We +# parameterize here, but still list the modes in the big case below, +# to make depend.m4 easier to write. Note that we *cannot* use a case +# here, because this file can only contain one case statement. +if test "$depmode" = hp; then + # HP compiler uses -M and no extra arg. + gccflag=-M + depmode=gcc +fi + +if test "$depmode" = dashXmstdout; then + # This is just like dashmstdout with a different argument. + dashmflag=-xM + depmode=dashmstdout +fi + +cygpath_u="cygpath -u -f -" +if test "$depmode" = msvcmsys; then + # This is just like msvisualcpp but w/o cygpath translation. + # Just convert the backslash-escaped backslashes to single forward + # slashes to satisfy depend.m4 + cygpath_u='sed s,\\\\,/,g' + depmode=msvisualcpp +fi + +if test "$depmode" = msvc7msys; then + # This is just like msvc7 but w/o cygpath translation. + # Just convert the backslash-escaped backslashes to single forward + # slashes to satisfy depend.m4 + cygpath_u='sed s,\\\\,/,g' + depmode=msvc7 +fi + +if test "$depmode" = xlc; then + # IBM C/C++ Compilers xlc/xlC can output gcc-like dependency information. + gccflag=-qmakedep=gcc,-MF + depmode=gcc +fi + +case "$depmode" in +gcc3) +## gcc 3 implements dependency tracking that does exactly what +## we want. Yay! Note: for some reason libtool 1.4 doesn't like +## it if -MD -MP comes after the -MF stuff. Hmm. +## Unfortunately, FreeBSD c89 acceptance of flags depends upon +## the command line argument order; so add the flags where they +## appear in depend2.am. Note that the slowdown incurred here +## affects only configure: in makefiles, %FASTDEP% shortcuts this. + for arg + do + case $arg in + -c) set fnord "$@" -MT "$object" -MD -MP -MF "$tmpdepfile" "$arg" ;; + *) set fnord "$@" "$arg" ;; + esac + shift # fnord + shift # $arg + done + "$@" + stat=$? + if test $stat -ne 0; then + rm -f "$tmpdepfile" + exit $stat + fi + mv "$tmpdepfile" "$depfile" + ;; + +gcc) +## Note that this doesn't just cater to obsosete pre-3.x GCC compilers. +## but also to in-use compilers like IMB xlc/xlC and the HP C compiler. +## (see the conditional assignment to $gccflag above). +## There are various ways to get dependency output from gcc. Here's +## why we pick this rather obscure method: +## - Don't want to use -MD because we'd like the dependencies to end +## up in a subdir. Having to rename by hand is ugly. +## (We might end up doing this anyway to support other compilers.) +## - The DEPENDENCIES_OUTPUT environment variable makes gcc act like +## -MM, not -M (despite what the docs say). Also, it might not be +## supported by the other compilers which use the 'gcc' depmode. +## - Using -M directly means running the compiler twice (even worse +## than renaming). + if test -z "$gccflag"; then + gccflag=-MD, + fi + "$@" -Wp,"$gccflag$tmpdepfile" + stat=$? + if test $stat -ne 0; then + rm -f "$tmpdepfile" + exit $stat + fi + rm -f "$depfile" + echo "$object : \\" > "$depfile" + # The second -e expression handles DOS-style file names with drive + # letters. + sed -e 's/^[^:]*: / /' \ + -e 's/^['$alpha']:\/[^:]*: / /' < "$tmpdepfile" >> "$depfile" +## This next piece of magic avoids the "deleted header file" problem. +## The problem is that when a header file which appears in a .P file +## is deleted, the dependency causes make to die (because there is +## typically no way to rebuild the header). We avoid this by adding +## dummy dependencies for each header file. Too bad gcc doesn't do +## this for us directly. +## Some versions of gcc put a space before the ':'. On the theory +## that the space means something, we add a space to the output as +## well. hp depmode also adds that space, but also prefixes the VPATH +## to the object. Take care to not repeat it in the output. +## Some versions of the HPUX 10.20 sed can't process this invocation +## correctly. Breaking it into two sed invocations is a workaround. + tr ' ' "$nl" < "$tmpdepfile" \ + | sed -e 's/^\\$//' -e '/^$/d' -e "s|.*$object$||" -e '/:$/d' \ + | sed -e 's/$/ :/' >> "$depfile" + rm -f "$tmpdepfile" + ;; + +hp) + # This case exists only to let depend.m4 do its work. It works by + # looking at the text of this script. This case will never be run, + # since it is checked for above. + exit 1 + ;; + +sgi) + if test "$libtool" = yes; then + "$@" "-Wp,-MDupdate,$tmpdepfile" + else + "$@" -MDupdate "$tmpdepfile" + fi + stat=$? + if test $stat -ne 0; then + rm -f "$tmpdepfile" + exit $stat + fi + rm -f "$depfile" + + if test -f "$tmpdepfile"; then # yes, the sourcefile depend on other files + echo "$object : \\" > "$depfile" + # Clip off the initial element (the dependent). Don't try to be + # clever and replace this with sed code, as IRIX sed won't handle + # lines with more than a fixed number of characters (4096 in + # IRIX 6.2 sed, 8192 in IRIX 6.5). We also remove comment lines; + # the IRIX cc adds comments like '#:fec' to the end of the + # dependency line. + tr ' ' "$nl" < "$tmpdepfile" \ + | sed -e 's/^.*\.o://' -e 's/#.*$//' -e '/^$/ d' \ + | tr "$nl" ' ' >> "$depfile" + echo >> "$depfile" + # The second pass generates a dummy entry for each header file. + tr ' ' "$nl" < "$tmpdepfile" \ + | sed -e 's/^.*\.o://' -e 's/#.*$//' -e '/^$/ d' -e 's/$/:/' \ + >> "$depfile" + else + make_dummy_depfile + fi + rm -f "$tmpdepfile" + ;; + +xlc) + # This case exists only to let depend.m4 do its work. It works by + # looking at the text of this script. This case will never be run, + # since it is checked for above. + exit 1 + ;; + +aix) + # The C for AIX Compiler uses -M and outputs the dependencies + # in a .u file. In older versions, this file always lives in the + # current directory. Also, the AIX compiler puts '$object:' at the + # start of each line; $object doesn't have directory information. + # Version 6 uses the directory in both cases. + set_dir_from "$object" + set_base_from "$object" + if test "$libtool" = yes; then + tmpdepfile1=$dir$base.u + tmpdepfile2=$base.u + tmpdepfile3=$dir.libs/$base.u + "$@" -Wc,-M + else + tmpdepfile1=$dir$base.u + tmpdepfile2=$dir$base.u + tmpdepfile3=$dir$base.u + "$@" -M + fi + stat=$? + if test $stat -ne 0; then + rm -f "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" + exit $stat + fi + + for tmpdepfile in "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" + do + test -f "$tmpdepfile" && break + done + aix_post_process_depfile + ;; + +tcc) + # tcc (Tiny C Compiler) understand '-MD -MF file' since version 0.9.26 + # FIXME: That version still under development at the moment of writing. + # Make that this statement remains true also for stable, released + # versions. + # It will wrap lines (doesn't matter whether long or short) with a + # trailing '\', as in: + # + # foo.o : \ + # foo.c \ + # foo.h \ + # + # It will put a trailing '\' even on the last line, and will use leading + # spaces rather than leading tabs (at least since its commit 0394caf7 + # "Emit spaces for -MD"). + "$@" -MD -MF "$tmpdepfile" + stat=$? + if test $stat -ne 0; then + rm -f "$tmpdepfile" + exit $stat + fi + rm -f "$depfile" + # Each non-empty line is of the form 'foo.o : \' or ' dep.h \'. + # We have to change lines of the first kind to '$object: \'. + sed -e "s|.*:|$object :|" < "$tmpdepfile" > "$depfile" + # And for each line of the second kind, we have to emit a 'dep.h:' + # dummy dependency, to avoid the deleted-header problem. + sed -n -e 's|^ *\(.*\) *\\$|\1:|p' < "$tmpdepfile" >> "$depfile" + rm -f "$tmpdepfile" + ;; + +## The order of this option in the case statement is important, since the +## shell code in configure will try each of these formats in the order +## listed in this file. A plain '-MD' option would be understood by many +## compilers, so we must ensure this comes after the gcc and icc options. +pgcc) + # Portland's C compiler understands '-MD'. + # Will always output deps to 'file.d' where file is the root name of the + # source file under compilation, even if file resides in a subdirectory. + # The object file name does not affect the name of the '.d' file. + # pgcc 10.2 will output + # foo.o: sub/foo.c sub/foo.h + # and will wrap long lines using '\' : + # foo.o: sub/foo.c ... \ + # sub/foo.h ... \ + # ... + set_dir_from "$object" + # Use the source, not the object, to determine the base name, since + # that's sadly what pgcc will do too. + set_base_from "$source" + tmpdepfile=$base.d + + # For projects that build the same source file twice into different object + # files, the pgcc approach of using the *source* file root name can cause + # problems in parallel builds. Use a locking strategy to avoid stomping on + # the same $tmpdepfile. + lockdir=$base.d-lock + trap " + echo '$0: caught signal, cleaning up...' >&2 + rmdir '$lockdir' + exit 1 + " 1 2 13 15 + numtries=100 + i=$numtries + while test $i -gt 0; do + # mkdir is a portable test-and-set. + if mkdir "$lockdir" 2>/dev/null; then + # This process acquired the lock. + "$@" -MD + stat=$? + # Release the lock. + rmdir "$lockdir" + break + else + # If the lock is being held by a different process, wait + # until the winning process is done or we timeout. + while test -d "$lockdir" && test $i -gt 0; do + sleep 1 + i=`expr $i - 1` + done + fi + i=`expr $i - 1` + done + trap - 1 2 13 15 + if test $i -le 0; then + echo "$0: failed to acquire lock after $numtries attempts" >&2 + echo "$0: check lockdir '$lockdir'" >&2 + exit 1 + fi + + if test $stat -ne 0; then + rm -f "$tmpdepfile" + exit $stat + fi + rm -f "$depfile" + # Each line is of the form `foo.o: dependent.h', + # or `foo.o: dep1.h dep2.h \', or ` dep3.h dep4.h \'. + # Do two passes, one to just change these to + # `$object: dependent.h' and one to simply `dependent.h:'. + sed "s,^[^:]*:,$object :," < "$tmpdepfile" > "$depfile" + # Some versions of the HPUX 10.20 sed can't process this invocation + # correctly. Breaking it into two sed invocations is a workaround. + sed 's,^[^:]*: \(.*\)$,\1,;s/^\\$//;/^$/d;/:$/d' < "$tmpdepfile" \ + | sed -e 's/$/ :/' >> "$depfile" + rm -f "$tmpdepfile" + ;; + +hp2) + # The "hp" stanza above does not work with aCC (C++) and HP's ia64 + # compilers, which have integrated preprocessors. The correct option + # to use with these is +Maked; it writes dependencies to a file named + # 'foo.d', which lands next to the object file, wherever that + # happens to be. + # Much of this is similar to the tru64 case; see comments there. + set_dir_from "$object" + set_base_from "$object" + if test "$libtool" = yes; then + tmpdepfile1=$dir$base.d + tmpdepfile2=$dir.libs/$base.d + "$@" -Wc,+Maked + else + tmpdepfile1=$dir$base.d + tmpdepfile2=$dir$base.d + "$@" +Maked + fi + stat=$? + if test $stat -ne 0; then + rm -f "$tmpdepfile1" "$tmpdepfile2" + exit $stat + fi + + for tmpdepfile in "$tmpdepfile1" "$tmpdepfile2" + do + test -f "$tmpdepfile" && break + done + if test -f "$tmpdepfile"; then + sed -e "s,^.*\.[$lower]*:,$object:," "$tmpdepfile" > "$depfile" + # Add 'dependent.h:' lines. + sed -ne '2,${ + s/^ *// + s/ \\*$// + s/$/:/ + p + }' "$tmpdepfile" >> "$depfile" + else + make_dummy_depfile + fi + rm -f "$tmpdepfile" "$tmpdepfile2" + ;; + +tru64) + # The Tru64 compiler uses -MD to generate dependencies as a side + # effect. 'cc -MD -o foo.o ...' puts the dependencies into 'foo.o.d'. + # At least on Alpha/Redhat 6.1, Compaq CCC V6.2-504 seems to put + # dependencies in 'foo.d' instead, so we check for that too. + # Subdirectories are respected. + set_dir_from "$object" + set_base_from "$object" + + if test "$libtool" = yes; then + # Libtool generates 2 separate objects for the 2 libraries. These + # two compilations output dependencies in $dir.libs/$base.o.d and + # in $dir$base.o.d. We have to check for both files, because + # one of the two compilations can be disabled. We should prefer + # $dir$base.o.d over $dir.libs/$base.o.d because the latter is + # automatically cleaned when .libs/ is deleted, while ignoring + # the former would cause a distcleancheck panic. + tmpdepfile1=$dir$base.o.d # libtool 1.5 + tmpdepfile2=$dir.libs/$base.o.d # Likewise. + tmpdepfile3=$dir.libs/$base.d # Compaq CCC V6.2-504 + "$@" -Wc,-MD + else + tmpdepfile1=$dir$base.d + tmpdepfile2=$dir$base.d + tmpdepfile3=$dir$base.d + "$@" -MD + fi + + stat=$? + if test $stat -ne 0; then + rm -f "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" + exit $stat + fi + + for tmpdepfile in "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" + do + test -f "$tmpdepfile" && break + done + # Same post-processing that is required for AIX mode. + aix_post_process_depfile + ;; + +msvc7) + if test "$libtool" = yes; then + showIncludes=-Wc,-showIncludes + else + showIncludes=-showIncludes + fi + "$@" $showIncludes > "$tmpdepfile" + stat=$? + grep -v '^Note: including file: ' "$tmpdepfile" + if test $stat -ne 0; then + rm -f "$tmpdepfile" + exit $stat + fi + rm -f "$depfile" + echo "$object : \\" > "$depfile" + # The first sed program below extracts the file names and escapes + # backslashes for cygpath. The second sed program outputs the file + # name when reading, but also accumulates all include files in the + # hold buffer in order to output them again at the end. This only + # works with sed implementations that can handle large buffers. + sed < "$tmpdepfile" -n ' +/^Note: including file: *\(.*\)/ { + s//\1/ + s/\\/\\\\/g + p +}' | $cygpath_u | sort -u | sed -n ' +s/ /\\ /g +s/\(.*\)/'"$tab"'\1 \\/p +s/.\(.*\) \\/\1:/ +H +$ { + s/.*/'"$tab"'/ + G + p +}' >> "$depfile" + echo >> "$depfile" # make sure the fragment doesn't end with a backslash + rm -f "$tmpdepfile" + ;; + +msvc7msys) + # This case exists only to let depend.m4 do its work. It works by + # looking at the text of this script. This case will never be run, + # since it is checked for above. + exit 1 + ;; + +#nosideeffect) + # This comment above is used by automake to tell side-effect + # dependency tracking mechanisms from slower ones. + +dashmstdout) + # Important note: in order to support this mode, a compiler *must* + # always write the preprocessed file to stdout, regardless of -o. + "$@" || exit $? + + # Remove the call to Libtool. + if test "$libtool" = yes; then + while test "X$1" != 'X--mode=compile'; do + shift + done + shift + fi + + # Remove '-o $object'. + IFS=" " + for arg + do + case $arg in + -o) + shift + ;; + $object) + shift + ;; + *) + set fnord "$@" "$arg" + shift # fnord + shift # $arg + ;; + esac + done + + test -z "$dashmflag" && dashmflag=-M + # Require at least two characters before searching for ':' + # in the target name. This is to cope with DOS-style filenames: + # a dependency such as 'c:/foo/bar' could be seen as target 'c' otherwise. + "$@" $dashmflag | + sed "s|^[$tab ]*[^:$tab ][^:][^:]*:[$tab ]*|$object: |" > "$tmpdepfile" + rm -f "$depfile" + cat < "$tmpdepfile" > "$depfile" + # Some versions of the HPUX 10.20 sed can't process this sed invocation + # correctly. Breaking it into two sed invocations is a workaround. + tr ' ' "$nl" < "$tmpdepfile" \ + | sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' \ + | sed -e 's/$/ :/' >> "$depfile" + rm -f "$tmpdepfile" + ;; + +dashXmstdout) + # This case only exists to satisfy depend.m4. It is never actually + # run, as this mode is specially recognized in the preamble. + exit 1 + ;; + +makedepend) + "$@" || exit $? + # Remove any Libtool call + if test "$libtool" = yes; then + while test "X$1" != 'X--mode=compile'; do + shift + done + shift + fi + # X makedepend + shift + cleared=no eat=no + for arg + do + case $cleared in + no) + set ""; shift + cleared=yes ;; + esac + if test $eat = yes; then + eat=no + continue + fi + case "$arg" in + -D*|-I*) + set fnord "$@" "$arg"; shift ;; + # Strip any option that makedepend may not understand. Remove + # the object too, otherwise makedepend will parse it as a source file. + -arch) + eat=yes ;; + -*|$object) + ;; + *) + set fnord "$@" "$arg"; shift ;; + esac + done + obj_suffix=`echo "$object" | sed 's/^.*\././'` + touch "$tmpdepfile" + ${MAKEDEPEND-makedepend} -o"$obj_suffix" -f"$tmpdepfile" "$@" + rm -f "$depfile" + # makedepend may prepend the VPATH from the source file name to the object. + # No need to regex-escape $object, excess matching of '.' is harmless. + sed "s|^.*\($object *:\)|\1|" "$tmpdepfile" > "$depfile" + # Some versions of the HPUX 10.20 sed can't process the last invocation + # correctly. Breaking it into two sed invocations is a workaround. + sed '1,2d' "$tmpdepfile" \ + | tr ' ' "$nl" \ + | sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' \ + | sed -e 's/$/ :/' >> "$depfile" + rm -f "$tmpdepfile" "$tmpdepfile".bak + ;; + +cpp) + # Important note: in order to support this mode, a compiler *must* + # always write the preprocessed file to stdout. + "$@" || exit $? + + # Remove the call to Libtool. + if test "$libtool" = yes; then + while test "X$1" != 'X--mode=compile'; do + shift + done + shift + fi + + # Remove '-o $object'. + IFS=" " + for arg + do + case $arg in + -o) + shift + ;; + $object) + shift + ;; + *) + set fnord "$@" "$arg" + shift # fnord + shift # $arg + ;; + esac + done + + "$@" -E \ + | sed -n -e '/^# [0-9][0-9]* "\([^"]*\)".*/ s:: \1 \\:p' \ + -e '/^#line [0-9][0-9]* "\([^"]*\)".*/ s:: \1 \\:p' \ + | sed '$ s: \\$::' > "$tmpdepfile" + rm -f "$depfile" + echo "$object : \\" > "$depfile" + cat < "$tmpdepfile" >> "$depfile" + sed < "$tmpdepfile" '/^$/d;s/^ //;s/ \\$//;s/$/ :/' >> "$depfile" + rm -f "$tmpdepfile" + ;; + +msvisualcpp) + # Important note: in order to support this mode, a compiler *must* + # always write the preprocessed file to stdout. + "$@" || exit $? + + # Remove the call to Libtool. + if test "$libtool" = yes; then + while test "X$1" != 'X--mode=compile'; do + shift + done + shift + fi + + IFS=" " + for arg + do + case "$arg" in + -o) + shift + ;; + $object) + shift + ;; + "-Gm"|"/Gm"|"-Gi"|"/Gi"|"-ZI"|"/ZI") + set fnord "$@" + shift + shift + ;; + *) + set fnord "$@" "$arg" + shift + shift + ;; + esac + done + "$@" -E 2>/dev/null | + sed -n '/^#line [0-9][0-9]* "\([^"]*\)"/ s::\1:p' | $cygpath_u | sort -u > "$tmpdepfile" + rm -f "$depfile" + echo "$object : \\" > "$depfile" + sed < "$tmpdepfile" -n -e 's% %\\ %g' -e '/^\(.*\)$/ s::'"$tab"'\1 \\:p' >> "$depfile" + echo "$tab" >> "$depfile" + sed < "$tmpdepfile" -n -e 's% %\\ %g' -e '/^\(.*\)$/ s::\1\::p' >> "$depfile" + rm -f "$tmpdepfile" + ;; + +msvcmsys) + # This case exists only to let depend.m4 do its work. It works by + # looking at the text of this script. This case will never be run, + # since it is checked for above. + exit 1 + ;; + +none) + exec "$@" + ;; + +*) + echo "Unknown depmode $depmode" 1>&2 + exit 1 + ;; +esac + +exit 0 + +# Local Variables: +# mode: shell-script +# sh-indentation: 2 +# eval: (add-hook 'write-file-hooks 'time-stamp) +# time-stamp-start: "scriptversion=" +# time-stamp-format: "%:y-%02m-%02d.%02H" +# time-stamp-time-zone: "UTC0" +# time-stamp-end: "; # UTC" +# End: diff --git a/build-aux/install-sh b/build-aux/install-sh new file mode 100755 index 0000000..8175c64 --- /dev/null +++ b/build-aux/install-sh @@ -0,0 +1,518 @@ +#!/bin/sh +# install - install a program, script, or datafile + +scriptversion=2018-03-11.20; # UTC + +# This originates from X11R5 (mit/util/scripts/install.sh), which was +# later released in X11R6 (xc/config/util/install.sh) with the +# following copyright and license. +# +# Copyright (C) 1994 X Consortium +# +# Permission is hereby granted, free of charge, to any person obtaining a copy +# of this software and associated documentation files (the "Software"), to +# deal in the Software without restriction, including without limitation the +# rights to use, copy, modify, merge, publish, distribute, sublicense, and/or +# sell copies of the Software, and to permit persons to whom the Software is +# furnished to do so, subject to the following conditions: +# +# The above copyright notice and this permission notice shall be included in +# all copies or substantial portions of the Software. +# +# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +# X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN +# AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNEC- +# TION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +# +# Except as contained in this notice, the name of the X Consortium shall not +# be used in advertising or otherwise to promote the sale, use or other deal- +# ings in this Software without prior written authorization from the X Consor- +# tium. +# +# +# FSF changes to this file are in the public domain. +# +# Calling this script install-sh is preferred over install.sh, to prevent +# 'make' implicit rules from creating a file called install from it +# when there is no Makefile. +# +# This script is compatible with the BSD install script, but was written +# from scratch. + +tab=' ' +nl=' +' +IFS=" $tab$nl" + +# Set DOITPROG to "echo" to test this script. + +doit=${DOITPROG-} +doit_exec=${doit:-exec} + +# Put in absolute file names if you don't have them in your path; +# or use environment vars. + +chgrpprog=${CHGRPPROG-chgrp} +chmodprog=${CHMODPROG-chmod} +chownprog=${CHOWNPROG-chown} +cmpprog=${CMPPROG-cmp} +cpprog=${CPPROG-cp} +mkdirprog=${MKDIRPROG-mkdir} +mvprog=${MVPROG-mv} +rmprog=${RMPROG-rm} +stripprog=${STRIPPROG-strip} + +posix_mkdir= + +# Desired mode of installed file. +mode=0755 + +chgrpcmd= +chmodcmd=$chmodprog +chowncmd= +mvcmd=$mvprog +rmcmd="$rmprog -f" +stripcmd= + +src= +dst= +dir_arg= +dst_arg= + +copy_on_change=false +is_target_a_directory=possibly + +usage="\ +Usage: $0 [OPTION]... [-T] SRCFILE DSTFILE + or: $0 [OPTION]... SRCFILES... DIRECTORY + or: $0 [OPTION]... -t DIRECTORY SRCFILES... + or: $0 [OPTION]... -d DIRECTORIES... + +In the 1st form, copy SRCFILE to DSTFILE. +In the 2nd and 3rd, copy all SRCFILES to DIRECTORY. +In the 4th, create DIRECTORIES. + +Options: + --help display this help and exit. + --version display version info and exit. + + -c (ignored) + -C install only if different (preserve the last data modification time) + -d create directories instead of installing files. + -g GROUP $chgrpprog installed files to GROUP. + -m MODE $chmodprog installed files to MODE. + -o USER $chownprog installed files to USER. + -s $stripprog installed files. + -t DIRECTORY install into DIRECTORY. + -T report an error if DSTFILE is a directory. + +Environment variables override the default commands: + CHGRPPROG CHMODPROG CHOWNPROG CMPPROG CPPROG MKDIRPROG MVPROG + RMPROG STRIPPROG +" + +while test $# -ne 0; do + case $1 in + -c) ;; + + -C) copy_on_change=true;; + + -d) dir_arg=true;; + + -g) chgrpcmd="$chgrpprog $2" + shift;; + + --help) echo "$usage"; exit $?;; + + -m) mode=$2 + case $mode in + *' '* | *"$tab"* | *"$nl"* | *'*'* | *'?'* | *'['*) + echo "$0: invalid mode: $mode" >&2 + exit 1;; + esac + shift;; + + -o) chowncmd="$chownprog $2" + shift;; + + -s) stripcmd=$stripprog;; + + -t) + is_target_a_directory=always + dst_arg=$2 + # Protect names problematic for 'test' and other utilities. + case $dst_arg in + -* | [=\(\)!]) dst_arg=./$dst_arg;; + esac + shift;; + + -T) is_target_a_directory=never;; + + --version) echo "$0 $scriptversion"; exit $?;; + + --) shift + break;; + + -*) echo "$0: invalid option: $1" >&2 + exit 1;; + + *) break;; + esac + shift +done + +# We allow the use of options -d and -T together, by making -d +# take the precedence; this is for compatibility with GNU install. + +if test -n "$dir_arg"; then + if test -n "$dst_arg"; then + echo "$0: target directory not allowed when installing a directory." >&2 + exit 1 + fi +fi + +if test $# -ne 0 && test -z "$dir_arg$dst_arg"; then + # When -d is used, all remaining arguments are directories to create. + # When -t is used, the destination is already specified. + # Otherwise, the last argument is the destination. Remove it from $@. + for arg + do + if test -n "$dst_arg"; then + # $@ is not empty: it contains at least $arg. + set fnord "$@" "$dst_arg" + shift # fnord + fi + shift # arg + dst_arg=$arg + # Protect names problematic for 'test' and other utilities. + case $dst_arg in + -* | [=\(\)!]) dst_arg=./$dst_arg;; + esac + done +fi + +if test $# -eq 0; then + if test -z "$dir_arg"; then + echo "$0: no input file specified." >&2 + exit 1 + fi + # It's OK to call 'install-sh -d' without argument. + # This can happen when creating conditional directories. + exit 0 +fi + +if test -z "$dir_arg"; then + if test $# -gt 1 || test "$is_target_a_directory" = always; then + if test ! -d "$dst_arg"; then + echo "$0: $dst_arg: Is not a directory." >&2 + exit 1 + fi + fi +fi + +if test -z "$dir_arg"; then + do_exit='(exit $ret); exit $ret' + trap "ret=129; $do_exit" 1 + trap "ret=130; $do_exit" 2 + trap "ret=141; $do_exit" 13 + trap "ret=143; $do_exit" 15 + + # Set umask so as not to create temps with too-generous modes. + # However, 'strip' requires both read and write access to temps. + case $mode in + # Optimize common cases. + *644) cp_umask=133;; + *755) cp_umask=22;; + + *[0-7]) + if test -z "$stripcmd"; then + u_plus_rw= + else + u_plus_rw='% 200' + fi + cp_umask=`expr '(' 777 - $mode % 1000 ')' $u_plus_rw`;; + *) + if test -z "$stripcmd"; then + u_plus_rw= + else + u_plus_rw=,u+rw + fi + cp_umask=$mode$u_plus_rw;; + esac +fi + +for src +do + # Protect names problematic for 'test' and other utilities. + case $src in + -* | [=\(\)!]) src=./$src;; + esac + + if test -n "$dir_arg"; then + dst=$src + dstdir=$dst + test -d "$dstdir" + dstdir_status=$? + else + + # Waiting for this to be detected by the "$cpprog $src $dsttmp" command + # might cause directories to be created, which would be especially bad + # if $src (and thus $dsttmp) contains '*'. + if test ! -f "$src" && test ! -d "$src"; then + echo "$0: $src does not exist." >&2 + exit 1 + fi + + if test -z "$dst_arg"; then + echo "$0: no destination specified." >&2 + exit 1 + fi + dst=$dst_arg + + # If destination is a directory, append the input filename. + if test -d "$dst"; then + if test "$is_target_a_directory" = never; then + echo "$0: $dst_arg: Is a directory" >&2 + exit 1 + fi + dstdir=$dst + dstbase=`basename "$src"` + case $dst in + */) dst=$dst$dstbase;; + *) dst=$dst/$dstbase;; + esac + dstdir_status=0 + else + dstdir=`dirname "$dst"` + test -d "$dstdir" + dstdir_status=$? + fi + fi + + case $dstdir in + */) dstdirslash=$dstdir;; + *) dstdirslash=$dstdir/;; + esac + + obsolete_mkdir_used=false + + if test $dstdir_status != 0; then + case $posix_mkdir in + '') + # Create intermediate dirs using mode 755 as modified by the umask. + # This is like FreeBSD 'install' as of 1997-10-28. + umask=`umask` + case $stripcmd.$umask in + # Optimize common cases. + *[2367][2367]) mkdir_umask=$umask;; + .*0[02][02] | .[02][02] | .[02]) mkdir_umask=22;; + + *[0-7]) + mkdir_umask=`expr $umask + 22 \ + - $umask % 100 % 40 + $umask % 20 \ + - $umask % 10 % 4 + $umask % 2 + `;; + *) mkdir_umask=$umask,go-w;; + esac + + # With -d, create the new directory with the user-specified mode. + # Otherwise, rely on $mkdir_umask. + if test -n "$dir_arg"; then + mkdir_mode=-m$mode + else + mkdir_mode= + fi + + posix_mkdir=false + case $umask in + *[123567][0-7][0-7]) + # POSIX mkdir -p sets u+wx bits regardless of umask, which + # is incompatible with FreeBSD 'install' when (umask & 300) != 0. + ;; + *) + # Note that $RANDOM variable is not portable (e.g. dash); Use it + # here however when possible just to lower collision chance. + tmpdir=${TMPDIR-/tmp}/ins$RANDOM-$$ + + trap 'ret=$?; rmdir "$tmpdir/a/b" "$tmpdir/a" "$tmpdir" 2>/dev/null; exit $ret' 0 + + # Because "mkdir -p" follows existing symlinks and we likely work + # directly in world-writeable /tmp, make sure that the '$tmpdir' + # directory is successfully created first before we actually test + # 'mkdir -p' feature. + if (umask $mkdir_umask && + $mkdirprog $mkdir_mode "$tmpdir" && + exec $mkdirprog $mkdir_mode -p -- "$tmpdir/a/b") >/dev/null 2>&1 + then + if test -z "$dir_arg" || { + # Check for POSIX incompatibilities with -m. + # HP-UX 11.23 and IRIX 6.5 mkdir -m -p sets group- or + # other-writable bit of parent directory when it shouldn't. + # FreeBSD 6.1 mkdir -m -p sets mode of existing directory. + test_tmpdir="$tmpdir/a" + ls_ld_tmpdir=`ls -ld "$test_tmpdir"` + case $ls_ld_tmpdir in + d????-?r-*) different_mode=700;; + d????-?--*) different_mode=755;; + *) false;; + esac && + $mkdirprog -m$different_mode -p -- "$test_tmpdir" && { + ls_ld_tmpdir_1=`ls -ld "$test_tmpdir"` + test "$ls_ld_tmpdir" = "$ls_ld_tmpdir_1" + } + } + then posix_mkdir=: + fi + rmdir "$tmpdir/a/b" "$tmpdir/a" "$tmpdir" + else + # Remove any dirs left behind by ancient mkdir implementations. + rmdir ./$mkdir_mode ./-p ./-- "$tmpdir" 2>/dev/null + fi + trap '' 0;; + esac;; + esac + + if + $posix_mkdir && ( + umask $mkdir_umask && + $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir" + ) + then : + else + + # The umask is ridiculous, or mkdir does not conform to POSIX, + # or it failed possibly due to a race condition. Create the + # directory the slow way, step by step, checking for races as we go. + + case $dstdir in + /*) prefix='/';; + [-=\(\)!]*) prefix='./';; + *) prefix='';; + esac + + oIFS=$IFS + IFS=/ + set -f + set fnord $dstdir + shift + set +f + IFS=$oIFS + + prefixes= + + for d + do + test X"$d" = X && continue + + prefix=$prefix$d + if test -d "$prefix"; then + prefixes= + else + if $posix_mkdir; then + (umask=$mkdir_umask && + $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir") && break + # Don't fail if two instances are running concurrently. + test -d "$prefix" || exit 1 + else + case $prefix in + *\'*) qprefix=`echo "$prefix" | sed "s/'/'\\\\\\\\''/g"`;; + *) qprefix=$prefix;; + esac + prefixes="$prefixes '$qprefix'" + fi + fi + prefix=$prefix/ + done + + if test -n "$prefixes"; then + # Don't fail if two instances are running concurrently. + (umask $mkdir_umask && + eval "\$doit_exec \$mkdirprog $prefixes") || + test -d "$dstdir" || exit 1 + obsolete_mkdir_used=true + fi + fi + fi + + if test -n "$dir_arg"; then + { test -z "$chowncmd" || $doit $chowncmd "$dst"; } && + { test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } && + { test "$obsolete_mkdir_used$chowncmd$chgrpcmd" = false || + test -z "$chmodcmd" || $doit $chmodcmd $mode "$dst"; } || exit 1 + else + + # Make a couple of temp file names in the proper directory. + dsttmp=${dstdirslash}_inst.$$_ + rmtmp=${dstdirslash}_rm.$$_ + + # Trap to clean up those temp files at exit. + trap 'ret=$?; rm -f "$dsttmp" "$rmtmp" && exit $ret' 0 + + # Copy the file name to the temp name. + (umask $cp_umask && $doit_exec $cpprog "$src" "$dsttmp") && + + # and set any options; do chmod last to preserve setuid bits. + # + # If any of these fail, we abort the whole thing. If we want to + # ignore errors from any of these, just make sure not to ignore + # errors from the above "$doit $cpprog $src $dsttmp" command. + # + { test -z "$chowncmd" || $doit $chowncmd "$dsttmp"; } && + { test -z "$chgrpcmd" || $doit $chgrpcmd "$dsttmp"; } && + { test -z "$stripcmd" || $doit $stripcmd "$dsttmp"; } && + { test -z "$chmodcmd" || $doit $chmodcmd $mode "$dsttmp"; } && + + # If -C, don't bother to copy if it wouldn't change the file. + if $copy_on_change && + old=`LC_ALL=C ls -dlL "$dst" 2>/dev/null` && + new=`LC_ALL=C ls -dlL "$dsttmp" 2>/dev/null` && + set -f && + set X $old && old=:$2:$4:$5:$6 && + set X $new && new=:$2:$4:$5:$6 && + set +f && + test "$old" = "$new" && + $cmpprog "$dst" "$dsttmp" >/dev/null 2>&1 + then + rm -f "$dsttmp" + else + # Rename the file to the real destination. + $doit $mvcmd -f "$dsttmp" "$dst" 2>/dev/null || + + # The rename failed, perhaps because mv can't rename something else + # to itself, or perhaps because mv is so ancient that it does not + # support -f. + { + # Now remove or move aside any old file at destination location. + # We try this two ways since rm can't unlink itself on some + # systems and the destination file might be busy for other + # reasons. In this case, the final cleanup might fail but the new + # file should still install successfully. + { + test ! -f "$dst" || + $doit $rmcmd -f "$dst" 2>/dev/null || + { $doit $mvcmd -f "$dst" "$rmtmp" 2>/dev/null && + { $doit $rmcmd -f "$rmtmp" 2>/dev/null; :; } + } || + { echo "$0: cannot unlink or rename $dst" >&2 + (exit 1); exit 1 + } + } && + + # Now rename the file to the real destination. + $doit $mvcmd "$dsttmp" "$dst" + } + fi || exit 1 + + trap '' 0 + fi +done + +# Local variables: +# eval: (add-hook 'before-save-hook 'time-stamp) +# time-stamp-start: "scriptversion=" +# time-stamp-format: "%:y-%02m-%02d.%02H" +# time-stamp-time-zone: "UTC0" +# time-stamp-end: "; # UTC" +# End: diff --git a/build-aux/ltmain.sh b/build-aux/ltmain.sh new file mode 100644 index 0000000..1d0185a --- /dev/null +++ b/build-aux/ltmain.sh @@ -0,0 +1,11149 @@ +#! /bin/sh +## DO NOT EDIT - This file generated from ./build-aux/ltmain.in +## by inline-source v2014-01-03.01 + +# libtool (GNU libtool) 2.4.6 +# Provide generalized library-building support services. +# Written by Gordon Matzigkeit , 1996 + +# Copyright (C) 1996-2015 Free Software Foundation, Inc. +# This is free software; see the source for copying conditions. There is NO +# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +# GNU Libtool is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# As a special exception to the GNU General Public License, +# if you distribute this file as part of a program or library that +# is built using GNU Libtool, you may include this file under the +# same distribution terms that you use for the rest of that program. +# +# GNU Libtool is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +# General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + + +PROGRAM=libtool +PACKAGE=libtool +VERSION=2.4.6 +package_revision=2.4.6 + + +## ------ ## +## Usage. ## +## ------ ## + +# Run './libtool --help' for help with using this script from the +# command line. + + +## ------------------------------- ## +## User overridable command paths. ## +## ------------------------------- ## + +# After configure completes, it has a better idea of some of the +# shell tools we need than the defaults used by the functions shared +# with bootstrap, so set those here where they can still be over- +# ridden by the user, but otherwise take precedence. + +: ${AUTOCONF="autoconf"} +: ${AUTOMAKE="automake"} + + +## -------------------------- ## +## Source external libraries. ## +## -------------------------- ## + +# Much of our low-level functionality needs to be sourced from external +# libraries, which are installed to $pkgauxdir. + +# Set a version string for this script. +scriptversion=2015-01-20.17; # UTC + +# General shell script boiler plate, and helper functions. +# Written by Gary V. Vaughan, 2004 + +# Copyright (C) 2004-2015 Free Software Foundation, Inc. +# This is free software; see the source for copying conditions. There is NO +# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. + +# As a special exception to the GNU General Public License, if you distribute +# this file as part of a program or library that is built using GNU Libtool, +# you may include this file under the same distribution terms that you use +# for the rest of that program. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNES FOR A PARTICULAR PURPOSE. See the GNU +# General Public License for more details. + +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + +# Please report bugs or propose patches to gary@gnu.org. + + +## ------ ## +## Usage. ## +## ------ ## + +# Evaluate this file near the top of your script to gain access to +# the functions and variables defined here: +# +# . `echo "$0" | ${SED-sed} 's|[^/]*$||'`/build-aux/funclib.sh +# +# If you need to override any of the default environment variable +# settings, do that before evaluating this file. + + +## -------------------- ## +## Shell normalisation. ## +## -------------------- ## + +# Some shells need a little help to be as Bourne compatible as possible. +# Before doing anything else, make sure all that help has been provided! + +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in *posix*) set -o posix ;; esac +fi + +# NLS nuisances: We save the old values in case they are required later. +_G_user_locale= +_G_safe_locale= +for _G_var in LANG LANGUAGE LC_ALL LC_CTYPE LC_COLLATE LC_MESSAGES +do + eval "if test set = \"\${$_G_var+set}\"; then + save_$_G_var=\$$_G_var + $_G_var=C + export $_G_var + _G_user_locale=\"$_G_var=\\\$save_\$_G_var; \$_G_user_locale\" + _G_safe_locale=\"$_G_var=C; \$_G_safe_locale\" + fi" +done + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +# Make sure IFS has a sensible default +sp=' ' +nl=' +' +IFS="$sp $nl" + +# There are apparently some retarded systems that use ';' as a PATH separator! +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + + +## ------------------------- ## +## Locate command utilities. ## +## ------------------------- ## + + +# func_executable_p FILE +# ---------------------- +# Check that FILE is an executable regular file. +func_executable_p () +{ + test -f "$1" && test -x "$1" +} + + +# func_path_progs PROGS_LIST CHECK_FUNC [PATH] +# -------------------------------------------- +# Search for either a program that responds to --version with output +# containing "GNU", or else returned by CHECK_FUNC otherwise, by +# trying all the directories in PATH with each of the elements of +# PROGS_LIST. +# +# CHECK_FUNC should accept the path to a candidate program, and +# set $func_check_prog_result if it truncates its output less than +# $_G_path_prog_max characters. +func_path_progs () +{ + _G_progs_list=$1 + _G_check_func=$2 + _G_PATH=${3-"$PATH"} + + _G_path_prog_max=0 + _G_path_prog_found=false + _G_save_IFS=$IFS; IFS=${PATH_SEPARATOR-:} + for _G_dir in $_G_PATH; do + IFS=$_G_save_IFS + test -z "$_G_dir" && _G_dir=. + for _G_prog_name in $_G_progs_list; do + for _exeext in '' .EXE; do + _G_path_prog=$_G_dir/$_G_prog_name$_exeext + func_executable_p "$_G_path_prog" || continue + case `"$_G_path_prog" --version 2>&1` in + *GNU*) func_path_progs_result=$_G_path_prog _G_path_prog_found=: ;; + *) $_G_check_func $_G_path_prog + func_path_progs_result=$func_check_prog_result + ;; + esac + $_G_path_prog_found && break 3 + done + done + done + IFS=$_G_save_IFS + test -z "$func_path_progs_result" && { + echo "no acceptable sed could be found in \$PATH" >&2 + exit 1 + } +} + + +# We want to be able to use the functions in this file before configure +# has figured out where the best binaries are kept, which means we have +# to search for them ourselves - except when the results are already set +# where we skip the searches. + +# Unless the user overrides by setting SED, search the path for either GNU +# sed, or the sed that truncates its output the least. +test -z "$SED" && { + _G_sed_script=s/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb/ + for _G_i in 1 2 3 4 5 6 7; do + _G_sed_script=$_G_sed_script$nl$_G_sed_script + done + echo "$_G_sed_script" 2>/dev/null | sed 99q >conftest.sed + _G_sed_script= + + func_check_prog_sed () + { + _G_path_prog=$1 + + _G_count=0 + printf 0123456789 >conftest.in + while : + do + cat conftest.in conftest.in >conftest.tmp + mv conftest.tmp conftest.in + cp conftest.in conftest.nl + echo '' >> conftest.nl + "$_G_path_prog" -f conftest.sed conftest.out 2>/dev/null || break + diff conftest.out conftest.nl >/dev/null 2>&1 || break + _G_count=`expr $_G_count + 1` + if test "$_G_count" -gt "$_G_path_prog_max"; then + # Best one so far, save it but keep looking for a better one + func_check_prog_result=$_G_path_prog + _G_path_prog_max=$_G_count + fi + # 10*(2^10) chars as input seems more than enough + test 10 -lt "$_G_count" && break + done + rm -f conftest.in conftest.tmp conftest.nl conftest.out + } + + func_path_progs "sed gsed" func_check_prog_sed $PATH:/usr/xpg4/bin + rm -f conftest.sed + SED=$func_path_progs_result +} + + +# Unless the user overrides by setting GREP, search the path for either GNU +# grep, or the grep that truncates its output the least. +test -z "$GREP" && { + func_check_prog_grep () + { + _G_path_prog=$1 + + _G_count=0 + _G_path_prog_max=0 + printf 0123456789 >conftest.in + while : + do + cat conftest.in conftest.in >conftest.tmp + mv conftest.tmp conftest.in + cp conftest.in conftest.nl + echo 'GREP' >> conftest.nl + "$_G_path_prog" -e 'GREP$' -e '-(cannot match)-' conftest.out 2>/dev/null || break + diff conftest.out conftest.nl >/dev/null 2>&1 || break + _G_count=`expr $_G_count + 1` + if test "$_G_count" -gt "$_G_path_prog_max"; then + # Best one so far, save it but keep looking for a better one + func_check_prog_result=$_G_path_prog + _G_path_prog_max=$_G_count + fi + # 10*(2^10) chars as input seems more than enough + test 10 -lt "$_G_count" && break + done + rm -f conftest.in conftest.tmp conftest.nl conftest.out + } + + func_path_progs "grep ggrep" func_check_prog_grep $PATH:/usr/xpg4/bin + GREP=$func_path_progs_result +} + + +## ------------------------------- ## +## User overridable command paths. ## +## ------------------------------- ## + +# All uppercase variable names are used for environment variables. These +# variables can be overridden by the user before calling a script that +# uses them if a suitable command of that name is not already available +# in the command search PATH. + +: ${CP="cp -f"} +: ${ECHO="printf %s\n"} +: ${EGREP="$GREP -E"} +: ${FGREP="$GREP -F"} +: ${LN_S="ln -s"} +: ${MAKE="make"} +: ${MKDIR="mkdir"} +: ${MV="mv -f"} +: ${RM="rm -f"} +: ${SHELL="${CONFIG_SHELL-/bin/sh}"} + + +## -------------------- ## +## Useful sed snippets. ## +## -------------------- ## + +sed_dirname='s|/[^/]*$||' +sed_basename='s|^.*/||' + +# Sed substitution that helps us do robust quoting. It backslashifies +# metacharacters that are still active within double-quoted strings. +sed_quote_subst='s|\([`"$\\]\)|\\\1|g' + +# Same as above, but do not quote variable references. +sed_double_quote_subst='s/\(["`\\]\)/\\\1/g' + +# Sed substitution that turns a string into a regex matching for the +# string literally. +sed_make_literal_regex='s|[].[^$\\*\/]|\\&|g' + +# Sed substitution that converts a w32 file name or path +# that contains forward slashes, into one that contains +# (escaped) backslashes. A very naive implementation. +sed_naive_backslashify='s|\\\\*|\\|g;s|/|\\|g;s|\\|\\\\|g' + +# Re-'\' parameter expansions in output of sed_double_quote_subst that +# were '\'-ed in input to the same. If an odd number of '\' preceded a +# '$' in input to sed_double_quote_subst, that '$' was protected from +# expansion. Since each input '\' is now two '\'s, look for any number +# of runs of four '\'s followed by two '\'s and then a '$'. '\' that '$'. +_G_bs='\\' +_G_bs2='\\\\' +_G_bs4='\\\\\\\\' +_G_dollar='\$' +sed_double_backslash="\ + s/$_G_bs4/&\\ +/g + s/^$_G_bs2$_G_dollar/$_G_bs&/ + s/\\([^$_G_bs]\\)$_G_bs2$_G_dollar/\\1$_G_bs2$_G_bs$_G_dollar/g + s/\n//g" + + +## ----------------- ## +## Global variables. ## +## ----------------- ## + +# Except for the global variables explicitly listed below, the following +# functions in the '^func_' namespace, and the '^require_' namespace +# variables initialised in the 'Resource management' section, sourcing +# this file will not pollute your global namespace with anything +# else. There's no portable way to scope variables in Bourne shell +# though, so actually running these functions will sometimes place +# results into a variable named after the function, and often use +# temporary variables in the '^_G_' namespace. If you are careful to +# avoid using those namespaces casually in your sourcing script, things +# should continue to work as you expect. And, of course, you can freely +# overwrite any of the functions or variables defined here before +# calling anything to customize them. + +EXIT_SUCCESS=0 +EXIT_FAILURE=1 +EXIT_MISMATCH=63 # $? = 63 is used to indicate version mismatch to missing. +EXIT_SKIP=77 # $? = 77 is used to indicate a skipped test to automake. + +# Allow overriding, eg assuming that you follow the convention of +# putting '$debug_cmd' at the start of all your functions, you can get +# bash to show function call trace with: +# +# debug_cmd='eval echo "${FUNCNAME[0]} $*" >&2' bash your-script-name +debug_cmd=${debug_cmd-":"} +exit_cmd=: + +# By convention, finish your script with: +# +# exit $exit_status +# +# so that you can set exit_status to non-zero if you want to indicate +# something went wrong during execution without actually bailing out at +# the point of failure. +exit_status=$EXIT_SUCCESS + +# Work around backward compatibility issue on IRIX 6.5. On IRIX 6.4+, sh +# is ksh but when the shell is invoked as "sh" and the current value of +# the _XPG environment variable is not equal to 1 (one), the special +# positional parameter $0, within a function call, is the name of the +# function. +progpath=$0 + +# The name of this program. +progname=`$ECHO "$progpath" |$SED "$sed_basename"` + +# Make sure we have an absolute progpath for reexecution: +case $progpath in + [\\/]*|[A-Za-z]:\\*) ;; + *[\\/]*) + progdir=`$ECHO "$progpath" |$SED "$sed_dirname"` + progdir=`cd "$progdir" && pwd` + progpath=$progdir/$progname + ;; + *) + _G_IFS=$IFS + IFS=${PATH_SEPARATOR-:} + for progdir in $PATH; do + IFS=$_G_IFS + test -x "$progdir/$progname" && break + done + IFS=$_G_IFS + test -n "$progdir" || progdir=`pwd` + progpath=$progdir/$progname + ;; +esac + + +## ----------------- ## +## Standard options. ## +## ----------------- ## + +# The following options affect the operation of the functions defined +# below, and should be set appropriately depending on run-time para- +# meters passed on the command line. + +opt_dry_run=false +opt_quiet=false +opt_verbose=false + +# Categories 'all' and 'none' are always available. Append any others +# you will pass as the first argument to func_warning from your own +# code. +warning_categories= + +# By default, display warnings according to 'opt_warning_types'. Set +# 'warning_func' to ':' to elide all warnings, or func_fatal_error to +# treat the next displayed warning as a fatal error. +warning_func=func_warn_and_continue + +# Set to 'all' to display all warnings, 'none' to suppress all +# warnings, or a space delimited list of some subset of +# 'warning_categories' to display only the listed warnings. +opt_warning_types=all + + +## -------------------- ## +## Resource management. ## +## -------------------- ## + +# This section contains definitions for functions that each ensure a +# particular resource (a file, or a non-empty configuration variable for +# example) is available, and if appropriate to extract default values +# from pertinent package files. Call them using their associated +# 'require_*' variable to ensure that they are executed, at most, once. +# +# It's entirely deliberate that calling these functions can set +# variables that don't obey the namespace limitations obeyed by the rest +# of this file, in order that that they be as useful as possible to +# callers. + + +# require_term_colors +# ------------------- +# Allow display of bold text on terminals that support it. +require_term_colors=func_require_term_colors +func_require_term_colors () +{ + $debug_cmd + + test -t 1 && { + # COLORTERM and USE_ANSI_COLORS environment variables take + # precedence, because most terminfo databases neglect to describe + # whether color sequences are supported. + test -n "${COLORTERM+set}" && : ${USE_ANSI_COLORS="1"} + + if test 1 = "$USE_ANSI_COLORS"; then + # Standard ANSI escape sequences + tc_reset='' + tc_bold=''; tc_standout='' + tc_red=''; tc_green='' + tc_blue=''; tc_cyan='' + else + # Otherwise trust the terminfo database after all. + test -n "`tput sgr0 2>/dev/null`" && { + tc_reset=`tput sgr0` + test -n "`tput bold 2>/dev/null`" && tc_bold=`tput bold` + tc_standout=$tc_bold + test -n "`tput smso 2>/dev/null`" && tc_standout=`tput smso` + test -n "`tput setaf 1 2>/dev/null`" && tc_red=`tput setaf 1` + test -n "`tput setaf 2 2>/dev/null`" && tc_green=`tput setaf 2` + test -n "`tput setaf 4 2>/dev/null`" && tc_blue=`tput setaf 4` + test -n "`tput setaf 5 2>/dev/null`" && tc_cyan=`tput setaf 5` + } + fi + } + + require_term_colors=: +} + + +## ----------------- ## +## Function library. ## +## ----------------- ## + +# This section contains a variety of useful functions to call in your +# scripts. Take note of the portable wrappers for features provided by +# some modern shells, which will fall back to slower equivalents on +# less featureful shells. + + +# func_append VAR VALUE +# --------------------- +# Append VALUE onto the existing contents of VAR. + + # We should try to minimise forks, especially on Windows where they are + # unreasonably slow, so skip the feature probes when bash or zsh are + # being used: + if test set = "${BASH_VERSION+set}${ZSH_VERSION+set}"; then + : ${_G_HAVE_ARITH_OP="yes"} + : ${_G_HAVE_XSI_OPS="yes"} + # The += operator was introduced in bash 3.1 + case $BASH_VERSION in + [12].* | 3.0 | 3.0*) ;; + *) + : ${_G_HAVE_PLUSEQ_OP="yes"} + ;; + esac + fi + + # _G_HAVE_PLUSEQ_OP + # Can be empty, in which case the shell is probed, "yes" if += is + # useable or anything else if it does not work. + test -z "$_G_HAVE_PLUSEQ_OP" \ + && (eval 'x=a; x+=" b"; test "a b" = "$x"') 2>/dev/null \ + && _G_HAVE_PLUSEQ_OP=yes + +if test yes = "$_G_HAVE_PLUSEQ_OP" +then + # This is an XSI compatible shell, allowing a faster implementation... + eval 'func_append () + { + $debug_cmd + + eval "$1+=\$2" + }' +else + # ...otherwise fall back to using expr, which is often a shell builtin. + func_append () + { + $debug_cmd + + eval "$1=\$$1\$2" + } +fi + + +# func_append_quoted VAR VALUE +# ---------------------------- +# Quote VALUE and append to the end of shell variable VAR, separated +# by a space. +if test yes = "$_G_HAVE_PLUSEQ_OP"; then + eval 'func_append_quoted () + { + $debug_cmd + + func_quote_for_eval "$2" + eval "$1+=\\ \$func_quote_for_eval_result" + }' +else + func_append_quoted () + { + $debug_cmd + + func_quote_for_eval "$2" + eval "$1=\$$1\\ \$func_quote_for_eval_result" + } +fi + + +# func_append_uniq VAR VALUE +# -------------------------- +# Append unique VALUE onto the existing contents of VAR, assuming +# entries are delimited by the first character of VALUE. For example: +# +# func_append_uniq options " --another-option option-argument" +# +# will only append to $options if " --another-option option-argument " +# is not already present somewhere in $options already (note spaces at +# each end implied by leading space in second argument). +func_append_uniq () +{ + $debug_cmd + + eval _G_current_value='`$ECHO $'$1'`' + _G_delim=`expr "$2" : '\(.\)'` + + case $_G_delim$_G_current_value$_G_delim in + *"$2$_G_delim"*) ;; + *) func_append "$@" ;; + esac +} + + +# func_arith TERM... +# ------------------ +# Set func_arith_result to the result of evaluating TERMs. + test -z "$_G_HAVE_ARITH_OP" \ + && (eval 'test 2 = $(( 1 + 1 ))') 2>/dev/null \ + && _G_HAVE_ARITH_OP=yes + +if test yes = "$_G_HAVE_ARITH_OP"; then + eval 'func_arith () + { + $debug_cmd + + func_arith_result=$(( $* )) + }' +else + func_arith () + { + $debug_cmd + + func_arith_result=`expr "$@"` + } +fi + + +# func_basename FILE +# ------------------ +# Set func_basename_result to FILE with everything up to and including +# the last / stripped. +if test yes = "$_G_HAVE_XSI_OPS"; then + # If this shell supports suffix pattern removal, then use it to avoid + # forking. Hide the definitions single quotes in case the shell chokes + # on unsupported syntax... + _b='func_basename_result=${1##*/}' + _d='case $1 in + */*) func_dirname_result=${1%/*}$2 ;; + * ) func_dirname_result=$3 ;; + esac' + +else + # ...otherwise fall back to using sed. + _b='func_basename_result=`$ECHO "$1" |$SED "$sed_basename"`' + _d='func_dirname_result=`$ECHO "$1" |$SED "$sed_dirname"` + if test "X$func_dirname_result" = "X$1"; then + func_dirname_result=$3 + else + func_append func_dirname_result "$2" + fi' +fi + +eval 'func_basename () +{ + $debug_cmd + + '"$_b"' +}' + + +# func_dirname FILE APPEND NONDIR_REPLACEMENT +# ------------------------------------------- +# Compute the dirname of FILE. If nonempty, add APPEND to the result, +# otherwise set result to NONDIR_REPLACEMENT. +eval 'func_dirname () +{ + $debug_cmd + + '"$_d"' +}' + + +# func_dirname_and_basename FILE APPEND NONDIR_REPLACEMENT +# -------------------------------------------------------- +# Perform func_basename and func_dirname in a single function +# call: +# dirname: Compute the dirname of FILE. If nonempty, +# add APPEND to the result, otherwise set result +# to NONDIR_REPLACEMENT. +# value returned in "$func_dirname_result" +# basename: Compute filename of FILE. +# value retuned in "$func_basename_result" +# For efficiency, we do not delegate to the functions above but instead +# duplicate the functionality here. +eval 'func_dirname_and_basename () +{ + $debug_cmd + + '"$_b"' + '"$_d"' +}' + + +# func_echo ARG... +# ---------------- +# Echo program name prefixed message. +func_echo () +{ + $debug_cmd + + _G_message=$* + + func_echo_IFS=$IFS + IFS=$nl + for _G_line in $_G_message; do + IFS=$func_echo_IFS + $ECHO "$progname: $_G_line" + done + IFS=$func_echo_IFS +} + + +# func_echo_all ARG... +# -------------------- +# Invoke $ECHO with all args, space-separated. +func_echo_all () +{ + $ECHO "$*" +} + + +# func_echo_infix_1 INFIX ARG... +# ------------------------------ +# Echo program name, followed by INFIX on the first line, with any +# additional lines not showing INFIX. +func_echo_infix_1 () +{ + $debug_cmd + + $require_term_colors + + _G_infix=$1; shift + _G_indent=$_G_infix + _G_prefix="$progname: $_G_infix: " + _G_message=$* + + # Strip color escape sequences before counting printable length + for _G_tc in "$tc_reset" "$tc_bold" "$tc_standout" "$tc_red" "$tc_green" "$tc_blue" "$tc_cyan" + do + test -n "$_G_tc" && { + _G_esc_tc=`$ECHO "$_G_tc" | $SED "$sed_make_literal_regex"` + _G_indent=`$ECHO "$_G_indent" | $SED "s|$_G_esc_tc||g"` + } + done + _G_indent="$progname: "`echo "$_G_indent" | $SED 's|.| |g'`" " ## exclude from sc_prohibit_nested_quotes + + func_echo_infix_1_IFS=$IFS + IFS=$nl + for _G_line in $_G_message; do + IFS=$func_echo_infix_1_IFS + $ECHO "$_G_prefix$tc_bold$_G_line$tc_reset" >&2 + _G_prefix=$_G_indent + done + IFS=$func_echo_infix_1_IFS +} + + +# func_error ARG... +# ----------------- +# Echo program name prefixed message to standard error. +func_error () +{ + $debug_cmd + + $require_term_colors + + func_echo_infix_1 " $tc_standout${tc_red}error$tc_reset" "$*" >&2 +} + + +# func_fatal_error ARG... +# ----------------------- +# Echo program name prefixed message to standard error, and exit. +func_fatal_error () +{ + $debug_cmd + + func_error "$*" + exit $EXIT_FAILURE +} + + +# func_grep EXPRESSION FILENAME +# ----------------------------- +# Check whether EXPRESSION matches any line of FILENAME, without output. +func_grep () +{ + $debug_cmd + + $GREP "$1" "$2" >/dev/null 2>&1 +} + + +# func_len STRING +# --------------- +# Set func_len_result to the length of STRING. STRING may not +# start with a hyphen. + test -z "$_G_HAVE_XSI_OPS" \ + && (eval 'x=a/b/c; + test 5aa/bb/cc = "${#x}${x%%/*}${x%/*}${x#*/}${x##*/}"') 2>/dev/null \ + && _G_HAVE_XSI_OPS=yes + +if test yes = "$_G_HAVE_XSI_OPS"; then + eval 'func_len () + { + $debug_cmd + + func_len_result=${#1} + }' +else + func_len () + { + $debug_cmd + + func_len_result=`expr "$1" : ".*" 2>/dev/null || echo $max_cmd_len` + } +fi + + +# func_mkdir_p DIRECTORY-PATH +# --------------------------- +# Make sure the entire path to DIRECTORY-PATH is available. +func_mkdir_p () +{ + $debug_cmd + + _G_directory_path=$1 + _G_dir_list= + + if test -n "$_G_directory_path" && test : != "$opt_dry_run"; then + + # Protect directory names starting with '-' + case $_G_directory_path in + -*) _G_directory_path=./$_G_directory_path ;; + esac + + # While some portion of DIR does not yet exist... + while test ! -d "$_G_directory_path"; do + # ...make a list in topmost first order. Use a colon delimited + # list incase some portion of path contains whitespace. + _G_dir_list=$_G_directory_path:$_G_dir_list + + # If the last portion added has no slash in it, the list is done + case $_G_directory_path in */*) ;; *) break ;; esac + + # ...otherwise throw away the child directory and loop + _G_directory_path=`$ECHO "$_G_directory_path" | $SED -e "$sed_dirname"` + done + _G_dir_list=`$ECHO "$_G_dir_list" | $SED 's|:*$||'` + + func_mkdir_p_IFS=$IFS; IFS=: + for _G_dir in $_G_dir_list; do + IFS=$func_mkdir_p_IFS + # mkdir can fail with a 'File exist' error if two processes + # try to create one of the directories concurrently. Don't + # stop in that case! + $MKDIR "$_G_dir" 2>/dev/null || : + done + IFS=$func_mkdir_p_IFS + + # Bail out if we (or some other process) failed to create a directory. + test -d "$_G_directory_path" || \ + func_fatal_error "Failed to create '$1'" + fi +} + + +# func_mktempdir [BASENAME] +# ------------------------- +# Make a temporary directory that won't clash with other running +# libtool processes, and avoids race conditions if possible. If +# given, BASENAME is the basename for that directory. +func_mktempdir () +{ + $debug_cmd + + _G_template=${TMPDIR-/tmp}/${1-$progname} + + if test : = "$opt_dry_run"; then + # Return a directory name, but don't create it in dry-run mode + _G_tmpdir=$_G_template-$$ + else + + # If mktemp works, use that first and foremost + _G_tmpdir=`mktemp -d "$_G_template-XXXXXXXX" 2>/dev/null` + + if test ! -d "$_G_tmpdir"; then + # Failing that, at least try and use $RANDOM to avoid a race + _G_tmpdir=$_G_template-${RANDOM-0}$$ + + func_mktempdir_umask=`umask` + umask 0077 + $MKDIR "$_G_tmpdir" + umask $func_mktempdir_umask + fi + + # If we're not in dry-run mode, bomb out on failure + test -d "$_G_tmpdir" || \ + func_fatal_error "cannot create temporary directory '$_G_tmpdir'" + fi + + $ECHO "$_G_tmpdir" +} + + +# func_normal_abspath PATH +# ------------------------ +# Remove doubled-up and trailing slashes, "." path components, +# and cancel out any ".." path components in PATH after making +# it an absolute path. +func_normal_abspath () +{ + $debug_cmd + + # These SED scripts presuppose an absolute path with a trailing slash. + _G_pathcar='s|^/\([^/]*\).*$|\1|' + _G_pathcdr='s|^/[^/]*||' + _G_removedotparts=':dotsl + s|/\./|/|g + t dotsl + s|/\.$|/|' + _G_collapseslashes='s|/\{1,\}|/|g' + _G_finalslash='s|/*$|/|' + + # Start from root dir and reassemble the path. + func_normal_abspath_result= + func_normal_abspath_tpath=$1 + func_normal_abspath_altnamespace= + case $func_normal_abspath_tpath in + "") + # Empty path, that just means $cwd. + func_stripname '' '/' "`pwd`" + func_normal_abspath_result=$func_stripname_result + return + ;; + # The next three entries are used to spot a run of precisely + # two leading slashes without using negated character classes; + # we take advantage of case's first-match behaviour. + ///*) + # Unusual form of absolute path, do nothing. + ;; + //*) + # Not necessarily an ordinary path; POSIX reserves leading '//' + # and for example Cygwin uses it to access remote file shares + # over CIFS/SMB, so we conserve a leading double slash if found. + func_normal_abspath_altnamespace=/ + ;; + /*) + # Absolute path, do nothing. + ;; + *) + # Relative path, prepend $cwd. + func_normal_abspath_tpath=`pwd`/$func_normal_abspath_tpath + ;; + esac + + # Cancel out all the simple stuff to save iterations. We also want + # the path to end with a slash for ease of parsing, so make sure + # there is one (and only one) here. + func_normal_abspath_tpath=`$ECHO "$func_normal_abspath_tpath" | $SED \ + -e "$_G_removedotparts" -e "$_G_collapseslashes" -e "$_G_finalslash"` + while :; do + # Processed it all yet? + if test / = "$func_normal_abspath_tpath"; then + # If we ascended to the root using ".." the result may be empty now. + if test -z "$func_normal_abspath_result"; then + func_normal_abspath_result=/ + fi + break + fi + func_normal_abspath_tcomponent=`$ECHO "$func_normal_abspath_tpath" | $SED \ + -e "$_G_pathcar"` + func_normal_abspath_tpath=`$ECHO "$func_normal_abspath_tpath" | $SED \ + -e "$_G_pathcdr"` + # Figure out what to do with it + case $func_normal_abspath_tcomponent in + "") + # Trailing empty path component, ignore it. + ;; + ..) + # Parent dir; strip last assembled component from result. + func_dirname "$func_normal_abspath_result" + func_normal_abspath_result=$func_dirname_result + ;; + *) + # Actual path component, append it. + func_append func_normal_abspath_result "/$func_normal_abspath_tcomponent" + ;; + esac + done + # Restore leading double-slash if one was found on entry. + func_normal_abspath_result=$func_normal_abspath_altnamespace$func_normal_abspath_result +} + + +# func_notquiet ARG... +# -------------------- +# Echo program name prefixed message only when not in quiet mode. +func_notquiet () +{ + $debug_cmd + + $opt_quiet || func_echo ${1+"$@"} + + # A bug in bash halts the script if the last line of a function + # fails when set -e is in force, so we need another command to + # work around that: + : +} + + +# func_relative_path SRCDIR DSTDIR +# -------------------------------- +# Set func_relative_path_result to the relative path from SRCDIR to DSTDIR. +func_relative_path () +{ + $debug_cmd + + func_relative_path_result= + func_normal_abspath "$1" + func_relative_path_tlibdir=$func_normal_abspath_result + func_normal_abspath "$2" + func_relative_path_tbindir=$func_normal_abspath_result + + # Ascend the tree starting from libdir + while :; do + # check if we have found a prefix of bindir + case $func_relative_path_tbindir in + $func_relative_path_tlibdir) + # found an exact match + func_relative_path_tcancelled= + break + ;; + $func_relative_path_tlibdir*) + # found a matching prefix + func_stripname "$func_relative_path_tlibdir" '' "$func_relative_path_tbindir" + func_relative_path_tcancelled=$func_stripname_result + if test -z "$func_relative_path_result"; then + func_relative_path_result=. + fi + break + ;; + *) + func_dirname $func_relative_path_tlibdir + func_relative_path_tlibdir=$func_dirname_result + if test -z "$func_relative_path_tlibdir"; then + # Have to descend all the way to the root! + func_relative_path_result=../$func_relative_path_result + func_relative_path_tcancelled=$func_relative_path_tbindir + break + fi + func_relative_path_result=../$func_relative_path_result + ;; + esac + done + + # Now calculate path; take care to avoid doubling-up slashes. + func_stripname '' '/' "$func_relative_path_result" + func_relative_path_result=$func_stripname_result + func_stripname '/' '/' "$func_relative_path_tcancelled" + if test -n "$func_stripname_result"; then + func_append func_relative_path_result "/$func_stripname_result" + fi + + # Normalisation. If bindir is libdir, return '.' else relative path. + if test -n "$func_relative_path_result"; then + func_stripname './' '' "$func_relative_path_result" + func_relative_path_result=$func_stripname_result + fi + + test -n "$func_relative_path_result" || func_relative_path_result=. + + : +} + + +# func_quote_for_eval ARG... +# -------------------------- +# Aesthetically quote ARGs to be evaled later. +# This function returns two values: +# i) func_quote_for_eval_result +# double-quoted, suitable for a subsequent eval +# ii) func_quote_for_eval_unquoted_result +# has all characters that are still active within double +# quotes backslashified. +func_quote_for_eval () +{ + $debug_cmd + + func_quote_for_eval_unquoted_result= + func_quote_for_eval_result= + while test 0 -lt $#; do + case $1 in + *[\\\`\"\$]*) + _G_unquoted_arg=`printf '%s\n' "$1" |$SED "$sed_quote_subst"` ;; + *) + _G_unquoted_arg=$1 ;; + esac + if test -n "$func_quote_for_eval_unquoted_result"; then + func_append func_quote_for_eval_unquoted_result " $_G_unquoted_arg" + else + func_append func_quote_for_eval_unquoted_result "$_G_unquoted_arg" + fi + + case $_G_unquoted_arg in + # Double-quote args containing shell metacharacters to delay + # word splitting, command substitution and variable expansion + # for a subsequent eval. + # Many Bourne shells cannot handle close brackets correctly + # in scan sets, so we specify it separately. + *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") + _G_quoted_arg=\"$_G_unquoted_arg\" + ;; + *) + _G_quoted_arg=$_G_unquoted_arg + ;; + esac + + if test -n "$func_quote_for_eval_result"; then + func_append func_quote_for_eval_result " $_G_quoted_arg" + else + func_append func_quote_for_eval_result "$_G_quoted_arg" + fi + shift + done +} + + +# func_quote_for_expand ARG +# ------------------------- +# Aesthetically quote ARG to be evaled later; same as above, +# but do not quote variable references. +func_quote_for_expand () +{ + $debug_cmd + + case $1 in + *[\\\`\"]*) + _G_arg=`$ECHO "$1" | $SED \ + -e "$sed_double_quote_subst" -e "$sed_double_backslash"` ;; + *) + _G_arg=$1 ;; + esac + + case $_G_arg in + # Double-quote args containing shell metacharacters to delay + # word splitting and command substitution for a subsequent eval. + # Many Bourne shells cannot handle close brackets correctly + # in scan sets, so we specify it separately. + *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") + _G_arg=\"$_G_arg\" + ;; + esac + + func_quote_for_expand_result=$_G_arg +} + + +# func_stripname PREFIX SUFFIX NAME +# --------------------------------- +# strip PREFIX and SUFFIX from NAME, and store in func_stripname_result. +# PREFIX and SUFFIX must not contain globbing or regex special +# characters, hashes, percent signs, but SUFFIX may contain a leading +# dot (in which case that matches only a dot). +if test yes = "$_G_HAVE_XSI_OPS"; then + eval 'func_stripname () + { + $debug_cmd + + # pdksh 5.2.14 does not do ${X%$Y} correctly if both X and Y are + # positional parameters, so assign one to ordinary variable first. + func_stripname_result=$3 + func_stripname_result=${func_stripname_result#"$1"} + func_stripname_result=${func_stripname_result%"$2"} + }' +else + func_stripname () + { + $debug_cmd + + case $2 in + .*) func_stripname_result=`$ECHO "$3" | $SED -e "s%^$1%%" -e "s%\\\\$2\$%%"`;; + *) func_stripname_result=`$ECHO "$3" | $SED -e "s%^$1%%" -e "s%$2\$%%"`;; + esac + } +fi + + +# func_show_eval CMD [FAIL_EXP] +# ----------------------------- +# Unless opt_quiet is true, then output CMD. Then, if opt_dryrun is +# not true, evaluate CMD. If the evaluation of CMD fails, and FAIL_EXP +# is given, then evaluate it. +func_show_eval () +{ + $debug_cmd + + _G_cmd=$1 + _G_fail_exp=${2-':'} + + func_quote_for_expand "$_G_cmd" + eval "func_notquiet $func_quote_for_expand_result" + + $opt_dry_run || { + eval "$_G_cmd" + _G_status=$? + if test 0 -ne "$_G_status"; then + eval "(exit $_G_status); $_G_fail_exp" + fi + } +} + + +# func_show_eval_locale CMD [FAIL_EXP] +# ------------------------------------ +# Unless opt_quiet is true, then output CMD. Then, if opt_dryrun is +# not true, evaluate CMD. If the evaluation of CMD fails, and FAIL_EXP +# is given, then evaluate it. Use the saved locale for evaluation. +func_show_eval_locale () +{ + $debug_cmd + + _G_cmd=$1 + _G_fail_exp=${2-':'} + + $opt_quiet || { + func_quote_for_expand "$_G_cmd" + eval "func_echo $func_quote_for_expand_result" + } + + $opt_dry_run || { + eval "$_G_user_locale + $_G_cmd" + _G_status=$? + eval "$_G_safe_locale" + if test 0 -ne "$_G_status"; then + eval "(exit $_G_status); $_G_fail_exp" + fi + } +} + + +# func_tr_sh +# ---------- +# Turn $1 into a string suitable for a shell variable name. +# Result is stored in $func_tr_sh_result. All characters +# not in the set a-zA-Z0-9_ are replaced with '_'. Further, +# if $1 begins with a digit, a '_' is prepended as well. +func_tr_sh () +{ + $debug_cmd + + case $1 in + [0-9]* | *[!a-zA-Z0-9_]*) + func_tr_sh_result=`$ECHO "$1" | $SED -e 's/^\([0-9]\)/_\1/' -e 's/[^a-zA-Z0-9_]/_/g'` + ;; + * ) + func_tr_sh_result=$1 + ;; + esac +} + + +# func_verbose ARG... +# ------------------- +# Echo program name prefixed message in verbose mode only. +func_verbose () +{ + $debug_cmd + + $opt_verbose && func_echo "$*" + + : +} + + +# func_warn_and_continue ARG... +# ----------------------------- +# Echo program name prefixed warning message to standard error. +func_warn_and_continue () +{ + $debug_cmd + + $require_term_colors + + func_echo_infix_1 "${tc_red}warning$tc_reset" "$*" >&2 +} + + +# func_warning CATEGORY ARG... +# ---------------------------- +# Echo program name prefixed warning message to standard error. Warning +# messages can be filtered according to CATEGORY, where this function +# elides messages where CATEGORY is not listed in the global variable +# 'opt_warning_types'. +func_warning () +{ + $debug_cmd + + # CATEGORY must be in the warning_categories list! + case " $warning_categories " in + *" $1 "*) ;; + *) func_internal_error "invalid warning category '$1'" ;; + esac + + _G_category=$1 + shift + + case " $opt_warning_types " in + *" $_G_category "*) $warning_func ${1+"$@"} ;; + esac +} + + +# func_sort_ver VER1 VER2 +# ----------------------- +# 'sort -V' is not generally available. +# Note this deviates from the version comparison in automake +# in that it treats 1.5 < 1.5.0, and treats 1.4.4a < 1.4-p3a +# but this should suffice as we won't be specifying old +# version formats or redundant trailing .0 in bootstrap.conf. +# If we did want full compatibility then we should probably +# use m4_version_compare from autoconf. +func_sort_ver () +{ + $debug_cmd + + printf '%s\n%s\n' "$1" "$2" \ + | sort -t. -k 1,1n -k 2,2n -k 3,3n -k 4,4n -k 5,5n -k 6,6n -k 7,7n -k 8,8n -k 9,9n +} + +# func_lt_ver PREV CURR +# --------------------- +# Return true if PREV and CURR are in the correct order according to +# func_sort_ver, otherwise false. Use it like this: +# +# func_lt_ver "$prev_ver" "$proposed_ver" || func_fatal_error "..." +func_lt_ver () +{ + $debug_cmd + + test "x$1" = x`func_sort_ver "$1" "$2" | $SED 1q` +} + + +# Local variables: +# mode: shell-script +# sh-indentation: 2 +# eval: (add-hook 'before-save-hook 'time-stamp) +# time-stamp-pattern: "10/scriptversion=%:y-%02m-%02d.%02H; # UTC" +# time-stamp-time-zone: "UTC" +# End: +#! /bin/sh + +# Set a version string for this script. +scriptversion=2014-01-07.03; # UTC + +# A portable, pluggable option parser for Bourne shell. +# Written by Gary V. Vaughan, 2010 + +# Copyright (C) 2010-2015 Free Software Foundation, Inc. +# This is free software; see the source for copying conditions. There is NO +# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +# This program is free software: you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation, either version 3 of the License, or +# (at your option) any later version. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. + +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + +# Please report bugs or propose patches to gary@gnu.org. + + +## ------ ## +## Usage. ## +## ------ ## + +# This file is a library for parsing options in your shell scripts along +# with assorted other useful supporting features that you can make use +# of too. +# +# For the simplest scripts you might need only: +# +# #!/bin/sh +# . relative/path/to/funclib.sh +# . relative/path/to/options-parser +# scriptversion=1.0 +# func_options ${1+"$@"} +# eval set dummy "$func_options_result"; shift +# ...rest of your script... +# +# In order for the '--version' option to work, you will need to have a +# suitably formatted comment like the one at the top of this file +# starting with '# Written by ' and ending with '# warranty; '. +# +# For '-h' and '--help' to work, you will also need a one line +# description of your script's purpose in a comment directly above the +# '# Written by ' line, like the one at the top of this file. +# +# The default options also support '--debug', which will turn on shell +# execution tracing (see the comment above debug_cmd below for another +# use), and '--verbose' and the func_verbose function to allow your script +# to display verbose messages only when your user has specified +# '--verbose'. +# +# After sourcing this file, you can plug processing for additional +# options by amending the variables from the 'Configuration' section +# below, and following the instructions in the 'Option parsing' +# section further down. + +## -------------- ## +## Configuration. ## +## -------------- ## + +# You should override these variables in your script after sourcing this +# file so that they reflect the customisations you have added to the +# option parser. + +# The usage line for option parsing errors and the start of '-h' and +# '--help' output messages. You can embed shell variables for delayed +# expansion at the time the message is displayed, but you will need to +# quote other shell meta-characters carefully to prevent them being +# expanded when the contents are evaled. +usage='$progpath [OPTION]...' + +# Short help message in response to '-h' and '--help'. Add to this or +# override it after sourcing this library to reflect the full set of +# options your script accepts. +usage_message="\ + --debug enable verbose shell tracing + -W, --warnings=CATEGORY + report the warnings falling in CATEGORY [all] + -v, --verbose verbosely report processing + --version print version information and exit + -h, --help print short or long help message and exit +" + +# Additional text appended to 'usage_message' in response to '--help'. +long_help_message=" +Warning categories include: + 'all' show all warnings + 'none' turn off all the warnings + 'error' warnings are treated as fatal errors" + +# Help message printed before fatal option parsing errors. +fatal_help="Try '\$progname --help' for more information." + + + +## ------------------------- ## +## Hook function management. ## +## ------------------------- ## + +# This section contains functions for adding, removing, and running hooks +# to the main code. A hook is just a named list of of function, that can +# be run in order later on. + +# func_hookable FUNC_NAME +# ----------------------- +# Declare that FUNC_NAME will run hooks added with +# 'func_add_hook FUNC_NAME ...'. +func_hookable () +{ + $debug_cmd + + func_append hookable_fns " $1" +} + + +# func_add_hook FUNC_NAME HOOK_FUNC +# --------------------------------- +# Request that FUNC_NAME call HOOK_FUNC before it returns. FUNC_NAME must +# first have been declared "hookable" by a call to 'func_hookable'. +func_add_hook () +{ + $debug_cmd + + case " $hookable_fns " in + *" $1 "*) ;; + *) func_fatal_error "'$1' does not accept hook functions." ;; + esac + + eval func_append ${1}_hooks '" $2"' +} + + +# func_remove_hook FUNC_NAME HOOK_FUNC +# ------------------------------------ +# Remove HOOK_FUNC from the list of functions called by FUNC_NAME. +func_remove_hook () +{ + $debug_cmd + + eval ${1}_hooks='`$ECHO "\$'$1'_hooks" |$SED "s| '$2'||"`' +} + + +# func_run_hooks FUNC_NAME [ARG]... +# --------------------------------- +# Run all hook functions registered to FUNC_NAME. +# It is assumed that the list of hook functions contains nothing more +# than a whitespace-delimited list of legal shell function names, and +# no effort is wasted trying to catch shell meta-characters or preserve +# whitespace. +func_run_hooks () +{ + $debug_cmd + + case " $hookable_fns " in + *" $1 "*) ;; + *) func_fatal_error "'$1' does not support hook funcions.n" ;; + esac + + eval _G_hook_fns=\$$1_hooks; shift + + for _G_hook in $_G_hook_fns; do + eval $_G_hook '"$@"' + + # store returned options list back into positional + # parameters for next 'cmd' execution. + eval _G_hook_result=\$${_G_hook}_result + eval set dummy "$_G_hook_result"; shift + done + + func_quote_for_eval ${1+"$@"} + func_run_hooks_result=$func_quote_for_eval_result +} + + + +## --------------- ## +## Option parsing. ## +## --------------- ## + +# In order to add your own option parsing hooks, you must accept the +# full positional parameter list in your hook function, remove any +# options that you action, and then pass back the remaining unprocessed +# options in '_result', escaped suitably for +# 'eval'. Like this: +# +# my_options_prep () +# { +# $debug_cmd +# +# # Extend the existing usage message. +# usage_message=$usage_message' +# -s, --silent don'\''t print informational messages +# ' +# +# func_quote_for_eval ${1+"$@"} +# my_options_prep_result=$func_quote_for_eval_result +# } +# func_add_hook func_options_prep my_options_prep +# +# +# my_silent_option () +# { +# $debug_cmd +# +# # Note that for efficiency, we parse as many options as we can +# # recognise in a loop before passing the remainder back to the +# # caller on the first unrecognised argument we encounter. +# while test $# -gt 0; do +# opt=$1; shift +# case $opt in +# --silent|-s) opt_silent=: ;; +# # Separate non-argument short options: +# -s*) func_split_short_opt "$_G_opt" +# set dummy "$func_split_short_opt_name" \ +# "-$func_split_short_opt_arg" ${1+"$@"} +# shift +# ;; +# *) set dummy "$_G_opt" "$*"; shift; break ;; +# esac +# done +# +# func_quote_for_eval ${1+"$@"} +# my_silent_option_result=$func_quote_for_eval_result +# } +# func_add_hook func_parse_options my_silent_option +# +# +# my_option_validation () +# { +# $debug_cmd +# +# $opt_silent && $opt_verbose && func_fatal_help "\ +# '--silent' and '--verbose' options are mutually exclusive." +# +# func_quote_for_eval ${1+"$@"} +# my_option_validation_result=$func_quote_for_eval_result +# } +# func_add_hook func_validate_options my_option_validation +# +# You'll alse need to manually amend $usage_message to reflect the extra +# options you parse. It's preferable to append if you can, so that +# multiple option parsing hooks can be added safely. + + +# func_options [ARG]... +# --------------------- +# All the functions called inside func_options are hookable. See the +# individual implementations for details. +func_hookable func_options +func_options () +{ + $debug_cmd + + func_options_prep ${1+"$@"} + eval func_parse_options \ + ${func_options_prep_result+"$func_options_prep_result"} + eval func_validate_options \ + ${func_parse_options_result+"$func_parse_options_result"} + + eval func_run_hooks func_options \ + ${func_validate_options_result+"$func_validate_options_result"} + + # save modified positional parameters for caller + func_options_result=$func_run_hooks_result +} + + +# func_options_prep [ARG]... +# -------------------------- +# All initialisations required before starting the option parse loop. +# Note that when calling hook functions, we pass through the list of +# positional parameters. If a hook function modifies that list, and +# needs to propogate that back to rest of this script, then the complete +# modified list must be put in 'func_run_hooks_result' before +# returning. +func_hookable func_options_prep +func_options_prep () +{ + $debug_cmd + + # Option defaults: + opt_verbose=false + opt_warning_types= + + func_run_hooks func_options_prep ${1+"$@"} + + # save modified positional parameters for caller + func_options_prep_result=$func_run_hooks_result +} + + +# func_parse_options [ARG]... +# --------------------------- +# The main option parsing loop. +func_hookable func_parse_options +func_parse_options () +{ + $debug_cmd + + func_parse_options_result= + + # this just eases exit handling + while test $# -gt 0; do + # Defer to hook functions for initial option parsing, so they + # get priority in the event of reusing an option name. + func_run_hooks func_parse_options ${1+"$@"} + + # Adjust func_parse_options positional parameters to match + eval set dummy "$func_run_hooks_result"; shift + + # Break out of the loop if we already parsed every option. + test $# -gt 0 || break + + _G_opt=$1 + shift + case $_G_opt in + --debug|-x) debug_cmd='set -x' + func_echo "enabling shell trace mode" + $debug_cmd + ;; + + --no-warnings|--no-warning|--no-warn) + set dummy --warnings none ${1+"$@"} + shift + ;; + + --warnings|--warning|-W) + test $# = 0 && func_missing_arg $_G_opt && break + case " $warning_categories $1" in + *" $1 "*) + # trailing space prevents matching last $1 above + func_append_uniq opt_warning_types " $1" + ;; + *all) + opt_warning_types=$warning_categories + ;; + *none) + opt_warning_types=none + warning_func=: + ;; + *error) + opt_warning_types=$warning_categories + warning_func=func_fatal_error + ;; + *) + func_fatal_error \ + "unsupported warning category: '$1'" + ;; + esac + shift + ;; + + --verbose|-v) opt_verbose=: ;; + --version) func_version ;; + -\?|-h) func_usage ;; + --help) func_help ;; + + # Separate optargs to long options (plugins may need this): + --*=*) func_split_equals "$_G_opt" + set dummy "$func_split_equals_lhs" \ + "$func_split_equals_rhs" ${1+"$@"} + shift + ;; + + # Separate optargs to short options: + -W*) + func_split_short_opt "$_G_opt" + set dummy "$func_split_short_opt_name" \ + "$func_split_short_opt_arg" ${1+"$@"} + shift + ;; + + # Separate non-argument short options: + -\?*|-h*|-v*|-x*) + func_split_short_opt "$_G_opt" + set dummy "$func_split_short_opt_name" \ + "-$func_split_short_opt_arg" ${1+"$@"} + shift + ;; + + --) break ;; + -*) func_fatal_help "unrecognised option: '$_G_opt'" ;; + *) set dummy "$_G_opt" ${1+"$@"}; shift; break ;; + esac + done + + # save modified positional parameters for caller + func_quote_for_eval ${1+"$@"} + func_parse_options_result=$func_quote_for_eval_result +} + + +# func_validate_options [ARG]... +# ------------------------------ +# Perform any sanity checks on option settings and/or unconsumed +# arguments. +func_hookable func_validate_options +func_validate_options () +{ + $debug_cmd + + # Display all warnings if -W was not given. + test -n "$opt_warning_types" || opt_warning_types=" $warning_categories" + + func_run_hooks func_validate_options ${1+"$@"} + + # Bail if the options were screwed! + $exit_cmd $EXIT_FAILURE + + # save modified positional parameters for caller + func_validate_options_result=$func_run_hooks_result +} + + + +## ----------------- ## +## Helper functions. ## +## ----------------- ## + +# This section contains the helper functions used by the rest of the +# hookable option parser framework in ascii-betical order. + + +# func_fatal_help ARG... +# ---------------------- +# Echo program name prefixed message to standard error, followed by +# a help hint, and exit. +func_fatal_help () +{ + $debug_cmd + + eval \$ECHO \""Usage: $usage"\" + eval \$ECHO \""$fatal_help"\" + func_error ${1+"$@"} + exit $EXIT_FAILURE +} + + +# func_help +# --------- +# Echo long help message to standard output and exit. +func_help () +{ + $debug_cmd + + func_usage_message + $ECHO "$long_help_message" + exit 0 +} + + +# func_missing_arg ARGNAME +# ------------------------ +# Echo program name prefixed message to standard error and set global +# exit_cmd. +func_missing_arg () +{ + $debug_cmd + + func_error "Missing argument for '$1'." + exit_cmd=exit +} + + +# func_split_equals STRING +# ------------------------ +# Set func_split_equals_lhs and func_split_equals_rhs shell variables after +# splitting STRING at the '=' sign. +test -z "$_G_HAVE_XSI_OPS" \ + && (eval 'x=a/b/c; + test 5aa/bb/cc = "${#x}${x%%/*}${x%/*}${x#*/}${x##*/}"') 2>/dev/null \ + && _G_HAVE_XSI_OPS=yes + +if test yes = "$_G_HAVE_XSI_OPS" +then + # This is an XSI compatible shell, allowing a faster implementation... + eval 'func_split_equals () + { + $debug_cmd + + func_split_equals_lhs=${1%%=*} + func_split_equals_rhs=${1#*=} + test "x$func_split_equals_lhs" = "x$1" \ + && func_split_equals_rhs= + }' +else + # ...otherwise fall back to using expr, which is often a shell builtin. + func_split_equals () + { + $debug_cmd + + func_split_equals_lhs=`expr "x$1" : 'x\([^=]*\)'` + func_split_equals_rhs= + test "x$func_split_equals_lhs" = "x$1" \ + || func_split_equals_rhs=`expr "x$1" : 'x[^=]*=\(.*\)$'` + } +fi #func_split_equals + + +# func_split_short_opt SHORTOPT +# ----------------------------- +# Set func_split_short_opt_name and func_split_short_opt_arg shell +# variables after splitting SHORTOPT after the 2nd character. +if test yes = "$_G_HAVE_XSI_OPS" +then + # This is an XSI compatible shell, allowing a faster implementation... + eval 'func_split_short_opt () + { + $debug_cmd + + func_split_short_opt_arg=${1#??} + func_split_short_opt_name=${1%"$func_split_short_opt_arg"} + }' +else + # ...otherwise fall back to using expr, which is often a shell builtin. + func_split_short_opt () + { + $debug_cmd + + func_split_short_opt_name=`expr "x$1" : 'x-\(.\)'` + func_split_short_opt_arg=`expr "x$1" : 'x-.\(.*\)$'` + } +fi #func_split_short_opt + + +# func_usage +# ---------- +# Echo short help message to standard output and exit. +func_usage () +{ + $debug_cmd + + func_usage_message + $ECHO "Run '$progname --help |${PAGER-more}' for full usage" + exit 0 +} + + +# func_usage_message +# ------------------ +# Echo short help message to standard output. +func_usage_message () +{ + $debug_cmd + + eval \$ECHO \""Usage: $usage"\" + echo + $SED -n 's|^# || + /^Written by/{ + x;p;x + } + h + /^Written by/q' < "$progpath" + echo + eval \$ECHO \""$usage_message"\" +} + + +# func_version +# ------------ +# Echo version message to standard output and exit. +func_version () +{ + $debug_cmd + + printf '%s\n' "$progname $scriptversion" + $SED -n ' + /(C)/!b go + :more + /\./!{ + N + s|\n# | | + b more + } + :go + /^# Written by /,/# warranty; / { + s|^# || + s|^# *$|| + s|\((C)\)[ 0-9,-]*[ ,-]\([1-9][0-9]* \)|\1 \2| + p + } + /^# Written by / { + s|^# || + p + } + /^warranty; /q' < "$progpath" + + exit $? +} + + +# Local variables: +# mode: shell-script +# sh-indentation: 2 +# eval: (add-hook 'before-save-hook 'time-stamp) +# time-stamp-pattern: "10/scriptversion=%:y-%02m-%02d.%02H; # UTC" +# time-stamp-time-zone: "UTC" +# End: + +# Set a version string. +scriptversion='(GNU libtool) 2.4.6' + + +# func_echo ARG... +# ---------------- +# Libtool also displays the current mode in messages, so override +# funclib.sh func_echo with this custom definition. +func_echo () +{ + $debug_cmd + + _G_message=$* + + func_echo_IFS=$IFS + IFS=$nl + for _G_line in $_G_message; do + IFS=$func_echo_IFS + $ECHO "$progname${opt_mode+: $opt_mode}: $_G_line" + done + IFS=$func_echo_IFS +} + + +# func_warning ARG... +# ------------------- +# Libtool warnings are not categorized, so override funclib.sh +# func_warning with this simpler definition. +func_warning () +{ + $debug_cmd + + $warning_func ${1+"$@"} +} + + +## ---------------- ## +## Options parsing. ## +## ---------------- ## + +# Hook in the functions to make sure our own options are parsed during +# the option parsing loop. + +usage='$progpath [OPTION]... [MODE-ARG]...' + +# Short help message in response to '-h'. +usage_message="Options: + --config show all configuration variables + --debug enable verbose shell tracing + -n, --dry-run display commands without modifying any files + --features display basic configuration information and exit + --mode=MODE use operation mode MODE + --no-warnings equivalent to '-Wnone' + --preserve-dup-deps don't remove duplicate dependency libraries + --quiet, --silent don't print informational messages + --tag=TAG use configuration variables from tag TAG + -v, --verbose print more informational messages than default + --version print version information + -W, --warnings=CATEGORY report the warnings falling in CATEGORY [all] + -h, --help, --help-all print short, long, or detailed help message +" + +# Additional text appended to 'usage_message' in response to '--help'. +func_help () +{ + $debug_cmd + + func_usage_message + $ECHO "$long_help_message + +MODE must be one of the following: + + clean remove files from the build directory + compile compile a source file into a libtool object + execute automatically set library path, then run a program + finish complete the installation of libtool libraries + install install libraries or executables + link create a library or an executable + uninstall remove libraries from an installed directory + +MODE-ARGS vary depending on the MODE. When passed as first option, +'--mode=MODE' may be abbreviated as 'MODE' or a unique abbreviation of that. +Try '$progname --help --mode=MODE' for a more detailed description of MODE. + +When reporting a bug, please describe a test case to reproduce it and +include the following information: + + host-triplet: $host + shell: $SHELL + compiler: $LTCC + compiler flags: $LTCFLAGS + linker: $LD (gnu? $with_gnu_ld) + version: $progname (GNU libtool) 2.4.6 + automake: `($AUTOMAKE --version) 2>/dev/null |$SED 1q` + autoconf: `($AUTOCONF --version) 2>/dev/null |$SED 1q` + +Report bugs to . +GNU libtool home page: . +General help using GNU software: ." + exit 0 +} + + +# func_lo2o OBJECT-NAME +# --------------------- +# Transform OBJECT-NAME from a '.lo' suffix to the platform specific +# object suffix. + +lo2o=s/\\.lo\$/.$objext/ +o2lo=s/\\.$objext\$/.lo/ + +if test yes = "$_G_HAVE_XSI_OPS"; then + eval 'func_lo2o () + { + case $1 in + *.lo) func_lo2o_result=${1%.lo}.$objext ;; + * ) func_lo2o_result=$1 ;; + esac + }' + + # func_xform LIBOBJ-OR-SOURCE + # --------------------------- + # Transform LIBOBJ-OR-SOURCE from a '.o' or '.c' (or otherwise) + # suffix to a '.lo' libtool-object suffix. + eval 'func_xform () + { + func_xform_result=${1%.*}.lo + }' +else + # ...otherwise fall back to using sed. + func_lo2o () + { + func_lo2o_result=`$ECHO "$1" | $SED "$lo2o"` + } + + func_xform () + { + func_xform_result=`$ECHO "$1" | $SED 's|\.[^.]*$|.lo|'` + } +fi + + +# func_fatal_configuration ARG... +# ------------------------------- +# Echo program name prefixed message to standard error, followed by +# a configuration failure hint, and exit. +func_fatal_configuration () +{ + func__fatal_error ${1+"$@"} \ + "See the $PACKAGE documentation for more information." \ + "Fatal configuration error." +} + + +# func_config +# ----------- +# Display the configuration for all the tags in this script. +func_config () +{ + re_begincf='^# ### BEGIN LIBTOOL' + re_endcf='^# ### END LIBTOOL' + + # Default configuration. + $SED "1,/$re_begincf CONFIG/d;/$re_endcf CONFIG/,\$d" < "$progpath" + + # Now print the configurations for the tags. + for tagname in $taglist; do + $SED -n "/$re_begincf TAG CONFIG: $tagname\$/,/$re_endcf TAG CONFIG: $tagname\$/p" < "$progpath" + done + + exit $? +} + + +# func_features +# ------------- +# Display the features supported by this script. +func_features () +{ + echo "host: $host" + if test yes = "$build_libtool_libs"; then + echo "enable shared libraries" + else + echo "disable shared libraries" + fi + if test yes = "$build_old_libs"; then + echo "enable static libraries" + else + echo "disable static libraries" + fi + + exit $? +} + + +# func_enable_tag TAGNAME +# ----------------------- +# Verify that TAGNAME is valid, and either flag an error and exit, or +# enable the TAGNAME tag. We also add TAGNAME to the global $taglist +# variable here. +func_enable_tag () +{ + # Global variable: + tagname=$1 + + re_begincf="^# ### BEGIN LIBTOOL TAG CONFIG: $tagname\$" + re_endcf="^# ### END LIBTOOL TAG CONFIG: $tagname\$" + sed_extractcf=/$re_begincf/,/$re_endcf/p + + # Validate tagname. + case $tagname in + *[!-_A-Za-z0-9,/]*) + func_fatal_error "invalid tag name: $tagname" + ;; + esac + + # Don't test for the "default" C tag, as we know it's + # there but not specially marked. + case $tagname in + CC) ;; + *) + if $GREP "$re_begincf" "$progpath" >/dev/null 2>&1; then + taglist="$taglist $tagname" + + # Evaluate the configuration. Be careful to quote the path + # and the sed script, to avoid splitting on whitespace, but + # also don't use non-portable quotes within backquotes within + # quotes we have to do it in 2 steps: + extractedcf=`$SED -n -e "$sed_extractcf" < "$progpath"` + eval "$extractedcf" + else + func_error "ignoring unknown tag $tagname" + fi + ;; + esac +} + + +# func_check_version_match +# ------------------------ +# Ensure that we are using m4 macros, and libtool script from the same +# release of libtool. +func_check_version_match () +{ + if test "$package_revision" != "$macro_revision"; then + if test "$VERSION" != "$macro_version"; then + if test -z "$macro_version"; then + cat >&2 <<_LT_EOF +$progname: Version mismatch error. This is $PACKAGE $VERSION, but the +$progname: definition of this LT_INIT comes from an older release. +$progname: You should recreate aclocal.m4 with macros from $PACKAGE $VERSION +$progname: and run autoconf again. +_LT_EOF + else + cat >&2 <<_LT_EOF +$progname: Version mismatch error. This is $PACKAGE $VERSION, but the +$progname: definition of this LT_INIT comes from $PACKAGE $macro_version. +$progname: You should recreate aclocal.m4 with macros from $PACKAGE $VERSION +$progname: and run autoconf again. +_LT_EOF + fi + else + cat >&2 <<_LT_EOF +$progname: Version mismatch error. This is $PACKAGE $VERSION, revision $package_revision, +$progname: but the definition of this LT_INIT comes from revision $macro_revision. +$progname: You should recreate aclocal.m4 with macros from revision $package_revision +$progname: of $PACKAGE $VERSION and run autoconf again. +_LT_EOF + fi + + exit $EXIT_MISMATCH + fi +} + + +# libtool_options_prep [ARG]... +# ----------------------------- +# Preparation for options parsed by libtool. +libtool_options_prep () +{ + $debug_mode + + # Option defaults: + opt_config=false + opt_dlopen= + opt_dry_run=false + opt_help=false + opt_mode= + opt_preserve_dup_deps=false + opt_quiet=false + + nonopt= + preserve_args= + + # Shorthand for --mode=foo, only valid as the first argument + case $1 in + clean|clea|cle|cl) + shift; set dummy --mode clean ${1+"$@"}; shift + ;; + compile|compil|compi|comp|com|co|c) + shift; set dummy --mode compile ${1+"$@"}; shift + ;; + execute|execut|execu|exec|exe|ex|e) + shift; set dummy --mode execute ${1+"$@"}; shift + ;; + finish|finis|fini|fin|fi|f) + shift; set dummy --mode finish ${1+"$@"}; shift + ;; + install|instal|insta|inst|ins|in|i) + shift; set dummy --mode install ${1+"$@"}; shift + ;; + link|lin|li|l) + shift; set dummy --mode link ${1+"$@"}; shift + ;; + uninstall|uninstal|uninsta|uninst|unins|unin|uni|un|u) + shift; set dummy --mode uninstall ${1+"$@"}; shift + ;; + esac + + # Pass back the list of options. + func_quote_for_eval ${1+"$@"} + libtool_options_prep_result=$func_quote_for_eval_result +} +func_add_hook func_options_prep libtool_options_prep + + +# libtool_parse_options [ARG]... +# --------------------------------- +# Provide handling for libtool specific options. +libtool_parse_options () +{ + $debug_cmd + + # Perform our own loop to consume as many options as possible in + # each iteration. + while test $# -gt 0; do + _G_opt=$1 + shift + case $_G_opt in + --dry-run|--dryrun|-n) + opt_dry_run=: + ;; + + --config) func_config ;; + + --dlopen|-dlopen) + opt_dlopen="${opt_dlopen+$opt_dlopen +}$1" + shift + ;; + + --preserve-dup-deps) + opt_preserve_dup_deps=: ;; + + --features) func_features ;; + + --finish) set dummy --mode finish ${1+"$@"}; shift ;; + + --help) opt_help=: ;; + + --help-all) opt_help=': help-all' ;; + + --mode) test $# = 0 && func_missing_arg $_G_opt && break + opt_mode=$1 + case $1 in + # Valid mode arguments: + clean|compile|execute|finish|install|link|relink|uninstall) ;; + + # Catch anything else as an error + *) func_error "invalid argument for $_G_opt" + exit_cmd=exit + break + ;; + esac + shift + ;; + + --no-silent|--no-quiet) + opt_quiet=false + func_append preserve_args " $_G_opt" + ;; + + --no-warnings|--no-warning|--no-warn) + opt_warning=false + func_append preserve_args " $_G_opt" + ;; + + --no-verbose) + opt_verbose=false + func_append preserve_args " $_G_opt" + ;; + + --silent|--quiet) + opt_quiet=: + opt_verbose=false + func_append preserve_args " $_G_opt" + ;; + + --tag) test $# = 0 && func_missing_arg $_G_opt && break + opt_tag=$1 + func_append preserve_args " $_G_opt $1" + func_enable_tag "$1" + shift + ;; + + --verbose|-v) opt_quiet=false + opt_verbose=: + func_append preserve_args " $_G_opt" + ;; + + # An option not handled by this hook function: + *) set dummy "$_G_opt" ${1+"$@"}; shift; break ;; + esac + done + + + # save modified positional parameters for caller + func_quote_for_eval ${1+"$@"} + libtool_parse_options_result=$func_quote_for_eval_result +} +func_add_hook func_parse_options libtool_parse_options + + + +# libtool_validate_options [ARG]... +# --------------------------------- +# Perform any sanity checks on option settings and/or unconsumed +# arguments. +libtool_validate_options () +{ + # save first non-option argument + if test 0 -lt $#; then + nonopt=$1 + shift + fi + + # preserve --debug + test : = "$debug_cmd" || func_append preserve_args " --debug" + + case $host in + # Solaris2 added to fix http://debbugs.gnu.org/cgi/bugreport.cgi?bug=16452 + # see also: http://gcc.gnu.org/bugzilla/show_bug.cgi?id=59788 + *cygwin* | *mingw* | *pw32* | *cegcc* | *solaris2* | *os2*) + # don't eliminate duplications in $postdeps and $predeps + opt_duplicate_compiler_generated_deps=: + ;; + *) + opt_duplicate_compiler_generated_deps=$opt_preserve_dup_deps + ;; + esac + + $opt_help || { + # Sanity checks first: + func_check_version_match + + test yes != "$build_libtool_libs" \ + && test yes != "$build_old_libs" \ + && func_fatal_configuration "not configured to build any kind of library" + + # Darwin sucks + eval std_shrext=\"$shrext_cmds\" + + # Only execute mode is allowed to have -dlopen flags. + if test -n "$opt_dlopen" && test execute != "$opt_mode"; then + func_error "unrecognized option '-dlopen'" + $ECHO "$help" 1>&2 + exit $EXIT_FAILURE + fi + + # Change the help message to a mode-specific one. + generic_help=$help + help="Try '$progname --help --mode=$opt_mode' for more information." + } + + # Pass back the unparsed argument list + func_quote_for_eval ${1+"$@"} + libtool_validate_options_result=$func_quote_for_eval_result +} +func_add_hook func_validate_options libtool_validate_options + + +# Process options as early as possible so that --help and --version +# can return quickly. +func_options ${1+"$@"} +eval set dummy "$func_options_result"; shift + + + +## ----------- ## +## Main. ## +## ----------- ## + +magic='%%%MAGIC variable%%%' +magic_exe='%%%MAGIC EXE variable%%%' + +# Global variables. +extracted_archives= +extracted_serial=0 + +# If this variable is set in any of the actions, the command in it +# will be execed at the end. This prevents here-documents from being +# left over by shells. +exec_cmd= + + +# A function that is used when there is no print builtin or printf. +func_fallback_echo () +{ + eval 'cat <<_LTECHO_EOF +$1 +_LTECHO_EOF' +} + +# func_generated_by_libtool +# True iff stdin has been generated by Libtool. This function is only +# a basic sanity check; it will hardly flush out determined imposters. +func_generated_by_libtool_p () +{ + $GREP "^# Generated by .*$PACKAGE" > /dev/null 2>&1 +} + +# func_lalib_p file +# True iff FILE is a libtool '.la' library or '.lo' object file. +# This function is only a basic sanity check; it will hardly flush out +# determined imposters. +func_lalib_p () +{ + test -f "$1" && + $SED -e 4q "$1" 2>/dev/null | func_generated_by_libtool_p +} + +# func_lalib_unsafe_p file +# True iff FILE is a libtool '.la' library or '.lo' object file. +# This function implements the same check as func_lalib_p without +# resorting to external programs. To this end, it redirects stdin and +# closes it afterwards, without saving the original file descriptor. +# As a safety measure, use it only where a negative result would be +# fatal anyway. Works if 'file' does not exist. +func_lalib_unsafe_p () +{ + lalib_p=no + if test -f "$1" && test -r "$1" && exec 5<&0 <"$1"; then + for lalib_p_l in 1 2 3 4 + do + read lalib_p_line + case $lalib_p_line in + \#\ Generated\ by\ *$PACKAGE* ) lalib_p=yes; break;; + esac + done + exec 0<&5 5<&- + fi + test yes = "$lalib_p" +} + +# func_ltwrapper_script_p file +# True iff FILE is a libtool wrapper script +# This function is only a basic sanity check; it will hardly flush out +# determined imposters. +func_ltwrapper_script_p () +{ + test -f "$1" && + $lt_truncate_bin < "$1" 2>/dev/null | func_generated_by_libtool_p +} + +# func_ltwrapper_executable_p file +# True iff FILE is a libtool wrapper executable +# This function is only a basic sanity check; it will hardly flush out +# determined imposters. +func_ltwrapper_executable_p () +{ + func_ltwrapper_exec_suffix= + case $1 in + *.exe) ;; + *) func_ltwrapper_exec_suffix=.exe ;; + esac + $GREP "$magic_exe" "$1$func_ltwrapper_exec_suffix" >/dev/null 2>&1 +} + +# func_ltwrapper_scriptname file +# Assumes file is an ltwrapper_executable +# uses $file to determine the appropriate filename for a +# temporary ltwrapper_script. +func_ltwrapper_scriptname () +{ + func_dirname_and_basename "$1" "" "." + func_stripname '' '.exe' "$func_basename_result" + func_ltwrapper_scriptname_result=$func_dirname_result/$objdir/${func_stripname_result}_ltshwrapper +} + +# func_ltwrapper_p file +# True iff FILE is a libtool wrapper script or wrapper executable +# This function is only a basic sanity check; it will hardly flush out +# determined imposters. +func_ltwrapper_p () +{ + func_ltwrapper_script_p "$1" || func_ltwrapper_executable_p "$1" +} + + +# func_execute_cmds commands fail_cmd +# Execute tilde-delimited COMMANDS. +# If FAIL_CMD is given, eval that upon failure. +# FAIL_CMD may read-access the current command in variable CMD! +func_execute_cmds () +{ + $debug_cmd + + save_ifs=$IFS; IFS='~' + for cmd in $1; do + IFS=$sp$nl + eval cmd=\"$cmd\" + IFS=$save_ifs + func_show_eval "$cmd" "${2-:}" + done + IFS=$save_ifs +} + + +# func_source file +# Source FILE, adding directory component if necessary. +# Note that it is not necessary on cygwin/mingw to append a dot to +# FILE even if both FILE and FILE.exe exist: automatic-append-.exe +# behavior happens only for exec(3), not for open(2)! Also, sourcing +# 'FILE.' does not work on cygwin managed mounts. +func_source () +{ + $debug_cmd + + case $1 in + */* | *\\*) . "$1" ;; + *) . "./$1" ;; + esac +} + + +# func_resolve_sysroot PATH +# Replace a leading = in PATH with a sysroot. Store the result into +# func_resolve_sysroot_result +func_resolve_sysroot () +{ + func_resolve_sysroot_result=$1 + case $func_resolve_sysroot_result in + =*) + func_stripname '=' '' "$func_resolve_sysroot_result" + func_resolve_sysroot_result=$lt_sysroot$func_stripname_result + ;; + esac +} + +# func_replace_sysroot PATH +# If PATH begins with the sysroot, replace it with = and +# store the result into func_replace_sysroot_result. +func_replace_sysroot () +{ + case $lt_sysroot:$1 in + ?*:"$lt_sysroot"*) + func_stripname "$lt_sysroot" '' "$1" + func_replace_sysroot_result='='$func_stripname_result + ;; + *) + # Including no sysroot. + func_replace_sysroot_result=$1 + ;; + esac +} + +# func_infer_tag arg +# Infer tagged configuration to use if any are available and +# if one wasn't chosen via the "--tag" command line option. +# Only attempt this if the compiler in the base compile +# command doesn't match the default compiler. +# arg is usually of the form 'gcc ...' +func_infer_tag () +{ + $debug_cmd + + if test -n "$available_tags" && test -z "$tagname"; then + CC_quoted= + for arg in $CC; do + func_append_quoted CC_quoted "$arg" + done + CC_expanded=`func_echo_all $CC` + CC_quoted_expanded=`func_echo_all $CC_quoted` + case $@ in + # Blanks in the command may have been stripped by the calling shell, + # but not from the CC environment variable when configure was run. + " $CC "* | "$CC "* | " $CC_expanded "* | "$CC_expanded "* | \ + " $CC_quoted"* | "$CC_quoted "* | " $CC_quoted_expanded "* | "$CC_quoted_expanded "*) ;; + # Blanks at the start of $base_compile will cause this to fail + # if we don't check for them as well. + *) + for z in $available_tags; do + if $GREP "^# ### BEGIN LIBTOOL TAG CONFIG: $z$" < "$progpath" > /dev/null; then + # Evaluate the configuration. + eval "`$SED -n -e '/^# ### BEGIN LIBTOOL TAG CONFIG: '$z'$/,/^# ### END LIBTOOL TAG CONFIG: '$z'$/p' < $progpath`" + CC_quoted= + for arg in $CC; do + # Double-quote args containing other shell metacharacters. + func_append_quoted CC_quoted "$arg" + done + CC_expanded=`func_echo_all $CC` + CC_quoted_expanded=`func_echo_all $CC_quoted` + case "$@ " in + " $CC "* | "$CC "* | " $CC_expanded "* | "$CC_expanded "* | \ + " $CC_quoted"* | "$CC_quoted "* | " $CC_quoted_expanded "* | "$CC_quoted_expanded "*) + # The compiler in the base compile command matches + # the one in the tagged configuration. + # Assume this is the tagged configuration we want. + tagname=$z + break + ;; + esac + fi + done + # If $tagname still isn't set, then no tagged configuration + # was found and let the user know that the "--tag" command + # line option must be used. + if test -z "$tagname"; then + func_echo "unable to infer tagged configuration" + func_fatal_error "specify a tag with '--tag'" +# else +# func_verbose "using $tagname tagged configuration" + fi + ;; + esac + fi +} + + + +# func_write_libtool_object output_name pic_name nonpic_name +# Create a libtool object file (analogous to a ".la" file), +# but don't create it if we're doing a dry run. +func_write_libtool_object () +{ + write_libobj=$1 + if test yes = "$build_libtool_libs"; then + write_lobj=\'$2\' + else + write_lobj=none + fi + + if test yes = "$build_old_libs"; then + write_oldobj=\'$3\' + else + write_oldobj=none + fi + + $opt_dry_run || { + cat >${write_libobj}T </dev/null` + if test "$?" -eq 0 && test -n "$func_convert_core_file_wine_to_w32_tmp"; then + func_convert_core_file_wine_to_w32_result=`$ECHO "$func_convert_core_file_wine_to_w32_tmp" | + $SED -e "$sed_naive_backslashify"` + else + func_convert_core_file_wine_to_w32_result= + fi + fi +} +# end: func_convert_core_file_wine_to_w32 + + +# func_convert_core_path_wine_to_w32 ARG +# Helper function used by path conversion functions when $build is *nix, and +# $host is mingw, cygwin, or some other w32 environment. Relies on a correctly +# configured wine environment available, with the winepath program in $build's +# $PATH. Assumes ARG has no leading or trailing path separator characters. +# +# ARG is path to be converted from $build format to win32. +# Result is available in $func_convert_core_path_wine_to_w32_result. +# Unconvertible file (directory) names in ARG are skipped; if no directory names +# are convertible, then the result may be empty. +func_convert_core_path_wine_to_w32 () +{ + $debug_cmd + + # unfortunately, winepath doesn't convert paths, only file names + func_convert_core_path_wine_to_w32_result= + if test -n "$1"; then + oldIFS=$IFS + IFS=: + for func_convert_core_path_wine_to_w32_f in $1; do + IFS=$oldIFS + func_convert_core_file_wine_to_w32 "$func_convert_core_path_wine_to_w32_f" + if test -n "$func_convert_core_file_wine_to_w32_result"; then + if test -z "$func_convert_core_path_wine_to_w32_result"; then + func_convert_core_path_wine_to_w32_result=$func_convert_core_file_wine_to_w32_result + else + func_append func_convert_core_path_wine_to_w32_result ";$func_convert_core_file_wine_to_w32_result" + fi + fi + done + IFS=$oldIFS + fi +} +# end: func_convert_core_path_wine_to_w32 + + +# func_cygpath ARGS... +# Wrapper around calling the cygpath program via LT_CYGPATH. This is used when +# when (1) $build is *nix and Cygwin is hosted via a wine environment; or (2) +# $build is MSYS and $host is Cygwin, or (3) $build is Cygwin. In case (1) or +# (2), returns the Cygwin file name or path in func_cygpath_result (input +# file name or path is assumed to be in w32 format, as previously converted +# from $build's *nix or MSYS format). In case (3), returns the w32 file name +# or path in func_cygpath_result (input file name or path is assumed to be in +# Cygwin format). Returns an empty string on error. +# +# ARGS are passed to cygpath, with the last one being the file name or path to +# be converted. +# +# Specify the absolute *nix (or w32) name to cygpath in the LT_CYGPATH +# environment variable; do not put it in $PATH. +func_cygpath () +{ + $debug_cmd + + if test -n "$LT_CYGPATH" && test -f "$LT_CYGPATH"; then + func_cygpath_result=`$LT_CYGPATH "$@" 2>/dev/null` + if test "$?" -ne 0; then + # on failure, ensure result is empty + func_cygpath_result= + fi + else + func_cygpath_result= + func_error "LT_CYGPATH is empty or specifies non-existent file: '$LT_CYGPATH'" + fi +} +#end: func_cygpath + + +# func_convert_core_msys_to_w32 ARG +# Convert file name or path ARG from MSYS format to w32 format. Return +# result in func_convert_core_msys_to_w32_result. +func_convert_core_msys_to_w32 () +{ + $debug_cmd + + # awkward: cmd appends spaces to result + func_convert_core_msys_to_w32_result=`( cmd //c echo "$1" ) 2>/dev/null | + $SED -e 's/[ ]*$//' -e "$sed_naive_backslashify"` +} +#end: func_convert_core_msys_to_w32 + + +# func_convert_file_check ARG1 ARG2 +# Verify that ARG1 (a file name in $build format) was converted to $host +# format in ARG2. Otherwise, emit an error message, but continue (resetting +# func_to_host_file_result to ARG1). +func_convert_file_check () +{ + $debug_cmd + + if test -z "$2" && test -n "$1"; then + func_error "Could not determine host file name corresponding to" + func_error " '$1'" + func_error "Continuing, but uninstalled executables may not work." + # Fallback: + func_to_host_file_result=$1 + fi +} +# end func_convert_file_check + + +# func_convert_path_check FROM_PATHSEP TO_PATHSEP FROM_PATH TO_PATH +# Verify that FROM_PATH (a path in $build format) was converted to $host +# format in TO_PATH. Otherwise, emit an error message, but continue, resetting +# func_to_host_file_result to a simplistic fallback value (see below). +func_convert_path_check () +{ + $debug_cmd + + if test -z "$4" && test -n "$3"; then + func_error "Could not determine the host path corresponding to" + func_error " '$3'" + func_error "Continuing, but uninstalled executables may not work." + # Fallback. This is a deliberately simplistic "conversion" and + # should not be "improved". See libtool.info. + if test "x$1" != "x$2"; then + lt_replace_pathsep_chars="s|$1|$2|g" + func_to_host_path_result=`echo "$3" | + $SED -e "$lt_replace_pathsep_chars"` + else + func_to_host_path_result=$3 + fi + fi +} +# end func_convert_path_check + + +# func_convert_path_front_back_pathsep FRONTPAT BACKPAT REPL ORIG +# Modifies func_to_host_path_result by prepending REPL if ORIG matches FRONTPAT +# and appending REPL if ORIG matches BACKPAT. +func_convert_path_front_back_pathsep () +{ + $debug_cmd + + case $4 in + $1 ) func_to_host_path_result=$3$func_to_host_path_result + ;; + esac + case $4 in + $2 ) func_append func_to_host_path_result "$3" + ;; + esac +} +# end func_convert_path_front_back_pathsep + + +################################################## +# $build to $host FILE NAME CONVERSION FUNCTIONS # +################################################## +# invoked via '$to_host_file_cmd ARG' +# +# In each case, ARG is the path to be converted from $build to $host format. +# Result will be available in $func_to_host_file_result. + + +# func_to_host_file ARG +# Converts the file name ARG from $build format to $host format. Return result +# in func_to_host_file_result. +func_to_host_file () +{ + $debug_cmd + + $to_host_file_cmd "$1" +} +# end func_to_host_file + + +# func_to_tool_file ARG LAZY +# converts the file name ARG from $build format to toolchain format. Return +# result in func_to_tool_file_result. If the conversion in use is listed +# in (the comma separated) LAZY, no conversion takes place. +func_to_tool_file () +{ + $debug_cmd + + case ,$2, in + *,"$to_tool_file_cmd",*) + func_to_tool_file_result=$1 + ;; + *) + $to_tool_file_cmd "$1" + func_to_tool_file_result=$func_to_host_file_result + ;; + esac +} +# end func_to_tool_file + + +# func_convert_file_noop ARG +# Copy ARG to func_to_host_file_result. +func_convert_file_noop () +{ + func_to_host_file_result=$1 +} +# end func_convert_file_noop + + +# func_convert_file_msys_to_w32 ARG +# Convert file name ARG from (mingw) MSYS to (mingw) w32 format; automatic +# conversion to w32 is not available inside the cwrapper. Returns result in +# func_to_host_file_result. +func_convert_file_msys_to_w32 () +{ + $debug_cmd + + func_to_host_file_result=$1 + if test -n "$1"; then + func_convert_core_msys_to_w32 "$1" + func_to_host_file_result=$func_convert_core_msys_to_w32_result + fi + func_convert_file_check "$1" "$func_to_host_file_result" +} +# end func_convert_file_msys_to_w32 + + +# func_convert_file_cygwin_to_w32 ARG +# Convert file name ARG from Cygwin to w32 format. Returns result in +# func_to_host_file_result. +func_convert_file_cygwin_to_w32 () +{ + $debug_cmd + + func_to_host_file_result=$1 + if test -n "$1"; then + # because $build is cygwin, we call "the" cygpath in $PATH; no need to use + # LT_CYGPATH in this case. + func_to_host_file_result=`cygpath -m "$1"` + fi + func_convert_file_check "$1" "$func_to_host_file_result" +} +# end func_convert_file_cygwin_to_w32 + + +# func_convert_file_nix_to_w32 ARG +# Convert file name ARG from *nix to w32 format. Requires a wine environment +# and a working winepath. Returns result in func_to_host_file_result. +func_convert_file_nix_to_w32 () +{ + $debug_cmd + + func_to_host_file_result=$1 + if test -n "$1"; then + func_convert_core_file_wine_to_w32 "$1" + func_to_host_file_result=$func_convert_core_file_wine_to_w32_result + fi + func_convert_file_check "$1" "$func_to_host_file_result" +} +# end func_convert_file_nix_to_w32 + + +# func_convert_file_msys_to_cygwin ARG +# Convert file name ARG from MSYS to Cygwin format. Requires LT_CYGPATH set. +# Returns result in func_to_host_file_result. +func_convert_file_msys_to_cygwin () +{ + $debug_cmd + + func_to_host_file_result=$1 + if test -n "$1"; then + func_convert_core_msys_to_w32 "$1" + func_cygpath -u "$func_convert_core_msys_to_w32_result" + func_to_host_file_result=$func_cygpath_result + fi + func_convert_file_check "$1" "$func_to_host_file_result" +} +# end func_convert_file_msys_to_cygwin + + +# func_convert_file_nix_to_cygwin ARG +# Convert file name ARG from *nix to Cygwin format. Requires Cygwin installed +# in a wine environment, working winepath, and LT_CYGPATH set. Returns result +# in func_to_host_file_result. +func_convert_file_nix_to_cygwin () +{ + $debug_cmd + + func_to_host_file_result=$1 + if test -n "$1"; then + # convert from *nix to w32, then use cygpath to convert from w32 to cygwin. + func_convert_core_file_wine_to_w32 "$1" + func_cygpath -u "$func_convert_core_file_wine_to_w32_result" + func_to_host_file_result=$func_cygpath_result + fi + func_convert_file_check "$1" "$func_to_host_file_result" +} +# end func_convert_file_nix_to_cygwin + + +############################################# +# $build to $host PATH CONVERSION FUNCTIONS # +############################################# +# invoked via '$to_host_path_cmd ARG' +# +# In each case, ARG is the path to be converted from $build to $host format. +# The result will be available in $func_to_host_path_result. +# +# Path separators are also converted from $build format to $host format. If +# ARG begins or ends with a path separator character, it is preserved (but +# converted to $host format) on output. +# +# All path conversion functions are named using the following convention: +# file name conversion function : func_convert_file_X_to_Y () +# path conversion function : func_convert_path_X_to_Y () +# where, for any given $build/$host combination the 'X_to_Y' value is the +# same. If conversion functions are added for new $build/$host combinations, +# the two new functions must follow this pattern, or func_init_to_host_path_cmd +# will break. + + +# func_init_to_host_path_cmd +# Ensures that function "pointer" variable $to_host_path_cmd is set to the +# appropriate value, based on the value of $to_host_file_cmd. +to_host_path_cmd= +func_init_to_host_path_cmd () +{ + $debug_cmd + + if test -z "$to_host_path_cmd"; then + func_stripname 'func_convert_file_' '' "$to_host_file_cmd" + to_host_path_cmd=func_convert_path_$func_stripname_result + fi +} + + +# func_to_host_path ARG +# Converts the path ARG from $build format to $host format. Return result +# in func_to_host_path_result. +func_to_host_path () +{ + $debug_cmd + + func_init_to_host_path_cmd + $to_host_path_cmd "$1" +} +# end func_to_host_path + + +# func_convert_path_noop ARG +# Copy ARG to func_to_host_path_result. +func_convert_path_noop () +{ + func_to_host_path_result=$1 +} +# end func_convert_path_noop + + +# func_convert_path_msys_to_w32 ARG +# Convert path ARG from (mingw) MSYS to (mingw) w32 format; automatic +# conversion to w32 is not available inside the cwrapper. Returns result in +# func_to_host_path_result. +func_convert_path_msys_to_w32 () +{ + $debug_cmd + + func_to_host_path_result=$1 + if test -n "$1"; then + # Remove leading and trailing path separator characters from ARG. MSYS + # behavior is inconsistent here; cygpath turns them into '.;' and ';.'; + # and winepath ignores them completely. + func_stripname : : "$1" + func_to_host_path_tmp1=$func_stripname_result + func_convert_core_msys_to_w32 "$func_to_host_path_tmp1" + func_to_host_path_result=$func_convert_core_msys_to_w32_result + func_convert_path_check : ";" \ + "$func_to_host_path_tmp1" "$func_to_host_path_result" + func_convert_path_front_back_pathsep ":*" "*:" ";" "$1" + fi +} +# end func_convert_path_msys_to_w32 + + +# func_convert_path_cygwin_to_w32 ARG +# Convert path ARG from Cygwin to w32 format. Returns result in +# func_to_host_file_result. +func_convert_path_cygwin_to_w32 () +{ + $debug_cmd + + func_to_host_path_result=$1 + if test -n "$1"; then + # See func_convert_path_msys_to_w32: + func_stripname : : "$1" + func_to_host_path_tmp1=$func_stripname_result + func_to_host_path_result=`cygpath -m -p "$func_to_host_path_tmp1"` + func_convert_path_check : ";" \ + "$func_to_host_path_tmp1" "$func_to_host_path_result" + func_convert_path_front_back_pathsep ":*" "*:" ";" "$1" + fi +} +# end func_convert_path_cygwin_to_w32 + + +# func_convert_path_nix_to_w32 ARG +# Convert path ARG from *nix to w32 format. Requires a wine environment and +# a working winepath. Returns result in func_to_host_file_result. +func_convert_path_nix_to_w32 () +{ + $debug_cmd + + func_to_host_path_result=$1 + if test -n "$1"; then + # See func_convert_path_msys_to_w32: + func_stripname : : "$1" + func_to_host_path_tmp1=$func_stripname_result + func_convert_core_path_wine_to_w32 "$func_to_host_path_tmp1" + func_to_host_path_result=$func_convert_core_path_wine_to_w32_result + func_convert_path_check : ";" \ + "$func_to_host_path_tmp1" "$func_to_host_path_result" + func_convert_path_front_back_pathsep ":*" "*:" ";" "$1" + fi +} +# end func_convert_path_nix_to_w32 + + +# func_convert_path_msys_to_cygwin ARG +# Convert path ARG from MSYS to Cygwin format. Requires LT_CYGPATH set. +# Returns result in func_to_host_file_result. +func_convert_path_msys_to_cygwin () +{ + $debug_cmd + + func_to_host_path_result=$1 + if test -n "$1"; then + # See func_convert_path_msys_to_w32: + func_stripname : : "$1" + func_to_host_path_tmp1=$func_stripname_result + func_convert_core_msys_to_w32 "$func_to_host_path_tmp1" + func_cygpath -u -p "$func_convert_core_msys_to_w32_result" + func_to_host_path_result=$func_cygpath_result + func_convert_path_check : : \ + "$func_to_host_path_tmp1" "$func_to_host_path_result" + func_convert_path_front_back_pathsep ":*" "*:" : "$1" + fi +} +# end func_convert_path_msys_to_cygwin + + +# func_convert_path_nix_to_cygwin ARG +# Convert path ARG from *nix to Cygwin format. Requires Cygwin installed in a +# a wine environment, working winepath, and LT_CYGPATH set. Returns result in +# func_to_host_file_result. +func_convert_path_nix_to_cygwin () +{ + $debug_cmd + + func_to_host_path_result=$1 + if test -n "$1"; then + # Remove leading and trailing path separator characters from + # ARG. msys behavior is inconsistent here, cygpath turns them + # into '.;' and ';.', and winepath ignores them completely. + func_stripname : : "$1" + func_to_host_path_tmp1=$func_stripname_result + func_convert_core_path_wine_to_w32 "$func_to_host_path_tmp1" + func_cygpath -u -p "$func_convert_core_path_wine_to_w32_result" + func_to_host_path_result=$func_cygpath_result + func_convert_path_check : : \ + "$func_to_host_path_tmp1" "$func_to_host_path_result" + func_convert_path_front_back_pathsep ":*" "*:" : "$1" + fi +} +# end func_convert_path_nix_to_cygwin + + +# func_dll_def_p FILE +# True iff FILE is a Windows DLL '.def' file. +# Keep in sync with _LT_DLL_DEF_P in libtool.m4 +func_dll_def_p () +{ + $debug_cmd + + func_dll_def_p_tmp=`$SED -n \ + -e 's/^[ ]*//' \ + -e '/^\(;.*\)*$/d' \ + -e 's/^\(EXPORTS\|LIBRARY\)\([ ].*\)*$/DEF/p' \ + -e q \ + "$1"` + test DEF = "$func_dll_def_p_tmp" +} + + +# func_mode_compile arg... +func_mode_compile () +{ + $debug_cmd + + # Get the compilation command and the source file. + base_compile= + srcfile=$nonopt # always keep a non-empty value in "srcfile" + suppress_opt=yes + suppress_output= + arg_mode=normal + libobj= + later= + pie_flag= + + for arg + do + case $arg_mode in + arg ) + # do not "continue". Instead, add this to base_compile + lastarg=$arg + arg_mode=normal + ;; + + target ) + libobj=$arg + arg_mode=normal + continue + ;; + + normal ) + # Accept any command-line options. + case $arg in + -o) + test -n "$libobj" && \ + func_fatal_error "you cannot specify '-o' more than once" + arg_mode=target + continue + ;; + + -pie | -fpie | -fPIE) + func_append pie_flag " $arg" + continue + ;; + + -shared | -static | -prefer-pic | -prefer-non-pic) + func_append later " $arg" + continue + ;; + + -no-suppress) + suppress_opt=no + continue + ;; + + -Xcompiler) + arg_mode=arg # the next one goes into the "base_compile" arg list + continue # The current "srcfile" will either be retained or + ;; # replaced later. I would guess that would be a bug. + + -Wc,*) + func_stripname '-Wc,' '' "$arg" + args=$func_stripname_result + lastarg= + save_ifs=$IFS; IFS=, + for arg in $args; do + IFS=$save_ifs + func_append_quoted lastarg "$arg" + done + IFS=$save_ifs + func_stripname ' ' '' "$lastarg" + lastarg=$func_stripname_result + + # Add the arguments to base_compile. + func_append base_compile " $lastarg" + continue + ;; + + *) + # Accept the current argument as the source file. + # The previous "srcfile" becomes the current argument. + # + lastarg=$srcfile + srcfile=$arg + ;; + esac # case $arg + ;; + esac # case $arg_mode + + # Aesthetically quote the previous argument. + func_append_quoted base_compile "$lastarg" + done # for arg + + case $arg_mode in + arg) + func_fatal_error "you must specify an argument for -Xcompile" + ;; + target) + func_fatal_error "you must specify a target with '-o'" + ;; + *) + # Get the name of the library object. + test -z "$libobj" && { + func_basename "$srcfile" + libobj=$func_basename_result + } + ;; + esac + + # Recognize several different file suffixes. + # If the user specifies -o file.o, it is replaced with file.lo + case $libobj in + *.[cCFSifmso] | \ + *.ada | *.adb | *.ads | *.asm | \ + *.c++ | *.cc | *.ii | *.class | *.cpp | *.cxx | \ + *.[fF][09]? | *.for | *.java | *.go | *.obj | *.sx | *.cu | *.cup) + func_xform "$libobj" + libobj=$func_xform_result + ;; + esac + + case $libobj in + *.lo) func_lo2o "$libobj"; obj=$func_lo2o_result ;; + *) + func_fatal_error "cannot determine name of library object from '$libobj'" + ;; + esac + + func_infer_tag $base_compile + + for arg in $later; do + case $arg in + -shared) + test yes = "$build_libtool_libs" \ + || func_fatal_configuration "cannot build a shared library" + build_old_libs=no + continue + ;; + + -static) + build_libtool_libs=no + build_old_libs=yes + continue + ;; + + -prefer-pic) + pic_mode=yes + continue + ;; + + -prefer-non-pic) + pic_mode=no + continue + ;; + esac + done + + func_quote_for_eval "$libobj" + test "X$libobj" != "X$func_quote_for_eval_result" \ + && $ECHO "X$libobj" | $GREP '[]~#^*{};<>?"'"'"' &()|`$[]' \ + && func_warning "libobj name '$libobj' may not contain shell special characters." + func_dirname_and_basename "$obj" "/" "" + objname=$func_basename_result + xdir=$func_dirname_result + lobj=$xdir$objdir/$objname + + test -z "$base_compile" && \ + func_fatal_help "you must specify a compilation command" + + # Delete any leftover library objects. + if test yes = "$build_old_libs"; then + removelist="$obj $lobj $libobj ${libobj}T" + else + removelist="$lobj $libobj ${libobj}T" + fi + + # On Cygwin there's no "real" PIC flag so we must build both object types + case $host_os in + cygwin* | mingw* | pw32* | os2* | cegcc*) + pic_mode=default + ;; + esac + if test no = "$pic_mode" && test pass_all != "$deplibs_check_method"; then + # non-PIC code in shared libraries is not supported + pic_mode=default + fi + + # Calculate the filename of the output object if compiler does + # not support -o with -c + if test no = "$compiler_c_o"; then + output_obj=`$ECHO "$srcfile" | $SED 's%^.*/%%; s%\.[^.]*$%%'`.$objext + lockfile=$output_obj.lock + else + output_obj= + need_locks=no + lockfile= + fi + + # Lock this critical section if it is needed + # We use this script file to make the link, it avoids creating a new file + if test yes = "$need_locks"; then + until $opt_dry_run || ln "$progpath" "$lockfile" 2>/dev/null; do + func_echo "Waiting for $lockfile to be removed" + sleep 2 + done + elif test warn = "$need_locks"; then + if test -f "$lockfile"; then + $ECHO "\ +*** ERROR, $lockfile exists and contains: +`cat $lockfile 2>/dev/null` + +This indicates that another process is trying to use the same +temporary object file, and libtool could not work around it because +your compiler does not support '-c' and '-o' together. If you +repeat this compilation, it may succeed, by chance, but you had better +avoid parallel builds (make -j) in this platform, or get a better +compiler." + + $opt_dry_run || $RM $removelist + exit $EXIT_FAILURE + fi + func_append removelist " $output_obj" + $ECHO "$srcfile" > "$lockfile" + fi + + $opt_dry_run || $RM $removelist + func_append removelist " $lockfile" + trap '$opt_dry_run || $RM $removelist; exit $EXIT_FAILURE' 1 2 15 + + func_to_tool_file "$srcfile" func_convert_file_msys_to_w32 + srcfile=$func_to_tool_file_result + func_quote_for_eval "$srcfile" + qsrcfile=$func_quote_for_eval_result + + # Only build a PIC object if we are building libtool libraries. + if test yes = "$build_libtool_libs"; then + # Without this assignment, base_compile gets emptied. + fbsd_hideous_sh_bug=$base_compile + + if test no != "$pic_mode"; then + command="$base_compile $qsrcfile $pic_flag" + else + # Don't build PIC code + command="$base_compile $qsrcfile" + fi + + func_mkdir_p "$xdir$objdir" + + if test -z "$output_obj"; then + # Place PIC objects in $objdir + func_append command " -o $lobj" + fi + + func_show_eval_locale "$command" \ + 'test -n "$output_obj" && $RM $removelist; exit $EXIT_FAILURE' + + if test warn = "$need_locks" && + test "X`cat $lockfile 2>/dev/null`" != "X$srcfile"; then + $ECHO "\ +*** ERROR, $lockfile contains: +`cat $lockfile 2>/dev/null` + +but it should contain: +$srcfile + +This indicates that another process is trying to use the same +temporary object file, and libtool could not work around it because +your compiler does not support '-c' and '-o' together. If you +repeat this compilation, it may succeed, by chance, but you had better +avoid parallel builds (make -j) in this platform, or get a better +compiler." + + $opt_dry_run || $RM $removelist + exit $EXIT_FAILURE + fi + + # Just move the object if needed, then go on to compile the next one + if test -n "$output_obj" && test "X$output_obj" != "X$lobj"; then + func_show_eval '$MV "$output_obj" "$lobj"' \ + 'error=$?; $opt_dry_run || $RM $removelist; exit $error' + fi + + # Allow error messages only from the first compilation. + if test yes = "$suppress_opt"; then + suppress_output=' >/dev/null 2>&1' + fi + fi + + # Only build a position-dependent object if we build old libraries. + if test yes = "$build_old_libs"; then + if test yes != "$pic_mode"; then + # Don't build PIC code + command="$base_compile $qsrcfile$pie_flag" + else + command="$base_compile $qsrcfile $pic_flag" + fi + if test yes = "$compiler_c_o"; then + func_append command " -o $obj" + fi + + # Suppress compiler output if we already did a PIC compilation. + func_append command "$suppress_output" + func_show_eval_locale "$command" \ + '$opt_dry_run || $RM $removelist; exit $EXIT_FAILURE' + + if test warn = "$need_locks" && + test "X`cat $lockfile 2>/dev/null`" != "X$srcfile"; then + $ECHO "\ +*** ERROR, $lockfile contains: +`cat $lockfile 2>/dev/null` + +but it should contain: +$srcfile + +This indicates that another process is trying to use the same +temporary object file, and libtool could not work around it because +your compiler does not support '-c' and '-o' together. If you +repeat this compilation, it may succeed, by chance, but you had better +avoid parallel builds (make -j) in this platform, or get a better +compiler." + + $opt_dry_run || $RM $removelist + exit $EXIT_FAILURE + fi + + # Just move the object if needed + if test -n "$output_obj" && test "X$output_obj" != "X$obj"; then + func_show_eval '$MV "$output_obj" "$obj"' \ + 'error=$?; $opt_dry_run || $RM $removelist; exit $error' + fi + fi + + $opt_dry_run || { + func_write_libtool_object "$libobj" "$objdir/$objname" "$objname" + + # Unlock the critical section if it was locked + if test no != "$need_locks"; then + removelist=$lockfile + $RM "$lockfile" + fi + } + + exit $EXIT_SUCCESS +} + +$opt_help || { + test compile = "$opt_mode" && func_mode_compile ${1+"$@"} +} + +func_mode_help () +{ + # We need to display help for each of the modes. + case $opt_mode in + "") + # Generic help is extracted from the usage comments + # at the start of this file. + func_help + ;; + + clean) + $ECHO \ +"Usage: $progname [OPTION]... --mode=clean RM [RM-OPTION]... FILE... + +Remove files from the build directory. + +RM is the name of the program to use to delete files associated with each FILE +(typically '/bin/rm'). RM-OPTIONS are options (such as '-f') to be passed +to RM. + +If FILE is a libtool library, object or program, all the files associated +with it are deleted. Otherwise, only FILE itself is deleted using RM." + ;; + + compile) + $ECHO \ +"Usage: $progname [OPTION]... --mode=compile COMPILE-COMMAND... SOURCEFILE + +Compile a source file into a libtool library object. + +This mode accepts the following additional options: + + -o OUTPUT-FILE set the output file name to OUTPUT-FILE + -no-suppress do not suppress compiler output for multiple passes + -prefer-pic try to build PIC objects only + -prefer-non-pic try to build non-PIC objects only + -shared do not build a '.o' file suitable for static linking + -static only build a '.o' file suitable for static linking + -Wc,FLAG pass FLAG directly to the compiler + +COMPILE-COMMAND is a command to be used in creating a 'standard' object file +from the given SOURCEFILE. + +The output file name is determined by removing the directory component from +SOURCEFILE, then substituting the C source code suffix '.c' with the +library object suffix, '.lo'." + ;; + + execute) + $ECHO \ +"Usage: $progname [OPTION]... --mode=execute COMMAND [ARGS]... + +Automatically set library path, then run a program. + +This mode accepts the following additional options: + + -dlopen FILE add the directory containing FILE to the library path + +This mode sets the library path environment variable according to '-dlopen' +flags. + +If any of the ARGS are libtool executable wrappers, then they are translated +into their corresponding uninstalled binary, and any of their required library +directories are added to the library path. + +Then, COMMAND is executed, with ARGS as arguments." + ;; + + finish) + $ECHO \ +"Usage: $progname [OPTION]... --mode=finish [LIBDIR]... + +Complete the installation of libtool libraries. + +Each LIBDIR is a directory that contains libtool libraries. + +The commands that this mode executes may require superuser privileges. Use +the '--dry-run' option if you just want to see what would be executed." + ;; + + install) + $ECHO \ +"Usage: $progname [OPTION]... --mode=install INSTALL-COMMAND... + +Install executables or libraries. + +INSTALL-COMMAND is the installation command. The first component should be +either the 'install' or 'cp' program. + +The following components of INSTALL-COMMAND are treated specially: + + -inst-prefix-dir PREFIX-DIR Use PREFIX-DIR as a staging area for installation + +The rest of the components are interpreted as arguments to that command (only +BSD-compatible install options are recognized)." + ;; + + link) + $ECHO \ +"Usage: $progname [OPTION]... --mode=link LINK-COMMAND... + +Link object files or libraries together to form another library, or to +create an executable program. + +LINK-COMMAND is a command using the C compiler that you would use to create +a program from several object files. + +The following components of LINK-COMMAND are treated specially: + + -all-static do not do any dynamic linking at all + -static do not do any dynamic linking at all + -avoid-version do not add a version suffix if possible + -bindir BINDIR specify path to binaries directory (for systems where + libraries must be found in the PATH setting at runtime) + -dlopen FILE '-dlpreopen' FILE if it cannot be dlopened at runtime + -dlpreopen FILE link in FILE and add its symbols to lt_preloaded_symbols + -export-dynamic allow symbols from OUTPUT-FILE to be resolved with dlsym(3) + -export-symbols SYMFILE + try to export only the symbols listed in SYMFILE + -export-symbols-regex REGEX + try to export only the symbols matching REGEX + -LLIBDIR search LIBDIR for required installed libraries + -lNAME OUTPUT-FILE requires the installed library libNAME + -module build a library that can dlopened + -no-fast-install disable the fast-install mode + -no-install link a not-installable executable + -no-undefined declare that a library does not refer to external symbols + -o OUTPUT-FILE create OUTPUT-FILE from the specified objects + -objectlist FILE use a list of object files found in FILE to specify objects + -os2dllname NAME force a short DLL name on OS/2 (no effect on other OSes) + -precious-files-regex REGEX + don't remove output files matching REGEX + -release RELEASE specify package release information + -rpath LIBDIR the created library will eventually be installed in LIBDIR + -R[ ]LIBDIR add LIBDIR to the runtime path of programs and libraries + -shared only do dynamic linking of libtool libraries + -shrext SUFFIX override the standard shared library file extension + -static-uninstalled-libs + do not do any dynamic linking of uninstalled libtool libraries + -static-libtool-libs + do not do any dynamic linking of libtool libraries + -version-info CURRENT[:REVISION[:AGE]] + specify library version info [each variable defaults to 0] + -weak LIBNAME declare that the target provides the LIBNAME interface + -Wc,FLAG + -Xcompiler FLAG pass linker-specific FLAG directly to the compiler + -Wl,FLAG + -Xlinker FLAG pass linker-specific FLAG directly to the linker + -XCClinker FLAG pass link-specific FLAG to the compiler driver (CC) + +All other options (arguments beginning with '-') are ignored. + +Every other argument is treated as a filename. Files ending in '.la' are +treated as uninstalled libtool libraries, other files are standard or library +object files. + +If the OUTPUT-FILE ends in '.la', then a libtool library is created, +only library objects ('.lo' files) may be specified, and '-rpath' is +required, except when creating a convenience library. + +If OUTPUT-FILE ends in '.a' or '.lib', then a standard library is created +using 'ar' and 'ranlib', or on Windows using 'lib'. + +If OUTPUT-FILE ends in '.lo' or '.$objext', then a reloadable object file +is created, otherwise an executable program is created." + ;; + + uninstall) + $ECHO \ +"Usage: $progname [OPTION]... --mode=uninstall RM [RM-OPTION]... FILE... + +Remove libraries from an installation directory. + +RM is the name of the program to use to delete files associated with each FILE +(typically '/bin/rm'). RM-OPTIONS are options (such as '-f') to be passed +to RM. + +If FILE is a libtool library, all the files associated with it are deleted. +Otherwise, only FILE itself is deleted using RM." + ;; + + *) + func_fatal_help "invalid operation mode '$opt_mode'" + ;; + esac + + echo + $ECHO "Try '$progname --help' for more information about other modes." +} + +# Now that we've collected a possible --mode arg, show help if necessary +if $opt_help; then + if test : = "$opt_help"; then + func_mode_help + else + { + func_help noexit + for opt_mode in compile link execute install finish uninstall clean; do + func_mode_help + done + } | $SED -n '1p; 2,$s/^Usage:/ or: /p' + { + func_help noexit + for opt_mode in compile link execute install finish uninstall clean; do + echo + func_mode_help + done + } | + $SED '1d + /^When reporting/,/^Report/{ + H + d + } + $x + /information about other modes/d + /more detailed .*MODE/d + s/^Usage:.*--mode=\([^ ]*\) .*/Description of \1 mode:/' + fi + exit $? +fi + + +# func_mode_execute arg... +func_mode_execute () +{ + $debug_cmd + + # The first argument is the command name. + cmd=$nonopt + test -z "$cmd" && \ + func_fatal_help "you must specify a COMMAND" + + # Handle -dlopen flags immediately. + for file in $opt_dlopen; do + test -f "$file" \ + || func_fatal_help "'$file' is not a file" + + dir= + case $file in + *.la) + func_resolve_sysroot "$file" + file=$func_resolve_sysroot_result + + # Check to see that this really is a libtool archive. + func_lalib_unsafe_p "$file" \ + || func_fatal_help "'$lib' is not a valid libtool archive" + + # Read the libtool library. + dlname= + library_names= + func_source "$file" + + # Skip this library if it cannot be dlopened. + if test -z "$dlname"; then + # Warn if it was a shared library. + test -n "$library_names" && \ + func_warning "'$file' was not linked with '-export-dynamic'" + continue + fi + + func_dirname "$file" "" "." + dir=$func_dirname_result + + if test -f "$dir/$objdir/$dlname"; then + func_append dir "/$objdir" + else + if test ! -f "$dir/$dlname"; then + func_fatal_error "cannot find '$dlname' in '$dir' or '$dir/$objdir'" + fi + fi + ;; + + *.lo) + # Just add the directory containing the .lo file. + func_dirname "$file" "" "." + dir=$func_dirname_result + ;; + + *) + func_warning "'-dlopen' is ignored for non-libtool libraries and objects" + continue + ;; + esac + + # Get the absolute pathname. + absdir=`cd "$dir" && pwd` + test -n "$absdir" && dir=$absdir + + # Now add the directory to shlibpath_var. + if eval "test -z \"\$$shlibpath_var\""; then + eval "$shlibpath_var=\"\$dir\"" + else + eval "$shlibpath_var=\"\$dir:\$$shlibpath_var\"" + fi + done + + # This variable tells wrapper scripts just to set shlibpath_var + # rather than running their programs. + libtool_execute_magic=$magic + + # Check if any of the arguments is a wrapper script. + args= + for file + do + case $file in + -* | *.la | *.lo ) ;; + *) + # Do a test to see if this is really a libtool program. + if func_ltwrapper_script_p "$file"; then + func_source "$file" + # Transform arg to wrapped name. + file=$progdir/$program + elif func_ltwrapper_executable_p "$file"; then + func_ltwrapper_scriptname "$file" + func_source "$func_ltwrapper_scriptname_result" + # Transform arg to wrapped name. + file=$progdir/$program + fi + ;; + esac + # Quote arguments (to preserve shell metacharacters). + func_append_quoted args "$file" + done + + if $opt_dry_run; then + # Display what would be done. + if test -n "$shlibpath_var"; then + eval "\$ECHO \"\$shlibpath_var=\$$shlibpath_var\"" + echo "export $shlibpath_var" + fi + $ECHO "$cmd$args" + exit $EXIT_SUCCESS + else + if test -n "$shlibpath_var"; then + # Export the shlibpath_var. + eval "export $shlibpath_var" + fi + + # Restore saved environment variables + for lt_var in LANG LANGUAGE LC_ALL LC_CTYPE LC_COLLATE LC_MESSAGES + do + eval "if test \"\${save_$lt_var+set}\" = set; then + $lt_var=\$save_$lt_var; export $lt_var + else + $lt_unset $lt_var + fi" + done + + # Now prepare to actually exec the command. + exec_cmd=\$cmd$args + fi +} + +test execute = "$opt_mode" && func_mode_execute ${1+"$@"} + + +# func_mode_finish arg... +func_mode_finish () +{ + $debug_cmd + + libs= + libdirs= + admincmds= + + for opt in "$nonopt" ${1+"$@"} + do + if test -d "$opt"; then + func_append libdirs " $opt" + + elif test -f "$opt"; then + if func_lalib_unsafe_p "$opt"; then + func_append libs " $opt" + else + func_warning "'$opt' is not a valid libtool archive" + fi + + else + func_fatal_error "invalid argument '$opt'" + fi + done + + if test -n "$libs"; then + if test -n "$lt_sysroot"; then + sysroot_regex=`$ECHO "$lt_sysroot" | $SED "$sed_make_literal_regex"` + sysroot_cmd="s/\([ ']\)$sysroot_regex/\1/g;" + else + sysroot_cmd= + fi + + # Remove sysroot references + if $opt_dry_run; then + for lib in $libs; do + echo "removing references to $lt_sysroot and '=' prefixes from $lib" + done + else + tmpdir=`func_mktempdir` + for lib in $libs; do + $SED -e "$sysroot_cmd s/\([ ']-[LR]\)=/\1/g; s/\([ ']\)=/\1/g" $lib \ + > $tmpdir/tmp-la + mv -f $tmpdir/tmp-la $lib + done + ${RM}r "$tmpdir" + fi + fi + + if test -n "$finish_cmds$finish_eval" && test -n "$libdirs"; then + for libdir in $libdirs; do + if test -n "$finish_cmds"; then + # Do each command in the finish commands. + func_execute_cmds "$finish_cmds" 'admincmds="$admincmds +'"$cmd"'"' + fi + if test -n "$finish_eval"; then + # Do the single finish_eval. + eval cmds=\"$finish_eval\" + $opt_dry_run || eval "$cmds" || func_append admincmds " + $cmds" + fi + done + fi + + # Exit here if they wanted silent mode. + $opt_quiet && exit $EXIT_SUCCESS + + if test -n "$finish_cmds$finish_eval" && test -n "$libdirs"; then + echo "----------------------------------------------------------------------" + echo "Libraries have been installed in:" + for libdir in $libdirs; do + $ECHO " $libdir" + done + echo + echo "If you ever happen to want to link against installed libraries" + echo "in a given directory, LIBDIR, you must either use libtool, and" + echo "specify the full pathname of the library, or use the '-LLIBDIR'" + echo "flag during linking and do at least one of the following:" + if test -n "$shlibpath_var"; then + echo " - add LIBDIR to the '$shlibpath_var' environment variable" + echo " during execution" + fi + if test -n "$runpath_var"; then + echo " - add LIBDIR to the '$runpath_var' environment variable" + echo " during linking" + fi + if test -n "$hardcode_libdir_flag_spec"; then + libdir=LIBDIR + eval flag=\"$hardcode_libdir_flag_spec\" + + $ECHO " - use the '$flag' linker flag" + fi + if test -n "$admincmds"; then + $ECHO " - have your system administrator run these commands:$admincmds" + fi + if test -f /etc/ld.so.conf; then + echo " - have your system administrator add LIBDIR to '/etc/ld.so.conf'" + fi + echo + + echo "See any operating system documentation about shared libraries for" + case $host in + solaris2.[6789]|solaris2.1[0-9]) + echo "more information, such as the ld(1), crle(1) and ld.so(8) manual" + echo "pages." + ;; + *) + echo "more information, such as the ld(1) and ld.so(8) manual pages." + ;; + esac + echo "----------------------------------------------------------------------" + fi + exit $EXIT_SUCCESS +} + +test finish = "$opt_mode" && func_mode_finish ${1+"$@"} + + +# func_mode_install arg... +func_mode_install () +{ + $debug_cmd + + # There may be an optional sh(1) argument at the beginning of + # install_prog (especially on Windows NT). + if test "$SHELL" = "$nonopt" || test /bin/sh = "$nonopt" || + # Allow the use of GNU shtool's install command. + case $nonopt in *shtool*) :;; *) false;; esac + then + # Aesthetically quote it. + func_quote_for_eval "$nonopt" + install_prog="$func_quote_for_eval_result " + arg=$1 + shift + else + install_prog= + arg=$nonopt + fi + + # The real first argument should be the name of the installation program. + # Aesthetically quote it. + func_quote_for_eval "$arg" + func_append install_prog "$func_quote_for_eval_result" + install_shared_prog=$install_prog + case " $install_prog " in + *[\\\ /]cp\ *) install_cp=: ;; + *) install_cp=false ;; + esac + + # We need to accept at least all the BSD install flags. + dest= + files= + opts= + prev= + install_type= + isdir=false + stripme= + no_mode=: + for arg + do + arg2= + if test -n "$dest"; then + func_append files " $dest" + dest=$arg + continue + fi + + case $arg in + -d) isdir=: ;; + -f) + if $install_cp; then :; else + prev=$arg + fi + ;; + -g | -m | -o) + prev=$arg + ;; + -s) + stripme=" -s" + continue + ;; + -*) + ;; + *) + # If the previous option needed an argument, then skip it. + if test -n "$prev"; then + if test X-m = "X$prev" && test -n "$install_override_mode"; then + arg2=$install_override_mode + no_mode=false + fi + prev= + else + dest=$arg + continue + fi + ;; + esac + + # Aesthetically quote the argument. + func_quote_for_eval "$arg" + func_append install_prog " $func_quote_for_eval_result" + if test -n "$arg2"; then + func_quote_for_eval "$arg2" + fi + func_append install_shared_prog " $func_quote_for_eval_result" + done + + test -z "$install_prog" && \ + func_fatal_help "you must specify an install program" + + test -n "$prev" && \ + func_fatal_help "the '$prev' option requires an argument" + + if test -n "$install_override_mode" && $no_mode; then + if $install_cp; then :; else + func_quote_for_eval "$install_override_mode" + func_append install_shared_prog " -m $func_quote_for_eval_result" + fi + fi + + if test -z "$files"; then + if test -z "$dest"; then + func_fatal_help "no file or destination specified" + else + func_fatal_help "you must specify a destination" + fi + fi + + # Strip any trailing slash from the destination. + func_stripname '' '/' "$dest" + dest=$func_stripname_result + + # Check to see that the destination is a directory. + test -d "$dest" && isdir=: + if $isdir; then + destdir=$dest + destname= + else + func_dirname_and_basename "$dest" "" "." + destdir=$func_dirname_result + destname=$func_basename_result + + # Not a directory, so check to see that there is only one file specified. + set dummy $files; shift + test "$#" -gt 1 && \ + func_fatal_help "'$dest' is not a directory" + fi + case $destdir in + [\\/]* | [A-Za-z]:[\\/]*) ;; + *) + for file in $files; do + case $file in + *.lo) ;; + *) + func_fatal_help "'$destdir' must be an absolute directory name" + ;; + esac + done + ;; + esac + + # This variable tells wrapper scripts just to set variables rather + # than running their programs. + libtool_install_magic=$magic + + staticlibs= + future_libdirs= + current_libdirs= + for file in $files; do + + # Do each installation. + case $file in + *.$libext) + # Do the static libraries later. + func_append staticlibs " $file" + ;; + + *.la) + func_resolve_sysroot "$file" + file=$func_resolve_sysroot_result + + # Check to see that this really is a libtool archive. + func_lalib_unsafe_p "$file" \ + || func_fatal_help "'$file' is not a valid libtool archive" + + library_names= + old_library= + relink_command= + func_source "$file" + + # Add the libdir to current_libdirs if it is the destination. + if test "X$destdir" = "X$libdir"; then + case "$current_libdirs " in + *" $libdir "*) ;; + *) func_append current_libdirs " $libdir" ;; + esac + else + # Note the libdir as a future libdir. + case "$future_libdirs " in + *" $libdir "*) ;; + *) func_append future_libdirs " $libdir" ;; + esac + fi + + func_dirname "$file" "/" "" + dir=$func_dirname_result + func_append dir "$objdir" + + if test -n "$relink_command"; then + # Determine the prefix the user has applied to our future dir. + inst_prefix_dir=`$ECHO "$destdir" | $SED -e "s%$libdir\$%%"` + + # Don't allow the user to place us outside of our expected + # location b/c this prevents finding dependent libraries that + # are installed to the same prefix. + # At present, this check doesn't affect windows .dll's that + # are installed into $libdir/../bin (currently, that works fine) + # but it's something to keep an eye on. + test "$inst_prefix_dir" = "$destdir" && \ + func_fatal_error "error: cannot install '$file' to a directory not ending in $libdir" + + if test -n "$inst_prefix_dir"; then + # Stick the inst_prefix_dir data into the link command. + relink_command=`$ECHO "$relink_command" | $SED "s%@inst_prefix_dir@%-inst-prefix-dir $inst_prefix_dir%"` + else + relink_command=`$ECHO "$relink_command" | $SED "s%@inst_prefix_dir@%%"` + fi + + func_warning "relinking '$file'" + func_show_eval "$relink_command" \ + 'func_fatal_error "error: relink '\''$file'\'' with the above command before installing it"' + fi + + # See the names of the shared library. + set dummy $library_names; shift + if test -n "$1"; then + realname=$1 + shift + + srcname=$realname + test -n "$relink_command" && srcname=${realname}T + + # Install the shared library and build the symlinks. + func_show_eval "$install_shared_prog $dir/$srcname $destdir/$realname" \ + 'exit $?' + tstripme=$stripme + case $host_os in + cygwin* | mingw* | pw32* | cegcc*) + case $realname in + *.dll.a) + tstripme= + ;; + esac + ;; + os2*) + case $realname in + *_dll.a) + tstripme= + ;; + esac + ;; + esac + if test -n "$tstripme" && test -n "$striplib"; then + func_show_eval "$striplib $destdir/$realname" 'exit $?' + fi + + if test "$#" -gt 0; then + # Delete the old symlinks, and create new ones. + # Try 'ln -sf' first, because the 'ln' binary might depend on + # the symlink we replace! Solaris /bin/ln does not understand -f, + # so we also need to try rm && ln -s. + for linkname + do + test "$linkname" != "$realname" \ + && func_show_eval "(cd $destdir && { $LN_S -f $realname $linkname || { $RM $linkname && $LN_S $realname $linkname; }; })" + done + fi + + # Do each command in the postinstall commands. + lib=$destdir/$realname + func_execute_cmds "$postinstall_cmds" 'exit $?' + fi + + # Install the pseudo-library for information purposes. + func_basename "$file" + name=$func_basename_result + instname=$dir/${name}i + func_show_eval "$install_prog $instname $destdir/$name" 'exit $?' + + # Maybe install the static library, too. + test -n "$old_library" && func_append staticlibs " $dir/$old_library" + ;; + + *.lo) + # Install (i.e. copy) a libtool object. + + # Figure out destination file name, if it wasn't already specified. + if test -n "$destname"; then + destfile=$destdir/$destname + else + func_basename "$file" + destfile=$func_basename_result + destfile=$destdir/$destfile + fi + + # Deduce the name of the destination old-style object file. + case $destfile in + *.lo) + func_lo2o "$destfile" + staticdest=$func_lo2o_result + ;; + *.$objext) + staticdest=$destfile + destfile= + ;; + *) + func_fatal_help "cannot copy a libtool object to '$destfile'" + ;; + esac + + # Install the libtool object if requested. + test -n "$destfile" && \ + func_show_eval "$install_prog $file $destfile" 'exit $?' + + # Install the old object if enabled. + if test yes = "$build_old_libs"; then + # Deduce the name of the old-style object file. + func_lo2o "$file" + staticobj=$func_lo2o_result + func_show_eval "$install_prog \$staticobj \$staticdest" 'exit $?' + fi + exit $EXIT_SUCCESS + ;; + + *) + # Figure out destination file name, if it wasn't already specified. + if test -n "$destname"; then + destfile=$destdir/$destname + else + func_basename "$file" + destfile=$func_basename_result + destfile=$destdir/$destfile + fi + + # If the file is missing, and there is a .exe on the end, strip it + # because it is most likely a libtool script we actually want to + # install + stripped_ext= + case $file in + *.exe) + if test ! -f "$file"; then + func_stripname '' '.exe' "$file" + file=$func_stripname_result + stripped_ext=.exe + fi + ;; + esac + + # Do a test to see if this is really a libtool program. + case $host in + *cygwin* | *mingw*) + if func_ltwrapper_executable_p "$file"; then + func_ltwrapper_scriptname "$file" + wrapper=$func_ltwrapper_scriptname_result + else + func_stripname '' '.exe' "$file" + wrapper=$func_stripname_result + fi + ;; + *) + wrapper=$file + ;; + esac + if func_ltwrapper_script_p "$wrapper"; then + notinst_deplibs= + relink_command= + + func_source "$wrapper" + + # Check the variables that should have been set. + test -z "$generated_by_libtool_version" && \ + func_fatal_error "invalid libtool wrapper script '$wrapper'" + + finalize=: + for lib in $notinst_deplibs; do + # Check to see that each library is installed. + libdir= + if test -f "$lib"; then + func_source "$lib" + fi + libfile=$libdir/`$ECHO "$lib" | $SED 's%^.*/%%g'` + if test -n "$libdir" && test ! -f "$libfile"; then + func_warning "'$lib' has not been installed in '$libdir'" + finalize=false + fi + done + + relink_command= + func_source "$wrapper" + + outputname= + if test no = "$fast_install" && test -n "$relink_command"; then + $opt_dry_run || { + if $finalize; then + tmpdir=`func_mktempdir` + func_basename "$file$stripped_ext" + file=$func_basename_result + outputname=$tmpdir/$file + # Replace the output file specification. + relink_command=`$ECHO "$relink_command" | $SED 's%@OUTPUT@%'"$outputname"'%g'` + + $opt_quiet || { + func_quote_for_expand "$relink_command" + eval "func_echo $func_quote_for_expand_result" + } + if eval "$relink_command"; then : + else + func_error "error: relink '$file' with the above command before installing it" + $opt_dry_run || ${RM}r "$tmpdir" + continue + fi + file=$outputname + else + func_warning "cannot relink '$file'" + fi + } + else + # Install the binary that we compiled earlier. + file=`$ECHO "$file$stripped_ext" | $SED "s%\([^/]*\)$%$objdir/\1%"` + fi + fi + + # remove .exe since cygwin /usr/bin/install will append another + # one anyway + case $install_prog,$host in + */usr/bin/install*,*cygwin*) + case $file:$destfile in + *.exe:*.exe) + # this is ok + ;; + *.exe:*) + destfile=$destfile.exe + ;; + *:*.exe) + func_stripname '' '.exe' "$destfile" + destfile=$func_stripname_result + ;; + esac + ;; + esac + func_show_eval "$install_prog\$stripme \$file \$destfile" 'exit $?' + $opt_dry_run || if test -n "$outputname"; then + ${RM}r "$tmpdir" + fi + ;; + esac + done + + for file in $staticlibs; do + func_basename "$file" + name=$func_basename_result + + # Set up the ranlib parameters. + oldlib=$destdir/$name + func_to_tool_file "$oldlib" func_convert_file_msys_to_w32 + tool_oldlib=$func_to_tool_file_result + + func_show_eval "$install_prog \$file \$oldlib" 'exit $?' + + if test -n "$stripme" && test -n "$old_striplib"; then + func_show_eval "$old_striplib $tool_oldlib" 'exit $?' + fi + + # Do each command in the postinstall commands. + func_execute_cmds "$old_postinstall_cmds" 'exit $?' + done + + test -n "$future_libdirs" && \ + func_warning "remember to run '$progname --finish$future_libdirs'" + + if test -n "$current_libdirs"; then + # Maybe just do a dry run. + $opt_dry_run && current_libdirs=" -n$current_libdirs" + exec_cmd='$SHELL "$progpath" $preserve_args --finish$current_libdirs' + else + exit $EXIT_SUCCESS + fi +} + +test install = "$opt_mode" && func_mode_install ${1+"$@"} + + +# func_generate_dlsyms outputname originator pic_p +# Extract symbols from dlprefiles and create ${outputname}S.o with +# a dlpreopen symbol table. +func_generate_dlsyms () +{ + $debug_cmd + + my_outputname=$1 + my_originator=$2 + my_pic_p=${3-false} + my_prefix=`$ECHO "$my_originator" | $SED 's%[^a-zA-Z0-9]%_%g'` + my_dlsyms= + + if test -n "$dlfiles$dlprefiles" || test no != "$dlself"; then + if test -n "$NM" && test -n "$global_symbol_pipe"; then + my_dlsyms=${my_outputname}S.c + else + func_error "not configured to extract global symbols from dlpreopened files" + fi + fi + + if test -n "$my_dlsyms"; then + case $my_dlsyms in + "") ;; + *.c) + # Discover the nlist of each of the dlfiles. + nlist=$output_objdir/$my_outputname.nm + + func_show_eval "$RM $nlist ${nlist}S ${nlist}T" + + # Parse the name list into a source file. + func_verbose "creating $output_objdir/$my_dlsyms" + + $opt_dry_run || $ECHO > "$output_objdir/$my_dlsyms" "\ +/* $my_dlsyms - symbol resolution table for '$my_outputname' dlsym emulation. */ +/* Generated by $PROGRAM (GNU $PACKAGE) $VERSION */ + +#ifdef __cplusplus +extern \"C\" { +#endif + +#if defined __GNUC__ && (((__GNUC__ == 4) && (__GNUC_MINOR__ >= 4)) || (__GNUC__ > 4)) +#pragma GCC diagnostic ignored \"-Wstrict-prototypes\" +#endif + +/* Keep this code in sync between libtool.m4, ltmain, lt_system.h, and tests. */ +#if defined _WIN32 || defined __CYGWIN__ || defined _WIN32_WCE +/* DATA imports from DLLs on WIN32 can't be const, because runtime + relocations are performed -- see ld's documentation on pseudo-relocs. */ +# define LT_DLSYM_CONST +#elif defined __osf__ +/* This system does not cope well with relocations in const data. */ +# define LT_DLSYM_CONST +#else +# define LT_DLSYM_CONST const +#endif + +#define STREQ(s1, s2) (strcmp ((s1), (s2)) == 0) + +/* External symbol declarations for the compiler. */\ +" + + if test yes = "$dlself"; then + func_verbose "generating symbol list for '$output'" + + $opt_dry_run || echo ': @PROGRAM@ ' > "$nlist" + + # Add our own program objects to the symbol list. + progfiles=`$ECHO "$objs$old_deplibs" | $SP2NL | $SED "$lo2o" | $NL2SP` + for progfile in $progfiles; do + func_to_tool_file "$progfile" func_convert_file_msys_to_w32 + func_verbose "extracting global C symbols from '$func_to_tool_file_result'" + $opt_dry_run || eval "$NM $func_to_tool_file_result | $global_symbol_pipe >> '$nlist'" + done + + if test -n "$exclude_expsyms"; then + $opt_dry_run || { + eval '$EGREP -v " ($exclude_expsyms)$" "$nlist" > "$nlist"T' + eval '$MV "$nlist"T "$nlist"' + } + fi + + if test -n "$export_symbols_regex"; then + $opt_dry_run || { + eval '$EGREP -e "$export_symbols_regex" "$nlist" > "$nlist"T' + eval '$MV "$nlist"T "$nlist"' + } + fi + + # Prepare the list of exported symbols + if test -z "$export_symbols"; then + export_symbols=$output_objdir/$outputname.exp + $opt_dry_run || { + $RM $export_symbols + eval "$SED -n -e '/^: @PROGRAM@ $/d' -e 's/^.* \(.*\)$/\1/p' "'< "$nlist" > "$export_symbols"' + case $host in + *cygwin* | *mingw* | *cegcc* ) + eval "echo EXPORTS "'> "$output_objdir/$outputname.def"' + eval 'cat "$export_symbols" >> "$output_objdir/$outputname.def"' + ;; + esac + } + else + $opt_dry_run || { + eval "$SED -e 's/\([].[*^$]\)/\\\\\1/g' -e 's/^/ /' -e 's/$/$/'"' < "$export_symbols" > "$output_objdir/$outputname.exp"' + eval '$GREP -f "$output_objdir/$outputname.exp" < "$nlist" > "$nlist"T' + eval '$MV "$nlist"T "$nlist"' + case $host in + *cygwin* | *mingw* | *cegcc* ) + eval "echo EXPORTS "'> "$output_objdir/$outputname.def"' + eval 'cat "$nlist" >> "$output_objdir/$outputname.def"' + ;; + esac + } + fi + fi + + for dlprefile in $dlprefiles; do + func_verbose "extracting global C symbols from '$dlprefile'" + func_basename "$dlprefile" + name=$func_basename_result + case $host in + *cygwin* | *mingw* | *cegcc* ) + # if an import library, we need to obtain dlname + if func_win32_import_lib_p "$dlprefile"; then + func_tr_sh "$dlprefile" + eval "curr_lafile=\$libfile_$func_tr_sh_result" + dlprefile_dlbasename= + if test -n "$curr_lafile" && func_lalib_p "$curr_lafile"; then + # Use subshell, to avoid clobbering current variable values + dlprefile_dlname=`source "$curr_lafile" && echo "$dlname"` + if test -n "$dlprefile_dlname"; then + func_basename "$dlprefile_dlname" + dlprefile_dlbasename=$func_basename_result + else + # no lafile. user explicitly requested -dlpreopen . + $sharedlib_from_linklib_cmd "$dlprefile" + dlprefile_dlbasename=$sharedlib_from_linklib_result + fi + fi + $opt_dry_run || { + if test -n "$dlprefile_dlbasename"; then + eval '$ECHO ": $dlprefile_dlbasename" >> "$nlist"' + else + func_warning "Could not compute DLL name from $name" + eval '$ECHO ": $name " >> "$nlist"' + fi + func_to_tool_file "$dlprefile" func_convert_file_msys_to_w32 + eval "$NM \"$func_to_tool_file_result\" 2>/dev/null | $global_symbol_pipe | + $SED -e '/I __imp/d' -e 's/I __nm_/D /;s/_nm__//' >> '$nlist'" + } + else # not an import lib + $opt_dry_run || { + eval '$ECHO ": $name " >> "$nlist"' + func_to_tool_file "$dlprefile" func_convert_file_msys_to_w32 + eval "$NM \"$func_to_tool_file_result\" 2>/dev/null | $global_symbol_pipe >> '$nlist'" + } + fi + ;; + *) + $opt_dry_run || { + eval '$ECHO ": $name " >> "$nlist"' + func_to_tool_file "$dlprefile" func_convert_file_msys_to_w32 + eval "$NM \"$func_to_tool_file_result\" 2>/dev/null | $global_symbol_pipe >> '$nlist'" + } + ;; + esac + done + + $opt_dry_run || { + # Make sure we have at least an empty file. + test -f "$nlist" || : > "$nlist" + + if test -n "$exclude_expsyms"; then + $EGREP -v " ($exclude_expsyms)$" "$nlist" > "$nlist"T + $MV "$nlist"T "$nlist" + fi + + # Try sorting and uniquifying the output. + if $GREP -v "^: " < "$nlist" | + if sort -k 3 /dev/null 2>&1; then + sort -k 3 + else + sort +2 + fi | + uniq > "$nlist"S; then + : + else + $GREP -v "^: " < "$nlist" > "$nlist"S + fi + + if test -f "$nlist"S; then + eval "$global_symbol_to_cdecl"' < "$nlist"S >> "$output_objdir/$my_dlsyms"' + else + echo '/* NONE */' >> "$output_objdir/$my_dlsyms" + fi + + func_show_eval '$RM "${nlist}I"' + if test -n "$global_symbol_to_import"; then + eval "$global_symbol_to_import"' < "$nlist"S > "$nlist"I' + fi + + echo >> "$output_objdir/$my_dlsyms" "\ + +/* The mapping between symbol names and symbols. */ +typedef struct { + const char *name; + void *address; +} lt_dlsymlist; +extern LT_DLSYM_CONST lt_dlsymlist +lt_${my_prefix}_LTX_preloaded_symbols[];\ +" + + if test -s "$nlist"I; then + echo >> "$output_objdir/$my_dlsyms" "\ +static void lt_syminit(void) +{ + LT_DLSYM_CONST lt_dlsymlist *symbol = lt_${my_prefix}_LTX_preloaded_symbols; + for (; symbol->name; ++symbol) + {" + $SED 's/.*/ if (STREQ (symbol->name, \"&\")) symbol->address = (void *) \&&;/' < "$nlist"I >> "$output_objdir/$my_dlsyms" + echo >> "$output_objdir/$my_dlsyms" "\ + } +}" + fi + echo >> "$output_objdir/$my_dlsyms" "\ +LT_DLSYM_CONST lt_dlsymlist +lt_${my_prefix}_LTX_preloaded_symbols[] = +{ {\"$my_originator\", (void *) 0}," + + if test -s "$nlist"I; then + echo >> "$output_objdir/$my_dlsyms" "\ + {\"@INIT@\", (void *) <_syminit}," + fi + + case $need_lib_prefix in + no) + eval "$global_symbol_to_c_name_address" < "$nlist" >> "$output_objdir/$my_dlsyms" + ;; + *) + eval "$global_symbol_to_c_name_address_lib_prefix" < "$nlist" >> "$output_objdir/$my_dlsyms" + ;; + esac + echo >> "$output_objdir/$my_dlsyms" "\ + {0, (void *) 0} +}; + +/* This works around a problem in FreeBSD linker */ +#ifdef FREEBSD_WORKAROUND +static const void *lt_preloaded_setup() { + return lt_${my_prefix}_LTX_preloaded_symbols; +} +#endif + +#ifdef __cplusplus +} +#endif\ +" + } # !$opt_dry_run + + pic_flag_for_symtable= + case "$compile_command " in + *" -static "*) ;; + *) + case $host in + # compiling the symbol table file with pic_flag works around + # a FreeBSD bug that causes programs to crash when -lm is + # linked before any other PIC object. But we must not use + # pic_flag when linking with -static. The problem exists in + # FreeBSD 2.2.6 and is fixed in FreeBSD 3.1. + *-*-freebsd2.*|*-*-freebsd3.0*|*-*-freebsdelf3.0*) + pic_flag_for_symtable=" $pic_flag -DFREEBSD_WORKAROUND" ;; + *-*-hpux*) + pic_flag_for_symtable=" $pic_flag" ;; + *) + $my_pic_p && pic_flag_for_symtable=" $pic_flag" + ;; + esac + ;; + esac + symtab_cflags= + for arg in $LTCFLAGS; do + case $arg in + -pie | -fpie | -fPIE) ;; + *) func_append symtab_cflags " $arg" ;; + esac + done + + # Now compile the dynamic symbol file. + func_show_eval '(cd $output_objdir && $LTCC$symtab_cflags -c$no_builtin_flag$pic_flag_for_symtable "$my_dlsyms")' 'exit $?' + + # Clean up the generated files. + func_show_eval '$RM "$output_objdir/$my_dlsyms" "$nlist" "${nlist}S" "${nlist}T" "${nlist}I"' + + # Transform the symbol file into the correct name. + symfileobj=$output_objdir/${my_outputname}S.$objext + case $host in + *cygwin* | *mingw* | *cegcc* ) + if test -f "$output_objdir/$my_outputname.def"; then + compile_command=`$ECHO "$compile_command" | $SED "s%@SYMFILE@%$output_objdir/$my_outputname.def $symfileobj%"` + finalize_command=`$ECHO "$finalize_command" | $SED "s%@SYMFILE@%$output_objdir/$my_outputname.def $symfileobj%"` + else + compile_command=`$ECHO "$compile_command" | $SED "s%@SYMFILE@%$symfileobj%"` + finalize_command=`$ECHO "$finalize_command" | $SED "s%@SYMFILE@%$symfileobj%"` + fi + ;; + *) + compile_command=`$ECHO "$compile_command" | $SED "s%@SYMFILE@%$symfileobj%"` + finalize_command=`$ECHO "$finalize_command" | $SED "s%@SYMFILE@%$symfileobj%"` + ;; + esac + ;; + *) + func_fatal_error "unknown suffix for '$my_dlsyms'" + ;; + esac + else + # We keep going just in case the user didn't refer to + # lt_preloaded_symbols. The linker will fail if global_symbol_pipe + # really was required. + + # Nullify the symbol file. + compile_command=`$ECHO "$compile_command" | $SED "s% @SYMFILE@%%"` + finalize_command=`$ECHO "$finalize_command" | $SED "s% @SYMFILE@%%"` + fi +} + +# func_cygming_gnu_implib_p ARG +# This predicate returns with zero status (TRUE) if +# ARG is a GNU/binutils-style import library. Returns +# with nonzero status (FALSE) otherwise. +func_cygming_gnu_implib_p () +{ + $debug_cmd + + func_to_tool_file "$1" func_convert_file_msys_to_w32 + func_cygming_gnu_implib_tmp=`$NM "$func_to_tool_file_result" | eval "$global_symbol_pipe" | $EGREP ' (_head_[A-Za-z0-9_]+_[ad]l*|[A-Za-z0-9_]+_[ad]l*_iname)$'` + test -n "$func_cygming_gnu_implib_tmp" +} + +# func_cygming_ms_implib_p ARG +# This predicate returns with zero status (TRUE) if +# ARG is an MS-style import library. Returns +# with nonzero status (FALSE) otherwise. +func_cygming_ms_implib_p () +{ + $debug_cmd + + func_to_tool_file "$1" func_convert_file_msys_to_w32 + func_cygming_ms_implib_tmp=`$NM "$func_to_tool_file_result" | eval "$global_symbol_pipe" | $GREP '_NULL_IMPORT_DESCRIPTOR'` + test -n "$func_cygming_ms_implib_tmp" +} + +# func_win32_libid arg +# return the library type of file 'arg' +# +# Need a lot of goo to handle *both* DLLs and import libs +# Has to be a shell function in order to 'eat' the argument +# that is supplied when $file_magic_command is called. +# Despite the name, also deal with 64 bit binaries. +func_win32_libid () +{ + $debug_cmd + + win32_libid_type=unknown + win32_fileres=`file -L $1 2>/dev/null` + case $win32_fileres in + *ar\ archive\ import\ library*) # definitely import + win32_libid_type="x86 archive import" + ;; + *ar\ archive*) # could be an import, or static + # Keep the egrep pattern in sync with the one in _LT_CHECK_MAGIC_METHOD. + if eval $OBJDUMP -f $1 | $SED -e '10q' 2>/dev/null | + $EGREP 'file format (pei*-i386(.*architecture: i386)?|pe-arm-wince|pe-x86-64)' >/dev/null; then + case $nm_interface in + "MS dumpbin") + if func_cygming_ms_implib_p "$1" || + func_cygming_gnu_implib_p "$1" + then + win32_nmres=import + else + win32_nmres= + fi + ;; + *) + func_to_tool_file "$1" func_convert_file_msys_to_w32 + win32_nmres=`eval $NM -f posix -A \"$func_to_tool_file_result\" | + $SED -n -e ' + 1,100{ + / I /{ + s|.*|import| + p + q + } + }'` + ;; + esac + case $win32_nmres in + import*) win32_libid_type="x86 archive import";; + *) win32_libid_type="x86 archive static";; + esac + fi + ;; + *DLL*) + win32_libid_type="x86 DLL" + ;; + *executable*) # but shell scripts are "executable" too... + case $win32_fileres in + *MS\ Windows\ PE\ Intel*) + win32_libid_type="x86 DLL" + ;; + esac + ;; + esac + $ECHO "$win32_libid_type" +} + +# func_cygming_dll_for_implib ARG +# +# Platform-specific function to extract the +# name of the DLL associated with the specified +# import library ARG. +# Invoked by eval'ing the libtool variable +# $sharedlib_from_linklib_cmd +# Result is available in the variable +# $sharedlib_from_linklib_result +func_cygming_dll_for_implib () +{ + $debug_cmd + + sharedlib_from_linklib_result=`$DLLTOOL --identify-strict --identify "$1"` +} + +# func_cygming_dll_for_implib_fallback_core SECTION_NAME LIBNAMEs +# +# The is the core of a fallback implementation of a +# platform-specific function to extract the name of the +# DLL associated with the specified import library LIBNAME. +# +# SECTION_NAME is either .idata$6 or .idata$7, depending +# on the platform and compiler that created the implib. +# +# Echos the name of the DLL associated with the +# specified import library. +func_cygming_dll_for_implib_fallback_core () +{ + $debug_cmd + + match_literal=`$ECHO "$1" | $SED "$sed_make_literal_regex"` + $OBJDUMP -s --section "$1" "$2" 2>/dev/null | + $SED '/^Contents of section '"$match_literal"':/{ + # Place marker at beginning of archive member dllname section + s/.*/====MARK====/ + p + d + } + # These lines can sometimes be longer than 43 characters, but + # are always uninteresting + /:[ ]*file format pe[i]\{,1\}-/d + /^In archive [^:]*:/d + # Ensure marker is printed + /^====MARK====/p + # Remove all lines with less than 43 characters + /^.\{43\}/!d + # From remaining lines, remove first 43 characters + s/^.\{43\}//' | + $SED -n ' + # Join marker and all lines until next marker into a single line + /^====MARK====/ b para + H + $ b para + b + :para + x + s/\n//g + # Remove the marker + s/^====MARK====// + # Remove trailing dots and whitespace + s/[\. \t]*$// + # Print + /./p' | + # we now have a list, one entry per line, of the stringified + # contents of the appropriate section of all members of the + # archive that possess that section. Heuristic: eliminate + # all those that have a first or second character that is + # a '.' (that is, objdump's representation of an unprintable + # character.) This should work for all archives with less than + # 0x302f exports -- but will fail for DLLs whose name actually + # begins with a literal '.' or a single character followed by + # a '.'. + # + # Of those that remain, print the first one. + $SED -e '/^\./d;/^.\./d;q' +} + +# func_cygming_dll_for_implib_fallback ARG +# Platform-specific function to extract the +# name of the DLL associated with the specified +# import library ARG. +# +# This fallback implementation is for use when $DLLTOOL +# does not support the --identify-strict option. +# Invoked by eval'ing the libtool variable +# $sharedlib_from_linklib_cmd +# Result is available in the variable +# $sharedlib_from_linklib_result +func_cygming_dll_for_implib_fallback () +{ + $debug_cmd + + if func_cygming_gnu_implib_p "$1"; then + # binutils import library + sharedlib_from_linklib_result=`func_cygming_dll_for_implib_fallback_core '.idata$7' "$1"` + elif func_cygming_ms_implib_p "$1"; then + # ms-generated import library + sharedlib_from_linklib_result=`func_cygming_dll_for_implib_fallback_core '.idata$6' "$1"` + else + # unknown + sharedlib_from_linklib_result= + fi +} + + +# func_extract_an_archive dir oldlib +func_extract_an_archive () +{ + $debug_cmd + + f_ex_an_ar_dir=$1; shift + f_ex_an_ar_oldlib=$1 + if test yes = "$lock_old_archive_extraction"; then + lockfile=$f_ex_an_ar_oldlib.lock + until $opt_dry_run || ln "$progpath" "$lockfile" 2>/dev/null; do + func_echo "Waiting for $lockfile to be removed" + sleep 2 + done + fi + func_show_eval "(cd \$f_ex_an_ar_dir && $AR x \"\$f_ex_an_ar_oldlib\")" \ + 'stat=$?; rm -f "$lockfile"; exit $stat' + if test yes = "$lock_old_archive_extraction"; then + $opt_dry_run || rm -f "$lockfile" + fi + if ($AR t "$f_ex_an_ar_oldlib" | sort | sort -uc >/dev/null 2>&1); then + : + else + func_fatal_error "object name conflicts in archive: $f_ex_an_ar_dir/$f_ex_an_ar_oldlib" + fi +} + + +# func_extract_archives gentop oldlib ... +func_extract_archives () +{ + $debug_cmd + + my_gentop=$1; shift + my_oldlibs=${1+"$@"} + my_oldobjs= + my_xlib= + my_xabs= + my_xdir= + + for my_xlib in $my_oldlibs; do + # Extract the objects. + case $my_xlib in + [\\/]* | [A-Za-z]:[\\/]*) my_xabs=$my_xlib ;; + *) my_xabs=`pwd`"/$my_xlib" ;; + esac + func_basename "$my_xlib" + my_xlib=$func_basename_result + my_xlib_u=$my_xlib + while :; do + case " $extracted_archives " in + *" $my_xlib_u "*) + func_arith $extracted_serial + 1 + extracted_serial=$func_arith_result + my_xlib_u=lt$extracted_serial-$my_xlib ;; + *) break ;; + esac + done + extracted_archives="$extracted_archives $my_xlib_u" + my_xdir=$my_gentop/$my_xlib_u + + func_mkdir_p "$my_xdir" + + case $host in + *-darwin*) + func_verbose "Extracting $my_xabs" + # Do not bother doing anything if just a dry run + $opt_dry_run || { + darwin_orig_dir=`pwd` + cd $my_xdir || exit $? + darwin_archive=$my_xabs + darwin_curdir=`pwd` + func_basename "$darwin_archive" + darwin_base_archive=$func_basename_result + darwin_arches=`$LIPO -info "$darwin_archive" 2>/dev/null | $GREP Architectures 2>/dev/null || true` + if test -n "$darwin_arches"; then + darwin_arches=`$ECHO "$darwin_arches" | $SED -e 's/.*are://'` + darwin_arch= + func_verbose "$darwin_base_archive has multiple architectures $darwin_arches" + for darwin_arch in $darwin_arches; do + func_mkdir_p "unfat-$$/$darwin_base_archive-$darwin_arch" + $LIPO -thin $darwin_arch -output "unfat-$$/$darwin_base_archive-$darwin_arch/$darwin_base_archive" "$darwin_archive" + cd "unfat-$$/$darwin_base_archive-$darwin_arch" + func_extract_an_archive "`pwd`" "$darwin_base_archive" + cd "$darwin_curdir" + $RM "unfat-$$/$darwin_base_archive-$darwin_arch/$darwin_base_archive" + done # $darwin_arches + ## Okay now we've a bunch of thin objects, gotta fatten them up :) + darwin_filelist=`find unfat-$$ -type f -name \*.o -print -o -name \*.lo -print | $SED -e "$sed_basename" | sort -u` + darwin_file= + darwin_files= + for darwin_file in $darwin_filelist; do + darwin_files=`find unfat-$$ -name $darwin_file -print | sort | $NL2SP` + $LIPO -create -output "$darwin_file" $darwin_files + done # $darwin_filelist + $RM -rf unfat-$$ + cd "$darwin_orig_dir" + else + cd $darwin_orig_dir + func_extract_an_archive "$my_xdir" "$my_xabs" + fi # $darwin_arches + } # !$opt_dry_run + ;; + *) + func_extract_an_archive "$my_xdir" "$my_xabs" + ;; + esac + my_oldobjs="$my_oldobjs "`find $my_xdir -name \*.$objext -print -o -name \*.lo -print | sort | $NL2SP` + done + + func_extract_archives_result=$my_oldobjs +} + + +# func_emit_wrapper [arg=no] +# +# Emit a libtool wrapper script on stdout. +# Don't directly open a file because we may want to +# incorporate the script contents within a cygwin/mingw +# wrapper executable. Must ONLY be called from within +# func_mode_link because it depends on a number of variables +# set therein. +# +# ARG is the value that the WRAPPER_SCRIPT_BELONGS_IN_OBJDIR +# variable will take. If 'yes', then the emitted script +# will assume that the directory where it is stored is +# the $objdir directory. This is a cygwin/mingw-specific +# behavior. +func_emit_wrapper () +{ + func_emit_wrapper_arg1=${1-no} + + $ECHO "\ +#! $SHELL + +# $output - temporary wrapper script for $objdir/$outputname +# Generated by $PROGRAM (GNU $PACKAGE) $VERSION +# +# The $output program cannot be directly executed until all the libtool +# libraries that it depends on are installed. +# +# This wrapper script should never be moved out of the build directory. +# If it is, it will not operate correctly. + +# Sed substitution that helps us do robust quoting. It backslashifies +# metacharacters that are still active within double-quoted strings. +sed_quote_subst='$sed_quote_subst' + +# Be Bourne compatible +if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then + emulate sh + NULLCMD=: + # Zsh 3.x and 4.x performs word splitting on \${1+\"\$@\"}, which + # is contrary to our usage. Disable this feature. + alias -g '\${1+\"\$@\"}'='\"\$@\"' + setopt NO_GLOB_SUBST +else + case \`(set -o) 2>/dev/null\` in *posix*) set -o posix;; esac +fi +BIN_SH=xpg4; export BIN_SH # for Tru64 +DUALCASE=1; export DUALCASE # for MKS sh + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +relink_command=\"$relink_command\" + +# This environment variable determines our operation mode. +if test \"\$libtool_install_magic\" = \"$magic\"; then + # install mode needs the following variables: + generated_by_libtool_version='$macro_version' + notinst_deplibs='$notinst_deplibs' +else + # When we are sourced in execute mode, \$file and \$ECHO are already set. + if test \"\$libtool_execute_magic\" != \"$magic\"; then + file=\"\$0\"" + + qECHO=`$ECHO "$ECHO" | $SED "$sed_quote_subst"` + $ECHO "\ + +# A function that is used when there is no print builtin or printf. +func_fallback_echo () +{ + eval 'cat <<_LTECHO_EOF +\$1 +_LTECHO_EOF' +} + ECHO=\"$qECHO\" + fi + +# Very basic option parsing. These options are (a) specific to +# the libtool wrapper, (b) are identical between the wrapper +# /script/ and the wrapper /executable/ that is used only on +# windows platforms, and (c) all begin with the string "--lt-" +# (application programs are unlikely to have options that match +# this pattern). +# +# There are only two supported options: --lt-debug and +# --lt-dump-script. There is, deliberately, no --lt-help. +# +# The first argument to this parsing function should be the +# script's $0 value, followed by "$@". +lt_option_debug= +func_parse_lt_options () +{ + lt_script_arg0=\$0 + shift + for lt_opt + do + case \"\$lt_opt\" in + --lt-debug) lt_option_debug=1 ;; + --lt-dump-script) + lt_dump_D=\`\$ECHO \"X\$lt_script_arg0\" | $SED -e 's/^X//' -e 's%/[^/]*$%%'\` + test \"X\$lt_dump_D\" = \"X\$lt_script_arg0\" && lt_dump_D=. + lt_dump_F=\`\$ECHO \"X\$lt_script_arg0\" | $SED -e 's/^X//' -e 's%^.*/%%'\` + cat \"\$lt_dump_D/\$lt_dump_F\" + exit 0 + ;; + --lt-*) + \$ECHO \"Unrecognized --lt- option: '\$lt_opt'\" 1>&2 + exit 1 + ;; + esac + done + + # Print the debug banner immediately: + if test -n \"\$lt_option_debug\"; then + echo \"$outputname:$output:\$LINENO: libtool wrapper (GNU $PACKAGE) $VERSION\" 1>&2 + fi +} + +# Used when --lt-debug. Prints its arguments to stdout +# (redirection is the responsibility of the caller) +func_lt_dump_args () +{ + lt_dump_args_N=1; + for lt_arg + do + \$ECHO \"$outputname:$output:\$LINENO: newargv[\$lt_dump_args_N]: \$lt_arg\" + lt_dump_args_N=\`expr \$lt_dump_args_N + 1\` + done +} + +# Core function for launching the target application +func_exec_program_core () +{ +" + case $host in + # Backslashes separate directories on plain windows + *-*-mingw | *-*-os2* | *-cegcc*) + $ECHO "\ + if test -n \"\$lt_option_debug\"; then + \$ECHO \"$outputname:$output:\$LINENO: newargv[0]: \$progdir\\\\\$program\" 1>&2 + func_lt_dump_args \${1+\"\$@\"} 1>&2 + fi + exec \"\$progdir\\\\\$program\" \${1+\"\$@\"} +" + ;; + + *) + $ECHO "\ + if test -n \"\$lt_option_debug\"; then + \$ECHO \"$outputname:$output:\$LINENO: newargv[0]: \$progdir/\$program\" 1>&2 + func_lt_dump_args \${1+\"\$@\"} 1>&2 + fi + exec \"\$progdir/\$program\" \${1+\"\$@\"} +" + ;; + esac + $ECHO "\ + \$ECHO \"\$0: cannot exec \$program \$*\" 1>&2 + exit 1 +} + +# A function to encapsulate launching the target application +# Strips options in the --lt-* namespace from \$@ and +# launches target application with the remaining arguments. +func_exec_program () +{ + case \" \$* \" in + *\\ --lt-*) + for lt_wr_arg + do + case \$lt_wr_arg in + --lt-*) ;; + *) set x \"\$@\" \"\$lt_wr_arg\"; shift;; + esac + shift + done ;; + esac + func_exec_program_core \${1+\"\$@\"} +} + + # Parse options + func_parse_lt_options \"\$0\" \${1+\"\$@\"} + + # Find the directory that this script lives in. + thisdir=\`\$ECHO \"\$file\" | $SED 's%/[^/]*$%%'\` + test \"x\$thisdir\" = \"x\$file\" && thisdir=. + + # Follow symbolic links until we get to the real thisdir. + file=\`ls -ld \"\$file\" | $SED -n 's/.*-> //p'\` + while test -n \"\$file\"; do + destdir=\`\$ECHO \"\$file\" | $SED 's%/[^/]*\$%%'\` + + # If there was a directory component, then change thisdir. + if test \"x\$destdir\" != \"x\$file\"; then + case \"\$destdir\" in + [\\\\/]* | [A-Za-z]:[\\\\/]*) thisdir=\"\$destdir\" ;; + *) thisdir=\"\$thisdir/\$destdir\" ;; + esac + fi + + file=\`\$ECHO \"\$file\" | $SED 's%^.*/%%'\` + file=\`ls -ld \"\$thisdir/\$file\" | $SED -n 's/.*-> //p'\` + done + + # Usually 'no', except on cygwin/mingw when embedded into + # the cwrapper. + WRAPPER_SCRIPT_BELONGS_IN_OBJDIR=$func_emit_wrapper_arg1 + if test \"\$WRAPPER_SCRIPT_BELONGS_IN_OBJDIR\" = \"yes\"; then + # special case for '.' + if test \"\$thisdir\" = \".\"; then + thisdir=\`pwd\` + fi + # remove .libs from thisdir + case \"\$thisdir\" in + *[\\\\/]$objdir ) thisdir=\`\$ECHO \"\$thisdir\" | $SED 's%[\\\\/][^\\\\/]*$%%'\` ;; + $objdir ) thisdir=. ;; + esac + fi + + # Try to get the absolute directory name. + absdir=\`cd \"\$thisdir\" && pwd\` + test -n \"\$absdir\" && thisdir=\"\$absdir\" +" + + if test yes = "$fast_install"; then + $ECHO "\ + program=lt-'$outputname'$exeext + progdir=\"\$thisdir/$objdir\" + + if test ! -f \"\$progdir/\$program\" || + { file=\`ls -1dt \"\$progdir/\$program\" \"\$progdir/../\$program\" 2>/dev/null | $SED 1q\`; \\ + test \"X\$file\" != \"X\$progdir/\$program\"; }; then + + file=\"\$\$-\$program\" + + if test ! -d \"\$progdir\"; then + $MKDIR \"\$progdir\" + else + $RM \"\$progdir/\$file\" + fi" + + $ECHO "\ + + # relink executable if necessary + if test -n \"\$relink_command\"; then + if relink_command_output=\`eval \$relink_command 2>&1\`; then : + else + \$ECHO \"\$relink_command_output\" >&2 + $RM \"\$progdir/\$file\" + exit 1 + fi + fi + + $MV \"\$progdir/\$file\" \"\$progdir/\$program\" 2>/dev/null || + { $RM \"\$progdir/\$program\"; + $MV \"\$progdir/\$file\" \"\$progdir/\$program\"; } + $RM \"\$progdir/\$file\" + fi" + else + $ECHO "\ + program='$outputname' + progdir=\"\$thisdir/$objdir\" +" + fi + + $ECHO "\ + + if test -f \"\$progdir/\$program\"; then" + + # fixup the dll searchpath if we need to. + # + # Fix the DLL searchpath if we need to. Do this before prepending + # to shlibpath, because on Windows, both are PATH and uninstalled + # libraries must come first. + if test -n "$dllsearchpath"; then + $ECHO "\ + # Add the dll search path components to the executable PATH + PATH=$dllsearchpath:\$PATH +" + fi + + # Export our shlibpath_var if we have one. + if test yes = "$shlibpath_overrides_runpath" && test -n "$shlibpath_var" && test -n "$temp_rpath"; then + $ECHO "\ + # Add our own library path to $shlibpath_var + $shlibpath_var=\"$temp_rpath\$$shlibpath_var\" + + # Some systems cannot cope with colon-terminated $shlibpath_var + # The second colon is a workaround for a bug in BeOS R4 sed + $shlibpath_var=\`\$ECHO \"\$$shlibpath_var\" | $SED 's/::*\$//'\` + + export $shlibpath_var +" + fi + + $ECHO "\ + if test \"\$libtool_execute_magic\" != \"$magic\"; then + # Run the actual program with our arguments. + func_exec_program \${1+\"\$@\"} + fi + else + # The program doesn't exist. + \$ECHO \"\$0: error: '\$progdir/\$program' does not exist\" 1>&2 + \$ECHO \"This script is just a wrapper for \$program.\" 1>&2 + \$ECHO \"See the $PACKAGE documentation for more information.\" 1>&2 + exit 1 + fi +fi\ +" +} + + +# func_emit_cwrapperexe_src +# emit the source code for a wrapper executable on stdout +# Must ONLY be called from within func_mode_link because +# it depends on a number of variable set therein. +func_emit_cwrapperexe_src () +{ + cat < +#include +#ifdef _MSC_VER +# include +# include +# include +#else +# include +# include +# ifdef __CYGWIN__ +# include +# endif +#endif +#include +#include +#include +#include +#include +#include +#include +#include + +#define STREQ(s1, s2) (strcmp ((s1), (s2)) == 0) + +/* declarations of non-ANSI functions */ +#if defined __MINGW32__ +# ifdef __STRICT_ANSI__ +int _putenv (const char *); +# endif +#elif defined __CYGWIN__ +# ifdef __STRICT_ANSI__ +char *realpath (const char *, char *); +int putenv (char *); +int setenv (const char *, const char *, int); +# endif +/* #elif defined other_platform || defined ... */ +#endif + +/* portability defines, excluding path handling macros */ +#if defined _MSC_VER +# define setmode _setmode +# define stat _stat +# define chmod _chmod +# define getcwd _getcwd +# define putenv _putenv +# define S_IXUSR _S_IEXEC +#elif defined __MINGW32__ +# define setmode _setmode +# define stat _stat +# define chmod _chmod +# define getcwd _getcwd +# define putenv _putenv +#elif defined __CYGWIN__ +# define HAVE_SETENV +# define FOPEN_WB "wb" +/* #elif defined other platforms ... */ +#endif + +#if defined PATH_MAX +# define LT_PATHMAX PATH_MAX +#elif defined MAXPATHLEN +# define LT_PATHMAX MAXPATHLEN +#else +# define LT_PATHMAX 1024 +#endif + +#ifndef S_IXOTH +# define S_IXOTH 0 +#endif +#ifndef S_IXGRP +# define S_IXGRP 0 +#endif + +/* path handling portability macros */ +#ifndef DIR_SEPARATOR +# define DIR_SEPARATOR '/' +# define PATH_SEPARATOR ':' +#endif + +#if defined _WIN32 || defined __MSDOS__ || defined __DJGPP__ || \ + defined __OS2__ +# define HAVE_DOS_BASED_FILE_SYSTEM +# define FOPEN_WB "wb" +# ifndef DIR_SEPARATOR_2 +# define DIR_SEPARATOR_2 '\\' +# endif +# ifndef PATH_SEPARATOR_2 +# define PATH_SEPARATOR_2 ';' +# endif +#endif + +#ifndef DIR_SEPARATOR_2 +# define IS_DIR_SEPARATOR(ch) ((ch) == DIR_SEPARATOR) +#else /* DIR_SEPARATOR_2 */ +# define IS_DIR_SEPARATOR(ch) \ + (((ch) == DIR_SEPARATOR) || ((ch) == DIR_SEPARATOR_2)) +#endif /* DIR_SEPARATOR_2 */ + +#ifndef PATH_SEPARATOR_2 +# define IS_PATH_SEPARATOR(ch) ((ch) == PATH_SEPARATOR) +#else /* PATH_SEPARATOR_2 */ +# define IS_PATH_SEPARATOR(ch) ((ch) == PATH_SEPARATOR_2) +#endif /* PATH_SEPARATOR_2 */ + +#ifndef FOPEN_WB +# define FOPEN_WB "w" +#endif +#ifndef _O_BINARY +# define _O_BINARY 0 +#endif + +#define XMALLOC(type, num) ((type *) xmalloc ((num) * sizeof(type))) +#define XFREE(stale) do { \ + if (stale) { free (stale); stale = 0; } \ +} while (0) + +#if defined LT_DEBUGWRAPPER +static int lt_debug = 1; +#else +static int lt_debug = 0; +#endif + +const char *program_name = "libtool-wrapper"; /* in case xstrdup fails */ + +void *xmalloc (size_t num); +char *xstrdup (const char *string); +const char *base_name (const char *name); +char *find_executable (const char *wrapper); +char *chase_symlinks (const char *pathspec); +int make_executable (const char *path); +int check_executable (const char *path); +char *strendzap (char *str, const char *pat); +void lt_debugprintf (const char *file, int line, const char *fmt, ...); +void lt_fatal (const char *file, int line, const char *message, ...); +static const char *nonnull (const char *s); +static const char *nonempty (const char *s); +void lt_setenv (const char *name, const char *value); +char *lt_extend_str (const char *orig_value, const char *add, int to_end); +void lt_update_exe_path (const char *name, const char *value); +void lt_update_lib_path (const char *name, const char *value); +char **prepare_spawn (char **argv); +void lt_dump_script (FILE *f); +EOF + + cat <= 0) + && (st.st_mode & (S_IXUSR | S_IXGRP | S_IXOTH))) + return 1; + else + return 0; +} + +int +make_executable (const char *path) +{ + int rval = 0; + struct stat st; + + lt_debugprintf (__FILE__, __LINE__, "(make_executable): %s\n", + nonempty (path)); + if ((!path) || (!*path)) + return 0; + + if (stat (path, &st) >= 0) + { + rval = chmod (path, st.st_mode | S_IXOTH | S_IXGRP | S_IXUSR); + } + return rval; +} + +/* Searches for the full path of the wrapper. Returns + newly allocated full path name if found, NULL otherwise + Does not chase symlinks, even on platforms that support them. +*/ +char * +find_executable (const char *wrapper) +{ + int has_slash = 0; + const char *p; + const char *p_next; + /* static buffer for getcwd */ + char tmp[LT_PATHMAX + 1]; + size_t tmp_len; + char *concat_name; + + lt_debugprintf (__FILE__, __LINE__, "(find_executable): %s\n", + nonempty (wrapper)); + + if ((wrapper == NULL) || (*wrapper == '\0')) + return NULL; + + /* Absolute path? */ +#if defined HAVE_DOS_BASED_FILE_SYSTEM + if (isalpha ((unsigned char) wrapper[0]) && wrapper[1] == ':') + { + concat_name = xstrdup (wrapper); + if (check_executable (concat_name)) + return concat_name; + XFREE (concat_name); + } + else + { +#endif + if (IS_DIR_SEPARATOR (wrapper[0])) + { + concat_name = xstrdup (wrapper); + if (check_executable (concat_name)) + return concat_name; + XFREE (concat_name); + } +#if defined HAVE_DOS_BASED_FILE_SYSTEM + } +#endif + + for (p = wrapper; *p; p++) + if (*p == '/') + { + has_slash = 1; + break; + } + if (!has_slash) + { + /* no slashes; search PATH */ + const char *path = getenv ("PATH"); + if (path != NULL) + { + for (p = path; *p; p = p_next) + { + const char *q; + size_t p_len; + for (q = p; *q; q++) + if (IS_PATH_SEPARATOR (*q)) + break; + p_len = (size_t) (q - p); + p_next = (*q == '\0' ? q : q + 1); + if (p_len == 0) + { + /* empty path: current directory */ + if (getcwd (tmp, LT_PATHMAX) == NULL) + lt_fatal (__FILE__, __LINE__, "getcwd failed: %s", + nonnull (strerror (errno))); + tmp_len = strlen (tmp); + concat_name = + XMALLOC (char, tmp_len + 1 + strlen (wrapper) + 1); + memcpy (concat_name, tmp, tmp_len); + concat_name[tmp_len] = '/'; + strcpy (concat_name + tmp_len + 1, wrapper); + } + else + { + concat_name = + XMALLOC (char, p_len + 1 + strlen (wrapper) + 1); + memcpy (concat_name, p, p_len); + concat_name[p_len] = '/'; + strcpy (concat_name + p_len + 1, wrapper); + } + if (check_executable (concat_name)) + return concat_name; + XFREE (concat_name); + } + } + /* not found in PATH; assume curdir */ + } + /* Relative path | not found in path: prepend cwd */ + if (getcwd (tmp, LT_PATHMAX) == NULL) + lt_fatal (__FILE__, __LINE__, "getcwd failed: %s", + nonnull (strerror (errno))); + tmp_len = strlen (tmp); + concat_name = XMALLOC (char, tmp_len + 1 + strlen (wrapper) + 1); + memcpy (concat_name, tmp, tmp_len); + concat_name[tmp_len] = '/'; + strcpy (concat_name + tmp_len + 1, wrapper); + + if (check_executable (concat_name)) + return concat_name; + XFREE (concat_name); + return NULL; +} + +char * +chase_symlinks (const char *pathspec) +{ +#ifndef S_ISLNK + return xstrdup (pathspec); +#else + char buf[LT_PATHMAX]; + struct stat s; + char *tmp_pathspec = xstrdup (pathspec); + char *p; + int has_symlinks = 0; + while (strlen (tmp_pathspec) && !has_symlinks) + { + lt_debugprintf (__FILE__, __LINE__, + "checking path component for symlinks: %s\n", + tmp_pathspec); + if (lstat (tmp_pathspec, &s) == 0) + { + if (S_ISLNK (s.st_mode) != 0) + { + has_symlinks = 1; + break; + } + + /* search backwards for last DIR_SEPARATOR */ + p = tmp_pathspec + strlen (tmp_pathspec) - 1; + while ((p > tmp_pathspec) && (!IS_DIR_SEPARATOR (*p))) + p--; + if ((p == tmp_pathspec) && (!IS_DIR_SEPARATOR (*p))) + { + /* no more DIR_SEPARATORS left */ + break; + } + *p = '\0'; + } + else + { + lt_fatal (__FILE__, __LINE__, + "error accessing file \"%s\": %s", + tmp_pathspec, nonnull (strerror (errno))); + } + } + XFREE (tmp_pathspec); + + if (!has_symlinks) + { + return xstrdup (pathspec); + } + + tmp_pathspec = realpath (pathspec, buf); + if (tmp_pathspec == 0) + { + lt_fatal (__FILE__, __LINE__, + "could not follow symlinks for %s", pathspec); + } + return xstrdup (tmp_pathspec); +#endif +} + +char * +strendzap (char *str, const char *pat) +{ + size_t len, patlen; + + assert (str != NULL); + assert (pat != NULL); + + len = strlen (str); + patlen = strlen (pat); + + if (patlen <= len) + { + str += len - patlen; + if (STREQ (str, pat)) + *str = '\0'; + } + return str; +} + +void +lt_debugprintf (const char *file, int line, const char *fmt, ...) +{ + va_list args; + if (lt_debug) + { + (void) fprintf (stderr, "%s:%s:%d: ", program_name, file, line); + va_start (args, fmt); + (void) vfprintf (stderr, fmt, args); + va_end (args); + } +} + +static void +lt_error_core (int exit_status, const char *file, + int line, const char *mode, + const char *message, va_list ap) +{ + fprintf (stderr, "%s:%s:%d: %s: ", program_name, file, line, mode); + vfprintf (stderr, message, ap); + fprintf (stderr, ".\n"); + + if (exit_status >= 0) + exit (exit_status); +} + +void +lt_fatal (const char *file, int line, const char *message, ...) +{ + va_list ap; + va_start (ap, message); + lt_error_core (EXIT_FAILURE, file, line, "FATAL", message, ap); + va_end (ap); +} + +static const char * +nonnull (const char *s) +{ + return s ? s : "(null)"; +} + +static const char * +nonempty (const char *s) +{ + return (s && !*s) ? "(empty)" : nonnull (s); +} + +void +lt_setenv (const char *name, const char *value) +{ + lt_debugprintf (__FILE__, __LINE__, + "(lt_setenv) setting '%s' to '%s'\n", + nonnull (name), nonnull (value)); + { +#ifdef HAVE_SETENV + /* always make a copy, for consistency with !HAVE_SETENV */ + char *str = xstrdup (value); + setenv (name, str, 1); +#else + size_t len = strlen (name) + 1 + strlen (value) + 1; + char *str = XMALLOC (char, len); + sprintf (str, "%s=%s", name, value); + if (putenv (str) != EXIT_SUCCESS) + { + XFREE (str); + } +#endif + } +} + +char * +lt_extend_str (const char *orig_value, const char *add, int to_end) +{ + char *new_value; + if (orig_value && *orig_value) + { + size_t orig_value_len = strlen (orig_value); + size_t add_len = strlen (add); + new_value = XMALLOC (char, add_len + orig_value_len + 1); + if (to_end) + { + strcpy (new_value, orig_value); + strcpy (new_value + orig_value_len, add); + } + else + { + strcpy (new_value, add); + strcpy (new_value + add_len, orig_value); + } + } + else + { + new_value = xstrdup (add); + } + return new_value; +} + +void +lt_update_exe_path (const char *name, const char *value) +{ + lt_debugprintf (__FILE__, __LINE__, + "(lt_update_exe_path) modifying '%s' by prepending '%s'\n", + nonnull (name), nonnull (value)); + + if (name && *name && value && *value) + { + char *new_value = lt_extend_str (getenv (name), value, 0); + /* some systems can't cope with a ':'-terminated path #' */ + size_t len = strlen (new_value); + while ((len > 0) && IS_PATH_SEPARATOR (new_value[len-1])) + { + new_value[--len] = '\0'; + } + lt_setenv (name, new_value); + XFREE (new_value); + } +} + +void +lt_update_lib_path (const char *name, const char *value) +{ + lt_debugprintf (__FILE__, __LINE__, + "(lt_update_lib_path) modifying '%s' by prepending '%s'\n", + nonnull (name), nonnull (value)); + + if (name && *name && value && *value) + { + char *new_value = lt_extend_str (getenv (name), value, 0); + lt_setenv (name, new_value); + XFREE (new_value); + } +} + +EOF + case $host_os in + mingw*) + cat <<"EOF" + +/* Prepares an argument vector before calling spawn(). + Note that spawn() does not by itself call the command interpreter + (getenv ("COMSPEC") != NULL ? getenv ("COMSPEC") : + ({ OSVERSIONINFO v; v.dwOSVersionInfoSize = sizeof(OSVERSIONINFO); + GetVersionEx(&v); + v.dwPlatformId == VER_PLATFORM_WIN32_NT; + }) ? "cmd.exe" : "command.com"). + Instead it simply concatenates the arguments, separated by ' ', and calls + CreateProcess(). We must quote the arguments since Win32 CreateProcess() + interprets characters like ' ', '\t', '\\', '"' (but not '<' and '>') in a + special way: + - Space and tab are interpreted as delimiters. They are not treated as + delimiters if they are surrounded by double quotes: "...". + - Unescaped double quotes are removed from the input. Their only effect is + that within double quotes, space and tab are treated like normal + characters. + - Backslashes not followed by double quotes are not special. + - But 2*n+1 backslashes followed by a double quote become + n backslashes followed by a double quote (n >= 0): + \" -> " + \\\" -> \" + \\\\\" -> \\" + */ +#define SHELL_SPECIAL_CHARS "\"\\ \001\002\003\004\005\006\007\010\011\012\013\014\015\016\017\020\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037" +#define SHELL_SPACE_CHARS " \001\002\003\004\005\006\007\010\011\012\013\014\015\016\017\020\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037" +char ** +prepare_spawn (char **argv) +{ + size_t argc; + char **new_argv; + size_t i; + + /* Count number of arguments. */ + for (argc = 0; argv[argc] != NULL; argc++) + ; + + /* Allocate new argument vector. */ + new_argv = XMALLOC (char *, argc + 1); + + /* Put quoted arguments into the new argument vector. */ + for (i = 0; i < argc; i++) + { + const char *string = argv[i]; + + if (string[0] == '\0') + new_argv[i] = xstrdup ("\"\""); + else if (strpbrk (string, SHELL_SPECIAL_CHARS) != NULL) + { + int quote_around = (strpbrk (string, SHELL_SPACE_CHARS) != NULL); + size_t length; + unsigned int backslashes; + const char *s; + char *quoted_string; + char *p; + + length = 0; + backslashes = 0; + if (quote_around) + length++; + for (s = string; *s != '\0'; s++) + { + char c = *s; + if (c == '"') + length += backslashes + 1; + length++; + if (c == '\\') + backslashes++; + else + backslashes = 0; + } + if (quote_around) + length += backslashes + 1; + + quoted_string = XMALLOC (char, length + 1); + + p = quoted_string; + backslashes = 0; + if (quote_around) + *p++ = '"'; + for (s = string; *s != '\0'; s++) + { + char c = *s; + if (c == '"') + { + unsigned int j; + for (j = backslashes + 1; j > 0; j--) + *p++ = '\\'; + } + *p++ = c; + if (c == '\\') + backslashes++; + else + backslashes = 0; + } + if (quote_around) + { + unsigned int j; + for (j = backslashes; j > 0; j--) + *p++ = '\\'; + *p++ = '"'; + } + *p = '\0'; + + new_argv[i] = quoted_string; + } + else + new_argv[i] = (char *) string; + } + new_argv[argc] = NULL; + + return new_argv; +} +EOF + ;; + esac + + cat <<"EOF" +void lt_dump_script (FILE* f) +{ +EOF + func_emit_wrapper yes | + $SED -n -e ' +s/^\(.\{79\}\)\(..*\)/\1\ +\2/ +h +s/\([\\"]\)/\\\1/g +s/$/\\n/ +s/\([^\n]*\).*/ fputs ("\1", f);/p +g +D' + cat <<"EOF" +} +EOF +} +# end: func_emit_cwrapperexe_src + +# func_win32_import_lib_p ARG +# True if ARG is an import lib, as indicated by $file_magic_cmd +func_win32_import_lib_p () +{ + $debug_cmd + + case `eval $file_magic_cmd \"\$1\" 2>/dev/null | $SED -e 10q` in + *import*) : ;; + *) false ;; + esac +} + +# func_suncc_cstd_abi +# !!ONLY CALL THIS FOR SUN CC AFTER $compile_command IS FULLY EXPANDED!! +# Several compiler flags select an ABI that is incompatible with the +# Cstd library. Avoid specifying it if any are in CXXFLAGS. +func_suncc_cstd_abi () +{ + $debug_cmd + + case " $compile_command " in + *" -compat=g "*|*\ -std=c++[0-9][0-9]\ *|*" -library=stdcxx4 "*|*" -library=stlport4 "*) + suncc_use_cstd_abi=no + ;; + *) + suncc_use_cstd_abi=yes + ;; + esac +} + +# func_mode_link arg... +func_mode_link () +{ + $debug_cmd + + case $host in + *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-cegcc*) + # It is impossible to link a dll without this setting, and + # we shouldn't force the makefile maintainer to figure out + # what system we are compiling for in order to pass an extra + # flag for every libtool invocation. + # allow_undefined=no + + # FIXME: Unfortunately, there are problems with the above when trying + # to make a dll that has undefined symbols, in which case not + # even a static library is built. For now, we need to specify + # -no-undefined on the libtool link line when we can be certain + # that all symbols are satisfied, otherwise we get a static library. + allow_undefined=yes + ;; + *) + allow_undefined=yes + ;; + esac + libtool_args=$nonopt + base_compile="$nonopt $@" + compile_command=$nonopt + finalize_command=$nonopt + + compile_rpath= + finalize_rpath= + compile_shlibpath= + finalize_shlibpath= + convenience= + old_convenience= + deplibs= + old_deplibs= + compiler_flags= + linker_flags= + dllsearchpath= + lib_search_path=`pwd` + inst_prefix_dir= + new_inherited_linker_flags= + + avoid_version=no + bindir= + dlfiles= + dlprefiles= + dlself=no + export_dynamic=no + export_symbols= + export_symbols_regex= + generated= + libobjs= + ltlibs= + module=no + no_install=no + objs= + os2dllname= + non_pic_objects= + precious_files_regex= + prefer_static_libs=no + preload=false + prev= + prevarg= + release= + rpath= + xrpath= + perm_rpath= + temp_rpath= + thread_safe=no + vinfo= + vinfo_number=no + weak_libs= + single_module=$wl-single_module + func_infer_tag $base_compile + + # We need to know -static, to get the right output filenames. + for arg + do + case $arg in + -shared) + test yes != "$build_libtool_libs" \ + && func_fatal_configuration "cannot build a shared library" + build_old_libs=no + break + ;; + -all-static | -static | -static-uninstalled-libs | -static-libtool-libs) + case $arg in + -all-static | -static) + if test yes = "$build_libtool_libs" && test -z "$link_static_flag"; then + func_warning "complete static linking is impossible in this configuration" + fi + if test -n "$link_static_flag"; then + dlopen_self=$dlopen_self_static + fi + prefer_static_libs=yes + ;; + -static-uninstalled-libs) + if test -z "$pic_flag" && test -n "$link_static_flag"; then + dlopen_self=$dlopen_self_static + fi + prefer_static_libs=built + ;; + -static-libtool-libs) + if test -z "$pic_flag" && test -n "$link_static_flag"; then + dlopen_self=$dlopen_self_static + fi + prefer_static_libs=yes + ;; + esac + build_libtool_libs=no + build_old_libs=yes + break + ;; + esac + done + + # See if our shared archives depend on static archives. + test -n "$old_archive_from_new_cmds" && build_old_libs=yes + + # Go through the arguments, transforming them on the way. + while test "$#" -gt 0; do + arg=$1 + shift + func_quote_for_eval "$arg" + qarg=$func_quote_for_eval_unquoted_result + func_append libtool_args " $func_quote_for_eval_result" + + # If the previous option needs an argument, assign it. + if test -n "$prev"; then + case $prev in + output) + func_append compile_command " @OUTPUT@" + func_append finalize_command " @OUTPUT@" + ;; + esac + + case $prev in + bindir) + bindir=$arg + prev= + continue + ;; + dlfiles|dlprefiles) + $preload || { + # Add the symbol object into the linking commands. + func_append compile_command " @SYMFILE@" + func_append finalize_command " @SYMFILE@" + preload=: + } + case $arg in + *.la | *.lo) ;; # We handle these cases below. + force) + if test no = "$dlself"; then + dlself=needless + export_dynamic=yes + fi + prev= + continue + ;; + self) + if test dlprefiles = "$prev"; then + dlself=yes + elif test dlfiles = "$prev" && test yes != "$dlopen_self"; then + dlself=yes + else + dlself=needless + export_dynamic=yes + fi + prev= + continue + ;; + *) + if test dlfiles = "$prev"; then + func_append dlfiles " $arg" + else + func_append dlprefiles " $arg" + fi + prev= + continue + ;; + esac + ;; + expsyms) + export_symbols=$arg + test -f "$arg" \ + || func_fatal_error "symbol file '$arg' does not exist" + prev= + continue + ;; + expsyms_regex) + export_symbols_regex=$arg + prev= + continue + ;; + framework) + case $host in + *-*-darwin*) + case "$deplibs " in + *" $qarg.ltframework "*) ;; + *) func_append deplibs " $qarg.ltframework" # this is fixed later + ;; + esac + ;; + esac + prev= + continue + ;; + inst_prefix) + inst_prefix_dir=$arg + prev= + continue + ;; + mllvm) + # Clang does not use LLVM to link, so we can simply discard any + # '-mllvm $arg' options when doing the link step. + prev= + continue + ;; + objectlist) + if test -f "$arg"; then + save_arg=$arg + moreargs= + for fil in `cat "$save_arg"` + do +# func_append moreargs " $fil" + arg=$fil + # A libtool-controlled object. + + # Check to see that this really is a libtool object. + if func_lalib_unsafe_p "$arg"; then + pic_object= + non_pic_object= + + # Read the .lo file + func_source "$arg" + + if test -z "$pic_object" || + test -z "$non_pic_object" || + test none = "$pic_object" && + test none = "$non_pic_object"; then + func_fatal_error "cannot find name of object for '$arg'" + fi + + # Extract subdirectory from the argument. + func_dirname "$arg" "/" "" + xdir=$func_dirname_result + + if test none != "$pic_object"; then + # Prepend the subdirectory the object is found in. + pic_object=$xdir$pic_object + + if test dlfiles = "$prev"; then + if test yes = "$build_libtool_libs" && test yes = "$dlopen_support"; then + func_append dlfiles " $pic_object" + prev= + continue + else + # If libtool objects are unsupported, then we need to preload. + prev=dlprefiles + fi + fi + + # CHECK ME: I think I busted this. -Ossama + if test dlprefiles = "$prev"; then + # Preload the old-style object. + func_append dlprefiles " $pic_object" + prev= + fi + + # A PIC object. + func_append libobjs " $pic_object" + arg=$pic_object + fi + + # Non-PIC object. + if test none != "$non_pic_object"; then + # Prepend the subdirectory the object is found in. + non_pic_object=$xdir$non_pic_object + + # A standard non-PIC object + func_append non_pic_objects " $non_pic_object" + if test -z "$pic_object" || test none = "$pic_object"; then + arg=$non_pic_object + fi + else + # If the PIC object exists, use it instead. + # $xdir was prepended to $pic_object above. + non_pic_object=$pic_object + func_append non_pic_objects " $non_pic_object" + fi + else + # Only an error if not doing a dry-run. + if $opt_dry_run; then + # Extract subdirectory from the argument. + func_dirname "$arg" "/" "" + xdir=$func_dirname_result + + func_lo2o "$arg" + pic_object=$xdir$objdir/$func_lo2o_result + non_pic_object=$xdir$func_lo2o_result + func_append libobjs " $pic_object" + func_append non_pic_objects " $non_pic_object" + else + func_fatal_error "'$arg' is not a valid libtool object" + fi + fi + done + else + func_fatal_error "link input file '$arg' does not exist" + fi + arg=$save_arg + prev= + continue + ;; + os2dllname) + os2dllname=$arg + prev= + continue + ;; + precious_regex) + precious_files_regex=$arg + prev= + continue + ;; + release) + release=-$arg + prev= + continue + ;; + rpath | xrpath) + # We need an absolute path. + case $arg in + [\\/]* | [A-Za-z]:[\\/]*) ;; + *) + func_fatal_error "only absolute run-paths are allowed" + ;; + esac + if test rpath = "$prev"; then + case "$rpath " in + *" $arg "*) ;; + *) func_append rpath " $arg" ;; + esac + else + case "$xrpath " in + *" $arg "*) ;; + *) func_append xrpath " $arg" ;; + esac + fi + prev= + continue + ;; + shrext) + shrext_cmds=$arg + prev= + continue + ;; + weak) + func_append weak_libs " $arg" + prev= + continue + ;; + xcclinker) + func_append linker_flags " $qarg" + func_append compiler_flags " $qarg" + prev= + func_append compile_command " $qarg" + func_append finalize_command " $qarg" + continue + ;; + xcompiler) + func_append compiler_flags " $qarg" + prev= + func_append compile_command " $qarg" + func_append finalize_command " $qarg" + continue + ;; + xlinker) + func_append linker_flags " $qarg" + func_append compiler_flags " $wl$qarg" + prev= + func_append compile_command " $wl$qarg" + func_append finalize_command " $wl$qarg" + continue + ;; + *) + eval "$prev=\"\$arg\"" + prev= + continue + ;; + esac + fi # test -n "$prev" + + prevarg=$arg + + case $arg in + -all-static | -static) + if test -n "$link_static_flag"; then + # See comment for -static flag below, for more details. + func_append compile_command " $link_static_flag" + func_append finalize_command " $link_static_flag" + fi + continue + ;; + + -allow-undefined) + # FIXME: remove this flag sometime in the future. + func_fatal_error "'-allow-undefined' must not be used because it is the default" + ;; + + -avoid-version) + avoid_version=yes + continue + ;; + + -bindir) + prev=bindir + continue + ;; + + -dlopen) + prev=dlfiles + continue + ;; + + -dlpreopen) + prev=dlprefiles + continue + ;; + + -export-dynamic) + export_dynamic=yes + continue + ;; + + -export-symbols | -export-symbols-regex) + if test -n "$export_symbols" || test -n "$export_symbols_regex"; then + func_fatal_error "more than one -exported-symbols argument is not allowed" + fi + if test X-export-symbols = "X$arg"; then + prev=expsyms + else + prev=expsyms_regex + fi + continue + ;; + + -framework) + prev=framework + continue + ;; + + -inst-prefix-dir) + prev=inst_prefix + continue + ;; + + # The native IRIX linker understands -LANG:*, -LIST:* and -LNO:* + # so, if we see these flags be careful not to treat them like -L + -L[A-Z][A-Z]*:*) + case $with_gcc/$host in + no/*-*-irix* | /*-*-irix*) + func_append compile_command " $arg" + func_append finalize_command " $arg" + ;; + esac + continue + ;; + + -L*) + func_stripname "-L" '' "$arg" + if test -z "$func_stripname_result"; then + if test "$#" -gt 0; then + func_fatal_error "require no space between '-L' and '$1'" + else + func_fatal_error "need path for '-L' option" + fi + fi + func_resolve_sysroot "$func_stripname_result" + dir=$func_resolve_sysroot_result + # We need an absolute path. + case $dir in + [\\/]* | [A-Za-z]:[\\/]*) ;; + *) + absdir=`cd "$dir" && pwd` + test -z "$absdir" && \ + func_fatal_error "cannot determine absolute directory name of '$dir'" + dir=$absdir + ;; + esac + case "$deplibs " in + *" -L$dir "* | *" $arg "*) + # Will only happen for absolute or sysroot arguments + ;; + *) + # Preserve sysroot, but never include relative directories + case $dir in + [\\/]* | [A-Za-z]:[\\/]* | =*) func_append deplibs " $arg" ;; + *) func_append deplibs " -L$dir" ;; + esac + func_append lib_search_path " $dir" + ;; + esac + case $host in + *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-cegcc*) + testbindir=`$ECHO "$dir" | $SED 's*/lib$*/bin*'` + case :$dllsearchpath: in + *":$dir:"*) ;; + ::) dllsearchpath=$dir;; + *) func_append dllsearchpath ":$dir";; + esac + case :$dllsearchpath: in + *":$testbindir:"*) ;; + ::) dllsearchpath=$testbindir;; + *) func_append dllsearchpath ":$testbindir";; + esac + ;; + esac + continue + ;; + + -l*) + if test X-lc = "X$arg" || test X-lm = "X$arg"; then + case $host in + *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-beos* | *-cegcc* | *-*-haiku*) + # These systems don't actually have a C or math library (as such) + continue + ;; + *-*-os2*) + # These systems don't actually have a C library (as such) + test X-lc = "X$arg" && continue + ;; + *-*-openbsd* | *-*-freebsd* | *-*-dragonfly* | *-*-bitrig*) + # Do not include libc due to us having libc/libc_r. + test X-lc = "X$arg" && continue + ;; + *-*-rhapsody* | *-*-darwin1.[012]) + # Rhapsody C and math libraries are in the System framework + func_append deplibs " System.ltframework" + continue + ;; + *-*-sco3.2v5* | *-*-sco5v6*) + # Causes problems with __ctype + test X-lc = "X$arg" && continue + ;; + *-*-sysv4.2uw2* | *-*-sysv5* | *-*-unixware* | *-*-OpenUNIX*) + # Compiler inserts libc in the correct place for threads to work + test X-lc = "X$arg" && continue + ;; + esac + elif test X-lc_r = "X$arg"; then + case $host in + *-*-openbsd* | *-*-freebsd* | *-*-dragonfly* | *-*-bitrig*) + # Do not include libc_r directly, use -pthread flag. + continue + ;; + esac + fi + func_append deplibs " $arg" + continue + ;; + + -mllvm) + prev=mllvm + continue + ;; + + -module) + module=yes + continue + ;; + + # Tru64 UNIX uses -model [arg] to determine the layout of C++ + # classes, name mangling, and exception handling. + # Darwin uses the -arch flag to determine output architecture. + -model|-arch|-isysroot|--sysroot) + func_append compiler_flags " $arg" + func_append compile_command " $arg" + func_append finalize_command " $arg" + prev=xcompiler + continue + ;; + + -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe \ + |-threads|-fopenmp|-openmp|-mp|-xopenmp|-omp|-qsmp=*) + func_append compiler_flags " $arg" + func_append compile_command " $arg" + func_append finalize_command " $arg" + case "$new_inherited_linker_flags " in + *" $arg "*) ;; + * ) func_append new_inherited_linker_flags " $arg" ;; + esac + continue + ;; + + -multi_module) + single_module=$wl-multi_module + continue + ;; + + -no-fast-install) + fast_install=no + continue + ;; + + -no-install) + case $host in + *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-*-darwin* | *-cegcc*) + # The PATH hackery in wrapper scripts is required on Windows + # and Darwin in order for the loader to find any dlls it needs. + func_warning "'-no-install' is ignored for $host" + func_warning "assuming '-no-fast-install' instead" + fast_install=no + ;; + *) no_install=yes ;; + esac + continue + ;; + + -no-undefined) + allow_undefined=no + continue + ;; + + -objectlist) + prev=objectlist + continue + ;; + + -os2dllname) + prev=os2dllname + continue + ;; + + -o) prev=output ;; + + -precious-files-regex) + prev=precious_regex + continue + ;; + + -release) + prev=release + continue + ;; + + -rpath) + prev=rpath + continue + ;; + + -R) + prev=xrpath + continue + ;; + + -R*) + func_stripname '-R' '' "$arg" + dir=$func_stripname_result + # We need an absolute path. + case $dir in + [\\/]* | [A-Za-z]:[\\/]*) ;; + =*) + func_stripname '=' '' "$dir" + dir=$lt_sysroot$func_stripname_result + ;; + *) + func_fatal_error "only absolute run-paths are allowed" + ;; + esac + case "$xrpath " in + *" $dir "*) ;; + *) func_append xrpath " $dir" ;; + esac + continue + ;; + + -shared) + # The effects of -shared are defined in a previous loop. + continue + ;; + + -shrext) + prev=shrext + continue + ;; + + -static-uninstalled-libs | -static-libtool-libs) + # The effects of -static-uninstalled-libs are defined in a previous + # loop. We used to do the same as -all-static on platforms that + # didn't have a PIC flag, but the assumption that the effects + # would be equivalent was wrong. It would break on at least + # Digital Unix and AIX. + continue + ;; + + -thread-safe) + thread_safe=yes + continue + ;; + + -version-info) + prev=vinfo + continue + ;; + + -version-number) + prev=vinfo + vinfo_number=yes + continue + ;; + + -weak) + prev=weak + continue + ;; + + -Wc,*) + func_stripname '-Wc,' '' "$arg" + args=$func_stripname_result + arg= + save_ifs=$IFS; IFS=, + for flag in $args; do + IFS=$save_ifs + func_quote_for_eval "$flag" + func_append arg " $func_quote_for_eval_result" + func_append compiler_flags " $func_quote_for_eval_result" + done + IFS=$save_ifs + func_stripname ' ' '' "$arg" + arg=$func_stripname_result + ;; + + -Wl,*) + func_stripname '-Wl,' '' "$arg" + args=$func_stripname_result + arg= + save_ifs=$IFS; IFS=, + for flag in $args; do + IFS=$save_ifs + func_quote_for_eval "$flag" + func_append arg " $wl$func_quote_for_eval_result" + func_append compiler_flags " $wl$func_quote_for_eval_result" + func_append linker_flags " $func_quote_for_eval_result" + done + IFS=$save_ifs + func_stripname ' ' '' "$arg" + arg=$func_stripname_result + ;; + + -Xcompiler) + prev=xcompiler + continue + ;; + + -Xlinker) + prev=xlinker + continue + ;; + + -XCClinker) + prev=xcclinker + continue + ;; + + # -msg_* for osf cc + -msg_*) + func_quote_for_eval "$arg" + arg=$func_quote_for_eval_result + ;; + + # Flags to be passed through unchanged, with rationale: + # -64, -mips[0-9] enable 64-bit mode for the SGI compiler + # -r[0-9][0-9]* specify processor for the SGI compiler + # -xarch=*, -xtarget=* enable 64-bit mode for the Sun compiler + # +DA*, +DD* enable 64-bit mode for the HP compiler + # -q* compiler args for the IBM compiler + # -m*, -t[45]*, -txscale* architecture-specific flags for GCC + # -F/path path to uninstalled frameworks, gcc on darwin + # -p, -pg, --coverage, -fprofile-* profiling flags for GCC + # -fstack-protector* stack protector flags for GCC + # @file GCC response files + # -tp=* Portland pgcc target processor selection + # --sysroot=* for sysroot support + # -O*, -g*, -flto*, -fwhopr*, -fuse-linker-plugin GCC link-time optimization + # -stdlib=* select c++ std lib with clang + -64|-mips[0-9]|-r[0-9][0-9]*|-xarch=*|-xtarget=*|+DA*|+DD*|-q*|-m*| \ + -t[45]*|-txscale*|-p|-pg|--coverage|-fprofile-*|-F*|@*|-tp=*|--sysroot=*| \ + -O*|-g*|-flto*|-fwhopr*|-fuse-linker-plugin|-fstack-protector*|-stdlib=*) + func_quote_for_eval "$arg" + arg=$func_quote_for_eval_result + func_append compile_command " $arg" + func_append finalize_command " $arg" + func_append compiler_flags " $arg" + continue + ;; + + -Z*) + if test os2 = "`expr $host : '.*\(os2\)'`"; then + # OS/2 uses -Zxxx to specify OS/2-specific options + compiler_flags="$compiler_flags $arg" + func_append compile_command " $arg" + func_append finalize_command " $arg" + case $arg in + -Zlinker | -Zstack) + prev=xcompiler + ;; + esac + continue + else + # Otherwise treat like 'Some other compiler flag' below + func_quote_for_eval "$arg" + arg=$func_quote_for_eval_result + fi + ;; + + # Some other compiler flag. + -* | +*) + func_quote_for_eval "$arg" + arg=$func_quote_for_eval_result + ;; + + *.$objext) + # A standard object. + func_append objs " $arg" + ;; + + *.lo) + # A libtool-controlled object. + + # Check to see that this really is a libtool object. + if func_lalib_unsafe_p "$arg"; then + pic_object= + non_pic_object= + + # Read the .lo file + func_source "$arg" + + if test -z "$pic_object" || + test -z "$non_pic_object" || + test none = "$pic_object" && + test none = "$non_pic_object"; then + func_fatal_error "cannot find name of object for '$arg'" + fi + + # Extract subdirectory from the argument. + func_dirname "$arg" "/" "" + xdir=$func_dirname_result + + test none = "$pic_object" || { + # Prepend the subdirectory the object is found in. + pic_object=$xdir$pic_object + + if test dlfiles = "$prev"; then + if test yes = "$build_libtool_libs" && test yes = "$dlopen_support"; then + func_append dlfiles " $pic_object" + prev= + continue + else + # If libtool objects are unsupported, then we need to preload. + prev=dlprefiles + fi + fi + + # CHECK ME: I think I busted this. -Ossama + if test dlprefiles = "$prev"; then + # Preload the old-style object. + func_append dlprefiles " $pic_object" + prev= + fi + + # A PIC object. + func_append libobjs " $pic_object" + arg=$pic_object + } + + # Non-PIC object. + if test none != "$non_pic_object"; then + # Prepend the subdirectory the object is found in. + non_pic_object=$xdir$non_pic_object + + # A standard non-PIC object + func_append non_pic_objects " $non_pic_object" + if test -z "$pic_object" || test none = "$pic_object"; then + arg=$non_pic_object + fi + else + # If the PIC object exists, use it instead. + # $xdir was prepended to $pic_object above. + non_pic_object=$pic_object + func_append non_pic_objects " $non_pic_object" + fi + else + # Only an error if not doing a dry-run. + if $opt_dry_run; then + # Extract subdirectory from the argument. + func_dirname "$arg" "/" "" + xdir=$func_dirname_result + + func_lo2o "$arg" + pic_object=$xdir$objdir/$func_lo2o_result + non_pic_object=$xdir$func_lo2o_result + func_append libobjs " $pic_object" + func_append non_pic_objects " $non_pic_object" + else + func_fatal_error "'$arg' is not a valid libtool object" + fi + fi + ;; + + *.$libext) + # An archive. + func_append deplibs " $arg" + func_append old_deplibs " $arg" + continue + ;; + + *.la) + # A libtool-controlled library. + + func_resolve_sysroot "$arg" + if test dlfiles = "$prev"; then + # This library was specified with -dlopen. + func_append dlfiles " $func_resolve_sysroot_result" + prev= + elif test dlprefiles = "$prev"; then + # The library was specified with -dlpreopen. + func_append dlprefiles " $func_resolve_sysroot_result" + prev= + else + func_append deplibs " $func_resolve_sysroot_result" + fi + continue + ;; + + # Some other compiler argument. + *) + # Unknown arguments in both finalize_command and compile_command need + # to be aesthetically quoted because they are evaled later. + func_quote_for_eval "$arg" + arg=$func_quote_for_eval_result + ;; + esac # arg + + # Now actually substitute the argument into the commands. + if test -n "$arg"; then + func_append compile_command " $arg" + func_append finalize_command " $arg" + fi + done # argument parsing loop + + test -n "$prev" && \ + func_fatal_help "the '$prevarg' option requires an argument" + + if test yes = "$export_dynamic" && test -n "$export_dynamic_flag_spec"; then + eval arg=\"$export_dynamic_flag_spec\" + func_append compile_command " $arg" + func_append finalize_command " $arg" + fi + + oldlibs= + # calculate the name of the file, without its directory + func_basename "$output" + outputname=$func_basename_result + libobjs_save=$libobjs + + if test -n "$shlibpath_var"; then + # get the directories listed in $shlibpath_var + eval shlib_search_path=\`\$ECHO \"\$$shlibpath_var\" \| \$SED \'s/:/ /g\'\` + else + shlib_search_path= + fi + eval sys_lib_search_path=\"$sys_lib_search_path_spec\" + eval sys_lib_dlsearch_path=\"$sys_lib_dlsearch_path_spec\" + + # Definition is injected by LT_CONFIG during libtool generation. + func_munge_path_list sys_lib_dlsearch_path "$LT_SYS_LIBRARY_PATH" + + func_dirname "$output" "/" "" + output_objdir=$func_dirname_result$objdir + func_to_tool_file "$output_objdir/" + tool_output_objdir=$func_to_tool_file_result + # Create the object directory. + func_mkdir_p "$output_objdir" + + # Determine the type of output + case $output in + "") + func_fatal_help "you must specify an output file" + ;; + *.$libext) linkmode=oldlib ;; + *.lo | *.$objext) linkmode=obj ;; + *.la) linkmode=lib ;; + *) linkmode=prog ;; # Anything else should be a program. + esac + + specialdeplibs= + + libs= + # Find all interdependent deplibs by searching for libraries + # that are linked more than once (e.g. -la -lb -la) + for deplib in $deplibs; do + if $opt_preserve_dup_deps; then + case "$libs " in + *" $deplib "*) func_append specialdeplibs " $deplib" ;; + esac + fi + func_append libs " $deplib" + done + + if test lib = "$linkmode"; then + libs="$predeps $libs $compiler_lib_search_path $postdeps" + + # Compute libraries that are listed more than once in $predeps + # $postdeps and mark them as special (i.e., whose duplicates are + # not to be eliminated). + pre_post_deps= + if $opt_duplicate_compiler_generated_deps; then + for pre_post_dep in $predeps $postdeps; do + case "$pre_post_deps " in + *" $pre_post_dep "*) func_append specialdeplibs " $pre_post_deps" ;; + esac + func_append pre_post_deps " $pre_post_dep" + done + fi + pre_post_deps= + fi + + deplibs= + newdependency_libs= + newlib_search_path= + need_relink=no # whether we're linking any uninstalled libtool libraries + notinst_deplibs= # not-installed libtool libraries + notinst_path= # paths that contain not-installed libtool libraries + + case $linkmode in + lib) + passes="conv dlpreopen link" + for file in $dlfiles $dlprefiles; do + case $file in + *.la) ;; + *) + func_fatal_help "libraries can '-dlopen' only libtool libraries: $file" + ;; + esac + done + ;; + prog) + compile_deplibs= + finalize_deplibs= + alldeplibs=false + newdlfiles= + newdlprefiles= + passes="conv scan dlopen dlpreopen link" + ;; + *) passes="conv" + ;; + esac + + for pass in $passes; do + # The preopen pass in lib mode reverses $deplibs; put it back here + # so that -L comes before libs that need it for instance... + if test lib,link = "$linkmode,$pass"; then + ## FIXME: Find the place where the list is rebuilt in the wrong + ## order, and fix it there properly + tmp_deplibs= + for deplib in $deplibs; do + tmp_deplibs="$deplib $tmp_deplibs" + done + deplibs=$tmp_deplibs + fi + + if test lib,link = "$linkmode,$pass" || + test prog,scan = "$linkmode,$pass"; then + libs=$deplibs + deplibs= + fi + if test prog = "$linkmode"; then + case $pass in + dlopen) libs=$dlfiles ;; + dlpreopen) libs=$dlprefiles ;; + link) libs="$deplibs %DEPLIBS% $dependency_libs" ;; + esac + fi + if test lib,dlpreopen = "$linkmode,$pass"; then + # Collect and forward deplibs of preopened libtool libs + for lib in $dlprefiles; do + # Ignore non-libtool-libs + dependency_libs= + func_resolve_sysroot "$lib" + case $lib in + *.la) func_source "$func_resolve_sysroot_result" ;; + esac + + # Collect preopened libtool deplibs, except any this library + # has declared as weak libs + for deplib in $dependency_libs; do + func_basename "$deplib" + deplib_base=$func_basename_result + case " $weak_libs " in + *" $deplib_base "*) ;; + *) func_append deplibs " $deplib" ;; + esac + done + done + libs=$dlprefiles + fi + if test dlopen = "$pass"; then + # Collect dlpreopened libraries + save_deplibs=$deplibs + deplibs= + fi + + for deplib in $libs; do + lib= + found=false + case $deplib in + -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe \ + |-threads|-fopenmp|-openmp|-mp|-xopenmp|-omp|-qsmp=*) + if test prog,link = "$linkmode,$pass"; then + compile_deplibs="$deplib $compile_deplibs" + finalize_deplibs="$deplib $finalize_deplibs" + else + func_append compiler_flags " $deplib" + if test lib = "$linkmode"; then + case "$new_inherited_linker_flags " in + *" $deplib "*) ;; + * ) func_append new_inherited_linker_flags " $deplib" ;; + esac + fi + fi + continue + ;; + -l*) + if test lib != "$linkmode" && test prog != "$linkmode"; then + func_warning "'-l' is ignored for archives/objects" + continue + fi + func_stripname '-l' '' "$deplib" + name=$func_stripname_result + if test lib = "$linkmode"; then + searchdirs="$newlib_search_path $lib_search_path $compiler_lib_search_dirs $sys_lib_search_path $shlib_search_path" + else + searchdirs="$newlib_search_path $lib_search_path $sys_lib_search_path $shlib_search_path" + fi + for searchdir in $searchdirs; do + for search_ext in .la $std_shrext .so .a; do + # Search the libtool library + lib=$searchdir/lib$name$search_ext + if test -f "$lib"; then + if test .la = "$search_ext"; then + found=: + else + found=false + fi + break 2 + fi + done + done + if $found; then + # deplib is a libtool library + # If $allow_libtool_libs_with_static_runtimes && $deplib is a stdlib, + # We need to do some special things here, and not later. + if test yes = "$allow_libtool_libs_with_static_runtimes"; then + case " $predeps $postdeps " in + *" $deplib "*) + if func_lalib_p "$lib"; then + library_names= + old_library= + func_source "$lib" + for l in $old_library $library_names; do + ll=$l + done + if test "X$ll" = "X$old_library"; then # only static version available + found=false + func_dirname "$lib" "" "." + ladir=$func_dirname_result + lib=$ladir/$old_library + if test prog,link = "$linkmode,$pass"; then + compile_deplibs="$deplib $compile_deplibs" + finalize_deplibs="$deplib $finalize_deplibs" + else + deplibs="$deplib $deplibs" + test lib = "$linkmode" && newdependency_libs="$deplib $newdependency_libs" + fi + continue + fi + fi + ;; + *) ;; + esac + fi + else + # deplib doesn't seem to be a libtool library + if test prog,link = "$linkmode,$pass"; then + compile_deplibs="$deplib $compile_deplibs" + finalize_deplibs="$deplib $finalize_deplibs" + else + deplibs="$deplib $deplibs" + test lib = "$linkmode" && newdependency_libs="$deplib $newdependency_libs" + fi + continue + fi + ;; # -l + *.ltframework) + if test prog,link = "$linkmode,$pass"; then + compile_deplibs="$deplib $compile_deplibs" + finalize_deplibs="$deplib $finalize_deplibs" + else + deplibs="$deplib $deplibs" + if test lib = "$linkmode"; then + case "$new_inherited_linker_flags " in + *" $deplib "*) ;; + * ) func_append new_inherited_linker_flags " $deplib" ;; + esac + fi + fi + continue + ;; + -L*) + case $linkmode in + lib) + deplibs="$deplib $deplibs" + test conv = "$pass" && continue + newdependency_libs="$deplib $newdependency_libs" + func_stripname '-L' '' "$deplib" + func_resolve_sysroot "$func_stripname_result" + func_append newlib_search_path " $func_resolve_sysroot_result" + ;; + prog) + if test conv = "$pass"; then + deplibs="$deplib $deplibs" + continue + fi + if test scan = "$pass"; then + deplibs="$deplib $deplibs" + else + compile_deplibs="$deplib $compile_deplibs" + finalize_deplibs="$deplib $finalize_deplibs" + fi + func_stripname '-L' '' "$deplib" + func_resolve_sysroot "$func_stripname_result" + func_append newlib_search_path " $func_resolve_sysroot_result" + ;; + *) + func_warning "'-L' is ignored for archives/objects" + ;; + esac # linkmode + continue + ;; # -L + -R*) + if test link = "$pass"; then + func_stripname '-R' '' "$deplib" + func_resolve_sysroot "$func_stripname_result" + dir=$func_resolve_sysroot_result + # Make sure the xrpath contains only unique directories. + case "$xrpath " in + *" $dir "*) ;; + *) func_append xrpath " $dir" ;; + esac + fi + deplibs="$deplib $deplibs" + continue + ;; + *.la) + func_resolve_sysroot "$deplib" + lib=$func_resolve_sysroot_result + ;; + *.$libext) + if test conv = "$pass"; then + deplibs="$deplib $deplibs" + continue + fi + case $linkmode in + lib) + # Linking convenience modules into shared libraries is allowed, + # but linking other static libraries is non-portable. + case " $dlpreconveniencelibs " in + *" $deplib "*) ;; + *) + valid_a_lib=false + case $deplibs_check_method in + match_pattern*) + set dummy $deplibs_check_method; shift + match_pattern_regex=`expr "$deplibs_check_method" : "$1 \(.*\)"` + if eval "\$ECHO \"$deplib\"" 2>/dev/null | $SED 10q \ + | $EGREP "$match_pattern_regex" > /dev/null; then + valid_a_lib=: + fi + ;; + pass_all) + valid_a_lib=: + ;; + esac + if $valid_a_lib; then + echo + $ECHO "*** Warning: Linking the shared library $output against the" + $ECHO "*** static library $deplib is not portable!" + deplibs="$deplib $deplibs" + else + echo + $ECHO "*** Warning: Trying to link with static lib archive $deplib." + echo "*** I have the capability to make that library automatically link in when" + echo "*** you link to this library. But I can only do this if you have a" + echo "*** shared version of the library, which you do not appear to have" + echo "*** because the file extensions .$libext of this argument makes me believe" + echo "*** that it is just a static archive that I should not use here." + fi + ;; + esac + continue + ;; + prog) + if test link != "$pass"; then + deplibs="$deplib $deplibs" + else + compile_deplibs="$deplib $compile_deplibs" + finalize_deplibs="$deplib $finalize_deplibs" + fi + continue + ;; + esac # linkmode + ;; # *.$libext + *.lo | *.$objext) + if test conv = "$pass"; then + deplibs="$deplib $deplibs" + elif test prog = "$linkmode"; then + if test dlpreopen = "$pass" || test yes != "$dlopen_support" || test no = "$build_libtool_libs"; then + # If there is no dlopen support or we're linking statically, + # we need to preload. + func_append newdlprefiles " $deplib" + compile_deplibs="$deplib $compile_deplibs" + finalize_deplibs="$deplib $finalize_deplibs" + else + func_append newdlfiles " $deplib" + fi + fi + continue + ;; + %DEPLIBS%) + alldeplibs=: + continue + ;; + esac # case $deplib + + $found || test -f "$lib" \ + || func_fatal_error "cannot find the library '$lib' or unhandled argument '$deplib'" + + # Check to see that this really is a libtool archive. + func_lalib_unsafe_p "$lib" \ + || func_fatal_error "'$lib' is not a valid libtool archive" + + func_dirname "$lib" "" "." + ladir=$func_dirname_result + + dlname= + dlopen= + dlpreopen= + libdir= + library_names= + old_library= + inherited_linker_flags= + # If the library was installed with an old release of libtool, + # it will not redefine variables installed, or shouldnotlink + installed=yes + shouldnotlink=no + avoidtemprpath= + + + # Read the .la file + func_source "$lib" + + # Convert "-framework foo" to "foo.ltframework" + if test -n "$inherited_linker_flags"; then + tmp_inherited_linker_flags=`$ECHO "$inherited_linker_flags" | $SED 's/-framework \([^ $]*\)/\1.ltframework/g'` + for tmp_inherited_linker_flag in $tmp_inherited_linker_flags; do + case " $new_inherited_linker_flags " in + *" $tmp_inherited_linker_flag "*) ;; + *) func_append new_inherited_linker_flags " $tmp_inherited_linker_flag";; + esac + done + fi + dependency_libs=`$ECHO " $dependency_libs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` + if test lib,link = "$linkmode,$pass" || + test prog,scan = "$linkmode,$pass" || + { test prog != "$linkmode" && test lib != "$linkmode"; }; then + test -n "$dlopen" && func_append dlfiles " $dlopen" + test -n "$dlpreopen" && func_append dlprefiles " $dlpreopen" + fi + + if test conv = "$pass"; then + # Only check for convenience libraries + deplibs="$lib $deplibs" + if test -z "$libdir"; then + if test -z "$old_library"; then + func_fatal_error "cannot find name of link library for '$lib'" + fi + # It is a libtool convenience library, so add in its objects. + func_append convenience " $ladir/$objdir/$old_library" + func_append old_convenience " $ladir/$objdir/$old_library" + elif test prog != "$linkmode" && test lib != "$linkmode"; then + func_fatal_error "'$lib' is not a convenience library" + fi + tmp_libs= + for deplib in $dependency_libs; do + deplibs="$deplib $deplibs" + if $opt_preserve_dup_deps; then + case "$tmp_libs " in + *" $deplib "*) func_append specialdeplibs " $deplib" ;; + esac + fi + func_append tmp_libs " $deplib" + done + continue + fi # $pass = conv + + + # Get the name of the library we link against. + linklib= + if test -n "$old_library" && + { test yes = "$prefer_static_libs" || + test built,no = "$prefer_static_libs,$installed"; }; then + linklib=$old_library + else + for l in $old_library $library_names; do + linklib=$l + done + fi + if test -z "$linklib"; then + func_fatal_error "cannot find name of link library for '$lib'" + fi + + # This library was specified with -dlopen. + if test dlopen = "$pass"; then + test -z "$libdir" \ + && func_fatal_error "cannot -dlopen a convenience library: '$lib'" + if test -z "$dlname" || + test yes != "$dlopen_support" || + test no = "$build_libtool_libs" + then + # If there is no dlname, no dlopen support or we're linking + # statically, we need to preload. We also need to preload any + # dependent libraries so libltdl's deplib preloader doesn't + # bomb out in the load deplibs phase. + func_append dlprefiles " $lib $dependency_libs" + else + func_append newdlfiles " $lib" + fi + continue + fi # $pass = dlopen + + # We need an absolute path. + case $ladir in + [\\/]* | [A-Za-z]:[\\/]*) abs_ladir=$ladir ;; + *) + abs_ladir=`cd "$ladir" && pwd` + if test -z "$abs_ladir"; then + func_warning "cannot determine absolute directory name of '$ladir'" + func_warning "passing it literally to the linker, although it might fail" + abs_ladir=$ladir + fi + ;; + esac + func_basename "$lib" + laname=$func_basename_result + + # Find the relevant object directory and library name. + if test yes = "$installed"; then + if test ! -f "$lt_sysroot$libdir/$linklib" && test -f "$abs_ladir/$linklib"; then + func_warning "library '$lib' was moved." + dir=$ladir + absdir=$abs_ladir + libdir=$abs_ladir + else + dir=$lt_sysroot$libdir + absdir=$lt_sysroot$libdir + fi + test yes = "$hardcode_automatic" && avoidtemprpath=yes + else + if test ! -f "$ladir/$objdir/$linklib" && test -f "$abs_ladir/$linklib"; then + dir=$ladir + absdir=$abs_ladir + # Remove this search path later + func_append notinst_path " $abs_ladir" + else + dir=$ladir/$objdir + absdir=$abs_ladir/$objdir + # Remove this search path later + func_append notinst_path " $abs_ladir" + fi + fi # $installed = yes + func_stripname 'lib' '.la' "$laname" + name=$func_stripname_result + + # This library was specified with -dlpreopen. + if test dlpreopen = "$pass"; then + if test -z "$libdir" && test prog = "$linkmode"; then + func_fatal_error "only libraries may -dlpreopen a convenience library: '$lib'" + fi + case $host in + # special handling for platforms with PE-DLLs. + *cygwin* | *mingw* | *cegcc* ) + # Linker will automatically link against shared library if both + # static and shared are present. Therefore, ensure we extract + # symbols from the import library if a shared library is present + # (otherwise, the dlopen module name will be incorrect). We do + # this by putting the import library name into $newdlprefiles. + # We recover the dlopen module name by 'saving' the la file + # name in a special purpose variable, and (later) extracting the + # dlname from the la file. + if test -n "$dlname"; then + func_tr_sh "$dir/$linklib" + eval "libfile_$func_tr_sh_result=\$abs_ladir/\$laname" + func_append newdlprefiles " $dir/$linklib" + else + func_append newdlprefiles " $dir/$old_library" + # Keep a list of preopened convenience libraries to check + # that they are being used correctly in the link pass. + test -z "$libdir" && \ + func_append dlpreconveniencelibs " $dir/$old_library" + fi + ;; + * ) + # Prefer using a static library (so that no silly _DYNAMIC symbols + # are required to link). + if test -n "$old_library"; then + func_append newdlprefiles " $dir/$old_library" + # Keep a list of preopened convenience libraries to check + # that they are being used correctly in the link pass. + test -z "$libdir" && \ + func_append dlpreconveniencelibs " $dir/$old_library" + # Otherwise, use the dlname, so that lt_dlopen finds it. + elif test -n "$dlname"; then + func_append newdlprefiles " $dir/$dlname" + else + func_append newdlprefiles " $dir/$linklib" + fi + ;; + esac + fi # $pass = dlpreopen + + if test -z "$libdir"; then + # Link the convenience library + if test lib = "$linkmode"; then + deplibs="$dir/$old_library $deplibs" + elif test prog,link = "$linkmode,$pass"; then + compile_deplibs="$dir/$old_library $compile_deplibs" + finalize_deplibs="$dir/$old_library $finalize_deplibs" + else + deplibs="$lib $deplibs" # used for prog,scan pass + fi + continue + fi + + + if test prog = "$linkmode" && test link != "$pass"; then + func_append newlib_search_path " $ladir" + deplibs="$lib $deplibs" + + linkalldeplibs=false + if test no != "$link_all_deplibs" || test -z "$library_names" || + test no = "$build_libtool_libs"; then + linkalldeplibs=: + fi + + tmp_libs= + for deplib in $dependency_libs; do + case $deplib in + -L*) func_stripname '-L' '' "$deplib" + func_resolve_sysroot "$func_stripname_result" + func_append newlib_search_path " $func_resolve_sysroot_result" + ;; + esac + # Need to link against all dependency_libs? + if $linkalldeplibs; then + deplibs="$deplib $deplibs" + else + # Need to hardcode shared library paths + # or/and link against static libraries + newdependency_libs="$deplib $newdependency_libs" + fi + if $opt_preserve_dup_deps; then + case "$tmp_libs " in + *" $deplib "*) func_append specialdeplibs " $deplib" ;; + esac + fi + func_append tmp_libs " $deplib" + done # for deplib + continue + fi # $linkmode = prog... + + if test prog,link = "$linkmode,$pass"; then + if test -n "$library_names" && + { { test no = "$prefer_static_libs" || + test built,yes = "$prefer_static_libs,$installed"; } || + test -z "$old_library"; }; then + # We need to hardcode the library path + if test -n "$shlibpath_var" && test -z "$avoidtemprpath"; then + # Make sure the rpath contains only unique directories. + case $temp_rpath: in + *"$absdir:"*) ;; + *) func_append temp_rpath "$absdir:" ;; + esac + fi + + # Hardcode the library path. + # Skip directories that are in the system default run-time + # search path. + case " $sys_lib_dlsearch_path " in + *" $absdir "*) ;; + *) + case "$compile_rpath " in + *" $absdir "*) ;; + *) func_append compile_rpath " $absdir" ;; + esac + ;; + esac + case " $sys_lib_dlsearch_path " in + *" $libdir "*) ;; + *) + case "$finalize_rpath " in + *" $libdir "*) ;; + *) func_append finalize_rpath " $libdir" ;; + esac + ;; + esac + fi # $linkmode,$pass = prog,link... + + if $alldeplibs && + { test pass_all = "$deplibs_check_method" || + { test yes = "$build_libtool_libs" && + test -n "$library_names"; }; }; then + # We only need to search for static libraries + continue + fi + fi + + link_static=no # Whether the deplib will be linked statically + use_static_libs=$prefer_static_libs + if test built = "$use_static_libs" && test yes = "$installed"; then + use_static_libs=no + fi + if test -n "$library_names" && + { test no = "$use_static_libs" || test -z "$old_library"; }; then + case $host in + *cygwin* | *mingw* | *cegcc* | *os2*) + # No point in relinking DLLs because paths are not encoded + func_append notinst_deplibs " $lib" + need_relink=no + ;; + *) + if test no = "$installed"; then + func_append notinst_deplibs " $lib" + need_relink=yes + fi + ;; + esac + # This is a shared library + + # Warn about portability, can't link against -module's on some + # systems (darwin). Don't bleat about dlopened modules though! + dlopenmodule= + for dlpremoduletest in $dlprefiles; do + if test "X$dlpremoduletest" = "X$lib"; then + dlopenmodule=$dlpremoduletest + break + fi + done + if test -z "$dlopenmodule" && test yes = "$shouldnotlink" && test link = "$pass"; then + echo + if test prog = "$linkmode"; then + $ECHO "*** Warning: Linking the executable $output against the loadable module" + else + $ECHO "*** Warning: Linking the shared library $output against the loadable module" + fi + $ECHO "*** $linklib is not portable!" + fi + if test lib = "$linkmode" && + test yes = "$hardcode_into_libs"; then + # Hardcode the library path. + # Skip directories that are in the system default run-time + # search path. + case " $sys_lib_dlsearch_path " in + *" $absdir "*) ;; + *) + case "$compile_rpath " in + *" $absdir "*) ;; + *) func_append compile_rpath " $absdir" ;; + esac + ;; + esac + case " $sys_lib_dlsearch_path " in + *" $libdir "*) ;; + *) + case "$finalize_rpath " in + *" $libdir "*) ;; + *) func_append finalize_rpath " $libdir" ;; + esac + ;; + esac + fi + + if test -n "$old_archive_from_expsyms_cmds"; then + # figure out the soname + set dummy $library_names + shift + realname=$1 + shift + libname=`eval "\\$ECHO \"$libname_spec\""` + # use dlname if we got it. it's perfectly good, no? + if test -n "$dlname"; then + soname=$dlname + elif test -n "$soname_spec"; then + # bleh windows + case $host in + *cygwin* | mingw* | *cegcc* | *os2*) + func_arith $current - $age + major=$func_arith_result + versuffix=-$major + ;; + esac + eval soname=\"$soname_spec\" + else + soname=$realname + fi + + # Make a new name for the extract_expsyms_cmds to use + soroot=$soname + func_basename "$soroot" + soname=$func_basename_result + func_stripname 'lib' '.dll' "$soname" + newlib=libimp-$func_stripname_result.a + + # If the library has no export list, then create one now + if test -f "$output_objdir/$soname-def"; then : + else + func_verbose "extracting exported symbol list from '$soname'" + func_execute_cmds "$extract_expsyms_cmds" 'exit $?' + fi + + # Create $newlib + if test -f "$output_objdir/$newlib"; then :; else + func_verbose "generating import library for '$soname'" + func_execute_cmds "$old_archive_from_expsyms_cmds" 'exit $?' + fi + # make sure the library variables are pointing to the new library + dir=$output_objdir + linklib=$newlib + fi # test -n "$old_archive_from_expsyms_cmds" + + if test prog = "$linkmode" || test relink != "$opt_mode"; then + add_shlibpath= + add_dir= + add= + lib_linked=yes + case $hardcode_action in + immediate | unsupported) + if test no = "$hardcode_direct"; then + add=$dir/$linklib + case $host in + *-*-sco3.2v5.0.[024]*) add_dir=-L$dir ;; + *-*-sysv4*uw2*) add_dir=-L$dir ;; + *-*-sysv5OpenUNIX* | *-*-sysv5UnixWare7.[01].[10]* | \ + *-*-unixware7*) add_dir=-L$dir ;; + *-*-darwin* ) + # if the lib is a (non-dlopened) module then we cannot + # link against it, someone is ignoring the earlier warnings + if /usr/bin/file -L $add 2> /dev/null | + $GREP ": [^:]* bundle" >/dev/null; then + if test "X$dlopenmodule" != "X$lib"; then + $ECHO "*** Warning: lib $linklib is a module, not a shared library" + if test -z "$old_library"; then + echo + echo "*** And there doesn't seem to be a static archive available" + echo "*** The link will probably fail, sorry" + else + add=$dir/$old_library + fi + elif test -n "$old_library"; then + add=$dir/$old_library + fi + fi + esac + elif test no = "$hardcode_minus_L"; then + case $host in + *-*-sunos*) add_shlibpath=$dir ;; + esac + add_dir=-L$dir + add=-l$name + elif test no = "$hardcode_shlibpath_var"; then + add_shlibpath=$dir + add=-l$name + else + lib_linked=no + fi + ;; + relink) + if test yes = "$hardcode_direct" && + test no = "$hardcode_direct_absolute"; then + add=$dir/$linklib + elif test yes = "$hardcode_minus_L"; then + add_dir=-L$absdir + # Try looking first in the location we're being installed to. + if test -n "$inst_prefix_dir"; then + case $libdir in + [\\/]*) + func_append add_dir " -L$inst_prefix_dir$libdir" + ;; + esac + fi + add=-l$name + elif test yes = "$hardcode_shlibpath_var"; then + add_shlibpath=$dir + add=-l$name + else + lib_linked=no + fi + ;; + *) lib_linked=no ;; + esac + + if test yes != "$lib_linked"; then + func_fatal_configuration "unsupported hardcode properties" + fi + + if test -n "$add_shlibpath"; then + case :$compile_shlibpath: in + *":$add_shlibpath:"*) ;; + *) func_append compile_shlibpath "$add_shlibpath:" ;; + esac + fi + if test prog = "$linkmode"; then + test -n "$add_dir" && compile_deplibs="$add_dir $compile_deplibs" + test -n "$add" && compile_deplibs="$add $compile_deplibs" + else + test -n "$add_dir" && deplibs="$add_dir $deplibs" + test -n "$add" && deplibs="$add $deplibs" + if test yes != "$hardcode_direct" && + test yes != "$hardcode_minus_L" && + test yes = "$hardcode_shlibpath_var"; then + case :$finalize_shlibpath: in + *":$libdir:"*) ;; + *) func_append finalize_shlibpath "$libdir:" ;; + esac + fi + fi + fi + + if test prog = "$linkmode" || test relink = "$opt_mode"; then + add_shlibpath= + add_dir= + add= + # Finalize command for both is simple: just hardcode it. + if test yes = "$hardcode_direct" && + test no = "$hardcode_direct_absolute"; then + add=$libdir/$linklib + elif test yes = "$hardcode_minus_L"; then + add_dir=-L$libdir + add=-l$name + elif test yes = "$hardcode_shlibpath_var"; then + case :$finalize_shlibpath: in + *":$libdir:"*) ;; + *) func_append finalize_shlibpath "$libdir:" ;; + esac + add=-l$name + elif test yes = "$hardcode_automatic"; then + if test -n "$inst_prefix_dir" && + test -f "$inst_prefix_dir$libdir/$linklib"; then + add=$inst_prefix_dir$libdir/$linklib + else + add=$libdir/$linklib + fi + else + # We cannot seem to hardcode it, guess we'll fake it. + add_dir=-L$libdir + # Try looking first in the location we're being installed to. + if test -n "$inst_prefix_dir"; then + case $libdir in + [\\/]*) + func_append add_dir " -L$inst_prefix_dir$libdir" + ;; + esac + fi + add=-l$name + fi + + if test prog = "$linkmode"; then + test -n "$add_dir" && finalize_deplibs="$add_dir $finalize_deplibs" + test -n "$add" && finalize_deplibs="$add $finalize_deplibs" + else + test -n "$add_dir" && deplibs="$add_dir $deplibs" + test -n "$add" && deplibs="$add $deplibs" + fi + fi + elif test prog = "$linkmode"; then + # Here we assume that one of hardcode_direct or hardcode_minus_L + # is not unsupported. This is valid on all known static and + # shared platforms. + if test unsupported != "$hardcode_direct"; then + test -n "$old_library" && linklib=$old_library + compile_deplibs="$dir/$linklib $compile_deplibs" + finalize_deplibs="$dir/$linklib $finalize_deplibs" + else + compile_deplibs="-l$name -L$dir $compile_deplibs" + finalize_deplibs="-l$name -L$dir $finalize_deplibs" + fi + elif test yes = "$build_libtool_libs"; then + # Not a shared library + if test pass_all != "$deplibs_check_method"; then + # We're trying link a shared library against a static one + # but the system doesn't support it. + + # Just print a warning and add the library to dependency_libs so + # that the program can be linked against the static library. + echo + $ECHO "*** Warning: This system cannot link to static lib archive $lib." + echo "*** I have the capability to make that library automatically link in when" + echo "*** you link to this library. But I can only do this if you have a" + echo "*** shared version of the library, which you do not appear to have." + if test yes = "$module"; then + echo "*** But as you try to build a module library, libtool will still create " + echo "*** a static module, that should work as long as the dlopening application" + echo "*** is linked with the -dlopen flag to resolve symbols at runtime." + if test -z "$global_symbol_pipe"; then + echo + echo "*** However, this would only work if libtool was able to extract symbol" + echo "*** lists from a program, using 'nm' or equivalent, but libtool could" + echo "*** not find such a program. So, this module is probably useless." + echo "*** 'nm' from GNU binutils and a full rebuild may help." + fi + if test no = "$build_old_libs"; then + build_libtool_libs=module + build_old_libs=yes + else + build_libtool_libs=no + fi + fi + else + deplibs="$dir/$old_library $deplibs" + link_static=yes + fi + fi # link shared/static library? + + if test lib = "$linkmode"; then + if test -n "$dependency_libs" && + { test yes != "$hardcode_into_libs" || + test yes = "$build_old_libs" || + test yes = "$link_static"; }; then + # Extract -R from dependency_libs + temp_deplibs= + for libdir in $dependency_libs; do + case $libdir in + -R*) func_stripname '-R' '' "$libdir" + temp_xrpath=$func_stripname_result + case " $xrpath " in + *" $temp_xrpath "*) ;; + *) func_append xrpath " $temp_xrpath";; + esac;; + *) func_append temp_deplibs " $libdir";; + esac + done + dependency_libs=$temp_deplibs + fi + + func_append newlib_search_path " $absdir" + # Link against this library + test no = "$link_static" && newdependency_libs="$abs_ladir/$laname $newdependency_libs" + # ... and its dependency_libs + tmp_libs= + for deplib in $dependency_libs; do + newdependency_libs="$deplib $newdependency_libs" + case $deplib in + -L*) func_stripname '-L' '' "$deplib" + func_resolve_sysroot "$func_stripname_result";; + *) func_resolve_sysroot "$deplib" ;; + esac + if $opt_preserve_dup_deps; then + case "$tmp_libs " in + *" $func_resolve_sysroot_result "*) + func_append specialdeplibs " $func_resolve_sysroot_result" ;; + esac + fi + func_append tmp_libs " $func_resolve_sysroot_result" + done + + if test no != "$link_all_deplibs"; then + # Add the search paths of all dependency libraries + for deplib in $dependency_libs; do + path= + case $deplib in + -L*) path=$deplib ;; + *.la) + func_resolve_sysroot "$deplib" + deplib=$func_resolve_sysroot_result + func_dirname "$deplib" "" "." + dir=$func_dirname_result + # We need an absolute path. + case $dir in + [\\/]* | [A-Za-z]:[\\/]*) absdir=$dir ;; + *) + absdir=`cd "$dir" && pwd` + if test -z "$absdir"; then + func_warning "cannot determine absolute directory name of '$dir'" + absdir=$dir + fi + ;; + esac + if $GREP "^installed=no" $deplib > /dev/null; then + case $host in + *-*-darwin*) + depdepl= + eval deplibrary_names=`$SED -n -e 's/^library_names=\(.*\)$/\1/p' $deplib` + if test -n "$deplibrary_names"; then + for tmp in $deplibrary_names; do + depdepl=$tmp + done + if test -f "$absdir/$objdir/$depdepl"; then + depdepl=$absdir/$objdir/$depdepl + darwin_install_name=`$OTOOL -L $depdepl | awk '{if (NR == 2) {print $1;exit}}'` + if test -z "$darwin_install_name"; then + darwin_install_name=`$OTOOL64 -L $depdepl | awk '{if (NR == 2) {print $1;exit}}'` + fi + func_append compiler_flags " $wl-dylib_file $wl$darwin_install_name:$depdepl" + func_append linker_flags " -dylib_file $darwin_install_name:$depdepl" + path= + fi + fi + ;; + *) + path=-L$absdir/$objdir + ;; + esac + else + eval libdir=`$SED -n -e 's/^libdir=\(.*\)$/\1/p' $deplib` + test -z "$libdir" && \ + func_fatal_error "'$deplib' is not a valid libtool archive" + test "$absdir" != "$libdir" && \ + func_warning "'$deplib' seems to be moved" + + path=-L$absdir + fi + ;; + esac + case " $deplibs " in + *" $path "*) ;; + *) deplibs="$path $deplibs" ;; + esac + done + fi # link_all_deplibs != no + fi # linkmode = lib + done # for deplib in $libs + if test link = "$pass"; then + if test prog = "$linkmode"; then + compile_deplibs="$new_inherited_linker_flags $compile_deplibs" + finalize_deplibs="$new_inherited_linker_flags $finalize_deplibs" + else + compiler_flags="$compiler_flags "`$ECHO " $new_inherited_linker_flags" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` + fi + fi + dependency_libs=$newdependency_libs + if test dlpreopen = "$pass"; then + # Link the dlpreopened libraries before other libraries + for deplib in $save_deplibs; do + deplibs="$deplib $deplibs" + done + fi + if test dlopen != "$pass"; then + test conv = "$pass" || { + # Make sure lib_search_path contains only unique directories. + lib_search_path= + for dir in $newlib_search_path; do + case "$lib_search_path " in + *" $dir "*) ;; + *) func_append lib_search_path " $dir" ;; + esac + done + newlib_search_path= + } + + if test prog,link = "$linkmode,$pass"; then + vars="compile_deplibs finalize_deplibs" + else + vars=deplibs + fi + for var in $vars dependency_libs; do + # Add libraries to $var in reverse order + eval tmp_libs=\"\$$var\" + new_libs= + for deplib in $tmp_libs; do + # FIXME: Pedantically, this is the right thing to do, so + # that some nasty dependency loop isn't accidentally + # broken: + #new_libs="$deplib $new_libs" + # Pragmatically, this seems to cause very few problems in + # practice: + case $deplib in + -L*) new_libs="$deplib $new_libs" ;; + -R*) ;; + *) + # And here is the reason: when a library appears more + # than once as an explicit dependence of a library, or + # is implicitly linked in more than once by the + # compiler, it is considered special, and multiple + # occurrences thereof are not removed. Compare this + # with having the same library being listed as a + # dependency of multiple other libraries: in this case, + # we know (pedantically, we assume) the library does not + # need to be listed more than once, so we keep only the + # last copy. This is not always right, but it is rare + # enough that we require users that really mean to play + # such unportable linking tricks to link the library + # using -Wl,-lname, so that libtool does not consider it + # for duplicate removal. + case " $specialdeplibs " in + *" $deplib "*) new_libs="$deplib $new_libs" ;; + *) + case " $new_libs " in + *" $deplib "*) ;; + *) new_libs="$deplib $new_libs" ;; + esac + ;; + esac + ;; + esac + done + tmp_libs= + for deplib in $new_libs; do + case $deplib in + -L*) + case " $tmp_libs " in + *" $deplib "*) ;; + *) func_append tmp_libs " $deplib" ;; + esac + ;; + *) func_append tmp_libs " $deplib" ;; + esac + done + eval $var=\"$tmp_libs\" + done # for var + fi + + # Add Sun CC postdeps if required: + test CXX = "$tagname" && { + case $host_os in + linux*) + case `$CC -V 2>&1 | sed 5q` in + *Sun\ C*) # Sun C++ 5.9 + func_suncc_cstd_abi + + if test no != "$suncc_use_cstd_abi"; then + func_append postdeps ' -library=Cstd -library=Crun' + fi + ;; + esac + ;; + + solaris*) + func_cc_basename "$CC" + case $func_cc_basename_result in + CC* | sunCC*) + func_suncc_cstd_abi + + if test no != "$suncc_use_cstd_abi"; then + func_append postdeps ' -library=Cstd -library=Crun' + fi + ;; + esac + ;; + esac + } + + # Last step: remove runtime libs from dependency_libs + # (they stay in deplibs) + tmp_libs= + for i in $dependency_libs; do + case " $predeps $postdeps $compiler_lib_search_path " in + *" $i "*) + i= + ;; + esac + if test -n "$i"; then + func_append tmp_libs " $i" + fi + done + dependency_libs=$tmp_libs + done # for pass + if test prog = "$linkmode"; then + dlfiles=$newdlfiles + fi + if test prog = "$linkmode" || test lib = "$linkmode"; then + dlprefiles=$newdlprefiles + fi + + case $linkmode in + oldlib) + if test -n "$dlfiles$dlprefiles" || test no != "$dlself"; then + func_warning "'-dlopen' is ignored for archives" + fi + + case " $deplibs" in + *\ -l* | *\ -L*) + func_warning "'-l' and '-L' are ignored for archives" ;; + esac + + test -n "$rpath" && \ + func_warning "'-rpath' is ignored for archives" + + test -n "$xrpath" && \ + func_warning "'-R' is ignored for archives" + + test -n "$vinfo" && \ + func_warning "'-version-info/-version-number' is ignored for archives" + + test -n "$release" && \ + func_warning "'-release' is ignored for archives" + + test -n "$export_symbols$export_symbols_regex" && \ + func_warning "'-export-symbols' is ignored for archives" + + # Now set the variables for building old libraries. + build_libtool_libs=no + oldlibs=$output + func_append objs "$old_deplibs" + ;; + + lib) + # Make sure we only generate libraries of the form 'libNAME.la'. + case $outputname in + lib*) + func_stripname 'lib' '.la' "$outputname" + name=$func_stripname_result + eval shared_ext=\"$shrext_cmds\" + eval libname=\"$libname_spec\" + ;; + *) + test no = "$module" \ + && func_fatal_help "libtool library '$output' must begin with 'lib'" + + if test no != "$need_lib_prefix"; then + # Add the "lib" prefix for modules if required + func_stripname '' '.la' "$outputname" + name=$func_stripname_result + eval shared_ext=\"$shrext_cmds\" + eval libname=\"$libname_spec\" + else + func_stripname '' '.la' "$outputname" + libname=$func_stripname_result + fi + ;; + esac + + if test -n "$objs"; then + if test pass_all != "$deplibs_check_method"; then + func_fatal_error "cannot build libtool library '$output' from non-libtool objects on this host:$objs" + else + echo + $ECHO "*** Warning: Linking the shared library $output against the non-libtool" + $ECHO "*** objects $objs is not portable!" + func_append libobjs " $objs" + fi + fi + + test no = "$dlself" \ + || func_warning "'-dlopen self' is ignored for libtool libraries" + + set dummy $rpath + shift + test 1 -lt "$#" \ + && func_warning "ignoring multiple '-rpath's for a libtool library" + + install_libdir=$1 + + oldlibs= + if test -z "$rpath"; then + if test yes = "$build_libtool_libs"; then + # Building a libtool convenience library. + # Some compilers have problems with a '.al' extension so + # convenience libraries should have the same extension an + # archive normally would. + oldlibs="$output_objdir/$libname.$libext $oldlibs" + build_libtool_libs=convenience + build_old_libs=yes + fi + + test -n "$vinfo" && \ + func_warning "'-version-info/-version-number' is ignored for convenience libraries" + + test -n "$release" && \ + func_warning "'-release' is ignored for convenience libraries" + else + + # Parse the version information argument. + save_ifs=$IFS; IFS=: + set dummy $vinfo 0 0 0 + shift + IFS=$save_ifs + + test -n "$7" && \ + func_fatal_help "too many parameters to '-version-info'" + + # convert absolute version numbers to libtool ages + # this retains compatibility with .la files and attempts + # to make the code below a bit more comprehensible + + case $vinfo_number in + yes) + number_major=$1 + number_minor=$2 + number_revision=$3 + # + # There are really only two kinds -- those that + # use the current revision as the major version + # and those that subtract age and use age as + # a minor version. But, then there is irix + # that has an extra 1 added just for fun + # + case $version_type in + # correct linux to gnu/linux during the next big refactor + darwin|freebsd-elf|linux|osf|windows|none) + func_arith $number_major + $number_minor + current=$func_arith_result + age=$number_minor + revision=$number_revision + ;; + freebsd-aout|qnx|sunos) + current=$number_major + revision=$number_minor + age=0 + ;; + irix|nonstopux) + func_arith $number_major + $number_minor + current=$func_arith_result + age=$number_minor + revision=$number_minor + lt_irix_increment=no + ;; + esac + ;; + no) + current=$1 + revision=$2 + age=$3 + ;; + esac + + # Check that each of the things are valid numbers. + case $current in + 0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;; + *) + func_error "CURRENT '$current' must be a nonnegative integer" + func_fatal_error "'$vinfo' is not valid version information" + ;; + esac + + case $revision in + 0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;; + *) + func_error "REVISION '$revision' must be a nonnegative integer" + func_fatal_error "'$vinfo' is not valid version information" + ;; + esac + + case $age in + 0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;; + *) + func_error "AGE '$age' must be a nonnegative integer" + func_fatal_error "'$vinfo' is not valid version information" + ;; + esac + + if test "$age" -gt "$current"; then + func_error "AGE '$age' is greater than the current interface number '$current'" + func_fatal_error "'$vinfo' is not valid version information" + fi + + # Calculate the version variables. + major= + versuffix= + verstring= + case $version_type in + none) ;; + + darwin) + # Like Linux, but with the current version available in + # verstring for coding it into the library header + func_arith $current - $age + major=.$func_arith_result + versuffix=$major.$age.$revision + # Darwin ld doesn't like 0 for these options... + func_arith $current + 1 + minor_current=$func_arith_result + xlcverstring="$wl-compatibility_version $wl$minor_current $wl-current_version $wl$minor_current.$revision" + verstring="-compatibility_version $minor_current -current_version $minor_current.$revision" + # On Darwin other compilers + case $CC in + nagfor*) + verstring="$wl-compatibility_version $wl$minor_current $wl-current_version $wl$minor_current.$revision" + ;; + *) + verstring="-compatibility_version $minor_current -current_version $minor_current.$revision" + ;; + esac + ;; + + freebsd-aout) + major=.$current + versuffix=.$current.$revision + ;; + + freebsd-elf) + func_arith $current - $age + major=.$func_arith_result + versuffix=$major.$age.$revision + ;; + + irix | nonstopux) + if test no = "$lt_irix_increment"; then + func_arith $current - $age + else + func_arith $current - $age + 1 + fi + major=$func_arith_result + + case $version_type in + nonstopux) verstring_prefix=nonstopux ;; + *) verstring_prefix=sgi ;; + esac + verstring=$verstring_prefix$major.$revision + + # Add in all the interfaces that we are compatible with. + loop=$revision + while test 0 -ne "$loop"; do + func_arith $revision - $loop + iface=$func_arith_result + func_arith $loop - 1 + loop=$func_arith_result + verstring=$verstring_prefix$major.$iface:$verstring + done + + # Before this point, $major must not contain '.'. + major=.$major + versuffix=$major.$revision + ;; + + linux) # correct to gnu/linux during the next big refactor + func_arith $current - $age + major=.$func_arith_result + versuffix=$major.$age.$revision + ;; + + osf) + func_arith $current - $age + major=.$func_arith_result + versuffix=.$current.$age.$revision + verstring=$current.$age.$revision + + # Add in all the interfaces that we are compatible with. + loop=$age + while test 0 -ne "$loop"; do + func_arith $current - $loop + iface=$func_arith_result + func_arith $loop - 1 + loop=$func_arith_result + verstring=$verstring:$iface.0 + done + + # Make executables depend on our current version. + func_append verstring ":$current.0" + ;; + + qnx) + major=.$current + versuffix=.$current + ;; + + sco) + major=.$current + versuffix=.$current + ;; + + sunos) + major=.$current + versuffix=.$current.$revision + ;; + + windows) + # Use '-' rather than '.', since we only want one + # extension on DOS 8.3 file systems. + func_arith $current - $age + major=$func_arith_result + versuffix=-$major + ;; + + *) + func_fatal_configuration "unknown library version type '$version_type'" + ;; + esac + + # Clear the version info if we defaulted, and they specified a release. + if test -z "$vinfo" && test -n "$release"; then + major= + case $version_type in + darwin) + # we can't check for "0.0" in archive_cmds due to quoting + # problems, so we reset it completely + verstring= + ;; + *) + verstring=0.0 + ;; + esac + if test no = "$need_version"; then + versuffix= + else + versuffix=.0.0 + fi + fi + + # Remove version info from name if versioning should be avoided + if test yes,no = "$avoid_version,$need_version"; then + major= + versuffix= + verstring= + fi + + # Check to see if the archive will have undefined symbols. + if test yes = "$allow_undefined"; then + if test unsupported = "$allow_undefined_flag"; then + if test yes = "$build_old_libs"; then + func_warning "undefined symbols not allowed in $host shared libraries; building static only" + build_libtool_libs=no + else + func_fatal_error "can't build $host shared library unless -no-undefined is specified" + fi + fi + else + # Don't allow undefined symbols. + allow_undefined_flag=$no_undefined_flag + fi + + fi + + func_generate_dlsyms "$libname" "$libname" : + func_append libobjs " $symfileobj" + test " " = "$libobjs" && libobjs= + + if test relink != "$opt_mode"; then + # Remove our outputs, but don't remove object files since they + # may have been created when compiling PIC objects. + removelist= + tempremovelist=`$ECHO "$output_objdir/*"` + for p in $tempremovelist; do + case $p in + *.$objext | *.gcno) + ;; + $output_objdir/$outputname | $output_objdir/$libname.* | $output_objdir/$libname$release.*) + if test -n "$precious_files_regex"; then + if $ECHO "$p" | $EGREP -e "$precious_files_regex" >/dev/null 2>&1 + then + continue + fi + fi + func_append removelist " $p" + ;; + *) ;; + esac + done + test -n "$removelist" && \ + func_show_eval "${RM}r \$removelist" + fi + + # Now set the variables for building old libraries. + if test yes = "$build_old_libs" && test convenience != "$build_libtool_libs"; then + func_append oldlibs " $output_objdir/$libname.$libext" + + # Transform .lo files to .o files. + oldobjs="$objs "`$ECHO "$libobjs" | $SP2NL | $SED "/\.$libext$/d; $lo2o" | $NL2SP` + fi + + # Eliminate all temporary directories. + #for path in $notinst_path; do + # lib_search_path=`$ECHO "$lib_search_path " | $SED "s% $path % %g"` + # deplibs=`$ECHO "$deplibs " | $SED "s% -L$path % %g"` + # dependency_libs=`$ECHO "$dependency_libs " | $SED "s% -L$path % %g"` + #done + + if test -n "$xrpath"; then + # If the user specified any rpath flags, then add them. + temp_xrpath= + for libdir in $xrpath; do + func_replace_sysroot "$libdir" + func_append temp_xrpath " -R$func_replace_sysroot_result" + case "$finalize_rpath " in + *" $libdir "*) ;; + *) func_append finalize_rpath " $libdir" ;; + esac + done + if test yes != "$hardcode_into_libs" || test yes = "$build_old_libs"; then + dependency_libs="$temp_xrpath $dependency_libs" + fi + fi + + # Make sure dlfiles contains only unique files that won't be dlpreopened + old_dlfiles=$dlfiles + dlfiles= + for lib in $old_dlfiles; do + case " $dlprefiles $dlfiles " in + *" $lib "*) ;; + *) func_append dlfiles " $lib" ;; + esac + done + + # Make sure dlprefiles contains only unique files + old_dlprefiles=$dlprefiles + dlprefiles= + for lib in $old_dlprefiles; do + case "$dlprefiles " in + *" $lib "*) ;; + *) func_append dlprefiles " $lib" ;; + esac + done + + if test yes = "$build_libtool_libs"; then + if test -n "$rpath"; then + case $host in + *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-*-beos* | *-cegcc* | *-*-haiku*) + # these systems don't actually have a c library (as such)! + ;; + *-*-rhapsody* | *-*-darwin1.[012]) + # Rhapsody C library is in the System framework + func_append deplibs " System.ltframework" + ;; + *-*-netbsd*) + # Don't link with libc until the a.out ld.so is fixed. + ;; + *-*-openbsd* | *-*-freebsd* | *-*-dragonfly*) + # Do not include libc due to us having libc/libc_r. + ;; + *-*-sco3.2v5* | *-*-sco5v6*) + # Causes problems with __ctype + ;; + *-*-sysv4.2uw2* | *-*-sysv5* | *-*-unixware* | *-*-OpenUNIX*) + # Compiler inserts libc in the correct place for threads to work + ;; + *) + # Add libc to deplibs on all other systems if necessary. + if test yes = "$build_libtool_need_lc"; then + func_append deplibs " -lc" + fi + ;; + esac + fi + + # Transform deplibs into only deplibs that can be linked in shared. + name_save=$name + libname_save=$libname + release_save=$release + versuffix_save=$versuffix + major_save=$major + # I'm not sure if I'm treating the release correctly. I think + # release should show up in the -l (ie -lgmp5) so we don't want to + # add it in twice. Is that correct? + release= + versuffix= + major= + newdeplibs= + droppeddeps=no + case $deplibs_check_method in + pass_all) + # Don't check for shared/static. Everything works. + # This might be a little naive. We might want to check + # whether the library exists or not. But this is on + # osf3 & osf4 and I'm not really sure... Just + # implementing what was already the behavior. + newdeplibs=$deplibs + ;; + test_compile) + # This code stresses the "libraries are programs" paradigm to its + # limits. Maybe even breaks it. We compile a program, linking it + # against the deplibs as a proxy for the library. Then we can check + # whether they linked in statically or dynamically with ldd. + $opt_dry_run || $RM conftest.c + cat > conftest.c </dev/null` + $nocaseglob + else + potential_libs=`ls $i/$libnameglob[.-]* 2>/dev/null` + fi + for potent_lib in $potential_libs; do + # Follow soft links. + if ls -lLd "$potent_lib" 2>/dev/null | + $GREP " -> " >/dev/null; then + continue + fi + # The statement above tries to avoid entering an + # endless loop below, in case of cyclic links. + # We might still enter an endless loop, since a link + # loop can be closed while we follow links, + # but so what? + potlib=$potent_lib + while test -h "$potlib" 2>/dev/null; do + potliblink=`ls -ld $potlib | $SED 's/.* -> //'` + case $potliblink in + [\\/]* | [A-Za-z]:[\\/]*) potlib=$potliblink;; + *) potlib=`$ECHO "$potlib" | $SED 's|[^/]*$||'`"$potliblink";; + esac + done + if eval $file_magic_cmd \"\$potlib\" 2>/dev/null | + $SED -e 10q | + $EGREP "$file_magic_regex" > /dev/null; then + func_append newdeplibs " $a_deplib" + a_deplib= + break 2 + fi + done + done + fi + if test -n "$a_deplib"; then + droppeddeps=yes + echo + $ECHO "*** Warning: linker path does not have real file for library $a_deplib." + echo "*** I have the capability to make that library automatically link in when" + echo "*** you link to this library. But I can only do this if you have a" + echo "*** shared version of the library, which you do not appear to have" + echo "*** because I did check the linker path looking for a file starting" + if test -z "$potlib"; then + $ECHO "*** with $libname but no candidates were found. (...for file magic test)" + else + $ECHO "*** with $libname and none of the candidates passed a file format test" + $ECHO "*** using a file magic. Last file checked: $potlib" + fi + fi + ;; + *) + # Add a -L argument. + func_append newdeplibs " $a_deplib" + ;; + esac + done # Gone through all deplibs. + ;; + match_pattern*) + set dummy $deplibs_check_method; shift + match_pattern_regex=`expr "$deplibs_check_method" : "$1 \(.*\)"` + for a_deplib in $deplibs; do + case $a_deplib in + -l*) + func_stripname -l '' "$a_deplib" + name=$func_stripname_result + if test yes = "$allow_libtool_libs_with_static_runtimes"; then + case " $predeps $postdeps " in + *" $a_deplib "*) + func_append newdeplibs " $a_deplib" + a_deplib= + ;; + esac + fi + if test -n "$a_deplib"; then + libname=`eval "\\$ECHO \"$libname_spec\""` + for i in $lib_search_path $sys_lib_search_path $shlib_search_path; do + potential_libs=`ls $i/$libname[.-]* 2>/dev/null` + for potent_lib in $potential_libs; do + potlib=$potent_lib # see symlink-check above in file_magic test + if eval "\$ECHO \"$potent_lib\"" 2>/dev/null | $SED 10q | \ + $EGREP "$match_pattern_regex" > /dev/null; then + func_append newdeplibs " $a_deplib" + a_deplib= + break 2 + fi + done + done + fi + if test -n "$a_deplib"; then + droppeddeps=yes + echo + $ECHO "*** Warning: linker path does not have real file for library $a_deplib." + echo "*** I have the capability to make that library automatically link in when" + echo "*** you link to this library. But I can only do this if you have a" + echo "*** shared version of the library, which you do not appear to have" + echo "*** because I did check the linker path looking for a file starting" + if test -z "$potlib"; then + $ECHO "*** with $libname but no candidates were found. (...for regex pattern test)" + else + $ECHO "*** with $libname and none of the candidates passed a file format test" + $ECHO "*** using a regex pattern. Last file checked: $potlib" + fi + fi + ;; + *) + # Add a -L argument. + func_append newdeplibs " $a_deplib" + ;; + esac + done # Gone through all deplibs. + ;; + none | unknown | *) + newdeplibs= + tmp_deplibs=`$ECHO " $deplibs" | $SED 's/ -lc$//; s/ -[LR][^ ]*//g'` + if test yes = "$allow_libtool_libs_with_static_runtimes"; then + for i in $predeps $postdeps; do + # can't use Xsed below, because $i might contain '/' + tmp_deplibs=`$ECHO " $tmp_deplibs" | $SED "s|$i||"` + done + fi + case $tmp_deplibs in + *[!\ \ ]*) + echo + if test none = "$deplibs_check_method"; then + echo "*** Warning: inter-library dependencies are not supported in this platform." + else + echo "*** Warning: inter-library dependencies are not known to be supported." + fi + echo "*** All declared inter-library dependencies are being dropped." + droppeddeps=yes + ;; + esac + ;; + esac + versuffix=$versuffix_save + major=$major_save + release=$release_save + libname=$libname_save + name=$name_save + + case $host in + *-*-rhapsody* | *-*-darwin1.[012]) + # On Rhapsody replace the C library with the System framework + newdeplibs=`$ECHO " $newdeplibs" | $SED 's/ -lc / System.ltframework /'` + ;; + esac + + if test yes = "$droppeddeps"; then + if test yes = "$module"; then + echo + echo "*** Warning: libtool could not satisfy all declared inter-library" + $ECHO "*** dependencies of module $libname. Therefore, libtool will create" + echo "*** a static module, that should work as long as the dlopening" + echo "*** application is linked with the -dlopen flag." + if test -z "$global_symbol_pipe"; then + echo + echo "*** However, this would only work if libtool was able to extract symbol" + echo "*** lists from a program, using 'nm' or equivalent, but libtool could" + echo "*** not find such a program. So, this module is probably useless." + echo "*** 'nm' from GNU binutils and a full rebuild may help." + fi + if test no = "$build_old_libs"; then + oldlibs=$output_objdir/$libname.$libext + build_libtool_libs=module + build_old_libs=yes + else + build_libtool_libs=no + fi + else + echo "*** The inter-library dependencies that have been dropped here will be" + echo "*** automatically added whenever a program is linked with this library" + echo "*** or is declared to -dlopen it." + + if test no = "$allow_undefined"; then + echo + echo "*** Since this library must not contain undefined symbols," + echo "*** because either the platform does not support them or" + echo "*** it was explicitly requested with -no-undefined," + echo "*** libtool will only create a static version of it." + if test no = "$build_old_libs"; then + oldlibs=$output_objdir/$libname.$libext + build_libtool_libs=module + build_old_libs=yes + else + build_libtool_libs=no + fi + fi + fi + fi + # Done checking deplibs! + deplibs=$newdeplibs + fi + # Time to change all our "foo.ltframework" stuff back to "-framework foo" + case $host in + *-*-darwin*) + newdeplibs=`$ECHO " $newdeplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` + new_inherited_linker_flags=`$ECHO " $new_inherited_linker_flags" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` + deplibs=`$ECHO " $deplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` + ;; + esac + + # move library search paths that coincide with paths to not yet + # installed libraries to the beginning of the library search list + new_libs= + for path in $notinst_path; do + case " $new_libs " in + *" -L$path/$objdir "*) ;; + *) + case " $deplibs " in + *" -L$path/$objdir "*) + func_append new_libs " -L$path/$objdir" ;; + esac + ;; + esac + done + for deplib in $deplibs; do + case $deplib in + -L*) + case " $new_libs " in + *" $deplib "*) ;; + *) func_append new_libs " $deplib" ;; + esac + ;; + *) func_append new_libs " $deplib" ;; + esac + done + deplibs=$new_libs + + # All the library-specific variables (install_libdir is set above). + library_names= + old_library= + dlname= + + # Test again, we may have decided not to build it any more + if test yes = "$build_libtool_libs"; then + # Remove $wl instances when linking with ld. + # FIXME: should test the right _cmds variable. + case $archive_cmds in + *\$LD\ *) wl= ;; + esac + if test yes = "$hardcode_into_libs"; then + # Hardcode the library paths + hardcode_libdirs= + dep_rpath= + rpath=$finalize_rpath + test relink = "$opt_mode" || rpath=$compile_rpath$rpath + for libdir in $rpath; do + if test -n "$hardcode_libdir_flag_spec"; then + if test -n "$hardcode_libdir_separator"; then + func_replace_sysroot "$libdir" + libdir=$func_replace_sysroot_result + if test -z "$hardcode_libdirs"; then + hardcode_libdirs=$libdir + else + # Just accumulate the unique libdirs. + case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in + *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*) + ;; + *) + func_append hardcode_libdirs "$hardcode_libdir_separator$libdir" + ;; + esac + fi + else + eval flag=\"$hardcode_libdir_flag_spec\" + func_append dep_rpath " $flag" + fi + elif test -n "$runpath_var"; then + case "$perm_rpath " in + *" $libdir "*) ;; + *) func_append perm_rpath " $libdir" ;; + esac + fi + done + # Substitute the hardcoded libdirs into the rpath. + if test -n "$hardcode_libdir_separator" && + test -n "$hardcode_libdirs"; then + libdir=$hardcode_libdirs + eval "dep_rpath=\"$hardcode_libdir_flag_spec\"" + fi + if test -n "$runpath_var" && test -n "$perm_rpath"; then + # We should set the runpath_var. + rpath= + for dir in $perm_rpath; do + func_append rpath "$dir:" + done + eval "$runpath_var='$rpath\$$runpath_var'; export $runpath_var" + fi + test -n "$dep_rpath" && deplibs="$dep_rpath $deplibs" + fi + + shlibpath=$finalize_shlibpath + test relink = "$opt_mode" || shlibpath=$compile_shlibpath$shlibpath + if test -n "$shlibpath"; then + eval "$shlibpath_var='$shlibpath\$$shlibpath_var'; export $shlibpath_var" + fi + + # Get the real and link names of the library. + eval shared_ext=\"$shrext_cmds\" + eval library_names=\"$library_names_spec\" + set dummy $library_names + shift + realname=$1 + shift + + if test -n "$soname_spec"; then + eval soname=\"$soname_spec\" + else + soname=$realname + fi + if test -z "$dlname"; then + dlname=$soname + fi + + lib=$output_objdir/$realname + linknames= + for link + do + func_append linknames " $link" + done + + # Use standard objects if they are pic + test -z "$pic_flag" && libobjs=`$ECHO "$libobjs" | $SP2NL | $SED "$lo2o" | $NL2SP` + test "X$libobjs" = "X " && libobjs= + + delfiles= + if test -n "$export_symbols" && test -n "$include_expsyms"; then + $opt_dry_run || cp "$export_symbols" "$output_objdir/$libname.uexp" + export_symbols=$output_objdir/$libname.uexp + func_append delfiles " $export_symbols" + fi + + orig_export_symbols= + case $host_os in + cygwin* | mingw* | cegcc*) + if test -n "$export_symbols" && test -z "$export_symbols_regex"; then + # exporting using user supplied symfile + func_dll_def_p "$export_symbols" || { + # and it's NOT already a .def file. Must figure out + # which of the given symbols are data symbols and tag + # them as such. So, trigger use of export_symbols_cmds. + # export_symbols gets reassigned inside the "prepare + # the list of exported symbols" if statement, so the + # include_expsyms logic still works. + orig_export_symbols=$export_symbols + export_symbols= + always_export_symbols=yes + } + fi + ;; + esac + + # Prepare the list of exported symbols + if test -z "$export_symbols"; then + if test yes = "$always_export_symbols" || test -n "$export_symbols_regex"; then + func_verbose "generating symbol list for '$libname.la'" + export_symbols=$output_objdir/$libname.exp + $opt_dry_run || $RM $export_symbols + cmds=$export_symbols_cmds + save_ifs=$IFS; IFS='~' + for cmd1 in $cmds; do + IFS=$save_ifs + # Take the normal branch if the nm_file_list_spec branch + # doesn't work or if tool conversion is not needed. + case $nm_file_list_spec~$to_tool_file_cmd in + *~func_convert_file_noop | *~func_convert_file_msys_to_w32 | ~*) + try_normal_branch=yes + eval cmd=\"$cmd1\" + func_len " $cmd" + len=$func_len_result + ;; + *) + try_normal_branch=no + ;; + esac + if test yes = "$try_normal_branch" \ + && { test "$len" -lt "$max_cmd_len" \ + || test "$max_cmd_len" -le -1; } + then + func_show_eval "$cmd" 'exit $?' + skipped_export=false + elif test -n "$nm_file_list_spec"; then + func_basename "$output" + output_la=$func_basename_result + save_libobjs=$libobjs + save_output=$output + output=$output_objdir/$output_la.nm + func_to_tool_file "$output" + libobjs=$nm_file_list_spec$func_to_tool_file_result + func_append delfiles " $output" + func_verbose "creating $NM input file list: $output" + for obj in $save_libobjs; do + func_to_tool_file "$obj" + $ECHO "$func_to_tool_file_result" + done > "$output" + eval cmd=\"$cmd1\" + func_show_eval "$cmd" 'exit $?' + output=$save_output + libobjs=$save_libobjs + skipped_export=false + else + # The command line is too long to execute in one step. + func_verbose "using reloadable object file for export list..." + skipped_export=: + # Break out early, otherwise skipped_export may be + # set to false by a later but shorter cmd. + break + fi + done + IFS=$save_ifs + if test -n "$export_symbols_regex" && test : != "$skipped_export"; then + func_show_eval '$EGREP -e "$export_symbols_regex" "$export_symbols" > "${export_symbols}T"' + func_show_eval '$MV "${export_symbols}T" "$export_symbols"' + fi + fi + fi + + if test -n "$export_symbols" && test -n "$include_expsyms"; then + tmp_export_symbols=$export_symbols + test -n "$orig_export_symbols" && tmp_export_symbols=$orig_export_symbols + $opt_dry_run || eval '$ECHO "$include_expsyms" | $SP2NL >> "$tmp_export_symbols"' + fi + + if test : != "$skipped_export" && test -n "$orig_export_symbols"; then + # The given exports_symbols file has to be filtered, so filter it. + func_verbose "filter symbol list for '$libname.la' to tag DATA exports" + # FIXME: $output_objdir/$libname.filter potentially contains lots of + # 's' commands, which not all seds can handle. GNU sed should be fine + # though. Also, the filter scales superlinearly with the number of + # global variables. join(1) would be nice here, but unfortunately + # isn't a blessed tool. + $opt_dry_run || $SED -e '/[ ,]DATA/!d;s,\(.*\)\([ \,].*\),s|^\1$|\1\2|,' < $export_symbols > $output_objdir/$libname.filter + func_append delfiles " $export_symbols $output_objdir/$libname.filter" + export_symbols=$output_objdir/$libname.def + $opt_dry_run || $SED -f $output_objdir/$libname.filter < $orig_export_symbols > $export_symbols + fi + + tmp_deplibs= + for test_deplib in $deplibs; do + case " $convenience " in + *" $test_deplib "*) ;; + *) + func_append tmp_deplibs " $test_deplib" + ;; + esac + done + deplibs=$tmp_deplibs + + if test -n "$convenience"; then + if test -n "$whole_archive_flag_spec" && + test yes = "$compiler_needs_object" && + test -z "$libobjs"; then + # extract the archives, so we have objects to list. + # TODO: could optimize this to just extract one archive. + whole_archive_flag_spec= + fi + if test -n "$whole_archive_flag_spec"; then + save_libobjs=$libobjs + eval libobjs=\"\$libobjs $whole_archive_flag_spec\" + test "X$libobjs" = "X " && libobjs= + else + gentop=$output_objdir/${outputname}x + func_append generated " $gentop" + + func_extract_archives $gentop $convenience + func_append libobjs " $func_extract_archives_result" + test "X$libobjs" = "X " && libobjs= + fi + fi + + if test yes = "$thread_safe" && test -n "$thread_safe_flag_spec"; then + eval flag=\"$thread_safe_flag_spec\" + func_append linker_flags " $flag" + fi + + # Make a backup of the uninstalled library when relinking + if test relink = "$opt_mode"; then + $opt_dry_run || eval '(cd $output_objdir && $RM ${realname}U && $MV $realname ${realname}U)' || exit $? + fi + + # Do each of the archive commands. + if test yes = "$module" && test -n "$module_cmds"; then + if test -n "$export_symbols" && test -n "$module_expsym_cmds"; then + eval test_cmds=\"$module_expsym_cmds\" + cmds=$module_expsym_cmds + else + eval test_cmds=\"$module_cmds\" + cmds=$module_cmds + fi + else + if test -n "$export_symbols" && test -n "$archive_expsym_cmds"; then + eval test_cmds=\"$archive_expsym_cmds\" + cmds=$archive_expsym_cmds + else + eval test_cmds=\"$archive_cmds\" + cmds=$archive_cmds + fi + fi + + if test : != "$skipped_export" && + func_len " $test_cmds" && + len=$func_len_result && + test "$len" -lt "$max_cmd_len" || test "$max_cmd_len" -le -1; then + : + else + # The command line is too long to link in one step, link piecewise + # or, if using GNU ld and skipped_export is not :, use a linker + # script. + + # Save the value of $output and $libobjs because we want to + # use them later. If we have whole_archive_flag_spec, we + # want to use save_libobjs as it was before + # whole_archive_flag_spec was expanded, because we can't + # assume the linker understands whole_archive_flag_spec. + # This may have to be revisited, in case too many + # convenience libraries get linked in and end up exceeding + # the spec. + if test -z "$convenience" || test -z "$whole_archive_flag_spec"; then + save_libobjs=$libobjs + fi + save_output=$output + func_basename "$output" + output_la=$func_basename_result + + # Clear the reloadable object creation command queue and + # initialize k to one. + test_cmds= + concat_cmds= + objlist= + last_robj= + k=1 + + if test -n "$save_libobjs" && test : != "$skipped_export" && test yes = "$with_gnu_ld"; then + output=$output_objdir/$output_la.lnkscript + func_verbose "creating GNU ld script: $output" + echo 'INPUT (' > $output + for obj in $save_libobjs + do + func_to_tool_file "$obj" + $ECHO "$func_to_tool_file_result" >> $output + done + echo ')' >> $output + func_append delfiles " $output" + func_to_tool_file "$output" + output=$func_to_tool_file_result + elif test -n "$save_libobjs" && test : != "$skipped_export" && test -n "$file_list_spec"; then + output=$output_objdir/$output_la.lnk + func_verbose "creating linker input file list: $output" + : > $output + set x $save_libobjs + shift + firstobj= + if test yes = "$compiler_needs_object"; then + firstobj="$1 " + shift + fi + for obj + do + func_to_tool_file "$obj" + $ECHO "$func_to_tool_file_result" >> $output + done + func_append delfiles " $output" + func_to_tool_file "$output" + output=$firstobj\"$file_list_spec$func_to_tool_file_result\" + else + if test -n "$save_libobjs"; then + func_verbose "creating reloadable object files..." + output=$output_objdir/$output_la-$k.$objext + eval test_cmds=\"$reload_cmds\" + func_len " $test_cmds" + len0=$func_len_result + len=$len0 + + # Loop over the list of objects to be linked. + for obj in $save_libobjs + do + func_len " $obj" + func_arith $len + $func_len_result + len=$func_arith_result + if test -z "$objlist" || + test "$len" -lt "$max_cmd_len"; then + func_append objlist " $obj" + else + # The command $test_cmds is almost too long, add a + # command to the queue. + if test 1 -eq "$k"; then + # The first file doesn't have a previous command to add. + reload_objs=$objlist + eval concat_cmds=\"$reload_cmds\" + else + # All subsequent reloadable object files will link in + # the last one created. + reload_objs="$objlist $last_robj" + eval concat_cmds=\"\$concat_cmds~$reload_cmds~\$RM $last_robj\" + fi + last_robj=$output_objdir/$output_la-$k.$objext + func_arith $k + 1 + k=$func_arith_result + output=$output_objdir/$output_la-$k.$objext + objlist=" $obj" + func_len " $last_robj" + func_arith $len0 + $func_len_result + len=$func_arith_result + fi + done + # Handle the remaining objects by creating one last + # reloadable object file. All subsequent reloadable object + # files will link in the last one created. + test -z "$concat_cmds" || concat_cmds=$concat_cmds~ + reload_objs="$objlist $last_robj" + eval concat_cmds=\"\$concat_cmds$reload_cmds\" + if test -n "$last_robj"; then + eval concat_cmds=\"\$concat_cmds~\$RM $last_robj\" + fi + func_append delfiles " $output" + + else + output= + fi + + ${skipped_export-false} && { + func_verbose "generating symbol list for '$libname.la'" + export_symbols=$output_objdir/$libname.exp + $opt_dry_run || $RM $export_symbols + libobjs=$output + # Append the command to create the export file. + test -z "$concat_cmds" || concat_cmds=$concat_cmds~ + eval concat_cmds=\"\$concat_cmds$export_symbols_cmds\" + if test -n "$last_robj"; then + eval concat_cmds=\"\$concat_cmds~\$RM $last_robj\" + fi + } + + test -n "$save_libobjs" && + func_verbose "creating a temporary reloadable object file: $output" + + # Loop through the commands generated above and execute them. + save_ifs=$IFS; IFS='~' + for cmd in $concat_cmds; do + IFS=$save_ifs + $opt_quiet || { + func_quote_for_expand "$cmd" + eval "func_echo $func_quote_for_expand_result" + } + $opt_dry_run || eval "$cmd" || { + lt_exit=$? + + # Restore the uninstalled library and exit + if test relink = "$opt_mode"; then + ( cd "$output_objdir" && \ + $RM "${realname}T" && \ + $MV "${realname}U" "$realname" ) + fi + + exit $lt_exit + } + done + IFS=$save_ifs + + if test -n "$export_symbols_regex" && ${skipped_export-false}; then + func_show_eval '$EGREP -e "$export_symbols_regex" "$export_symbols" > "${export_symbols}T"' + func_show_eval '$MV "${export_symbols}T" "$export_symbols"' + fi + fi + + ${skipped_export-false} && { + if test -n "$export_symbols" && test -n "$include_expsyms"; then + tmp_export_symbols=$export_symbols + test -n "$orig_export_symbols" && tmp_export_symbols=$orig_export_symbols + $opt_dry_run || eval '$ECHO "$include_expsyms" | $SP2NL >> "$tmp_export_symbols"' + fi + + if test -n "$orig_export_symbols"; then + # The given exports_symbols file has to be filtered, so filter it. + func_verbose "filter symbol list for '$libname.la' to tag DATA exports" + # FIXME: $output_objdir/$libname.filter potentially contains lots of + # 's' commands, which not all seds can handle. GNU sed should be fine + # though. Also, the filter scales superlinearly with the number of + # global variables. join(1) would be nice here, but unfortunately + # isn't a blessed tool. + $opt_dry_run || $SED -e '/[ ,]DATA/!d;s,\(.*\)\([ \,].*\),s|^\1$|\1\2|,' < $export_symbols > $output_objdir/$libname.filter + func_append delfiles " $export_symbols $output_objdir/$libname.filter" + export_symbols=$output_objdir/$libname.def + $opt_dry_run || $SED -f $output_objdir/$libname.filter < $orig_export_symbols > $export_symbols + fi + } + + libobjs=$output + # Restore the value of output. + output=$save_output + + if test -n "$convenience" && test -n "$whole_archive_flag_spec"; then + eval libobjs=\"\$libobjs $whole_archive_flag_spec\" + test "X$libobjs" = "X " && libobjs= + fi + # Expand the library linking commands again to reset the + # value of $libobjs for piecewise linking. + + # Do each of the archive commands. + if test yes = "$module" && test -n "$module_cmds"; then + if test -n "$export_symbols" && test -n "$module_expsym_cmds"; then + cmds=$module_expsym_cmds + else + cmds=$module_cmds + fi + else + if test -n "$export_symbols" && test -n "$archive_expsym_cmds"; then + cmds=$archive_expsym_cmds + else + cmds=$archive_cmds + fi + fi + fi + + if test -n "$delfiles"; then + # Append the command to remove temporary files to $cmds. + eval cmds=\"\$cmds~\$RM $delfiles\" + fi + + # Add any objects from preloaded convenience libraries + if test -n "$dlprefiles"; then + gentop=$output_objdir/${outputname}x + func_append generated " $gentop" + + func_extract_archives $gentop $dlprefiles + func_append libobjs " $func_extract_archives_result" + test "X$libobjs" = "X " && libobjs= + fi + + save_ifs=$IFS; IFS='~' + for cmd in $cmds; do + IFS=$sp$nl + eval cmd=\"$cmd\" + IFS=$save_ifs + $opt_quiet || { + func_quote_for_expand "$cmd" + eval "func_echo $func_quote_for_expand_result" + } + $opt_dry_run || eval "$cmd" || { + lt_exit=$? + + # Restore the uninstalled library and exit + if test relink = "$opt_mode"; then + ( cd "$output_objdir" && \ + $RM "${realname}T" && \ + $MV "${realname}U" "$realname" ) + fi + + exit $lt_exit + } + done + IFS=$save_ifs + + # Restore the uninstalled library and exit + if test relink = "$opt_mode"; then + $opt_dry_run || eval '(cd $output_objdir && $RM ${realname}T && $MV $realname ${realname}T && $MV ${realname}U $realname)' || exit $? + + if test -n "$convenience"; then + if test -z "$whole_archive_flag_spec"; then + func_show_eval '${RM}r "$gentop"' + fi + fi + + exit $EXIT_SUCCESS + fi + + # Create links to the real library. + for linkname in $linknames; do + if test "$realname" != "$linkname"; then + func_show_eval '(cd "$output_objdir" && $RM "$linkname" && $LN_S "$realname" "$linkname")' 'exit $?' + fi + done + + # If -module or -export-dynamic was specified, set the dlname. + if test yes = "$module" || test yes = "$export_dynamic"; then + # On all known operating systems, these are identical. + dlname=$soname + fi + fi + ;; + + obj) + if test -n "$dlfiles$dlprefiles" || test no != "$dlself"; then + func_warning "'-dlopen' is ignored for objects" + fi + + case " $deplibs" in + *\ -l* | *\ -L*) + func_warning "'-l' and '-L' are ignored for objects" ;; + esac + + test -n "$rpath" && \ + func_warning "'-rpath' is ignored for objects" + + test -n "$xrpath" && \ + func_warning "'-R' is ignored for objects" + + test -n "$vinfo" && \ + func_warning "'-version-info' is ignored for objects" + + test -n "$release" && \ + func_warning "'-release' is ignored for objects" + + case $output in + *.lo) + test -n "$objs$old_deplibs" && \ + func_fatal_error "cannot build library object '$output' from non-libtool objects" + + libobj=$output + func_lo2o "$libobj" + obj=$func_lo2o_result + ;; + *) + libobj= + obj=$output + ;; + esac + + # Delete the old objects. + $opt_dry_run || $RM $obj $libobj + + # Objects from convenience libraries. This assumes + # single-version convenience libraries. Whenever we create + # different ones for PIC/non-PIC, this we'll have to duplicate + # the extraction. + reload_conv_objs= + gentop= + # if reload_cmds runs $LD directly, get rid of -Wl from + # whole_archive_flag_spec and hope we can get by with turning comma + # into space. + case $reload_cmds in + *\$LD[\ \$]*) wl= ;; + esac + if test -n "$convenience"; then + if test -n "$whole_archive_flag_spec"; then + eval tmp_whole_archive_flags=\"$whole_archive_flag_spec\" + test -n "$wl" || tmp_whole_archive_flags=`$ECHO "$tmp_whole_archive_flags" | $SED 's|,| |g'` + reload_conv_objs=$reload_objs\ $tmp_whole_archive_flags + else + gentop=$output_objdir/${obj}x + func_append generated " $gentop" + + func_extract_archives $gentop $convenience + reload_conv_objs="$reload_objs $func_extract_archives_result" + fi + fi + + # If we're not building shared, we need to use non_pic_objs + test yes = "$build_libtool_libs" || libobjs=$non_pic_objects + + # Create the old-style object. + reload_objs=$objs$old_deplibs' '`$ECHO "$libobjs" | $SP2NL | $SED "/\.$libext$/d; /\.lib$/d; $lo2o" | $NL2SP`' '$reload_conv_objs + + output=$obj + func_execute_cmds "$reload_cmds" 'exit $?' + + # Exit if we aren't doing a library object file. + if test -z "$libobj"; then + if test -n "$gentop"; then + func_show_eval '${RM}r "$gentop"' + fi + + exit $EXIT_SUCCESS + fi + + test yes = "$build_libtool_libs" || { + if test -n "$gentop"; then + func_show_eval '${RM}r "$gentop"' + fi + + # Create an invalid libtool object if no PIC, so that we don't + # accidentally link it into a program. + # $show "echo timestamp > $libobj" + # $opt_dry_run || eval "echo timestamp > $libobj" || exit $? + exit $EXIT_SUCCESS + } + + if test -n "$pic_flag" || test default != "$pic_mode"; then + # Only do commands if we really have different PIC objects. + reload_objs="$libobjs $reload_conv_objs" + output=$libobj + func_execute_cmds "$reload_cmds" 'exit $?' + fi + + if test -n "$gentop"; then + func_show_eval '${RM}r "$gentop"' + fi + + exit $EXIT_SUCCESS + ;; + + prog) + case $host in + *cygwin*) func_stripname '' '.exe' "$output" + output=$func_stripname_result.exe;; + esac + test -n "$vinfo" && \ + func_warning "'-version-info' is ignored for programs" + + test -n "$release" && \ + func_warning "'-release' is ignored for programs" + + $preload \ + && test unknown,unknown,unknown = "$dlopen_support,$dlopen_self,$dlopen_self_static" \ + && func_warning "'LT_INIT([dlopen])' not used. Assuming no dlopen support." + + case $host in + *-*-rhapsody* | *-*-darwin1.[012]) + # On Rhapsody replace the C library is the System framework + compile_deplibs=`$ECHO " $compile_deplibs" | $SED 's/ -lc / System.ltframework /'` + finalize_deplibs=`$ECHO " $finalize_deplibs" | $SED 's/ -lc / System.ltframework /'` + ;; + esac + + case $host in + *-*-darwin*) + # Don't allow lazy linking, it breaks C++ global constructors + # But is supposedly fixed on 10.4 or later (yay!). + if test CXX = "$tagname"; then + case ${MACOSX_DEPLOYMENT_TARGET-10.0} in + 10.[0123]) + func_append compile_command " $wl-bind_at_load" + func_append finalize_command " $wl-bind_at_load" + ;; + esac + fi + # Time to change all our "foo.ltframework" stuff back to "-framework foo" + compile_deplibs=`$ECHO " $compile_deplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` + finalize_deplibs=`$ECHO " $finalize_deplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` + ;; + esac + + + # move library search paths that coincide with paths to not yet + # installed libraries to the beginning of the library search list + new_libs= + for path in $notinst_path; do + case " $new_libs " in + *" -L$path/$objdir "*) ;; + *) + case " $compile_deplibs " in + *" -L$path/$objdir "*) + func_append new_libs " -L$path/$objdir" ;; + esac + ;; + esac + done + for deplib in $compile_deplibs; do + case $deplib in + -L*) + case " $new_libs " in + *" $deplib "*) ;; + *) func_append new_libs " $deplib" ;; + esac + ;; + *) func_append new_libs " $deplib" ;; + esac + done + compile_deplibs=$new_libs + + + func_append compile_command " $compile_deplibs" + func_append finalize_command " $finalize_deplibs" + + if test -n "$rpath$xrpath"; then + # If the user specified any rpath flags, then add them. + for libdir in $rpath $xrpath; do + # This is the magic to use -rpath. + case "$finalize_rpath " in + *" $libdir "*) ;; + *) func_append finalize_rpath " $libdir" ;; + esac + done + fi + + # Now hardcode the library paths + rpath= + hardcode_libdirs= + for libdir in $compile_rpath $finalize_rpath; do + if test -n "$hardcode_libdir_flag_spec"; then + if test -n "$hardcode_libdir_separator"; then + if test -z "$hardcode_libdirs"; then + hardcode_libdirs=$libdir + else + # Just accumulate the unique libdirs. + case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in + *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*) + ;; + *) + func_append hardcode_libdirs "$hardcode_libdir_separator$libdir" + ;; + esac + fi + else + eval flag=\"$hardcode_libdir_flag_spec\" + func_append rpath " $flag" + fi + elif test -n "$runpath_var"; then + case "$perm_rpath " in + *" $libdir "*) ;; + *) func_append perm_rpath " $libdir" ;; + esac + fi + case $host in + *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-cegcc*) + testbindir=`$ECHO "$libdir" | $SED -e 's*/lib$*/bin*'` + case :$dllsearchpath: in + *":$libdir:"*) ;; + ::) dllsearchpath=$libdir;; + *) func_append dllsearchpath ":$libdir";; + esac + case :$dllsearchpath: in + *":$testbindir:"*) ;; + ::) dllsearchpath=$testbindir;; + *) func_append dllsearchpath ":$testbindir";; + esac + ;; + esac + done + # Substitute the hardcoded libdirs into the rpath. + if test -n "$hardcode_libdir_separator" && + test -n "$hardcode_libdirs"; then + libdir=$hardcode_libdirs + eval rpath=\" $hardcode_libdir_flag_spec\" + fi + compile_rpath=$rpath + + rpath= + hardcode_libdirs= + for libdir in $finalize_rpath; do + if test -n "$hardcode_libdir_flag_spec"; then + if test -n "$hardcode_libdir_separator"; then + if test -z "$hardcode_libdirs"; then + hardcode_libdirs=$libdir + else + # Just accumulate the unique libdirs. + case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in + *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*) + ;; + *) + func_append hardcode_libdirs "$hardcode_libdir_separator$libdir" + ;; + esac + fi + else + eval flag=\"$hardcode_libdir_flag_spec\" + func_append rpath " $flag" + fi + elif test -n "$runpath_var"; then + case "$finalize_perm_rpath " in + *" $libdir "*) ;; + *) func_append finalize_perm_rpath " $libdir" ;; + esac + fi + done + # Substitute the hardcoded libdirs into the rpath. + if test -n "$hardcode_libdir_separator" && + test -n "$hardcode_libdirs"; then + libdir=$hardcode_libdirs + eval rpath=\" $hardcode_libdir_flag_spec\" + fi + finalize_rpath=$rpath + + if test -n "$libobjs" && test yes = "$build_old_libs"; then + # Transform all the library objects into standard objects. + compile_command=`$ECHO "$compile_command" | $SP2NL | $SED "$lo2o" | $NL2SP` + finalize_command=`$ECHO "$finalize_command" | $SP2NL | $SED "$lo2o" | $NL2SP` + fi + + func_generate_dlsyms "$outputname" "@PROGRAM@" false + + # template prelinking step + if test -n "$prelink_cmds"; then + func_execute_cmds "$prelink_cmds" 'exit $?' + fi + + wrappers_required=: + case $host in + *cegcc* | *mingw32ce*) + # Disable wrappers for cegcc and mingw32ce hosts, we are cross compiling anyway. + wrappers_required=false + ;; + *cygwin* | *mingw* ) + test yes = "$build_libtool_libs" || wrappers_required=false + ;; + *) + if test no = "$need_relink" || test yes != "$build_libtool_libs"; then + wrappers_required=false + fi + ;; + esac + $wrappers_required || { + # Replace the output file specification. + compile_command=`$ECHO "$compile_command" | $SED 's%@OUTPUT@%'"$output"'%g'` + link_command=$compile_command$compile_rpath + + # We have no uninstalled library dependencies, so finalize right now. + exit_status=0 + func_show_eval "$link_command" 'exit_status=$?' + + if test -n "$postlink_cmds"; then + func_to_tool_file "$output" + postlink_cmds=`func_echo_all "$postlink_cmds" | $SED -e 's%@OUTPUT@%'"$output"'%g' -e 's%@TOOL_OUTPUT@%'"$func_to_tool_file_result"'%g'` + func_execute_cmds "$postlink_cmds" 'exit $?' + fi + + # Delete the generated files. + if test -f "$output_objdir/${outputname}S.$objext"; then + func_show_eval '$RM "$output_objdir/${outputname}S.$objext"' + fi + + exit $exit_status + } + + if test -n "$compile_shlibpath$finalize_shlibpath"; then + compile_command="$shlibpath_var=\"$compile_shlibpath$finalize_shlibpath\$$shlibpath_var\" $compile_command" + fi + if test -n "$finalize_shlibpath"; then + finalize_command="$shlibpath_var=\"$finalize_shlibpath\$$shlibpath_var\" $finalize_command" + fi + + compile_var= + finalize_var= + if test -n "$runpath_var"; then + if test -n "$perm_rpath"; then + # We should set the runpath_var. + rpath= + for dir in $perm_rpath; do + func_append rpath "$dir:" + done + compile_var="$runpath_var=\"$rpath\$$runpath_var\" " + fi + if test -n "$finalize_perm_rpath"; then + # We should set the runpath_var. + rpath= + for dir in $finalize_perm_rpath; do + func_append rpath "$dir:" + done + finalize_var="$runpath_var=\"$rpath\$$runpath_var\" " + fi + fi + + if test yes = "$no_install"; then + # We don't need to create a wrapper script. + link_command=$compile_var$compile_command$compile_rpath + # Replace the output file specification. + link_command=`$ECHO "$link_command" | $SED 's%@OUTPUT@%'"$output"'%g'` + # Delete the old output file. + $opt_dry_run || $RM $output + # Link the executable and exit + func_show_eval "$link_command" 'exit $?' + + if test -n "$postlink_cmds"; then + func_to_tool_file "$output" + postlink_cmds=`func_echo_all "$postlink_cmds" | $SED -e 's%@OUTPUT@%'"$output"'%g' -e 's%@TOOL_OUTPUT@%'"$func_to_tool_file_result"'%g'` + func_execute_cmds "$postlink_cmds" 'exit $?' + fi + + exit $EXIT_SUCCESS + fi + + case $hardcode_action,$fast_install in + relink,*) + # Fast installation is not supported + link_command=$compile_var$compile_command$compile_rpath + relink_command=$finalize_var$finalize_command$finalize_rpath + + func_warning "this platform does not like uninstalled shared libraries" + func_warning "'$output' will be relinked during installation" + ;; + *,yes) + link_command=$finalize_var$compile_command$finalize_rpath + relink_command=`$ECHO "$compile_var$compile_command$compile_rpath" | $SED 's%@OUTPUT@%\$progdir/\$file%g'` + ;; + *,no) + link_command=$compile_var$compile_command$compile_rpath + relink_command=$finalize_var$finalize_command$finalize_rpath + ;; + *,needless) + link_command=$finalize_var$compile_command$finalize_rpath + relink_command= + ;; + esac + + # Replace the output file specification. + link_command=`$ECHO "$link_command" | $SED 's%@OUTPUT@%'"$output_objdir/$outputname"'%g'` + + # Delete the old output files. + $opt_dry_run || $RM $output $output_objdir/$outputname $output_objdir/lt-$outputname + + func_show_eval "$link_command" 'exit $?' + + if test -n "$postlink_cmds"; then + func_to_tool_file "$output_objdir/$outputname" + postlink_cmds=`func_echo_all "$postlink_cmds" | $SED -e 's%@OUTPUT@%'"$output_objdir/$outputname"'%g' -e 's%@TOOL_OUTPUT@%'"$func_to_tool_file_result"'%g'` + func_execute_cmds "$postlink_cmds" 'exit $?' + fi + + # Now create the wrapper script. + func_verbose "creating $output" + + # Quote the relink command for shipping. + if test -n "$relink_command"; then + # Preserve any variables that may affect compiler behavior + for var in $variables_saved_for_relink; do + if eval test -z \"\${$var+set}\"; then + relink_command="{ test -z \"\${$var+set}\" || $lt_unset $var || { $var=; export $var; }; }; $relink_command" + elif eval var_value=\$$var; test -z "$var_value"; then + relink_command="$var=; export $var; $relink_command" + else + func_quote_for_eval "$var_value" + relink_command="$var=$func_quote_for_eval_result; export $var; $relink_command" + fi + done + relink_command="(cd `pwd`; $relink_command)" + relink_command=`$ECHO "$relink_command" | $SED "$sed_quote_subst"` + fi + + # Only actually do things if not in dry run mode. + $opt_dry_run || { + # win32 will think the script is a binary if it has + # a .exe suffix, so we strip it off here. + case $output in + *.exe) func_stripname '' '.exe' "$output" + output=$func_stripname_result ;; + esac + # test for cygwin because mv fails w/o .exe extensions + case $host in + *cygwin*) + exeext=.exe + func_stripname '' '.exe' "$outputname" + outputname=$func_stripname_result ;; + *) exeext= ;; + esac + case $host in + *cygwin* | *mingw* ) + func_dirname_and_basename "$output" "" "." + output_name=$func_basename_result + output_path=$func_dirname_result + cwrappersource=$output_path/$objdir/lt-$output_name.c + cwrapper=$output_path/$output_name.exe + $RM $cwrappersource $cwrapper + trap "$RM $cwrappersource $cwrapper; exit $EXIT_FAILURE" 1 2 15 + + func_emit_cwrapperexe_src > $cwrappersource + + # The wrapper executable is built using the $host compiler, + # because it contains $host paths and files. If cross- + # compiling, it, like the target executable, must be + # executed on the $host or under an emulation environment. + $opt_dry_run || { + $LTCC $LTCFLAGS -o $cwrapper $cwrappersource + $STRIP $cwrapper + } + + # Now, create the wrapper script for func_source use: + func_ltwrapper_scriptname $cwrapper + $RM $func_ltwrapper_scriptname_result + trap "$RM $func_ltwrapper_scriptname_result; exit $EXIT_FAILURE" 1 2 15 + $opt_dry_run || { + # note: this script will not be executed, so do not chmod. + if test "x$build" = "x$host"; then + $cwrapper --lt-dump-script > $func_ltwrapper_scriptname_result + else + func_emit_wrapper no > $func_ltwrapper_scriptname_result + fi + } + ;; + * ) + $RM $output + trap "$RM $output; exit $EXIT_FAILURE" 1 2 15 + + func_emit_wrapper no > $output + chmod +x $output + ;; + esac + } + exit $EXIT_SUCCESS + ;; + esac + + # See if we need to build an old-fashioned archive. + for oldlib in $oldlibs; do + + case $build_libtool_libs in + convenience) + oldobjs="$libobjs_save $symfileobj" + addlibs=$convenience + build_libtool_libs=no + ;; + module) + oldobjs=$libobjs_save + addlibs=$old_convenience + build_libtool_libs=no + ;; + *) + oldobjs="$old_deplibs $non_pic_objects" + $preload && test -f "$symfileobj" \ + && func_append oldobjs " $symfileobj" + addlibs=$old_convenience + ;; + esac + + if test -n "$addlibs"; then + gentop=$output_objdir/${outputname}x + func_append generated " $gentop" + + func_extract_archives $gentop $addlibs + func_append oldobjs " $func_extract_archives_result" + fi + + # Do each command in the archive commands. + if test -n "$old_archive_from_new_cmds" && test yes = "$build_libtool_libs"; then + cmds=$old_archive_from_new_cmds + else + + # Add any objects from preloaded convenience libraries + if test -n "$dlprefiles"; then + gentop=$output_objdir/${outputname}x + func_append generated " $gentop" + + func_extract_archives $gentop $dlprefiles + func_append oldobjs " $func_extract_archives_result" + fi + + # POSIX demands no paths to be encoded in archives. We have + # to avoid creating archives with duplicate basenames if we + # might have to extract them afterwards, e.g., when creating a + # static archive out of a convenience library, or when linking + # the entirety of a libtool archive into another (currently + # not supported by libtool). + if (for obj in $oldobjs + do + func_basename "$obj" + $ECHO "$func_basename_result" + done | sort | sort -uc >/dev/null 2>&1); then + : + else + echo "copying selected object files to avoid basename conflicts..." + gentop=$output_objdir/${outputname}x + func_append generated " $gentop" + func_mkdir_p "$gentop" + save_oldobjs=$oldobjs + oldobjs= + counter=1 + for obj in $save_oldobjs + do + func_basename "$obj" + objbase=$func_basename_result + case " $oldobjs " in + " ") oldobjs=$obj ;; + *[\ /]"$objbase "*) + while :; do + # Make sure we don't pick an alternate name that also + # overlaps. + newobj=lt$counter-$objbase + func_arith $counter + 1 + counter=$func_arith_result + case " $oldobjs " in + *[\ /]"$newobj "*) ;; + *) if test ! -f "$gentop/$newobj"; then break; fi ;; + esac + done + func_show_eval "ln $obj $gentop/$newobj || cp $obj $gentop/$newobj" + func_append oldobjs " $gentop/$newobj" + ;; + *) func_append oldobjs " $obj" ;; + esac + done + fi + func_to_tool_file "$oldlib" func_convert_file_msys_to_w32 + tool_oldlib=$func_to_tool_file_result + eval cmds=\"$old_archive_cmds\" + + func_len " $cmds" + len=$func_len_result + if test "$len" -lt "$max_cmd_len" || test "$max_cmd_len" -le -1; then + cmds=$old_archive_cmds + elif test -n "$archiver_list_spec"; then + func_verbose "using command file archive linking..." + for obj in $oldobjs + do + func_to_tool_file "$obj" + $ECHO "$func_to_tool_file_result" + done > $output_objdir/$libname.libcmd + func_to_tool_file "$output_objdir/$libname.libcmd" + oldobjs=" $archiver_list_spec$func_to_tool_file_result" + cmds=$old_archive_cmds + else + # the command line is too long to link in one step, link in parts + func_verbose "using piecewise archive linking..." + save_RANLIB=$RANLIB + RANLIB=: + objlist= + concat_cmds= + save_oldobjs=$oldobjs + oldobjs= + # Is there a better way of finding the last object in the list? + for obj in $save_oldobjs + do + last_oldobj=$obj + done + eval test_cmds=\"$old_archive_cmds\" + func_len " $test_cmds" + len0=$func_len_result + len=$len0 + for obj in $save_oldobjs + do + func_len " $obj" + func_arith $len + $func_len_result + len=$func_arith_result + func_append objlist " $obj" + if test "$len" -lt "$max_cmd_len"; then + : + else + # the above command should be used before it gets too long + oldobjs=$objlist + if test "$obj" = "$last_oldobj"; then + RANLIB=$save_RANLIB + fi + test -z "$concat_cmds" || concat_cmds=$concat_cmds~ + eval concat_cmds=\"\$concat_cmds$old_archive_cmds\" + objlist= + len=$len0 + fi + done + RANLIB=$save_RANLIB + oldobjs=$objlist + if test -z "$oldobjs"; then + eval cmds=\"\$concat_cmds\" + else + eval cmds=\"\$concat_cmds~\$old_archive_cmds\" + fi + fi + fi + func_execute_cmds "$cmds" 'exit $?' + done + + test -n "$generated" && \ + func_show_eval "${RM}r$generated" + + # Now create the libtool archive. + case $output in + *.la) + old_library= + test yes = "$build_old_libs" && old_library=$libname.$libext + func_verbose "creating $output" + + # Preserve any variables that may affect compiler behavior + for var in $variables_saved_for_relink; do + if eval test -z \"\${$var+set}\"; then + relink_command="{ test -z \"\${$var+set}\" || $lt_unset $var || { $var=; export $var; }; }; $relink_command" + elif eval var_value=\$$var; test -z "$var_value"; then + relink_command="$var=; export $var; $relink_command" + else + func_quote_for_eval "$var_value" + relink_command="$var=$func_quote_for_eval_result; export $var; $relink_command" + fi + done + # Quote the link command for shipping. + relink_command="(cd `pwd`; $SHELL \"$progpath\" $preserve_args --mode=relink $libtool_args @inst_prefix_dir@)" + relink_command=`$ECHO "$relink_command" | $SED "$sed_quote_subst"` + if test yes = "$hardcode_automatic"; then + relink_command= + fi + + # Only create the output if not a dry run. + $opt_dry_run || { + for installed in no yes; do + if test yes = "$installed"; then + if test -z "$install_libdir"; then + break + fi + output=$output_objdir/${outputname}i + # Replace all uninstalled libtool libraries with the installed ones + newdependency_libs= + for deplib in $dependency_libs; do + case $deplib in + *.la) + func_basename "$deplib" + name=$func_basename_result + func_resolve_sysroot "$deplib" + eval libdir=`$SED -n -e 's/^libdir=\(.*\)$/\1/p' $func_resolve_sysroot_result` + test -z "$libdir" && \ + func_fatal_error "'$deplib' is not a valid libtool archive" + func_append newdependency_libs " ${lt_sysroot:+=}$libdir/$name" + ;; + -L*) + func_stripname -L '' "$deplib" + func_replace_sysroot "$func_stripname_result" + func_append newdependency_libs " -L$func_replace_sysroot_result" + ;; + -R*) + func_stripname -R '' "$deplib" + func_replace_sysroot "$func_stripname_result" + func_append newdependency_libs " -R$func_replace_sysroot_result" + ;; + *) func_append newdependency_libs " $deplib" ;; + esac + done + dependency_libs=$newdependency_libs + newdlfiles= + + for lib in $dlfiles; do + case $lib in + *.la) + func_basename "$lib" + name=$func_basename_result + eval libdir=`$SED -n -e 's/^libdir=\(.*\)$/\1/p' $lib` + test -z "$libdir" && \ + func_fatal_error "'$lib' is not a valid libtool archive" + func_append newdlfiles " ${lt_sysroot:+=}$libdir/$name" + ;; + *) func_append newdlfiles " $lib" ;; + esac + done + dlfiles=$newdlfiles + newdlprefiles= + for lib in $dlprefiles; do + case $lib in + *.la) + # Only pass preopened files to the pseudo-archive (for + # eventual linking with the app. that links it) if we + # didn't already link the preopened objects directly into + # the library: + func_basename "$lib" + name=$func_basename_result + eval libdir=`$SED -n -e 's/^libdir=\(.*\)$/\1/p' $lib` + test -z "$libdir" && \ + func_fatal_error "'$lib' is not a valid libtool archive" + func_append newdlprefiles " ${lt_sysroot:+=}$libdir/$name" + ;; + esac + done + dlprefiles=$newdlprefiles + else + newdlfiles= + for lib in $dlfiles; do + case $lib in + [\\/]* | [A-Za-z]:[\\/]*) abs=$lib ;; + *) abs=`pwd`"/$lib" ;; + esac + func_append newdlfiles " $abs" + done + dlfiles=$newdlfiles + newdlprefiles= + for lib in $dlprefiles; do + case $lib in + [\\/]* | [A-Za-z]:[\\/]*) abs=$lib ;; + *) abs=`pwd`"/$lib" ;; + esac + func_append newdlprefiles " $abs" + done + dlprefiles=$newdlprefiles + fi + $RM $output + # place dlname in correct position for cygwin + # In fact, it would be nice if we could use this code for all target + # systems that can't hard-code library paths into their executables + # and that have no shared library path variable independent of PATH, + # but it turns out we can't easily determine that from inspecting + # libtool variables, so we have to hard-code the OSs to which it + # applies here; at the moment, that means platforms that use the PE + # object format with DLL files. See the long comment at the top of + # tests/bindir.at for full details. + tdlname=$dlname + case $host,$output,$installed,$module,$dlname in + *cygwin*,*lai,yes,no,*.dll | *mingw*,*lai,yes,no,*.dll | *cegcc*,*lai,yes,no,*.dll) + # If a -bindir argument was supplied, place the dll there. + if test -n "$bindir"; then + func_relative_path "$install_libdir" "$bindir" + tdlname=$func_relative_path_result/$dlname + else + # Otherwise fall back on heuristic. + tdlname=../bin/$dlname + fi + ;; + esac + $ECHO > $output "\ +# $outputname - a libtool library file +# Generated by $PROGRAM (GNU $PACKAGE) $VERSION +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# The name that we can dlopen(3). +dlname='$tdlname' + +# Names of this library. +library_names='$library_names' + +# The name of the static archive. +old_library='$old_library' + +# Linker flags that cannot go in dependency_libs. +inherited_linker_flags='$new_inherited_linker_flags' + +# Libraries that this one depends upon. +dependency_libs='$dependency_libs' + +# Names of additional weak libraries provided by this library +weak_library_names='$weak_libs' + +# Version information for $libname. +current=$current +age=$age +revision=$revision + +# Is this an already installed library? +installed=$installed + +# Should we warn about portability when linking against -modules? +shouldnotlink=$module + +# Files to dlopen/dlpreopen +dlopen='$dlfiles' +dlpreopen='$dlprefiles' + +# Directory that this library needs to be installed in: +libdir='$install_libdir'" + if test no,yes = "$installed,$need_relink"; then + $ECHO >> $output "\ +relink_command=\"$relink_command\"" + fi + done + } + + # Do a symbolic link so that the libtool archive can be found in + # LD_LIBRARY_PATH before the program is installed. + func_show_eval '( cd "$output_objdir" && $RM "$outputname" && $LN_S "../$outputname" "$outputname" )' 'exit $?' + ;; + esac + exit $EXIT_SUCCESS +} + +if test link = "$opt_mode" || test relink = "$opt_mode"; then + func_mode_link ${1+"$@"} +fi + + +# func_mode_uninstall arg... +func_mode_uninstall () +{ + $debug_cmd + + RM=$nonopt + files= + rmforce=false + exit_status=0 + + # This variable tells wrapper scripts just to set variables rather + # than running their programs. + libtool_install_magic=$magic + + for arg + do + case $arg in + -f) func_append RM " $arg"; rmforce=: ;; + -*) func_append RM " $arg" ;; + *) func_append files " $arg" ;; + esac + done + + test -z "$RM" && \ + func_fatal_help "you must specify an RM program" + + rmdirs= + + for file in $files; do + func_dirname "$file" "" "." + dir=$func_dirname_result + if test . = "$dir"; then + odir=$objdir + else + odir=$dir/$objdir + fi + func_basename "$file" + name=$func_basename_result + test uninstall = "$opt_mode" && odir=$dir + + # Remember odir for removal later, being careful to avoid duplicates + if test clean = "$opt_mode"; then + case " $rmdirs " in + *" $odir "*) ;; + *) func_append rmdirs " $odir" ;; + esac + fi + + # Don't error if the file doesn't exist and rm -f was used. + if { test -L "$file"; } >/dev/null 2>&1 || + { test -h "$file"; } >/dev/null 2>&1 || + test -f "$file"; then + : + elif test -d "$file"; then + exit_status=1 + continue + elif $rmforce; then + continue + fi + + rmfiles=$file + + case $name in + *.la) + # Possibly a libtool archive, so verify it. + if func_lalib_p "$file"; then + func_source $dir/$name + + # Delete the libtool libraries and symlinks. + for n in $library_names; do + func_append rmfiles " $odir/$n" + done + test -n "$old_library" && func_append rmfiles " $odir/$old_library" + + case $opt_mode in + clean) + case " $library_names " in + *" $dlname "*) ;; + *) test -n "$dlname" && func_append rmfiles " $odir/$dlname" ;; + esac + test -n "$libdir" && func_append rmfiles " $odir/$name $odir/${name}i" + ;; + uninstall) + if test -n "$library_names"; then + # Do each command in the postuninstall commands. + func_execute_cmds "$postuninstall_cmds" '$rmforce || exit_status=1' + fi + + if test -n "$old_library"; then + # Do each command in the old_postuninstall commands. + func_execute_cmds "$old_postuninstall_cmds" '$rmforce || exit_status=1' + fi + # FIXME: should reinstall the best remaining shared library. + ;; + esac + fi + ;; + + *.lo) + # Possibly a libtool object, so verify it. + if func_lalib_p "$file"; then + + # Read the .lo file + func_source $dir/$name + + # Add PIC object to the list of files to remove. + if test -n "$pic_object" && test none != "$pic_object"; then + func_append rmfiles " $dir/$pic_object" + fi + + # Add non-PIC object to the list of files to remove. + if test -n "$non_pic_object" && test none != "$non_pic_object"; then + func_append rmfiles " $dir/$non_pic_object" + fi + fi + ;; + + *) + if test clean = "$opt_mode"; then + noexename=$name + case $file in + *.exe) + func_stripname '' '.exe' "$file" + file=$func_stripname_result + func_stripname '' '.exe' "$name" + noexename=$func_stripname_result + # $file with .exe has already been added to rmfiles, + # add $file without .exe + func_append rmfiles " $file" + ;; + esac + # Do a test to see if this is a libtool program. + if func_ltwrapper_p "$file"; then + if func_ltwrapper_executable_p "$file"; then + func_ltwrapper_scriptname "$file" + relink_command= + func_source $func_ltwrapper_scriptname_result + func_append rmfiles " $func_ltwrapper_scriptname_result" + else + relink_command= + func_source $dir/$noexename + fi + + # note $name still contains .exe if it was in $file originally + # as does the version of $file that was added into $rmfiles + func_append rmfiles " $odir/$name $odir/${name}S.$objext" + if test yes = "$fast_install" && test -n "$relink_command"; then + func_append rmfiles " $odir/lt-$name" + fi + if test "X$noexename" != "X$name"; then + func_append rmfiles " $odir/lt-$noexename.c" + fi + fi + fi + ;; + esac + func_show_eval "$RM $rmfiles" 'exit_status=1' + done + + # Try to remove the $objdir's in the directories where we deleted files + for dir in $rmdirs; do + if test -d "$dir"; then + func_show_eval "rmdir $dir >/dev/null 2>&1" + fi + done + + exit $exit_status +} + +if test uninstall = "$opt_mode" || test clean = "$opt_mode"; then + func_mode_uninstall ${1+"$@"} +fi + +test -z "$opt_mode" && { + help=$generic_help + func_fatal_help "you must specify a MODE" +} + +test -z "$exec_cmd" && \ + func_fatal_help "invalid operation mode '$opt_mode'" + +if test -n "$exec_cmd"; then + eval exec "$exec_cmd" + exit $EXIT_FAILURE +fi + +exit $exit_status + + +# The TAGs below are defined such that we never get into a situation +# where we disable both kinds of libraries. Given conflicting +# choices, we go for a static library, that is the most portable, +# since we can't tell whether shared libraries were disabled because +# the user asked for that or because the platform doesn't support +# them. This is particularly important on AIX, because we don't +# support having both static and shared libraries enabled at the same +# time on that platform, so we default to a shared-only configuration. +# If a disable-shared tag is given, we'll fallback to a static-only +# configuration. But we'll never go from static-only to shared-only. + +# ### BEGIN LIBTOOL TAG CONFIG: disable-shared +build_libtool_libs=no +build_old_libs=yes +# ### END LIBTOOL TAG CONFIG: disable-shared + +# ### BEGIN LIBTOOL TAG CONFIG: disable-static +build_old_libs=`case $build_libtool_libs in yes) echo no;; *) echo yes;; esac` +# ### END LIBTOOL TAG CONFIG: disable-static + +# Local Variables: +# mode:shell-script +# sh-indentation:2 +# End: diff --git a/build-aux/missing b/build-aux/missing new file mode 100755 index 0000000..c6e3795 --- /dev/null +++ b/build-aux/missing @@ -0,0 +1,215 @@ +#! /bin/sh +# Common wrapper for a few potentially missing GNU programs. + +scriptversion=2016-01-11.22; # UTC + +# Copyright (C) 1996-2017 Free Software Foundation, Inc. +# Originally written by Fran,cois Pinard , 1996. + +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2, or (at your option) +# any later version. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. + +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program that contains a +# configuration script generated by Autoconf, you may include it under +# the same distribution terms that you use for the rest of that program. + +if test $# -eq 0; then + echo 1>&2 "Try '$0 --help' for more information" + exit 1 +fi + +case $1 in + + --is-lightweight) + # Used by our autoconf macros to check whether the available missing + # script is modern enough. + exit 0 + ;; + + --run) + # Back-compat with the calling convention used by older automake. + shift + ;; + + -h|--h|--he|--hel|--help) + echo "\ +$0 [OPTION]... PROGRAM [ARGUMENT]... + +Run 'PROGRAM [ARGUMENT]...', returning a proper advice when this fails due +to PROGRAM being missing or too old. + +Options: + -h, --help display this help and exit + -v, --version output version information and exit + +Supported PROGRAM values: + aclocal autoconf autoheader autom4te automake makeinfo + bison yacc flex lex help2man + +Version suffixes to PROGRAM as well as the prefixes 'gnu-', 'gnu', and +'g' are ignored when checking the name. + +Send bug reports to ." + exit $? + ;; + + -v|--v|--ve|--ver|--vers|--versi|--versio|--version) + echo "missing $scriptversion (GNU Automake)" + exit $? + ;; + + -*) + echo 1>&2 "$0: unknown '$1' option" + echo 1>&2 "Try '$0 --help' for more information" + exit 1 + ;; + +esac + +# Run the given program, remember its exit status. +"$@"; st=$? + +# If it succeeded, we are done. +test $st -eq 0 && exit 0 + +# Also exit now if we it failed (or wasn't found), and '--version' was +# passed; such an option is passed most likely to detect whether the +# program is present and works. +case $2 in --version|--help) exit $st;; esac + +# Exit code 63 means version mismatch. This often happens when the user +# tries to use an ancient version of a tool on a file that requires a +# minimum version. +if test $st -eq 63; then + msg="probably too old" +elif test $st -eq 127; then + # Program was missing. + msg="missing on your system" +else + # Program was found and executed, but failed. Give up. + exit $st +fi + +perl_URL=http://www.perl.org/ +flex_URL=http://flex.sourceforge.net/ +gnu_software_URL=http://www.gnu.org/software + +program_details () +{ + case $1 in + aclocal|automake) + echo "The '$1' program is part of the GNU Automake package:" + echo "<$gnu_software_URL/automake>" + echo "It also requires GNU Autoconf, GNU m4 and Perl in order to run:" + echo "<$gnu_software_URL/autoconf>" + echo "<$gnu_software_URL/m4/>" + echo "<$perl_URL>" + ;; + autoconf|autom4te|autoheader) + echo "The '$1' program is part of the GNU Autoconf package:" + echo "<$gnu_software_URL/autoconf/>" + echo "It also requires GNU m4 and Perl in order to run:" + echo "<$gnu_software_URL/m4/>" + echo "<$perl_URL>" + ;; + esac +} + +give_advice () +{ + # Normalize program name to check for. + normalized_program=`echo "$1" | sed ' + s/^gnu-//; t + s/^gnu//; t + s/^g//; t'` + + printf '%s\n' "'$1' is $msg." + + configure_deps="'configure.ac' or m4 files included by 'configure.ac'" + case $normalized_program in + autoconf*) + echo "You should only need it if you modified 'configure.ac'," + echo "or m4 files included by it." + program_details 'autoconf' + ;; + autoheader*) + echo "You should only need it if you modified 'acconfig.h' or" + echo "$configure_deps." + program_details 'autoheader' + ;; + automake*) + echo "You should only need it if you modified 'Makefile.am' or" + echo "$configure_deps." + program_details 'automake' + ;; + aclocal*) + echo "You should only need it if you modified 'acinclude.m4' or" + echo "$configure_deps." + program_details 'aclocal' + ;; + autom4te*) + echo "You might have modified some maintainer files that require" + echo "the 'autom4te' program to be rebuilt." + program_details 'autom4te' + ;; + bison*|yacc*) + echo "You should only need it if you modified a '.y' file." + echo "You may want to install the GNU Bison package:" + echo "<$gnu_software_URL/bison/>" + ;; + lex*|flex*) + echo "You should only need it if you modified a '.l' file." + echo "You may want to install the Fast Lexical Analyzer package:" + echo "<$flex_URL>" + ;; + help2man*) + echo "You should only need it if you modified a dependency" \ + "of a man page." + echo "You may want to install the GNU Help2man package:" + echo "<$gnu_software_URL/help2man/>" + ;; + makeinfo*) + echo "You should only need it if you modified a '.texi' file, or" + echo "any other file indirectly affecting the aspect of the manual." + echo "You might want to install the Texinfo package:" + echo "<$gnu_software_URL/texinfo/>" + echo "The spurious makeinfo call might also be the consequence of" + echo "using a buggy 'make' (AIX, DU, IRIX), in which case you might" + echo "want to install GNU make:" + echo "<$gnu_software_URL/make/>" + ;; + *) + echo "You might have modified some files without having the proper" + echo "tools for further handling them. Check the 'README' file, it" + echo "often tells you about the needed prerequisites for installing" + echo "this package. You may also peek at any GNU archive site, in" + echo "case some other package contains this missing '$1' program." + ;; + esac +} + +give_advice "$1" | sed -e '1s/^/WARNING: /' \ + -e '2,$s/^/ /' >&2 + +# Propagate the correct exit status (expected to be 127 for a program +# not found, 63 for a program that failed due to version mismatch). +exit $st + +# Local variables: +# eval: (add-hook 'write-file-hooks 'time-stamp) +# time-stamp-start: "scriptversion=" +# time-stamp-format: "%:y-%02m-%02d.%02H" +# time-stamp-time-zone: "UTC0" +# time-stamp-end: "; # UTC" +# End: diff --git a/callback/COPYING b/callback/COPYING new file mode 100644 index 0000000..a3d1815 --- /dev/null +++ b/callback/COPYING @@ -0,0 +1,340 @@ + GNU GENERAL PUBLIC LICENSE + Version 2, June 1991 + + Copyright (C) 1989, 1991 Free Software Foundation, Inc. + 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + + Preamble + + The licenses for most software are designed to take away your +freedom to share and change it. By contrast, the GNU General Public +License is intended to guarantee your freedom to share and change free +software--to make sure the software is free for all its users. This +General Public License applies to most of the Free Software +Foundation's software and to any other program whose authors commit to +using it. (Some other Free Software Foundation software is covered by +the GNU Library General Public License instead.) You can apply it to +your programs, too. + + When we speak of free software, we are referring to freedom, not +price. Our General Public Licenses are designed to make sure that you +have the freedom to distribute copies of free software (and charge for +this service if you wish), that you receive source code or can get it +if you want it, that you can change the software or use pieces of it +in new free programs; and that you know you can do these things. + + To protect your rights, we need to make restrictions that forbid +anyone to deny you these rights or to ask you to surrender the rights. +These restrictions translate to certain responsibilities for you if you +distribute copies of the software, or if you modify it. + + For example, if you distribute copies of such a program, whether +gratis or for a fee, you must give the recipients all the rights that +you have. You must make sure that they, too, receive or can get the +source code. And you must show them these terms so they know their +rights. + + We protect your rights with two steps: (1) copyright the software, and +(2) offer you this license which gives you legal permission to copy, +distribute and/or modify the software. + + Also, for each author's protection and ours, we want to make certain +that everyone understands that there is no warranty for this free +software. If the software is modified by someone else and passed on, we +want its recipients to know that what they have is not the original, so +that any problems introduced by others will not reflect on the original +authors' reputations. + + Finally, any free program is threatened constantly by software +patents. We wish to avoid the danger that redistributors of a free +program will individually obtain patent licenses, in effect making the +program proprietary. To prevent this, we have made it clear that any +patent must be licensed for everyone's free use or not licensed at all. + + The precise terms and conditions for copying, distribution and +modification follow. + + GNU GENERAL PUBLIC LICENSE + TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION + + 0. This License applies to any program or other work which contains +a notice placed by the copyright holder saying it may be distributed +under the terms of this General Public License. The "Program", below, +refers to any such program or work, and a "work based on the Program" +means either the Program or any derivative work under copyright law: +that is to say, a work containing the Program or a portion of it, +either verbatim or with modifications and/or translated into another +language. (Hereinafter, translation is included without limitation in +the term "modification".) Each licensee is addressed as "you". + +Activities other than copying, distribution and modification are not +covered by this License; they are outside its scope. The act of +running the Program is not restricted, and the output from the Program +is covered only if its contents constitute a work based on the +Program (independent of having been made by running the Program). +Whether that is true depends on what the Program does. + + 1. You may copy and distribute verbatim copies of the Program's +source code as you receive it, in any medium, provided that you +conspicuously and appropriately publish on each copy an appropriate +copyright notice and disclaimer of warranty; keep intact all the +notices that refer to this License and to the absence of any warranty; +and give any other recipients of the Program a copy of this License +along with the Program. + +You may charge a fee for the physical act of transferring a copy, and +you may at your option offer warranty protection in exchange for a fee. + + 2. You may modify your copy or copies of the Program or any portion +of it, thus forming a work based on the Program, and copy and +distribute such modifications or work under the terms of Section 1 +above, provided that you also meet all of these conditions: + + a) You must cause the modified files to carry prominent notices + stating that you changed the files and the date of any change. + + b) You must cause any work that you distribute or publish, that in + whole or in part contains or is derived from the Program or any + part thereof, to be licensed as a whole at no charge to all third + parties under the terms of this License. + + c) If the modified program normally reads commands interactively + when run, you must cause it, when started running for such + interactive use in the most ordinary way, to print or display an + announcement including an appropriate copyright notice and a + notice that there is no warranty (or else, saying that you provide + a warranty) and that users may redistribute the program under + these conditions, and telling the user how to view a copy of this + License. (Exception: if the Program itself is interactive but + does not normally print such an announcement, your work based on + the Program is not required to print an announcement.) + +These requirements apply to the modified work as a whole. If +identifiable sections of that work are not derived from the Program, +and can be reasonably considered independent and separate works in +themselves, then this License, and its terms, do not apply to those +sections when you distribute them as separate works. But when you +distribute the same sections as part of a whole which is a work based +on the Program, the distribution of the whole must be on the terms of +this License, whose permissions for other licensees extend to the +entire whole, and thus to each and every part regardless of who wrote it. + +Thus, it is not the intent of this section to claim rights or contest +your rights to work written entirely by you; rather, the intent is to +exercise the right to control the distribution of derivative or +collective works based on the Program. + +In addition, mere aggregation of another work not based on the Program +with the Program (or with a work based on the Program) on a volume of +a storage or distribution medium does not bring the other work under +the scope of this License. + + 3. You may copy and distribute the Program (or a work based on it, +under Section 2) in object code or executable form under the terms of +Sections 1 and 2 above provided that you also do one of the following: + + a) Accompany it with the complete corresponding machine-readable + source code, which must be distributed under the terms of Sections + 1 and 2 above on a medium customarily used for software interchange; or, + + b) Accompany it with a written offer, valid for at least three + years, to give any third party, for a charge no more than your + cost of physically performing source distribution, a complete + machine-readable copy of the corresponding source code, to be + distributed under the terms of Sections 1 and 2 above on a medium + customarily used for software interchange; or, + + c) Accompany it with the information you received as to the offer + to distribute corresponding source code. (This alternative is + allowed only for noncommercial distribution and only if you + received the program in object code or executable form with such + an offer, in accord with Subsection b above.) + +The source code for a work means the preferred form of the work for +making modifications to it. For an executable work, complete source +code means all the source code for all modules it contains, plus any +associated interface definition files, plus the scripts used to +control compilation and installation of the executable. However, as a +special exception, the source code distributed need not include +anything that is normally distributed (in either source or binary +form) with the major components (compiler, kernel, and so on) of the +operating system on which the executable runs, unless that component +itself accompanies the executable. + +If distribution of executable or object code is made by offering +access to copy from a designated place, then offering equivalent +access to copy the source code from the same place counts as +distribution of the source code, even though third parties are not +compelled to copy the source along with the object code. + + 4. You may not copy, modify, sublicense, or distribute the Program +except as expressly provided under this License. Any attempt +otherwise to copy, modify, sublicense or distribute the Program is +void, and will automatically terminate your rights under this License. +However, parties who have received copies, or rights, from you under +this License will not have their licenses terminated so long as such +parties remain in full compliance. + + 5. You are not required to accept this License, since you have not +signed it. However, nothing else grants you permission to modify or +distribute the Program or its derivative works. These actions are +prohibited by law if you do not accept this License. Therefore, by +modifying or distributing the Program (or any work based on the +Program), you indicate your acceptance of this License to do so, and +all its terms and conditions for copying, distributing or modifying +the Program or works based on it. + + 6. Each time you redistribute the Program (or any work based on the +Program), the recipient automatically receives a license from the +original licensor to copy, distribute or modify the Program subject to +these terms and conditions. You may not impose any further +restrictions on the recipients' exercise of the rights granted herein. +You are not responsible for enforcing compliance by third parties to +this License. + + 7. If, as a consequence of a court judgment or allegation of patent +infringement or for any other reason (not limited to patent issues), +conditions are imposed on you (whether by court order, agreement or +otherwise) that contradict the conditions of this License, they do not +excuse you from the conditions of this License. If you cannot +distribute so as to satisfy simultaneously your obligations under this +License and any other pertinent obligations, then as a consequence you +may not distribute the Program at all. For example, if a patent +license would not permit royalty-free redistribution of the Program by +all those who receive copies directly or indirectly through you, then +the only way you could satisfy both it and this License would be to +refrain entirely from distribution of the Program. + +If any portion of this section is held invalid or unenforceable under +any particular circumstance, the balance of the section is intended to +apply and the section as a whole is intended to apply in other +circumstances. + +It is not the purpose of this section to induce you to infringe any +patents or other property right claims or to contest validity of any +such claims; this section has the sole purpose of protecting the +integrity of the free software distribution system, which is +implemented by public license practices. Many people have made +generous contributions to the wide range of software distributed +through that system in reliance on consistent application of that +system; it is up to the author/donor to decide if he or she is willing +to distribute software through any other system and a licensee cannot +impose that choice. + +This section is intended to make thoroughly clear what is believed to +be a consequence of the rest of this License. + + 8. If the distribution and/or use of the Program is restricted in +certain countries either by patents or by copyrighted interfaces, the +original copyright holder who places the Program under this License +may add an explicit geographical distribution limitation excluding +those countries, so that distribution is permitted only in or among +countries not thus excluded. In such case, this License incorporates +the limitation as if written in the body of this License. + + 9. The Free Software Foundation may publish revised and/or new versions +of the General Public License from time to time. Such new versions will +be similar in spirit to the present version, but may differ in detail to +address new problems or concerns. + +Each version is given a distinguishing version number. If the Program +specifies a version number of this License which applies to it and "any +later version", you have the option of following the terms and conditions +either of that version or of any later version published by the Free +Software Foundation. If the Program does not specify a version number of +this License, you may choose any version ever published by the Free Software +Foundation. + + 10. If you wish to incorporate parts of the Program into other free +programs whose distribution conditions are different, write to the author +to ask for permission. For software which is copyrighted by the Free +Software Foundation, write to the Free Software Foundation; we sometimes +make exceptions for this. Our decision will be guided by the two goals +of preserving the free status of all derivatives of our free software and +of promoting the sharing and reuse of software generally. + + NO WARRANTY + + 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY +FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN +OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES +PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED +OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF +MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS +TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE +PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, +REPAIR OR CORRECTION. + + 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING +WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR +REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, +INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING +OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED +TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY +YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER +PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE +POSSIBILITY OF SUCH DAMAGES. + + END OF TERMS AND CONDITIONS + + Appendix: How to Apply These Terms to Your New Programs + + If you develop a new program, and you want it to be of the greatest +possible use to the public, the best way to achieve this is to make it +free software which everyone can redistribute and change under these terms. + + To do so, attach the following notices to the program. It is safest +to attach them to the start of each source file to most effectively +convey the exclusion of warranty; and each file should have at least +the "copyright" line and a pointer to where the full notice is found. + + + Copyright (C) + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software Foundation, + Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. + +Also add information on how to contact you by electronic and paper mail. + +If the program is interactive, make it output a short notice like this +when it starts in an interactive mode: + + Gnomovision version 69, Copyright (C) year name of author + Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. + This is free software, and you are welcome to redistribute it + under certain conditions; type `show c' for details. + +The hypothetical commands `show w' and `show c' should show the appropriate +parts of the General Public License. Of course, the commands you use may +be called something other than `show w' and `show c'; they could even be +mouse-clicks or menu items--whatever suits your program. + +You should also get your employer (if you work as a programmer) or your +school, if any, to sign a "copyright disclaimer" for the program, if +necessary. Here is a sample; alter the names: + + Yoyodyne, Inc., hereby disclaims all copyright interest in the program + `Gnomovision' (which makes passes at compilers) written by James Hacker. + + , 1 April 1989 + Ty Coon, President of Vice + +This General Public License does not permit incorporating your program into +proprietary programs. If your program is a subroutine library, you may +consider it more useful to permit linking proprietary applications with the +library. If this is what you want to do, use the GNU Library General +Public License instead of this License. diff --git a/callback/MIGRATION b/callback/MIGRATION new file mode 100644 index 0000000..6ce7402 --- /dev/null +++ b/callback/MIGRATION @@ -0,0 +1,79 @@ +Migration Guide +=============== + +When switching from vacall+trampoline to callback, you need to make the +following changes to your code: + + vacall+trampoline callback + ----------------- -------- + + -- Include files -- + +#include "vacall/vacall.h" #include "callback/callback.h" +#include "trampoline/trampoline.h" + + -- Variable declarations -- + +static void* trampvar; + + -- Callback declaration -- + +static void static void +mycallback (va_alist args) mycallback (void* data, va_alist args) +{ { + void* data = trampvar; ... + ... + + -- Initialization -- + +vacall_function = &mycallback; + + -- Allocating a callback -- + +void* trampoline = void* trampoline = + alloc_trampoline( alloc_callback(&mycallback,data); + (__TR_function)&vacall, + &trampvar, + data); + + -- Testing for a callback -- + +if if +(is_trampoline(address) (is_callback(address) + && (trampoline_address(address) && (callback_address(address) + == (__TR_function)&vacall) == &mycallback) + && (trampoline_variable(address) ) + == &trampvar) +) + +void* data = trampoline_data(address); void* data = callback_data(address); + + -- Deallocating a callback -- + +free_trampoline(address); free_callback(address); + + -- Libraries -- + +libvacall.a libtrampoline.a libcallback.a + + +================================================================================ +Copyright (C) 1995-1998 Bruno Haible + +This manual is free documentation. It is dually licensed under the +GNU FDL and the GNU GPL. This means that you can redistribute this +manual under either of these two licenses, at your choice. + +This manual is covered by the GNU FDL. Permission is granted to copy, +distribute and/or modify this document under the terms of the +GNU Free Documentation License (FDL), either version 1.2 of the +License, or (at your option) any later version published by the +Free Software Foundation (FSF); with no Invariant Sections, with no +Front-Cover Text, and with no Back-Cover Texts. +A copy of the license is at . + +This manual is covered by the GNU GPL. You can redistribute it and/or +modify it under the terms of the GNU General Public License (GPL), either +version 2 of the License, or (at your option) any later version published +by the Free Software Foundation (FSF). +A copy of the license is at . diff --git a/callback/Makefile.in b/callback/Makefile.in new file mode 100644 index 0000000..06b8203 --- /dev/null +++ b/callback/Makefile.in @@ -0,0 +1,236 @@ +# Makefile for callback + +#### Start of system configuration section. #### + +HOST = @host@ +CPU = @HOST_CPU_C_ABI@ + +# Directories used by "make": +srcdir = @srcdir@ + +# Directories used by "make install": +prefix = @prefix@ +local_prefix = /usr/local +exec_prefix = @exec_prefix@ +libdir = @libdir@ +includedir = @includedir@ +mandir = @mandir@ +datadir = @datadir@ +datarootdir = @datarootdir@ +htmldir = $(datadir)/html + +# Programs used by "make": +# C compiler +CC = @CC@ +CFLAGS = @CFLAGS@ +CPP = @CPP@ +# C++ compiler +CXX = @CXX@ +CXXFLAGS = @CXXFLAGS@ +# Both C and C++ compiler +CPPFLAGS = @CPPFLAGS@ +INCLUDES = -I. -I$(srcdir) -I.. -I$(srcdir)/.. -I$(srcdir)/vacall_r +LDFLAGS = @LDFLAGS@ +LIBTOOL = @LIBTOOL@ +LIBTOOL_COMPILE = $(LIBTOOL) --mode=compile +LIBTOOL_LINK = $(LIBTOOL) --mode=link +LIBTOOL_INSTALL = $(LIBTOOL) --mode=install +LIBTOOL_UNINSTALL = $(LIBTOOL) --mode=uninstall +AR = @AR@ +AR_FLAGS = rc +RANLIB = @RANLIB@ +RM = rm -f +@SET_MAKE@ + +# Programs used by "make install": +INSTALL = @INSTALL@ +INSTALL_PROGRAM = @INSTALL_PROGRAM@ +INSTALL_DATA = @INSTALL_DATA@ + +# Libtool options for linking with the thread library. +LTLIBTHREAD = @LTLIBTHREAD@ + +#### End of system configuration section. #### + +SHELL = /bin/sh + +# Needed by $(LIBTOOL). +top_builddir = .. + +# Limit the set of exported symbols, on those platforms where libtool supports it. +# Currently this excludes the symbols from gnulib modules. +LIBCALLBACK_EXPORTED_SYMBOLS_REGEX = '^callback_|_callback$$|^trampoline_r_data0$$' + +# Before making a release, change this according to the libtool documentation, +# section "Library interface versions". +LIBCALLBACK_VERSION_INFO = 1:2:0 + +all : all-subdirs libcallback.la $(srcdir)/callback.3 $(srcdir)/callback.html + +all-subdirs : force + cd @callback_subdir@ && $(MAKE) all + +callback-libapi.lo : $(srcdir)/callback-libapi.c $(srcdir)/callback.h $(srcdir)/trampoline_r/trampoline_r.h ../config.h + $(LIBTOOL_COMPILE) $(CC) $(INCLUDES) -I$(srcdir)/trampoline_r $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/callback-libapi.c + +callback-compat.lo : $(srcdir)/callback-compat.c ../config.h + $(LIBTOOL_COMPILE) $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/callback-compat.c + +libcallback.la : vacall_r/libvacall.la trampoline_r/libtrampoline.la callback-libapi.lo callback-compat.lo + $(LIBTOOL_LINK) $(CC) -o libcallback.la -rpath $(libdir) -no-undefined -export-symbols-regex $(LIBCALLBACK_EXPORTED_SYMBOLS_REGEX) -version-info $(LIBCALLBACK_VERSION_INFO) vacall_r/vacall.lo vacall_r/vacall-libapi.lo vacall_r/vacall-structcpy.lo trampoline_r/*.lo callback-libapi.lo callback-compat.lo ../gnulib-lib/libgnu.la $(LDFLAGS) $(LTLIBTHREAD) + +# Installs the library and include files only. Typically called with only +# $(libdir) and $(includedir) - don't use $(prefix) and $(exec_prefix) here. +install-lib : all force + cd vacall_r && $(MAKE) install-lib libdir='$(libdir)' includedir='$(includedir)' + mkdir -p $(libdir) + $(LIBTOOL_INSTALL) $(INSTALL_DATA) libcallback.la $(libdir)/libcallback.la + mkdir -p $(includedir) + $(INSTALL_DATA) $(srcdir)/callback.h $(includedir)/callback.h + +install : force + cd vacall_r && $(MAKE) install + mkdir -p $(DESTDIR)$(prefix) + mkdir -p $(DESTDIR)$(exec_prefix) + mkdir -p $(DESTDIR)$(libdir) + $(LIBTOOL_INSTALL) $(INSTALL_DATA) libcallback.la $(DESTDIR)$(libdir)/libcallback.la + mkdir -p $(DESTDIR)$(includedir) + $(INSTALL_DATA) $(srcdir)/callback.h $(DESTDIR)$(includedir)/callback.h + mkdir -p $(DESTDIR)$(mandir) + mkdir -p $(DESTDIR)$(mandir)/man3 + $(INSTALL_DATA) $(srcdir)/callback.3 $(DESTDIR)$(mandir)/man3/callback.3 + mkdir -p $(DESTDIR)$(datadir) + mkdir -p $(DESTDIR)$(htmldir) + $(INSTALL_DATA) $(srcdir)/callback.html $(DESTDIR)$(htmldir)/callback.html + +installdirs : force + cd vacall_r && $(MAKE) installdirs + mkdir -p $(DESTDIR)$(prefix) + mkdir -p $(DESTDIR)$(exec_prefix) + mkdir -p $(DESTDIR)$(libdir) + mkdir -p $(DESTDIR)$(includedir) + mkdir -p $(DESTDIR)$(mandir) + mkdir -p $(DESTDIR)$(mandir)/man3 + mkdir -p $(DESTDIR)$(datadir) + mkdir -p $(DESTDIR)$(htmldir) + +uninstall : force + cd vacall_r && $(MAKE) uninstall + $(LIBTOOL_UNINSTALL) $(RM) $(DESTDIR)$(libdir)/libcallback.la + $(RM) $(DESTDIR)$(includedir)/callback.h + $(RM) $(DESTDIR)$(mandir)/man3/callback.3 + $(RM) $(DESTDIR)$(htmldir)/callback.html + +test1.@OBJEXT@ : $(srcdir)/test1.c $(srcdir)/callback.h $(srcdir)/vacall_r/vacall_r.h + $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/test1.c + +test1 : test1.@OBJEXT@ libcallback.la + $(LIBTOOL_LINK) $(CC) $(CFLAGS) @GCC_X_NONE@ test1.@OBJEXT@ libcallback.la $(LDFLAGS) -o test1 + +minitests.@OBJEXT@ : $(srcdir)/minitests.c $(srcdir)/tests.c $(srcdir)/callback.h $(srcdir)/vacall_r/vacall_r.h + $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/minitests.c + +minitests.s : $(srcdir)/minitests.c $(srcdir)/tests.c $(srcdir)/callback.h $(srcdir)/vacall_r/vacall_r.h + $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -S $(srcdir)/minitests.c + +minitests : minitests.@OBJEXT@ libcallback.la + $(LIBTOOL_LINK) $(CC) $(CFLAGS) @GCC_X_NONE@ minitests.@OBJEXT@ libcallback.la $(LDFLAGS) -o minitests + +minitests-c++.@OBJEXT@ : $(srcdir)/minitests-c++.cc $(srcdir)/minitests.c $(srcdir)/tests.c $(srcdir)/callback.h $(srcdir)/vacall_r/vacall_r.h + $(CXX) $(INCLUDES) $(CPPFLAGS) $(CXXFLAGS) -c $(srcdir)/minitests-c++.cc + +minitests-c++ : minitests-c++.@OBJEXT@ libcallback.la + $(LIBTOOL_LINK) $(CXX) $(CXXFLAGS) @GCC_X_NONE@ minitests-c++.@OBJEXT@ libcallback.la $(LDFLAGS) -o minitests-c++ + +check-subdirs : force + cd @callback_subdir@ && $(MAKE) check + +check : all check-subdirs test1 minitests + ./test1 + ./minitests > minitests.out + LC_ALL=C uniq -u < minitests.out > minitests.output.$(HOST) + test '!' -s minitests.output.$(HOST) +@IF_CXX@ ./minitests-c++ > minitests-c++.out +@IF_CXX@ LC_ALL=C uniq -u < minitests-c++.out > minitests-c++.output.$(HOST) +@IF_CXX@ test '!' -s minitests-c++.output.$(HOST) +@IF_CXX@check : minitests-c++ + +tests.@OBJEXT@ : $(srcdir)/tests.c $(srcdir)/callback.h $(srcdir)/vacall_r/vacall_r.h + $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/tests.c + +tests.s : $(srcdir)/tests.c $(srcdir)/callback.h $(srcdir)/vacall_r/vacall_r.h + $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -S $(srcdir)/tests.c + +tests : tests.@OBJEXT@ libcallback.la + $(LIBTOOL_LINK) $(CC) $(CFLAGS) @GCC_X_NONE@ tests.@OBJEXT@ libcallback.la $(LDFLAGS) -o tests + +extracheck-subdirs : force + cd @callback_subdir@ && $(MAKE) extracheck + +extracheck : all extracheck-subdirs tests + ./tests > tests.out + LC_ALL=C uniq -u < tests.out > tests.output.$(HOST) + test '!' -s tests.output.$(HOST) + +MOSTLYCLEANDIRS = .libs _libs +MOSTLYCLEANFILES = \ + *.@OBJEXT@ *.lo core \ + libcallback.* \ + test1.@OBJEXT@ test1 \ + minitests.@OBJEXT@ minitests.s minitests minitests.out \ + minitests-c++.@OBJEXT@ minitests-c++ minitests-c++.out \ + tests.@OBJEXT@ tests.s tests tests.out + +mostlyclean : force + cd @callback_subdir@ && $(MAKE) mostlyclean + $(RM) -r $(MOSTLYCLEANDIRS) + $(RM) $(MOSTLYCLEANFILES) + +clean : force + cd @callback_subdir@ && $(MAKE) clean + $(RM) -r $(MOSTLYCLEANDIRS) + $(RM) $(MOSTLYCLEANFILES) + +DISTCLEANFILES = \ + Makefile \ + minitests.output.* minitests-c++.output.* tests.output.* + +distclean : force + cd @callback_subdir@ && if test -f Makefile; then $(MAKE) distclean; fi + $(RM) -r $(MOSTLYCLEANDIRS) + $(RM) $(MOSTLYCLEANFILES) + $(RM) $(DISTCLEANFILES) + +maintainer-clean : force + cd @callback_subdir@ && if test -f Makefile; then $(MAKE) maintainer-clean; fi + $(RM) -r $(MOSTLYCLEANDIRS) + $(RM) $(MOSTLYCLEANFILES) + $(RM) $(DISTCLEANFILES) + + +# List of source files (committed in version control). +SOURCE_FILES = \ + COPYING MIGRATION PLATFORMS README callback.3 callback.html elf-hack.txt \ + Makefile.maint \ + Makefile.in \ + callback.h \ + callback-libapi.c \ + callback-compat.c \ + test1.c \ + minitests.c minitests-c++.cc \ + tests.c +# List of distributed files generated by Makefile.maint. +GENERATED_FILES = \ + callback.man +# List of distributed files. +DISTFILES = $(SOURCE_FILES) $(GENERATED_FILES) + +distdir : $(DISTFILES) + for file in $(DISTFILES); do \ + if test -f $$file; then dir='.'; else dir='$(srcdir)'; fi; \ + cp -p "$$dir/$$file" '$(distdir)'/$$file || exit 1; \ + done + test -d '$(distdir)'/@callback_subdir@ || mkdir '$(distdir)'/@callback_subdir@; cd @callback_subdir@ && $(MAKE) distdir distdir='$(distdir)'/@callback_subdir@ + + +force : diff --git a/callback/Makefile.maint b/callback/Makefile.maint new file mode 100644 index 0000000..c60fbae --- /dev/null +++ b/callback/Makefile.maint @@ -0,0 +1,29 @@ +# maintainer -*-Makefile-*- + +SHELL = /bin/sh +MAKE = make + +# ==================== Easily regeneratable files ==================== + +ROFF_MAN = groff -Tutf8 -mandoc + +all : callback.man \ + vacall_r/vacall-i386-msvc.c \ + trampoline_r/trampoline_r.man + +callback.man : callback.3 + $(ROFF_MAN) callback.3 > callback.man + +vacall_r/vacall-i386-msvc.c : vacall_r/vacall-i386-macro.S + cd vacall_r && $(MAKE) -f Makefile.maint vacall-i386-msvc.c + +trampoline_r/trampoline_r.man : trampoline_r/trampoline_r.3 + cd trampoline_r && $(MAKE) -f Makefile.maint trampoline_r.man + +totally-clean : force + $(RM) callback.man + cd vacall_r && $(MAKE) -f Makefile.maint totally-clean + cd trampoline_r && $(MAKE) -f Makefile.maint totally-clean + + +force : diff --git a/callback/PLATFORMS b/callback/PLATFORMS new file mode 100644 index 0000000..ab8b5e6 --- /dev/null +++ b/callback/PLATFORMS @@ -0,0 +1,43 @@ +Supported CPUs: (Put the GNU config.guess values here.) + i386 i486-pc-linux (gcc), i686-unknown-gnu0.9 (gcc), + i386-pc-solaris2.6 (gcc), i386-pc-solaris2.10 (gcc, cc), + i386-w64-mingw32 (gcc, MSVC 14), + i586-unknown-freebsd11.0 (cc), i386-unknown-dragonfly3.8 (gcc), + i386-unknown-netbsdelf7.0 (gcc), i386-unknown-openbsd6.0 (gcc), + i586-pc-haiku (gcc-x86), i386-pc-minix (clang) + m68k m68k-unknown-linux (gcc) + mips mips-sgi-irix5.3 (gcc), mips-sgi-irix6.4 (cc -32, -n32, -64), + mips-sgi-irix6.5 (cc -32, -n32, gcc -mabi=n32), + mips-unknown-linux (gcc -mabi=32), + mips64-unknown-linux (gcc -mabi=n32, gcc -mabi=64) + sparc sparc-sun-sunos4.1.3_U1 (gcc), sparc-sun-solaris2.4 (gcc), + sparc-sun-solaris2.10 (gcc, cc), + sparc64-sun-solaris2.10 (gcc -m64, cc -xarch=generic64), + sparc-unknown-linux (gcc), sparc64-unknown-linux (gcc), + sparc-unknown-netbsdelf7.1 (gcc), + sparc64-unknown-netbsd8.0 (gcc) + alpha alpha-dec-osf3.2 (gcc), alpha-dec-osf4.0 (gcc, cc), + alphaev67-unknown-linux (gcc) + hppa hppa1.1-hp-hpux9.05 (cc), hppa1.1-hp-hpux10.01 (cc), + hppa2.0-hp-hpux10.20 (cc +DA1.1), hppa2.0w-hp-hpux11.31 (cc), + hppa-unknown-linux (gcc) + hppa64 hppa64-hp-hpux11.31 (cc +DD64) + arm armv5tejl-unknown-linux (gcc), armv6l-unknown-linux (gcc), + armv7l-unknown-linux (gcc) + arm64 aarch64-unknown-linux (gcc) + powerpc powerpc-ibm-aix7.1.3.0 (xlc, gcc), powerpc-unknown-linux (gcc), + powerpc-apple-darwin6.8 (gcc), powerpc-apple-darwin9.8.0 (gcc) + powerpc64 powerpc-ibm-aix7.1.3.0 (gcc -maix64, xlc -q64; AR="ar -X 64"), + powerpc64-unknown-linux (gcc -m64), + powerpc64le-unknown-linux (gcc) + ia64 ia64-unknown-linux (gcc) + x86_64 x86_64-suse-linux (gcc), x86_64-unknown-linux (gcc -mx32), + x86_64-pc-solaris2.10 (gcc -m64, cc -xarch=generic64), + x86_64-pc-cygwin (gcc), x86_64-w64-mingw32 (gcc, MSVC 14), + x86_64-unknown-freebsd11.0 (cc), x86_64-unknown-netbsd7.0 (gcc), + x86_64-unknown-openbsd6.0 (gcc) + s390 s390x-ibm-linux (gcc -m31) + s390x s390x-ibm-linux (gcc) + riscv32 riscv32-unknown-linux (gcc -mabi=ilp32d) + riscv64 riscv64-unknown-linux (gcc -mabi=lp64d) + diff --git a/callback/README b/callback/README new file mode 100644 index 0000000..3b655d9 --- /dev/null +++ b/callback/README @@ -0,0 +1,66 @@ +callback - closures with variable arguments as first-class C functions + +This library implements closures with variable arguments and variable return +values as first-class C functions. A closure consists of a regular C function +and a piece of data which gets passed to the C function when the closure is +called. + +This library is especially suited to the implementation of call-back functions +in embedded interpreters. + + +Installation instructions: + + Configure the parent directory. Then: + cd callback + make + make check + make install + + +Files in this package: + + Documentation: + + README this text + COPYING free software license + PLATFORMS list of supported platforms + MIGRATION migration guide from vacall+trampoline + callback.3 manual page in Unix man format + callback.man manual page + callback.html manual page in HTML format + + Source: + + callback.h include file + tests.c test program + vacall_r/* a reentrant version of the vacall package + trampoline_r/* a reentrant version of the trampoline package + + Building: + + Makefile.in Makefile master + + Porting: + + Makefile.devel developer's Makefile + call-used-registers.txt table of call-used registers on different CPUs + + +Copyright notice: + +Copyright 1995-2017 Bruno Haible + +This program is free software: you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2 of the License, or +(at your option) any later version. + +This program is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with this program. If not, see . + diff --git a/callback/callback-compat.c b/callback/callback-compat.c new file mode 100644 index 0000000..fd3fc64 --- /dev/null +++ b/callback/callback-compat.c @@ -0,0 +1,24 @@ +/* + * Copyright 2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "config.h" + +#include + +/* A dummy symbol, so that GNU clisp's autoconfiguration recognizes this + library. */ +void trampoline_r_data0 (void) { abort(); } diff --git a/callback/callback-libapi.c b/callback/callback-libapi.c new file mode 100644 index 0000000..f1384c5 --- /dev/null +++ b/callback/callback-libapi.c @@ -0,0 +1,53 @@ +/* + * Copyright 2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "config.h" + +#define __TR_function obsolete__TR_function +#include "callback.h" +#undef __TR_function +#include "trampoline_r.h" + +/* This is the implementation of the library API. + The symbols that the linker sees are all prefixed with 'callback_', + to avoid potential collisions with other libraries. */ + +callback_t alloc_callback (callback_function_t address, void* data) +{ + return alloc_trampoline_r((__TR_function)callback_get_receiver(),(void*)address,data); +} + +void free_callback (callback_t callback) +{ + free_trampoline_r (callback); +} + +int is_callback (void* callback) +{ + return is_trampoline_r(callback) + && trampoline_r_address((__TR_function)callback) == (__TR_function)callback_get_receiver(); +} + +callback_function_t callback_address (callback_t callback) +{ + return (callback_function_t)trampoline_r_data0(callback); +} + +void* callback_data (callback_t callback) +{ + return trampoline_r_data1(callback); +} diff --git a/callback/callback.3 b/callback/callback.3 new file mode 100644 index 0000000..5214077 --- /dev/null +++ b/callback/callback.3 @@ -0,0 +1,273 @@ +.\" Copyright (C) 1995-2017 Bruno Haible +.\" +.\" This manual is free documentation. It is dually licensed under the +.\" GNU FDL and the GNU GPL. This means that you can redistribute this +.\" manual under either of these two licenses, at your choice. +.\" +.\" This manual is covered by the GNU FDL. Permission is granted to copy, +.\" distribute and/or modify this document under the terms of the +.\" GNU Free Documentation License (FDL), either version 1.2 of the +.\" License, or (at your option) any later version published by the +.\" Free Software Foundation (FSF); with no Invariant Sections, with no +.\" Front-Cover Text, and with no Back-Cover Texts. +.\" A copy of the license is at . +.\" +.\" This manual is covered by the GNU GPL. You can redistribute it and/or +.\" modify it under the terms of the GNU General Public License (GPL), either +.\" version 2 of the License, or (at your option) any later version published +.\" by the Free Software Foundation (FSF). +.\" A copy of the license is at . +.\" +.TH CALLBACK 3 "1 January 2017" +.SH NAME +callback \- closures with variable arguments as first-class C functions +.SH SYNOPSIS +.B #include +.LP +.nf +.BI "void " function " (void* " data ", va_alist " alist ")" +.BI "{" +.BI " va_start_" type "(" alist "[, " return_type "]);" +.BI " " arg " = va_arg_" type "(" alist "[, " arg_type "]);" +.BI " va_return_" type "(" alist "[[, " return_type "], " return_value "]);" +.BI "}" +.fi +.LP +.IB callback " = alloc_callback(" "&function" ", " data ");" +.LP +.BI "free_callback(" callback ");" +.LP +.nf +.BI "is_callback(" callback ")" +.BI "callback_address(" callback ")" +.BI "callback_data(" callback ")" +.fi +.SH DESCRIPTION +.LP +These functions implement +.I closures +with variable arguments as first-class C functions. + +Closures as +.I first-class C functions +means that they fit into a function pointer and can be called exactly +like any other C function. Moreover, they can be called with variable +arguments and can return variable return values. + +.IB callback " = alloc_callback(" "&function" ", " data ")" +allocates a callback. When +.I callback +gets called, it arranges to call +.IR function "," +passing +.I data +as first argument and, as second argument, the entire sequence of arguments +passed to +.IR callback . + +Function calling conventions differ considerably on different machines, +therefore the arguments are accessed and the result value is stored +through the same macros as used by the +.I vacall +package, see below. + +The callbacks are functions with indefinite extent: +.I callback +is only deallocated when +.BI free_callback( callback ) +is called. + +.BI "is_callback(" callback ")" +checks whether the C function +.I callback +was produced by a call to +.IR alloc_callback . +If this returns true, the arguments given to +.I alloc_callback +can be retrieved: +.RS 4 +.LP +.BI "callback_address(" callback ")" +returns +.IR "&function" , +.LP +.BI "callback_data(" callback ")" +returns +.IR data . +.RE + +.SH VACALL MACROS + +Within +.IR function , +the following macros can be used to walk through the argument list and +specify a return value: +.RS 0 +.TP +.BI "va_start_" type "(" alist "[, " return_type "]);" +starts the walk through the argument list and specifies the return type. +.TP +.IB arg " = va_arg_" type "(" alist "[, " arg_type "]);" +fetches the next argument from the argument list. +.TP +.BI "va_return_" type "(" alist "[[, " return_type "], " return_value "]);" +ends the walk through the argument list and specifies the return value. +.RE + +The +.I type +in +.BI va_start_ type +and +.BI va_return_ type +shall be one of +.BR void ", " int ", " uint ", " long ", " ulong ", " longlong ", " ulonglong ", " double ", " struct ", " ptr +or (for ANSI C calling conventions only) +.BR char ", " schar ", " uchar ", " short ", " ushort ", " float , +depending on the class of +.IR return_type . + +The +.I type +specifiers in +.BI va_start_ type +and +.BI va_return_ type +must be the same. +The +.I return_type +specifiers passed to +.BI va_start_ type +and +.BI va_return_ type +must be the same. + +The +.I type +in +.BI va_arg_ type +shall be one of +.BR int ", " uint ", " long ", " ulong ", " longlong ", " ulonglong ", " double ", " struct ", " ptr +or (for ANSI C calling conventions only) +.BR char ", " schar ", " uchar ", " short ", " ushort ", " float , +depending on the class of +.IR arg_type . + +In +.BI "va_start_struct(" alist ", " return_type ", " splittable ); +the +.I splittable +flag specifies whether the struct +.I return_type +can be returned in registers such that every struct field fits entirely in +a single register. This needs to be specified for structs of size +2*sizeof(long). For structs of size <= sizeof(long), +.I splittable +is ignored and assumed to be 1. For structs of size > 2*sizeof(long), +.I splittable +is ignored and assumed to be 0. There are some handy macros for this: +.nf +.BI "va_word_splittable_1 (" type1 ) +.BI "va_word_splittable_2 (" type1 ", " type2 ) +.BI "va_word_splittable_3 (" type1 ", " type2 ", " type3 ) +.BI "va_word_splittable_4 (" type1 ", " type2 ", " type3 ", " type4 ) +.fi +For a struct with three slots +.nf +.BI "struct { " "type1 id1" "; " "type2 id2" "; " "type3 id3" "; }" +.fi +you can specify +.I splittable +as +.BI "va_word_splittable_3 (" type1 ", " type2 ", " type3 ) +.RB . + +.SH NOTES + +Functions which want to emulate Kernighan & Ritchie style functions (i.e., +in ANSI C, functions without a typed argument list) cannot use the +.I type +values +.BR char ", " schar ", " uchar ", " short ", " ushort ", " float . +As prescribed by the default K&R C expression promotions, they have +to use +.B int +instead of +.BR char ", " schar ", " uchar ", " short ", " ushort +and +.B double +instead of +.BR float . + +The macros +.BR va_start_longlong(\|) , +.BR va_start_ulonglong(\|) , +.BR va_return_longlong(\|) , +.BR va_return_ulonglong(\|) , +.B va_arg_longlong(\|) +and +.B va_arg_ulonglong(\|) +work only if the C compiler has a working +.B long long +64-bit integer type. + +The struct types used in +.B va_start_struct(\|) +and +.B va_struct(\|) +must only contain (signed or unsigned) int, long, long long or pointer fields. +Struct types containing (signed or unsigned) char, short, float, double or +other structs are not supported. + +.SH SEE ALSO +.BR vacall (3), +.BR trampoline (3). + +.SH BUGS + +The current implementations have been tested on a selection of common +cases but there are probably still many bugs. + +There are typically built-in limits on the size of the argument-list, +which may also include the size of any structure arguments. + +The decision whether a struct is to be returned in registers or in memory +considers only the struct's size and alignment. This is inaccurate: for +example, gcc on m68k-next returns +.B "struct { char a,b,c; }" +in registers and +.B "struct { char a[3]; }" +in memory, although both types have the same size and the same alignment. + +The argument list can only be walked once. + +.SH NON-BUGS + +All information is passed in CPU registers and the stack. The +.B callback +package is therefore multithread-safe. + +.SH PORTING + +Porting +.B callback +consists in first porting the +.B vacall +and +.B trampoline +packages, then choosing a CPU register for passing the closure from +.B trampoline +to +.BR vacall . +This register is normally the register designated by STATIC_CHAIN_REGNUM +in the gcc source, file +.RI gcc-2.7.2/config/ cpu / cpu .h. + +.SH AUTHOR + +Bruno Haible + +.SH ACKNOWLEDGEMENTS + +Many ideas were cribbed from the gcc source. + diff --git a/callback/callback.h b/callback/callback.h new file mode 100644 index 0000000..667b067 --- /dev/null +++ b/callback/callback.h @@ -0,0 +1,90 @@ +/* + * Copyright 1997-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#ifndef _CALLBACK_H +#define _CALLBACK_H + +#include "ffcall-version.h" + +/* Defines the type 'va_alist' and the va_* macros. */ +#include "vacall_r.h" + + +#ifdef __cplusplus +extern "C" { +#endif + + +/* This type denotes an opaque function pointer. + You need to cast it to an actual function pointer type (with correct return + type) before you can actually invoke it. */ +#ifdef __cplusplus +typedef int (*callback_t) (...); +#else +typedef int (*callback_t) (); +#endif +/* A deprecated alias of this type. */ +typedef callback_t __TR_function; + +/* This type denotes a callback implementation. + DATA is the pointer that was passed to alloc_callback(). + ALIST allows to iterate over the argument list. */ +typedef void (*callback_function_t) (void* /* DATA */, va_alist /* ALIST */); + + +/* Allocates a callback. + It returns a function pointer whose signature depends on the behaviour + of ADDRESS. + When invoked, it passes DATA as first argument to ADDRESS and the actual + arguments as a va_alist to ADDRESS. It returns the value passed to a + va_return_* macro by ADDRESS. + The callback has indefinite extent. It can be accessed until a call to + free_callback(). + */ +extern callback_t alloc_callback (callback_function_t /* ADDRESS */, void* /* DATA */); + +/* Frees the memory used by a callback. + CALLBACK must be the result of an alloc_callback() invocation. + After this call, CALLBACK must not be used any more - neither invoked, + not used as an argument to other functions. + */ +extern void free_callback (callback_t /* CALLBACK */); + + +/* Tests whether a given pointer is a function pointer returned by + alloc_callback(). Returns 1 for yes, 0 for no. + If yes, it can be cast to callback_t. + */ +extern int is_callback (void* /* CALLBACK */); + +/* Returns the ADDRESS argument passed to the alloc_callback() invocation. + CALLBACK must be the result of an alloc_callback() invocation. + */ +extern callback_function_t callback_address (callback_t /* CALLBACK */); + +/* Returns the DATA argument passed to the alloc_callback() invocation. + CALLBACK must be the result of an alloc_callback() invocation. + */ +extern void* callback_data (callback_t /* CALLBACK */); + + +#ifdef __cplusplus +} +#endif + + +#endif /* _CALLBACK_H */ diff --git a/callback/callback.html b/callback/callback.html new file mode 100644 index 0000000..bc0c675 --- /dev/null +++ b/callback/callback.html @@ -0,0 +1,290 @@ + + + + CALLBACK manual page + + +

CALLBACK manual page

+ + +

+ +

+ + +

Name

+ + +callback - closures with variable arguments as first-class +C functions + + +

Synopsis

+ + +
+#include <callback.h>
+
+

+

+void function (void* data, va_alist alist)
+{
+  va_start_type(alist[, return_type]);
+  arg = va_arg_type(alist[, arg_type]);
+  va_return_type(alist[[, return_type], return_value]);
+}
+
+

+

+callback = alloc_callback(&function, data);
+
+

+

+free_callback(callback);
+
+

+

+is_callback(callback)
+callback_address(callback)
+callback_data(callback)
+
+ + +

Description

+ + +These functions implement closures with variable arguments +as first-class C functions. +

+Closures as first-class C functions means that they fit +into a function pointer and can be called exactly like any +other C function. Moreover, they can be called with variable +arguments and can return variable return values. +

+callback = alloc_callback(&function, data) +allocates a +callback. When callback gets called, it arranges to call +function, passing data as first argument and, as second +argument, the entire sequence of arguments passed to callback. +

+Function calling conventions differ considerably on different +machines, therefore the arguments are accessed and +the result value is stored through the same macros as used +by the vacall package, see below. +

+The callbacks are functions with indefinite extent: callback +is only deallocated when free_callback(callback) is +called. +

+is_callback(callback) +checks whether the C function callback +was produced by a call to alloc_callback. If this +returns true, the arguments given to alloc_callback can be +retrieved: +

    +
  • callback_address(callback) returns &function, +
  • callback_data(callback) returns data. +
+ + +

VACALL macros

+ + +Within function, the following macros can be used to walk +through the argument list and specify a return value: +

+

+va_start_type(alist[, return_type]);
+
+starts the walk through the argument list and specifies the return type. +

+

+arg = va_arg_type(alist[, arg_type]);
+
+fetches the next argument from the argument list. +

+

+va_return_type(alist[[, return_type], return_value]);
+
+ends the walk through the argument list and specifies the return value. +

+The type in va_start_type + and va_return_type shall be one +of void, int, uint, long, +ulong, longlong, ulonglong, +double, struct, ptr +or +(for ANSI C calling conventions only) +char, schar, uchar, +short, ushort, float, +depending on the class of return_type. +

+The type specifiers in +va_start_type and va_return_type + must be the same. +The return_type specifiers passed to +va_start_type and va_return_type + must be the same. +

+The type in va_arg_type +shall be one of int, uint, long, +ulong, longlong, ulonglong, +double, struct, ptr +or (for ANSI C calling conventions only) +char, schar, uchar, +short, ushort, float, +depending on the class of arg_type. +

+In va_start_struct(alist, return_type, splittable); the +splittable flag specifies whether the struct return_type can +be returned in registers such that every struct field fits +entirely in a single register. This needs to be specified +for structs of size 2*sizeof(long). For structs of size +<= sizeof(long), splittable is ignored and assumed to be 1. +For structs of size > 2*sizeof(long), splittable is +ignored and assumed to be 0. There are some handy macros +for this: +

+va_word_splittable_1 (type1)
+va_word_splittable_2 (type1, type2)
+va_word_splittable_3 (type1, type2, type3)
+va_word_splittable_4 (type1, type2, type3, type4)
+
+For a struct with three slots +
+struct { type1 id1; type2 id2; type3 id3; }
+
+you can specify splittable as +va_word_splittable_3 (type1, type2, type3). + + +

Notes

+ + +
    +
  1. Functions which want to emulate Kernighan & Ritchie style +functions (i.e., in ANSI C, functions without a typed +argument list) cannot use the type values +char, schar, uchar, +short, ushort, float. +As prescribed by the default +K&R C expression promotions, they have to use int instead +of char, schar, uchar, +short, ushort and double instead of +float. +

    +

  2. The macros va_start_longlong(), +va_start_ulonglong(), va_return_longlong(), +va_return_ulonglong(), va_arg_longlong() and +va_arg_ulonglong() work only if the C compiler has a working +long long 64-bit integer type. +

    +

  3. The struct types used in va_start_struct() and +va_struct() must only contain (signed or unsigned) int, +long, long long or pointer fields. Struct types containing +(signed or unsigned) char, short, float, double or other +structs are not supported. +

    +

+ + +

See also

+ + +vacall(3), trampoline(3). + + +

Bugs

+ + +The current implementations have been tested on a selection +of common cases but there are probably still many +bugs. +

+There are typically built-in limits on the size of the +argument-list, which may also include the size of any +structure arguments. +

+The decision whether a struct is to be returned in registers or in memory +considers only the struct's size and alignment. This is inaccurate: for +example, gcc on m68k-next returns +struct { char a,b,c; } +in registers and +struct { char a[3]; } +in memory, although both types have the same size and the same alignment. +

+The argument list can only be walked once. + + +

Non-Bugs

+ + +All information is passed in CPU registers and the stack. +The callback package is therefore multithread-safe. + + +

Porting

+ + +Porting callback consists in first porting the vacall and +trampoline packages, then choosing a CPU register for +passing the closure from trampoline to vacall. This +register is normally the register designated by +STATIC_CHAIN_REGNUM in the gcc source, file +gcc-2.7.2/config/cpu/cpu.h. + + +

Author

+ + +Bruno Haible <bruno@clisp.org> + + +

Acknowledgements

+ + +Many ideas were cribbed from the gcc source. +

+ +

+ +
CALLBACK manual page
+Bruno Haible <bruno@clisp.org> +
+

+Last modified: 1 January 2017. + + + diff --git a/callback/callback.man b/callback/callback.man new file mode 100644 index 0000000..8f3a81d --- /dev/null +++ b/callback/callback.man @@ -0,0 +1,164 @@ +CALLBACK(3) Library Functions Manual CALLBACK(3) + + + +NAME + callback - closures with variable arguments as first-class C functions + +SYNOPSIS + #include  + + void function (void* data, va_alist alist) + { + va_start_type(alist[, return_type]); + arg = va_arg_type(alist[, arg_type]); + va_return_type(alist[[, return_type], return_value]); + } + + callback = alloc_callback(&function, data); + + free_callback(callback); + + is_callback(callback) + callback_address(callback) + callback_data(callback) + +DESCRIPTION + These functions implement closures with variable arguments as first- + class C functions. + + Closures as first-class C functions means that they fit into a function + pointer and can be called exactly like any other C function. Moreover, + they can be called with variable arguments and can return variable + return values. + + callback = alloc_callback(&function, data) allocates a callback. When + callback gets called, it arranges to call function, passing data as + first argument and, as second argument, the entire sequence of argu‐ + ments passed to callback. + + Function calling conventions differ considerably on different machines, + therefore the arguments are accessed and the result value is stored + through the same macros as used by the vacall package, see below. + + The callbacks are functions with indefinite extent: callback is only + deallocated when free_callback(callback) is called. + + is_callback(callback) checks whether the C function callback was pro‐ + duced by a call to alloc_callback. If this returns true, the arguments + given to alloc_callback can be retrieved: + + callback_address(callback) returns &function, + + callback_data(callback) returns data. + + +VACALL MACROS + Within function, the following macros can be used to walk through the + argument list and specify a return value: + + va_start_type(alist[, return_type]); + starts the walk through the argument list and specifies the + return type. + + arg = va_arg_type(alist[, arg_type]); + fetches the next argument from the argument list. + + va_return_type(alist[[, return_type], return_value]); + ends the walk through the argument list and specifies the return + value. + + The type in va_start_type and va_return_type shall be one of void, int, + uint, long, ulong, longlong, ulonglong, double, struct, ptr or (for + ANSI C calling conventions only) char, schar, uchar, short, ushort, + float, depending on the class of return_type. + + The type specifiers in va_start_type and va_return_type must be the + same. The return_type specifiers passed to va_start_type and + va_return_type must be the same. + + The type in va_arg_type shall be one of int, uint, long, ulong, long‐ + long, ulonglong, double, struct, ptr or (for ANSI C calling conventions + only) char, schar, uchar, short, ushort, float, depending on the class + of arg_type. + + In va_start_struct(alist, return_type, splittable); the splittable flag + specifies whether the struct return_type can be returned in registers + such that every struct field fits entirely in a single register. This + needs to be specified for structs of size 2*sizeof(long). For structs + of size <= sizeof(long), splittable is ignored and assumed to be 1. For + structs of size > 2*sizeof(long), splittable is ignored and assumed to + be 0. There are some handy macros for this: + va_word_splittable_1 (type1) + va_word_splittable_2 (type1, type2) + va_word_splittable_3 (type1, type2, type3) + va_word_splittable_4 (type1, type2, type3, type4) + For a struct with three slots + struct { type1 id1; type2 id2; type3 id3; } + you can specify splittable as va_word_splittable_3 (type1, type2, + type3) . + + +NOTES + Functions which want to emulate Kernighan & Ritchie style functions + (i.e., in ANSI C, functions without a typed argument list) cannot use + the type values char, schar, uchar, short, ushort, float. As pre‐ + scribed by the default K&R C expression promotions, they have to use + int instead of char, schar, uchar, short, ushort and double instead of + float. + + The macros va_start_longlong(), va_start_ulonglong(), va_return_long‐ + long(), va_return_ulonglong(), va_arg_longlong() and va_arg_ulonglong() + work only if the C compiler has a working long long 64-bit integer + type. + + The struct types used in va_start_struct() and va_struct() must only + contain (signed or unsigned) int, long, long long or pointer fields. + Struct types containing (signed or unsigned) char, short, float, double + or other structs are not supported. + + +SEE ALSO + vacall(3), trampoline(3). + + +BUGS + The current implementations have been tested on a selection of common + cases but there are probably still many bugs. + + There are typically built-in limits on the size of the argument-list, + which may also include the size of any structure arguments. + + The decision whether a struct is to be returned in registers or in mem‐ + ory considers only the struct's size and alignment. This is inaccurate: + for example, gcc on m68k-next returns struct { char a,b,c; } in regis‐ + ters and struct { char a[3]; } in memory, although both types have the + same size and the same alignment. + + The argument list can only be walked once. + + +NON-BUGS + All information is passed in CPU registers and the stack. The callback + package is therefore multithread-safe. + + +PORTING + Porting callback consists in first porting the vacall and trampoline + packages, then choosing a CPU register for passing the closure from + trampoline to vacall. This register is normally the register desig‐ + nated by STATIC_CHAIN_REGNUM in the gcc source, file gcc-2.7.2/con‐ + fig/cpu/cpu.h. + + +AUTHOR + Bruno Haible + + +ACKNOWLEDGEMENTS + Many ideas were cribbed from the gcc source. + + + + + 1 January 2017 CALLBACK(3) diff --git a/callback/elf-hack.txt b/callback/elf-hack.txt new file mode 100644 index 0000000..9b5eee4 --- /dev/null +++ b/callback/elf-hack.txt @@ -0,0 +1,53 @@ +Workaround against the ELF symbol resolving routine +=================================================== + +On Solaris 2.6 / i386, when the function being jumped to is an external symbol +of a shared library, the jump actually points to an ELF indirect jump: + jmp *PTR +where PTR initially contains the address of some resolving routine which +will replace the PTR contents with the actual code address of the function +and then jump to the function. +Unfortunately, this resolving routine clobbers all three registers: +%eax, %edx, %ecx. But %ecx is the register in which we pass the env_t +(that points to function and data) to callback_receiver. + +The same effect is also seen on Linux / x86_64, where r10 is clobbered by the +resolving routine (called '_dl_runtime_resolve' in glibc). +See https://savannah.gnu.org/bugs/?32466 . + +The same thing can happen on all platforms that support ELF, since the +lexical closure register is always a call-used register (see file +call-used-registers.txt). + +On i386 (and m68k), it would be possible to solve this by passing the env_t +as an extra argument on the stack and restore it to the lexical closure +register at the beginning of callback_receiver. But this approach becomes too +complex for the other CPUs. + +It is not possible to make a first call to callback_receiver to "straighten +things out", because during this first call the lexical closure register gets +clobbered and callback_receiver then invokes undefined behaviour. + +It may be possible to fix this, on some platforms, + - by use of "ld -r" to combine object files, so that the code in + trampoline_r.o can access callback_receiver directly, or + - by use of symbol visibility control, so that callback_receiver is + not an external symbol of the shared library any more, or + - by an appropriate use of dlsym(). +But this is highly platform dependent (linker, compiler, libc) and there may +be some platforms for which none of these approaches works. + +A workaround that was implemented in January 2017 was to + 1) modify trampoline_r so that it produces a trampoline that pushes the + env_t on the stack (preserving correct stack alignment) instead of + putting it in the lexical closure register, + 2) insert a couple of instructions at the beginning of callback_receiver + that pops this value off the stack and puts in in the lexical closure + register. + +An even simpler workaround is to make callback_receiver a static function, +so that the ELF linker does not even see it. Instead introduce a function +callback_get_receiver that returns &callback_receiver. This function is global, +but since it has a normal calling convention, the ELF symbol resolving routine +does not cause trouble the first time callback_get_receiver() is invoked. + diff --git a/callback/minitests-c++.cc b/callback/minitests-c++.cc new file mode 100644 index 0000000..1738e11 --- /dev/null +++ b/callback/minitests-c++.cc @@ -0,0 +1,18 @@ +/* + * Copyright 2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "minitests.c" diff --git a/callback/minitests.c b/callback/minitests.c new file mode 100644 index 0000000..b0f50fe --- /dev/null +++ b/callback/minitests.c @@ -0,0 +1,19 @@ +/* + * Copyright 1999-2001 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#define SKIP_EXTRA_STRUCTS +#include "tests.c" diff --git a/callback/test1.c b/callback/test1.c new file mode 100644 index 0000000..16625f2 --- /dev/null +++ b/callback/test1.c @@ -0,0 +1,52 @@ +/* Trampoline test */ + +/* + * Copyright 1995-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "config.h" /* Define __${host_cpu}__ */ + +#include +#include + +#include "callback.h" + +#define MAGIC1 0x9db9af42 +#define MAGIC2 0xa2f9d045 +#define MAGIC3 0x7aff3cb4 + +int f (int x) +{ + return x + MAGIC3; +} + +void vf (void* data, va_alist alist) +{ + if (data != (void*)MAGIC1) { printf("wrong data\n"); exit(1); } + va_start_int(alist); + {int a = va_arg_int(alist); + int r = f(a); + va_return_int(alist, r); +}} + +int main () +{ + callback_t cf = alloc_callback(&vf, (void*)MAGIC1); + if ((*cf)(MAGIC2) == MAGIC2+MAGIC3) + { free_callback(cf); printf("Works, test1 passed.\n"); exit(0); } + else + { printf("Doesn't work!\n"); exit(1); } +} diff --git a/callback/tests.c b/callback/tests.c new file mode 100644 index 0000000..4972c5b --- /dev/null +++ b/callback/tests.c @@ -0,0 +1,2386 @@ +/* Some random tests for vacall. */ + +/* + * Copyright 1993 Bill Triggs + * Copyright 1995-2019 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include +#include +#include +#include "callback.h" + +#include "testcases.c" + +#if defined(__m68k__) && defined(__GNUC__) +/* "gcc-2.6.3 -freg-struct-return" returns T = struct { char c[3]; } (which + * has size 4 !) in memory, in contrast to struct { char a,b,c; } and + * struct { char c[4]; } and struct { char a,b,c,d; } which have the same + * size and the same alignment but are returned in registers. I don't know why. + */ +#define SKIP_T +#endif +#if defined(__sparc__) && defined(__sun) && defined(__SUNPRO_C) /* SUNWspro cc */ +/* SunPRO cc miscompiles the simulator function for X_BcdB: d.i[1] is + * temporarily stored in %l2 and put onto the stack from %l2, but in between + * the copy of X has used %l2 as a counter without saving and restoring its + * value. + */ +#define SKIP_X +#endif +#if defined(__mipsn32__) && !defined(__GNUC__) +/* The X test crashes for an unknown reason. */ +#define SKIP_X +#endif + + +/* These functions simulate the behaviour of the functions defined in testcases.c. */ + +/* void tests */ +void v_v_simulator (void* data, va_alist alist) +{ + if (data != (void*)&v_v) { fprintf(out,"wrong data for v_v\n"); exit(1); } + va_start_void(alist); + fprintf(out,"void f(void):\n"); + fflush(out); + va_return_void(alist); +} + +/* int tests */ +void i_v_simulator (void* data, va_alist alist) +{ + if (data != (void*)&i_v) { fprintf(out,"wrong data for i_v\n"); exit(1); } + va_start_int(alist); + {int r=99; + fprintf(out,"int f(void):"); + fflush(out); + va_return_int(alist, r); +}} +void i_i_simulator (void* data, va_alist alist) +{ + if (data != (void*)&i_i) { fprintf(out,"wrong data for i_i\n"); exit(1); } + va_start_int(alist); + {int a = va_arg_int(alist); + int r=a+1; + fprintf(out,"int f(int):(%d)",a); + fflush(out); + va_return_int(alist, r); +}} +void i_i2_simulator (void* data, va_alist alist) +{ + if (data != (void*)&i_i2) { fprintf(out,"wrong data for i_i2\n"); exit(1); } + va_start_int(alist); + {int a = va_arg_int(alist); + int b = va_arg_int(alist); + int r=a+b; + fprintf(out,"int f(2*int):(%d,%d)",a,b); + fflush(out); + va_return_int(alist, r); +}} +void i_i4_simulator (void* data, va_alist alist) +{ + if (data != (void*)&i_i4) { fprintf(out,"wrong data for i_i4\n"); exit(1); } + va_start_int(alist); + {int a = va_arg_int(alist); + int b = va_arg_int(alist); + int c = va_arg_int(alist); + int d = va_arg_int(alist); + int r=a+b+c+d; + fprintf(out,"int f(4*int):(%d,%d,%d,%d)",a,b,c,d); + fflush(out); + va_return_int(alist, r); +}} +void i_i8_simulator (void* data, va_alist alist) +{ + if (data != (void*)&i_i8) { fprintf(out,"wrong data for i_i8\n"); exit(1); } + va_start_int(alist); + {int a = va_arg_int(alist); + int b = va_arg_int(alist); + int c = va_arg_int(alist); + int d = va_arg_int(alist); + int e = va_arg_int(alist); + int f = va_arg_int(alist); + int g = va_arg_int(alist); + int h = va_arg_int(alist); + int r=a+b+c+d+e+f+g+h; + fprintf(out,"int f(8*int):(%d,%d,%d,%d,%d,%d,%d,%d)",a,b,c,d,e,f,g,h); + fflush(out); + va_return_int(alist, r); +}} +void i_i16_simulator (void* data, va_alist alist) +{ + if (data != (void*)&i_i16) { fprintf(out,"wrong data for i_i16\n"); exit(1); } + va_start_int(alist); + {int a = va_arg_int(alist); + int b = va_arg_int(alist); + int c = va_arg_int(alist); + int d = va_arg_int(alist); + int e = va_arg_int(alist); + int f = va_arg_int(alist); + int g = va_arg_int(alist); + int h = va_arg_int(alist); + int i = va_arg_int(alist); + int j = va_arg_int(alist); + int k = va_arg_int(alist); + int l = va_arg_int(alist); + int m = va_arg_int(alist); + int n = va_arg_int(alist); + int o = va_arg_int(alist); + int p = va_arg_int(alist); + int r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p; + fprintf(out,"int f(16*int):(%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d)", + a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p); + fflush(out); + va_return_int(alist, r); +}} +void i_i32_simulator (void* data, va_alist alist) +{ + if (data != (void*)&i_i32) { fprintf(out,"wrong data for i_i32\n"); exit(1); } + va_start_int(alist); + {int a = va_arg_int(alist); + int b = va_arg_int(alist); + int c = va_arg_int(alist); + int d = va_arg_int(alist); + int e = va_arg_int(alist); + int f = va_arg_int(alist); + int g = va_arg_int(alist); + int h = va_arg_int(alist); + int i = va_arg_int(alist); + int j = va_arg_int(alist); + int k = va_arg_int(alist); + int l = va_arg_int(alist); + int m = va_arg_int(alist); + int n = va_arg_int(alist); + int o = va_arg_int(alist); + int p = va_arg_int(alist); + int aa = va_arg_int(alist); + int ab = va_arg_int(alist); + int ac = va_arg_int(alist); + int ad = va_arg_int(alist); + int ae = va_arg_int(alist); + int af = va_arg_int(alist); + int ag = va_arg_int(alist); + int ah = va_arg_int(alist); + int ai = va_arg_int(alist); + int aj = va_arg_int(alist); + int ak = va_arg_int(alist); + int al = va_arg_int(alist); + int am = va_arg_int(alist); + int an = va_arg_int(alist); + int ao = va_arg_int(alist); + int ap = va_arg_int(alist); + int r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+aa+ab+ac+ad+ae+af+ag+ah+ai+aj+ak+al+am+an+ao+ap; + fprintf(out,"int f(32*int):(%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d)", + a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,aa,ab,ac,ad,ae,af,ag,ah,ai,aj,ak,al,am,an,ao,ap); + fflush(out); + va_return_int(alist, r); +}} + +/* float tests */ +void f_f_simulator (void* data, va_alist alist) +{ + if (data != (void*)&f_f) { fprintf(out,"wrong data for f_f\n"); exit(1); } + va_start_float(alist); + {float a = va_arg_float(alist); + float r=a+1.0; + fprintf(out,"float f(float):(%g)",a); + fflush(out); + va_return_float(alist, r); +}} +void f_f2_simulator (void* data, va_alist alist) +{ + if (data != (void*)&f_f2) { fprintf(out,"wrong data for f_f2\n"); exit(1); } + va_start_float(alist); + {float a = va_arg_float(alist); + float b = va_arg_float(alist); + float r=a+b; + fprintf(out,"float f(2*float):(%g,%g)",a,b); + fflush(out); + va_return_float(alist, r); +}} +void f_f4_simulator (void* data, va_alist alist) +{ + if (data != (void*)&f_f4) { fprintf(out,"wrong data for f_f4\n"); exit(1); } + va_start_float(alist); + {float a = va_arg_float(alist); + float b = va_arg_float(alist); + float c = va_arg_float(alist); + float d = va_arg_float(alist); + float r=a+b+c+d; + fprintf(out,"float f(4*float):(%g,%g,%g,%g)",a,b,c,d); + fflush(out); + va_return_float(alist, r); +}} +void f_f8_simulator (void* data, va_alist alist) +{ + if (data != (void*)&f_f8) { fprintf(out,"wrong data for f_f8\n"); exit(1); } + va_start_float(alist); + {float a = va_arg_float(alist); + float b = va_arg_float(alist); + float c = va_arg_float(alist); + float d = va_arg_float(alist); + float e = va_arg_float(alist); + float f = va_arg_float(alist); + float g = va_arg_float(alist); + float h = va_arg_float(alist); + float r=a+b+c+d+e+f+g+h; + fprintf(out,"float f(8*float):(%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h); + fflush(out); + va_return_float(alist, r); +}} +void f_f16_simulator (void* data, va_alist alist) +{ + if (data != (void*)&f_f16) { fprintf(out,"wrong data for f_f16\n"); exit(1); } + va_start_float(alist); + {float a = va_arg_float(alist); + float b = va_arg_float(alist); + float c = va_arg_float(alist); + float d = va_arg_float(alist); + float e = va_arg_float(alist); + float f = va_arg_float(alist); + float g = va_arg_float(alist); + float h = va_arg_float(alist); + float i = va_arg_float(alist); + float j = va_arg_float(alist); + float k = va_arg_float(alist); + float l = va_arg_float(alist); + float m = va_arg_float(alist); + float n = va_arg_float(alist); + float o = va_arg_float(alist); + float p = va_arg_float(alist); + float r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p; + fprintf(out,"float f(16*float):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p); + fflush(out); + va_return_float(alist, r); +}} +void f_f24_simulator (void* data, va_alist alist) +{ + if (data != (void*)&f_f24) { fprintf(out,"wrong data for f_f24\n"); exit(1); } + va_start_float(alist); + {float a = va_arg_float(alist); + float b = va_arg_float(alist); + float c = va_arg_float(alist); + float d = va_arg_float(alist); + float e = va_arg_float(alist); + float f = va_arg_float(alist); + float g = va_arg_float(alist); + float h = va_arg_float(alist); + float i = va_arg_float(alist); + float j = va_arg_float(alist); + float k = va_arg_float(alist); + float l = va_arg_float(alist); + float m = va_arg_float(alist); + float n = va_arg_float(alist); + float o = va_arg_float(alist); + float p = va_arg_float(alist); + float q = va_arg_float(alist); + float s = va_arg_float(alist); + float t = va_arg_float(alist); + float u = va_arg_float(alist); + float v = va_arg_float(alist); + float w = va_arg_float(alist); + float x = va_arg_float(alist); + float y = va_arg_float(alist); + float r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+s+t+u+v+w+x+y; + fprintf(out,"float f(24*float):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,s,t,u,v,w,x,y); + fflush(out); + va_return_float(alist, r); +}} + +/* double tests */ +void d_d_simulator (void* data, va_alist alist) +{ + if (data != (void*)&d_d) { fprintf(out,"wrong data for d_d\n"); exit(1); } + va_start_double(alist); + {double a = va_arg_double(alist); + double r=a+1.0; + fprintf(out,"double f(double):(%g)",a); + fflush(out); + va_return_double(alist, r); +}} +void d_d2_simulator (void* data, va_alist alist) +{ + if (data != (void*)&d_d2) { fprintf(out,"wrong data for d_d2\n"); exit(1); } + va_start_double(alist); + {double a = va_arg_double(alist); + double b = va_arg_double(alist); + double r=a+b; + fprintf(out,"double f(2*double):(%g,%g)",a,b); + fflush(out); + va_return_double(alist, r); +}} +void d_d4_simulator (void* data, va_alist alist) +{ + if (data != (void*)&d_d4) { fprintf(out,"wrong data for d_d4\n"); exit(1); } + va_start_double(alist); + {double a = va_arg_double(alist); + double b = va_arg_double(alist); + double c = va_arg_double(alist); + double d = va_arg_double(alist); + double r=a+b+c+d; + fprintf(out,"double f(4*double):(%g,%g,%g,%g)",a,b,c,d); + fflush(out); + va_return_double(alist, r); +}} +void d_d8_simulator (void* data, va_alist alist) +{ + if (data != (void*)&d_d8) { fprintf(out,"wrong data for d_d8\n"); exit(1); } + va_start_double(alist); + {double a = va_arg_double(alist); + double b = va_arg_double(alist); + double c = va_arg_double(alist); + double d = va_arg_double(alist); + double e = va_arg_double(alist); + double f = va_arg_double(alist); + double g = va_arg_double(alist); + double h = va_arg_double(alist); + double r=a+b+c+d+e+f+g+h; + fprintf(out,"double f(8*double):(%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h); + fflush(out); + va_return_double(alist, r); +}} +void d_d16_simulator (void* data, va_alist alist) +{ + if (data != (void*)&d_d16) { fprintf(out,"wrong data for d_d16\n"); exit(1); } + va_start_double(alist); + {double a = va_arg_double(alist); + double b = va_arg_double(alist); + double c = va_arg_double(alist); + double d = va_arg_double(alist); + double e = va_arg_double(alist); + double f = va_arg_double(alist); + double g = va_arg_double(alist); + double h = va_arg_double(alist); + double i = va_arg_double(alist); + double j = va_arg_double(alist); + double k = va_arg_double(alist); + double l = va_arg_double(alist); + double m = va_arg_double(alist); + double n = va_arg_double(alist); + double o = va_arg_double(alist); + double p = va_arg_double(alist); + double r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p; + fprintf(out,"double f(16*double):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p); + fflush(out); + va_return_double(alist, r); +}} + +/* pointer tests */ +void vp_vpdpcpsp_simulator (void* data, va_alist alist) +{ + if (data != (void*)&vp_vpdpcpsp) { fprintf(out,"wrong data for vp_vpdpcpsp\n"); exit(1); } + va_start_ptr(alist, void*); + {void* a = va_arg_ptr(alist, void*); + double* b = va_arg_ptr(alist, double*); + char* c = va_arg_ptr(alist, char*); + Int* d = va_arg_ptr(alist, Int*); + void* ret = (char*)b + 1; + fprintf(out,"void* f(void*,double*,char*,Int*):(0x%p,0x%p,0x%p,0x%p)",a,b,c,d); + fflush(out); + va_return_ptr(alist, void*, ret); +}} + +/* mixed number tests */ +void uc_ucsil_simulator (void* data, va_alist alist) +{ + if (data != (void*)&uc_ucsil) { fprintf(out,"wrong data for uc_ucsil\n"); exit(1); } + va_start_uchar(alist); + {uchar a = va_arg_uchar(alist); + ushort b = va_arg_ushort(alist); + uint c = va_arg_uint(alist); + ulong d = va_arg_ulong(alist); + uchar r = (uchar)-1; + fprintf(out,"uchar f(uchar,ushort,uint,ulong):(%u,%u,%u,%lu)",a,b,c,d); + fflush(out); + va_return_uchar(alist, r); +}} +void d_iidd_simulator (void* data, va_alist alist) +{ + if (data != (void*)&d_iidd) { fprintf(out,"wrong data for d_iidd\n"); exit(1); } + va_start_double(alist); + {int a = va_arg_int(alist); + int b = va_arg_int(alist); + double c = va_arg_double(alist); + double d = va_arg_double(alist); + double r=a+b+c+d; + fprintf(out,"double f(int,int,double,double):(%d,%d,%g,%g)",a,b,c,d); + fflush(out); + va_return_double(alist, r); +}} +void d_iiidi_simulator (void* data, va_alist alist) +{ + if (data != (void*)&d_iiidi) { fprintf(out,"wrong data for d_iiidi\n"); exit(1); } + va_start_double(alist); + {int a = va_arg_int(alist); + int b = va_arg_int(alist); + int c = va_arg_int(alist); + double d = va_arg_double(alist); + int e = va_arg_int(alist); + double r=a+b+c+d+e; + fprintf(out,"double f(int,int,int,double,int):(%d,%d,%d,%g,%d)",a,b,c,d,e); + fflush(out); + va_return_double(alist, r); +}} +void d_idid_simulator (void* data, va_alist alist) +{ + if (data != (void*)&d_idid) { fprintf(out,"wrong data for d_idid\n"); exit(1); } + va_start_double(alist); + {int a = va_arg_int(alist); + double b = va_arg_double(alist); + int c = va_arg_int(alist); + double d = va_arg_double(alist); + double r=a+b+c+d; + fprintf(out,"double f(int,double,int,double):(%d,%g,%d,%g)",a,b,c,d); + fflush(out); + va_return_double(alist, r); +}} +void d_fdi_simulator (void* data, va_alist alist) +{ + if (data != (void*)&d_fdi) { fprintf(out,"wrong data for d_fdi\n"); exit(1); } + va_start_double(alist); + {float a = va_arg_float(alist); + double b = va_arg_double(alist); + int c = va_arg_int(alist); + double r=a+b+c; + fprintf(out,"double f(float,double,int):(%g,%g,%d)",a,b,c); + fflush(out); + va_return_double(alist, r); +}} +void us_cdcd_simulator (void* data, va_alist alist) +{ + if (data != (void*)&us_cdcd) { fprintf(out,"wrong data for us_cdcd\n"); exit(1); } + va_start_ushort(alist); + {char a = va_arg_char(alist); + double b = va_arg_double(alist); + char c = va_arg_char(alist); + double d = va_arg_double(alist); + ushort r = (ushort)(a + b + c + d); + fprintf(out,"ushort f(char,double,char,double):('%c',%g,'%c',%g)",a,b,c,d); + fflush(out); + va_return_ushort(alist, r); +}} +void ll_iiilli_simulator (void* data, va_alist alist) +{ + if (data != (void*)&ll_iiilli) { fprintf(out,"wrong data for ll_iiilli\n"); exit(1); } + va_start_longlong(alist); + {int a = va_arg_int(alist); + int b = va_arg_int(alist); + int c = va_arg_int(alist); + long long d = va_arg_longlong(alist); + int e = va_arg_int(alist); + long long r = (long long)(int)a + (long long)(int)b + (long long)(int)c + d + (long long)e; + fprintf(out,"long long f(int,int,int,long long,int):(%d,%d,%d,0x%lx%08lx,%d)",a,b,c,(long)(d>>32),(long)(d&0xffffffff),e); + fflush(out); + va_return_longlong(alist, r); +}} +void ll_flli_simulator (void* data, va_alist alist) +{ + if (data != (void*)&ll_flli) { fprintf(out,"wrong data for ll_flli\n"); exit(1); } + va_start_longlong(alist); + {float a = va_arg_float(alist); + long long b = va_arg_longlong(alist); + int c = va_arg_int(alist); + long long r = (long long)(int)a + b + (long long)c; + fprintf(out,"long long f(float,long long,int):(%g,0x%lx%08lx,0x%lx)",a,(long)(b>>32),(long)(b&0xffffffff),(long)c); + fflush(out); + va_return_longlong(alist, r); +}} +void f_fi_simulator (void* data, va_alist alist) +{ + if (data != (void*)&f_fi) { fprintf(out,"wrong data for f_fi\n"); exit(1); } + va_start_float(alist); + {float a = va_arg_float(alist); + int z = va_arg_int(alist); + float r=a+z; + fprintf(out,"float f(float,int):(%g,%d)",a,z); + fflush(out); + va_return_float(alist, r); +}} +void f_f2i_simulator (void* data, va_alist alist) +{ + if (data != (void*)&f_f2i) { fprintf(out,"wrong data for f_f2i\n"); exit(1); } + va_start_float(alist); + {float a = va_arg_float(alist); + float b = va_arg_float(alist); + int z = va_arg_int(alist); + float r=a+b+z; + fprintf(out,"float f(2*float,int):(%g,%g,%d)",a,b,z); + fflush(out); + va_return_float(alist, r); +}} +void f_f3i_simulator (void* data, va_alist alist) +{ + if (data != (void*)&f_f3i) { fprintf(out,"wrong data for f_f3i\n"); exit(1); } + va_start_float(alist); + {float a = va_arg_float(alist); + float b = va_arg_float(alist); + float c = va_arg_float(alist); + int z = va_arg_int(alist); + float r=a+b+c+z; + fprintf(out,"float f(3*float,int):(%g,%g,%g,%d)",a,b,c,z); + fflush(out); + va_return_float(alist, r); +}} +void f_f4i_simulator (void* data, va_alist alist) +{ + if (data != (void*)&f_f4i) { fprintf(out,"wrong data for f_f4i\n"); exit(1); } + va_start_float(alist); + {float a = va_arg_float(alist); + float b = va_arg_float(alist); + float c = va_arg_float(alist); + float d = va_arg_float(alist); + int z = va_arg_int(alist); + float r=a+b+c+d+z; + fprintf(out,"float f(4*float,int):(%g,%g,%g,%g,%d)",a,b,c,d,z); + fflush(out); + va_return_float(alist, r); +}} +void f_f7i_simulator (void* data, va_alist alist) +{ + if (data != (void*)&f_f7i) { fprintf(out,"wrong data for f_f7i\n"); exit(1); } + va_start_float(alist); + {float a = va_arg_float(alist); + float b = va_arg_float(alist); + float c = va_arg_float(alist); + float d = va_arg_float(alist); + float e = va_arg_float(alist); + float f = va_arg_float(alist); + float g = va_arg_float(alist); + int z = va_arg_int(alist); + float r=a+b+c+d+e+f+g+z; + fprintf(out,"float f(7*float,int):(%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,z); + fflush(out); + va_return_float(alist, r); +}} +void f_f8i_simulator (void* data, va_alist alist) +{ + if (data != (void*)&f_f8i) { fprintf(out,"wrong data for f_f8i\n"); exit(1); } + va_start_float(alist); + {float a = va_arg_float(alist); + float b = va_arg_float(alist); + float c = va_arg_float(alist); + float d = va_arg_float(alist); + float e = va_arg_float(alist); + float f = va_arg_float(alist); + float g = va_arg_float(alist); + float h = va_arg_float(alist); + int z = va_arg_int(alist); + float r=a+b+c+d+e+f+g+h+z; + fprintf(out,"float f(8*float,int):(%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,z); + fflush(out); + va_return_float(alist, r); +}} +void f_f12i_simulator (void* data, va_alist alist) +{ + if (data != (void*)&f_f12i) { fprintf(out,"wrong data for f_f12i\n"); exit(1); } + va_start_float(alist); + {float a = va_arg_float(alist); + float b = va_arg_float(alist); + float c = va_arg_float(alist); + float d = va_arg_float(alist); + float e = va_arg_float(alist); + float f = va_arg_float(alist); + float g = va_arg_float(alist); + float h = va_arg_float(alist); + float i = va_arg_float(alist); + float j = va_arg_float(alist); + float k = va_arg_float(alist); + float l = va_arg_float(alist); + int z = va_arg_int(alist); + float r=a+b+c+d+e+f+g+h+i+j+k+l+z; + fprintf(out,"float f(12*float,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,z); + fflush(out); + va_return_float(alist, r); +}} +void f_f13i_simulator (void* data, va_alist alist) +{ + if (data != (void*)&f_f13i) { fprintf(out,"wrong data for f_f13i\n"); exit(1); } + va_start_float(alist); + {float a = va_arg_float(alist); + float b = va_arg_float(alist); + float c = va_arg_float(alist); + float d = va_arg_float(alist); + float e = va_arg_float(alist); + float f = va_arg_float(alist); + float g = va_arg_float(alist); + float h = va_arg_float(alist); + float i = va_arg_float(alist); + float j = va_arg_float(alist); + float k = va_arg_float(alist); + float l = va_arg_float(alist); + float m = va_arg_float(alist); + int z = va_arg_int(alist); + float r=a+b+c+d+e+f+g+h+i+j+k+l+m+z; + fprintf(out,"float f(13*float,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,m,z); + fflush(out); + va_return_float(alist, r); +}} +void d_di_simulator (void* data, va_alist alist) +{ + if (data != (void*)&d_di) { fprintf(out,"wrong data for d_di\n"); exit(1); } + va_start_double(alist); + {double a = va_arg_double(alist); + int z = va_arg_int(alist); + double r=a+z; + fprintf(out,"double f(double,int):(%g,%d)",a,z); + fflush(out); + va_return_double(alist, r); +}} +void d_d2i_simulator (void* data, va_alist alist) +{ + if (data != (void*)&d_d2i) { fprintf(out,"wrong data for d_d2i\n"); exit(1); } + va_start_double(alist); + {double a = va_arg_double(alist); + double b = va_arg_double(alist); + int z = va_arg_int(alist); + double r=a+b+z; + fprintf(out,"double f(2*double,int):(%g,%g,%d)",a,b,z); + fflush(out); + va_return_double(alist, r); +}} +void d_d3i_simulator (void* data, va_alist alist) +{ + if (data != (void*)&d_d3i) { fprintf(out,"wrong data for d_d3i\n"); exit(1); } + va_start_double(alist); + {double a = va_arg_double(alist); + double b = va_arg_double(alist); + double c = va_arg_double(alist); + int z = va_arg_int(alist); + double r=a+b+c+z; + fprintf(out,"double f(3*double,int):(%g,%g,%g,%d)",a,b,c,z); + fflush(out); + va_return_double(alist, r); +}} +void d_d4i_simulator (void* data, va_alist alist) +{ + if (data != (void*)&d_d4i) { fprintf(out,"wrong data for d_d4i\n"); exit(1); } + va_start_double(alist); + {double a = va_arg_double(alist); + double b = va_arg_double(alist); + double c = va_arg_double(alist); + double d = va_arg_double(alist); + int z = va_arg_int(alist); + double r=a+b+c+d+z; + fprintf(out,"double f(4*double,int):(%g,%g,%g,%g,%d)",a,b,c,d,z); + fflush(out); + va_return_double(alist, r); +}} +void d_d7i_simulator (void* data, va_alist alist) +{ + if (data != (void*)&d_d7i) { fprintf(out,"wrong data for d_d7i\n"); exit(1); } + va_start_double(alist); + {double a = va_arg_double(alist); + double b = va_arg_double(alist); + double c = va_arg_double(alist); + double d = va_arg_double(alist); + double e = va_arg_double(alist); + double f = va_arg_double(alist); + double g = va_arg_double(alist); + int z = va_arg_int(alist); + double r=a+b+c+d+e+f+g+z; + fprintf(out,"double f(7*double,int):(%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,z); + fflush(out); + va_return_double(alist, r); +}} +void d_d8i_simulator (void* data, va_alist alist) +{ + if (data != (void*)&d_d8i) { fprintf(out,"wrong data for d_d8i\n"); exit(1); } + va_start_double(alist); + {double a = va_arg_double(alist); + double b = va_arg_double(alist); + double c = va_arg_double(alist); + double d = va_arg_double(alist); + double e = va_arg_double(alist); + double f = va_arg_double(alist); + double g = va_arg_double(alist); + double h = va_arg_double(alist); + int z = va_arg_int(alist); + double r=a+b+c+d+e+f+g+h+z; + fprintf(out,"double f(8*double,int):(%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,z); + fflush(out); + va_return_double(alist, r); +}} +void d_d12i_simulator (void* data, va_alist alist) +{ + if (data != (void*)&d_d12i) { fprintf(out,"wrong data for d_d12i\n"); exit(1); } + va_start_double(alist); + {double a = va_arg_double(alist); + double b = va_arg_double(alist); + double c = va_arg_double(alist); + double d = va_arg_double(alist); + double e = va_arg_double(alist); + double f = va_arg_double(alist); + double g = va_arg_double(alist); + double h = va_arg_double(alist); + double i = va_arg_double(alist); + double j = va_arg_double(alist); + double k = va_arg_double(alist); + double l = va_arg_double(alist); + int z = va_arg_int(alist); + double r=a+b+c+d+e+f+g+h+i+j+k+l+z; + fprintf(out,"double f(12*double,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,z); + fflush(out); + va_return_double(alist, r); +}} +void d_d13i_simulator (void* data, va_alist alist) +{ + if (data != (void*)&d_d13i) { fprintf(out,"wrong data for d_d13i\n"); exit(1); } + va_start_double(alist); + {double a = va_arg_double(alist); + double b = va_arg_double(alist); + double c = va_arg_double(alist); + double d = va_arg_double(alist); + double e = va_arg_double(alist); + double f = va_arg_double(alist); + double g = va_arg_double(alist); + double h = va_arg_double(alist); + double i = va_arg_double(alist); + double j = va_arg_double(alist); + double k = va_arg_double(alist); + double l = va_arg_double(alist); + double m = va_arg_double(alist); + int z = va_arg_int(alist); + double r=a+b+c+d+e+f+g+h+i+j+k+l+m+z; + fprintf(out,"double f(13*double,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,m,z); + fflush(out); + va_return_double(alist, r); +}} + +/* small structure return tests */ +void S1_v_simulator (void* data, va_alist alist) +{ + if (data != (void*)&S1_v) { fprintf(out,"wrong data for S1_v\n"); exit(1); } + {Size1 r; + va_start_struct(alist, Size1, 1); + r = Size1_1; + fprintf(out,"Size1 f(void):"); + fflush(out); + va_return_struct(alist, Size1, r); +}} +void S2_v_simulator (void* data, va_alist alist) +{ + if (data != (void*)&S2_v) { fprintf(out,"wrong data for S2_v\n"); exit(1); } + {Size2 r; + va_start_struct(alist, Size2, 1); + r = Size2_1; + fprintf(out,"Size2 f(void):"); + fflush(out); + va_return_struct(alist, Size2, r); +}} +void S3_v_simulator (void* data, va_alist alist) +{ + if (data != (void*)&S3_v) { fprintf(out,"wrong data for S3_v\n"); exit(1); } + {Size3 r; + va_start_struct(alist, Size3, 1); + r = Size3_1; + fprintf(out,"Size3 f(void):"); + fflush(out); + va_return_struct(alist, Size3, r); +}} +void S4_v_simulator (void* data, va_alist alist) +{ + if (data != (void*)&S4_v) { fprintf(out,"wrong data for S4_v\n"); exit(1); } + {Size4 r; + va_start_struct(alist, Size4, 1); + r = Size4_1; + fprintf(out,"Size4 f(void):"); + fflush(out); + va_return_struct(alist, Size4, r); +}} +void S7_v_simulator (void* data, va_alist alist) +{ + if (data != (void*)&S7_v) { fprintf(out,"wrong data for S7_v\n"); exit(1); } + {Size7 r; + va_start_struct(alist, Size7, 1); + r = Size7_1; + fprintf(out,"Size7 f(void):"); + fflush(out); + va_return_struct(alist, Size7, r); +}} +void S8_v_simulator (void* data, va_alist alist) +{ + if (data != (void*)&S8_v) { fprintf(out,"wrong data for S8_v\n"); exit(1); } + {Size8 r; + va_start_struct(alist, Size8, 1); + r = Size8_1; + fprintf(out,"Size8 f(void):"); + fflush(out); + va_return_struct(alist, Size8, r); +}} +void S12_v_simulator (void* data, va_alist alist) +{ + if (data != (void*)&S12_v) { fprintf(out,"wrong data for S12_v\n"); exit(1); } + {Size12 r; + va_start_struct(alist, Size12, 1); + r = Size12_1; + fprintf(out,"Size12 f(void):"); + fflush(out); + va_return_struct(alist, Size12, r); +}} +void S15_v_simulator (void* data, va_alist alist) +{ + if (data != (void*)&S15_v) { fprintf(out,"wrong data for S15_v\n"); exit(1); } + {Size15 r; + va_start_struct(alist, Size15, 1); + r = Size15_1; + fprintf(out,"Size15 f(void):"); + fflush(out); + va_return_struct(alist, Size15, r); +}} +void S16_v_simulator (void* data, va_alist alist) +{ + if (data != (void*)&S16_v) { fprintf(out,"wrong data for S16_v\n"); exit(1); } + {Size16 r; + va_start_struct(alist, Size16, 1); + r = Size16_1; + fprintf(out,"Size16 f(void):"); + fflush(out); + va_return_struct(alist, Size16, r); +}} + +/* structure tests */ +void I_III_simulator (void* data, va_alist alist) +{ + if (data != (void*)&I_III) { fprintf(out,"wrong data for I_III\n"); exit(1); } + {Int a; + Int b; + Int c; + Int r; + va_start_struct(alist, Int, 1); + a = va_arg_struct(alist, Int); + b = va_arg_struct(alist, Int); + c = va_arg_struct(alist, Int); + r.x = a.x + b.x + c.x; + fprintf(out,"Int f(Int,Int,Int):({%d},{%d},{%d})",a.x,b.x,c.x); + fflush(out); + va_return_struct(alist, Int, r); +}} +#ifndef SKIP_EXTRA_STRUCTS +void C_CdC_simulator (void* data, va_alist alist) +{ + if (data != (void*)&C_CdC) { fprintf(out,"wrong data for C_CdC\n"); exit(1); } + {Char a; + double b; + Char c; + Char r; + va_start_struct(alist, Char, 1); + a = va_arg_struct(alist, Char); + b = va_arg_double(alist); + c = va_arg_struct(alist, Char); + r.x = (a.x + c.x)/2; + fprintf(out,"Char f(Char,double,Char):({'%c'},%g,{'%c'})",a.x,b,c.x); + fflush(out); + va_return_struct(alist, Char, r); +}} +void F_Ffd_simulator (void* data, va_alist alist) +{ + if (data != (void*)&F_Ffd) { fprintf(out,"wrong data for F_Ffd\n"); exit(1); } + {Float a; + float b; + double c; + Float r; + va_start_struct(alist, Float, va_word_splittable_1(float)); + a = va_arg_struct(alist, Float); + b = va_arg_float(alist); + c = va_arg_double(alist); + r.x = a.x + b + c; + fprintf(out,"Float f(Float,float,double):({%g},%g,%g)",a.x,b,c); + fflush(out); + va_return_struct(alist, Float, r); +}} +void D_fDd_simulator (void* data, va_alist alist) +{ + if (data != (void*)&D_fDd) { fprintf(out,"wrong data for D_fDd\n"); exit(1); } + {float a; + Double b; + double c; + Double r; + va_start_struct(alist, Double, va_word_splittable_1(double)); + a = va_arg_float(alist); + b = va_arg_struct(alist, Double); + c = va_arg_double(alist); + r.x = a + b.x + c; + fprintf(out,"Double f(float,Double,double):(%g,{%g},%g)",a,b.x,c); + fflush(out); + va_return_struct(alist, Double, r); +}} +void D_Dfd_simulator (void* data, va_alist alist) +{ + if (data != (void*)&D_Dfd) { fprintf(out,"wrong data for D_Dfd\n"); exit(1); } + {Double a; + float b; + double c; + Double r; + va_start_struct(alist, Double, va_word_splittable_1(double)); + a = va_arg_struct(alist, Double); + b = va_arg_float(alist); + c = va_arg_double(alist); + r.x = a.x + b + c; + fprintf(out,"Double f(Double,float,double):({%g},%g,%g)",a.x,b,c); + fflush(out); + va_return_struct(alist, Double, r); +}} +#endif +void J_JiJ_simulator (void* data, va_alist alist) +{ + if (data != (void*)&J_JiJ) { fprintf(out,"wrong data for J_JiJ\n"); exit(1); } + {J a; + int b; + J c; + J r; + va_start_struct(alist, J, va_word_splittable_2(long,long)); + a = va_arg_struct(alist, J); + b = va_arg_int(alist); + c = va_arg_struct(alist, J); + r.l1 = a.l1+c.l1; r.l2 = a.l2+b+c.l2; + fprintf(out,"J f(J,int,J):({%ld,%ld},%d,{%ld,%ld})",a.l1,a.l2,b,c.l1,c.l2); + fflush(out); + va_return_struct(alist, J, r); +}} +#ifndef SKIP_EXTRA_STRUCTS +void T_TcT_simulator (void* data, va_alist alist) +{ + if (data != (void*)&T_TcT) { fprintf(out,"wrong data for T_TcT\n"); exit(1); } + {T a; + char b; + T c; + T r; + va_start_struct(alist, T, 1); + a = va_arg_struct(alist, T); + b = va_arg_char(alist); + c = va_arg_struct(alist, T); + r.c[0]='b'; r.c[1]=c.c[1]; r.c[2]=c.c[2]; + fprintf(out,"T f(T,char,T):({\"%c%c%c\"},'%c',{\"%c%c%c\"})",a.c[0],a.c[1],a.c[2],b,c.c[0],c.c[1],c.c[2]); + fflush(out); + va_return_struct(alist, T, r); +}} +void X_BcdB_simulator (void* data, va_alist alist) +{ + if (data != (void*)&X_BcdB) { fprintf(out,"wrong data for X_BcdB\n"); exit(1); } + {B a; + char b; + double c; + B d; + static X xr={"return val",'R'}; + X r; + va_start_struct(alist, X, 0); + a = va_arg_struct(alist, B); + b = va_arg_char(alist); + c = va_arg_double(alist); + d = va_arg_struct(alist, B); + r = xr; + r.c1 = b; + fprintf(out,"X f(B,char,double,B):({%g,{%d,%d,%d}},'%c',%g,{%g,{%d,%d,%d}})", + a.d,a.i[0],a.i[1],a.i[2],b,c,d.d,d.i[0],d.i[1],d.i[2]); + fflush(out); + va_return_struct(alist, X, r); +}} +#endif + +/* gpargs boundary tests */ +void l_l0J_simulator (void* data, va_alist alist) +{ + if (data != (void*)&l_l0J) { fprintf(out,"wrong data for l_l0J\n"); exit(1); } + va_start_long(alist); + {J b = va_arg_struct(alist, J); + long c = va_arg_long(alist); + long r = b.l1 + b.l2 + c; + fprintf(out,"long f(J,long):(%ld,%ld,%ld)",b.l1,b.l2,c); + fflush(out); + va_return_long(alist, r); +}} +void l_l1J_simulator (void* data, va_alist alist) +{ + if (data != (void*)&l_l1J) { fprintf(out,"wrong data for l_l1J\n"); exit(1); } + va_start_long(alist); + {long a1 = va_arg_long(alist); + J b = va_arg_struct(alist, J); + long c = va_arg_long(alist); + long r = a1 + b.l1 + b.l2 + c; + fprintf(out,"long f(long,J,long):(%ld,%ld,%ld,%ld)",a1,b.l1,b.l2,c); + fflush(out); + va_return_long(alist, r); +}} +void l_l2J_simulator (void* data, va_alist alist) +{ + if (data != (void*)&l_l2J) { fprintf(out,"wrong data for l_l2J\n"); exit(1); } + va_start_long(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + J b = va_arg_struct(alist, J); + long c = va_arg_long(alist); + long r = a1 + a2 + b.l1 + b.l2 + c; + fprintf(out,"long f(2*long,J,long):(%ld,%ld,%ld,%ld,%ld)",a1,a2,b.l1,b.l2,c); + fflush(out); + va_return_long(alist, r); +}} +void l_l3J_simulator (void* data, va_alist alist) +{ + if (data != (void*)&l_l3J) { fprintf(out,"wrong data for l_l3J\n"); exit(1); } + va_start_long(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + J b = va_arg_struct(alist, J); + long c = va_arg_long(alist); + long r = a1 + a2 + a3 + b.l1 + b.l2 + c; + fprintf(out,"long f(3*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,b.l1,b.l2,c); + fflush(out); + va_return_long(alist, r); +}} +void l_l4J_simulator (void* data, va_alist alist) +{ + if (data != (void*)&l_l4J) { fprintf(out,"wrong data for l_l4J\n"); exit(1); } + va_start_long(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + J b = va_arg_struct(alist, J); + long c = va_arg_long(alist); + long r = a1 + a2 + a3 + a4 + b.l1 + b.l2 + c; + fprintf(out,"long f(4*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,b.l1,b.l2,c); + fflush(out); + va_return_long(alist, r); +}} +void l_l5J_simulator (void* data, va_alist alist) +{ + if (data != (void*)&l_l5J) { fprintf(out,"wrong data for l_l5J\n"); exit(1); } + va_start_long(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + long a5 = va_arg_long(alist); + J b = va_arg_struct(alist, J); + long c = va_arg_long(alist); + long r = a1 + a2 + a3 + a4 + a5 + b.l1 + b.l2 + c; + fprintf(out,"long f(5*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,b.l1,b.l2,c); + fflush(out); + va_return_long(alist, r); +}} +void l_l6J_simulator (void* data, va_alist alist) +{ + if (data != (void*)&l_l6J) { fprintf(out,"wrong data for l_l6J\n"); exit(1); } + va_start_long(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + long a5 = va_arg_long(alist); + long a6 = va_arg_long(alist); + J b = va_arg_struct(alist, J); + long c = va_arg_long(alist); + long r = a1 + a2 + a3 + a4 + a5 + a6 + b.l1 + b.l2 + c; + fprintf(out,"long f(6*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,a6,b.l1,b.l2,c); + fflush(out); + va_return_long(alist, r); +}} +void l_l7J_simulator (void* data, va_alist alist) +{ + if (data != (void*)&l_l7J) { fprintf(out,"wrong data for l_l7J\n"); exit(1); } + va_start_long(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + long a5 = va_arg_long(alist); + long a6 = va_arg_long(alist); + long a7 = va_arg_long(alist); + J b = va_arg_struct(alist, J); + long c = va_arg_long(alist); + long r = a1 + a2 + a3 + a4 + a5 + a6 + a7 + b.l1 + b.l2 + c; + fprintf(out,"long f(7*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,a6,a7,b.l1,b.l2,c); + fflush(out); + va_return_long(alist, r); +}} +void l_l0K_simulator (void* data, va_alist alist) +{ + if (data != (void*)&l_l0K) { fprintf(out,"wrong data for l_l0K\n"); exit(1); } + va_start_long(alist); + {K b = va_arg_struct(alist, K); + long c = va_arg_long(alist); + long r = b.l1 + b.l2 + b.l3 + b.l4 + c; + fprintf(out,"long f(K,long):(%ld,%ld,%ld,%ld,%ld)",b.l1,b.l2,b.l3,b.l4,c); + fflush(out); + va_return_long(alist, r); +}} +void l_l1K_simulator (void* data, va_alist alist) +{ + if (data != (void*)&l_l1K) { fprintf(out,"wrong data for l_l1K\n"); exit(1); } + va_start_long(alist); + {long a1 = va_arg_long(alist); + K b = va_arg_struct(alist, K); + long c = va_arg_long(alist); + long r = a1 + b.l1 + b.l2 + b.l3 + b.l4 + c; + fprintf(out,"long f(long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld)",a1,b.l1,b.l2,b.l3,b.l4,c); + fflush(out); + va_return_long(alist, r); +}} +void l_l2K_simulator (void* data, va_alist alist) +{ + if (data != (void*)&l_l2K) { fprintf(out,"wrong data for l_l2K\n"); exit(1); } + va_start_long(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + K b = va_arg_struct(alist, K); + long c = va_arg_long(alist); + long r = a1 + a2 + b.l1 + b.l2 + b.l3 + b.l4 + c; + fprintf(out,"long f(2*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,b.l1,b.l2,b.l3,b.l4,c); + fflush(out); + va_return_long(alist, r); +}} +void l_l3K_simulator (void* data, va_alist alist) +{ + if (data != (void*)&l_l3K) { fprintf(out,"wrong data for l_l3K\n"); exit(1); } + va_start_long(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + K b = va_arg_struct(alist, K); + long c = va_arg_long(alist); + long r = a1 + a2 + a3 + b.l1 + b.l2 + b.l3 + b.l4 + c; + fprintf(out,"long f(3*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,b.l1,b.l2,b.l3,b.l4,c); + fflush(out); + va_return_long(alist, r); +}} +void l_l4K_simulator (void* data, va_alist alist) +{ + if (data != (void*)&l_l4K) { fprintf(out,"wrong data for l_l4K\n"); exit(1); } + va_start_long(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + K b = va_arg_struct(alist, K); + long c = va_arg_long(alist); + long r = a1 + a2 + a3 + a4 + b.l1 + b.l2 + b.l3 + b.l4 + c; + fprintf(out,"long f(4*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,b.l1,b.l2,b.l3,b.l4,c); + fflush(out); + va_return_long(alist, r); +}} +void l_l5K_simulator (void* data, va_alist alist) +{ + if (data != (void*)&l_l5K) { fprintf(out,"wrong data for l_l5K\n"); exit(1); } + va_start_long(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + long a5 = va_arg_long(alist); + K b = va_arg_struct(alist, K); + long c = va_arg_long(alist); + long r = a1 + a2 + a3 + a4 + a5 + b.l1 + b.l2 + b.l3 + b.l4 + c; + fprintf(out,"long f(5*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,b.l1,b.l2,b.l3,b.l4,c); + fflush(out); + va_return_long(alist, r); +}} +void l_l6K_simulator (void* data, va_alist alist) +{ + if (data != (void*)&l_l6K) { fprintf(out,"wrong data for l_l6K\n"); exit(1); } + va_start_long(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + long a5 = va_arg_long(alist); + long a6 = va_arg_long(alist); + K b = va_arg_struct(alist, K); + long c = va_arg_long(alist); + long r = a1 + a2 + a3 + a4 + a5 + a6 + b.l1 + b.l2 + b.l3 + b.l4 + c; + fprintf(out,"long f(6*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,a6,b.l1,b.l2,b.l3,b.l4,c); + fflush(out); + va_return_long(alist, r); +}} +void f_f17l3L_simulator (void* data, va_alist alist) +{ + if (data != (void*)&f_f17l3L) { fprintf(out,"wrong data for f_f17l3L\n"); exit(1); } + va_start_float(alist); + {float a = va_arg_float(alist); + float b = va_arg_float(alist); + float c = va_arg_float(alist); + float d = va_arg_float(alist); + float e = va_arg_float(alist); + float f = va_arg_float(alist); + float g = va_arg_float(alist); + float h = va_arg_float(alist); + float i = va_arg_float(alist); + float j = va_arg_float(alist); + float k = va_arg_float(alist); + float l = va_arg_float(alist); + float m = va_arg_float(alist); + float n = va_arg_float(alist); + float o = va_arg_float(alist); + float p = va_arg_float(alist); + float q = va_arg_float(alist); + long s = va_arg_long(alist); + long t = va_arg_long(alist); + long u = va_arg_long(alist); + L z = va_arg_struct(alist, L); + float r = a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+s+t+u+z.l1+z.l2+z.l3+z.l4+z.l5+z.l6; + fprintf(out,"float f(17*float,3*int,L):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,s,t,u,z.l1,z.l2,z.l3,z.l4,z.l5,z.l6); + fflush(out); + va_return_float(alist, r); +}} +void d_d17l3L_simulator (void* data, va_alist alist) +{ + if (data != (void*)&d_d17l3L) { fprintf(out,"wrong data for d_d17l3L\n"); exit(1); } + va_start_double(alist); + {double a = va_arg_double(alist); + double b = va_arg_double(alist); + double c = va_arg_double(alist); + double d = va_arg_double(alist); + double e = va_arg_double(alist); + double f = va_arg_double(alist); + double g = va_arg_double(alist); + double h = va_arg_double(alist); + double i = va_arg_double(alist); + double j = va_arg_double(alist); + double k = va_arg_double(alist); + double l = va_arg_double(alist); + double m = va_arg_double(alist); + double n = va_arg_double(alist); + double o = va_arg_double(alist); + double p = va_arg_double(alist); + double q = va_arg_double(alist); + long s = va_arg_long(alist); + long t = va_arg_long(alist); + long u = va_arg_long(alist); + L z = va_arg_struct(alist, L); + double r = a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+s+t+u+z.l1+z.l2+z.l3+z.l4+z.l5+z.l6; + fprintf(out,"double f(17*double,3*int,L):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,s,t,u,z.l1,z.l2,z.l3,z.l4,z.l5,z.l6); + fflush(out); + va_return_double(alist, r); +}} +void ll_l2ll_simulator (void* data, va_alist alist) +{ + if (data != (void*)&ll_l2ll) { fprintf(out,"wrong data for ll_l2ll\n"); exit(1); } + va_start_longlong(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long long b = va_arg_longlong(alist); + long c = va_arg_long(alist); + long long r = (long long) (a1 + a2) + b + c; + fprintf(out,"long long f(2*long,long long,long):(%ld,%ld,0x%lx%08lx,%ld)",a1,a2,(long)(b>>32),(long)(b&0xffffffff),c); + fflush(out); + va_return_longlong(alist, r); +}} +void ll_l3ll_simulator (void* data, va_alist alist) +{ + if (data != (void*)&ll_l3ll) { fprintf(out,"wrong data for ll_l3ll\n"); exit(1); } + va_start_longlong(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long long b = va_arg_longlong(alist); + long c = va_arg_long(alist); + long long r = (long long) (a1 + a2 + a3) + b + c; + fprintf(out,"long long f(3*long,long long,long):(%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,(long)(b>>32),(long)(b&0xffffffff),c); + fflush(out); + va_return_longlong(alist, r); +}} +void ll_l4ll_simulator (void* data, va_alist alist) +{ + if (data != (void*)&ll_l4ll) { fprintf(out,"wrong data for ll_l4ll\n"); exit(1); } + va_start_longlong(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + long long b = va_arg_longlong(alist); + long c = va_arg_long(alist); + long long r = (long long) (a1 + a2 + a3 + a4) + b + c; + fprintf(out,"long long f(4*long,long long,long):(%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,(long)(b>>32),(long)(b&0xffffffff),c); + fflush(out); + va_return_longlong(alist, r); +}} +void ll_l5ll_simulator (void* data, va_alist alist) +{ + if (data != (void*)&ll_l5ll) { fprintf(out,"wrong data for ll_l5ll\n"); exit(1); } + va_start_longlong(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + long a5 = va_arg_long(alist); + long long b = va_arg_longlong(alist); + long c = va_arg_long(alist); + long long r = (long long) (a1 + a2 + a3 + a4 + a5) + b + c; + fprintf(out,"long long f(5*long,long long,long):(%ld,%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,a5,(long)(b>>32),(long)(b&0xffffffff),c); + fflush(out); + va_return_longlong(alist, r); +}} +void ll_l6ll_simulator (void* data, va_alist alist) +{ + if (data != (void*)&ll_l6ll) { fprintf(out,"wrong data for ll_l6ll\n"); exit(1); } + va_start_longlong(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + long a5 = va_arg_long(alist); + long a6 = va_arg_long(alist); + long long b = va_arg_longlong(alist); + long c = va_arg_long(alist); + long long r = (long long) (a1 + a2 + a3 + a4 + a5 + a6) + b + c; + fprintf(out,"long long f(6*long,long long,long):(%ld,%ld,%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,a5,a6,(long)(b>>32),(long)(b&0xffffffff),c); + fflush(out); + va_return_longlong(alist, r); +}} +void ll_l7ll_simulator (void* data, va_alist alist) +{ + if (data != (void*)&ll_l7ll) { fprintf(out,"wrong data for ll_l7ll\n"); exit(1); } + va_start_longlong(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + long a5 = va_arg_long(alist); + long a6 = va_arg_long(alist); + long a7 = va_arg_long(alist); + long long b = va_arg_longlong(alist); + long c = va_arg_long(alist); + long long r = (long long) (a1 + a2 + a3 + a4 + a5 + a6 + a7) + b + c; + fprintf(out,"long long f(7*long,long long,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,a5,a6,a7,(long)(b>>32),(long)(b&0xffffffff),c); + fflush(out); + va_return_longlong(alist, r); +}} +void d_l2d_simulator (void* data, va_alist alist) +{ + if (data != (void*)&d_l2d) { fprintf(out,"wrong data for d_l2d\n"); exit(1); } + va_start_double(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + double b = va_arg_double(alist); + long c = va_arg_long(alist); + double r = (double) (a1 + a2) + b + c; + fprintf(out,"double f(2*long,double,long):(%ld,%ld,%g,%ld)",a1,a2,b,c); + fflush(out); + va_return_double(alist, r); +}} +void d_l3d_simulator (void* data, va_alist alist) +{ + if (data != (void*)&d_l3d) { fprintf(out,"wrong data for d_l3d\n"); exit(1); } + va_start_double(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + double b = va_arg_double(alist); + long c = va_arg_long(alist); + double r = (double) (a1 + a2 + a3) + b + c; + fprintf(out,"double f(3*long,double,long):(%ld,%ld,%ld,%g,%ld)",a1,a2,a3,b,c); + fflush(out); + va_return_double(alist, r); +}} +void d_l4d_simulator (void* data, va_alist alist) +{ + if (data != (void*)&d_l4d) { fprintf(out,"wrong data for d_l4d\n"); exit(1); } + va_start_double(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + double b = va_arg_double(alist); + long c = va_arg_long(alist); + double r = (double) (a1 + a2 + a3 + a4) + b + c; + fprintf(out,"double f(4*long,double,long):(%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,b,c); + fflush(out); + va_return_double(alist, r); +}} +void d_l5d_simulator (void* data, va_alist alist) +{ + if (data != (void*)&d_l5d) { fprintf(out,"wrong data for d_l5d\n"); exit(1); } + va_start_double(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + long a5 = va_arg_long(alist); + double b = va_arg_double(alist); + long c = va_arg_long(alist); + double r = (double) (a1 + a2 + a3 + a4 + a5) + b + c; + fprintf(out,"double f(5*long,double,long):(%ld,%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,a5,b,c); + fflush(out); + va_return_double(alist, r); +}} +void d_l6d_simulator (void* data, va_alist alist) +{ + if (data != (void*)&d_l6d) { fprintf(out,"wrong data for d_l6d\n"); exit(1); } + va_start_double(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + long a5 = va_arg_long(alist); + long a6 = va_arg_long(alist); + double b = va_arg_double(alist); + long c = va_arg_long(alist); + double r = (double) (a1 + a2 + a3 + a4 + a5 + a6) + b + c; + fprintf(out,"double f(6*long,double,long):(%ld,%ld,%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,a5,a6,b,c); + fflush(out); + va_return_double(alist, r); +}} +void d_l7d_simulator (void* data, va_alist alist) +{ + if (data != (void*)&d_l7d) { fprintf(out,"wrong data for d_l7d\n"); exit(1); } + va_start_double(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + long a5 = va_arg_long(alist); + long a6 = va_arg_long(alist); + long a7 = va_arg_long(alist); + double b = va_arg_double(alist); + long c = va_arg_long(alist); + double r = (double) (a1 + a2 + a3 + a4 + a5 + a6 + a7) + b + c; + fprintf(out,"double f(7*long,double,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,a5,a6,a7,b,c); + fflush(out); + va_return_double(alist, r); +}} +void v_clobber_K_simulator (void* data, va_alist alist) +{ + if (data != (void*)&v_clobber_K) { fprintf(out,"wrong data for v_clobber_K\n"); exit(1); } + va_start_void(alist); + {K k = va_arg_struct(alist, K); + k.l1 += 1; + k.l2 += 10; + k.l3 += 100; + k.l4 += 1000; + va_return_void(alist); +}} + + +/* + * The way we run these tests - first call the function directly, then + * through vacall() - there is the danger that arguments or results seem + * to be passed correctly, but what we are seeing are in fact the vestiges + * (traces) or the previous call. This may seriously fake the test. + * Avoid this by clearing the registers between the first and the second call. + */ +long clear_traces_i (long a, long b, long c, long d, long e, long f, long g, long h, + long i, long j, long k, long l, long m, long n, long o, long p) +{ return 0; } +float clear_traces_f (float a, float b, float c, float d, float e, float f, float g, + float h, float i, float j, float k, float l, float m, float n, + float o, float p) +{ return 0.0; } +double clear_traces_d (double a, double b, double c, double d, double e, double f, double g, + double h, double i, double j, double k, double l, double m, double n, + double o, double p) +{ return 0.0; } +J clear_traces_J (void) +{ J j; j.l1 = j.l2 = 0; return j; } +void clear_traces (void) +{ clear_traces_i(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0); + clear_traces_f(0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0); + clear_traces_d(0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0); + clear_traces_J(); +} + +int main (void) +{ + callback_t callback; + + out = stdout; + + /* void tests */ + v_v(); + clear_traces(); + callback = alloc_callback(&v_v_simulator,(void*)&v_v); + ((void (*) (void)) callback) (); + + /* int tests */ + { int ir; + + ir = i_v(); + fprintf(out,"->%d\n",ir); + fflush(out); + ir = 0; clear_traces(); + callback = alloc_callback(&i_v_simulator,(void*)&i_v); + ir = ((int (*) (void)) callback) (); + fprintf(out,"->%d\n",ir); + fflush(out); + + ir = i_i(i1); + fprintf(out,"->%d\n",ir); + fflush(out); + ir = 0; clear_traces(); + callback = alloc_callback(&i_i_simulator,(void*)&i_i); + ir = ((int (*) (int)) callback) (i1); + fprintf(out,"->%d\n",ir); + fflush(out); + + ir = i_i2(i1,i2); + fprintf(out,"->%d\n",ir); + fflush(out); + ir = 0; clear_traces(); + callback = alloc_callback(&i_i2_simulator,(void*)&i_i2); + ir = ((int (*) (int,int)) callback) (i1,i2); + fprintf(out,"->%d\n",ir); + fflush(out); + + ir = i_i4(i1,i2,i3,i4); + fprintf(out,"->%d\n",ir); + fflush(out); + ir = 0; clear_traces(); + callback = alloc_callback(&i_i4_simulator,(void*)&i_i4); + ir = ((int (*) (int,int,int,int)) callback) (i1,i2,i3,i4); + fprintf(out,"->%d\n",ir); + fflush(out); + + ir = i_i8(i1,i2,i3,i4,i5,i6,i7,i8); + fprintf(out,"->%d\n",ir); + fflush(out); + ir = 0; clear_traces(); + callback = alloc_callback(&i_i8_simulator,(void*)&i_i8); + ir = ((int (*) (int,int,int,int,int,int,int,int)) callback) (i1,i2,i3,i4,i5,i6,i7,i8); + fprintf(out,"->%d\n",ir); + fflush(out); + + ir = i_i16(i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15,i16); + fprintf(out,"->%d\n",ir); + fflush(out); + ir = 0; clear_traces(); + callback = alloc_callback(&i_i16_simulator,(void*)&i_i16); + ir = ((int (*) (int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int)) callback) (i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15,i16); + fprintf(out,"->%d\n",ir); + fflush(out); + + ir = i_i32(i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15,i16,i17,i18,i19,i20,i21,i22,i23,i24,i25,i26,i27,i28,i29,i30,i31,i32); + fprintf(out,"->%d\n",ir); + fflush(out); + ir = 0; clear_traces(); + callback = alloc_callback(&i_i32_simulator,(void*)&i_i32); + ir = ((int (*) (int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int)) callback) (i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15,i16,i17,i18,i19,i20,i21,i22,i23,i24,i25,i26,i27,i28,i29,i30,i31,i32); + fprintf(out,"->%d\n",ir); + fflush(out); + } + + /* float tests */ + { float fr; + + fr = f_f(f1); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + callback = alloc_callback(&f_f_simulator,(void*)&f_f); + fr = ((float (*) (float)) callback) (f1); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f2(f1,f2); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + callback = alloc_callback(&f_f2_simulator,(void*)&f_f2); + fr = ((float (*) (float,float)) callback) (f1,f2); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f4(f1,f2,f3,f4); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + callback = alloc_callback(&f_f4_simulator,(void*)&f_f4); + fr = ((float (*) (float,float,float,float)) callback) (f1,f2,f3,f4); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f8(f1,f2,f3,f4,f5,f6,f7,f8); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + callback = alloc_callback(&f_f8_simulator,(void*)&f_f8); + fr = ((float (*) (float,float,float,float,float,float,float,float)) callback) (f1,f2,f3,f4,f5,f6,f7,f8); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f16(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + callback = alloc_callback(&f_f16_simulator,(void*)&f_f16); + fr = ((float (*) (float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float)) callback) (f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f24(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18,f19,f20,f21,f22,f23,f24); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + callback = alloc_callback(&f_f24_simulator,(void*)&f_f24); + fr = ((float (*) (float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float)) callback) (f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18,f19,f20,f21,f22,f23,f24); + fprintf(out,"->%g\n",fr); + fflush(out); + } + + /* double tests */ + { double dr; + + dr = d_d(d1); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + callback = alloc_callback(&d_d_simulator,(void*)&d_d); + dr = ((double (*) (double)) callback) (d1); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d2(d1,d2); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + callback = alloc_callback(&d_d2_simulator,(void*)&d_d2); + dr = ((double (*) (double,double)) callback) (d1,d2); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d4(d1,d2,d3,d4); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + callback = alloc_callback(&d_d4_simulator,(void*)&d_d4); + dr = ((double (*) (double,double,double,double)) callback) (d1,d2,d3,d4); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d8(d1,d2,d3,d4,d5,d6,d7,d8); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + callback = alloc_callback(&d_d8_simulator,(void*)&d_d8); + dr = ((double (*) (double,double,double,double,double,double,double,double)) callback) (d1,d2,d3,d4,d5,d6,d7,d8); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d16(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + callback = alloc_callback(&d_d16_simulator,(void*)&d_d16); + dr = ((double (*) (double,double,double,double,double,double,double,double,double,double,double,double,double,double,double,double)) callback) (d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16); + fprintf(out,"->%g\n",dr); + fflush(out); + } + + /* pointer tests */ + { void* vpr; + + vpr = vp_vpdpcpsp(&uc1,&d2,str3,&I4); + fprintf(out,"->0x%p\n",vpr); + fflush(out); + vpr = 0; clear_traces(); + callback = alloc_callback(&vp_vpdpcpsp_simulator,(void*)&vp_vpdpcpsp); + vpr = ((void* (*) (void*,double*,char*,Int*)) callback) (&uc1,&d2,str3,&I4); + fprintf(out,"->0x%p\n",vpr); + fflush(out); + } + + /* mixed number tests */ + { uchar ucr; + ushort usr; + float fr; + double dr; + long long llr; + + ucr = uc_ucsil(uc1,us2,ui3,ul4); + fprintf(out,"->%u\n",ucr); + fflush(out); + ucr = 0; clear_traces(); + callback = alloc_callback(&uc_ucsil_simulator,(void*)&uc_ucsil); + ucr = ((uchar (*) (uchar,ushort,uint,ulong)) callback) (uc1,us2,ui3,ul4); + fprintf(out,"->%u\n",ucr); + fflush(out); + + dr = d_iidd(i1,i2,d3,d4); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + callback = alloc_callback(&d_iidd_simulator,(void*)&d_iidd); + dr = ((double (*) (int,int,double,double)) callback) (i1,i2,d3,d4); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_iiidi(i1,i2,i3,d4,i5); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + callback = alloc_callback(&d_iiidi_simulator,(void*)&d_iiidi); + dr = ((double (*) (int,int,int,double,int)) callback) (i1,i2,i3,d4,i5); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_idid(i1,d2,i3,d4); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + callback = alloc_callback(&d_idid_simulator,(void*)&d_idid); + dr = ((double (*) (int,double,int,double)) callback) (i1,d2,i3,d4); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_fdi(f1,d2,i3); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + callback = alloc_callback(&d_fdi_simulator,(void*)&d_fdi); + dr = ((double (*) (float,double,int)) callback) (f1,d2,i3); + fprintf(out,"->%g\n",dr); + fflush(out); + + usr = us_cdcd(c1,d2,c3,d4); + fprintf(out,"->%u\n",usr); + fflush(out); + usr = 0; clear_traces(); + callback = alloc_callback(&us_cdcd_simulator,(void*)&us_cdcd); + usr = ((ushort (*) (char,double,char,double)) callback) (c1,d2,c3,d4); + fprintf(out,"->%u\n",usr); + fflush(out); + + llr = ll_iiilli(i1,i2,i3,ll1,i13); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + llr = 0; clear_traces(); + callback = alloc_callback(&ll_iiilli_simulator,(void*)&ll_iiilli); + llr = ((long long (*) (int,int,int,long long,int)) callback) (i1,i2,i3,ll1,i13); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + + llr = ll_flli(f13,ll1,i13); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + llr = 0; clear_traces(); + callback = alloc_callback(&ll_flli_simulator,(void*)&ll_flli); + llr = ((long long (*) (float,long long,int)) callback) (f13,ll1,i13); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + + fr = f_fi(f1,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + callback = alloc_callback(&f_fi_simulator,(void*)&f_fi); + fr = ((float (*) (float,int)) callback) (f1,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f2i(f1,f2,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + callback = alloc_callback(&f_f2i_simulator,(void*)&f_f2i); + fr = ((float (*) (float,float,int)) callback) (f1,f2,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f3i(f1,f2,f3,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + callback = alloc_callback(&f_f3i_simulator,(void*)&f_f3i); + fr = ((float (*) (float,float,float,int)) callback) (f1,f2,f3,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f4i(f1,f2,f3,f4,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + callback = alloc_callback(&f_f4i_simulator,(void*)&f_f4i); + fr = ((float (*) (float,float,float,float,int)) callback) (f1,f2,f3,f4,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f7i(f1,f2,f3,f4,f5,f6,f7,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + callback = alloc_callback(&f_f7i_simulator,(void*)&f_f7i); + fr = ((float (*) (float,float,float,float,float,float,float,int)) callback) (f1,f2,f3,f4,f5,f6,f7,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f8i(f1,f2,f3,f4,f5,f6,f7,f8,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + callback = alloc_callback(&f_f8i_simulator,(void*)&f_f8i); + fr = ((float (*) (float,float,float,float,float,float,float,float,int)) callback) (f1,f2,f3,f4,f5,f6,f7,f8,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f12i(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + callback = alloc_callback(&f_f12i_simulator,(void*)&f_f12i); + fr = ((float (*) (float,float,float,float,float,float,float,float,float,float,float,float,int)) callback) (f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f13i(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + callback = alloc_callback(&f_f13i_simulator,(void*)&f_f13i); + fr = ((float (*) (float,float,float,float,float,float,float,float,float,float,float,float,float,int)) callback) (f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + + dr = d_di(d1,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + callback = alloc_callback(&d_di_simulator,(void*)&d_di); + dr = ((double (*) (double,int)) callback) (d1,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d2i(d1,d2,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + callback = alloc_callback(&d_d2i_simulator,(void*)&d_d2i); + dr = ((double (*) (double,double,int)) callback) (d1,d2,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d3i(d1,d2,d3,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + callback = alloc_callback(&d_d3i_simulator,(void*)&d_d3i); + dr = ((double (*) (double,double,double,int)) callback) (d1,d2,d3,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d4i(d1,d2,d3,d4,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + callback = alloc_callback(&d_d4i_simulator,(void*)&d_d4i); + dr = ((double (*) (double,double,double,double,int)) callback) (d1,d2,d3,d4,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d7i(d1,d2,d3,d4,d5,d6,d7,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + callback = alloc_callback(&d_d7i_simulator,(void*)&d_d7i); + dr = ((double (*) (double,double,double,double,double,double,double,int)) callback) (d1,d2,d3,d4,d5,d6,d7,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d8i(d1,d2,d3,d4,d5,d6,d7,d8,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + callback = alloc_callback(&d_d8i_simulator,(void*)&d_d8i); + dr = ((double (*) (double,double,double,double,double,double,double,double,int)) callback) (d1,d2,d3,d4,d5,d6,d7,d8,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d12i(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + callback = alloc_callback(&d_d12i_simulator,(void*)&d_d12i); + dr = ((double (*) (double,double,double,double,double,double,double,double,double,double,double,double,int)) callback) (d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d13i(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + callback = alloc_callback(&d_d13i_simulator,(void*)&d_d13i); + dr = ((double (*) (double,double,double,double,double,double,double,double,double,double,double,double,double,int)) callback) (d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + } + + /* small structure return tests */ + { + Size1 r = S1_v(); + fprintf(out,"->{%c}\n",r.x1); + fflush(out); + memset(&r,0,sizeof(r)); clear_traces(); + callback = alloc_callback(&S1_v_simulator,(void*)&S1_v); + r = ((Size1 (*) (void)) callback) (); + fprintf(out,"->{%c}\n",r.x1); + fflush(out); + } + { + Size2 r = S2_v(); + fprintf(out,"->{%c%c}\n",r.x1,r.x2); + fflush(out); + memset(&r,0,sizeof(r)); clear_traces(); + callback = alloc_callback(&S2_v_simulator,(void*)&S2_v); + r = ((Size2 (*) (void)) callback) (); + fprintf(out,"->{%c%c}\n",r.x1,r.x2); + fflush(out); + } + { + Size3 r = S3_v(); + fprintf(out,"->{%c%c%c}\n",r.x1,r.x2,r.x3); + fflush(out); + memset(&r,0,sizeof(r)); clear_traces(); + callback = alloc_callback(&S3_v_simulator,(void*)&S3_v); + r = ((Size3 (*) (void)) callback) (); + fprintf(out,"->{%c%c%c}\n",r.x1,r.x2,r.x3); + fflush(out); + } + { + Size4 r = S4_v(); + fprintf(out,"->{%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4); + fflush(out); + memset(&r,0,sizeof(r)); clear_traces(); + callback = alloc_callback(&S4_v_simulator,(void*)&S4_v); + r = ((Size4 (*) (void)) callback) (); + fprintf(out,"->{%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4); + fflush(out); + } + { + Size7 r = S7_v(); + fprintf(out,"->{%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7); + fflush(out); + memset(&r,0,sizeof(r)); clear_traces(); + callback = alloc_callback(&S7_v_simulator,(void*)&S7_v); + r = ((Size7 (*) (void)) callback) (); + fprintf(out,"->{%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7); + fflush(out); + } + { + Size8 r = S8_v(); + fprintf(out,"->{%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8); + fflush(out); + memset(&r,0,sizeof(r)); clear_traces(); + callback = alloc_callback(&S8_v_simulator,(void*)&S8_v); + r = ((Size8 (*) (void)) callback) (); + fprintf(out,"->{%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8); + fflush(out); + } + { + Size12 r = S12_v(); + fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12); + fflush(out); + memset(&r,0,sizeof(r)); clear_traces(); + callback = alloc_callback(&S12_v_simulator,(void*)&S12_v); + r = ((Size12 (*) (void)) callback) (); + fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12); + fflush(out); + } + { + Size15 r = S15_v(); + fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15); + fflush(out); + memset(&r,0,sizeof(r)); clear_traces(); + callback = alloc_callback(&S15_v_simulator,(void*)&S15_v); + r = ((Size15 (*) (void)) callback) (); + fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15); + fflush(out); + } + { + Size16 r = S16_v(); + fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15,r.x16); + fflush(out); + memset(&r,0,sizeof(r)); clear_traces(); + callback = alloc_callback(&S16_v_simulator,(void*)&S16_v); + r = ((Size16 (*) (void)) callback) (); + fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15,r.x16); + fflush(out); + } + + /* structure tests */ + { Int Ir; + Char Cr; + Float Fr; + Double Dr; + J Jr; + T Tr; + X Xr; + + Ir = I_III(I1,I2,I3); + fprintf(out,"->{%d}\n",Ir.x); + fflush(out); + Ir.x = 0; clear_traces(); + callback = alloc_callback(&I_III_simulator,(void*)&I_III); + Ir = ((Int (*) (Int,Int,Int)) callback) (I1,I2,I3); + fprintf(out,"->{%d}\n",Ir.x); + fflush(out); + +#ifndef SKIP_EXTRA_STRUCTS + Cr = C_CdC(C1,d2,C3); + fprintf(out,"->{'%c'}\n",Cr.x); + fflush(out); + Cr.x = '\0'; clear_traces(); + callback = alloc_callback(&C_CdC_simulator,(void*)&C_CdC); + Cr = ((Char (*) (Char,double,Char)) callback) (C1,d2,C3); + fprintf(out,"->{'%c'}\n",Cr.x); + fflush(out); + + Fr = F_Ffd(F1,f2,d3); + fprintf(out,"->{%g}\n",Fr.x); + fflush(out); + Fr.x = 0.0; clear_traces(); + callback = alloc_callback(&F_Ffd_simulator,(void*)&F_Ffd); + Fr = ((Float (*) (Float,float,double)) callback) (F1,f2,d3); + fprintf(out,"->{%g}\n",Fr.x); + fflush(out); + + Dr = D_fDd(f1,D2,d3); + fprintf(out,"->{%g}\n",Dr.x); + fflush(out); + Dr.x = 0.0; clear_traces(); + callback = alloc_callback(&D_fDd_simulator,(void*)&D_fDd); + Dr = ((Double (*) (float,Double,double)) callback) (f1,D2,d3); + fprintf(out,"->{%g}\n",Dr.x); + fflush(out); + + Dr = D_Dfd(D1,f2,d3); + fprintf(out,"->{%g}\n",Dr.x); + fflush(out); + Dr.x = 0.0; clear_traces(); + callback = alloc_callback(&D_Dfd_simulator,(void*)&D_Dfd); + Dr = ((Double (*) (Double,float,double)) callback) (D1,f2,d3); + fprintf(out,"->{%g}\n",Dr.x); + fflush(out); +#endif + + Jr = J_JiJ(J1,i2,J2); + fprintf(out,"->{%ld,%ld}\n",Jr.l1,Jr.l2); + fflush(out); + Jr.l1 = Jr.l2 = 0; clear_traces(); + callback = alloc_callback(&J_JiJ_simulator,(void*)&J_JiJ); + Jr = ((J (*) (J,int,J)) callback) (J1,i2,J2); + fprintf(out,"->{%ld,%ld}\n",Jr.l1,Jr.l2); + fflush(out); + +#ifndef SKIP_EXTRA_STRUCTS +#ifndef SKIP_T + Tr = T_TcT(T1,' ',T2); + fprintf(out,"->{\"%c%c%c\"}\n",Tr.c[0],Tr.c[1],Tr.c[2]); + fflush(out); + Tr.c[0] = Tr.c[1] = Tr.c[2] = 0; clear_traces(); + callback = alloc_callback(&T_TcT_simulator,(void*)&T_TcT); + Tr = ((T (*) (T,char,T)) callback) (T1,' ',T2); + fprintf(out,"->{\"%c%c%c\"}\n",Tr.c[0],Tr.c[1],Tr.c[2]); + fflush(out); +#endif + +#ifndef SKIP_X + Xr = X_BcdB(B1,c2,d3,B2); + fprintf(out,"->{\"%s\",'%c'}\n",Xr.c,Xr.c1); + fflush(out); + Xr.c[0]=Xr.c1='\0'; clear_traces(); + callback = alloc_callback(&X_BcdB_simulator,(void*)&X_BcdB); + Xr = ((X (*) (B,char,double,B)) callback) (B1,c2,d3,B2); + fprintf(out,"->{\"%s\",'%c'}\n",Xr.c,Xr.c1); + fflush(out); +#endif +#endif + } + + /* gpargs boundary tests */ + { long lr; + long long llr; + float fr; + double dr; + + lr = l_l0J(J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + callback = alloc_callback(&l_l0J_simulator,(void*)l_l0J); + lr = ((long (*) (J,long)) callback) (J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l1J(l1,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + callback = alloc_callback(&l_l1J_simulator,(void*)l_l1J); + lr = ((long (*) (long,J,long)) callback) (l1,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l2J(l1,l2,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + callback = alloc_callback(&l_l2J_simulator,(void*)l_l2J); + lr = ((long (*) (long,long,J,long)) callback) (l1,l2,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l3J(l1,l2,l3,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + callback = alloc_callback(&l_l3J_simulator,(void*)l_l3J); + lr = ((long (*) (long,long,long,J,long)) callback) (l1,l2,l3,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l4J(l1,l2,l3,l4,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + callback = alloc_callback(&l_l4J_simulator,(void*)l_l4J); + lr = ((long (*) (long,long,long,long,J,long)) callback) (l1,l2,l3,l4,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l5J(l1,l2,l3,l4,l5,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + callback = alloc_callback(&l_l5J_simulator,(void*)l_l5J); + lr = ((long (*) (long,long,long,long,long,J,long)) callback) (l1,l2,l3,l4,l5,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l6J(l1,l2,l3,l4,l5,l6,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + callback = alloc_callback(&l_l6J_simulator,(void*)l_l6J); + lr = ((long (*) (long,long,long,long,long,long,J,long)) callback) (l1,l2,l3,l4,l5,l6,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l7J(l1,l2,l3,l4,l5,l6,l7,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + callback = alloc_callback(&l_l7J_simulator,(void*)l_l7J); + lr = ((long (*) (long,long,long,long,long,long,long,J,long)) callback) (l1,l2,l3,l4,l5,l6,l7,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l0K(K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + callback = alloc_callback(&l_l0K_simulator,(void*)l_l0K); + lr = ((long (*) (K,long)) callback) (K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l1K(l1,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + callback = alloc_callback(&l_l1K_simulator,(void*)l_l1K); + lr = ((long (*) (long,K,long)) callback) (l1,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l2K(l1,l2,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + callback = alloc_callback(&l_l2K_simulator,(void*)l_l2K); + lr = ((long (*) (long,long,K,long)) callback) (l1,l2,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l3K(l1,l2,l3,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + callback = alloc_callback(&l_l3K_simulator,(void*)l_l3K); + lr = ((long (*) (long,long,long,K,long)) callback) (l1,l2,l3,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l4K(l1,l2,l3,l4,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + callback = alloc_callback(&l_l4K_simulator,(void*)l_l4K); + lr = ((long (*) (long,long,long,long,K,long)) callback) (l1,l2,l3,l4,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l5K(l1,l2,l3,l4,l5,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + callback = alloc_callback(&l_l5K_simulator,(void*)l_l5K); + lr = ((long (*) (long,long,long,long,long,K,long)) callback) (l1,l2,l3,l4,l5,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l6K(l1,l2,l3,l4,l5,l6,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + callback = alloc_callback(&l_l6K_simulator,(void*)l_l6K); + lr = ((long (*) (long,long,long,long,long,long,K,long)) callback) (l1,l2,l3,l4,l5,l6,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + fr = f_f17l3L(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,l6,l7,l8,L1); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + callback = alloc_callback(&f_f17l3L_simulator,(void*)&f_f17l3L); + fr = ((float (*) (float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,long,long,long,L)) callback) (f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,l6,l7,l8,L1); + fprintf(out,"->%g\n",fr); + fflush(out); + + dr = d_d17l3L(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16,d17,l6,l7,l8,L1); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + callback = alloc_callback(&d_d17l3L_simulator,(void*)&d_d17l3L); + dr = ((double (*) (double,double,double,double,double,double,double,double,double,double,double,double,double,double,double,double,double,long,long,long,L)) callback) (d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16,d17,l6,l7,l8,L1); + fprintf(out,"->%g\n",dr); + fflush(out); + + llr = ll_l2ll(l1,l2,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + llr = 0; clear_traces(); + callback = alloc_callback(&ll_l2ll_simulator,(void*)ll_l2ll); + llr = ((long long (*) (long,long,long long,long)) callback) (l1,l2,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + + llr = ll_l3ll(l1,l2,l3,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + llr = 0; clear_traces(); + callback = alloc_callback(&ll_l3ll_simulator,(void*)ll_l3ll); + llr = ((long long (*) (long,long,long,long long,long)) callback) (l1,l2,l3,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + + llr = ll_l4ll(l1,l2,l3,l4,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + llr = 0; clear_traces(); + callback = alloc_callback(&ll_l4ll_simulator,(void*)ll_l4ll); + llr = ((long long (*) (long,long,long,long,long long,long)) callback) (l1,l2,l3,l4,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + + llr = ll_l5ll(l1,l2,l3,l4,l5,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + llr = 0; clear_traces(); + callback = alloc_callback(&ll_l5ll_simulator,(void*)ll_l5ll); + llr = ((long long (*) (long,long,long,long,long,long long,long)) callback) (l1,l2,l3,l4,l5,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + + llr = ll_l6ll(l1,l2,l3,l4,l5,l6,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + llr = 0; clear_traces(); + callback = alloc_callback(&ll_l6ll_simulator,(void*)ll_l6ll); + llr = ((long long (*) (long,long,long,long,long,long,long long,long)) callback) (l1,l2,l3,l4,l5,l6,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + + llr = ll_l7ll(l1,l2,l3,l4,l5,l6,l7,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + llr = 0; clear_traces(); + callback = alloc_callback(&ll_l7ll_simulator,(void*)ll_l7ll); + llr = ((long long (*) (long,long,long,long,long,long,long,long long,long)) callback) (l1,l2,l3,l4,l5,l6,l7,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + + dr = d_l2d(l1,l2,ll1,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + callback = alloc_callback(&d_l2d_simulator,(void*)d_l2d); + dr = ((double (*) (long,long,double,long)) callback) (l1,l2,ll1,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_l3d(l1,l2,l3,ll1,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + callback = alloc_callback(&d_l3d_simulator,(void*)d_l3d); + dr = ((double (*) (long,long,long,double,long)) callback) (l1,l2,l3,ll1,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_l4d(l1,l2,l3,l4,ll1,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + callback = alloc_callback(&d_l4d_simulator,(void*)d_l4d); + dr = ((double (*) (long,long,long,long,double,long)) callback) (l1,l2,l3,l4,ll1,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_l5d(l1,l2,l3,l4,l5,ll1,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + callback = alloc_callback(&d_l5d_simulator,(void*)d_l5d); + dr = ((double (*) (long,long,long,long,long,double,long)) callback) (l1,l2,l3,l4,l5,ll1,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_l6d(l1,l2,l3,l4,l5,l6,ll1,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + callback = alloc_callback(&d_l6d_simulator,(void*)d_l6d); + dr = ((double (*) (long,long,long,long,long,long,double,long)) callback) (l1,l2,l3,l4,l5,l6,ll1,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_l7d(l1,l2,l3,l4,l5,l6,l7,ll1,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + callback = alloc_callback(&d_l7d_simulator,(void*)d_l7d); + dr = ((double (*) (long,long,long,long,long,long,long,double,long)) callback) (l1,l2,l3,l4,l5,l6,l7,ll1,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + } + + /* by-value tests */ + /* This test is trivial, since a copy of k is allocated on the callee's stack. + But anyway... */ + { K k; + + k.l1 = l1; + k.l2 = l2; + k.l3 = l3; + k.l4 = l4; + fprintf(out,"by_value:%ld,%ld,%ld,%ld\n",k.l1,k.l2,k.l3,k.l4); + fflush(out); + clear_traces(); + callback = alloc_callback(&v_clobber_K_simulator,(void*)v_clobber_K); + ((void (*) (K)) callback) (k); + fprintf(out,"by_value:%ld,%ld,%ld,%ld\n",k.l1,k.l2,k.l3,k.l4); + fflush(out); + } + + exit(0); +} diff --git a/callback/trampoline_r/COPYING b/callback/trampoline_r/COPYING new file mode 100644 index 0000000..a3d1815 --- /dev/null +++ b/callback/trampoline_r/COPYING @@ -0,0 +1,340 @@ + GNU GENERAL PUBLIC LICENSE + Version 2, June 1991 + + Copyright (C) 1989, 1991 Free Software Foundation, Inc. + 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + + Preamble + + The licenses for most software are designed to take away your +freedom to share and change it. By contrast, the GNU General Public +License is intended to guarantee your freedom to share and change free +software--to make sure the software is free for all its users. This +General Public License applies to most of the Free Software +Foundation's software and to any other program whose authors commit to +using it. (Some other Free Software Foundation software is covered by +the GNU Library General Public License instead.) You can apply it to +your programs, too. + + When we speak of free software, we are referring to freedom, not +price. Our General Public Licenses are designed to make sure that you +have the freedom to distribute copies of free software (and charge for +this service if you wish), that you receive source code or can get it +if you want it, that you can change the software or use pieces of it +in new free programs; and that you know you can do these things. + + To protect your rights, we need to make restrictions that forbid +anyone to deny you these rights or to ask you to surrender the rights. +These restrictions translate to certain responsibilities for you if you +distribute copies of the software, or if you modify it. + + For example, if you distribute copies of such a program, whether +gratis or for a fee, you must give the recipients all the rights that +you have. You must make sure that they, too, receive or can get the +source code. And you must show them these terms so they know their +rights. + + We protect your rights with two steps: (1) copyright the software, and +(2) offer you this license which gives you legal permission to copy, +distribute and/or modify the software. + + Also, for each author's protection and ours, we want to make certain +that everyone understands that there is no warranty for this free +software. If the software is modified by someone else and passed on, we +want its recipients to know that what they have is not the original, so +that any problems introduced by others will not reflect on the original +authors' reputations. + + Finally, any free program is threatened constantly by software +patents. We wish to avoid the danger that redistributors of a free +program will individually obtain patent licenses, in effect making the +program proprietary. To prevent this, we have made it clear that any +patent must be licensed for everyone's free use or not licensed at all. + + The precise terms and conditions for copying, distribution and +modification follow. + + GNU GENERAL PUBLIC LICENSE + TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION + + 0. This License applies to any program or other work which contains +a notice placed by the copyright holder saying it may be distributed +under the terms of this General Public License. The "Program", below, +refers to any such program or work, and a "work based on the Program" +means either the Program or any derivative work under copyright law: +that is to say, a work containing the Program or a portion of it, +either verbatim or with modifications and/or translated into another +language. (Hereinafter, translation is included without limitation in +the term "modification".) Each licensee is addressed as "you". + +Activities other than copying, distribution and modification are not +covered by this License; they are outside its scope. The act of +running the Program is not restricted, and the output from the Program +is covered only if its contents constitute a work based on the +Program (independent of having been made by running the Program). +Whether that is true depends on what the Program does. + + 1. You may copy and distribute verbatim copies of the Program's +source code as you receive it, in any medium, provided that you +conspicuously and appropriately publish on each copy an appropriate +copyright notice and disclaimer of warranty; keep intact all the +notices that refer to this License and to the absence of any warranty; +and give any other recipients of the Program a copy of this License +along with the Program. + +You may charge a fee for the physical act of transferring a copy, and +you may at your option offer warranty protection in exchange for a fee. + + 2. You may modify your copy or copies of the Program or any portion +of it, thus forming a work based on the Program, and copy and +distribute such modifications or work under the terms of Section 1 +above, provided that you also meet all of these conditions: + + a) You must cause the modified files to carry prominent notices + stating that you changed the files and the date of any change. + + b) You must cause any work that you distribute or publish, that in + whole or in part contains or is derived from the Program or any + part thereof, to be licensed as a whole at no charge to all third + parties under the terms of this License. + + c) If the modified program normally reads commands interactively + when run, you must cause it, when started running for such + interactive use in the most ordinary way, to print or display an + announcement including an appropriate copyright notice and a + notice that there is no warranty (or else, saying that you provide + a warranty) and that users may redistribute the program under + these conditions, and telling the user how to view a copy of this + License. (Exception: if the Program itself is interactive but + does not normally print such an announcement, your work based on + the Program is not required to print an announcement.) + +These requirements apply to the modified work as a whole. If +identifiable sections of that work are not derived from the Program, +and can be reasonably considered independent and separate works in +themselves, then this License, and its terms, do not apply to those +sections when you distribute them as separate works. But when you +distribute the same sections as part of a whole which is a work based +on the Program, the distribution of the whole must be on the terms of +this License, whose permissions for other licensees extend to the +entire whole, and thus to each and every part regardless of who wrote it. + +Thus, it is not the intent of this section to claim rights or contest +your rights to work written entirely by you; rather, the intent is to +exercise the right to control the distribution of derivative or +collective works based on the Program. + +In addition, mere aggregation of another work not based on the Program +with the Program (or with a work based on the Program) on a volume of +a storage or distribution medium does not bring the other work under +the scope of this License. + + 3. You may copy and distribute the Program (or a work based on it, +under Section 2) in object code or executable form under the terms of +Sections 1 and 2 above provided that you also do one of the following: + + a) Accompany it with the complete corresponding machine-readable + source code, which must be distributed under the terms of Sections + 1 and 2 above on a medium customarily used for software interchange; or, + + b) Accompany it with a written offer, valid for at least three + years, to give any third party, for a charge no more than your + cost of physically performing source distribution, a complete + machine-readable copy of the corresponding source code, to be + distributed under the terms of Sections 1 and 2 above on a medium + customarily used for software interchange; or, + + c) Accompany it with the information you received as to the offer + to distribute corresponding source code. (This alternative is + allowed only for noncommercial distribution and only if you + received the program in object code or executable form with such + an offer, in accord with Subsection b above.) + +The source code for a work means the preferred form of the work for +making modifications to it. For an executable work, complete source +code means all the source code for all modules it contains, plus any +associated interface definition files, plus the scripts used to +control compilation and installation of the executable. However, as a +special exception, the source code distributed need not include +anything that is normally distributed (in either source or binary +form) with the major components (compiler, kernel, and so on) of the +operating system on which the executable runs, unless that component +itself accompanies the executable. + +If distribution of executable or object code is made by offering +access to copy from a designated place, then offering equivalent +access to copy the source code from the same place counts as +distribution of the source code, even though third parties are not +compelled to copy the source along with the object code. + + 4. You may not copy, modify, sublicense, or distribute the Program +except as expressly provided under this License. Any attempt +otherwise to copy, modify, sublicense or distribute the Program is +void, and will automatically terminate your rights under this License. +However, parties who have received copies, or rights, from you under +this License will not have their licenses terminated so long as such +parties remain in full compliance. + + 5. You are not required to accept this License, since you have not +signed it. However, nothing else grants you permission to modify or +distribute the Program or its derivative works. These actions are +prohibited by law if you do not accept this License. Therefore, by +modifying or distributing the Program (or any work based on the +Program), you indicate your acceptance of this License to do so, and +all its terms and conditions for copying, distributing or modifying +the Program or works based on it. + + 6. Each time you redistribute the Program (or any work based on the +Program), the recipient automatically receives a license from the +original licensor to copy, distribute or modify the Program subject to +these terms and conditions. You may not impose any further +restrictions on the recipients' exercise of the rights granted herein. +You are not responsible for enforcing compliance by third parties to +this License. + + 7. If, as a consequence of a court judgment or allegation of patent +infringement or for any other reason (not limited to patent issues), +conditions are imposed on you (whether by court order, agreement or +otherwise) that contradict the conditions of this License, they do not +excuse you from the conditions of this License. If you cannot +distribute so as to satisfy simultaneously your obligations under this +License and any other pertinent obligations, then as a consequence you +may not distribute the Program at all. For example, if a patent +license would not permit royalty-free redistribution of the Program by +all those who receive copies directly or indirectly through you, then +the only way you could satisfy both it and this License would be to +refrain entirely from distribution of the Program. + +If any portion of this section is held invalid or unenforceable under +any particular circumstance, the balance of the section is intended to +apply and the section as a whole is intended to apply in other +circumstances. + +It is not the purpose of this section to induce you to infringe any +patents or other property right claims or to contest validity of any +such claims; this section has the sole purpose of protecting the +integrity of the free software distribution system, which is +implemented by public license practices. Many people have made +generous contributions to the wide range of software distributed +through that system in reliance on consistent application of that +system; it is up to the author/donor to decide if he or she is willing +to distribute software through any other system and a licensee cannot +impose that choice. + +This section is intended to make thoroughly clear what is believed to +be a consequence of the rest of this License. + + 8. If the distribution and/or use of the Program is restricted in +certain countries either by patents or by copyrighted interfaces, the +original copyright holder who places the Program under this License +may add an explicit geographical distribution limitation excluding +those countries, so that distribution is permitted only in or among +countries not thus excluded. In such case, this License incorporates +the limitation as if written in the body of this License. + + 9. The Free Software Foundation may publish revised and/or new versions +of the General Public License from time to time. Such new versions will +be similar in spirit to the present version, but may differ in detail to +address new problems or concerns. + +Each version is given a distinguishing version number. If the Program +specifies a version number of this License which applies to it and "any +later version", you have the option of following the terms and conditions +either of that version or of any later version published by the Free +Software Foundation. If the Program does not specify a version number of +this License, you may choose any version ever published by the Free Software +Foundation. + + 10. If you wish to incorporate parts of the Program into other free +programs whose distribution conditions are different, write to the author +to ask for permission. For software which is copyrighted by the Free +Software Foundation, write to the Free Software Foundation; we sometimes +make exceptions for this. Our decision will be guided by the two goals +of preserving the free status of all derivatives of our free software and +of promoting the sharing and reuse of software generally. + + NO WARRANTY + + 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY +FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN +OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES +PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED +OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF +MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS +TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE +PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, +REPAIR OR CORRECTION. + + 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING +WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR +REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, +INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING +OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED +TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY +YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER +PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE +POSSIBILITY OF SUCH DAMAGES. + + END OF TERMS AND CONDITIONS + + Appendix: How to Apply These Terms to Your New Programs + + If you develop a new program, and you want it to be of the greatest +possible use to the public, the best way to achieve this is to make it +free software which everyone can redistribute and change under these terms. + + To do so, attach the following notices to the program. It is safest +to attach them to the start of each source file to most effectively +convey the exclusion of warranty; and each file should have at least +the "copyright" line and a pointer to where the full notice is found. + + + Copyright (C) + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software Foundation, + Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. + +Also add information on how to contact you by electronic and paper mail. + +If the program is interactive, make it output a short notice like this +when it starts in an interactive mode: + + Gnomovision version 69, Copyright (C) year name of author + Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. + This is free software, and you are welcome to redistribute it + under certain conditions; type `show c' for details. + +The hypothetical commands `show w' and `show c' should show the appropriate +parts of the General Public License. Of course, the commands you use may +be called something other than `show w' and `show c'; they could even be +mouse-clicks or menu items--whatever suits your program. + +You should also get your employer (if you work as a programmer) or your +school, if any, to sign a "copyright disclaimer" for the program, if +necessary. Here is a sample; alter the names: + + Yoyodyne, Inc., hereby disclaims all copyright interest in the program + `Gnomovision' (which makes passes at compilers) written by James Hacker. + + , 1 April 1989 + Ty Coon, President of Vice + +This General Public License does not permit incorporating your program into +proprietary programs. If your program is a subroutine library, you may +consider it more useful to permit linking proprietary applications with the +library. If this is what you want to do, use the GNU Library General +Public License instead of this License. diff --git a/callback/trampoline_r/Makefile.devel b/callback/trampoline_r/Makefile.devel new file mode 100644 index 0000000..7abb351 --- /dev/null +++ b/callback/trampoline_r/Makefile.devel @@ -0,0 +1,217 @@ +# This is the developer's -*-Makefile-*-, not the user's makefile. +# Do not use it unless you know exactly what you do! + +THISFILE = Makefile.devel +RM = rm -f + +# ============ Rules that require cross-compilation tools ============ + +GCC = gcc +GCCFLAGS = -O2 -fomit-frame-pointer -fPIC +CPP = $(GCC) -E +CROSS_TOOL = cross + +precompiled : \ + cache-sparc-macro.S cache-sparc64-macro.S \ + cache-alpha-macro.S \ + cache-hppa-macro.S cache-hppa64-macro.S \ + cache-powerpc-linux-macro.S cache-powerpc-macos.s \ + cache-powerpc64-elfv2-macro.S + + +cache-sparc-linux.s : cache-sparc.c $(THISFILE) + $(CROSS_TOOL) sparc-linux gcc -V 3.1 $(GCCFLAGS) -D__sparc__ -S cache-sparc.c -o cache-sparc-linux.s + +cache-sparc-macro.S : cache-sparc-linux.s ../../common/asm-sparc.sh ../../common/noexecstack.h $(THISFILE) + (echo '#include "asm-sparc.h"' ; ../../common/asm-sparc.sh < cache-sparc-linux.s ; cat ../../common/noexecstack.h) > cache-sparc-macro.S + +cache-sparc64-linux.s : cache-sparc.c $(THISFILE) + $(CROSS_TOOL) sparc64-linux gcc -V 4.0.2 $(GCCFLAGS) -D__sparc64__ -S cache-sparc.c -o cache-sparc64-linux.s + +cache-sparc64-macro.S : cache-sparc64-linux.s ../../common/asm-sparc.sh ../../common/noexecstack.h $(THISFILE) + (echo '#include "asm-sparc.h"' ; ../../common/asm-sparc.sh < cache-sparc64-linux.s ; cat ../../common/noexecstack.h) > cache-sparc64-macro.S + + +cache-alpha-linux.s : cache-alpha.c $(THISFILE) + $(CROSS_TOOL) alpha-linux gcc -V 4.0.2 $(GCCFLAGS) -D__alpha__ -S cache-alpha.c -o cache-alpha-linux.s + +cache-alpha-macro.S : cache-alpha-linux.s ../../common/asm-alpha.sh ../../common/noexecstack.h $(THISFILE) + (../../common/asm-alpha.sh < cache-alpha-linux.s ; cat ../../common/noexecstack.h) > cache-alpha-macro.S + + +cache-hppa-linux.s : cache-hppa.c $(THISFILE) + $(CROSS_TOOL) hppa-linux gcc -V 3.1 $(GCCFLAGS) -D__hppa__ -S cache-hppa.c -o cache-hppa-linux.s + +cache-hppa-macro.S : cache-hppa-linux.s ../../common/asm-hppa.sh ../../common/noexecstack.h $(THISFILE) + (echo '#include "asm-hppa.h"' ; ../../common/asm-hppa.sh < cache-hppa-linux.s ; cat ../../common/noexecstack.h) > cache-hppa-macro.S + + +cache-hppa64-linux.s : cache-hppa.c $(THISFILE) + $(CROSS_TOOL) hppa64-linux gcc -V 3.1 $(GCCFLAGS) -D__hppa64__ -S cache-hppa.c -o cache-hppa64-linux.s + +cache-hppa64-macro.S : cache-hppa64-linux.s ../../common/asm-hppa64.sh ../../common/noexecstack.h $(THISFILE) + (echo '#include "asm-hppa64.h"' ; ../../common/asm-hppa64.sh < cache-hppa64-linux.s ; cat ../../common/noexecstack.h) > cache-hppa64-macro.S + + +cache-powerpc-linux.s : cache-powerpc.c $(THISFILE) + $(CROSS_TOOL) powerpc-linux gcc -V 3.3.6 -mno-power -mno-power2 -mno-powerpc $(GCCFLAGS) -D__powerpc__ -S cache-powerpc.c -o cache-powerpc-linux.s + +cache-powerpc-linux-macro.S : cache-powerpc-linux.s ../../common/asm-powerpc.sh ../../common/noexecstack.h $(THISFILE) + (../../common/asm-powerpc.sh < cache-powerpc-linux.s ; cat ../../common/noexecstack.h) > cache-powerpc-linux-macro.S + +cache-powerpc-macos.s : cache-powerpc.c $(THISFILE) + $(CROSS_TOOL) powerpc-darwin gcc -V 3.3.6 $(GCCFLAGS) -D__powerpc__ -S cache-powerpc.c -o cache-powerpc-macos.s + + +cache-powerpc64-elfv2-linux.s : cache-powerpc64.c $(THISFILE) + $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv2 -mcpu=power4 -mlittle-endian $(GCCFLAGS) -D__powerpc64__ -S cache-powerpc64.c -o cache-powerpc64-elfv2-linux-le.s + $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv2 -mcpu=power4 -mbig-endian $(GCCFLAGS) -D__powerpc64__ -S cache-powerpc64.c -o cache-powerpc64-elfv2-linux-be.s + cmp cache-powerpc64-elfv2-linux-le.s cache-powerpc64-elfv2-linux-be.s > /dev/null + mv cache-powerpc64-elfv2-linux-le.s cache-powerpc64-elfv2-linux.s + $(RM) cache-powerpc64-elfv2-linux-be.s + +cache-powerpc64-elfv2-macro.S : cache-powerpc64-elfv2-linux.s ../../common/asm-powerpc.sh ../../common/noexecstack.h $(THISFILE) + (../../common/asm-powerpc.sh < cache-powerpc64-elfv2-linux.s ; cat ../../common/noexecstack.h) > cache-powerpc64-elfv2-macro.S + + +# --------------- Older rules --------------- + +OLDGCCFLAGS = -O2 -fomit-frame-pointer +ASPREFIX = /usr1/gnu/lib + +proto-precompiled : proto-i386.s proto-m68k.s proto-mips.s proto-mipsn32.s proto-mips64.s proto-sparc.s proto-sparc64.s proto-alpha.s proto-hppa.s proto-hppa64.s proto-arm.s proto-arm64.s proto-powerpc-aix.s proto-powerpc-sysv4.s proto-powerpc-macos.s proto-powerpc64-aix.s proto-powerpc64-elfv2.s proto-ia64.c proto-x86_64.c proto-x86_64-x32.s proto-s390.s proto-s390x.s proto-riscv32.s proto-riscv64.s + +proto-i386.s : proto.c + $(GCC) -V 2.7.2 -b i486-linuxaout $(OLDGCCFLAGS) -D__i386__ -S proto.c -o $@ + +proto-m68k.s : proto.c + $(GCC) -V egcs-2.91.57 -b m68k-sun $(OLDGCCFLAGS) -D__m68k__ -S proto.c -o $@ + +proto-mips.s : proto.c + $(GCC) -V 2.95.2 -b mips-sgi $(OLDGCCFLAGS) -D__mips__ -S proto.c -o $@ -mabicalls + +proto-mipsn32.s : proto.c + $(GCC) -V 2.95.2 -b mips-sgi-irix6 $(OLDGCCFLAGS) -D__mipsn32__ -S proto.c -o $@ -mabicalls + +proto-mips64.s : proto64.c + $(GCC) -V 2.95.2 -b mips-sgi -mips3 -mlong64 $(OLDGCCFLAGS) -D__mips64__ -S proto64.c -o $@ -mabicalls + +proto-sparc.s : proto.c + $(GCC) -V 2.95.2 -b sparc-sun $(OLDGCCFLAGS) -D__sparc__ -S proto.c -o $@ + +proto-sparc64.s : proto64.c + sparc64-linux-gcc -V 2.95.2 -b sparc64-linux $(OLDGCCFLAGS) -D__sparc64__ -S proto64.c -o $@ + +proto-alpha.s : proto64.c + $(GCC) -V 2.7.2 -b alpha-dec-osf $(OLDGCCFLAGS) -D__alpha__ -S proto64.c -o $@ + +proto-hppa.s : proto.c + $(GCC) -V 2.6.3 -b hppa1.0-hpux $(OLDGCCFLAGS) -D__hppa__ -S proto.c -o $@ + +proto-hppa64.s : proto64.c + $(CROSS_TOOL) hppa64-linux gcc -V 3.1 $(OLDGCCFLAGS) -D__hppa64__ -S proto64.c -o $@ + +proto-arm.s : proto.c + $(CROSS_TOOL) arm-linux gcc -V 3.1 $(OLDGCCFLAGS) -fno-omit-frame-pointer -D__arm__ -S proto.c -o $@ + +proto-arm64.s : proto64.c + $(CROSS_TOOL) aarch64-linux gcc-5.4.0 $(OLDGCCFLAGS) -D__arm64__ -S proto64.c -o $@ + +proto-powerpc-aix.s : proto.c + $(GCC) -V 2.95.2 -b rs6000 -mno-power -mno-power2 -mno-powerpc -mnew-mnemonics $(OLDGCCFLAGS) -D__powerpc__ -S proto.c -o $@ + +proto-powerpc-sysv4.s : proto.c + $(GCC) -V 2.95.2 -b ppc-linux -mno-power -mno-power2 -mno-powerpc $(OLDGCCFLAGS) -D__powerpc__ -S proto.c -o $@ + +proto-powerpc-macos.s : proto.c + $(GCC) -V 3.3.2 -b powerpc-darwin $(OLDGCCFLAGS) -D__powerpc__ -S proto.c -o $@ + +proto-powerpc64-aix.s : proto64.c + $(CROSS_TOOL) powerpc64-linux gcc $(OLDGCCFLAGS) -D__powerpc64__ -S proto64.c -o $@ + +proto-powerpc64-elfv2.s : proto64.c + $(CROSS_TOOL) powerpc64le-linux gcc -mabi=elfv2 $(OLDGCCFLAGS) -D__powerpc64__ -S proto64.c -o $@ + +proto-ia64.s : proto64.c + $(GCC) -V 2.9-ia64-000216 -b ia64-hp-linux $(OLDGCCFLAGS) -D__ia64__ -S proto64.c -o $@ + +proto-x86_64.s : proto64.c + $(GCC) -V 3.2.2 -b x86_64-suse-linux $(OLDGCCFLAGS) -D__x86_64__ -S proto64.c -o $@ + +proto-x86_64-x32.s : proto.c + $(CROSS_TOOL) x86_64-linux gcc-5.4.0 -mx32 $(OLDGCCFLAGS) -fno-asynchronous-unwind-tables -D__x86_64__ -D__x86_64_x32__ -S proto.c -o $@ + +proto-s390.s : proto.c + $(CROSS_TOOL) s390-linux gcc -V 3.1 $(OLDGCCFLAGS) -D__s390__ -S proto.c -o $@ + +proto-s390x.s : proto64.c + $(CROSS_TOOL) s390x-linux gcc-5.4.0 $(OLDGCCFLAGS) -D__s390x__ -S proto64.c -o $@ + +proto-riscv32.s : proto.c + $(CROSS_TOOL) riscv32-linux gcc-7.3.0 $(OLDGCCFLAGS) -D__riscv32__ -S proto.c -o $@ + +proto-riscv64.s : proto64.c + $(CROSS_TOOL) riscv64-linux gcc-7.3.0 $(OLDGCCFLAGS) -D__riscv64__ -S proto64.c -o $@ + +tramp-i386.o : tramp-i386.s + $(ASPREFIX)/i486-linux/bin/as tramp-i386.s -o $@ + +tramp-m68k.o : tramp-m68k.s + $(ASPREFIX)/m68k-linux/bin/as tramp-m68k.s -o $@ + +tramp-mips.o : tramp-mips.s + $(ASPREFIX)/mips-linux/bin/as tramp-mips.s -o $@ + +tramp-mips64.o : tramp-mips64.s + $(ASPREFIX)/mips-linux/bin/as -mips64 -mabi=64 tramp-mips64.s -o $@ + +tramp-sparc.o : tramp-sparc.s + $(ASPREFIX)/sparc-sun/bin/as tramp-sparc.s -o $@ + +tramp-sparc64.o : tramp-sparc64.s + $(ASPREFIX)/sparc64-linux/bin/as tramp-sparc64.s -o $@ + +tramp-alpha.o : tramp-alpha.s + $(ASPREFIX)/alpha-linux/bin/as tramp-alpha.s -o $@ + +tramp-hppa.o : tramp-hppa.s + $(ASPREFIX)/hppa1.0-hpux/bin/as tramp-hppa.s -o $@ + +tramp-hppa64.o : tramp-hppa64.s + $(CROSS_TOOL) hppa64-linux as tramp-hppa64.s -o $@ + +tramp-arm.o : tramp-arm.s + $(CROSS_TOOL) arm-linux as tramp-arm.s -o $@ + +tramp-arm64.o : tramp-arm64.s + $(CROSS_TOOL) aarch64-linux as tramp-arm64.s -o $@ + +tramp-powerpc-old.o : tramp-powerpc-old.s + $(ASPREFIX)/rs6000/bin/as tramp-powerpc-old.s -o $@ + +tramp-powerpc-sysv4.o : tramp-powerpc-sysv4.s + $(ASPREFIX)/ppc-linux/bin/as tramp-powerpc-sysv4.s -o $@ + +tramp-powerpc64-elfv2.o : tramp-powerpc64-elfv2.s + $(CROSS_TOOL) powerpc64le-linux as tramp-powerpc64-elfv2.s -o $@ + +tramp-ia64.o : tramp-ia64.s + /nue/usr/ia64-hp-linux/bin/as tramp-ia64.s -o $@ + +tramp-x86_64.o : tramp-x86_64.s + $(ASPREFIX)/x86_64-linux/bin/as tramp-x86_64.s -o $@ + +tramp-x86_64-x32.o : tramp-x86_64-x32.s + $(CROSS_TOOL) x86_64-linux as tramp-x86_64-x32.s -o $@ + +tramp-s390.o : tramp-s390.s + $(CROSS_TOOL) s390-linux as tramp-s390.s -o $@ + +tramp-s390x.o : tramp-s390x.s + $(CROSS_TOOL) s390x-linux as tramp-s390x.s -o $@ + +tramp-riscv32.o : tramp-riscv32.s + $(CROSS_TOOL) riscv32-linux as tramp-riscv32.s -o $@ + +tramp-riscv64.o : tramp-riscv64.s + $(CROSS_TOOL) riscv64-linux as tramp-riscv64.s -o $@ diff --git a/callback/trampoline_r/Makefile.in b/callback/trampoline_r/Makefile.in new file mode 100644 index 0000000..ee88507 --- /dev/null +++ b/callback/trampoline_r/Makefile.in @@ -0,0 +1,257 @@ +# Makefile for trampoline + +#### Start of system configuration section. #### + +HOST = @host@ +CPU = @HOST_CPU_C_ABI@ +OS = @host_os@ + +# Directories used by "make": +srcdir = @srcdir@ + +# Directories used by "make install": +prefix = @prefix@ +local_prefix = /usr/local +exec_prefix = @exec_prefix@ +libdir = @libdir@ +includedir = @includedir@ +mandir = @mandir@ +datadir = @datadir@ +datarootdir = @datarootdir@ +htmldir = $(datadir)/html + +# Programs used by "make": +CC = @CC@ +CFLAGS = @CFLAGS@ +CPPFLAGS = @CPPFLAGS@ +CPP = @CPP@ +INCLUDES = -I. -I$(srcdir) -I../.. -I$(srcdir)/../.. +INCLUDES_WITH_GNULIB = $(INCLUDES) -I../../gnulib-lib -I$(srcdir)/../../gnulib-lib +ASPFLAGS = `if test @AS_UNDERSCORE@ = true; then echo '-DASM_UNDERSCORE'; fi` +LDFLAGS = @LDFLAGS@ +LIBTOOL = @LIBTOOL@ +LIBTOOL_COMPILE = $(LIBTOOL) --mode=compile +LIBTOOL_LINK = $(LIBTOOL) --mode=link +LIBTOOL_INSTALL = $(LIBTOOL) --mode=install +LIBTOOL_UNINSTALL = $(LIBTOOL) --mode=uninstall +AR = @AR@ +AR_FLAGS = rc +RANLIB = @RANLIB@ +RM = rm -f +@SET_MAKE@ + +# Programs used by "make install": +INSTALL = @INSTALL@ +INSTALL_PROGRAM = @INSTALL_PROGRAM@ +INSTALL_DATA = @INSTALL_DATA@ + +# Libtool options for linking with the thread library. +LTLIBTHREAD = @LTLIBTHREAD@ + +#### End of system configuration section. #### + +SHELL = /bin/sh + +# Needed by $(LIBTOOL). +top_builddir = ../.. + +OBJECTS = trampoline.lo @CPU_OBJECTS@ + +all : $(OBJECTS) libtrampoline.la $(srcdir)/trampoline_r.3 $(srcdir)/trampoline_r.html + +trampoline.lo : $(srcdir)/trampoline.c $(srcdir)/trampoline_r.h + $(LIBTOOL_COMPILE) $(CC) $(INCLUDES_WITH_GNULIB) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/trampoline.c + +tramp-hppa.lo : tramp-hppa.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c tramp-hppa.s + +tramp-hppa.s : $(srcdir)/tramp-hppa-macro.S $(srcdir)/../../common/noexecstack.h + $(CPP) $(ASPFLAGS) -I$(srcdir)/../../common $(srcdir)/tramp-hppa-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e "s,!,',g" > tramp-hppa.s + +tramp-hppa64.lo : tramp-hppa64.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c tramp-hppa64.s + +tramp-hppa64.s : $(srcdir)/tramp-hppa64-macro.S $(srcdir)/../../common/noexecstack.h + $(CPP) $(ASPFLAGS) -I$(srcdir)/../../common $(srcdir)/tramp-hppa64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e "s,!,',g" > tramp-hppa64.s + +tramp-powerpc.lo : tramp-powerpc.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c tramp-powerpc.s + +tramp-powerpc.s : $(srcdir)/tramp-powerpc-aix.S + $(CPP) $(srcdir)/tramp-powerpc-aix.S > tramp-powerpc.s + +tramp-powerpc64.lo : tramp-powerpc64.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c tramp-powerpc64.s + +tramp-powerpc64.s : $(srcdir)/tramp-powerpc64-aix.S $(srcdir)/../../common/noexecstack.h + $(CPP) -I$(srcdir)/../../common $(srcdir)/tramp-powerpc64-aix.S > tramp-powerpc64.s + +tramp-ia64.lo : tramp-ia64.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c tramp-ia64.s + +tramp-ia64.s : $(srcdir)/tramp-ia64-macro.S $(srcdir)/../../common/noexecstack.h + $(CPP) $(ASPFLAGS) -I$(srcdir)/../../common $(srcdir)/tramp-ia64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > tramp-ia64.s + +cache-sparc.lo : cache-sparc.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c cache-sparc.s + +cache-sparc.s : $(srcdir)/cache-sparc-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../../common - < $(srcdir)/cache-sparc-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,//.*$$,,' -e 's,\$$,#,g' -e 's,# ,#,g' > cache-sparc.s + +cache-sparc64.lo : cache-sparc64.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c cache-sparc64.s + +cache-sparc64.s : $(srcdir)/cache-sparc64-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../../common - < $(srcdir)/cache-sparc64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,//.*$$,,' -e 's,\$$,#,g' -e 's,# ,#,g' > cache-sparc64.s + +cache-alpha.lo : cache-alpha.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c cache-alpha.s + +cache-alpha.s : $(srcdir)/cache-alpha-macro.S + $(CPP) $(ASPFLAGS) $(srcdir)/cache-alpha-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > cache-alpha.s + +cache-hppa.lo : cache-hppa.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c cache-hppa.s + +cache-hppa.s : $(srcdir)/cache-hppa-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../../common $(srcdir)/cache-hppa-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e "s,!,',g" > cache-hppa.s + +cache-hppa64.lo : cache-hppa64.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c cache-hppa64.s + +cache-hppa64.s : $(srcdir)/cache-hppa64-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../../common $(srcdir)/cache-hppa64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e "s,!,',g" > cache-hppa64.s + +cache-powerpc.lo : cache-powerpc.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c cache-powerpc.s + +cache-powerpc.s : $(srcdir)/cache-powerpc-linux-macro.S $(srcdir)/cache-powerpc-macos.s + case "$(OS)" in \ + macos* | darwin*) syntax=macos;; \ + *) syntax=linux;; \ + esac; \ + case $${syntax} in \ + macos) \ + grep -v '\.machine' $(srcdir)/cache-powerpc-$${syntax}.s > cache-powerpc.s || exit 1 ;; \ + linux) \ + $(CPP) $(ASPFLAGS) $(srcdir)/cache-powerpc-$${syntax}-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > cache-powerpc.s || exit 1 ;; \ + *) \ + cp $(srcdir)/cache-powerpc-$${syntax}.s cache-powerpc.s || exit 1 ;; \ + esac + +cache-powerpc64-elfv2.lo : cache-powerpc64-elfv2.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c cache-powerpc64-elfv2.s + +cache-powerpc64-elfv2.s : $(srcdir)/cache-powerpc64-elfv2-macro.S + $(CPP) $(ASPFLAGS) $(srcdir)/cache-powerpc64-elfv2-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > cache-powerpc64-elfv2.s + +libtrampoline.la : $(OBJECTS) ../../gnulib-lib/libgnu.la + $(LIBTOOL_LINK) $(CC) -o libtrampoline.la -rpath $(libdir) -no-undefined $(OBJECTS) ../../gnulib-lib/libgnu.la $(LDFLAGS) $(LTLIBTHREAD) + +# Installs the library and include files only. Typically called with only +# $(libdir) and $(includedir) - don't use $(prefix) and $(exec_prefix) here. +install-lib : all force + mkdir -p $(includedir) + $(INSTALL_DATA) $(srcdir)/trampoline_r.h $(includedir)/trampoline_r.h + +install : all force + mkdir -p $(DESTDIR)$(prefix) + mkdir -p $(DESTDIR)$(exec_prefix) +# mkdir -p $(DESTDIR)$(libdir) +# $(LIBTOOL_INSTALL) $(INSTALL_DATA) libtrampoline.la $(DESTDIR)$(libdir)/libtrampoline.la + mkdir -p $(DESTDIR)$(includedir) + $(INSTALL_DATA) $(srcdir)/trampoline_r.h $(DESTDIR)$(includedir)/trampoline_r.h + mkdir -p $(DESTDIR)$(mandir) + mkdir -p $(DESTDIR)$(mandir)/man3 + $(INSTALL_DATA) $(srcdir)/trampoline_r.3 $(DESTDIR)$(mandir)/man3/trampoline_r.3 + mkdir -p $(DESTDIR)$(datadir) + mkdir -p $(DESTDIR)$(htmldir) + $(INSTALL_DATA) $(srcdir)/trampoline_r.html $(DESTDIR)$(htmldir)/trampoline_r.html + +installdirs : force + mkdir -p $(DESTDIR)$(prefix) + mkdir -p $(DESTDIR)$(exec_prefix) +# mkdir -p $(DESTDIR)$(libdir) + mkdir -p $(DESTDIR)$(includedir) + mkdir -p $(DESTDIR)$(mandir) + mkdir -p $(DESTDIR)$(mandir)/man3 + mkdir -p $(DESTDIR)$(datadir) + mkdir -p $(DESTDIR)$(htmldir) + +uninstall : force +# $(LIBTOOL_UNINSTALL) $(RM) $(DESTDIR)$(libdir)/libtrampoline.la + $(RM) $(DESTDIR)$(includedir)/trampoline_r.h + $(RM) $(DESTDIR)$(mandir)/man3/trampoline_r.3 + $(RM) $(DESTDIR)$(htmldir)/trampoline_r.html + +test1.@OBJEXT@ : $(srcdir)/test1.c $(srcdir)/trampoline_r.h + $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/test1.c + +test1 : test1.@OBJEXT@ libtrampoline.la + $(LIBTOOL_LINK) $(CC) $(CFLAGS) @GCC_X_NONE@ test1.@OBJEXT@ libtrampoline.la $(LDFLAGS) -o test1 + +test2.@OBJEXT@ : $(srcdir)/test2.c $(srcdir)/trampoline_r.h + $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/test2.c + +test2 : test2.@OBJEXT@ libtrampoline.la + $(LIBTOOL_LINK) $(CC) $(CFLAGS) @GCC_X_NONE@ test2.@OBJEXT@ libtrampoline.la $(LDFLAGS) -o test2 + +check1 : all test1 + ./test1 + +check : all test1 test2 + ./test1 + ./test2 + touch tests.passed.$(HOST) + +extracheck : check + +mostlyclean : clean + +clean : force + $(RM) $(OBJECTS) `echo $(OBJECTS) | sed -e 's/\.lo/.@OBJEXT@/g'` tramp-hppa.s tramp-hppa64.s tramp-powerpc.s tramp-powerpc64.s tramp-ia64.s cache-sparc.s cache-sparc64.s cache-alpha.s cache-hppa.s cache-hppa64.s cache-powerpc.s cache-powerpc64-elfv2.s libtrampoline.* core + $(RM) -r .libs _libs + $(RM) test1.@OBJEXT@ test1 test2.@OBJEXT@ test2 + +distclean : clean + $(RM) Makefile tests.passed.* + +maintainer-clean : distclean + + +# List of source files (committed in version control or generated by Makefile.devel). +SOURCE_FILES = \ + COPYING \ + PORTING README trampoline_r.3 trampoline_r.html \ + Makefile.devel \ + Makefile.maint \ + Makefile.in \ + trampoline_r.h \ + trampoline.c \ + tramp-hppa-macro.S \ + tramp-hppa64-macro.S \ + tramp-powerpc-aix.S \ + tramp-powerpc64-aix.S \ + tramp-ia64-macro.S \ + cache.c \ + cache-alpha.c cache-alpha-linux.s cache-alpha-macro.S \ + cache-hppa.c cache-hppa-linux.s cache-hppa-macro.S cache-hppa64-linux.s cache-hppa64-macro.S \ + cache-powerpc.c cache-powerpc-linux.s cache-powerpc-linux-macro.S cache-powerpc-macos.s \ + cache-powerpc64.c cache-powerpc64-elfv2-linux.s cache-powerpc64-elfv2-macro.S \ + cache-sparc.c cache-sparc-linux.s cache-sparc-macro.S cache-sparc64-linux.s cache-sparc64-macro.S \ + test1.c \ + test2.c +# List of distributed files generated by Makefile.maint. +GENERATED_FILES = \ + trampoline_r.man +# List of distributed files. +DISTFILES = $(SOURCE_FILES) $(GENERATED_FILES) + +distdir : $(DISTFILES) + for file in $(DISTFILES); do \ + if test -f $$file; then dir='.'; else dir='$(srcdir)'; fi; \ + cp -p "$$dir/$$file" '$(distdir)'/$$file || exit 1; \ + done + + +force : diff --git a/callback/trampoline_r/Makefile.maint b/callback/trampoline_r/Makefile.maint new file mode 100644 index 0000000..bc9c542 --- /dev/null +++ b/callback/trampoline_r/Makefile.maint @@ -0,0 +1,30 @@ +# maintainer -*-Makefile-*- + +RM = rm -f + +# ==================== Easily regeneratable files ==================== + +ROFF_MAN = groff -Tutf8 -mandoc + +all : trampoline_r.man + +trampoline_r.man : trampoline_r.3 + $(ROFF_MAN) trampoline_r.3 > trampoline_r.man + +totally-clean : force + $(RM) trampoline_r.man + + +# Files copied from other directories + +COPIED_FILES = \ + PORTING \ + cache.c \ + cache-alpha.c \ + cache-hppa.c +copied-files : $(COPIED_FILES) +$(COPIED_FILES) : % : ../../trampoline/% + cp $< $@ + + +force : diff --git a/callback/trampoline_r/PORTING b/callback/trampoline_r/PORTING new file mode 100644 index 0000000..46b6042 --- /dev/null +++ b/callback/trampoline_r/PORTING @@ -0,0 +1,95 @@ +The list of CPUs and platforms TRAMPOLINE has been ported to can be found +at the top of file trampoline.c. + +To port TRAMPOLINE to a new platform, three issues may have to be resolved: +A. a new CPU - how to build the trampoline? +B. a new OS - how to make code in malloc'ed memory executable? +C. a new CPU or OS - how to flush the instruction cache? + + +A. a new CPU - how to build the trampoline? + + The trampoline is a short sequence of machine instructions which puts + the constant into , then jumps to

. The only + registers that are allowed to be modified are call-used registers. No + stack manipulations are allowed since the trampoline has to pass its + arguments along to the function at
. + + 1. To find out which instructions are available for "move"/"store" and + "jump", compile proto.c for your CPU: + + make -f Makefile.devel proto-${CPU}.s + or + gcc -O2 -fomit-frame-pointer -S proto.c -o proto-${CPU}.s + + 2. Write down the instructions for the trampoline in a file tramp-${CPU}.s, + using constants for , ,
. Assemble it: + + gcc -c tramp-${CPU}.s + + Verify that the jump actually goes to
. (Beware: Some CPUs have + program-counter relative jumps.) + + gdb tramp-${CPU}.o + disassemble tramp + + 3. Take a hex dump of tramp-${CPU}.o + + hexdump -e '"%06.6_ax " 16/1 " %02X" "\n"' < tramp-${CPU}.o + or + od -tx1 -Ax < tramp-${CPU}.o + or + od -x +x < tramp-${CPU}.o + + Look out for the magic numbers you used for , and +
. + + 4. Write the code which builds up a trampoline in memory, in trampoline.c. + + 5. Try it: + + make + make check1 + + 6. Write the is_tramp() macro and the tramp_xxx() accessor macros + in trampoline.c. + + 7. Try it: + + make + make check + + +B. a new OS - how to make code in malloc'ed memory executable? + + ‘configure’ will find out whether code stored in malloc'ed memory is + executable, or whether virtual memory protections have to be set in order + to allow this. (The test is pretty simple: it copies a small function + to malloc'ed memory and tries to executed it. The test could also fail + because the compiler produced non-position-independent code or because + of alignment issues.) + + To set virtual memory protections on a page of memory, your system should + provide the mprotect() and getpagesize() functions. If it does not, find + a substitute. + + +C. a new CPU or OS - how to flush the instruction cache? + + CPUs which have separate data and instruction caches need to flush + (part of) the instruction cache when alloc_trampoline() is called. + (There may have been an old trampoline at the same location, and the + instruction cache is not updated when the new trampoline is built. + The effect can be that when the new trampoline is called, the old one + will still be executed.) + + To flush the instruction cache, some CPUs have special instruction which + can be put into gcc "asm" statements. On some CPUs these instructions are + privileged, you therefore need to call some system or library function. + On other CPUs, the only way to flush the instruction cache is to execute + a long sequence of "nop" or "jump" instructions. This is hairy. + + +When you are done with porting to a new platform, or even if TRAMPOLINE +passes the "make check" out of the box without modifications, please report +your results to the author of TRAMPOLINE, for inclusion in the next release. diff --git a/callback/trampoline_r/README b/callback/trampoline_r/README new file mode 100644 index 0000000..486839e --- /dev/null +++ b/callback/trampoline_r/README @@ -0,0 +1,12 @@ +This directory contains a reentrant version of the trampoline package. + +Instead of clobbering a global variable, a pointer to data0,data1,... +is passed to the called function in a special CPU register. + +The number of supported data words (data0,data1) is arbitrary; 3 or 4 +or more would work as well if trampoline.c was modified appropriately. +Two words are needed, however, for passing closures through vacall_r +without an additional malloc() call per closure. + +The include file is renamed to . + diff --git a/callback/trampoline_r/cache-alpha-linux.s b/callback/trampoline_r/cache-alpha-linux.s new file mode 100644 index 0000000..6754a16 --- /dev/null +++ b/callback/trampoline_r/cache-alpha-linux.s @@ -0,0 +1,20 @@ + .set noreorder + .set volatile + .set noat + .set nomacro + .text + .align 2 + .align 4 + .globl __TR_clear_cache + .ent __TR_clear_cache +$__TR_clear_cache..ng: +__TR_clear_cache: + .frame $30,0,$26,0 + .prologue 0 + .set macro + call_pal 0x86 + .set nomacro + ret $31,($26),1 + .end __TR_clear_cache + .ident "GCC: (GNU) 4.0.2" + .section .note.GNU-stack,"",@progbits diff --git a/callback/trampoline_r/cache-alpha-macro.S b/callback/trampoline_r/cache-alpha-macro.S new file mode 100644 index 0000000..e350f4c --- /dev/null +++ b/callback/trampoline_r/cache-alpha-macro.S @@ -0,0 +1,21 @@ + .set noreorder + .set volatile + .set noat + .set nomacro + .text + .align 2 + .align 4 + .globl __TR_clear_cache + .ent __TR_clear_cache +$__TR_clear_cache..ng: +__TR_clear_cache: + .frame $30,0,$26,0 + .prologue 0 + .set macro + call_pal 0x86 + .set nomacro + ret $31,($26),1 + .end __TR_clear_cache +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/callback/trampoline_r/cache-alpha.c b/callback/trampoline_r/cache-alpha.c new file mode 100644 index 0000000..ad20947 --- /dev/null +++ b/callback/trampoline_r/cache-alpha.c @@ -0,0 +1,24 @@ +/* Instruction cache flushing for alpha */ + +/* + * Copyright 1997 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +void __TR_clear_cache (void) +{ + /* Taken from gforth-0.3.0. */ + asm volatile ("call_pal 0x86"); /* imb (instruction-memory barrier) */ +} diff --git a/callback/trampoline_r/cache-hppa-linux.s b/callback/trampoline_r/cache-hppa-linux.s new file mode 100644 index 0000000..b9c9a6d --- /dev/null +++ b/callback/trampoline_r/cache-hppa-linux.s @@ -0,0 +1,33 @@ + .LEVEL 1.1 + .text + .align 4 +.globl __TR_clear_cache + .type __TR_clear_cache,@function +__TR_clear_cache: + .PROC + .CALLINFO FRAME=0,NO_CALLS + .ENTRY +#APP + fdc 0(0,%r26) + fdc 0(0,%r25) + sync + mfsp %sr0,%r20 + ldsid (0,%r26),%r26 + mtsp %r26,%sr0 + fic 0(%sr0,%r26) + fic 0(%sr0,%r25) + sync + mtsp %r20,%sr0 + nop + nop + nop + nop + nop + nop +#NO_APP + bv,n %r0(%r2) + .EXIT + .PROCEND +.Lfe1: + .size __TR_clear_cache,.Lfe1-__TR_clear_cache + .ident "GCC: (GNU) 3.1" diff --git a/callback/trampoline_r/cache-hppa-macro.S b/callback/trampoline_r/cache-hppa-macro.S new file mode 100644 index 0000000..7c39646 --- /dev/null +++ b/callback/trampoline_r/cache-hppa-macro.S @@ -0,0 +1,36 @@ +#include "asm-hppa.h" + .LEVEL 1.1 + IMPORT_MILLICODE($$dyncall) + TEXT1() + TEXT2() + .align 4 +GLOBL(__TR_clear_cache) + DECLARE_FUNCTION(__TR_clear_cache) +DEF(__TR_clear_cache) + .PROC + .CALLINFO FRAME=0,NO_CALLS + .ENTRY + fdc 0(0,%r26) + fdc 0(0,%r25) + sync + mfsp %sr0,%r20 + ldsid (0,%r26),%r26 + mtsp %r26,%sr0 + fic 0(%sr0,%r26) + fic 0(%sr0,%r25) + sync + mtsp %r20,%sr0 + nop + nop + nop + nop + nop + nop + bv,n %r0(%r2) + .EXIT + .PROCEND +DEF(L(fe1)) + FUNEND(__TR_clear_cache) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/callback/trampoline_r/cache-hppa.c b/callback/trampoline_r/cache-hppa.c new file mode 100644 index 0000000..2174716 --- /dev/null +++ b/callback/trampoline_r/cache-hppa.c @@ -0,0 +1,65 @@ +/* Instruction cache flushing for hppa */ + +/* + * Copyright 1995-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#ifdef __hppa64__ +/* Tell GCC not to clobber the registers that are call-saved in the HP C + calling convention. */ +register long arg0 __asm__("r26"); +register long arg1 __asm__("r25"); +register long arg2 __asm__("r24"); +register long arg3 __asm__("r23"); +register long arg4 __asm__("r22"); +register long arg5 __asm__("r21"); +register long arg6 __asm__("r20"); +register long arg7 __asm__("r19"); +#endif + +/* + * This assumes that the range [first_addr..last_addr] lies in at most two + * cache lines. + */ +void __TR_clear_cache (char* first_addr, char* last_addr) +{ + register int tmp1; + register int tmp2; + /* Flush the relevant data cache lines. (Yes, this is needed. I tried it.) */ + asm volatile ("fdc 0(0,%0)" + "\n\t" "fdc 0(0,%1)" + "\n\t" "sync" + : + : "r" (first_addr), "r" (last_addr) + ); + /* Flush the relevant instruction cache lines. */ + asm volatile ("mfsp %%sr0,%1" + "\n\t" "ldsid (0,%4),%0" + "\n\t" "mtsp %0,%%sr0" + "\n\t" "fic 0(%%sr0,%2)" + "\n\t" "fic 0(%%sr0,%3)" + "\n\t" "sync" + "\n\t" "mtsp %1,%%sr0" + "\n\t" "nop" + "\n\t" "nop" + "\n\t" "nop" + "\n\t" "nop" + "\n\t" "nop" + "\n\t" "nop" + : "=r" (tmp1), "=r" (tmp2) + : "r" (first_addr), "r" (last_addr), "r" (first_addr) + ); +} diff --git a/callback/trampoline_r/cache-hppa64-linux.s b/callback/trampoline_r/cache-hppa64-linux.s new file mode 100644 index 0000000..928f35f --- /dev/null +++ b/callback/trampoline_r/cache-hppa64-linux.s @@ -0,0 +1,35 @@ + .LEVEL 2.0w + .text + .align 8 +.globl __TR_clear_cache + .type __TR_clear_cache,@function +__TR_clear_cache: + .PROC + .CALLINFO FRAME=128,NO_CALLS + .ENTRY + ldo 128(%r30),%r30 +#APP + fdc 0(0,%r26) + fdc 0(0,%r25) + sync + mfsp %sr0,%r31 + ldsid (0,%r26),%r28 + mtsp %r28,%sr0 + fic 0(%sr0,%r26) + fic 0(%sr0,%r25) + sync + mtsp %r31,%sr0 + nop + nop + nop + nop + nop + nop +#NO_APP + bve (%r2) + ldo -128(%r30),%r30 + .EXIT + .PROCEND +.Lfe1: + .size __TR_clear_cache,.Lfe1-__TR_clear_cache + .ident "GCC: (GNU) 3.1" diff --git a/callback/trampoline_r/cache-hppa64-macro.S b/callback/trampoline_r/cache-hppa64-macro.S new file mode 100644 index 0000000..e5344ae --- /dev/null +++ b/callback/trampoline_r/cache-hppa64-macro.S @@ -0,0 +1,37 @@ +#include "asm-hppa64.h" + .LEVEL 2.0w + TEXT1() + TEXT2() + .align 8 +GLOBL(__TR_clear_cache) + DECLARE_FUNCTION(__TR_clear_cache) +DEF(__TR_clear_cache) + .PROC + .CALLINFO FRAME=128,NO_CALLS + .ENTRY + ldo 128(%r30),%r30 + fdc 0(0,%r26) + fdc 0(0,%r25) + sync + mfsp %sr0,%r31 + ldsid (0,%r26),%r28 + mtsp %r28,%sr0 + fic 0(%sr0,%r26) + fic 0(%sr0,%r25) + sync + mtsp %r31,%sr0 + nop + nop + nop + nop + nop + nop + bve (%r2) + ldo -128(%r30),%r30 + .EXIT + .PROCEND +DEF(L(fe1)) + FUNEND(__TR_clear_cache) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/callback/trampoline_r/cache-powerpc-linux-macro.S b/callback/trampoline_r/cache-powerpc-linux-macro.S new file mode 100644 index 0000000..9fb39b2 --- /dev/null +++ b/callback/trampoline_r/cache-powerpc-linux-macro.S @@ -0,0 +1,31 @@ + .file "cache-powerpc.c" + .section ".text" + .align 2 + .globl __TR_clear_cache + .type __TR_clear_cache, @function +__TR_clear_cache: + .extern __mulh + .extern __mull + .extern __divss + .extern __divus + .extern __quoss + .extern __quous + stwu 1,-32(1) + icbi 0,3; dcbf 0,3 + addi 0,3,4 + icbi 0,0; dcbf 0,0 + addi 9,3,8 + icbi 0,9; dcbf 0,9 + addi 0,3,12 + icbi 0,0; dcbf 0,0 + addi 9,3,16 + icbi 0,9; dcbf 0,9 + addi 3,3,20 + icbi 0,3; dcbf 0,3 + sync; isync + addi 1,1,32 + blr + .size __TR_clear_cache, .-__TR_clear_cache +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/callback/trampoline_r/cache-powerpc-linux.s b/callback/trampoline_r/cache-powerpc-linux.s new file mode 100644 index 0000000..11788b3 --- /dev/null +++ b/callback/trampoline_r/cache-powerpc-linux.s @@ -0,0 +1,42 @@ + .file "cache-powerpc.c" + .section ".text" + .align 2 + .globl __TR_clear_cache + .type __TR_clear_cache, @function +__TR_clear_cache: + .extern __mulh + .extern __mull + .extern __divss + .extern __divus + .extern __quoss + .extern __quous + stwu 1,-32(1) +#APP + icbi 0,3; dcbf 0,3 +#NO_APP + addi 0,3,4 +#APP + icbi 0,0; dcbf 0,0 +#NO_APP + addi 9,3,8 +#APP + icbi 0,9; dcbf 0,9 +#NO_APP + addi 0,3,12 +#APP + icbi 0,0; dcbf 0,0 +#NO_APP + addi 9,3,16 +#APP + icbi 0,9; dcbf 0,9 +#NO_APP + addi 3,3,20 +#APP + icbi 0,3; dcbf 0,3 + sync; isync +#NO_APP + addi 1,1,32 + blr + .size __TR_clear_cache, .-__TR_clear_cache + .section .note.GNU-stack,"",@progbits + .ident "GCC: (GNU) 3.3.6" diff --git a/callback/trampoline_r/cache-powerpc-macos.s b/callback/trampoline_r/cache-powerpc-macos.s new file mode 100644 index 0000000..c468cf3 --- /dev/null +++ b/callback/trampoline_r/cache-powerpc-macos.s @@ -0,0 +1,17 @@ +.text + .align 2 + .globl ___TR_clear_cache +___TR_clear_cache: + icbi 0,r3; dcbf 0,r3 + addi r0,r3,4 + icbi 0,r0; dcbf 0,r0 + addi r9,r3,8 + icbi 0,r9; dcbf 0,r9 + addi r0,r3,12 + icbi 0,r0; dcbf 0,r0 + addi r9,r3,16 + icbi 0,r9; dcbf 0,r9 + addi r3,r3,20 + icbi 0,r3; dcbf 0,r3 + sync; isync + blr diff --git a/callback/trampoline_r/cache-powerpc.c b/callback/trampoline_r/cache-powerpc.c new file mode 100644 index 0000000..88dbb0b --- /dev/null +++ b/callback/trampoline_r/cache-powerpc.c @@ -0,0 +1,32 @@ +/* Instruction cache flushing for powerpc, not on AIX */ + +/* + * Copyright 1997-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +void __TR_clear_cache (char* first_addr) +{ + /* Taken from egcs-1.1.2/gcc/config/rs6000/tramp.asm. */ + /* The number of asm statements here depends on the value of TRAMP_LENGTH + for __powerpcsysv4__. */ + asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr)); + asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+4)); + asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+8)); + asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+12)); + asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+16)); + asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+20)); + asm volatile ("sync; isync"); +} diff --git a/callback/trampoline_r/cache-powerpc64-elfv2-linux.s b/callback/trampoline_r/cache-powerpc64-elfv2-linux.s new file mode 100644 index 0000000..e51aef5 --- /dev/null +++ b/callback/trampoline_r/cache-powerpc64-elfv2-linux.s @@ -0,0 +1,42 @@ + .file "cache-powerpc64.c" + .machine power4 + .abiversion 2 + .section ".toc","aw" + .section ".text" + .align 2 + .p2align 4,,15 + .globl __TR_clear_cache + .type __TR_clear_cache, @function +__TR_clear_cache: +#APP + # 25 "cache-powerpc64.c" 1 + icbi 0,3; dcbf 0,3 + # 0 "" 2 +#NO_APP + addi 9,3,4 +#APP + # 26 "cache-powerpc64.c" 1 + icbi 0,9; dcbf 0,9 + # 0 "" 2 +#NO_APP + addi 9,3,8 +#APP + # 27 "cache-powerpc64.c" 1 + icbi 0,9; dcbf 0,9 + # 0 "" 2 +#NO_APP + addi 3,3,12 +#APP + # 28 "cache-powerpc64.c" 1 + icbi 0,3; dcbf 0,3 + # 0 "" 2 + # 29 "cache-powerpc64.c" 1 + sync; isync + # 0 "" 2 +#NO_APP + blr + .long 0 + .byte 0,0,0,0,0,0,0,0 + .size __TR_clear_cache,.-__TR_clear_cache + .ident "GCC: (GNU) 5.4.0" + .section .note.GNU-stack,"",@progbits diff --git a/callback/trampoline_r/cache-powerpc64-elfv2-macro.S b/callback/trampoline_r/cache-powerpc64-elfv2-macro.S new file mode 100644 index 0000000..81c43d0 --- /dev/null +++ b/callback/trampoline_r/cache-powerpc64-elfv2-macro.S @@ -0,0 +1,35 @@ + .file "cache-powerpc64.c" + .machine power4 + .abiversion 2 + .section ".toc","aw" + .section ".text" + .align 2 + .p2align 4,,15 + .globl __TR_clear_cache + .type __TR_clear_cache, @function +__TR_clear_cache: + # 25 "cache-powerpc64.c" 1 + icbi 0,3; dcbf 0,3 + # 0 "" 2 + addi 9,3,4 + # 26 "cache-powerpc64.c" 1 + icbi 0,9; dcbf 0,9 + # 0 "" 2 + addi 9,3,8 + # 27 "cache-powerpc64.c" 1 + icbi 0,9; dcbf 0,9 + # 0 "" 2 + addi 3,3,12 + # 28 "cache-powerpc64.c" 1 + icbi 0,3; dcbf 0,3 + # 0 "" 2 + # 29 "cache-powerpc64.c" 1 + sync; isync + # 0 "" 2 + blr + .long 0 + .byte 0,0,0,0,0,0,0,0 + .size __TR_clear_cache,.-__TR_clear_cache +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/callback/trampoline_r/cache-powerpc64.c b/callback/trampoline_r/cache-powerpc64.c new file mode 100644 index 0000000..76a2b72 --- /dev/null +++ b/callback/trampoline_r/cache-powerpc64.c @@ -0,0 +1,30 @@ +/* Instruction cache flushing for powerpc64, not the AIX ABI */ + +/* + * Copyright 1997-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +void __TR_clear_cache (char* first_addr) +{ + /* Taken from egcs-1.1.2/gcc/config/rs6000/tramp.asm. */ + /* The number of asm statements here depends on the value of TRAMP_LENGTH-2*8 + for __powerpc64_elfv2__. */ + asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr)); + asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+4)); + asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+8)); + asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+12)); + asm volatile ("sync; isync"); +} diff --git a/callback/trampoline_r/cache-sparc-linux.s b/callback/trampoline_r/cache-sparc-linux.s new file mode 100644 index 0000000..2fa77f5 --- /dev/null +++ b/callback/trampoline_r/cache-sparc-linux.s @@ -0,0 +1,15 @@ + .file "cache-sparc.c" + .section ".text" + .align 4 + .global __TR_clear_cache_2 + .type __TR_clear_cache_2,#function + .proc 020 +__TR_clear_cache_2: + !#PROLOGUE# 0 + iflush %o0+0;iflush %o0+8 + nop + retl + nop +.LLfe1: + .size __TR_clear_cache_2,.LLfe1-__TR_clear_cache_2 + .ident "GCC: (GNU) 3.1" diff --git a/callback/trampoline_r/cache-sparc-macro.S b/callback/trampoline_r/cache-sparc-macro.S new file mode 100644 index 0000000..b633dc5 --- /dev/null +++ b/callback/trampoline_r/cache-sparc-macro.S @@ -0,0 +1,17 @@ +#include "asm-sparc.h" + .section ".text" + .align 4 + .global C(__TR_clear_cache_2) + DECLARE_FUNCTION(__TR_clear_cache_2) + .proc 020 +FUNBEGIN(__TR_clear_cache_2) + !$PROLOGUE$ 0 + iflush %o0+0;iflush %o0+8 + nop + retl + nop +L(Lfe1): + FUNEND(__TR_clear_cache_2) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/callback/trampoline_r/cache-sparc.c b/callback/trampoline_r/cache-sparc.c new file mode 100644 index 0000000..81bc434 --- /dev/null +++ b/callback/trampoline_r/cache-sparc.c @@ -0,0 +1,29 @@ +/* Instruction cache flushing for sparc */ + +/* + * Copyright 1996-1999 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +/* + * This assumes that the range [first_addr..last_addr] lies in at most two + * cache lines. + */ +void __TR_clear_cache_2 (char* first_addr, char* last_addr) +{ + asm volatile ("iflush %0+0;" /* the +0 is needed by gas, says gforth-0.3.0 */ + "iflush %0+8" + : : "r" (first_addr)); +} diff --git a/callback/trampoline_r/cache-sparc64-linux.s b/callback/trampoline_r/cache-sparc64-linux.s new file mode 100644 index 0000000..eb13421 --- /dev/null +++ b/callback/trampoline_r/cache-sparc64-linux.s @@ -0,0 +1,13 @@ + .file "cache-sparc.c" + .section ".text" + .align 4 + .global __TR_clear_cache_2 + .type __TR_clear_cache_2, #function + .proc 020 +__TR_clear_cache_2: + iflush %o0+0;iflush %o0+8 + jmp %o7+8 + nop + .size __TR_clear_cache_2, .-__TR_clear_cache_2 + .ident "GCC: (GNU) 4.0.2" + .section ".note.GNU-stack" diff --git a/callback/trampoline_r/cache-sparc64-macro.S b/callback/trampoline_r/cache-sparc64-macro.S new file mode 100644 index 0000000..039fd8e --- /dev/null +++ b/callback/trampoline_r/cache-sparc64-macro.S @@ -0,0 +1,14 @@ +#include "asm-sparc.h" + .section ".text" + .align 4 + .global C(__TR_clear_cache_2) + DECLARE_FUNCTION(__TR_clear_cache_2) + .proc 020 +FUNBEGIN(__TR_clear_cache_2) + iflush %o0+0;iflush %o0+8 + jmp %o7+8 + nop + FUNEND(__TR_clear_cache_2) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/callback/trampoline_r/cache.c b/callback/trampoline_r/cache.c new file mode 100644 index 0000000..7d34af9 --- /dev/null +++ b/callback/trampoline_r/cache.c @@ -0,0 +1,143 @@ +/* This file is derived from gcc-2.6.3/libgcc2.c, section L_clear_cache */ + +/* Copyright (C) 1989-2017 Free Software Foundation, Inc. + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . */ + + +/* Clear part of an instruction cache. */ + +/* Our emphasis here is _not_ to clear as few cache lines as possible + * or with as few machine instructions as possible, but to do it _right_. + */ + + + +/* This code is apparently untested!! */ + +/* This is from Andreas Stolcke . */ +#if defined(__mips__) || defined(__mips64__) +#include +#define CLEAR_INSN_CACHE(BEG, END) \ + cacheflush (BEG, END - BEG, BCACHE) +#endif + +void +__TR_clear_cache (beg, end) + char *beg, *end; +{ +#ifdef CLEAR_INSN_CACHE + CLEAR_INSN_CACHE (beg, end); +#else +#ifdef INSN_CACHE_SIZE /* This is actually dead code!! */ +#define INSN_CACHE_PLANE_SIZE (INSN_CACHE_SIZE / INSN_CACHE_DEPTH) + static char array[INSN_CACHE_SIZE + INSN_CACHE_PLANE_SIZE + INSN_CACHE_LINE_WIDTH]; + static int initialized = 0; + int offset; + void *start_addr; + void *end_addr; + typedef (*function_ptr) (); + +#if (INSN_CACHE_SIZE / INSN_CACHE_LINE_WIDTH) < 16 + /* It's cheaper to clear the whole cache. + Put in a series of jump instructions so that calling the beginning + of the cache will clear the whole thing. */ + + if (! initialized) + { + int ptr = (((int) array + INSN_CACHE_LINE_WIDTH - 1) + & -INSN_CACHE_LINE_WIDTH); + int end_ptr = ptr + INSN_CACHE_SIZE; + + while (ptr < end_ptr) + { + *(INSTRUCTION_TYPE *)ptr + = JUMP_AHEAD_INSTRUCTION + INSN_CACHE_LINE_WIDTH; + ptr += INSN_CACHE_LINE_WIDTH; + } + *(INSTRUCTION_TYPE *)(ptr - INSN_CACHE_LINE_WIDTH) = RETURN_INSTRUCTION; + + initialized = 1; + } + + /* Call the beginning of the sequence. */ + (((function_ptr) (((int) array + INSN_CACHE_LINE_WIDTH - 1) + & -INSN_CACHE_LINE_WIDTH)) + ()); + +#else /* Cache is large. */ + + if (! initialized) + { + int ptr = (((int) array + INSN_CACHE_LINE_WIDTH - 1) + & -INSN_CACHE_LINE_WIDTH); + + while (ptr < (int) array + sizeof array) + { + *(INSTRUCTION_TYPE *)ptr = RETURN_INSTRUCTION; + ptr += INSN_CACHE_LINE_WIDTH; + } + + initialized = 1; + } + + /* Find the location in array that occupies the same cache line as BEG. */ + + offset = ((int) beg & -INSN_CACHE_LINE_WIDTH) & (INSN_CACHE_PLANE_SIZE - 1); + start_addr = (((int) (array + INSN_CACHE_PLANE_SIZE - 1) + & -INSN_CACHE_PLANE_SIZE) + + offset); + + /* Compute the cache alignment of the place to stop clearing. */ +#if 0 /* This is not needed for gcc's purposes. */ + /* If the block to clear is bigger than a cache plane, + we clear the entire cache, and OFFSET is already correct. */ + if (end < beg + INSN_CACHE_PLANE_SIZE) +#endif + offset = (((int) (end + INSN_CACHE_LINE_WIDTH - 1) + & -INSN_CACHE_LINE_WIDTH) + & (INSN_CACHE_PLANE_SIZE - 1)); + +#if INSN_CACHE_DEPTH > 1 + end_addr = (start_addr & -INSN_CACHE_PLANE_SIZE) + offset; + if (end_addr <= start_addr) + end_addr += INSN_CACHE_PLANE_SIZE; + + for (plane = 0; plane < INSN_CACHE_DEPTH; plane++) + { + int addr = start_addr + plane * INSN_CACHE_PLANE_SIZE; + int stop = end_addr + plane * INSN_CACHE_PLANE_SIZE; + + while (addr != stop) + { + /* Call the return instruction at ADDR. */ + ((function_ptr) addr) (); + + addr += INSN_CACHE_LINE_WIDTH; + } + } +#else /* just one plane */ + do + { + /* Call the return instruction at START_ADDR. */ + ((function_ptr) start_addr) (); + + start_addr += INSN_CACHE_LINE_WIDTH; + } + while ((start_addr % INSN_CACHE_SIZE) != offset); +#endif /* just one plane */ +#endif /* Cache is large */ +#endif /* Cache exists */ +#endif /* CLEAR_INSN_CACHE */ +} diff --git a/callback/trampoline_r/test1.c b/callback/trampoline_r/test1.c new file mode 100644 index 0000000..cb1bfdf --- /dev/null +++ b/callback/trampoline_r/test1.c @@ -0,0 +1,105 @@ +/* Trampoline test */ + +/* + * Copyright 1995-2019 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include +#include + +#include "trampoline_r.h" +#include "ffcall-abi.h" /* Define __${host_cpu}__ */ + +/* Set when we can check that the env register is being passed correctly. */ +#if defined __GNUC__ && !defined __clang__ && !defined(__arm__) +#define CHECK_ENV_REGISTER +#endif + +#define MAGIC1 0x9db9af42 +#define MAGIC2 0x614a13c9 +#define MAGIC3 0x7aff3cb4 +#define MAGIC4 0xa2f9d045 + +#ifdef __cplusplus +typedef int (*function)(...); +#else +typedef int (*function)(); +#endif + +int f (int x) +{ +#ifdef CHECK_ENV_REGISTER +#ifdef __i386__ +register void* env __asm__("%ecx"); +#endif +#ifdef __m68k__ +register void* env __asm__("a0"); +#endif +#if defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) +register void* env __asm__("$2"); +#endif +#if defined(__sparc__) && !defined(__sparc64__) +register void* env __asm__("%g2"); +#endif +#ifdef __sparc64__ +register void* env __asm__("%g5"); +#endif +#ifdef __alpha__ +register void* env __asm__("$1"); +#endif +#if defined(__hppa__) && !defined(__hppa64__) +register void* env __asm__("%r29"); +#endif +#ifdef __hppa64__ +register void* env __asm__("%r31"); +#endif +#ifdef __arm64__ +register void* env __asm__("x18"); +#endif +#ifdef __powerpc__ +register void* env __asm__("r11"); +#endif +#ifdef __ia64__ +register void* env __asm__("r15"); +#endif +#ifdef __x86_64__ +register void* env __asm__("r10"); +#endif +#if defined(__s390__) || defined(__s390x__) +register void* env __asm__("r0"); +#endif +#if defined(__riscv32__) || defined(__riscv64__) +register void* env __asm__("t2"); +#endif + + return x + (int)(long)((void**)env)[0] + (int)(long)((void**)env)[1] + MAGIC3; +#else + return x + MAGIC3; +#endif +} + +int main () +{ + function cf = alloc_trampoline_r((function)&f, (void*)MAGIC1, (void*)MAGIC2); +#ifdef CHECK_ENV_REGISTER + if ((*cf)(MAGIC4) == MAGIC1+MAGIC2+MAGIC3+MAGIC4) +#else + if ((*cf)(MAGIC4) == MAGIC3+MAGIC4) +#endif + { free_trampoline_r(cf); printf("Works, test1 passed.\n"); exit(0); } + else + { printf("Doesn't work!\n"); exit(1); } +} diff --git a/callback/trampoline_r/test2.c b/callback/trampoline_r/test2.c new file mode 100644 index 0000000..cd4bd1f --- /dev/null +++ b/callback/trampoline_r/test2.c @@ -0,0 +1,52 @@ +/* Trampoline accessor test */ + +/* + * Copyright 1995-2005 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include +#include + +#include "trampoline_r.h" + +#ifdef __cplusplus +typedef int (*function)(...); +#else +typedef int (*function)(); +#endif + +int f (int x) +{ return x; } + +#define MAGIC1 0x9db9af42 +#define MAGIC2 0x614a13c9 + +int main () +{ + function cf = alloc_trampoline_r((function)&f, (void*)MAGIC1, (void*)MAGIC2); + if (is_trampoline_r((void*)&main)) + { printf("is_trampoline_r(&main) returns true!\n"); exit(1); } + if (!is_trampoline_r((void*)cf)) + { printf("is_trampoline_r() returns false!\n"); exit(1); } + if (trampoline_r_address(cf) != (function)&f) + { printf("trampoline_r_address() doesn't work!\n"); exit(1); } + if (trampoline_r_data0(cf) != (void*)MAGIC1) + { printf("trampoline_r_data0() doesn't work!\n"); exit(1); } + if (trampoline_r_data1(cf) != (void*)MAGIC2) + { printf("trampoline_r_data1() doesn't work!\n"); exit(1); } + printf("test2 passed.\n"); + exit(0); +} diff --git a/callback/trampoline_r/tramp-hppa-macro.S b/callback/trampoline_r/tramp-hppa-macro.S new file mode 100644 index 0000000..f223283 --- /dev/null +++ b/callback/trampoline_r/tramp-hppa-macro.S @@ -0,0 +1,49 @@ +; Trampoline for hppa CPU + +; Copyright 1997-2017 Bruno Haible +; +; This program is free software: you can redistribute it and/or modify +; it under the terms of the GNU General Public License as published by +; the Free Software Foundation; either version 2 of the License, or +; (at your option) any later version. +; +; This program is distributed in the hope that it will be useful, +; but WITHOUT ANY WARRANTY; without even the implied warranty of +; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +; GNU General Public License for more details. +; +; You should have received a copy of the GNU General Public License +; along with this program. If not, see . + +; Available registers: %r1, %r19, %r20, %r21, %r22, %r29, %r31. + + .code + .IMPORT $global$,DATA + .IMPORT $$dyncall,MILLICODE + .code + + .align 4 + .EXPORT tramp_r,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR + .label tramp_r + .PROC + .CALLINFO FRAME=0,NO_CALLS + .ENTRY +; The closure pointer is already in register %r19. +; Move into register %r29 + ldw 0(0,%r19),%r29 +; Move
into register %r21. + ldw 4(0,%r19),%r21 +; Jump to it. + bb,>=,n %r21,30,tramp_r_2 + depi 0,31,2,%r21 + ldw 4(0,%r21),%r19 + ldw 0(0,%r21),%r21 + .label tramp_r_2 + ldsid (0,%r21),%r1 + mtsp %r1,%sr0 + be,n 0(%sr0,%r21) + nop + .EXIT + .PROCEND + +#include "noexecstack.h" diff --git a/callback/trampoline_r/tramp-hppa64-macro.S b/callback/trampoline_r/tramp-hppa64-macro.S new file mode 100644 index 0000000..62eb419 --- /dev/null +++ b/callback/trampoline_r/tramp-hppa64-macro.S @@ -0,0 +1,48 @@ +; Trampoline for hppa64 CPU + +; Copyright 2017 Bruno Haible +; +; This program is free software: you can redistribute it and/or modify +; it under the terms of the GNU General Public License as published by +; the Free Software Foundation; either version 2 of the License, or +; (at your option) any later version. +; +; This program is distributed in the hope that it will be useful, +; but WITHOUT ANY WARRANTY; without even the implied warranty of +; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +; GNU General Public License for more details. +; +; You should have received a copy of the GNU General Public License +; along with this program. If not, see . + +; Available registers: %r1, %r27, %r31. +; %r27 has a fixed meaning at function calls: pic_base (a.k.a. gp or dp). +; %r31 has a fixed meaning as millicode return pointer (mrp). + +#include "asm-hppa64.h" + + .LEVEL 2.0w + TEXT1() + TEXT2() + .align 8 + GLOBL(tramp_r) + DECLARE_FUNCTION(tramp_r) +DEF(tramp_r) + .PROC + .CALLINFO FRAME=0,NO_CALLS + .ENTRY +; The closure pointer is already in register %r27. +; Move into register %r31. + ldd 0(%r27),%r31 ; get +; Jump to . + ldd 8(%r27),%r27 ; get + ldd 16(%r27),%r1 + ldd 24(%r27),%r27 + bve (%r1) ; jump to + nop + .EXIT + .PROCEND +DEF(L(fe1)) + FUNEND(tramp_r) + +#include "noexecstack.h" diff --git a/callback/trampoline_r/tramp-ia64-macro.S b/callback/trampoline_r/tramp-ia64-macro.S new file mode 100644 index 0000000..f2deeec --- /dev/null +++ b/callback/trampoline_r/tramp-ia64-macro.S @@ -0,0 +1,43 @@ +/* Trampoline for ia64 CPU */ + +/* + * Copyright 2001-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +/* Available registers: r14 ... r31, r9 ... r11, r2 ... r3. */ + + .text + .align 16 + .global tramp_r# + .proc tramp_r# +tramp_r: + /* The closure pointer is already in register r1. */ + ld8 r14 = [r1] /* Move
into register r14. */ + adds r15 = 8, r1 + ;; + ld8 r15 = [r15] /* Move into register r15. */ + /* Jump to r14. */ + ld8 r17 = [r14] + adds r16 = 8, r14 + ;; + ld8 r1 = [r16] + mov b6 = r17 + ;; + br b6 + ;; + .endp tramp_r# + +#include "noexecstack.h" diff --git a/callback/trampoline_r/tramp-powerpc-aix.S b/callback/trampoline_r/tramp-powerpc-aix.S new file mode 100644 index 0000000..2ed1eca --- /dev/null +++ b/callback/trampoline_r/tramp-powerpc-aix.S @@ -0,0 +1,49 @@ +/* Trampoline for powerpc CPU with AIX calling convention */ + +/* + * Copyright 1995-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +/* Available registers: r0, r11, r12. */ +/* However, r0 is special in that it cannot be used as a base register. */ + + .globl tramp_r + .globl .tramp_r +.csect tramp_r[DS] +tramp_r: + .long .tramp_r, 0, 0 +.csect .text[PR] +.tramp_r: +/* Move into register r11 */ + lwz 11,0(2) /* get */ +/* Get */ + lwz 12,4(2) +/* + * gcc-2.6.3 source says: + * A function pointer is a pointer to a data area whose first word contains + * the actual address of the function, whose second word contains a pointer + * to its TOC, and whose third word contains a value to place in the static + * chain register (r11). But we have already placed our information in r11. + */ +/* lwz 11,8(12) pass static chain in r11 */ + lwz 2,4(12) /* pass TOC in r2 */ + lwz 0,0(12) /* actual code address */ + mtctr 0 + bctr + +_section_.text: +.csect .data[RW] + .long _section_.text diff --git a/callback/trampoline_r/tramp-powerpc64-aix.S b/callback/trampoline_r/tramp-powerpc64-aix.S new file mode 100644 index 0000000..2221dda --- /dev/null +++ b/callback/trampoline_r/tramp-powerpc64-aix.S @@ -0,0 +1,55 @@ +/* Trampoline for powerpc64 CPU with AIX calling convention */ + +/* + * Copyright 1995-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +/* Available registers: r0, r11, r12. */ +/* However, r0 is special in that it cannot be used as a base register. */ + + .machine "ppc64" + +#ifdef _AIX + .rename H.4.NO_SYMBOL{PR},"" + .lglobl H.4.NO_SYMBOL{PR} + + .globl .tramp_r + .csect H.4.NO_SYMBOL{PR},7 +#else + .globl tramp_r + .globl .tramp_r +tramp_r: + .quad .tramp_r +#endif +.tramp_r: +/* Move into register r11 */ + ld 11,0(2) /* get */ +/* Get */ + ld 12,8(2) +/* + * gcc-2.6.3 source says: + * A function pointer is a pointer to a data area whose first word contains + * the actual address of the function, whose second word contains a pointer + * to its TOC, and whose third word contains a value to place in the static + * chain register (r11). But we have already placed our information in r11. + */ +/* ld 11,16(12) pass static chain in r11 */ + ld 2,8(12) /* pass TOC in r2 */ + ld 0,0(12) /* actual code address */ + mtctr 0 + bctr + +#include "noexecstack.h" diff --git a/callback/trampoline_r/trampoline.c b/callback/trampoline_r/trampoline.c new file mode 100644 index 0000000..175eb42 --- /dev/null +++ b/callback/trampoline_r/trampoline.c @@ -0,0 +1,1505 @@ +/* Trampoline construction */ + +/* + * Copyright 1995-2019 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + + +#include "config.h" +#include "trampoline_r.h" + +#if defined(__hppa__) && !defined(__hppa64__) +#if 0 +#define __hppaold__ /* Old trampoline, real machine code. */ +#else +#define __hppanew__ /* New trampoline, just a closure. */ +#endif +#endif +#if defined(__hppa64__) +#if 0 +#define __hppa64old__ /* Old trampoline, real machine code. */ +#else +#define __hppa64new__ /* New trampoline, just a closure. */ +#endif +#endif +#if defined(__powerpc__) && !defined(__powerpc64__) +#if !defined(_AIX) +#define __powerpcsysv4__ /* SysV.4 ABI, real machine code. */ +#else +#define __powerpcaix__ /* AIX ABI, just a closure. */ +#endif +#endif +#if defined(__powerpc64__) && !defined(__powerpc64_elfv2__) +#define __powerpc64aix__ /* AIX ABI, just a closure. */ +#endif +#if defined(__hppanew__) || defined(__hppa64new__) +/* + * A function pointer is a biased pointer to a data area whose first word + * (hppa) or third word (hppa64) contains the actual address of the function. + */ +extern void tramp_r (); /* trampoline prototype */ +/* We don't need to take any special measures to make the code executable + * since the actual instructions are in the text segment. + */ +#ifndef CODE_EXECUTABLE +#define CODE_EXECUTABLE +#endif +#endif +#if defined(__powerpcaix__) || defined(__powerpc64aix__) || defined(__ia64__) +/* + * A function pointer is a pointer to a data area whose first word contains + * the actual address of the function. + */ +extern void (*tramp_r) (); /* trampoline prototype */ +/* We don't need to take any special measures to make the code executable + * since the actual instructions are in the text segment. + */ +#ifndef CODE_EXECUTABLE +#define CODE_EXECUTABLE +#endif +#endif + +#ifndef CODE_EXECUTABLE + /* How do we make the trampoline's code executable? */ + #if defined(HAVE_MACH_VM) || defined(HAVE_WORKING_MPROTECT) + #if HAVE_MPROTECT_AFTER_MALLOC_CAN_EXEC > 0 + /* mprotect() [or equivalent] the malloc'ed area. */ + #define EXECUTABLE_VIA_MALLOC_THEN_MPROTECT + #elif HAVE_MPROTECT_AFTER_MMAP_CAN_EXEC > 0 + /* mprotect() [or equivalent] the mmap'ed area. */ + #define EXECUTABLE_VIA_MMAP_THEN_MPROTECT + #elif defined(HAVE_MMAP_SHARED_CAN_EXEC) + #define EXECUTABLE_VIA_MMAP_FILE_SHARED + #else + #error "Don't know how to make memory pages executable." + #endif + #else + #ifdef HAVE_MMAP + /* Use an mmap'ed page. */ + #define EXECUTABLE_VIA_MMAP + #else + #ifdef HAVE_SHM + /* Use an shmat'ed page. */ + #define EXECUTABLE_VIA_SHM + #else + #if defined(_WIN32) && ! defined(__CYGWIN__) /* native Windows */ + #define EXECUTABLE_VIA_VIRTUALALLOC + #else + ?? + #endif + #endif + #endif + #endif +#endif + +#include /* declares fprintf() */ + +#include +#include /* declares abort(), malloc(), free() */ +#ifdef HAVE_UNISTD_H +#include +#endif + +/* Define intptr_t, uintptr_t. */ +#include + +/* Declare getpagesize(). */ +#ifdef HAVE_GETPAGESIZE +#ifdef __cplusplus +extern "C" RETGETPAGESIZETYPE getpagesize (void); +#else +extern RETGETPAGESIZETYPE getpagesize (void); +#endif +#else +#ifdef HAVE_SYS_PARAM_H +#include +#else +/* Not Unix, e.g. mingw32 */ +#define PAGESIZE 4096 +#endif +#define getpagesize() PAGESIZE +#endif + +/* Declare mprotect() or equivalent. */ +#if defined(EXECUTABLE_VIA_MALLOC_THEN_MPROTECT) || defined(EXECUTABLE_VIA_MMAP_THEN_MPROTECT) +#ifdef HAVE_MACH_VM +#include +#include +#ifdef __osf__ +#include +#endif +#include +#else +#include +#include +#endif +#endif + +/* Declare mmap(). */ +#if defined(EXECUTABLE_VIA_MMAP) || defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) +#include +#include +#if !defined(PROT_EXEC) && defined(PROT_EXECUTE) /* Irix 4.0.5 needs this */ +#define PROT_EXEC PROT_EXECUTE +#endif +#endif + +/* Declare open(). */ +#if defined(EXECUTABLE_VIA_MMAP_DEVZERO) || defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) +#include +#include +#include +#endif + +/* Declare shmget(), shmat(), shmctl(). */ +#ifdef EXECUTABLE_VIA_SHM +#include +#include +#include +#ifdef HAVE_SYS_SYSMACROS_H +#include +#endif +#endif + +/* Declare VirtualAlloc(), GetSystemInfo. */ +#ifdef EXECUTABLE_VIA_VIRTUALALLOC +#define WIN32_LEAN_AND_MEAN +#define WIN32_EXTRA_LEAN +#include +#endif + +/* Some old mmap() implementations require the flag MAP_FILE whenever you pass + an fd >= 0. */ +#ifndef MAP_FILE +#define MAP_FILE 0 +#endif +/* Some old mmap() implementations require the flag MAP_VARIABLE whenever you + pass an addr == NULL. */ +#ifndef MAP_VARIABLE +#define MAP_VARIABLE 0 +#endif + +/* Support for instruction cache flush. */ +#ifdef __i386__ +#if defined(_WIN32) && ! defined(__CYGWIN__) /* native Windows */ +#define WIN32_LEAN_AND_MEAN +#define WIN32_EXTRA_LEAN +#include +#endif +#endif +#if defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) || defined(__riscv32__) || defined(__riscv64__) +#ifdef HAVE_SYS_CACHECTL_H /* IRIX, Linux */ +#include +#else +#ifdef __OpenBSD__ +#include +#endif +#endif +#endif +/* Inline assembly function for instruction cache flush. */ +#if defined(__sparc__) || defined(__sparc64__) || defined(__alpha__) || defined(__hppaold__) || defined(__hppa64old__) || defined(__powerpcsysv4__) || defined(__powerpc64_elfv2__) +#if defined(__sparc__) || defined(__sparc64__) +extern void __TR_clear_cache_2(); +#else +extern void __TR_clear_cache(); +#endif +#endif + +/* Support for multithread-safe coding. */ +#include "glthread/lock.h" + +#if !defined(CODE_EXECUTABLE) && defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) +/* Opens a file descriptor and attempts to make it non-inheritable. */ +static int open_noinherit (const char *filename, int flags, int mode) +{ +# if O_CLOEXEC + return open (filename, flags | O_CLOEXEC, mode); +# else + int fd = open (filename, flags, mode); +# ifdef F_SETFD + if (fd >= 0) + { + int flags = fcntl (fd, F_GETFD, 0); + if (flags >= 0) + fcntl (fd, F_SETFD, flags | FD_CLOEXEC); + } +# endif + return fd; +# endif +} +#endif + +/* Length and alignment of trampoline */ +#ifdef __i386__ +#define TRAMP_LENGTH 12 +#define TRAMP_ALIGN 16 /* 4 for a i386, 16 for a i486 */ +#endif +#ifdef __m68k__ +#define TRAMP_LENGTH 14 +#define TRAMP_ALIGN 16 +#endif +#if (defined(__mips__) || defined(__mipsn32__)) && !defined(__mips64__) +#define TRAMP_LENGTH 24 +#define TRAMP_ALIGN 4 +#endif +#ifdef __mips64old__ +#define TRAMP_LENGTH 56 +#define TRAMP_ALIGN 4 +#endif +#ifdef __mips64__ +#define TRAMP_LENGTH 32 +#define TRAMP_ALIGN 8 +#endif +#if defined(__sparc__) && !defined(__sparc64__) +#define TRAMP_LENGTH 16 +#define TRAMP_ALIGN 16 +#endif +#ifdef __sparc64__ +#define TRAMP_LENGTH 32 +#define TRAMP_ALIGN 16 +#endif +#ifdef __alpha__ +#define TRAMP_LENGTH 32 +#define TRAMP_ALIGN 8 +#endif +#ifdef __hppaold__ +#define TRAMP_LENGTH 48 +#define TRAMP_ALIGN 16 +#endif +#ifdef __hppanew__ +#define TRAMP_LENGTH 16 +#define TRAMP_ALIGN 16 +#define TRAMP_BIAS 2 +#endif +#ifdef __hppa64old__ +#define TRAMP_LENGTH 80 +#define TRAMP_ALIGN 8 +#define TRAMP_BIAS 48 +#endif +#ifdef __hppa64new__ +#define TRAMP_LENGTH 48 +#define TRAMP_ALIGN 8 +#endif +#if defined(__arm__) || defined(__armhf__) +#define TRAMP_LENGTH 48 +#define TRAMP_ALIGN 4 +#endif +#ifdef __arm64__ +#define TRAMP_LENGTH 32 +#define TRAMP_ALIGN 8 +#endif +#ifdef __powerpcsysv4__ +#define TRAMP_LENGTH 24 +#define TRAMP_ALIGN 4 +#endif +#ifdef __powerpcaix__ +#define TRAMP_LENGTH 20 +#define TRAMP_ALIGN 4 +#endif +#ifdef __powerpc64_elfv2__ +#define TRAMP_LENGTH 32 +#define TRAMP_ALIGN 8 +#endif +#ifdef __powerpc64aix__ +#define TRAMP_LENGTH 40 +#define TRAMP_ALIGN 8 +#endif +#ifdef __ia64__ +#define TRAMP_LENGTH 32 +#define TRAMP_ALIGN 16 +#endif +#ifdef __x86_64__ +#ifdef __x86_64_x32__ +#define TRAMP_LENGTH 13 +#define TRAMP_ALIGN 4 +#else +#define TRAMP_LENGTH 22 +#define TRAMP_ALIGN 16 +#endif +#endif +#if defined(__s390__) && !defined(__s390x__) +#define TRAMP_LENGTH 20 +#define TRAMP_ALIGN 4 +#endif +#ifdef __s390x__ +#define TRAMP_LENGTH 32 +#define TRAMP_ALIGN 8 +#endif +#ifdef __riscv32__ +#define TRAMP_LENGTH 24 +#define TRAMP_ALIGN 4 +#endif +#ifdef __riscv64__ +#define TRAMP_LENGTH 32 +#define TRAMP_ALIGN 8 +#endif + +#ifndef TRAMP_BIAS +#define TRAMP_BIAS 0 +#endif + +#define TRAMP_TOTAL_LENGTH (TRAMP_LENGTH + 2*sizeof(void*)) + +#if !defined(CODE_EXECUTABLE) +static long pagesize = 0; +#endif + +#if !defined(CODE_EXECUTABLE) && (defined(EXECUTABLE_VIA_MMAP_DEVZERO) || defined(EXECUTABLE_VIA_MMAP_FILE_SHARED)) + +/* Variables needed for obtaining memory pages via mmap(). */ +#if defined(EXECUTABLE_VIA_MMAP_DEVZERO) +static int zero_fd; +#endif +#if defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) +static int file_fd; +static long file_length; +#endif + +/* Initialization of these variables. */ +static void for_mmap_init (void) +{ +#if defined(EXECUTABLE_VIA_MMAP_DEVZERO) + zero_fd = open("/dev/zero",O_RDONLY,0644); + if (zero_fd < 0) + { fprintf(stderr,"trampoline: Cannot open /dev/zero!\n"); abort(); } +#endif +#if defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) + { + char filename[100]; + sprintf(filename, "%s/trampdata-%d-%ld", "/tmp", getpid (), random ()); + file_fd = open_noinherit (filename, O_CREAT | O_RDWR | O_TRUNC, 0700); + if (file_fd < 0) + { fprintf(stderr,"trampoline: Cannot open %s!\n",filename); abort(); } + /* Remove the file from the file system as soon as possible, to make + sure there is no leftover after this process terminates or crashes. */ + unlink(filename); + } + file_length = 0; +#endif +} + +/* Once-only initializer for these variables. */ +gl_once_define(static, for_mmap_once) + +#endif + +#if !defined(CODE_EXECUTABLE) && !defined(EXECUTABLE_VIA_MALLOC_THEN_MPROTECT) +/* AIX doesn't support mprotect() in malloc'ed memory. Must get pages of + * memory with execute permission via mmap(). Then keep a free list of + * free trampolines. + */ +static char* freelist = NULL; +/* Lock that protects the freelist from simultaneous access from multiple + threads. */ +gl_lock_define_initialized(static, freelist_lock) +#endif + +__TR_function alloc_trampoline_r (__TR_function address, void* data0, void* data1) +{ + char* function; + char* function_x; + char* data; + +#if !defined(CODE_EXECUTABLE) + /* First, get the page size once and for all. */ + if (!pagesize) + { + /* Simultaneous execution of this initialization in multiple threads + is OK. */ +#if defined(EXECUTABLE_VIA_VIRTUALALLOC) + /* GetSystemInfo + + */ + SYSTEM_INFO info; + GetSystemInfo(&info); + pagesize = info.dwPageSize; +#elif defined(HAVE_MACH_VM) + pagesize = vm_page_size; +#else + pagesize = getpagesize(); +#endif +#if defined(EXECUTABLE_VIA_MMAP_DEVZERO) || defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) + /* Use a once-only initializer here, since simultaneous execution of + for_mmap_init() in multiple threads must be avoided. */ + gl_once (for_mmap_once, for_mmap_init); +#endif + } +#endif + + /* 1. Allocate room */ + +#if !defined(CODE_EXECUTABLE) && !defined(EXECUTABLE_VIA_MALLOC_THEN_MPROTECT) + gl_lock_lock(freelist_lock); + if (freelist == NULL) + { /* Get a new page. */ + char* page; + char* page_end; +#ifdef EXECUTABLE_VIA_VIRTUALALLOC + /* VirtualAlloc + + */ + page = VirtualAlloc(NULL,pagesize,MEM_COMMIT,PAGE_EXECUTE_READWRITE); + if (page == NULL) + { fprintf(stderr,"trampoline: Out of virtual memory!\n"); abort(); } + page_end = page + pagesize; +#else +#ifdef EXECUTABLE_VIA_MMAP_FILE_SHARED + char* page_x; + /* Extend the file by one page. */ + long new_file_length = file_length + pagesize; + if (ftruncate(file_fd,new_file_length) < 0) + { fprintf(stderr,"trampoline: Cannot extend backing file!\n"); abort(); } + /* Create separate mappings for writing and for executing. */ + page = (char*)mmap(NULL,pagesize,PROT_READ|PROT_WRITE,MAP_SHARED,file_fd,file_length); + page_x = (char*)mmap(NULL,pagesize,PROT_READ|PROT_EXEC,MAP_SHARED,file_fd,file_length); + if (page == (char*)(-1) || page_x == (char*)(-1)) + { fprintf(stderr,"trampoline: Out of virtual memory!\n"); abort(); } + file_length = new_file_length; + page_end = page + pagesize; + /* Link the two pages together. */ + ((intptr_t*)page)[0] = page_x - page; + page = (char*)(((uintptr_t)page + sizeof(intptr_t) + TRAMP_ALIGN-1) & -TRAMP_ALIGN); +#else +#ifdef EXECUTABLE_VIA_MMAP_THEN_MPROTECT +#ifdef HAVE_MMAP_ANONYMOUS + /* Use mmap with the MAP_ANONYMOUS or MAP_ANON flag. */ + page = mmap(NULL, pagesize, PROT_READ | PROT_WRITE, MAP_PRIVATE | MAP_ANONYMOUS | MAP_VARIABLE, -1, 0); +#else + /* Use mmap on /dev/zero. */ + page = mmap(NULL, pagesize, PROT_READ | PROT_WRITE, MAP_PRIVATE | MAP_FILE | MAP_VARIABLE, zero_fd, 0); +#endif +#endif +#ifdef EXECUTABLE_VIA_MMAP +#ifdef HAVE_MMAP_ANONYMOUS + /* Use mmap with the MAP_ANONYMOUS or MAP_ANON flag. */ + page = mmap(NULL, pagesize, PROT_READ | PROT_WRITE | PROT_EXEC, MAP_PRIVATE | MAP_ANONYMOUS | MAP_VARIABLE, -1, 0); +#else + /* Use mmap on /dev/zero. */ + page = mmap(NULL, pagesize, PROT_READ | PROT_WRITE | PROT_EXEC, MAP_PRIVATE | MAP_FILE | MAP_VARIABLE, zero_fd, 0); +#endif +#endif +#ifdef EXECUTABLE_VIA_SHM + int shmid = shmget(IPC_PRIVATE, pagesize, 0700|IPC_CREAT); + if (shmid<0) + { page = (char*)(-1); } + else + { page = shmat(shmid, 0, 0); shmctl(shmid, IPC_RMID, 0); } +#endif + if (page == (char*)(-1)) + { fprintf(stderr,"trampoline: Out of virtual memory!\n"); abort(); } + page_end = page + pagesize; +#endif +#endif + /* Fill it with free trampolines. */ + { char** last = &freelist; + while (page+TRAMP_TOTAL_LENGTH <= page_end) + { *last = page; last = (char**)page; + page = (char*)(((uintptr_t)page + TRAMP_TOTAL_LENGTH + TRAMP_ALIGN-1) & -TRAMP_ALIGN); + } + *last = NULL; + } } + function = freelist; freelist = *(char**)freelist; + gl_lock_unlock(freelist_lock); +#else + { char* room = (char*) malloc(sizeof(void*) + TRAMP_TOTAL_LENGTH + TRAMP_ALIGN-1); + if (!room) + { fprintf(stderr,"trampoline: Out of virtual memory!\n"); abort(); } + function = (char*)(((uintptr_t)room + sizeof(void*) + TRAMP_ALIGN-1) & -TRAMP_ALIGN); + ((char**)function)[-1] = room; /* backpointer for free_trampoline() */ + } +#endif + +#if !defined(CODE_EXECUTABLE) && defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) + /* Find the executable address corresponding to the writable address. */ + { uintptr_t page = (uintptr_t) function & -(intptr_t)pagesize; + function_x = function + ((intptr_t*)page)[0]; + } +#else + function_x = function; +#endif + + /* 2. Fill out the trampoline */ + data = function + TRAMP_LENGTH; + /* Knowing that data = function + TRAMP_LENGTH, we could certainly optimize + * the trampolines a little bit more, using PC relative addressing modes. + * But I doubt it's really worth it. + */ +#ifdef __i386__ + /* function: + * movl $,%ecx B9 + * jmp
E9
- + * here: + * nop 90 + * nop 90 + */ + *(char *) (function + 0) = 0xB9; + *(long *) (function + 1) = (long) data; + *(char *) (function + 5) = 0xE9; + *(long *) (function + 6) = (long) address - (long) (function_x + 10); + *(short *) (function +10) = 0x9090; /* nop nop, for alignment */ +#define is_tramp(function) \ + *(unsigned char *) (function + 0) == 0xB9 && \ + *(unsigned char *) (function + 5) == 0xE9 +#define tramp_address(function) \ + *(long *) (function + 6) + (long) (function + 10) +#define tramp_data(function) \ + *(long *) (function + 1) +#endif +#ifdef __m68k__ + /* function: + * movel #,a0 20 7C + * jmp
4E F9
+ * nop 4E 71 + */ + *(short *) (function + 0) = 0x207C; + *(long *) (function + 2) = (long) data; + *(short *) (function + 6) = 0x4EF9; + *(long *) (function + 8) = (long) address; + *(short *) (function +12) = 0x4E71; +#define is_tramp(function) \ + *(unsigned short *) (function + 0) == 0x207C && \ + *(unsigned short *) (function + 6) == 0x4EF9 && \ + *(unsigned short *) (function +12) == 0x4E71 +#define tramp_address(function) \ + *(long *) (function + 8) +#define tramp_data(function) \ + *(long *) (function + 2) +#endif +#if (defined(__mips__) || defined(__mipsn32__)) && !defined(__mips64__) + /* function: + * lw $2,16($25) 8F 22 00 10 + * lw $25,20($25) 8F 39 00 14 + * j $25 03 20 00 08 + * nop 00 00 00 00 + * .word + * .word
+ */ + *(unsigned int *) (function + 0) = 0x8F220010; + *(unsigned int *) (function + 4) = 0x8F390014; + *(unsigned int *) (function + 8) = 0x03200008; + *(unsigned int *) (function +12) = 0x00000000; + *(unsigned int *) (function +16) = (unsigned int) data; + *(unsigned int *) (function +20) = (unsigned int) address; +#define TRAMP_CODE_LENGTH 16 +#define is_tramp(function) \ + *(unsigned int *) (function + 0) == 0x8F220010 && \ + *(unsigned int *) (function + 4) == 0x8F390014 && \ + *(unsigned int *) (function + 8) == 0x03200008 && \ + *(unsigned int *) (function +12) == 0x00000000 +#define tramp_address(function) \ + *(unsigned int *) (function +20) +#define tramp_data(function) \ + *(unsigned int *) (function +16) +#endif +#ifdef __mips64old__ + /* function: + * dli $2, 3C 02 hi16(hi32()) + * 34 42 lo16(hi32()) + * 00 02 14 38 + * 34 42 hi16(lo32()) + * 00 02 14 38 + * 34 42 lo16(lo32()) + * dli $25,
3C 19 hi16(hi32(
)) + * 37 39 lo16(hi32(
)) + * 00 19 CC 38 + * 37 39 hi16(lo32(
)) + * 00 19 CC 38 + * 37 39 lo16(lo32(
)) + * j $25 03 20 00 08 + * nop 00 00 00 00 + */ + /* What about big endian / little endian ?? */ + *(short *) (function + 0) = 0x3C02; + *(short *) (function + 2) = (unsigned long) data >> 48; + *(short *) (function + 4) = 0x3442; + *(short *) (function + 6) = ((unsigned long) data >> 32) & 0xffff; + *(int *) (function + 8) = 0x00021438; + *(short *) (function +12) = 0x3442; + *(short *) (function +14) = ((unsigned long) data >> 16) & 0xffff; + *(int *) (function +16) = 0x00021438; + *(short *) (function +20) = 0x3442; + *(short *) (function +22) = (unsigned long) data & 0xffff; + *(short *) (function +24) = 0x3C19; + *(short *) (function +26) = (unsigned long) address >> 48; + *(short *) (function +28) = 0x3739; + *(short *) (function +30) = ((unsigned long) address >> 32) & 0xffff; + *(int *) (function +32) = 0x0019CC38; + *(short *) (function +36) = 0x3739; + *(short *) (function +38) = ((unsigned long) address >> 16) & 0xffff; + *(int *) (function +40) = 0x0019CC38; + *(short *) (function +44) = 0x3739; + *(short *) (function +46) = (unsigned long) address & 0xffff; + *(int *) (function +48) = 0x03200008; + *(int *) (function +52) = 0x00000000; +#define is_tramp(function) \ + *(unsigned short *) (function + 0) == 0x3C02 && \ + *(unsigned short *) (function + 4) == 0x3442 && \ + *(unsigned int *) (function + 8) == 0x00021438 && \ + *(unsigned short *) (function +12) == 0x3442 && \ + *(unsigned int *) (function +16) == 0x00021438 && \ + *(unsigned short *) (function +20) == 0x3442 && \ + *(unsigned short *) (function +24) == 0x3C19 && \ + *(unsigned short *) (function +28) == 0x3739 && \ + *(unsigned int *) (function +32) == 0x0019CC38 && \ + *(unsigned short *) (function +36) == 0x3739 && \ + *(unsigned int *) (function +40) == 0x0019CC38 && \ + *(unsigned short *) (function +44) == 0x3739 && \ + *(unsigned int *) (function +48) == 0x03200008 && \ + *(unsigned int *) (function +52) == 0x00000000 +#define hilo(word3,word2,word1,word0) \ + (((unsigned long) (word3) << 48) | ((unsigned long) (word2) << 32) | \ + ((unsigned long) (word1) << 16) | (unsigned long) (word0)) +#define tramp_address(function) \ + hilo(*(unsigned short *) (function +26), \ + *(unsigned short *) (function +30), \ + *(unsigned short *) (function +38), \ + *(unsigned short *) (function +46)) +#define tramp_data(function) \ + hilo(*(unsigned short *) (function + 2), \ + *(unsigned short *) (function + 6), \ + *(unsigned short *) (function +14), \ + *(unsigned short *) (function +22)) +#endif +#ifdef __mips64__ + /* function: + * ld $2,16($25) DF 22 00 10 + * ld $25,24($25) DF 39 00 18 + * j $25 03 20 00 08 + * nop 00 00 00 00 + * .dword + * .dword
+ */ + *(unsigned int *) (function + 0) = 0xDF220010; + *(unsigned int *) (function + 4) = 0xDF390018; + *(unsigned int *) (function + 8) = 0x03200008; + *(unsigned int *) (function +12) = 0x00000000; + *(unsigned long *) (function +16) = (unsigned long) data; + *(unsigned long *) (function +24) = (unsigned long) address; +#define TRAMP_CODE_LENGTH 16 +#define is_tramp(function) \ + *(unsigned int *) (function + 0) == 0xDF220010 && \ + *(unsigned int *) (function + 4) == 0xDF390018 && \ + *(unsigned int *) (function + 8) == 0x03200008 && \ + *(unsigned int *) (function +12) == 0x00000000 +#define tramp_address(function) \ + *(unsigned long *) (function +24) +#define tramp_data(function) \ + *(unsigned long *) (function +16) +#endif +#if defined(__sparc__) && !defined(__sparc64__) + /* function: + * sethi %hi(),%g2 05000000 | ( >> 10) + * sethi %hi(
),%g1 03000000 | (
>> 10) + * jmp %g1+%lo(
) 81C06000 | (
& 0x3ff) + * or %g2,%lo(),%g2 8410A000 | ( & 0x3ff) + */ +#define hi(word) ((unsigned long) (word) >> 10) +#define lo(word) ((unsigned long) (word) & 0x3ff) + *(long *) (function + 0) = 0x05000000 | hi(data); + *(long *) (function + 4) = 0x03000000 | hi(address); + *(long *) (function + 8) = 0x81C06000 | lo(address); + *(long *) (function +12) = 0x8410A000 | lo(data); +#define is_tramp(function) \ + (*(long *) (function + 0) & 0xffc00000) == 0x05000000 && \ + (*(long *) (function + 4) & 0xffc00000) == 0x03000000 && \ + (*(long *) (function + 8) & 0xfffffc00) == 0x81C06000 && \ + (*(long *) (function +12) & 0xfffffc00) == 0x8410A000 +#define hilo(hiword,loword) (((hiword) << 10) | ((loword) & 0x3ff)) +#define tramp_address(function) \ + hilo(*(long *) (function + 4), *(long *) (function + 8)) +#define tramp_data(function) \ + hilo(*(long *) (function + 0), *(long *) (function +12)) +#endif +#ifdef __sparc64__ + /* function: + * rd %pc,%g1 83414000 + * ldx [%g1+24],%g2 C4586018 + * jmp %g2 81C08000 + * ldx [%g1+16],%g5 CA586010 + * .long high32() >> 32 + * .long low32() & 0xffffffff + * .long high32(
)
>> 32 + * .long low32(
)
& 0xffffffff + */ + *(int *) (function + 0) = 0x83414000; + *(int *) (function + 4) = 0xC4586018; + *(int *) (function + 8) = 0x81C08000; + *(int *) (function +12) = 0xCA586010; + *(long *) (function +16) = (long) data; + *(long *) (function +24) = (long) address; +#define TRAMP_CODE_LENGTH 16 +#define is_tramp(function) \ + *(int *) (function + 0) == 0x83414000 && \ + *(int *) (function + 4) == 0xC4586018 && \ + *(int *) (function + 8) == 0x81C08000 && \ + *(int *) (function +12) == 0xCA586010 +#define tramp_address(function) \ + *(long *) (function +24) +#define tramp_data(function) \ + *(long *) (function +16) +#endif +#ifdef __alpha__ + /* function: + * br $1,function..ng 00 00 20 C0 + * function..ng: + * ldq $27,20($1) 14 00 61 A7 + * ldq $1,12($1) 0C 00 21 A4 + * jmp $31,($27),0 00 00 FB 6B + * .quad + * .quad
+ */ + { static int code [4] = + { 0xC0200000, 0xA7610014, 0xA421000C, 0x6BFB0000 }; + int i; + for (i=0; i<4; i++) { ((int *) function)[i] = code[i]; } + ((long *) function)[2] = (long) data; + ((long *) function)[3] = (long) address; + } +#define TRAMP_CODE_LENGTH 16 +#define is_tramp(function) \ + ((int *) function)[0] == 0xC0200000 && \ + ((int *) function)[1] == 0xA7610014 && \ + ((int *) function)[2] == 0xA421000C && \ + ((int *) function)[3] == 0x6BFB0000 +#define tramp_address(function) \ + ((long *) function)[3] +#define tramp_data(function) \ + ((long *) function)[2] +#endif +#ifdef __hppaold__ + /* function: + * ldil L',%r29 23A00000 | hi() + * ldil L'
,%r21 22A00000 | hi(
) + * ldo R'(%r29),%r29 37BD0000 | lo() + * ldo R'
(%r21),%r21 36B50000 | lo(
) + * bb,>=,n %r21,30,function2 C7D5C012 + * depi 0,31,2,%r21 D6A01C1E + * ldw 4(0,%r21),%r19 4AB30008 + * ldw 0(0,%r21),%r21 4AB50000 + * function2: + * ldsid (0,%r21),%r1 02A010A1 + * mtsp %r1,%sr0 00011820 + * be,n 0(%sr0,%r21) E2A00002 + * nop 08000240 + */ + /* When decoding a 21-bit argument in an instruction, the hppa performs + * the following bit manipulation: + * assemble21: x[20]...x[0] + * --> x[0] x[11]...x[1] x[15]..x[14] x[20]...x[16] x[13]..x[12] + * When encoding a 21-bit argument into an instruction, we need the + * to perform the reverse permutation: + * permute21: y[20]...y[0] + * --> y[6]...y[2] y[8]..y[7] y[1]..y[0] y[19]...y[9] y[20] + */ +#define assemble21(x) \ + ((((x) & 0x1) << 20) | (((x) & 0xFFE) << 8) | \ + (((x) & 0xC000) >> 7) | (((x) & 0x1F0000) >> 14) | (((x) & 0x3000) >> 12)) +#define permute21(y) \ + ((((y) & 0x7C) << 14) | (((y) & 0x180) << 7) | (((y) & 0x3) << 12) | \ + (((y) & 0xFFE00) >> 8) | (((y) & 0x100000) >> 20)) +#define hi(word) permute21((unsigned long) (word) >> 11) +#define lo(word) (((unsigned long) (word) & 0x7FF) << 1) + *(long *) (function + 0) = 0x23A00000 | hi(data); + *(long *) (function + 4) = 0x22A00000 | hi(address); + *(long *) (function + 8) = 0x37BD0000 | lo(data); + *(long *) (function +12) = 0x36B50000 | lo(address); + *(long *) (function +16) = 0xC7D5C012; + *(long *) (function +20) = 0xD6A01C1E; + *(long *) (function +24) = 0x4AB30008; + *(long *) (function +28) = 0x4AB50000; + *(long *) (function +32) = 0x02A010A1; + *(long *) (function +36) = 0x00011820; + *(long *) (function +40) = 0xE2A00002; + *(long *) (function +44) = 0x08000240; +#define is_tramp(function) \ + ((long) function & 3) == 0 && \ + (*(long *) (function + 0) & 0xffe00000) == 0x23A00000 && \ + (*(long *) (function + 4) & 0xffe00000) == 0x22A00000 && \ + (*(long *) (function + 8) & 0xfffff000) == 0x37BD0000 && \ + (*(long *) (function +12) & 0xfffff000) == 0x36B50000 && \ + *(long *) (function +16) == 0xC7D5C012 && \ + *(long *) (function +20) == 0xD6A01C1E && \ + *(long *) (function +24) == 0x4AB30008 && \ + *(long *) (function +28) == 0x4AB50000 && \ + *(long *) (function +32) == 0x02A010A1 && \ + *(long *) (function +36) == 0x00011820 && \ + *(long *) (function +40) == 0xE2A00002 && \ + *(long *) (function +44) == 0x08000240 +#define hilo(hiword,loword) \ + ((assemble21((unsigned long) (hiword)) << 11) | \ + (((unsigned long) (loword) & 0xFFE) >> 1) \ + ) +#define tramp_address(function) \ + hilo(*(long *) (function + 4), *(long *) (function +12)) +#define tramp_data(function) \ + hilo(*(long *) (function + 0), *(long *) (function + 8)) +#endif +#ifdef __hppanew__ + /* function: + * .long tramp_r + * .long closure + * closure: + * .long + * .long
+ */ + { /* work around a bug in gcc 3.* */ + void* tramp_r_address = &tramp_r; + *(long *) (function + 0) = ((long *) ((char*)tramp_r_address-2))[0]; + *(long *) (function + 4) = (long) (function + 8); + *(long *) (function + 8) = (long) data; + *(long *) (function +12) = (long) address; + } +#define TRAMP_CODE_LENGTH 0 +#define is_tramp(function) \ + ((long *) function)[0] == ((long *) ((char*)tramp_r_address-2))[0] +#define tramp_address(function) \ + ((long *) function)[3] +#define tramp_data(function) \ + ((long *) function)[2] +#endif +#ifdef __hppa64old__ + /* function: + * mfia %r27 000014BB + * ldd 32(%r27),%r31 537F0040 + * ldd 40(%r27),%r27 537B0050 + * ldd 16(%r27),%r1 53610020 + * ldd 24(%r27),%r27 537B0030 + * bve (%r1) E820D000 + * nop 08000240 + * .align 8 + * .dword + * .dword
+ * function_pointer: + * .dword 0 + * .dword 0 + * .dword function + * .dword 0 + */ + *(int *) (function + 0) = 0x000014BB; + *(int *) (function + 4) = 0x537F0040; + *(int *) (function + 8) = 0x537B0050; + *(int *) (function +12) = 0x53610020; + *(int *) (function +16) = 0x537B0030; + *(int *) (function +20) = 0xE820D000; + *(int *) (function +24) = 0x08000240; + *(long *) (function +32) = (long)data; + *(long *) (function +40) = (long)address; + *(long *) (function +48) = (long)0; + *(long *) (function +56) = (long)0; + *(long *) (function +64) = (long)function; + *(long *) (function +72) = (long)0; +#define TRAMP_CODE_LENGTH 28 +#define is_tramp(function) \ + *(int *) (function + 0) == 0x000014BB && \ + *(int *) (function + 4) == 0x537F0040 && \ + *(int *) (function + 8) == 0x537B0050 && \ + *(int *) (function +12) == 0x53610020 && \ + *(int *) (function +16) == 0x537B0030 && \ + *(int *) (function +20) == 0xE820D000 && \ + *(int *) (function +24) == 0x08000240 +#define tramp_address(function) \ + (*(unsigned long *) (function +40)) +#define tramp_data(function) \ + (*(unsigned long *) (function +32)) +#endif +#ifdef __hppa64new__ + /* function: + * .dword 0 + * .dword 0 + * .dword tramp + * .dword closure + * closure: + * .dword + * .dword
+ */ + *(long *) (function + 0) = 0; + *(long *) (function + 8) = 0; + *(long *) (function +16) = ((long *) (void*) &tramp_r)[2]; + *(long *) (function +24) = (long) (function + 32); + *(long *) (function +32) = (long) data; + *(long *) (function +40) = (long) address; +#define TRAMP_CODE_LENGTH 0 +#define is_tramp(function) \ + ((long *) function)[2] == ((long *) (void*) &tramp_r)[2] && \ + ((long *) function)[3] == (long) (function + 32) +#define tramp_address(function) \ + ((long *) function)[5] +#define tramp_data(function) \ + ((long *) function)[4] +#endif +#if defined(__arm__) || defined(__armhf__) + /* function: + * mov ip,sp E1A0C00D + * stmdb sp!,{r0,r1,r2,r3} E92D000F + * stmfd sp!,{fp,ip,lr,pc} E92DD800 + * sub fp,ip,#20 E24CB014 + * sub sp,sp,#8 E24DD008 + * ldr ip,[pc,#12] E59FC00C @ Get + * str ip,[sp,#0] E58DC000 @ Put on stack + * mov lr,pc E1A0E00F @ Prepare call (put return address in lr) + * ldr pc,[pc,#4] E59FF004 @ Call
with the same args in registers + * ldmea fp,{fp,sp,pc} E91BA800 @ Restore fp and sp, and return to return address. + * _data: + * .word + * _address: + * .word
+ */ + { + ((long *) function)[0] = 0xE1A0C00D; + ((long *) function)[1] = 0xE92D000F; + ((long *) function)[2] = 0xE92DD800; + ((long *) function)[3] = 0xE24CB014; + ((long *) function)[4] = 0xE24DD008; + ((long *) function)[5] = 0xE59FC00C; + ((long *) function)[6] = 0xE58DC000; + ((long *) function)[7] = 0xE1A0E00F; + ((long *) function)[8] = 0xE59FF004; + ((long *) function)[9] = 0xE91BA800; + ((long *) function)[10] = (long) data; + ((long *) function)[11] = (long) address; + } +#define TRAMP_CODE_LENGTH 40 +#define is_tramp(function) \ + ((long *) function)[0] == 0xE1A0C00D && \ + ((long *) function)[1] == 0xE92D000F && \ + ((long *) function)[2] == 0xE92DD800 && \ + ((long *) function)[3] == 0xE24CB014 && \ + ((long *) function)[4] == 0xE24DD008 && \ + ((long *) function)[5] == 0xE59FC00C && \ + ((long *) function)[6] == 0xE58DC000 && \ + ((long *) function)[7] == 0xE1A0E00F && \ + ((long *) function)[8] == 0xE59FF004 && \ + ((long *) function)[9] == 0xE91BA800 +#define tramp_address(function) \ + ((long *) function)[11] +#define tramp_data(function) \ + ((long *) function)[10] +#endif +#ifdef __arm64__ + /* function: + * ldr x17,.+24 580000D1 + * ldr x18,.+12 58000072 + * br x17 D61F0220 + * nop D503201F + * .xword + * .xword
+ */ + *(int *) (function + 0) = 0x580000D1; + *(int *) (function + 4) = 0x58000072; + *(int *) (function + 8) = 0xD61F0220; + *(int *) (function +12) = 0xD503201F; + *(long *) (function +16) = (unsigned long) data; + *(long *) (function +24) = (unsigned long) address; +#define TRAMP_CODE_LENGTH 16 +#define is_tramp(function) \ + *(unsigned int *) (function + 0) == 0x580000D1 && \ + *(unsigned int *) (function + 4) == 0x58000072 && \ + *(unsigned int *) (function + 8) == 0xD61F0220 && \ + *(unsigned int *) (function +12) == 0xD503201F +#define tramp_address(function) \ + (*(unsigned long *) (function +24)) +#define tramp_data(function) \ + (*(unsigned long *) (function +16)) +#endif +#ifdef __powerpcsysv4__ + /* function: + * {liu|lis} 11,hi16() 3D 60 hi16() + * {oril|ori} 11,11,lo16() 61 6B lo16() + * {liu|lis} 0,hi16(
) 3C 00 hi16(
) + * {oril|ori} 0,0,lo16(
) 60 00 lo16(
) + * mtctr 0 7C 09 03 A6 + * bctr 4E 80 04 20 + */ + *(short *) (function + 0) = 0x3D60; + *(short *) (function + 2) = (unsigned long) data >> 16; + *(short *) (function + 4) = 0x616B; + *(short *) (function + 6) = (unsigned long) data & 0xffff; + *(short *) (function + 8) = 0x3C00; + *(short *) (function +10) = (unsigned long) address >> 16; + *(short *) (function +12) = 0x6000; + *(short *) (function +14) = (unsigned long) address & 0xffff; + *(long *) (function +16) = 0x7C0903A6; + *(long *) (function +20) = 0x4E800420; +#define is_tramp(function) \ + *(unsigned short *) (function + 0) == 0x3D60 && \ + *(unsigned short *) (function + 4) == 0x616B && \ + *(unsigned short *) (function + 8) == 0x3C00 && \ + *(unsigned short *) (function +12) == 0x6000 && \ + *(unsigned long *) (function +16) == 0x7C0903A6 && \ + *(unsigned long *) (function +20) == 0x4E800420 +#define hilo(hiword,loword) \ + (((unsigned long) (hiword) << 16) | (unsigned long) (loword)) +#define tramp_address(function) \ + hilo(*(unsigned short *) (function +10), *(unsigned short *) (function +14)) +#define tramp_data(function) \ + hilo(*(unsigned short *) (function + 2), *(unsigned short *) (function + 6)) +#endif +#ifdef __powerpcaix__ + /* function: + * .long .tramp_r + * .long .mytoc + * .long 0 + * .mytoc: + * .long + * .long
+ */ + *(long *) (function + 0) = ((long *) &tramp_r)[0]; + *(long *) (function + 4) = (long) (function + 12); + *(long *) (function + 8) = 0; + *(long *) (function +12) = (long) data; + *(long *) (function +16) = (long) address; +#define TRAMP_CODE_LENGTH 0 +#define is_tramp(function) \ + ((long *) function)[0] == ((long *) &tramp_r)[0] +#define tramp_address(function) \ + ((long *) function)[4] +#define tramp_data(function) \ + ((long *) function)[3] +#endif +#ifdef __powerpc64_elfv2__ + /* function: + * ld 11,16(12) 10 00 6C E9 + * ld 12,24(12) 18 00 8C E9 + * mtctr 12 A6 03 89 7D + * bctr 20 04 80 4E + * .quad + * .quad
+ */ + *(int *) (function + 0) = 0xE96C0010; + *(int *) (function + 4) = 0xE98C0018; + *(int *) (function + 8) = 0x7D8903A6; + *(int *) (function +12) = 0x4E800420; + *(long *) (function +16) = (unsigned long) data; + *(long *) (function +24) = (unsigned long) address; +#define TRAMP_CODE_LENGTH 16 +#define is_tramp(function) \ + *(unsigned int *) (function + 0) == 0xE96C0010 && \ + *(unsigned int *) (function + 4) == 0xE98C0018 && \ + *(unsigned int *) (function + 8) == 0x7D8903A6 && \ + *(unsigned int *) (function +12) == 0x4E800420 +#define tramp_address(function) \ + (*(unsigned long *) (function +24)) +#define tramp_data(function) \ + (*(unsigned long *) (function +16)) +#endif +#ifdef __powerpc64aix__ + /* function: + * .quad .tramp_r + * .quad .mytoc + * .quad 0 + * .mytoc: + * .quad + * .quad
+ */ + *(long *) (function + 0) = ((long *) &tramp_r)[0]; + *(long *) (function + 8) = (long) (function + 24); + *(long *) (function +16) = 0; + *(long *) (function +24) = (long) data; + *(long *) (function +32) = (long) address; +#define TRAMP_CODE_LENGTH 0 +#define is_tramp(function) \ + ((long *) function)[0] == ((long *) &tramp_r)[0] +#define tramp_address(function) \ + ((long *) function)[4] +#define tramp_data(function) \ + ((long *) function)[3] +#endif +#ifdef __ia64__ + /* function: + * data8 tramp_r + * data8 closure + * closure: + * data8
+ * data8 + */ + *(long *) (function + 0) = (long) &tramp_r; + *(long *) (function + 8) = (long) (function + 16); + *(long *) (function +16) = (long) address; + *(long *) (function +24) = (long) data; +#define TRAMP_CODE_LENGTH 0 +#define is_tramp(function) \ + ((long *) function)[0] == (long) &tramp_r && \ + ((long *) function)[1] == (long) (function + 16) +#define tramp_address(function) \ + ((long *) function)[2] +#define tramp_data(function) \ + ((long *) function)[3] +#endif +#ifdef __x86_64__ +#ifdef __x86_64_x32__ + /* function: + * movl $,%r10d 41 BA + * movl $
,%rax B8
+ * jmp *%rax FF E0 + */ + *(int *) (function + 0) = ((unsigned long) data << 16) | 0xBA41; + *(int *) (function + 4) = ((unsigned long) address << 24) | 0xB80000 | ((unsigned long) data >> 16); + *(int *) (function + 8) = 0xFF000000 | ((unsigned long) address >> 8); + *(int *) (function +12) = 0xE0; +#define is_tramp(function) \ + (*(unsigned long *) (function + 0) & 0x0000FFFF) == 0xBA41 && \ + (*(unsigned long *) (function + 4) & 0x00FF0000) == 0xB80000 && \ + (*(unsigned long *) (function + 8) & 0xFF000000) == 0xFF000000 && \ + *(unsigned char *) (function +12) == 0xE0 +#define tramp_address(function) \ + ((*(unsigned long *) (function + 4) >> 24) | \ + (*(unsigned long *) (function + 8) << 8)) +#define tramp_data(function) \ + ((*(unsigned long *) (function + 0) >> 16) | \ + (*(unsigned long *) (function + 4) << 16)) +#else + /* function: + * movabsq $,%r10 49 BA + * movabsq $
,%rax 48 B8
+ * jmp *%rax FF E0 + */ + *(short *) (function + 0) = 0xBA49; + *(short *) (function + 2) = (unsigned long long) data & 0xffff; + *(int *) (function + 4) = ((unsigned long long) data >> 16) & 0xffffffff; + *(short *) (function + 8) = ((unsigned long long) data >> 48) & 0xffff; + *(short *) (function +10) = 0xB848; + *(int *) (function +12) = (unsigned long long) address & 0xffffffff; + *(int *) (function +16) = ((unsigned long long) address >> 32) & 0xffffffff; + *(short *) (function +20) = 0xE0FF; +#define is_tramp(function) \ + *(unsigned short *) (function + 0) == 0xBA49 && \ + *(unsigned short *) (function +10) == 0xB848 && \ + *(unsigned short *) (function +20) == 0xE0FF +#define hilo(hiword,loword) \ + (((unsigned long long) (hiword) << 32) | (unsigned long long) (loword)) +#define himidlo(hishort,midword,loshort) \ + (((unsigned long long) (hishort) << 48) | (unsigned long long) (midword) << 16 \ + | (unsigned long long) (loshort)) +#define tramp_address(function) \ + hilo(*(unsigned int *) (function +16), *(unsigned int *) (function +12)) +#define tramp_data(function) \ + himidlo(*(unsigned short *) (function + 8), \ + *(unsigned int *) (function + 4), \ + *(unsigned short *) (function + 2)) +#endif +#endif +#if defined(__s390__) && !defined(__s390x__) + /* function: + * bras %r1,.L1 A7150002 + * .L1: + * lm %r0,%r1,data-.L1(%r1) 98011008 + * br %r1 07F1 + * nop 0707 + * data: .long + * address: .long
+ */ + *(int *) (function + 0) = 0xA7150002; + *(int *) (function + 4) = 0x98011008; + *(int *) (function + 8) = 0x07F10707; + *(int *) (function +12) = (unsigned int) data; + *(int *) (function +16) = (unsigned int) address; +#define TRAMP_CODE_LENGTH 12 +#define is_tramp(function) \ + *(unsigned int *) (function + 0) == 0xA7150002 && \ + *(unsigned int *) (function + 4) == 0x98011008 && \ + *(unsigned int *) (function + 8) == 0x07F10707 +#define tramp_address(function) \ + *(unsigned int *) (function +16) +#define tramp_data(function) \ + *(unsigned int *) (function +12) +#endif +#ifdef __s390x__ + /* function: + * larl %r1,.L1 C01000000003 + * .L1: + * lmg %r0,%r1,data-.L1(%r1) EB01100A0004 + * br %r1 07F1 + * nop 0707 + * data: .quad + * address: .quad
+ */ + *(int *) (function + 0) = 0xC0100000; + *(int *) (function + 4) = 0x0003EB01; + *(int *) (function + 8) = 0x100A0004; + *(int *) (function +12) = 0x07F10707; + *(long *) (function +16) = (unsigned long) data; + *(long *) (function +24) = (unsigned long) address; +#define TRAMP_CODE_LENGTH 16 +#define is_tramp(function) \ + *(unsigned int *) (function + 0) == 0xC0100000 && \ + *(unsigned int *) (function + 4) == 0x0003EB01 && \ + *(unsigned int *) (function + 8) == 0x100A0004 && \ + *(unsigned int *) (function +12) == 0x07F10707 +#define tramp_address(function) \ + (*(unsigned long *) (function +24)) +#define tramp_data(function) \ + (*(unsigned long *) (function +16)) +#endif +#ifdef __riscv32__ + /* function: + * auipc t0,0 00000297 + * lw t1,20(t0) 0142A303 + * lw t2,16(t0) 0102A383 + * jr t1 00030067 + * data: .quad + * address: .quad
+ */ + *(int *) (function + 0) = 0x00000297; + *(int *) (function + 4) = 0x0142A303; + *(int *) (function + 8) = 0x0102A383; + *(int *) (function +12) = 0x00030067; + *(int *) (function +16) = (unsigned int) data; + *(int *) (function +24) = (unsigned int) address; +#define TRAMP_CODE_LENGTH 16 +#define is_tramp(function) \ + *(unsigned int *) (function + 0) == 0x00000297 && \ + *(unsigned int *) (function + 4) == 0x0142A303 && \ + *(unsigned int *) (function + 8) == 0x0102A383 && \ + *(unsigned int *) (function +12) == 0x00030067 +#define tramp_address(function) \ + (*(unsigned int *) (function +20)) +#define tramp_data(function) \ + (*(unsigned int *) (function +16)) +#endif +#ifdef __riscv64__ + /* function: + * auipc t0,0 00000297 + * ld t1,24(t0) 0182B303 + * ld t2,16(t0) 0102B383 + * jr t1 00030067 + * data: .quad + * address: .quad
+ */ + *(int *) (function + 0) = 0x00000297; + *(int *) (function + 4) = 0x0182B303; + *(int *) (function + 8) = 0x0102B383; + *(int *) (function +12) = 0x00030067; + *(long *) (function +16) = (unsigned long) data; + *(long *) (function +24) = (unsigned long) address; +#define TRAMP_CODE_LENGTH 16 +#define is_tramp(function) \ + *(unsigned int *) (function + 0) == 0x00000297 && \ + *(unsigned int *) (function + 4) == 0x0182B303 && \ + *(unsigned int *) (function + 8) == 0x0102B383 && \ + *(unsigned int *) (function +12) == 0x00030067 +#define tramp_address(function) \ + (*(unsigned long *) (function +24)) +#define tramp_data(function) \ + (*(unsigned long *) (function +16)) +#endif + /* + * data: + * + * + */ + *(void* *) (data + 0*sizeof(void*)) = data0; + *(void* *) (data + 1*sizeof(void*)) = data1; + + /* 3. Set memory protection to "executable" */ + +#if !defined(CODE_EXECUTABLE) +#if defined(EXECUTABLE_VIA_MALLOC_THEN_MPROTECT) || defined(EXECUTABLE_VIA_MMAP_THEN_MPROTECT) + /* Call mprotect on the pages that contain the range. */ + { uintptr_t start_addr = (uintptr_t) function; + uintptr_t end_addr = (uintptr_t) (function + TRAMP_LENGTH); + start_addr = start_addr & -pagesize; + end_addr = (end_addr + pagesize-1) & -pagesize; + {uintptr_t len = end_addr - start_addr; +#if defined(HAVE_MACH_VM) + if (vm_protect(task_self(),start_addr,len,0,VM_PROT_READ|VM_PROT_WRITE|VM_PROT_EXECUTE) != KERN_SUCCESS) +#else + if (mprotect((void*)start_addr, len, PROT_READ|PROT_WRITE|PROT_EXEC) < 0) +#endif + { fprintf(stderr,"trampoline: cannot make memory executable\n"); abort(); } + }} +#endif +#endif + + /* 4. Flush instruction cache */ + /* We need this because some CPUs have separate data cache and instruction + * cache. The freshly built trampoline is visible to the data cache, but not + * maybe not to the instruction cache. This is hairy. + */ + /* TRAMP_CODE_LENGTH = length of the machine instructions. */ +#ifndef TRAMP_CODE_LENGTH +#define TRAMP_CODE_LENGTH TRAMP_LENGTH +#endif +#if !(defined(__hppanew__) || defined(__hppa64new__) || defined(__powerpcaix__) || defined(__powerpc64aix__) || defined(__ia64__)) + /* Only needed if we really set up machine instructions. */ +#ifdef __i386__ +#if defined(_WIN32) + while (!FlushInstructionCache(GetCurrentProcess(),function_x,TRAMP_CODE_LENGTH)) + continue; +#endif +#endif +#ifdef __m68k__ +#if defined(__NetBSD__) && defined(__GNUC__) + { register uintptr_t _beg __asm__ ("%a1") = (uintptr_t) function_x; + register uintptr_t _len __asm__ ("%d1") = TRAMP_CODE_LENGTH; + __asm__ __volatile__ ( + "move%.l %#0x80000004,%/d0\n\t" /* CC_EXTPURGE | C_IPURGE */ + "trap #12" /* kernel call ‘cachectl’ */ + : + : "a" (_beg), "d" (_len) + : "%a0", "%a1", "%d0", "%d1" /* call-used registers */ + ); + } +#endif +#if defined(__linux__) && defined(__GNUC__) + { register uintptr_t _beg __asm__ ("%d1") = (uintptr_t) function_x; + register uintptr_t _len __asm__ ("%d4") = TRAMP_CODE_LENGTH + 32; + __asm__ __volatile__ ( + "move%.l %#123,%/d0\n\t" + "move%.l %#1,%/d2\n\t" + "move%.l %#3,%/d3\n\t" + "trap %#0" + : + : "d" (_beg), "d" (_len) + : "%d0", "%d2", "%d3" + ); + } +#endif +#if defined(AUX) && defined(__GNUC__) + /* sysm68k(105, addr, scope, cache, len) */ + __asm__ __volatile__ ( + "move%.l %1,%/sp@-\n\t" + "move%.l %#3,%/sp@-\n\t" + "move%.l %#1,%/sp@-\n\t" + "move%.l %0,%/sp@-\n\t" + "move%.l %#105,%/sp@-\n\t" + "move%.l %#0,%/sp@-\n\t" + "move%.l %#38,%/sp@-\n\t" + "trap %#0\n\t" + "add%.l %#24,%/sp" + : + : "r" (function_x), "g" ((int)TRAMP_CODE_LENGTH) + : "%d0" + ); +#endif +#endif +#if defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) + cacheflush(function_x,TRAMP_CODE_LENGTH,ICACHE); + /* gforth-0.3.0 uses BCACHE instead of ICACHE. Why?? */ +#endif +#if defined(__sparc__) || defined(__sparc64__) + /* This assumes that the trampoline fits in at most two cache lines. */ + __TR_clear_cache_2(function_x,function_x+TRAMP_CODE_LENGTH-1); +#endif +#ifdef __alpha__ + __TR_clear_cache(); +#endif +#if defined(__hppa__) || defined(__hppa64__) + /* This assumes that the trampoline fits in at most two cache lines. */ + __TR_clear_cache(function_x,function_x+TRAMP_CODE_LENGTH-1); +#endif +#if defined(__arm__) || defined(__armhf__) || defined(__arm64__) + /* On ARM, cache flushing can only be done through a system call. + GCC implements it for Linux with EABI, through an "swi 0" with code + 0xf0002. For other systems, it may be an "swi 0x9f0002", + an "swi 0xf00000", or similar. */ + /* On ARM64, cache flushing is done through special instructions, + and the length of the cache lines must be determined at runtime. + See gcc/libgcc/config/aarch64/sync-cache.c. */ +#if defined(__GNUC__) + /* Use the GCC built-in. */ + __clear_cache((void*)function_x,(void*)(function_x+TRAMP_CODE_LENGTH)); +#else + #error "Don't know how to implement clear_cache on this platform." +#endif +#endif +#if defined(__powerpc__) || defined(__powerpc64__) + __TR_clear_cache(function_x); +#endif +#if defined(__riscv32__) || defined(__riscv64__) +#if defined(__linux__) + /* Use the libc function. */ + __riscv_flush_icache((void*)function_x,(void*)(function_x+TRAMP_CODE_LENGTH),0); +#elif defined(__GNUC__) + __asm__ __volatile__ ("fence.i"); +#endif +#endif +#endif + + /* 5. Return. */ + return (__TR_function) (function_x + TRAMP_BIAS); +} + +void free_trampoline_r (__TR_function function) +{ +#if TRAMP_BIAS + function = (__TR_function)((char*)function - TRAMP_BIAS); +#endif +#if !defined(CODE_EXECUTABLE) && !defined(EXECUTABLE_VIA_MALLOC_THEN_MPROTECT) +#ifdef EXECUTABLE_VIA_MMAP_FILE_SHARED + /* Find the writable address corresponding to the executable address. */ + { uintptr_t page_x = (uintptr_t) function & -(intptr_t)pagesize; + function -= ((intptr_t*)page_x)[0]; + } +#endif + *(char**)function = freelist; freelist = (char*)function; + /* It is probably not worth calling munmap() for entirely freed pages. */ +#else + free(((char**)function)[-1]); +#endif +} + +int is_trampoline_r (void* function) +{ +#if defined(is_tramp) && defined(tramp_data) +#ifdef __hppanew__ + void* tramp_r_address = &tramp_r; + if (!(((uintptr_t)function & 3) == (TRAMP_BIAS & 3))) return 0; +#endif + if (is_tramp(((char*)function - TRAMP_BIAS))) + { + char* function_w; +#ifdef EXECUTABLE_VIA_MMAP_FILE_SHARED + /* Find the writable address corresponding to the executable address. */ + { uintptr_t page_x = (uintptr_t) function & -(intptr_t)pagesize; + function_w = function - ((intptr_t*)page_x)[0]; + } +#else + function_w = function; +#endif + return (tramp_data(((char*)function - TRAMP_BIAS))) == (uintptr_t)((char*)function_w - TRAMP_BIAS + TRAMP_LENGTH); + } + return 0; +#else + abort(); +#endif +} + +__TR_function trampoline_r_address (__TR_function function) +{ +#ifdef tramp_address + return (__TR_function)(tramp_address(((char*)function - TRAMP_BIAS))); +#else + abort(); +#endif +} + +void* trampoline_r_data0 (__TR_function function) +{ +#ifdef tramp_data + return ((void**)((char*)function-TRAMP_BIAS+TRAMP_LENGTH))[0]; +#else + abort(); +#endif +} + +void* trampoline_r_data1 (__TR_function function) +{ +#ifdef tramp_data + return ((void**)((char*)function-TRAMP_BIAS+TRAMP_LENGTH))[1]; +#else + abort(); +#endif +} diff --git a/callback/trampoline_r/trampoline_r.3 b/callback/trampoline_r/trampoline_r.3 new file mode 100644 index 0000000..f58cfe6 --- /dev/null +++ b/callback/trampoline_r/trampoline_r.3 @@ -0,0 +1,120 @@ +.\" Copyright (C) 1995-2017 Bruno Haible +.\" +.\" This manual is free documentation. It is dually licensed under the +.\" GNU FDL and the GNU GPL. This means that you can redistribute this +.\" manual under either of these two licenses, at your choice. +.\" +.\" This manual is covered by the GNU FDL. Permission is granted to copy, +.\" distribute and/or modify this document under the terms of the +.\" GNU Free Documentation License (FDL), either version 1.2 of the +.\" License, or (at your option) any later version published by the +.\" Free Software Foundation (FSF); with no Invariant Sections, with no +.\" Front-Cover Text, and with no Back-Cover Texts. +.\" A copy of the license is at . +.\" +.\" This manual is covered by the GNU GPL. You can redistribute it and/or +.\" modify it under the terms of the GNU General Public License (GPL), either +.\" version 2 of the License, or (at your option) any later version published +.\" by the Free Software Foundation (FSF). +.\" A copy of the license is at . +.\" +.TH TRAMPOLINE 3 "1 January 2017" +.SH NAME +trampoline \- closures as first-class C functions +.SH SYNOPSIS +.B #include +.LP +.B function = alloc_trampoline_r(address, data0, data1); +.LP +.B free_trampoline_r(function); +.LP +.nf +.B is_trampoline_r(function) +.B trampoline_r_address(function) +.B trampoline_r_data0(function) +.B trampoline_r_data1(function) +.fi +.SH DESCRIPTION +.LP +These functions implement +.I closures +as first-class C functions. +A closure consists of a regular C function and a piece of data +which gets passed to the C function when the closure is called. + +Closures as +.I first-class C functions +means that they fit into a function +pointer and can be called exactly like any other C function. +.IB function " = alloc_trampoline_r(" address ", " data0 ", " data1 ")" +allocates a closure. When +.I function +gets called, it stores in a special "lexical chain register" a pointer to a +storage area containing +.I data0 +in its first word and +.I data1 +in its second word and calls the C function at +.IR address . +The function at +.I address +is responsible for fetching +.I data0 +and +.I data1 +off the pointer. Note that the "lexical chain register" is a call-used +register, i.e. is clobbered by function calls. + +This is much like +.BR gcc "'s" +local functions, except that the GNU C local functions have dynamic extent +(i.e. are deallocated when the creating function returns), while +.I trampoline +provides functions with indefinite extent: +.I function +is only deallocated when +.BI free_trampoline_r( function ) +is called. + +.BI "is_trampoline_r(" function ")" +checks whether the C function +.I function +was produced by a call to +.IR alloc_trampoline_r . +If this returns true, the arguments given to +.I alloc_trampoline_r +can be retrieved: +.RS 4 +.LP +.BI "trampoline_r_address(" function ")" +returns +.IR address , +.LP +.BI "trampoline_r_data0(" function ")" +returns +.IR data0 , +.LP +.BI "trampoline_r_data1(" function ")" +returns +.IR data1 . +.RE + +.SH SEE ALSO +.BR trampoline (3), +.BR gcc (1), +.BR stdarg (3) + +.SH PORTING +The way +.B gcc +builds local functions is described in the gcc source, file +.RI gcc-2.6.3/config/ cpu / cpu .h. + +.SH AUTHOR + +Bruno Haible + +.SH ACKNOWLEDGEMENTS + +Many ideas were cribbed from the gcc source. + diff --git a/callback/trampoline_r/trampoline_r.h b/callback/trampoline_r/trampoline_r.h new file mode 100644 index 0000000..42bb221 --- /dev/null +++ b/callback/trampoline_r/trampoline_r.h @@ -0,0 +1,41 @@ +/* + * Copyright 1995-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#ifndef _TRAMPOLINE_R_H +#define _TRAMPOLINE_R_H + +/* Use a consistent prefix for all symbols in libcallback. */ +#define alloc_trampoline_r callback_trampoline_alloc +#define free_trampoline_r callback_trampoline_free +#define is_trampoline_r callback_trampoline_is +#define trampoline_r_address callback_trampoline_address +#define trampoline_r_data0 callback_trampoline_data0 +#define trampoline_r_data1 callback_trampoline_data1 + +#ifdef __cplusplus +typedef int (*__TR_function) (...); +#else +typedef int (*__TR_function) (); +#endif +extern __TR_function alloc_trampoline_r (__TR_function, void*, void*); +extern void free_trampoline_r (__TR_function); +extern int is_trampoline_r (void*); +extern __TR_function trampoline_r_address (__TR_function); +extern void* trampoline_r_data0 (__TR_function); +extern void* trampoline_r_data1 (__TR_function); + +#endif /* _TRAMPOLINE_R_H */ diff --git a/callback/trampoline_r/trampoline_r.html b/callback/trampoline_r/trampoline_r.html new file mode 100644 index 0000000..e7fb770 --- /dev/null +++ b/callback/trampoline_r/trampoline_r.html @@ -0,0 +1,135 @@ + + + + TRAMPOLINE_R manual page + + +

TRAMPOLINE_R manual page

+ + +

+ +

+ + +

Name

+ + +trampoline_r - closures as first-class C functions + + +

Synopsis

+ + +
+#include <trampoline_r.h>
+function = alloc_trampoline_r(address, data0, data1);
+free_trampoline_r(function);
+is_trampoline_r(function)
+trampoline_r_address(function)
+trampoline_r_data0(function)
+trampoline_r_data1(function)
+
+ + +

Description

+ + +These functions implement closures as first-class +C functions. A closure consists of a regular C function and a +piece of data which gets passed to the C function when the +closure is called. +

+Closures as first-class C functions means that they fit +into a function pointer and can be called exactly like any +other C function. function = alloc_trampoline_r(address, data0, data1) +allocates a closure. When function gets +called, it stores in a special "lexical chain register" a +pointer to a storage area containing data0 in its first +word and data1 in its second word and calls the C function +at address. The function at address is responsible for +fetching data0 and data1 off the pointer. Note that the +"lexical chain register" is a call-used register, i.e. is +clobbered by function calls. +

+This is much like gcc's local functions, except that the +GNU C local functions have dynamic extent (i.e. are +deallocated when the creating function returns), while trampoline + provides functions with indefinite extent: function +is only deallocated when free_trampoline_r(function) is +called. +

+is_trampoline_r(function) +checks whether the C function function +was produced by a call to alloc_trampoline_r. +If this returns true, the arguments given to alloc_trampoline_r +can be retrieved: +

    +
  • trampoline_r_address(function) returns address, +
  • trampoline_r_data0(function) returns data0, +
  • trampoline_r_data1(function) returns data1. +
+ + +

See also

+ +trampoline(3), gcc(1), stdarg(3) + + +

Porting

+ + +The way gcc builds local functions is described in the gcc +source, file gcc-2.6.3/config/cpu/cpu.h. + + +

Author

+ + +Bruno Haible <bruno@clisp.org> + + +

Acknowledgements

+ + +Many ideas were cribbed from the gcc source. +

+ +

+ +
TRAMPOLINE_R manual page
+Bruno Haible <bruno@clisp.org> +
+

+Last modified: 1 January 2017. + + + diff --git a/callback/trampoline_r/trampoline_r.man b/callback/trampoline_r/trampoline_r.man new file mode 100644 index 0000000..4580171 --- /dev/null +++ b/callback/trampoline_r/trampoline_r.man @@ -0,0 +1,71 @@ +TRAMPOLINE(3) Library Functions Manual TRAMPOLINE(3) + + + +NAME + trampoline - closures as first-class C functions + +SYNOPSIS + #include  + + function = alloc_trampoline_r(address, data0, data1); + + free_trampoline_r(function); + + is_trampoline_r(function) + trampoline_r_address(function) + trampoline_r_data0(function) + trampoline_r_data1(function) + +DESCRIPTION + These functions implement closures as first-class C functions. A clo‐ + sure consists of a regular C function and a piece of data which gets + passed to the C function when the closure is called. + + Closures as first-class C functions means that they fit into a function + pointer and can be called exactly like any other C function. function + = alloc_trampoline_r(address, data0, data1) allocates a closure. When + function gets called, it stores in a special "lexical chain register" a + pointer to a storage area containing data0 in its first word and data1 + in its second word and calls the C function at address. The function + at address is responsible for fetching data0 and data1 off the pointer. + Note that the "lexical chain register" is a call-used register, i.e. is + clobbered by function calls. + + This is much like gcc's local functions, except that the GNU C local + functions have dynamic extent (i.e. are deallocated when the creating + function returns), while trampoline provides functions with indefinite + extent: function is only deallocated when free_trampoline_r(function) + is called. + + is_trampoline_r(function) checks whether the C function function was + produced by a call to alloc_trampoline_r. If this returns true, the + arguments given to alloc_trampoline_r can be retrieved: + + trampoline_r_address(function) returns address, + + trampoline_r_data0(function) returns data0, + + trampoline_r_data1(function) returns data1. + + +SEE ALSO + trampoline(3), gcc(1), stdarg(3) + + +PORTING + The way gcc builds local functions is described in the gcc source, file + gcc-2.6.3/config/cpu/cpu.h. + + +AUTHOR + Bruno Haible + + +ACKNOWLEDGEMENTS + Many ideas were cribbed from the gcc source. + + + + + 1 January 2017 TRAMPOLINE(3) diff --git a/callback/vacall_r/COPYING b/callback/vacall_r/COPYING new file mode 100644 index 0000000..a3d1815 --- /dev/null +++ b/callback/vacall_r/COPYING @@ -0,0 +1,340 @@ + GNU GENERAL PUBLIC LICENSE + Version 2, June 1991 + + Copyright (C) 1989, 1991 Free Software Foundation, Inc. + 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + + Preamble + + The licenses for most software are designed to take away your +freedom to share and change it. By contrast, the GNU General Public +License is intended to guarantee your freedom to share and change free +software--to make sure the software is free for all its users. This +General Public License applies to most of the Free Software +Foundation's software and to any other program whose authors commit to +using it. (Some other Free Software Foundation software is covered by +the GNU Library General Public License instead.) You can apply it to +your programs, too. + + When we speak of free software, we are referring to freedom, not +price. Our General Public Licenses are designed to make sure that you +have the freedom to distribute copies of free software (and charge for +this service if you wish), that you receive source code or can get it +if you want it, that you can change the software or use pieces of it +in new free programs; and that you know you can do these things. + + To protect your rights, we need to make restrictions that forbid +anyone to deny you these rights or to ask you to surrender the rights. +These restrictions translate to certain responsibilities for you if you +distribute copies of the software, or if you modify it. + + For example, if you distribute copies of such a program, whether +gratis or for a fee, you must give the recipients all the rights that +you have. You must make sure that they, too, receive or can get the +source code. And you must show them these terms so they know their +rights. + + We protect your rights with two steps: (1) copyright the software, and +(2) offer you this license which gives you legal permission to copy, +distribute and/or modify the software. + + Also, for each author's protection and ours, we want to make certain +that everyone understands that there is no warranty for this free +software. If the software is modified by someone else and passed on, we +want its recipients to know that what they have is not the original, so +that any problems introduced by others will not reflect on the original +authors' reputations. + + Finally, any free program is threatened constantly by software +patents. We wish to avoid the danger that redistributors of a free +program will individually obtain patent licenses, in effect making the +program proprietary. To prevent this, we have made it clear that any +patent must be licensed for everyone's free use or not licensed at all. + + The precise terms and conditions for copying, distribution and +modification follow. + + GNU GENERAL PUBLIC LICENSE + TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION + + 0. This License applies to any program or other work which contains +a notice placed by the copyright holder saying it may be distributed +under the terms of this General Public License. The "Program", below, +refers to any such program or work, and a "work based on the Program" +means either the Program or any derivative work under copyright law: +that is to say, a work containing the Program or a portion of it, +either verbatim or with modifications and/or translated into another +language. (Hereinafter, translation is included without limitation in +the term "modification".) Each licensee is addressed as "you". + +Activities other than copying, distribution and modification are not +covered by this License; they are outside its scope. The act of +running the Program is not restricted, and the output from the Program +is covered only if its contents constitute a work based on the +Program (independent of having been made by running the Program). +Whether that is true depends on what the Program does. + + 1. You may copy and distribute verbatim copies of the Program's +source code as you receive it, in any medium, provided that you +conspicuously and appropriately publish on each copy an appropriate +copyright notice and disclaimer of warranty; keep intact all the +notices that refer to this License and to the absence of any warranty; +and give any other recipients of the Program a copy of this License +along with the Program. + +You may charge a fee for the physical act of transferring a copy, and +you may at your option offer warranty protection in exchange for a fee. + + 2. You may modify your copy or copies of the Program or any portion +of it, thus forming a work based on the Program, and copy and +distribute such modifications or work under the terms of Section 1 +above, provided that you also meet all of these conditions: + + a) You must cause the modified files to carry prominent notices + stating that you changed the files and the date of any change. + + b) You must cause any work that you distribute or publish, that in + whole or in part contains or is derived from the Program or any + part thereof, to be licensed as a whole at no charge to all third + parties under the terms of this License. + + c) If the modified program normally reads commands interactively + when run, you must cause it, when started running for such + interactive use in the most ordinary way, to print or display an + announcement including an appropriate copyright notice and a + notice that there is no warranty (or else, saying that you provide + a warranty) and that users may redistribute the program under + these conditions, and telling the user how to view a copy of this + License. (Exception: if the Program itself is interactive but + does not normally print such an announcement, your work based on + the Program is not required to print an announcement.) + +These requirements apply to the modified work as a whole. If +identifiable sections of that work are not derived from the Program, +and can be reasonably considered independent and separate works in +themselves, then this License, and its terms, do not apply to those +sections when you distribute them as separate works. But when you +distribute the same sections as part of a whole which is a work based +on the Program, the distribution of the whole must be on the terms of +this License, whose permissions for other licensees extend to the +entire whole, and thus to each and every part regardless of who wrote it. + +Thus, it is not the intent of this section to claim rights or contest +your rights to work written entirely by you; rather, the intent is to +exercise the right to control the distribution of derivative or +collective works based on the Program. + +In addition, mere aggregation of another work not based on the Program +with the Program (or with a work based on the Program) on a volume of +a storage or distribution medium does not bring the other work under +the scope of this License. + + 3. You may copy and distribute the Program (or a work based on it, +under Section 2) in object code or executable form under the terms of +Sections 1 and 2 above provided that you also do one of the following: + + a) Accompany it with the complete corresponding machine-readable + source code, which must be distributed under the terms of Sections + 1 and 2 above on a medium customarily used for software interchange; or, + + b) Accompany it with a written offer, valid for at least three + years, to give any third party, for a charge no more than your + cost of physically performing source distribution, a complete + machine-readable copy of the corresponding source code, to be + distributed under the terms of Sections 1 and 2 above on a medium + customarily used for software interchange; or, + + c) Accompany it with the information you received as to the offer + to distribute corresponding source code. (This alternative is + allowed only for noncommercial distribution and only if you + received the program in object code or executable form with such + an offer, in accord with Subsection b above.) + +The source code for a work means the preferred form of the work for +making modifications to it. For an executable work, complete source +code means all the source code for all modules it contains, plus any +associated interface definition files, plus the scripts used to +control compilation and installation of the executable. However, as a +special exception, the source code distributed need not include +anything that is normally distributed (in either source or binary +form) with the major components (compiler, kernel, and so on) of the +operating system on which the executable runs, unless that component +itself accompanies the executable. + +If distribution of executable or object code is made by offering +access to copy from a designated place, then offering equivalent +access to copy the source code from the same place counts as +distribution of the source code, even though third parties are not +compelled to copy the source along with the object code. + + 4. You may not copy, modify, sublicense, or distribute the Program +except as expressly provided under this License. Any attempt +otherwise to copy, modify, sublicense or distribute the Program is +void, and will automatically terminate your rights under this License. +However, parties who have received copies, or rights, from you under +this License will not have their licenses terminated so long as such +parties remain in full compliance. + + 5. You are not required to accept this License, since you have not +signed it. However, nothing else grants you permission to modify or +distribute the Program or its derivative works. These actions are +prohibited by law if you do not accept this License. Therefore, by +modifying or distributing the Program (or any work based on the +Program), you indicate your acceptance of this License to do so, and +all its terms and conditions for copying, distributing or modifying +the Program or works based on it. + + 6. Each time you redistribute the Program (or any work based on the +Program), the recipient automatically receives a license from the +original licensor to copy, distribute or modify the Program subject to +these terms and conditions. You may not impose any further +restrictions on the recipients' exercise of the rights granted herein. +You are not responsible for enforcing compliance by third parties to +this License. + + 7. If, as a consequence of a court judgment or allegation of patent +infringement or for any other reason (not limited to patent issues), +conditions are imposed on you (whether by court order, agreement or +otherwise) that contradict the conditions of this License, they do not +excuse you from the conditions of this License. If you cannot +distribute so as to satisfy simultaneously your obligations under this +License and any other pertinent obligations, then as a consequence you +may not distribute the Program at all. For example, if a patent +license would not permit royalty-free redistribution of the Program by +all those who receive copies directly or indirectly through you, then +the only way you could satisfy both it and this License would be to +refrain entirely from distribution of the Program. + +If any portion of this section is held invalid or unenforceable under +any particular circumstance, the balance of the section is intended to +apply and the section as a whole is intended to apply in other +circumstances. + +It is not the purpose of this section to induce you to infringe any +patents or other property right claims or to contest validity of any +such claims; this section has the sole purpose of protecting the +integrity of the free software distribution system, which is +implemented by public license practices. Many people have made +generous contributions to the wide range of software distributed +through that system in reliance on consistent application of that +system; it is up to the author/donor to decide if he or she is willing +to distribute software through any other system and a licensee cannot +impose that choice. + +This section is intended to make thoroughly clear what is believed to +be a consequence of the rest of this License. + + 8. If the distribution and/or use of the Program is restricted in +certain countries either by patents or by copyrighted interfaces, the +original copyright holder who places the Program under this License +may add an explicit geographical distribution limitation excluding +those countries, so that distribution is permitted only in or among +countries not thus excluded. In such case, this License incorporates +the limitation as if written in the body of this License. + + 9. The Free Software Foundation may publish revised and/or new versions +of the General Public License from time to time. Such new versions will +be similar in spirit to the present version, but may differ in detail to +address new problems or concerns. + +Each version is given a distinguishing version number. If the Program +specifies a version number of this License which applies to it and "any +later version", you have the option of following the terms and conditions +either of that version or of any later version published by the Free +Software Foundation. If the Program does not specify a version number of +this License, you may choose any version ever published by the Free Software +Foundation. + + 10. If you wish to incorporate parts of the Program into other free +programs whose distribution conditions are different, write to the author +to ask for permission. For software which is copyrighted by the Free +Software Foundation, write to the Free Software Foundation; we sometimes +make exceptions for this. Our decision will be guided by the two goals +of preserving the free status of all derivatives of our free software and +of promoting the sharing and reuse of software generally. + + NO WARRANTY + + 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY +FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN +OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES +PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED +OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF +MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS +TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE +PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, +REPAIR OR CORRECTION. + + 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING +WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR +REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, +INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING +OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED +TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY +YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER +PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE +POSSIBILITY OF SUCH DAMAGES. + + END OF TERMS AND CONDITIONS + + Appendix: How to Apply These Terms to Your New Programs + + If you develop a new program, and you want it to be of the greatest +possible use to the public, the best way to achieve this is to make it +free software which everyone can redistribute and change under these terms. + + To do so, attach the following notices to the program. It is safest +to attach them to the start of each source file to most effectively +convey the exclusion of warranty; and each file should have at least +the "copyright" line and a pointer to where the full notice is found. + + + Copyright (C) + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software Foundation, + Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. + +Also add information on how to contact you by electronic and paper mail. + +If the program is interactive, make it output a short notice like this +when it starts in an interactive mode: + + Gnomovision version 69, Copyright (C) year name of author + Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. + This is free software, and you are welcome to redistribute it + under certain conditions; type `show c' for details. + +The hypothetical commands `show w' and `show c' should show the appropriate +parts of the General Public License. Of course, the commands you use may +be called something other than `show w' and `show c'; they could even be +mouse-clicks or menu items--whatever suits your program. + +You should also get your employer (if you work as a programmer) or your +school, if any, to sign a "copyright disclaimer" for the program, if +necessary. Here is a sample; alter the names: + + Yoyodyne, Inc., hereby disclaims all copyright interest in the program + `Gnomovision' (which makes passes at compilers) written by James Hacker. + + , 1 April 1989 + Ty Coon, President of Vice + +This General Public License does not permit incorporating your program into +proprietary programs. If your program is a subroutine library, you may +consider it more useful to permit linking proprietary applications with the +library. If this is what you want to do, use the GNU Library General +Public License instead of this License. diff --git a/callback/vacall_r/Makefile.devel b/callback/vacall_r/Makefile.devel new file mode 100644 index 0000000..6f3653d --- /dev/null +++ b/callback/vacall_r/Makefile.devel @@ -0,0 +1,229 @@ +# This is the developer's -*-Makefile-*-, not the user's makefile. +# Do not use it unless you know exactly what you do! + +THISFILE = Makefile.devel +LN = ln -s +RM = rm -f + +# ============ Rules that require cross-compilation tools ============ + +GCC = gcc +GCCFLAGS = -I../.. -I../../dummy -O2 -fno-omit-frame-pointer -fPIC -DREENTRANT +SED = sed +CROSS_TOOL = cross + +precompiled : \ + vacall-i386-macro.S \ + vacall-m68k.mit.S vacall-m68k.motorola.S \ + vacall-mipseb-macro.S vacall-mipsel-macro.S vacall-mipsn32eb-macro.S vacall-mipsn32el-macro.S vacall-mips64eb-macro.S vacall-mips64el-macro.S \ + vacall-sparc-macro.S vacall-sparc64-macro.S \ + vacall-alpha-macro.S \ + vacall-hppa-macro.S vacall-hppa64-macro.S \ + vacall-arm-macro.S vacall-armhf-macro.S \ + vacall-arm64-macro.S \ + vacall-powerpc-aix.s vacall-powerpc-linux-macro.S vacall-powerpc-sysv4-macro.S vacall-powerpc-macos.s vacall-powerpc64-aix.s vacall-powerpc64-linux.S vacall-powerpc64-elfv2-linux.S \ + vacall-ia64-macro.S \ + vacall-x86_64-macro.S vacall-x86_64-x32-linux.s vacall-x86_64-windows-macro.S \ + vacall-s390-macro.S vacall-s390x-macro.S \ + vacall-riscv32-ilp32d-macro.S vacall-riscv64-lp64d-macro.S + + +vacall-i386-linux.s : ../../vacall/vacall-i386.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) + $(CROSS_TOOL) i386-linux gcc -V 3.1 $(GCCFLAGS) -D__i386__ -S ../../vacall/vacall-i386.c -I../../vacall -I. -o vacall-i386-linux.s + +vacall-i386-macro.S : vacall-i386-linux.s ../../common/asm-i386.sh ../../common/noexecstack.h $(THISFILE) + (echo '#include "asm-i386.h"' ; sed -e '/\.align.*,0x90$$/d' < vacall-i386-linux.s | ../../common/asm-i386.sh ; cat ../../common/noexecstack.h) > vacall-i386-macro.S + + +vacall-m68k-linux.s : ../../vacall/vacall-m68k.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) + $(CROSS_TOOL) m68k-linux gcc -V 3.1 $(GCCFLAGS) -D__m68k__ -S ../../vacall/vacall-m68k.c -I../../vacall -I. -o vacall-m68k-linux.s + +vacall-m68k-sun.s : ../../vacall/vacall-m68k.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) + $(CROSS_TOOL) m68k-sun gcc -V 3.1 $(GCCFLAGS) -D__m68k__ -S ../../vacall/vacall-m68k.c -I../../vacall -I. -o vacall-m68k-sun.s + +vacall-m68k.mit.S : vacall-m68k-sun.s ../../common/asm-m68k.sh ../../common/noexecstack.h $(THISFILE) + (echo '#include "asm-m68k.h"' ; ../../common/asm-m68k.sh mit < vacall-m68k-sun.s ; cat ../../common/noexecstack.h) > vacall-m68k.mit.S + +vacall-m68k.motorola.S : vacall-m68k-linux.s ../../common/asm-m68k.sh ../../common/noexecstack.h $(THISFILE) + (echo '#include "asm-m68k.h"' ; ../../common/asm-m68k.sh motorola < vacall-m68k-linux.s ; cat ../../common/noexecstack.h) > vacall-m68k.motorola.S + + +vacall-mipseb-linux.s : ../../vacall/vacall-mips.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) +# For references to symbols: -mno-explicit-relocs ensures a syntax that the IRIX assembler understands. + $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=32 -mfpxx -march=mips2 -meb -mno-explicit-relocs $(GCCFLAGS) -D__mips__ -S ../../vacall/vacall-mips.c -I../../vacall -I. -o vacall-mipseb-linux.s + +vacall-mipseb-macro.S : vacall-mipseb-linux.s ../../common/asm-mips.sh $(THISFILE) + (echo '#include "asm-mips.h"' ; ../../common/asm-mips.sh < vacall-mipseb-linux.s) > vacall-mipseb-macro.S + +vacall-mipsel-linux.s : ../../vacall/vacall-mips.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) + $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=32 -mfpxx -march=mips2 -mel -mno-explicit-relocs $(GCCFLAGS) -D__mips__ -S ../../vacall/vacall-mips.c -I../../vacall -I. -o vacall-mipsel-linux.s + +vacall-mipsel-macro.S : vacall-mipsel-linux.s ../../common/asm-mips.sh $(THISFILE) + (echo '#include "asm-mips.h"' ; ../../common/asm-mips.sh < vacall-mipsel-linux.s) > vacall-mipsel-macro.S + +vacall-mipsn32eb-linux.s : ../../vacall/vacall-mipsn32.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) + $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=n32 -meb $(GCCFLAGS) -D__mipsn32__ -S ../../vacall/vacall-mipsn32.c -I../../vacall -I. -o vacall-mipsn32eb-linux.s + +vacall-mipsn32eb-macro.S : vacall-mipsn32eb-linux.s ../../common/asm-mips.sh $(THISFILE) + (echo '#include "asm-mips.h"' ; ../../common/asm-mips.sh < vacall-mipsn32eb-linux.s) > vacall-mipsn32eb-macro.S + +vacall-mipsn32el-linux.s : ../../vacall/vacall-mipsn32.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) + $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=n32 -mel $(GCCFLAGS) -D__mipsn32__ -S ../../vacall/vacall-mipsn32.c -I../../vacall -I. -o vacall-mipsn32el-linux.s + +vacall-mipsn32el-macro.S : vacall-mipsn32el-linux.s ../../common/asm-mips.sh $(THISFILE) + (echo '#include "asm-mips.h"' ; ../../common/asm-mips.sh < vacall-mipsn32el-linux.s) > vacall-mipsn32el-macro.S + +vacall-mips64eb-linux.s : ../../vacall/vacall-mips64.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) + $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=64 -meb $(GCCFLAGS) -D__mips64__ -S ../../vacall/vacall-mips64.c -I../../vacall -I. -o vacall-mips64eb-linux.s + +vacall-mips64eb-macro.S : vacall-mips64eb-linux.s ../../common/asm-mips.sh $(THISFILE) + (echo '#include "asm-mips.h"' ; ../../common/asm-mips.sh < vacall-mips64eb-linux.s) > vacall-mips64eb-macro.S + +vacall-mips64el-linux.s : ../../vacall/vacall-mips64.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) + $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=64 -mel $(GCCFLAGS) -D__mips64__ -S ../../vacall/vacall-mips64.c -I../../vacall -I. -o vacall-mips64el-linux.s + +vacall-mips64el-macro.S : vacall-mips64el-linux.s ../../common/asm-mips.sh $(THISFILE) + (echo '#include "asm-mips.h"' ; ../../common/asm-mips.sh < vacall-mips64el-linux.s) > vacall-mips64el-macro.S + + +vacall-sparc-linux.s : ../../vacall/vacall-sparc.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) + $(CROSS_TOOL) sparc-linux gcc -V 3.1 $(GCCFLAGS) -D__sparc__ -S ../../vacall/vacall-sparc.c -I../../vacall -I. -o vacall-sparc-linux.s + +vacall-sparc-macro.S : vacall-sparc-linux.s ../../common/asm-sparc.sh ../../common/noexecstack.h $(THISFILE) + (echo '#include "asm-sparc.h"' ; ../../common/asm-sparc.sh < vacall-sparc-linux.s ; cat ../../common/noexecstack.h) > vacall-sparc-macro.S + +vacall-sparc64-linux.s : ../../vacall/vacall-sparc64.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) + $(CROSS_TOOL) sparc64-linux gcc -V 4.0.2 $(GCCFLAGS) -D__sparc64__ -S ../../vacall/vacall-sparc64.c -I../../vacall -I. -o vacall-sparc64-linux.s + +vacall-sparc64-macro.S : vacall-sparc64-linux.s ../../common/asm-sparc.sh ../../common/noexecstack.h $(THISFILE) + (echo '#include "asm-sparc.h"' ; ../../common/asm-sparc.sh < vacall-sparc64-linux.s ; cat ../../common/noexecstack.h) > vacall-sparc64-macro.S + + +vacall-alpha-linux.s : ../../vacall/vacall-alpha.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) + $(CROSS_TOOL) alpha-linux gcc -V 4.0.2 $(GCCFLAGS) -D__alpha__ -S ../../vacall/vacall-alpha.c -I../../vacall -I. -o vacall-alpha-linux.s + +vacall-alpha-macro.S : vacall-alpha-linux.s ../../common/asm-alpha.sh ../../common/noexecstack.h $(THISFILE) + (../../common/asm-alpha.sh < vacall-alpha-linux.s ; cat ../../common/noexecstack.h) > vacall-alpha-macro.S + + +vacall-hppa-linux.s : ../../vacall/vacall-hppa.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) + $(CROSS_TOOL) hppa-linux gcc -V 3.1 $(GCCFLAGS) -D__hppa__ -S ../../vacall/vacall-hppa.c -I../../vacall -I. -o vacall-hppa-linux.s + +vacall-hppa-macro.S : vacall-hppa-linux.s ../../common/asm-hppa.sh ../../common/noexecstack.h $(THISFILE) + (echo '#include "asm-hppa.h"' ; ../../common/asm-hppa.sh < vacall-hppa-linux.s ; cat ../../common/noexecstack.h) > vacall-hppa-macro.S + +vacall-hppa64-linux.s : ../../vacall/vacall-hppa64.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) + $(CROSS_TOOL) hppa64-linux gcc -V 3.1 $(GCCFLAGS) -D__hppa64__ -S ../../vacall/vacall-hppa64.c -I../../vacall -I. -o vacall-hppa64-linux.s + +vacall-hppa64-macro.S : vacall-hppa64-linux.s ../../common/asm-hppa64.sh ../../common/noexecstack.h $(THISFILE) + (echo '#include "asm-hppa64.h"' ; ../../common/asm-hppa64.sh < vacall-hppa64-linux.s ; cat ../../common/noexecstack.h) > vacall-hppa64-macro.S + + +vacall-arm-macro.S : ../../vacall/vacall-arm.c ../../vacall/vacall-internal.h vacall_r.h ../../common/asm-arm.sh ../../common/noexecstack-arm.h $(THISFILE) + $(CROSS_TOOL) arm-linux gcc -V 3.1 -mlittle-endian $(GCCFLAGS) -D__arm__ -S ../../vacall/vacall-arm.c -I../../vacall -I. -o vacall-armel.s + $(CROSS_TOOL) arm-linux gcc -V 3.1 -mbig-endian $(GCCFLAGS) -D__arm__ -S ../../vacall/vacall-arm.c -I../../vacall -I. -o vacall-armeb.s + cmp vacall-armel.s vacall-armeb.s > /dev/null + (echo '#include "asm-arm.h"' ; ../../common/asm-arm.sh < vacall-armel.s ; cat ../../common/noexecstack-arm.h) > vacall-arm-macro.S + $(RM) vacall-armel.s vacall-armeb.s + +vacall-armhf-macro.S : ../../vacall/vacall-armhf.c ../../vacall/vacall-internal.h vacall_r.h ../../common/asm-arm.sh ../../common/noexecstack-arm.h $(THISFILE) +# The option -mabi=aapcs ensures an 8-bytes-aligned stack pointer. + $(CROSS_TOOL) armv7l-linux-gnueabihf gcc-6.3.0 -march=armv6 -mabi=aapcs -mfloat-abi=hard -mlittle-endian $(GCCFLAGS) -D__armhf__ -S ../../vacall/vacall-armhf.c -I../../vacall -I. -o vacall-armhfel.s + $(CROSS_TOOL) armv7l-linux-gnueabihf gcc-6.3.0 -march=armv6 -mabi=aapcs -mfloat-abi=hard -mbig-endian $(GCCFLAGS) -D__armhf__ -S ../../vacall/vacall-armhf.c -I../../vacall -I. -o vacall-armhfeb.s + cmp vacall-armhfel.s vacall-armhfeb.s > /dev/null + (echo '#include "asm-arm.h"' ; ../../common/asm-arm.sh < vacall-armhfel.s ; cat ../../common/noexecstack-arm.h) > vacall-armhf-macro.S + $(RM) vacall-armhfel.s vacall-armhfeb.s + + +vacall-arm64-macro.S : ../../vacall/vacall-arm64.c ../../vacall/vacall-internal.h vacall_r.h ../../common/asm-arm.sh ../../common/noexecstack-arm.h $(THISFILE) + $(CROSS_TOOL) aarch64-linux gcc-5.4.0 -mlittle-endian $(GCCFLAGS) -D__arm64__ -S ../../vacall/vacall-arm64.c -I../../vacall -I. -o vacall-arm64el.s + $(CROSS_TOOL) aarch64-linux gcc-5.4.0 -mbig-endian $(GCCFLAGS) -D__arm64__ -S ../../vacall/vacall-arm64.c -I../../vacall -I. -o vacall-arm64eb.s + cmp vacall-arm64el.s vacall-arm64eb.s > /dev/null + (echo '#include "asm-arm.h"' ; ../../common/asm-arm.sh < vacall-arm64el.s ; cat ../../common/noexecstack-arm.h) > vacall-arm64-macro.S + $(RM) vacall-arm64el.s vacall-arm64eb.s + + +vacall-powerpc-aix.s : ../../vacall/vacall-powerpc.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) + $(CROSS_TOOL) rs6000-aix gcc -V 3.3.6 -mno-power -mno-power2 -mno-powerpc -mnew-mnemonics $(GCCFLAGS) -D__powerpc__ -S ../../vacall/vacall-powerpc.c -I../../vacall -I. -o vacall-powerpc-aix.s + +vacall-powerpc-linux.s : ../../vacall/vacall-powerpc.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) + $(CROSS_TOOL) powerpc-linux gcc -V 3.3.6 -mno-power -mno-power2 -mno-powerpc $(GCCFLAGS) -D__powerpc__ -S ../../vacall/vacall-powerpc.c -I../../vacall -I. -o vacall-powerpc-linux.s + +vacall-powerpc-linux-macro.S : vacall-powerpc-linux.s ../../common/asm-powerpc.sh ../../common/noexecstack.h $(THISFILE) + (../../common/asm-powerpc.sh < vacall-powerpc-linux.s ; cat ../../common/noexecstack.h) > vacall-powerpc-linux-macro.S + +vacall-powerpc-sysv4-macro.S : ../../vacall/vacall-powerpc.c ../../vacall/vacall-internal.h vacall_r.h ../../common/asm-powerpc.sh ../../common/noexecstack.h $(THISFILE) + $(CROSS_TOOL) powerpc-linux gcc -V 3.3.6 -mno-power -mno-power2 -mno-powerpc $(GCCFLAGS) -D__powerpc__ -S ../../vacall/vacall-powerpc.c -I../../vacall -I. -o vacall-powerpc-sysv4.s + (../../common/asm-powerpc.sh < vacall-powerpc-sysv4.s ; cat ../../common/noexecstack.h) > vacall-powerpc-sysv4-macro.S + $(RM) vacall-powerpc-sysv4.s + +vacall-powerpc-macos.s : ../../vacall/vacall-powerpc.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) + $(CROSS_TOOL) powerpc-darwin gcc -V 3.3.6 $(GCCFLAGS) -D__powerpc__ -S ../../vacall/vacall-powerpc.c -I../../vacall -I. -o vacall-powerpc-macos.s + +vacall-powerpc64-aix.s : ../../vacall/vacall-powerpc64.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) + $(CROSS_TOOL) rs6000-aix6.1 gcc-5.4.0 -maix64 $(GCCFLAGS) -D__powerpc64__ -S ../../vacall/vacall-powerpc64.c -I../../vacall -I. -o vacall-powerpc64-aix.s + +vacall-powerpc64-linux.S : ../../vacall/vacall-powerpc64.c ../../vacall/vacall-internal.h vacall_r.h ../../common/asm-powerpc.sh ../../common/noexecstack.h $(THISFILE) + $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv1 -mcpu=power4 -mlittle-endian $(GCCFLAGS) -D__powerpc64__ -S ../../vacall/vacall-powerpc64.c -I../../vacall -I. -o vacall-powerpc64-linux-le.s + $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv1 -mcpu=power4 -mbig-endian $(GCCFLAGS) -D__powerpc64__ -S ../../vacall/vacall-powerpc64.c -I../../vacall -I. -o vacall-powerpc64-linux-be.s + cmp vacall-powerpc64-linux-le.s vacall-powerpc64-linux-be.s > /dev/null + (../../common/asm-powerpc.sh < vacall-powerpc64-linux-be.s ; cat ../../common/noexecstack.h) > vacall-powerpc64-linux.S + $(RM) vacall-powerpc64-linux-le.s vacall-powerpc64-linux-be.s + +vacall-powerpc64-elfv2-linux.S : ../../vacall/vacall-powerpc64.c ../../vacall/vacall-internal.h vacall_r.h ../../common/asm-powerpc.sh ../../common/noexecstack.h $(THISFILE) + $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv2 -mcpu=power4 -mlittle-endian $(GCCFLAGS) -D__powerpc64__ -D__powerpc64_elfv2__ -S ../../vacall/vacall-powerpc64.c -I../../vacall -I. -o vacall-powerpc64-elfv2-linux-le.s + $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv2 -mcpu=power4 -mbig-endian $(GCCFLAGS) -D__powerpc64__ -D__powerpc64_elfv2__ -S ../../vacall/vacall-powerpc64.c -I../../vacall -I. -o vacall-powerpc64-elfv2-linux-be.s +# vacall-powerpc64-linux-be.s contains endianness specific optimizations. + (../../common/asm-powerpc.sh < vacall-powerpc64-elfv2-linux-le.s ; cat ../../common/noexecstack.h) > vacall-powerpc64-elfv2-linux.S + $(RM) vacall-powerpc64-elfv2-linux-le.s vacall-powerpc64-elfv2-linux-be.s + + +vacall-ia64-linux.s : ../../vacall/vacall-ia64.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) + $(CROSS_TOOL) ia64-linux gcc -V 4.0.1 $(GCCFLAGS) -D__ia64__ -S ../../vacall/vacall-ia64.c -I../../vacall -I. -o vacall-ia64-linux.s + +vacall-ia64-macro.S : vacall-ia64-linux.s ../../common/noexecstack.h $(THISFILE) + cat vacall-ia64-linux.s ../../common/noexecstack.h > vacall-ia64-macro.S + + +vacall-x86_64-linux.s : ../../vacall/vacall-x86_64.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) + $(CROSS_TOOL) x86_64-linux gcc-4.0.2 $(GCCFLAGS) -D__x86_64__ -S ../../vacall/vacall-x86_64.c -I../../vacall -I. -o vacall-x86_64-linux.s + +vacall-x86_64-macro.S : vacall-x86_64-linux.s ../../common/asm-x86_64.sh ../../common/noexecstack.h $(THISFILE) + (echo '#include "asm-x86_64.h"' ; ../../common/asm-x86_64.sh < vacall-x86_64-linux.s ; cat ../../common/noexecstack.h) > vacall-x86_64-macro.S + +vacall-x86_64-x32-linux.s : ../../vacall/vacall-x86_64.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) + $(CROSS_TOOL) x86_64-linux gcc-5.4.0 -mx32 $(GCCFLAGS) -D__x86_64__ -D__x86_64_x32__ -S ../../vacall/vacall-x86_64.c -I../../vacall -I. -o vacall-x86_64-x32-linux.s + +vacall-x86_64-windows.s : ../../vacall/vacall-x86_64-windows.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) + $(CROSS_TOOL) x86_64-linux gcc-5.4.0 -mabi=ms $(GCCFLAGS) -fno-reorder-blocks-and-partition -D__x86_64__ -D_WIN32 -S ../../vacall/vacall-x86_64-windows.c -I../../vacall -I. -o vacall-x86_64-windows.s + +vacall-x86_64-windows-macro.S : vacall-x86_64-windows.s ../../common/asm-x86_64.sh ../../common/noexecstack.h $(THISFILE) + (echo '#include "asm-x86_64.h"' ; ../../common/asm-x86_64.sh < vacall-x86_64-windows.s ; cat ../../common/noexecstack.h) > vacall-x86_64-windows-macro.S + + +vacall-s390-linux.s : ../../vacall/vacall-s390.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) + $(CROSS_TOOL) s390-linux gcc -V 3.1 $(GCCFLAGS) -D__s390__ -S ../../vacall/vacall-s390.c -I../../vacall -I. -o vacall-s390-linux.s + +vacall-s390-macro.S : vacall-s390-linux.s ../../common/asm-s390.sh ../../common/noexecstack.h $(THISFILE) + (../../common/asm-s390.sh < vacall-s390-linux.s ; cat ../../common/noexecstack.h) > vacall-s390-macro.S + + +vacall-s390x-linux.s : ../../vacall/vacall-s390x.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) + $(CROSS_TOOL) s390x-linux gcc-5.4.0 $(GCCFLAGS) -D__s390x__ -S ../../vacall/vacall-s390x.c -I../../vacall -I. -o vacall-s390x-linux.s + +vacall-s390x-macro.S : vacall-s390x-linux.s ../../common/asm-s390.sh ../../common/noexecstack.h $(THISFILE) + (../../common/asm-s390.sh < vacall-s390x-linux.s ; cat ../../common/noexecstack.h) > vacall-s390x-macro.S + + +vacall-riscv32-ilp32d-linux.s : ../../vacall/vacall-riscv32.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) + $(CROSS_TOOL) riscv32-linux gcc-7.3.0 $(GCCFLAGS) -D__riscv32__ -S ../../vacall/vacall-riscv32.c -I../../vacall -I. -o vacall-riscv32-ilp32d-linux.s + +vacall-riscv32-ilp32d-macro.S : vacall-riscv32-ilp32d-linux.s ../../common/asm-riscv.sh ../../common/noexecstack.h $(THISFILE) + (../../common/asm-riscv.sh < vacall-riscv32-ilp32d-linux.s ; cat ../../common/noexecstack.h) > vacall-riscv32-ilp32d-macro.S + + +vacall-riscv64-lp64d-linux.s : ../../vacall/vacall-riscv64.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) + $(CROSS_TOOL) riscv64-linux gcc-7.3.0 $(GCCFLAGS) -D__riscv64__ -S ../../vacall/vacall-riscv64.c -I../../vacall -I. -o vacall-riscv64-lp64d-linux.s + +vacall-riscv64-lp64d-macro.S : vacall-riscv64-lp64d-linux.s ../../common/asm-riscv.sh ../../common/noexecstack.h $(THISFILE) + (../../common/asm-riscv.sh < vacall-riscv64-lp64d-linux.s ; cat ../../common/noexecstack.h) > vacall-riscv64-lp64d-macro.S diff --git a/callback/vacall_r/Makefile.in b/callback/vacall_r/Makefile.in new file mode 100644 index 0000000..9d52db5 --- /dev/null +++ b/callback/vacall_r/Makefile.in @@ -0,0 +1,351 @@ +# Makefile for vacall + +#### Start of system configuration section. #### + +HOST = @host@ +CPU = @HOST_CPU_C_ABI@ +OS = @host_os@ + +# Directories used by "make": +srcdir = @srcdir@ + +# Directories used by "make install": +prefix = @prefix@ +local_prefix = /usr/local +exec_prefix = @exec_prefix@ +libdir = @libdir@ +includedir = @includedir@ +mandir = @mandir@ +datadir = @datadir@ +datarootdir = @datarootdir@ +htmldir = $(datadir)/html + +# Programs used by "make": +CC = @CC@ +CFLAGS = @CFLAGS@ +CPPFLAGS = @CPPFLAGS@ +CPP = @CPP@ +INCLUDES = -I. -I$(srcdir) -I$(srcdir)/../../vacall -I../.. -I$(srcdir)/../.. +INCLUDES_WITH_GNULIB = $(INCLUDES) -I../../gnulib-lib -I$(srcdir)/../../gnulib-lib +ASPFLAGS = `if test @AS_UNDERSCORE@ = true; then echo '-DASM_UNDERSCORE'; fi` +LDFLAGS = @LDFLAGS@ +LIBTOOL = @LIBTOOL@ +LIBTOOL_COMPILE = $(LIBTOOL) --mode=compile +LIBTOOL_LINK = $(LIBTOOL) --mode=link +LIBTOOL_INSTALL = $(LIBTOOL) --mode=install +LIBTOOL_UNINSTALL = $(LIBTOOL) --mode=uninstall +AR = @AR@ +AR_FLAGS = rc +RANLIB = @RANLIB@ +MV = mv +LN = @LN@ +RM = rm -f +@SET_MAKE@ + +# Programs used by "make install": +INSTALL = @INSTALL@ +INSTALL_PROGRAM = @INSTALL_PROGRAM@ +INSTALL_DATA = @INSTALL_DATA@ + +#### End of system configuration section. #### + +SHELL = /bin/sh + +# Needed by $(LIBTOOL). +top_builddir = ../.. + +OBJECTS = vacall.lo vacall-libapi.lo vacall-structcpy.lo + +all : $(OBJECTS) libvacall.la + +vacall.lo : vacall-$(CPU).lo + $(RM) vacall.lo vacall.@OBJEXT@ + $(LN) vacall-$(CPU).lo vacall.lo + if test -f vacall-$(CPU).@OBJEXT@; then $(LN) vacall-$(CPU).@OBJEXT@ vacall.@OBJEXT@; fi + +@IFNOT_MSVC@vacall-i386.lo : vacall-i386.s +@IFNOT_MSVC@ $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-i386.s + +@IFNOT_MSVC@vacall-i386.s : $(srcdir)/vacall-i386-macro.S +@IFNOT_MSVC@ $(CPP) $(ASPFLAGS) -I$(srcdir) -I$(srcdir)/../../common - < $(srcdir)/vacall-i386-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,@ ,@,g' -e 's,//.*$$,,' -e 's/##//g' > vacall-i386.s + +@IF_MSVC@vacall-i386.lo : $(srcdir)/vacall-i386-msvc.c +@IF_MSVC@ $(LIBTOOL_COMPILE) $(CC) $(INCLUDES) -I$(srcdir)/../../common $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/vacall-i386-msvc.c -o vacall-i386.lo + +vacall-sparc.lo : vacall-sparc.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-sparc.s + +vacall-sparc.s : $(srcdir)/vacall-sparc-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../../common - < $(srcdir)/vacall-sparc-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,//.*$$,,' -e 's,\$$,#,g' -e 's,# ,#,g' > vacall-sparc.s + +vacall-sparc64.lo : vacall-sparc64.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-sparc64.s + +vacall-sparc64.s : $(srcdir)/vacall-sparc64-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../../common - < $(srcdir)/vacall-sparc64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,//.*$$,,' -e 's,\$$,#,g' -e 's,# ,#,g' > vacall-sparc64.s + +vacall-m68k.lo : vacall-m68k.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-m68k.s + +vacall-m68k.s : $(srcdir)/vacall-m68k.mit.S $(srcdir)/vacall-m68k.motorola.S + $(CPP) $(ASPFLAGS) -I$(srcdir) -I$(srcdir)/../../common $(srcdir)/vacall-m68k.motorola.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' | if test @AS_UNDERSCORE@ = true; then sed -e 's/\$$//g'; else sed -e 's/\$$/%/g'; fi > vacall-m68k.s + +vacall-mips.lo : vacall-mips.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-mips.s + +vacall-mips.s : $(srcdir)/vacall-mips@ENDIANNESS@-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir) -I$(srcdir)/../../common $(srcdir)/vacall-mips@ENDIANNESS@-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-mips.s + +vacall-mipsn32.lo : vacall-mipsn32.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-mipsn32.s + +vacall-mipsn32.s : $(srcdir)/vacall-mipsn32@ENDIANNESS@-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir) -I$(srcdir)/../../common $(srcdir)/vacall-mipsn32@ENDIANNESS@-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-mipsn32.s + +vacall-mips64.lo : vacall-mips64.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-mips64.s + +vacall-mips64.s : $(srcdir)/vacall-mips64@ENDIANNESS@-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir) -I$(srcdir)/../../common $(srcdir)/vacall-mips64@ENDIANNESS@-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-mips64.s + +vacall-alpha.lo : vacall-alpha.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-alpha.s + +vacall-alpha.s : $(srcdir)/vacall-alpha-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir) -I$(srcdir)/../../common $(srcdir)/vacall-alpha-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-alpha.s + +vacall-hppa.lo : vacall-hppa.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-hppa.s + +vacall-hppa.s : $(srcdir)/vacall-hppa-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../../common $(srcdir)/vacall-hppa-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e "s,!,',g" > vacall-hppa.s + +vacall-hppa64.lo : vacall-hppa64.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-hppa64.s + +vacall-hppa64.s : $(srcdir)/vacall-hppa64-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../../common $(srcdir)/vacall-hppa64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e "s,!,',g" > vacall-hppa64.s + +vacall-arm.lo : vacall-arm.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-arm.s + +vacall-arm.s : $(srcdir)/vacall-arm-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir) -I$(srcdir)/../../common $(srcdir)/vacall-arm-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//,@,g' -e 's,\$$,#,g' > vacall-arm.s + +vacall-armhf.lo : vacall-armhf.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-armhf.s + +vacall-armhf.s : $(srcdir)/vacall-armhf-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir) -I$(srcdir)/../../common $(srcdir)/vacall-armhf-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//,@,g' -e 's,\$$,#,g' > vacall-armhf.s + +vacall-arm64.lo : vacall-arm64.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-arm64.s + +vacall-arm64.s : $(srcdir)/vacall-arm64-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir) -I$(srcdir)/../../common $(srcdir)/vacall-arm64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//,@,g' -e 's,\$$,#,g' > vacall-arm64.s + +vacall-powerpc.lo : vacall-powerpc.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-powerpc.s + +vacall-powerpc.s : $(srcdir)/vacall-powerpc-aix.s $(srcdir)/vacall-powerpc-linux-macro.S $(srcdir)/vacall-powerpc-macos.s $(srcdir)/vacall-powerpc-sysv4-macro.S + case "$(OS)" in \ + aix*) syntax=aix;; \ + linux* | netbsd* | openbsd*) syntax=linux;; \ + macos* | darwin*) syntax=macos;; \ + *) syntax=sysv4;; \ + esac; \ + case $${syntax} in \ + linux | netbsd | sysv4) \ + $(CPP) $(ASPFLAGS) -I$(srcdir) $(srcdir)/vacall-powerpc-$${syntax}-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//,@,g' -e 's,\$$,#,g' > vacall-powerpc.s || exit 1 ;; \ + macos) \ + grep -v '\.machine' $(srcdir)/vacall-powerpc-$${syntax}.s > vacall-powerpc.s || exit 1 ;; \ + *) \ + cp $(srcdir)/vacall-powerpc-$${syntax}.s vacall-powerpc.s || exit 1 ;; \ + esac + +vacall-powerpc64.lo : vacall-powerpc64.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-powerpc64.s + +vacall-powerpc64.s : $(srcdir)/vacall-powerpc64-aix.s $(srcdir)/vacall-powerpc64-linux.S + case "$(OS)" in \ + aix*) syntax=aix;; \ + *) syntax=linux;; \ + esac; \ + case $${syntax} in \ + linux) \ + $(CPP) $(ASPFLAGS) $(srcdir)/vacall-powerpc64-$${syntax}.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-powerpc64.s || exit 1 ;; \ + *) \ + cp $(srcdir)/vacall-powerpc64-$${syntax}.s vacall-powerpc64.s || exit 1 ;; \ + esac + +vacall-powerpc64-elfv2.lo : vacall-powerpc64-elfv2.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-powerpc64-elfv2.s + +vacall-powerpc64-elfv2.s : $(srcdir)/vacall-powerpc64-elfv2-linux.S + $(CPP) $(ASPFLAGS) $(srcdir)/vacall-powerpc64-elfv2-linux.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-powerpc64-elfv2.s + +vacall-ia64.lo : vacall-ia64.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-ia64.s + +vacall-ia64.s : $(srcdir)/vacall-ia64-macro.S + $(CPP) $(ASPFLAGS) $(srcdir)/vacall-ia64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-ia64.s + +@IFNOT_MSVC@vacall-x86_64.lo : vacall-x86_64.s +@IFNOT_MSVC@ $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-x86_64.s + +@IFNOT_MSVC@vacall-x86_64.s : $(srcdir)/vacall-x86_64-macro.S $(srcdir)/vacall-x86_64-windows-macro.S +@IFNOT_MSVC@ case "$(OS)" in \ +@IFNOT_MSVC@ cygwin* | mingw*) variant='-windows';; \ +@IFNOT_MSVC@ *) variant='';; \ +@IFNOT_MSVC@ esac; \ +@IFNOT_MSVC@ $(CPP) $(ASPFLAGS) -I$(srcdir) -I$(srcdir)/../../common - < $(srcdir)/vacall-x86_64$${variant}-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,@ ,@,g' -e 's,//.*$$,,' -e 's/##//g' > vacall-x86_64.s + +@IF_MSVC@vacall-x86_64.lo : vacall-x86_64.asm +@IF_MSVC@ $(LIBTOOL_COMPILE) ml64 -c -nologo vacall-x86_64.asm +@IF_MSVC@ mkdir -p .libs; cp vacall-x86_64.@OBJEXT@ .libs/vacall-x86_64.@OBJEXT@ + +@IF_MSVC@vacall-x86_64.asm : $(srcdir)/vacall-x86_64-windows-macro.S +@IF_MSVC@ { $(CPP) $(ASPFLAGS) -I$(srcdir)/../../common $(srcdir)/vacall-x86_64-windows-macro.S | grep -v '^#'; echo 'END'; } > vacall-x86_64.asm + +vacall-x86_64-x32.lo : vacall-x86_64-x32.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-x86_64-x32.s + +vacall-x86_64-x32.s : $(srcdir)/vacall-x86_64-x32-linux.s + cp $(srcdir)/vacall-x86_64-x32-linux.s vacall-x86_64-x32.s + +vacall-s390.lo : vacall-s390.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-s390.s + +vacall-s390.s : $(srcdir)/vacall-s390-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir) $(srcdir)/vacall-s390-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-s390.s + +vacall-s390x.lo : vacall-s390x.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-s390x.s + +vacall-s390x.s : $(srcdir)/vacall-s390x-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir) $(srcdir)/vacall-s390x-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-s390x.s + +vacall-riscv32-ilp32d.lo : vacall-riscv32-ilp32d.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-riscv32-ilp32d.s + +vacall-riscv32-ilp32d.s : $(srcdir)/vacall-riscv32-ilp32d-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir) $(srcdir)/vacall-riscv32-ilp32d-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-riscv32-ilp32d.s + +vacall-riscv64-lp64d.lo : vacall-riscv64-lp64d.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-riscv64-lp64d.s + +vacall-riscv64-lp64d.s : $(srcdir)/vacall-riscv64-lp64d-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir) $(srcdir)/vacall-riscv64-lp64d-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-riscv64-lp64d.s + +vacall-libapi.lo : $(srcdir)/vacall-libapi.c $(srcdir)/../../vacall/vacall-internal.h $(srcdir)/vacall_r.h ../../config.h + $(LIBTOOL_COMPILE) $(CC) $(INCLUDES_WITH_GNULIB) $(CPPFLAGS) $(CFLAGS) @DISABLE_TYPE_BASED_ALIASING@ -DREENTRANT -c $(srcdir)/vacall-libapi.c + +vacall-structcpy.lo : $(srcdir)/vacall-structcpy.c $(srcdir)/../../common/structcpy.c + $(LIBTOOL_COMPILE) $(CC) -I$(srcdir)/../../common $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/vacall-structcpy.c + +libvacall.la : $(OBJECTS) + $(LIBTOOL_LINK) $(CC) -o libvacall.la -rpath $(libdir) -no-undefined $(OBJECTS) $(LDFLAGS) + +# Installs the library and include files only. Typically called with only +# $(libdir) and $(includedir) - don't use $(prefix) and $(exec_prefix) here. +install-lib : all force + mkdir -p $(includedir) + $(INSTALL_DATA) $(srcdir)/vacall_r.h $(includedir)/vacall_r.h + +install : all force + mkdir -p $(DESTDIR)$(prefix) +# mkdir -p $(DESTDIR)$(exec_prefix) +# mkdir -p $(DESTDIR)$(libdir) +# $(LIBTOOL_INSTALL) $(INSTALL_DATA) libvacall.la $(DESTDIR)$(libdir)/libvacall.la + mkdir -p $(DESTDIR)$(includedir) + $(INSTALL_DATA) $(srcdir)/vacall_r.h $(DESTDIR)$(includedir)/vacall_r.h +# mkdir -p $(DESTDIR)$(mandir) +# mkdir -p $(DESTDIR)$(mandir)/man3 +# $(INSTALL_DATA) $(srcdir)/vacall_r.3 $(DESTDIR)$(mandir)/man3/vacall_r.3 +# mkdir -p $(DESTDIR)$(datadir) +# mkdir -p $(DESTDIR)$(htmldir) +# $(INSTALL_DATA) $(srcdir)/vacall_r.html $(DESTDIR)$(htmldir)/vacall_r.html + +installdirs : force + mkdir -p $(DESTDIR)$(prefix) +# mkdir -p $(DESTDIR)$(exec_prefix) +# mkdir -p $(DESTDIR)$(libdir) + mkdir -p $(DESTDIR)$(includedir) +# mkdir -p $(DESTDIR)$(mandir) +# mkdir -p $(DESTDIR)$(mandir)/man3 +# mkdir -p $(DESTDIR)$(datadir) +# mkdir -p $(DESTDIR)$(htmldir) + +uninstall : force +# $(LIBTOOL_UNINSTALL) $(RM) $(DESTDIR)$(libdir)/libvacall.la + $(RM) $(DESTDIR)$(includedir)/vacall_r.h +# $(RM) $(DESTDIR)$(mandir)/man3/vacall_r.3 +# $(RM) $(DESTDIR)$(htmldir)/vacall_r.html + +check : all + +extracheck : all + +mostlyclean : clean + +clean : force + $(RM) *.@OBJEXT@ *.lo *.a libvacall.* core + $(RM) vacall-i386.s vacall-sparc.s vacall-sparc64.s vacall-m68k.s vacall-mips.s vacall-mipsn32.s vacall-mips64.s vacall-alpha.s vacall-hppa.s vacall-hppa64.s vacall-arm.s vacall-armhf.s vacall-arm64.s vacall-powerpc.s vacall-powerpc64.s vacall-powerpc64-elfv2.s vacall-ia64.s vacall-x86_64.s vacall-x86_64.asm vacall-x86_64-x32.s vacall-s390.s vacall-s390x.s vacall-riscv32-ilp32d.s vacall-riscv64-lp64d.s + $(RM) -r .libs _libs + +distclean : clean + $(RM) Makefile + +maintainer-clean : distclean + + +# List of source files (committed in version control or generated by Makefile.devel). +SOURCE_FILES = \ + COPYING \ + README \ + Makefile.devel \ + Makefile.maint \ + Makefile.in \ + vacall_r.h \ + get_receiver.c \ + vacall-alpha-linux.s vacall-alpha-macro.S \ + vacall-arm-macro.S \ + vacall-armhf-macro.S \ + vacall-arm64-macro.S \ + vacall-hppa-linux.s vacall-hppa-macro.S \ + vacall-hppa64-linux.s vacall-hppa64-macro.S \ + vacall-i386-linux.s vacall-i386-macro.S \ + vacall-ia64-linux.s vacall-ia64-macro.S \ + vacall-m68k-linux.s vacall-m68k-sun.s vacall-m68k.mit.S vacall-m68k.motorola.S \ + vacall-mipseb-linux.s vacall-mipsel-linux.s vacall-mipseb-macro.S vacall-mipsel-macro.S \ + vacall-mipsn32eb-linux.s vacall-mipsn32el-linux.s vacall-mipsn32eb-macro.S vacall-mipsn32el-macro.S \ + vacall-mips64eb-linux.s vacall-mips64el-linux.s vacall-mips64eb-macro.S vacall-mips64el-macro.S \ + vacall-powerpc-aix.s \ + vacall-powerpc-linux.s vacall-powerpc-linux-macro.S \ + vacall-powerpc-macos.s \ + vacall-powerpc-sysv4-macro.S \ + vacall-powerpc64-aix.s vacall-powerpc64-linux.S vacall-powerpc64-elfv2-linux.S \ + vacall-riscv32-ilp32d-linux.s vacall-riscv32-ilp32d-macro.S \ + vacall-riscv64-lp64d-linux.s vacall-riscv64-lp64d-macro.S \ + vacall-s390-linux.s vacall-s390-macro.S \ + vacall-s390x-linux.s vacall-s390x-macro.S \ + vacall-sparc-linux.s vacall-sparc-macro.S \ + vacall-sparc64-linux.s vacall-sparc64-macro.S \ + vacall-x86_64-linux.s vacall-x86_64-macro.S vacall-x86_64-x32-linux.s \ + vacall-x86_64-windows.s vacall-x86_64-windows-macro.S \ + vacall-libapi.c \ + vacall-structcpy.c +# List of distributed files generated by Makefile.maint. +GENERATED_FILES = \ + vacall-i386-msvc.c +# List of distributed files. +DISTFILES = $(SOURCE_FILES) $(GENERATED_FILES) + +distdir : $(DISTFILES) + for file in $(DISTFILES); do \ + if test -f $$file; then dir='.'; else dir='$(srcdir)'; fi; \ + cp -p "$$dir/$$file" '$(distdir)'/$$file || exit 1; \ + done + + +force : diff --git a/callback/vacall_r/Makefile.maint b/callback/vacall_r/Makefile.maint new file mode 100644 index 0000000..c9074f4 --- /dev/null +++ b/callback/vacall_r/Makefile.maint @@ -0,0 +1,17 @@ +# maintainer -*-Makefile-*- + +LN = ln -s +RM = rm -f + +# ==================== Easily regeneratable files ==================== + +all : vacall-i386-msvc.c + +vacall-i386-msvc.c : vacall-i386-macro.S + (echo '#ifdef _MSC_VER' ; echo '#include "vacall_r.h"' ; echo '#endif' ; sed -e '/FUNEND(callback_receiver,/q' < vacall-i386-macro.S ; cat get_receiver.c) > vacall-i386-msvc.c + +totally-clean : force + $(RM) vacall-i386-msvc.c + + +force : diff --git a/callback/vacall_r/README b/callback/vacall_r/README new file mode 100644 index 0000000..801a9b9 --- /dev/null +++ b/callback/vacall_r/README @@ -0,0 +1,9 @@ +This directory contains a reentrant version of the vacall package. + +Instead of using a global variable for the function to be called, +a pointer is passed in a special CPU register, pointing to: + - a function code pointer in the first word, + - a data word in the second word, to be passed before the va_alist. + +The include file is renamed to . + diff --git a/callback/vacall_r/get_receiver.c b/callback/vacall_r/get_receiver.c new file mode 100644 index 0000000..5394019 --- /dev/null +++ b/callback/vacall_r/get_receiver.c @@ -0,0 +1,24 @@ +/* Implementation of callback_get_receiver */ + +/* + * Copyright 2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +__vacall_r_t +callback_get_receiver (void) +{ + return (__vacall_r_t)(void*)&callback_receiver; +} diff --git a/callback/vacall_r/vacall-alpha-linux.s b/callback/vacall_r/vacall-alpha-linux.s new file mode 100644 index 0000000..75fbe8f --- /dev/null +++ b/callback/vacall_r/vacall-alpha-linux.s @@ -0,0 +1,196 @@ + .set noreorder + .set volatile + .set noat + .set nomacro + .text + .align 2 + .align 4 + .ent callback_receiver +callback_receiver: + .frame $15,192,$26,48 + .mask 0x4008000,-192 + ldah $29,0($27) !gpdisp!1 + lda $29,0($29) !gpdisp!1 +$callback_receiver..ng: + lda $30,-192($30) + ldq $27,0($1) + stq $15,8($30) + mov $30,$15 + lda $3,144($15) + stq $26,0($30) + .prologue 1 + stq $31,48($15) + lda $2,88($15) + stq $16,144($15) + subq $2,$3,$2 + ldq $16,8($1) + stq $17,152($15) + lda $3,192($15) + stq $2,80($15) + lda $17,16($15) + lda $2,144($15) + stq $3,72($15) + stq $18,160($15) + stq $19,168($15) + stq $20,176($15) + stq $21,184($15) + stt $f16,88($15) + stt $f17,96($15) + stt $f18,104($15) + stt $f19,112($15) + stt $f20,120($15) + stt $f21,128($15) + stl $31,16($15) + stq $2,40($15) + stl $31,56($15) + jsr $26,($27),0 + ldah $29,0($26) !gpdisp!2 + lda $29,0($29) !gpdisp!2 + ldl $2,56($15) + beq $2,$L43 + zapnot $2,15,$3 + cmpeq $3,1,$2 + bne $2,$L44 + cmpeq $3,2,$2 + bne $2,$L44 + cmpeq $3,3,$2 + bne $2,$L50 + cmpeq $3,4,$2 + bne $2,$L51 + cmpeq $3,5,$2 + bne $2,$L52 + cmpeq $3,6,$2 + bne $2,$L53 + cmpeq $3,7,$2 + bne $2,$L54 + cmpeq $3,8,$2 + bne $2,$L48 + cmpeq $3,9,$2 + bne $2,$L48 + cmpeq $3,10,$2 + bne $2,$L48 + cmpeq $3,11,$2 + bne $2,$L48 + cmpeq $3,12,$2 + bne $2,$L55 + cmpeq $3,13,$2 + bne $2,$L56 + cmpeq $3,14,$2 + bne $2,$L48 + cmpeq $3,15,$2 + beq $2,$L43 + lda $2,1024($31) + ldl $3,16($15) + and $2,$3,$2 + beq $2,$L43 + ldq $3,64($15) + cmpeq $3,1,$2 + bne $2,$L57 + cmpeq $3,2,$2 + bne $2,$L58 + cmpeq $3,4,$2 + bne $2,$L59 + cmpeq $3,8,$2 + bne $2,$L60 + cmpeq $3,16,$2 + beq $2,$L43 + ldq $2,48($15) + ldq $1,8($2) + ldq $0,0($2) + .align 4 +$L43: + mov $15,$30 + ldq $26,0($30) + ldq $15,8($30) + lda $30,192($30) + ret $31,($26),1 + .align 4 +$L44: + mov $15,$30 + ldl $2,24($15) + ldq $26,0($30) + sll $2,56,$2 + sra $2,56,$0 + ldq $15,8($30) + lda $30,192($30) + ret $31,($26),1 +$L51: + ldl $2,24($15) + sll $2,48,$2 + sra $2,48,$0 + br $31,$L43 +$L50: + ldl $2,24($15) + bis $31,$31,$31 + and $2,0xff,$0 + br $31,$L43 +$L48: + ldq $0,24($15) + br $31,$L43 +$L52: + ldl $2,24($15) + bis $31,$31,$31 + zapnot $2,3,$0 + br $31,$L43 +$L53: + ldl $3,24($15) + bis $31,$31,$31 + mov $3,$0 + br $31,$L43 +$L54: + ldl $2,24($15) + bis $31,$31,$31 + zapnot $2,15,$0 + br $31,$L43 +$L55: + lds $f0,24($15) + br $31,$L43 +$L56: + ldt $f0,24($15) + br $31,$L43 +$L57: + ldq $3,48($15) + ldq_u $2,0($3) + extbl $2,$3,$0 + br $31,$L43 +$L58: + ldq $3,48($15) + ldq_u $2,0($3) + extwl $2,$3,$0 + br $31,$L43 +$L60: + ldq $2,48($15) + bis $31,$31,$31 + ldq $0,0($2) + br $31,$L43 +$L59: + ldq $2,48($15) + ldl $3,0($2) + zapnot $3,15,$0 + br $31,$L43 + .end callback_receiver + .align 2 + .align 4 + .globl callback_get_receiver + .ent callback_get_receiver +callback_get_receiver: + .frame $15,16,$26,0 + .mask 0x4008000,-16 + ldah $29,0($27) !gpdisp!3 + lda $29,0($29) !gpdisp!3 +$callback_get_receiver..ng: + lda $30,-16($30) + ldah $2,callback_receiver($29) !gprelhigh + stq $15,8($30) + mov $30,$15 + stq $26,0($30) + .prologue 1 + mov $15,$30 + lda $0,callback_receiver($2) !gprellow + ldq $26,0($30) + ldq $15,8($30) + lda $30,16($30) + ret $31,($26),1 + .end callback_get_receiver + .ident "GCC: (GNU) 4.0.2" + .section .note.GNU-stack,"",@progbits diff --git a/callback/vacall_r/vacall-alpha-macro.S b/callback/vacall_r/vacall-alpha-macro.S new file mode 100644 index 0000000..a5ba6c6 --- /dev/null +++ b/callback/vacall_r/vacall-alpha-macro.S @@ -0,0 +1,197 @@ + .set noreorder + .set volatile + .set noat + .set nomacro + .text + .align 2 + .align 4 + .ent callback_receiver +callback_receiver: + .frame $15,192,$26,48 + .mask 0x4008000,-192 + ldah $29,0($27) !gpdisp!1 + lda $29,0($29) !gpdisp!1 +$callback_receiver..ng: + lda $30,-192($30) + ldq $27,0($1) + stq $15,8($30) + mov $30,$15 + lda $3,144($15) + stq $26,0($30) + .prologue 1 + stq $31,48($15) + lda $2,88($15) + stq $16,144($15) + subq $2,$3,$2 + ldq $16,8($1) + stq $17,152($15) + lda $3,192($15) + stq $2,80($15) + lda $17,16($15) + lda $2,144($15) + stq $3,72($15) + stq $18,160($15) + stq $19,168($15) + stq $20,176($15) + stq $21,184($15) + stt $f16,88($15) + stt $f17,96($15) + stt $f18,104($15) + stt $f19,112($15) + stt $f20,120($15) + stt $f21,128($15) + stl $31,16($15) + stq $2,40($15) + stl $31,56($15) + jsr $26,($27),0 + ldah $29,0($26) !gpdisp!2 + lda $29,0($29) !gpdisp!2 + ldl $2,56($15) + beq $2,$L43 + zapnot $2,15,$3 + cmpeq $3,1,$2 + bne $2,$L44 + cmpeq $3,2,$2 + bne $2,$L44 + cmpeq $3,3,$2 + bne $2,$L50 + cmpeq $3,4,$2 + bne $2,$L51 + cmpeq $3,5,$2 + bne $2,$L52 + cmpeq $3,6,$2 + bne $2,$L53 + cmpeq $3,7,$2 + bne $2,$L54 + cmpeq $3,8,$2 + bne $2,$L48 + cmpeq $3,9,$2 + bne $2,$L48 + cmpeq $3,10,$2 + bne $2,$L48 + cmpeq $3,11,$2 + bne $2,$L48 + cmpeq $3,12,$2 + bne $2,$L55 + cmpeq $3,13,$2 + bne $2,$L56 + cmpeq $3,14,$2 + bne $2,$L48 + cmpeq $3,15,$2 + beq $2,$L43 + lda $2,1024($31) + ldl $3,16($15) + and $2,$3,$2 + beq $2,$L43 + ldq $3,64($15) + cmpeq $3,1,$2 + bne $2,$L57 + cmpeq $3,2,$2 + bne $2,$L58 + cmpeq $3,4,$2 + bne $2,$L59 + cmpeq $3,8,$2 + bne $2,$L60 + cmpeq $3,16,$2 + beq $2,$L43 + ldq $2,48($15) + ldq $1,8($2) + ldq $0,0($2) + .align 4 +$L43: + mov $15,$30 + ldq $26,0($30) + ldq $15,8($30) + lda $30,192($30) + ret $31,($26),1 + .align 4 +$L44: + mov $15,$30 + ldl $2,24($15) + ldq $26,0($30) + sll $2,56,$2 + sra $2,56,$0 + ldq $15,8($30) + lda $30,192($30) + ret $31,($26),1 +$L51: + ldl $2,24($15) + sll $2,48,$2 + sra $2,48,$0 + br $31,$L43 +$L50: + ldl $2,24($15) + bis $31,$31,$31 + and $2,0xff,$0 + br $31,$L43 +$L48: + ldq $0,24($15) + br $31,$L43 +$L52: + ldl $2,24($15) + bis $31,$31,$31 + zapnot $2,3,$0 + br $31,$L43 +$L53: + ldl $3,24($15) + bis $31,$31,$31 + mov $3,$0 + br $31,$L43 +$L54: + ldl $2,24($15) + bis $31,$31,$31 + zapnot $2,15,$0 + br $31,$L43 +$L55: + lds $f0,24($15) + br $31,$L43 +$L56: + ldt $f0,24($15) + br $31,$L43 +$L57: + ldq $3,48($15) + ldq_u $2,0($3) + extbl $2,$3,$0 + br $31,$L43 +$L58: + ldq $3,48($15) + ldq_u $2,0($3) + extwl $2,$3,$0 + br $31,$L43 +$L60: + ldq $2,48($15) + bis $31,$31,$31 + ldq $0,0($2) + br $31,$L43 +$L59: + ldq $2,48($15) + ldl $3,0($2) + zapnot $3,15,$0 + br $31,$L43 + .end callback_receiver + .align 2 + .align 4 + .globl callback_get_receiver + .ent callback_get_receiver +callback_get_receiver: + .frame $15,16,$26,0 + .mask 0x4008000,-16 + ldah $29,0($27) !gpdisp!3 + lda $29,0($29) !gpdisp!3 +$callback_get_receiver..ng: + lda $30,-16($30) + ldah $2,callback_receiver($29) !gprelhigh + stq $15,8($30) + mov $30,$15 + stq $26,0($30) + .prologue 1 + mov $15,$30 + lda $0,callback_receiver($2) !gprellow + ldq $26,0($30) + ldq $15,8($30) + lda $30,16($30) + ret $31,($26),1 + .end callback_get_receiver +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/callback/vacall_r/vacall-arm-macro.S b/callback/vacall_r/vacall-arm-macro.S new file mode 100644 index 0000000..ec08a56 --- /dev/null +++ b/callback/vacall_r/vacall-arm-macro.S @@ -0,0 +1,110 @@ +#include "asm-arm.h" + .text + .align 2 + DECLARE_FUNCTION(callback_receiver) +FUNBEGIN(callback_receiver) + // args = 28, pretend = 0, frame = 32 + // frame_needed = 1, uses_anonymous_args = 0 + mov ip, sp + stmfd sp!, {r4, fp, ip, lr, pc} + mov r2, $0 + sub fp, ip, $4 + sub sp, sp, $32 + ldr r4, [fp, $4] + str r2, [fp, $-28] + add r3, fp, $28 + str r2, [fp, $-24] + str r2, [fp, $-48] + str r3, [fp, $-32] + bic sp, sp, $7 + ldr r0, [r4, $4] + sub r1, fp, $48 + mov lr, pc + ldr pc, [r4, $0] + ldr r2, [fp, $-24] + cmp r2, $0 + ldmeqea fp, {r4, fp, sp, pc} + cmp r2, $1 + beq L(36) + cmp r2, $2 + ldreqsb r0, [fp, $-40] + ldmeqea fp, {r4, fp, sp, pc} + cmp r2, $3 + beq L(36) + cmp r2, $4 + ldreqsh r0, [fp, $-40] + ldmeqea fp, {r4, fp, sp, pc} + cmp r2, $5 + ldreqh r0, [fp, $-40] + ldmeqea fp, {r4, fp, sp, pc} + cmp r2, $6 + beq L(40) + cmp r2, $7 + beq L(40) + cmp r2, $8 + beq L(40) + cmp r2, $9 + beq L(40) + sub r3, r2, $10 + cmp r3, $1 + bls L(41) + cmp r2, $12 + ldreq r0, [fp, $-40] // float + ldmeqea fp, {r4, fp, sp, pc} + cmp r2, $13 + beq L(41) + cmp r2, $14 + beq L(40) + cmp r2, $15 + ldmneea fp, {r4, fp, sp, pc} + ldr r3, [fp, $-48] + tst r3, $1024 + ldmeqea fp, {r4, fp, sp, pc} + ldr r3, [fp, $-20] + cmp r3, $1 + ldreq r3, [fp, $-28] + ldreqb r0, [r3, $0] // zero_extendqisi2 + ldmeqea fp, {r4, fp, sp, pc} + cmp r3, $2 + ldreq r3, [fp, $-28] + ldrne r3, [fp, $-28] + ldreqh r0, [r3, $0] + ldrne r0, [r3, $0] + ldmea fp, {r4, fp, sp, pc} +L(40): + ldr r0, [fp, $-40] + ldmea fp, {r4, fp, sp, pc} +L(41): + sub r0, fp, $40 + ldmia r0, {r0, r1} // phole ldm + ldmea fp, {r4, fp, sp, pc} +L(36): + ldrb r0, [fp, $-40] // zero_extendqisi2 + ldmea fp, {r4, fp, sp, pc} +L(fe1): + FUNEND(callback_receiver) + .align 2 + .global C(callback_get_receiver) + DECLARE_FUNCTION(callback_get_receiver) +FUNBEGIN(callback_get_receiver) + // args = 0, pretend = 0, frame = 0 + // frame_needed = 1, uses_anonymous_args = 0 + mov ip, sp + stmfd sp!, {sl, fp, ip, lr, pc} + ldr sl, L(44) + ldr r3, L(44)+4 +L(43): + add sl, pc, sl + sub fp, ip, $4 + add r0, sl, r3 + ldmea fp, {sl, fp, sp, pc} +L(45): + .align 2 +L(44): + .word _GLOBAL_OFFSET_TABLE_-(L(43)+8) + .word callback_receiver(GOTOFF) +L(fe2): + FUNEND(callback_get_receiver) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",%progbits +#endif diff --git a/callback/vacall_r/vacall-arm64-macro.S b/callback/vacall_r/vacall-arm64-macro.S new file mode 100644 index 0000000..9f275fd --- /dev/null +++ b/callback/vacall_r/vacall-arm64-macro.S @@ -0,0 +1,190 @@ +#include "asm-arm.h" + .cpu generic+fp+simd + .text + .align 2 + .p2align 3,,7 + .type callback_receiver, %function +FUNBEGIN(callback_receiver) + stp x29, x30, [sp, -256]! + add x29, sp, 0 + ldr x10, [x18] + add x11, x29, 256 + stp s0, s1, [x29, 156] + stp s2, s3, [x29, 164] + stp x0, x1, [x29, 88] + stp s4, s5, [x29, 172] + stp x11, xzr, [x29, 40] + stp s6, s7, [x29, 180] + str x8, [x29, 72] + stp d0, d1, [x29, 192] + stp x2, x3, [x29, 104] + stp d2, d3, [x29, 208] + stp x4, x5, [x29, 120] + stp d4, d5, [x29, 224] + stp x6, x7, [x29, 136] + stp d6, d7, [x29, 240] + str wzr, [x29, 16] + add x1, x29, 16 + str wzr, [x29, 56] + ldr x0, [x18, 8] + str wzr, [x29, 80] + str wzr, [x29, 152] + blr x10 + ldr w9, [x29, 56] + cbz w9, L(1) + cmp w9, 1 + beq L(25) + cmp w9, 2 + beq L(29) + cmp w9, 3 + beq L(25) + cmp w9, 4 + beq L(30) + cmp w9, 5 + beq L(31) + cmp w9, 6 + beq L(32) + cmp w9, 7 + beq L(33) + and w10, w9, -3 + cmp w10, 8 + beq L(27) + cmp w10, 9 + beq L(27) + cmp w9, 12 + beq L(34) + cmp w9, 13 + beq L(35) + cmp w9, 14 + beq L(27) + cmp w9, 15 + bne L(1) + ldr w9, [x29, 16] + tbz x9, 10, L(1) + ldr x9, [x29, 64] + sub x10, x9, $1 + cmp x10, 15 + bhi L(1) + ldr x11, [x29, 48] + cmp x9, 8 + and x10, x11, 7 + and x11, x11, -8 + add x9, x9, x10 + bhi L(15) + cmp x9, 8 + lsl w9, w9, 3 + bhi L(16) + mov x12, 2 + sub w9, w9, $1 + lsl x9, x12, x9 + ldr x11, [x11] + sub x9, x9, $1 + lsl w10, w10, 3 + and x9, x9, x11 + asr x0, x9, x10 +L(1): + ldp x29, x30, [sp], 256 + ret + .p2align 3 +L(25): + ldrb w0, [x29, 24] + ldp x29, x30, [sp], 256 + ret + .p2align 3 +L(27): + ldr x0, [x29, 24] + b L(1) + .p2align 3 +L(29): + ldrsb x0, [x29, 24] + b L(1) + .p2align 3 +L(30): + ldrsh x0, [x29, 24] + b L(1) + .p2align 3 +L(31): + ldrh w0, [x29, 24] + b L(1) + .p2align 3 +L(32): + ldrsw x0, [x29, 24] + b L(1) + .p2align 3 +L(33): + ldr w0, [x29, 24] + b L(1) +L(34): + ldr s0, [x29, 24] + b L(1) +L(35): + ldr d0, [x29, 24] + b L(1) +L(15): + cmp x9, 16 + lsl w9, w9, 3 + bls L(36) + mov x13, 2 + sub w9, w9, $129 + ldp x14, x12, [x11, 8] + lsl x9, x13, x9 + lsl w15, w10, 3 + sub x9, x9, $1 + neg w10, w10, lsl 3 + ldr x11, [x11] + add w10, w10, 64 + and x9, x9, x12 + lsl x16, x14, x10 + asr x11, x11, x15 + asr x14, x14, x15 + lsl x10, x9, x10 + orr x0, x11, x16 + orr x1, x10, x14 + b L(1) +L(16): + mov w13, -8 + mov x14, 2 + sub w9, w9, $65 + lsl w15, w10, 3 + ldr x12, [x11, 8] + lsl x9, x14, x9 + mul w10, w13, w10 + sub x9, x9, $1 + ldr x11, [x11] + add w10, w10, 64 + and x9, x9, x12 + asr x11, x11, x15 + lsl x9, x9, x10 + orr x0, x9, x11 + b L(1) +L(36): + mov w13, -4 + mov x14, 2 + sub w9, w9, $65 + lsl w15, w10, 3 + ldr x12, [x11, 8] + lsl x9, x14, x9 + mul w10, w13, w10 + sub x9, x9, $1 + ldr x11, [x11] + add w10, w10, 32 + and x9, x9, x12 + asr x1, x9, x15 + lsl x9, x9, x10 + asr x11, x11, x15 + lsl x9, x9, x10 + orr x0, x11, x9 + b L(1) + FUNEND(callback_receiver) + .align 2 + .p2align 3,,7 + .global C(callback_get_receiver) + .type callback_get_receiver, %function +FUNBEGIN(callback_get_receiver) + adrp x9, callback_receiver + add x0, x9, :lo12:callback_receiver + ret + FUNEND(callback_get_receiver) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",%progbits +#endif diff --git a/callback/vacall_r/vacall-armhf-macro.S b/callback/vacall_r/vacall-armhf-macro.S new file mode 100644 index 0000000..f9e743a --- /dev/null +++ b/callback/vacall_r/vacall-armhf-macro.S @@ -0,0 +1,167 @@ +#include "asm-arm.h" + .arch armv6 + .eabi_attribute 28, 1 + .eabi_attribute 20, 1 + .eabi_attribute 21, 1 + .eabi_attribute 23, 3 + .eabi_attribute 24, 1 + .eabi_attribute 25, 1 + .eabi_attribute 26, 1 + .eabi_attribute 30, 2 + .eabi_attribute 34, 1 + .eabi_attribute 18, 4 + .text + .align 2 + .global C(callback_receiver) + .syntax unified + .arm + .fpu vfpv3-d16 + .type callback_receiver, %function +FUNBEGIN(callback_receiver) + // args = 28, pretend = 0, frame = 176 + // frame_needed = 1, uses_anonymous_args = 0 + push {fp, lr} + add fp, sp, $4 + sub sp, sp, $176 + ldr r2, [fp, $4] + mov r3, $0 + add lr, fp, $28 + add ip, fp, $44 + vstr.32 s0, [fp, $-136] + vstr.32 s1, [fp, $-132] + vstr.32 s2, [fp, $-128] + vstr.32 s3, [fp, $-124] + vstr.32 s4, [fp, $-120] + vstr.32 s5, [fp, $-116] + vstr.32 s6, [fp, $-112] + vstr.32 s7, [fp, $-108] + vstr.32 s8, [fp, $-104] + vstr.32 s9, [fp, $-100] + vstr.32 s10, [fp, $-96] + vstr.32 s11, [fp, $-92] + vstr.32 s12, [fp, $-88] + vstr.32 s13, [fp, $-84] + vstr.32 s14, [fp, $-80] + vstr.32 s15, [fp, $-76] + vstr.64 d0, [fp, $-68] + vstr.64 d1, [fp, $-60] + vstr.64 d2, [fp, $-52] + vstr.64 d3, [fp, $-44] + vstr.64 d4, [fp, $-36] + vstr.64 d5, [fp, $-28] + vstr.64 d6, [fp, $-20] + vstr.64 d7, [fp, $-12] + str r3, [fp, $-180] + str r3, [fp, $-144] + str r3, [fp, $-140] + str r3, [fp, $-160] + strb r3, [fp, $-156] + sub r1, fp, $180 + str lr, [fp, $-148] + ldr r3, [r2] + str ip, [fp, $-164] + ldr r0, [r2, $4] + blx r3 + ldrb r3, [fp, $-156] // zero_extendqisi2 + cmp r3, $0 + beq L(1) + cmp r3, $1 + beq L(25) + cmp r3, $2 + ldrsbeq r0, [fp, $-172] + beq L(1) + cmp r3, $3 + beq L(25) + cmp r3, $4 + ldrsheq r0, [fp, $-172] + beq L(1) + cmp r3, $5 + ldrheq r0, [fp, $-172] + beq L(1) + cmp r3, $6 + beq L(27) + cmp r3, $7 + beq L(27) + cmp r3, $8 + beq L(27) + cmp r3, $9 + beq L(27) + sub r2, r3, $10 + cmp r2, $1 + bls L(29) + cmp r3, $12 + vldreq.32 s0, [fp, $-172] + beq L(1) + cmp r3, $13 + beq L(30) + cmp r3, $14 + beq L(27) + cmp r3, $15 + bne L(1) + ldr r3, [fp, $-180] + tst r3, $1024 + beq L(1) + ldr r3, [fp, $-152] + cmp r3, $1 + beq L(31) + cmp r3, $2 + ldr r3, [fp, $-160] + ldrheq r0, [r3] + ldrne r0, [r3] +L(1): + sub sp, fp, $4 + // sp needed + pop {fp, pc} +L(25): + ldrb r0, [fp, $-172] // zero_extendqisi2 + sub sp, fp, $4 + // sp needed + pop {fp, pc} +L(27): + ldr r0, [fp, $-172] + sub sp, fp, $4 + // sp needed + pop {fp, pc} +L(30): + vldr.64 d0, [fp, $-172] + b L(1) +L(29): + ldr r0, [fp, $-172] + ldr r1, [fp, $-168] + b L(1) +L(31): + ldr r3, [fp, $-160] + ldrb r0, [r3] // zero_extendqisi2 + b L(1) + FUNEND(callback_receiver) + .align 2 + .global C(callback_get_receiver) + .syntax unified + .arm + .fpu vfpv3-d16 + .type callback_get_receiver, %function +FUNBEGIN(callback_get_receiver) + // args = 0, pretend = 0, frame = 0 + // frame_needed = 1, uses_anonymous_args = 0 + // link register save eliminated. + ldr r3, L(34) + ldr r2, L(34)+4 +L(PIC0): + add r3, pc, r3 + str fp, [sp, $-4]! + add fp, sp, $0 + ldr r3, [r3, r2] + mov r0, r3 + add sp, fp, $0 + // sp needed + ldr fp, [sp], $4 + bx lr +L(35): + .align 2 +L(34): + .word _GLOBAL_OFFSET_TABLE_-(L(PIC0)+8) + .word callback_receiver(GOT) + FUNEND(callback_get_receiver) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",%progbits +#endif diff --git a/callback/vacall_r/vacall-hppa-linux.s b/callback/vacall_r/vacall-hppa-linux.s new file mode 100644 index 0000000..bc5c935 --- /dev/null +++ b/callback/vacall_r/vacall-hppa-linux.s @@ -0,0 +1,218 @@ + .LEVEL 1.1 + .text + .align 4 + .type callback_receiver,@function +callback_receiver: + .PROC + .CALLINFO FRAME=192,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=5 + .ENTRY + copy %r3,%r1 + stw %r2,-20(%r30) + copy %r30,%r3 + stwm %r1,192(%r30) + ldo -32(%r3),%r2 + ldo 16(%r3),%r21 + ldo 88(%r3),%r20 + stw %r5,96(%r3) + sub %r21,%r2,%r31 + copy %r19,%r5 + stw %r4,100(%r3) + ldo 80(%r31),%r4 + ldo 64(%r31),%r31 + stw %r19,-32(%r30) + stw %r25,-40(%r3) + copy %r21,%r25 + ldo 80(%r3),%r21 + fstds %fr5,0(%r20) + ldo 76(%r3),%r20 + fstws %fr4L,0(%r20) + ldo 68(%r3),%r20 + stw %r0,36(%r3) + stw %r28,48(%r3) + fstds %fr7,0(%r21) + ldo 72(%r3),%r21 + fstws %fr5L,0(%r21) + ldo 64(%r3),%r21 + fstws %fr6L,0(%r20) + ldo -48(%r3),%r20 + stw %r26,-36(%r3) + fstws %fr7L,0(%r21) + ldw 0(%r29),%r22 + stw %r20,52(%r3) + stw %r31,56(%r3) + stw %r4,60(%r3) + stw %r24,-44(%r3) + stw %r23,-48(%r3) + stw %r0,16(%r3) + stw %r2,32(%r3) + stw %r0,40(%r3) + ldw 4(%r29),%r26 + .CALL ARGW0=GR + bl $$dyncall,%r31 + copy %r31,%r2 + ldw 40(%r3),%r21 + comib,= 0,%r21,.L1 + copy %r5,%r19 + comib,= 1,%r21,.L48 + ldb 24(%r3),%r20 + comib,=,n 2,%r21,.L48 + comib,=,n 3,%r21,.L43 + comib,=,n 4,%r21,.L44 + comib,=,n 5,%r21,.L45 + comib,=,n 6,%r21,.L41 + comib,=,n 7,%r21,.L41 + comib,=,n 8,%r21,.L41 + comib,= 9,%r21,.L41 + ldo -10(%r21),%r20 + comib,<<,n 1,%r20,.L22 + ldw 24(%r3),%r28 +.L40: + ldw 28(%r3),%r29 +.L1: + ldw -20(%r3),%r2 +.L49: +.L50: + ldw 96(%r3),%r5 + ldw 100(%r3),%r4 + ldo 64(%r3),%r30 + bv %r0(%r2) + ldwm -64(%r30),%r3 +.L22: + comib,= 12,%r21,.L46 + ldo 24(%r3),%r20 + comib,=,n 13,%r21,.L47 + comib,=,n 14,%r21,.L1 + ldw 24(%r3),%r28 + comib,<> 15,%r21,.L49 + ldw -20(%r3),%r2 + ldw 16(%r3),%r20 + bb,>= %r20,30,.L49 + ldw 44(%r3),%r4 + ldo -1(%r4),%r20 + comib,<< 7,%r20,.L50 + ldw 36(%r3),%r20 + extru %r20,31,2,%r31 + copy %r20,%r2 + depi 0,31,2,%r2 + comib,<< 4,%r4,.L33 + addl %r31,%r4,%r5 + zdep %r31,28,29,%r31 + mtsar %r31 + zvdepi 2,32,%r20 + comib,<< 4,%r5,.L34 + ldo -1(%r20),%r31 + ldw 0(%r2),%r20 + zdep %r5,28,29,%r21 + ldo -1(%r21),%r21 + and %r20,%r31,%r20 + mtsar %r21 + vextrs %r20,32,%r20 + movb,tr %r20,%r28,.L49 + ldw -20(%r3),%r2 +.L34: + ldw 0(%r2),%r20 + zdep %r5,28,29,%r22 + ldw 4(%r2),%r21 + and %r20,%r31,%r20 + ldo -33(%r22),%r2 + subi 63,%r22,%r22 + mtsar %r22 + zvdep %r20,32,%r20 + mtsar %r2 + vextrs %r21,32,%r21 +.L39: + b .L1 + or %r21,%r20,%r28 +.L33: + zdep %r31,28,29,%r31 + mtsar %r31 + zvdepi 2,32,%r20 + comib,<< 8,%r5,.L37 + ldo -1(%r20),%r4 + ldw 0(%r2),%r22 + zdep %r5,29,30,%r20 + and %r22,%r4,%r22 + ldw 4(%r2),%r31 + subi 47,%r20,%r4 + zdep %r5,28,29,%r20 + mtsar %r4 + ldo -33(%r20),%r20 + zvdep %r22,32,%r21 + zvdep %r21,32,%r21 + mtsar %r20 + vextrs %r31,32,%r31 + vextrs %r22,32,%r22 + movb,tr %r22,%r28,.L1 + or %r21,%r31,%r29 +.L37: + ldw 0(%r2),%r21 + zdep %r5,28,29,%r31 + ldw 8(%r2),%r22 + and %r21,%r4,%r21 + ldo -65(%r31),%r4 + ldw 4(%r2),%r20 + mtsar %r4 + subi 95,%r31,%r2 + vextrs %r22,32,%r22 + mtsar %r2 + zvdep %r20,32,%r31 + zvdep %r21,32,%r21 + or %r31,%r22,%r29 + mtsar %r4 + b .L39 + vextrs %r20,32,%r20 +.L41: + b .L1 + ldw 24(%r3),%r28 +.L47: + ldw 24(%r3),%r28 + b .L40 + fldds 0(%r20),%fr4 +.L46: + ldw 24(%r3),%r28 + b .L1 + fldws 0(%r20),%fr4L +.L45: + b .L1 + ldh 24(%r3),%r28 +.L44: + ldh 24(%r3),%r20 + b .L1 + extrs %r20,31,16,%r28 +.L43: + b .L1 + ldb 24(%r3),%r28 +.L48: + b .L1 + extrs %r20,31,8,%r28 + .EXIT + .PROCEND +.Lfe1: + .size callback_receiver,.Lfe1-callback_receiver + .data + .align 4 +.LC0: + .word P%callback_receiver + .text + .align 4 +.globl callback_get_receiver + .type callback_get_receiver,@function +callback_get_receiver: + .PROC + .CALLINFO FRAME=64,NO_CALLS,SAVE_SP,ENTRY_GR=3 + .ENTRY + copy %r3,%r1 + copy %r30,%r3 + stwm %r1,64(%r30) + addil LT'.LC0,%r19 + stw %r19,-32(%r30) + ldw RT'.LC0(%r1),%r1 + ldw 0(%r1),%r28 + ldo 64(%r3),%r30 + bv %r0(%r2) + ldwm -64(%r30),%r3 + .EXIT + .PROCEND +.Lfe2: + .size callback_get_receiver,.Lfe2-callback_get_receiver + .ident "GCC: (GNU) 3.1" diff --git a/callback/vacall_r/vacall-hppa-macro.S b/callback/vacall_r/vacall-hppa-macro.S new file mode 100644 index 0000000..d5613be --- /dev/null +++ b/callback/vacall_r/vacall-hppa-macro.S @@ -0,0 +1,224 @@ +#include "asm-hppa.h" + .LEVEL 1.1 + IMPORT_MILLICODE($$dyncall) + TEXT1() + TEXT2() + .align 4 + DECLARE_FUNCTION(callback_receiver) +DEF(callback_receiver) + .PROC + .CALLINFO FRAME=192,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=5 + .ENTRY + copy %r3,%r1 + stw %r2,-20(%r30) + copy %r30,%r3 + stwm %r1,192(%r30) + ldo -32(%r3),%r2 + ldo 16(%r3),%r21 + ldo 88(%r3),%r20 + stw %r5,96(%r3) + sub %r21,%r2,%r31 + copy %r19,%r5 + stw %r4,100(%r3) + ldo 80(%r31),%r4 + ldo 64(%r31),%r31 + stw %r19,-32(%r30) + stw %r25,-40(%r3) + copy %r21,%r25 + ldo 80(%r3),%r21 + fstds %fr5,0(%r20) + ldo 76(%r3),%r20 + fstws %fr4L,0(%r20) + ldo 68(%r3),%r20 + stw %r0,36(%r3) + stw %r28,48(%r3) + fstds %fr7,0(%r21) + ldo 72(%r3),%r21 + fstws %fr5L,0(%r21) + ldo 64(%r3),%r21 + fstws %fr6L,0(%r20) + ldo -48(%r3),%r20 + stw %r26,-36(%r3) + fstws %fr7L,0(%r21) + ldw 0(%r29),%r22 + stw %r20,52(%r3) + stw %r31,56(%r3) + stw %r4,60(%r3) + stw %r24,-44(%r3) + stw %r23,-48(%r3) + stw %r0,16(%r3) + stw %r2,32(%r3) + stw %r0,40(%r3) + ldw 4(%r29),%r26 + .CALL ARGW0=GR + bl $$dyncall,%r31 + copy %r31,%r2 + ldw 40(%r3),%r21 + comib,= 0,%r21,L(1) + copy %r5,%r19 + comib,= 1,%r21,L(48) + ldb 24(%r3),%r20 + comib,=,n 2,%r21,L(48) + comib,=,n 3,%r21,L(43) + comib,=,n 4,%r21,L(44) + comib,=,n 5,%r21,L(45) + comib,=,n 6,%r21,L(41) + comib,=,n 7,%r21,L(41) + comib,=,n 8,%r21,L(41) + comib,= 9,%r21,L(41) + ldo -10(%r21),%r20 + comib,<<,n 1,%r20,L(22) + ldw 24(%r3),%r28 +DEF(L(40)) + ldw 28(%r3),%r29 +DEF(L(1)) + ldw -20(%r3),%r2 +DEF(L(49)) +DEF(L(50)) + ldw 96(%r3),%r5 + ldw 100(%r3),%r4 + ldo 64(%r3),%r30 + bv %r0(%r2) + ldwm -64(%r30),%r3 +DEF(L(22)) + comib,= 12,%r21,L(46) + ldo 24(%r3),%r20 + comib,=,n 13,%r21,L(47) + comib,=,n 14,%r21,L(1) + ldw 24(%r3),%r28 + comib,<> 15,%r21,L(49) + ldw -20(%r3),%r2 + ldw 16(%r3),%r20 + bb,>= %r20,30,L(49) + ldw 44(%r3),%r4 + ldo -1(%r4),%r20 + comib,<< 7,%r20,L(50) + ldw 36(%r3),%r20 + extru %r20,31,2,%r31 + copy %r20,%r2 + depi 0,31,2,%r2 + comib,<< 4,%r4,L(33) + addl %r31,%r4,%r5 + zdep %r31,28,29,%r31 + mtsar %r31 + zvdepi 2,32,%r20 + comib,<< 4,%r5,L(34) + ldo -1(%r20),%r31 + ldw 0(%r2),%r20 + zdep %r5,28,29,%r21 + ldo -1(%r21),%r21 + and %r20,%r31,%r20 + mtsar %r21 + vextrs %r20,32,%r20 + movb,tr %r20,%r28,L(49) + ldw -20(%r3),%r2 +DEF(L(34)) + ldw 0(%r2),%r20 + zdep %r5,28,29,%r22 + ldw 4(%r2),%r21 + and %r20,%r31,%r20 + ldo -33(%r22),%r2 + subi 63,%r22,%r22 + mtsar %r22 + zvdep %r20,32,%r20 + mtsar %r2 + vextrs %r21,32,%r21 +DEF(L(39)) + b L(1) + or %r21,%r20,%r28 +DEF(L(33)) + zdep %r31,28,29,%r31 + mtsar %r31 + zvdepi 2,32,%r20 + comib,<< 8,%r5,L(37) + ldo -1(%r20),%r4 + ldw 0(%r2),%r22 + zdep %r5,29,30,%r20 + and %r22,%r4,%r22 + ldw 4(%r2),%r31 + subi 47,%r20,%r4 + zdep %r5,28,29,%r20 + mtsar %r4 + ldo -33(%r20),%r20 + zvdep %r22,32,%r21 + zvdep %r21,32,%r21 + mtsar %r20 + vextrs %r31,32,%r31 + vextrs %r22,32,%r22 + movb,tr %r22,%r28,L(1) + or %r21,%r31,%r29 +DEF(L(37)) + ldw 0(%r2),%r21 + zdep %r5,28,29,%r31 + ldw 8(%r2),%r22 + and %r21,%r4,%r21 + ldo -65(%r31),%r4 + ldw 4(%r2),%r20 + mtsar %r4 + subi 95,%r31,%r2 + vextrs %r22,32,%r22 + mtsar %r2 + zvdep %r20,32,%r31 + zvdep %r21,32,%r21 + or %r31,%r22,%r29 + mtsar %r4 + b L(39) + vextrs %r20,32,%r20 +DEF(L(41)) + b L(1) + ldw 24(%r3),%r28 +DEF(L(47)) + ldw 24(%r3),%r28 + b L(40) + fldds 0(%r20),%fr4 +DEF(L(46)) + ldw 24(%r3),%r28 + b L(1) + fldws 0(%r20),%fr4L +DEF(L(45)) + b L(1) + ldh 24(%r3),%r28 +DEF(L(44)) + ldh 24(%r3),%r20 + b L(1) + extrs %r20,31,16,%r28 +DEF(L(43)) + b L(1) + ldb 24(%r3),%r28 +DEF(L(48)) + b L(1) + extrs %r20,31,8,%r28 + .EXIT + .PROCEND +DEF(L(fe1)) + FUNEND(callback_receiver) + .data + .align 4 +DEF(L(C0)) + .word P%callback_receiver + TEXT1() + TEXT2() + .align 4 +GLOBL(callback_get_receiver) + DECLARE_FUNCTION(callback_get_receiver) +DEF(callback_get_receiver) + .PROC + .CALLINFO FRAME=64,NO_CALLS,SAVE_SP,ENTRY_GR=3 + .ENTRY + copy %r3,%r1 + copy %r30,%r3 + stwm %r1,64(%r30) + addil LT!L(C0),%r19 + stw %r19,-32(%r30) + ldw RT!L(C0)(%r1),%r1 + ldw 0(%r1),%r28 + ldo 64(%r3),%r30 + bv %r0(%r2) + ldwm -64(%r30),%r3 + .EXIT + .PROCEND +DEF(L(fe2)) + FUNEND(callback_get_receiver) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/callback/vacall_r/vacall-hppa64-linux.s b/callback/vacall_r/vacall-hppa64-linux.s new file mode 100644 index 0000000..6426765 --- /dev/null +++ b/callback/vacall_r/vacall-hppa64-linux.s @@ -0,0 +1,251 @@ + .LEVEL 2.0w + .text + .align 8 +.globl callback_receiver + .type callback_receiver,@function +callback_receiver: + .PROC + .CALLINFO FRAME=384,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=9 + .ENTRY + copy %r3,%r1 + std %r2,-16(%r30) + copy %r30,%r3 + std,ma %r1,384(%r30) + std %r5,224(%r3) + copy %r27,%r5 + std %r9,192(%r3) + std %r8,200(%r3) + std %r7,208(%r3) + std %r6,216(%r3) + std %r4,232(%r3) + std %r26,-64(%r29) + std %r25,-56(%r29) + std %r19,-8(%r29) + std %r24,-48(%r29) + std %r23,-40(%r29) + std %r22,-32(%r29) + std %r21,-24(%r29) + std %r20,-16(%r29) +#APP + fstw %fr4R,88(%r3) + fstw %fr5R,92(%r3) + fstw %fr6R,96(%r3) + fstw %fr7R,100(%r3) + fstw %fr8R,104(%r3) + fstw %fr9R,108(%r3) + fstw %fr10R,112(%r3) + fstw %fr11R,116(%r3) +#NO_APP + fstd %fr10,168(%r3) + ldo -64(%r29),%r2 + ldo 16(%r3),%r25 + std %r0,48(%r3) + std %r2,40(%r3) + std %r29,80(%r3) + ldo -16(%r30),%r29 + fstd %fr11,176(%r3) + fstd %fr4,120(%r3) + fstd %fr5,128(%r3) + fstd %fr6,136(%r3) + fstd %fr7,144(%r3) + fstd %fr8,152(%r3) + fstd %fr9,160(%r3) + stw %r0,16(%r3) + stw %r0,56(%r3) + ldd 0(%r31),%r4 + ldd 8(%r31),%r26 + ldd 16(%r4),%r2 + ldd 24(%r4),%r27 + bve,l (%r2),%r2 + nop + ldw 56(%r3),%r2 + cmpib,= 0,%r2,.L1 + copy %r5,%r27 + cmpib,=,n 1,%r2,.L43 + cmpib,=,n 2,%r2,.L43 + cmpib,=,n 3,%r2,.L44 + cmpib,=,n 4,%r2,.L45 + cmpib,=,n 5,%r2,.L46 + cmpib,=,n 6,%r2,.L47 + cmpib,=,n 7,%r2,.L41 + cmpib,=,n 8,%r2,.L40 + cmpib,=,n 10,%r2,.L40 + cmpib,=,n 9,%r2,.L40 + cmpib,=,n 11,%r2,.L40 + cmpib,=,n 12,%r2,.L48 + cmpib,=,n 13,%r2,.L49 + cmpib,=,n 14,%r2,.L40 + cmpib,= 15,%r2,.L50 + ldw 16(%r3),%r2 +.L1: + ldd -16(%r3),%r2 + ldd 192(%r3),%r9 + ldd 200(%r3),%r8 + ldd 208(%r3),%r7 + ldd 216(%r3),%r6 + ldd 224(%r3),%r5 + ldd 232(%r3),%r4 + ldo 64(%r3),%r30 + bve (%r2) + ldd,mb -64(%r30),%r3 +.L50: + extrd,u %r2,53+1-1,1,%r2 + cmpib,= 0,%r2,.L1 + ldd 48(%r3),%r28 + ldd 48(%r3),%r2 + ldd 64(%r3),%r4 + extrd,u %r2,63,3,%r7 + copy %r2,%r1 + depdi 0,63,3,%r1 + cmpib,*<< 8,%r4,.L32 + add,l %r7,%r4,%r5 + cmpib,*<< 8,%r5,.L33 + depd,z %r5,60,61,%r2 + subi 64,%r2,%r2 + ldd 0(%r1),%r4 + extrd,s %r2,63,32,%r2 + mtsarcm %r2 + depd,z %r7,60,61,%r5 + depdi,z 1,%sar,64,%r2 + mtsarcm %r5 + sub %r0,%r2,%r2 + and %r4,%r2,%r4 + depd,z %r4,%sar,64,%r4 + b .L1 + copy %r4,%r28 +.L33: + subi 128,%r2,%r2 + depd,z %r7,60,61,%r4 + extrd,s %r2,63,32,%r2 + subi 64,%r4,%r6 + mtsarcm %r2 + subi 63,%r4,%r8 + depdi,z 1,%sar,64,%r2 + mtsar %r8 + ldd 8(%r1),%r5 + sub %r0,%r2,%r2 + extrd,s %r6,63,32,%r6 + ldd 0(%r1),%r4 + subi 63,%r6,%r6 + and %r5,%r2,%r5 + depd,z %r4,%sar,64,%r4 + mtsar %r6 + extrd,s %r5,%sar,64,%r5 +.L39: + b .L1 + or %r5,%r4,%r28 +.L32: + ldi 16,%r2 + cmpb,*<< %r2,%r5,.L36 + depd,z %r5,60,61,%r2 + subi 128,%r2,%r2 + depd,z %r7,61,62,%r4 + extrd,s %r2,63,32,%r2 + subi 32,%r4,%r4 + mtsarcm %r2 + extrd,s %r4,63,32,%r4 + depdi,z 1,%sar,64,%r2 + subi 63,%r4,%r8 + ldd 8(%r1),%r5 + sub %r0,%r2,%r2 + mtsar %r8 + ldd 0(%r1),%r6 + and %r5,%r2,%r5 + depd,z %r7,60,61,%r2 + extrd,s %r5,%sar,64,%r4 + subi 63,%r2,%r2 + extrd,s %r4,%sar,64,%r4 + mtsar %r2 + depd,z %r5,%sar,64,%r5 + depd,z %r6,%sar,64,%r6 + copy %r5,%r29 + b .L1 + or %r6,%r4,%r28 +.L36: + subi 192,%r2,%r2 + depd,z %r7,60,61,%r4 + extrd,s %r2,63,32,%r2 + subi 64,%r4,%r7 + mtsarcm %r2 + subi 63,%r4,%r9 + depdi,z 1,%sar,64,%r2 + mtsar %r9 + ldd 8(%r1),%r4 + sub %r0,%r2,%r2 + ldd 16(%r1),%r6 + extrd,s %r7,63,32,%r7 + subi 63,%r7,%r7 + and %r6,%r2,%r6 + ldd 0(%r1),%r5 + depd,z %r4,%sar,64,%r2 + mtsar %r7 + extrd,s %r6,%sar,64,%r6 + mtsar %r9 + depd,z %r5,%sar,64,%r5 + or %r2,%r6,%r29 + mtsar %r7 + b .L39 + extrd,s %r4,%sar,64,%r4 +.L40: + b .L1 + ldd 24(%r3),%r28 +.L49: + b .L40 + fldd 24(%r3),%fr4 +.L48: +#APP + fldw 24(%r3),%fr4R +#NO_APP +.L41: + ldw 24(%r3),%r2 +.L42: + b .L1 + copy %r2,%r28 +.L47: + ldw 24(%r3),%r2 + b .L1 + extrd,s %r2,63,32,%r28 +.L46: + b .L42 + ldh 24(%r3),%r2 +.L45: + ldh 24(%r3),%r2 + b .L1 + extrd,s %r2,63,16,%r28 +.L44: + b .L42 + ldb 24(%r3),%r2 +.L43: + ldb 24(%r3),%r2 + b .L1 + extrd,s %r2,63,8,%r28 + .EXIT + .PROCEND +.Lfe1: + .size callback_receiver,.Lfe1-callback_receiver + .data + .align 8 +.LC0: + .dword P%callback_receiver + .text + .align 8 +.globl callback_get_receiver + .type callback_get_receiver,@function +callback_get_receiver: + .PROC + .CALLINFO FRAME=128,NO_CALLS,SAVE_SP,ENTRY_GR=3 + .ENTRY + copy %r3,%r1 + copy %r30,%r3 + std,ma %r1,128(%r30) + addil LT'.LC0,%r27 + ldd RT'.LC0(%r1),%r1 + ldd 0(%r1),%r28 + ldo 64(%r3),%r30 + bve (%r2) + ldd,mb -64(%r30),%r3 + .EXIT + .PROCEND +.Lfe2: + .size callback_get_receiver,.Lfe2-callback_get_receiver + .ident "GCC: (GNU) 3.1" diff --git a/callback/vacall_r/vacall-hppa64-macro.S b/callback/vacall_r/vacall-hppa64-macro.S new file mode 100644 index 0000000..628dccf --- /dev/null +++ b/callback/vacall_r/vacall-hppa64-macro.S @@ -0,0 +1,252 @@ +#include "asm-hppa64.h" + .LEVEL 2.0w + TEXT1() + TEXT2() + .align 8 +GLOBL(callback_receiver) + DECLARE_FUNCTION(callback_receiver) +DEF(callback_receiver) + .PROC + .CALLINFO FRAME=384,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=9 + .ENTRY + copy %r3,%r1 + std %r2,-16(%r30) + copy %r30,%r3 + std,ma %r1,384(%r30) + std %r5,224(%r3) + copy %r27,%r5 + std %r9,192(%r3) + std %r8,200(%r3) + std %r7,208(%r3) + std %r6,216(%r3) + std %r4,232(%r3) + std %r26,-64(%r29) + std %r25,-56(%r29) + std %r19,-8(%r29) + std %r24,-48(%r29) + std %r23,-40(%r29) + std %r22,-32(%r29) + std %r21,-24(%r29) + std %r20,-16(%r29) + fstw %fr4R,88(%r3) + fstw %fr5R,92(%r3) + fstw %fr6R,96(%r3) + fstw %fr7R,100(%r3) + fstw %fr8R,104(%r3) + fstw %fr9R,108(%r3) + fstw %fr10R,112(%r3) + fstw %fr11R,116(%r3) + fstd %fr10,168(%r3) + ldo -64(%r29),%r2 + ldo 16(%r3),%r25 + std %r0,48(%r3) + std %r2,40(%r3) + std %r29,80(%r3) + ldo -16(%r30),%r29 + fstd %fr11,176(%r3) + fstd %fr4,120(%r3) + fstd %fr5,128(%r3) + fstd %fr6,136(%r3) + fstd %fr7,144(%r3) + fstd %fr8,152(%r3) + fstd %fr9,160(%r3) + stw %r0,16(%r3) + stw %r0,56(%r3) + ldd 0(%r31),%r4 + ldd 8(%r31),%r26 + ldd 16(%r4),%r2 + ldd 24(%r4),%r27 + bve,l (%r2),%r2 + nop + ldw 56(%r3),%r2 + cmpib,= 0,%r2,L(1) + copy %r5,%r27 + cmpib,=,n 1,%r2,L(43) + cmpib,=,n 2,%r2,L(43) + cmpib,=,n 3,%r2,L(44) + cmpib,=,n 4,%r2,L(45) + cmpib,=,n 5,%r2,L(46) + cmpib,=,n 6,%r2,L(47) + cmpib,=,n 7,%r2,L(41) + cmpib,=,n 8,%r2,L(40) + cmpib,=,n 10,%r2,L(40) + cmpib,=,n 9,%r2,L(40) + cmpib,=,n 11,%r2,L(40) + cmpib,=,n 12,%r2,L(48) + cmpib,=,n 13,%r2,L(49) + cmpib,=,n 14,%r2,L(40) + cmpib,= 15,%r2,L(50) + ldw 16(%r3),%r2 +DEF(L(1)) + ldd -16(%r3),%r2 + ldd 192(%r3),%r9 + ldd 200(%r3),%r8 + ldd 208(%r3),%r7 + ldd 216(%r3),%r6 + ldd 224(%r3),%r5 + ldd 232(%r3),%r4 + ldo 64(%r3),%r30 + bve (%r2) + ldd,mb -64(%r30),%r3 +DEF(L(50)) + extrd,u %r2,53+1-1,1,%r2 + cmpib,= 0,%r2,L(1) + ldd 48(%r3),%r28 + ldd 48(%r3),%r2 + ldd 64(%r3),%r4 + extrd,u %r2,63,3,%r7 + copy %r2,%r1 + depdi 0,63,3,%r1 + cmpib,*<< 8,%r4,L(32) + add,l %r7,%r4,%r5 + cmpib,*<< 8,%r5,L(33) + depd,z %r5,60,61,%r2 + subi 64,%r2,%r2 + ldd 0(%r1),%r4 + extrd,s %r2,63,32,%r2 + mtsarcm %r2 + depd,z %r7,60,61,%r5 + depdi,z 1,%sar,64,%r2 + mtsarcm %r5 + sub %r0,%r2,%r2 + and %r4,%r2,%r4 + depd,z %r4,%sar,64,%r4 + b L(1) + copy %r4,%r28 +DEF(L(33)) + subi 128,%r2,%r2 + depd,z %r7,60,61,%r4 + extrd,s %r2,63,32,%r2 + subi 64,%r4,%r6 + mtsarcm %r2 + subi 63,%r4,%r8 + depdi,z 1,%sar,64,%r2 + mtsar %r8 + ldd 8(%r1),%r5 + sub %r0,%r2,%r2 + extrd,s %r6,63,32,%r6 + ldd 0(%r1),%r4 + subi 63,%r6,%r6 + and %r5,%r2,%r5 + depd,z %r4,%sar,64,%r4 + mtsar %r6 + extrd,s %r5,%sar,64,%r5 +DEF(L(39)) + b L(1) + or %r5,%r4,%r28 +DEF(L(32)) + ldi 16,%r2 + cmpb,*<< %r2,%r5,L(36) + depd,z %r5,60,61,%r2 + subi 128,%r2,%r2 + depd,z %r7,61,62,%r4 + extrd,s %r2,63,32,%r2 + subi 32,%r4,%r4 + mtsarcm %r2 + extrd,s %r4,63,32,%r4 + depdi,z 1,%sar,64,%r2 + subi 63,%r4,%r8 + ldd 8(%r1),%r5 + sub %r0,%r2,%r2 + mtsar %r8 + ldd 0(%r1),%r6 + and %r5,%r2,%r5 + depd,z %r7,60,61,%r2 + extrd,s %r5,%sar,64,%r4 + subi 63,%r2,%r2 + extrd,s %r4,%sar,64,%r4 + mtsar %r2 + depd,z %r5,%sar,64,%r5 + depd,z %r6,%sar,64,%r6 + copy %r5,%r29 + b L(1) + or %r6,%r4,%r28 +DEF(L(36)) + subi 192,%r2,%r2 + depd,z %r7,60,61,%r4 + extrd,s %r2,63,32,%r2 + subi 64,%r4,%r7 + mtsarcm %r2 + subi 63,%r4,%r9 + depdi,z 1,%sar,64,%r2 + mtsar %r9 + ldd 8(%r1),%r4 + sub %r0,%r2,%r2 + ldd 16(%r1),%r6 + extrd,s %r7,63,32,%r7 + subi 63,%r7,%r7 + and %r6,%r2,%r6 + ldd 0(%r1),%r5 + depd,z %r4,%sar,64,%r2 + mtsar %r7 + extrd,s %r6,%sar,64,%r6 + mtsar %r9 + depd,z %r5,%sar,64,%r5 + or %r2,%r6,%r29 + mtsar %r7 + b L(39) + extrd,s %r4,%sar,64,%r4 +DEF(L(40)) + b L(1) + ldd 24(%r3),%r28 +DEF(L(49)) + b L(40) + fldd 24(%r3),%fr4 +DEF(L(48)) + fldw 24(%r3),%fr4R +DEF(L(41)) + ldw 24(%r3),%r2 +DEF(L(42)) + b L(1) + copy %r2,%r28 +DEF(L(47)) + ldw 24(%r3),%r2 + b L(1) + extrd,s %r2,63,32,%r28 +DEF(L(46)) + b L(42) + ldh 24(%r3),%r2 +DEF(L(45)) + ldh 24(%r3),%r2 + b L(1) + extrd,s %r2,63,16,%r28 +DEF(L(44)) + b L(42) + ldb 24(%r3),%r2 +DEF(L(43)) + ldb 24(%r3),%r2 + b L(1) + extrd,s %r2,63,8,%r28 + .EXIT + .PROCEND +DEF(L(fe1)) + FUNEND(callback_receiver) + .data + .align 8 +DEF(L(C0)) + .dword P%callback_receiver + TEXT1() + TEXT2() + .align 8 +GLOBL(callback_get_receiver) + DECLARE_FUNCTION(callback_get_receiver) +DEF(callback_get_receiver) + .PROC + .CALLINFO FRAME=128,NO_CALLS,SAVE_SP,ENTRY_GR=3 + .ENTRY + copy %r3,%r1 + copy %r30,%r3 + std,ma %r1,128(%r30) + addil LT!L(C0),%r27 + ldd RT!L(C0)(%r1),%r1 + ldd 0(%r1),%r28 + ldo 64(%r3),%r30 + bve (%r2) + ldd,mb -64(%r30),%r3 + .EXIT + .PROCEND +DEF(L(fe2)) + FUNEND(callback_get_receiver) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/callback/vacall_r/vacall-i386-linux.s b/callback/vacall_r/vacall-i386-linux.s new file mode 100644 index 0000000..42dac11 --- /dev/null +++ b/callback/vacall_r/vacall-i386-linux.s @@ -0,0 +1,172 @@ + .file "vacall-i386.c" + .text + .align 2 + .p2align 2,,3 + .type callback_receiver,@function +callback_receiver: + pushl %ebp + movl %esp, %ebp + pushl %edi + pushl %esi + leal 8(%ebp), %edx + subl $56, %esp + movl %edx, -40(%ebp) + leal -56(%ebp), %edx + movl $0, -56(%ebp) + movl $0, -36(%ebp) + movl $0, -32(%ebp) + movl %ebx, -24(%ebp) + pushl %edx + pushl 4(%ecx) + call *(%ecx) + movl -32(%ebp), %esi + addl $16, %esp + testl %esi, %esi + je .L43 + cmpl $1, %esi + je .L44 + cmpl $2, %esi + je .L44 + cmpl $3, %esi + je .L49 + cmpl $4, %esi + je .L50 + cmpl $5, %esi + je .L51 + cmpl $6, %esi + je .L48 + cmpl $7, %esi + je .L48 + cmpl $8, %esi + je .L48 + cmpl $9, %esi + je .L48 + leal -10(%esi), %edx + cmpl $1, %edx + ja .L22 + movl -48(%ebp), %eax +#APP + movl -44(%ebp),%edx +.L33: + .p2align 2,,3 +#NO_APP +.L43: + movl -56(%ebp), %esi +.L3: + andl $512, %esi + je .L1 +#APP + movl 0(%ebp),%ecx +#NO_APP + movl -40(%ebp), %esp +#APP + jmp *%ecx +#NO_APP +.L1: + leal -8(%ebp), %esp + popl %esi + popl %edi + leave + ret +.L22: + cmpl $12, %esi + je .L52 + cmpl $13, %esi + je .L53 + cmpl $14, %esi + je .L48 + cmpl $15, %esi + jne .L43 + movl -56(%ebp), %esi + testl $1024, %esi + movl %esi, %edi + je .L31 + movl -28(%ebp), %edx + cmpl $1, %edx + je .L54 + cmpl $2, %edx + je .L55 + cmpl $4, %edx + je .L56 + cmpl $8, %edx + je .L57 +.L31: + andl $16, %edi + movl -36(%ebp), %eax + jne .L3 +#APP + leal -8(%ebp), %esp + popl %esi + popl %edi + leave + ret $4 +#NO_APP + jmp .L3 +.L57: + movl -36(%ebp), %edx + movl (%edx), %eax +#APP + movl 4(%edx),%edx +#NO_APP + jmp .L3 +.L56: + movl -36(%ebp), %edx + movl (%edx), %eax + jmp .L3 +.L55: + movl -36(%ebp), %edx + movzwl (%edx), %eax + jmp .L3 +.L54: + movl -36(%ebp), %edx + movzbl (%edx), %eax + jmp .L3 + .p2align 2,,3 +.L48: + movl -48(%ebp), %eax + jmp .L43 +.L53: +#APP + fldl -48(%ebp) +#NO_APP + jmp .L43 +.L52: +#APP + flds -48(%ebp) +#NO_APP + jmp .L43 + .p2align 2,,3 +.L51: + movzwl -48(%ebp), %eax + jmp .L43 +.L50: + movswl -48(%ebp),%eax + jmp .L43 +.L49: + movzbl -48(%ebp), %eax + jmp .L43 + .p2align 2,,3 +.L44: + movsbl -48(%ebp),%eax + jmp .L43 +.Lfe1: + .size callback_receiver,.Lfe1-callback_receiver + .align 2 + .p2align 2,,3 +.globl callback_get_receiver + .type callback_get_receiver,@function +callback_get_receiver: + pushl %ebp + movl %esp, %ebp + pushl %ebx + call .L59 +.L59: + popl %ebx + addl $_GLOBAL_OFFSET_TABLE_+[.-.L59], %ebx + leal callback_receiver@GOTOFF(%ebx), %eax + movl (%esp), %ebx + leave + ret +.Lfe2: + .size callback_get_receiver,.Lfe2-callback_get_receiver + .ident "GCC: (GNU) 3.1" diff --git a/callback/vacall_r/vacall-i386-macro.S b/callback/vacall_r/vacall-i386-macro.S new file mode 100644 index 0000000..ecc611b --- /dev/null +++ b/callback/vacall_r/vacall-i386-macro.S @@ -0,0 +1,167 @@ +#include "asm-i386.h" + TEXT() + ALIGN(2) + P2ALIGN(2,3) + DECLARE_FUNCTION(callback_receiver) +FUNBEGIN(callback_receiver) + INSN1(push,l ,R(ebp)) + INSN2(mov,l ,R(esp), R(ebp)) + INSN1(push,l ,R(edi)) + INSN1(push,l ,R(esi)) + INSN2(lea,l ,X4 MEM_DISP(ebp,8), R(edx)) + INSN2(sub,l ,NUM(56), R(esp)) + INSN2(mov,l ,R(edx),X4 MEM_DISP(ebp,-40)) + INSN2(lea,l ,X4 MEM_DISP(ebp,-56), R(edx)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-56)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-36)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-32)) + INSN2(mov,l ,R(ebx),X4 MEM_DISP(ebp,-24)) + INSN1(push,l ,R(edx)) + INSN1(push,l ,X4 MEM_DISP(ecx,4)) + INSN1(call,_ ,INDIR(X4 MEM(ecx))) + INSN2(mov,l ,X4 MEM_DISP(ebp,-32), R(esi)) + INSN2(add,l ,NUM(16), R(esp)) + INSN2(test,l ,R(esi), R(esi)) + INSN1(je,_ ,L(43)) + INSN2(cmp,l ,NUM(1), R(esi)) + INSN1(je,_ ,L(44)) + INSN2(cmp,l ,NUM(2), R(esi)) + INSN1(je,_ ,L(44)) + INSN2(cmp,l ,NUM(3), R(esi)) + INSN1(je,_ ,L(49)) + INSN2(cmp,l ,NUM(4), R(esi)) + INSN1(je,_ ,L(50)) + INSN2(cmp,l ,NUM(5), R(esi)) + INSN1(je,_ ,L(51)) + INSN2(cmp,l ,NUM(6), R(esi)) + INSN1(je,_ ,L(48)) + INSN2(cmp,l ,NUM(7), R(esi)) + INSN1(je,_ ,L(48)) + INSN2(cmp,l ,NUM(8), R(esi)) + INSN1(je,_ ,L(48)) + INSN2(cmp,l ,NUM(9), R(esi)) + INSN1(je,_ ,L(48)) + INSN2(lea,l ,X4 MEM_DISP(esi,-10), R(edx)) + INSN2(cmp,l ,NUM(1), R(edx)) + INSN1(ja,_ ,L(22)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-48), R(eax)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-44),R(edx)) +L(33): + P2ALIGN(2,3) +L(43): + INSN2(mov,l ,X4 MEM_DISP(ebp,-56), R(esi)) +L(3): + INSN2(and,l ,NUM(512), R(esi)) + INSN1(je,_ ,L(1)) + INSN2(mov,l ,X4 MEM_DISP(ebp,0),R(ecx)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-40), R(esp)) + INSN1(jmp,_ ,INDIR(R(ecx))) +L(1): + INSN2(lea,l ,X4 MEM_DISP(ebp,-8), R(esp)) + INSN1(pop,l ,R(esi)) + INSN1(pop,l ,R(edi)) + leave + ret +L(22): + INSN2(cmp,l ,NUM(12), R(esi)) + INSN1(je,_ ,L(52)) + INSN2(cmp,l ,NUM(13), R(esi)) + INSN1(je,_ ,L(53)) + INSN2(cmp,l ,NUM(14), R(esi)) + INSN1(je,_ ,L(48)) + INSN2(cmp,l ,NUM(15), R(esi)) + INSN1(jne,_ ,L(43)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-56), R(esi)) + INSN2(test,l ,NUM(1024), R(esi)) + INSN2(mov,l ,R(esi), R(edi)) + INSN1(je,_ ,L(31)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-28), R(edx)) + INSN2(cmp,l ,NUM(1), R(edx)) + INSN1(je,_ ,L(54)) + INSN2(cmp,l ,NUM(2), R(edx)) + INSN1(je,_ ,L(55)) + INSN2(cmp,l ,NUM(4), R(edx)) + INSN1(je,_ ,L(56)) + INSN2(cmp,l ,NUM(8), R(edx)) + INSN1(je,_ ,L(57)) +L(31): + INSN2(and,l ,NUM(16), R(edi)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(eax)) + INSN1(jne,_ ,L(3)) + INSN2(lea,l ,X4 MEM_DISP(ebp,-8), R(esp)) + INSN1(pop,l ,R(esi)) + INSN1(pop,l ,R(edi)) + leave + ret NUM(4) + INSN1(jmp,_ ,L(3)) +L(57): + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) + INSN2(mov,l ,X4 MEM(edx), R(eax)) + INSN2(mov,l ,X4 MEM_DISP(edx,4),R(edx)) + INSN1(jmp,_ ,L(3)) +L(56): + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) + INSN2(mov,l ,X4 MEM(edx), R(eax)) + INSN1(jmp,_ ,L(3)) +L(55): + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) + INSN2MOVXL(movz,w,X2 MEM(edx), R(eax)) + INSN1(jmp,_ ,L(3)) +L(54): + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) + INSN2MOVXL(movz,b,X1 MEM(edx), R(eax)) + INSN1(jmp,_ ,L(3)) + P2ALIGN(2,3) +L(48): + INSN2(mov,l ,X4 MEM_DISP(ebp,-48), R(eax)) + INSN1(jmp,_ ,L(43)) +L(53): + INSN1(fld,l ,X8 MEM_DISP(ebp,-48)) + INSN1(jmp,_ ,L(43)) +L(52): + INSN1(fld,s ,X4 MEM_DISP(ebp,-48)) + INSN1(jmp,_ ,L(43)) + P2ALIGN(2,3) +L(51): + INSN2MOVXL(movz,w,X2 MEM_DISP(ebp,-48), R(eax)) + INSN1(jmp,_ ,L(43)) +L(50): + INSN2MOVXL(movs,w,X2 MEM_DISP(ebp,-48),R(eax)) + INSN1(jmp,_ ,L(43)) +L(49): + INSN2MOVXL(movz,b,X1 MEM_DISP(ebp,-48), R(eax)) + INSN1(jmp,_ ,L(43)) + P2ALIGN(2,3) +L(44): + INSN2MOVXL(movs,b,X1 MEM_DISP(ebp,-48),R(eax)) + INSN1(jmp,_ ,L(43)) +L(fe1): + FUNEND(callback_receiver,L(fe1)-callback_receiver) + ALIGN(2) + P2ALIGN(2,3) +GLOBL(C(callback_get_receiver)) + DECLARE_FUNCTION(callback_get_receiver) +FUNBEGIN(callback_get_receiver) + INSN1(push,l ,R(ebp)) + INSN2(mov,l ,R(esp), R(ebp)) + INSN1(push,l ,R(ebx)) + INSN1(call,_ ,L(59)) +L(59): + INSN1(pop,l ,R(ebx)) +#ifdef __ELF__ + INSN2(add,l ,NUM()_GLOBAL_OFFSET_TABLE_+[.-L(59)],R(ebx)) +#endif +#ifdef __ELF__ + INSN2(lea,l ,callback_receiver@MEM_DISP(ebx,GOTOFF), R(eax)) +#else + INSN2(lea,l ,C(callback_receiver)-L(59)MEM(ebx), R(eax)) +#endif + INSN2(mov,l ,X4 MEM(esp), R(ebx)) + leave + ret +L(fe2): + FUNEND(callback_get_receiver,L(fe2)-callback_get_receiver) + +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/callback/vacall_r/vacall-i386-msvc.c b/callback/vacall_r/vacall-i386-msvc.c new file mode 100644 index 0000000..339a063 --- /dev/null +++ b/callback/vacall_r/vacall-i386-msvc.c @@ -0,0 +1,166 @@ +#ifdef _MSC_VER +#include "vacall_r.h" +#endif +#include "asm-i386.h" + TEXT() + ALIGN(2) + P2ALIGN(2,3) + DECLARE_FUNCTION(callback_receiver) +FUNBEGIN(callback_receiver) + INSN1(push,l ,R(ebp)) + INSN2(mov,l ,R(esp), R(ebp)) + INSN1(push,l ,R(edi)) + INSN1(push,l ,R(esi)) + INSN2(lea,l ,X4 MEM_DISP(ebp,8), R(edx)) + INSN2(sub,l ,NUM(56), R(esp)) + INSN2(mov,l ,R(edx),X4 MEM_DISP(ebp,-40)) + INSN2(lea,l ,X4 MEM_DISP(ebp,-56), R(edx)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-56)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-36)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-32)) + INSN2(mov,l ,R(ebx),X4 MEM_DISP(ebp,-24)) + INSN1(push,l ,R(edx)) + INSN1(push,l ,X4 MEM_DISP(ecx,4)) + INSN1(call,_ ,INDIR(X4 MEM(ecx))) + INSN2(mov,l ,X4 MEM_DISP(ebp,-32), R(esi)) + INSN2(add,l ,NUM(16), R(esp)) + INSN2(test,l ,R(esi), R(esi)) + INSN1(je,_ ,L(43)) + INSN2(cmp,l ,NUM(1), R(esi)) + INSN1(je,_ ,L(44)) + INSN2(cmp,l ,NUM(2), R(esi)) + INSN1(je,_ ,L(44)) + INSN2(cmp,l ,NUM(3), R(esi)) + INSN1(je,_ ,L(49)) + INSN2(cmp,l ,NUM(4), R(esi)) + INSN1(je,_ ,L(50)) + INSN2(cmp,l ,NUM(5), R(esi)) + INSN1(je,_ ,L(51)) + INSN2(cmp,l ,NUM(6), R(esi)) + INSN1(je,_ ,L(48)) + INSN2(cmp,l ,NUM(7), R(esi)) + INSN1(je,_ ,L(48)) + INSN2(cmp,l ,NUM(8), R(esi)) + INSN1(je,_ ,L(48)) + INSN2(cmp,l ,NUM(9), R(esi)) + INSN1(je,_ ,L(48)) + INSN2(lea,l ,X4 MEM_DISP(esi,-10), R(edx)) + INSN2(cmp,l ,NUM(1), R(edx)) + INSN1(ja,_ ,L(22)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-48), R(eax)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-44),R(edx)) +L(33): + P2ALIGN(2,3) +L(43): + INSN2(mov,l ,X4 MEM_DISP(ebp,-56), R(esi)) +L(3): + INSN2(and,l ,NUM(512), R(esi)) + INSN1(je,_ ,L(1)) + INSN2(mov,l ,X4 MEM_DISP(ebp,0),R(ecx)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-40), R(esp)) + INSN1(jmp,_ ,INDIR(R(ecx))) +L(1): + INSN2(lea,l ,X4 MEM_DISP(ebp,-8), R(esp)) + INSN1(pop,l ,R(esi)) + INSN1(pop,l ,R(edi)) + leave + ret +L(22): + INSN2(cmp,l ,NUM(12), R(esi)) + INSN1(je,_ ,L(52)) + INSN2(cmp,l ,NUM(13), R(esi)) + INSN1(je,_ ,L(53)) + INSN2(cmp,l ,NUM(14), R(esi)) + INSN1(je,_ ,L(48)) + INSN2(cmp,l ,NUM(15), R(esi)) + INSN1(jne,_ ,L(43)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-56), R(esi)) + INSN2(test,l ,NUM(1024), R(esi)) + INSN2(mov,l ,R(esi), R(edi)) + INSN1(je,_ ,L(31)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-28), R(edx)) + INSN2(cmp,l ,NUM(1), R(edx)) + INSN1(je,_ ,L(54)) + INSN2(cmp,l ,NUM(2), R(edx)) + INSN1(je,_ ,L(55)) + INSN2(cmp,l ,NUM(4), R(edx)) + INSN1(je,_ ,L(56)) + INSN2(cmp,l ,NUM(8), R(edx)) + INSN1(je,_ ,L(57)) +L(31): + INSN2(and,l ,NUM(16), R(edi)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(eax)) + INSN1(jne,_ ,L(3)) + INSN2(lea,l ,X4 MEM_DISP(ebp,-8), R(esp)) + INSN1(pop,l ,R(esi)) + INSN1(pop,l ,R(edi)) + leave + ret NUM(4) + INSN1(jmp,_ ,L(3)) +L(57): + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) + INSN2(mov,l ,X4 MEM(edx), R(eax)) + INSN2(mov,l ,X4 MEM_DISP(edx,4),R(edx)) + INSN1(jmp,_ ,L(3)) +L(56): + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) + INSN2(mov,l ,X4 MEM(edx), R(eax)) + INSN1(jmp,_ ,L(3)) +L(55): + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) + INSN2MOVXL(movz,w,X2 MEM(edx), R(eax)) + INSN1(jmp,_ ,L(3)) +L(54): + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) + INSN2MOVXL(movz,b,X1 MEM(edx), R(eax)) + INSN1(jmp,_ ,L(3)) + P2ALIGN(2,3) +L(48): + INSN2(mov,l ,X4 MEM_DISP(ebp,-48), R(eax)) + INSN1(jmp,_ ,L(43)) +L(53): + INSN1(fld,l ,X8 MEM_DISP(ebp,-48)) + INSN1(jmp,_ ,L(43)) +L(52): + INSN1(fld,s ,X4 MEM_DISP(ebp,-48)) + INSN1(jmp,_ ,L(43)) + P2ALIGN(2,3) +L(51): + INSN2MOVXL(movz,w,X2 MEM_DISP(ebp,-48), R(eax)) + INSN1(jmp,_ ,L(43)) +L(50): + INSN2MOVXL(movs,w,X2 MEM_DISP(ebp,-48),R(eax)) + INSN1(jmp,_ ,L(43)) +L(49): + INSN2MOVXL(movz,b,X1 MEM_DISP(ebp,-48), R(eax)) + INSN1(jmp,_ ,L(43)) + P2ALIGN(2,3) +L(44): + INSN2MOVXL(movs,b,X1 MEM_DISP(ebp,-48),R(eax)) + INSN1(jmp,_ ,L(43)) +L(fe1): + FUNEND(callback_receiver,L(fe1)-callback_receiver) +/* Implementation of callback_get_receiver */ + +/* + * Copyright 2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +__vacall_r_t +callback_get_receiver (void) +{ + return (__vacall_r_t)(void*)&callback_receiver; +} diff --git a/callback/vacall_r/vacall-ia64-linux.s b/callback/vacall_r/vacall-ia64-linux.s new file mode 100644 index 0000000..30457bf --- /dev/null +++ b/callback/vacall_r/vacall-ia64-linux.s @@ -0,0 +1,851 @@ + .file "vacall-ia64.c" + .pred.safe_across_calls p1-p5,p16-p63 + .text + .align 16 + .proc callback_receiver# +callback_receiver: + .prologue 14, 42 + .spill 48 + .mmb + .save ar.pfs, r43 + alloc r43 = ar.pfs, 8, 6, 2, 0 + .vframe r44 + mov r44 = r12 + nop 0 + .mmi + adds r12 = -208, r12 + adds r18 = 8, r15 + mov r45 = r1 + ;; + .mmi + adds r16 = -48, r44 + adds r14 = -136, r44 + adds r17 = -48, r44 + .mmi + adds r40 = -152, r44 + adds r47 = -192, r44 + adds r41 = -160, r44 + ;; + .mmb + st8 [r14] = r8 + adds r14 = -32, r44 + nop 0 + .mfi + st8 [r16] = r32, 8 + nop 0 + .save rp, r42 + mov r42 = b0 + .body + ;; + .mfi + st8 [r14] = r34 + nop 0 + adds r14 = -24, r44 + .mmb + st8 [r16] = r33 + ld8 r16 = [r15] + nop 0 + ;; + .mmi + nop 0 + st8 [r14] = r35 + adds r14 = -16, r44 + .mmi + st8 [r41] = r0 + ;; + st8 [r14] = r36 + adds r14 = -8, r44 + .mmb + st4 [r40] = r0 + ld8 r46 = [r18] + nop 0 + ;; + .mmi + nop 0 + st8 [r14] = r37 + adds r14 = 8, r44 + .mmi + st8 [r44] = r38 + ;; + st8 [r14] = r39 + adds r14 = -112, r44 + .mmi + st4 [r47] = r0 + ;; + stfd [r14] = f8 + nop 0 + .mmi + adds r14 = -104, r44 + ;; + stfd [r14] = f9 + adds r14 = -96, r44 + ;; + .mfi + stfd [r14] = f10 + nop 0 + adds r14 = -88, r44 + .mmi + nop 0 + ;; + stfd [r14] = f11 + nop 0 + .mmi + adds r14 = -80, r44 + ;; + stfd [r14] = f12 + adds r14 = -72, r44 + ;; + .mfi + stfd [r14] = f13 + nop 0 + adds r14 = -64, r44 + .mmi + nop 0 + ;; + stfd [r14] = f14 + nop 0 + .mmi + adds r14 = -56, r44 + ;; + stfd [r14] = f15 + adds r14 = -168, r44 + ;; + .mii + st8 [r14] = r17 + adds r14 = -128, r44 + ;; + nop 0 + .mii + st8 [r14] = r17 + adds r14 = -120, r44 + ;; + nop 0 + .mmb + st4 [r14] = r0 + ld8 r14 = [r16], 8 + nop 0 + ;; + .mib + nop 0 + mov b6 = r14 + nop 0 + .mbb + ld8 r1 = [r16] + nop 0 + br.call.sptk.many b0 = b6 + ;; + .mmb + mov r1 = r45 + ld4 r40 = [r40] + nop 0 + ;; + .mfb + cmp4.eq p6, p7 = 0, r40 + nop 0 + (p6) br.cond.dpnt .L49 + ;; + .mfb + cmp4.ne p6, p7 = 1, r40 + nop 0 + (p7) br.cond.dpnt .L50 + ;; + .mfb + cmp4.ne p6, p7 = 2, r40 + nop 0 + (p7) br.cond.dpnt .L50 + ;; + .mii + nop 0 + cmp4.ne p6, p7 = 3, r40 + ;; + (p7) adds r14 = -184, r44 + ;; + .mfb + (p7) ld1 r8 = [r14] + nop 0 + (p7) br.cond.dpnt .L49 + .mii + nop 0 + cmp4.ne p6, p7 = 4, r40 + ;; + nop 0 + .mmi + (p7) adds r14 = -184, r44 + ;; + (p7) ld2 r14 = [r14] + nop 0 + ;; + .mib + nop 0 + (p7) sxt2 r8 = r14 + (p7) br.cond.dpnt .L49 + .mii + nop 0 + cmp4.ne p6, p7 = 5, r40 + ;; + (p7) adds r14 = -184, r44 + ;; + .mfb + (p7) ld2 r8 = [r14] + nop 0 + (p7) br.cond.dpnt .L49 + .mii + nop 0 + cmp4.ne p6, p7 = 6, r40 + ;; + nop 0 + .mmi + (p7) adds r14 = -184, r44 + ;; + (p7) ld4 r14 = [r14] + nop 0 + ;; + .mib + nop 0 + (p7) sxt4 r8 = r14 + (p7) br.cond.dpnt .L49 + .mii + nop 0 + cmp4.ne p6, p7 = 7, r40 + ;; + (p7) adds r14 = -184, r44 + ;; + .mfb + (p7) ld4 r8 = [r14] + nop 0 + (p7) br.cond.dpnt .L49 + .mfb + cmp4.ne p6, p7 = 8, r40 + nop 0 + (p7) br.cond.dpnt .L54 + ;; + .mfb + cmp4.ne p6, p7 = 9, r40 + nop 0 + (p7) br.cond.dpnt .L54 + ;; + .mfb + cmp4.ne p6, p7 = 10, r40 + nop 0 + (p7) br.cond.dpnt .L54 + ;; + .mfb + cmp4.ne p6, p7 = 11, r40 + nop 0 + (p7) br.cond.dpnt .L54 + ;; + .mii + nop 0 + cmp4.ne p6, p7 = 12, r40 + ;; + (p7) adds r14 = -184, r44 + ;; + .mfb + (p7) ldfs f8 = [r14] + nop 0 + (p7) br.cond.dpnt .L49 + .mii + nop 0 + cmp4.ne p6, p7 = 13, r40 + ;; + (p7) adds r14 = -184, r44 + ;; + .mfb + (p7) ldfd f8 = [r14] + nop 0 + (p7) br.cond.dpnt .L49 + .mfb + cmp4.ne p6, p7 = 14, r40 + nop 0 + (p7) br.cond.dpnt .L54 + ;; + .mib + nop 0 + cmp4.ne p6, p7 = 15, r40 + (p6) br.cond.dptk .L49 + .mii + nop 0 + adds r16 = -192, r44 + ;; + nop 0 + .mmi + ld4 r14 = [r16] + ;; + nop 0 + tbit.z p6, p7 = r14, 10 + .mfb + adds r14 = -144, r44 + nop 0 + (p6) br.cond.dpnt .L49 + ;; + .mmi + ld8 r22 = [r14] + ;; + adds r14 = -1, r22 + nop 0 + ;; + .mib + nop 0 + cmp.ltu p6, p7 = 31, r14 + (p6) br.cond.dpnt .L49 + .mmi + ld8 r14 = [r41] + ;; + and r21 = 7, r14 + and r24 = -8, r14 + .mii + nop 0 + cmp.ltu p6, p7 = 8, r22 + ;; + nop 0 + .mfb + add r14 = r22, r21 + nop 0 + (p6) br.cond.dptk .L35 + ;; + .mib + nop 0 + cmp.ltu p6, p7 = 8, r14 + (p6) br.cond.dptk .L37 + .mfi + shladd r16 = r14, 3, r0 + nop 0 + addl r14 = 2, r0 + .mii + ld8 r17 = [r24] + shladd r18 = r21, 3, r0 + ;; + adds r16 = -1, r16 + ;; + .mii + nop 0 + sxt4 r16 = r16 + ;; + shl r14 = r14, r16 + ;; + .mmi + adds r14 = -1, r14 + ;; + and r14 = r17, r14 + nop 0 + .mmi + nop 0 + ;; + nop 0 + shr r8 = r14, r18 +.L49: + .mii + nop 0 + mov ar.pfs = r43 + mov b0 = r42 + .mib + nop 0 + .label_state 1 + .restore sp + mov r12 = r44 + br.ret.sptk.many b0 +.L50: + .body + .copy_state 1 + .mii + nop 0 + adds r14 = -184, r44 + ;; + nop 0 + .mii + ld1 r14 = [r14] + nop 0 + ;; + sxt1 r8 = r14 + .mii + nop 0 + mov ar.pfs = r43 + mov b0 = r42 + .mib + nop 0 + .label_state 2 + .restore sp + mov r12 = r44 + br.ret.sptk.many b0 +.L54: + .body + .copy_state 2 + .mmb + nop 0 + adds r14 = -184, r44 + nop 0 + ;; + .mii + ld8 r8 = [r14] + mov ar.pfs = r43 + mov b0 = r42 + .mib + nop 0 + .label_state 3 + .restore sp + mov r12 = r44 + br.ret.sptk.many b0 +.L35: + .body + .copy_state 3 + .mib + nop 0 + cmp.ltu p6, p7 = 16, r22 + (p6) br.cond.dptk .L39 + ;; + .mib + nop 0 + cmp.ltu p6, p7 = 16, r14 + (p6) br.cond.dptk .L41 + .mmi + shladd r16 = r14, 3, r0 + adds r14 = 8, r24 + shladd r17 = r21, 2, r0 + .mmb + shladd r19 = r21, 3, r0 + ld8 r18 = [r24] + nop 0 + ;; + .mfi + ld8 r20 = [r14] + nop 0 + addl r14 = 2, r0 + .mii + adds r16 = -65, r16 + sub r17 = 32, r17 + ;; + sxt4 r16 = r16 + .mii + nop 0 + sxt4 r17 = r17 + shr r18 = r18, r19 + ;; + .mii + nop 0 + shl r14 = r14, r16 + ;; + adds r14 = -1, r14 + ;; + .mii + nop 0 + and r14 = r20, r14 + ;; + shl r16 = r14, r17 + .mii + nop 0 + shr r9 = r14, r19 + ;; + shl r16 = r16, r17 + ;; + .mii + or r8 = r16, r18 + mov ar.pfs = r43 + mov b0 = r42 + .mib + nop 0 + .label_state 4 + .restore sp + mov r12 = r44 + br.ret.sptk.many b0 +.L37: + .body + .copy_state 4 + .mfi + shladd r16 = r14, 3, r0 + nop 0 + addl r14 = 2, r0 + .mii + ld8 r18 = [r24], 8 + shladd r19 = r21, 3, r0 + ;; + adds r16 = -65, r16 + .mii + ld8 r20 = [r24] + sub r17 = 64, r19 + ;; + sxt4 r16 = r16 + .mii + nop 0 + sxt4 r17 = r17 + ;; + shl r14 = r14, r16 + .mii + nop 0 + shr r18 = r18, r19 + ;; + adds r14 = -1, r14 + ;; + .mii + nop 0 + and r14 = r20, r14 + ;; + shl r14 = r14, r17 + ;; + .mii + or r8 = r14, r18 + mov ar.pfs = r43 + mov b0 = r42 + .mib + nop 0 + .label_state 5 + .restore sp + mov r12 = r44 + br.ret.sptk.many b0 +.L39: + .body + .copy_state 5 + .mib + nop 0 + cmp.ltu p6, p7 = 24, r22 + (p6) br.cond.dptk .L43 + ;; + .mib + nop 0 + cmp.ltu p6, p7 = 24, r14 + (p6) br.cond.dptk .L45 + .mmi + shladd r16 = r14, 3, r0 + adds r14 = 8, r24 + shladd r17 = r21, 2, r0 + .mmb + shladd r20 = r21, 3, r0 + ld8 r19 = [r24], 16 + nop 0 + ;; + .mmi + ld8 r18 = [r14] + addl r14 = 2, r0 + adds r16 = -65, r16 + .mmb + sub r17 = 32, r17 + ld8 r21 = [r24] + nop 0 + ;; + .mii + nop 0 + sxt4 r16 = r16 + sxt4 r17 = r17 + .mii + nop 0 + shr r19 = r19, r20 + ;; + shl r14 = r14, r16 + .mii + nop 0 + shl r16 = r18, r17 + shr r18 = r18, r20 + ;; + .mii + nop 0 + shl r16 = r16, r17 + adds r14 = -1, r14 + ;; + .mii + and r14 = r21, r14 + or r8 = r16, r19 + ;; + shl r16 = r14, r17 + .mii + nop 0 + shr r10 = r14, r20 + ;; + shl r16 = r16, r17 + ;; + .mii + or r9 = r16, r18 + mov ar.pfs = r43 + mov b0 = r42 + .mib + nop 0 + .label_state 6 + .restore sp + mov r12 = r44 + br.ret.sptk.many b0 +.L41: + .body + .copy_state 6 + .mfi + shladd r17 = r14, 3, r0 + nop 0 + adds r14 = 8, r24 + .mfi + ld8 r19 = [r24], 16 + nop 0 + shladd r16 = r21, 3, r0 + ;; + .mmi + ld8 r18 = [r14] + addl r14 = 2, r0 + adds r17 = -129, r17 + .mmi + ld8 r21 = [r24] + mov r20 = r16 + sub r16 = 64, r16 + ;; + .mii + nop 0 + sxt4 r17 = r17 + sxt4 r16 = r16 + ;; + .mii + nop 0 + shl r14 = r14, r17 + shr r19 = r19, r20 + .mii + nop 0 + shl r17 = r18, r16 + shr r18 = r18, r20 + ;; + .mmi + adds r14 = -1, r14 + ;; + and r14 = r21, r14 + or r8 = r17, r19 + ;; + .mib + nop 0 + shl r14 = r14, r16 + nop 0 + ;; + .mii + or r9 = r14, r18 + mov ar.pfs = r43 + mov b0 = r42 + .mib + nop 0 + .label_state 7 + .restore sp + mov r12 = r44 + br.ret.sptk.many b0 +.L45: + .body + .copy_state 7 + .mmi + shladd r17 = r14, 3, r0 + adds r14 = 24, r24 + shladd r16 = r21, 3, r0 + .mmi + adds r19 = 8, r24 + ld8 r21 = [r24] + adds r20 = 16, r24 + ;; + .mmi + ld8 r23 = [r14] + addl r14 = 2, r0 + adds r17 = -129, r17 + .mmi + mov r18 = r16 + ld8 r19 = [r19] + sub r16 = 64, r16 + ;; + .mib + nop 0 + sxt4 r17 = r17 + nop 0 + .mii + ld8 r20 = [r20] + sxt4 r16 = r16 + ;; + shl r14 = r14, r17 + .mii + nop 0 + shr r22 = r20, r18 + shl r17 = r19, r16 + .mii + nop 0 + shr r21 = r21, r18 + shr r19 = r19, r18 + .mii + nop 0 + shl r20 = r20, r16 + ;; + nop 0 + .mmi + adds r14 = -1, r14 + ;; + and r14 = r23, r14 + or r8 = r17, r21 + .mii + nop 0 + or r9 = r20, r19 + ;; + shl r14 = r14, r16 + ;; + .mii + or r10 = r14, r22 + mov ar.pfs = r43 + mov b0 = r42 + .mib + nop 0 + .label_state 8 + .restore sp + mov r12 = r44 + br.ret.sptk.many b0 +.L43: + .body + .copy_state 8 + .mib + nop 0 + cmp.ltu p6, p7 = 32, r14 + (p6) br.cond.dptk .L47 + .mmi + adds r16 = 24, r24 + shladd r14 = r14, 3, r0 + adds r18 = 8, r24 + .mmi + shladd r17 = r21, 2, r0 + adds r19 = 16, r24 + shladd r21 = r21, 3, r0 + ;; + .mmi + nop 0 + ld8 r23 = [r16] + addl r16 = 2, r0 + .mmi + adds r14 = -65, r14 + ld8 r20 = [r18] + sub r17 = 32, r17 + ;; + .mii + nop 0 + sxt4 r14 = r14 + sxt4 r17 = r17 + .mmb + ld8 r22 = [r19] + ld8 r19 = [r24] + nop 0 + ;; + .mii + nop 0 + shl r16 = r16, r14 + shl r14 = r20, r17 + .mii + nop 0 + shr r19 = r19, r21 + shl r18 = r22, r17 + ;; + .mii + nop 0 + shl r14 = r14, r17 + shr r20 = r20, r21 + .mii + adds r16 = -1, r16 + shl r18 = r18, r17 + shr r22 = r22, r21 + ;; + .mmi + nop 0 + and r16 = r23, r16 + or r8 = r14, r19 + .mmi + or r9 = r18, r20 + ;; + nop 0 + shl r14 = r16, r17 + .mii + nop 0 + shr r11 = r16, r21 + ;; + shl r14 = r14, r17 + ;; + .mii + or r10 = r14, r22 + mov ar.pfs = r43 + mov b0 = r42 + .mib + nop 0 + .label_state 9 + .restore sp + mov r12 = r44 + br.ret.sptk.many b0 +.L47: + .body + .copy_state 9 + .mmb + shladd r17 = r14, 3, r0 + adds r14 = 32, r24 + nop 0 + .mmi + adds r19 = 8, r24 + adds r20 = 16, r24 + shladd r16 = r21, 3, r0 + ;; + .mfi + ld8 r23 = [r14] + nop 0 + adds r14 = 24, r24 + .mmi + ld8 r21 = [r19] + adds r17 = -129, r17 + mov r18 = r16 + .mfi + ld8 r19 = [r20] + nop 0 + sub r16 = 64, r16 + ;; + .mmi + ld8 r20 = [r14] + addl r14 = 2, r0 + sxt4 r17 = r17 + .mii + nop 0 + sxt4 r16 = r16 + ;; + shl r22 = r21, r16 + .mii + nop 0 + shr r21 = r21, r18 + shl r14 = r14, r17 + .mii + ld8 r17 = [r24] + shr r24 = r20, r18 + shl r20 = r20, r16 + ;; + .mii + nop 0 + shr r17 = r17, r18 + shr r18 = r19, r18 + .mii + adds r14 = -1, r14 + shl r19 = r19, r16 + ;; + and r14 = r23, r14 + .mmi + nop 0 + or r8 = r22, r17 + or r10 = r20, r18 + .mii + nop 0 + or r9 = r19, r21 + ;; + shl r14 = r14, r16 + ;; + .mii + or r11 = r14, r24 + mov ar.pfs = r43 + mov b0 = r42 + .mib + nop 0 + .restore sp + mov r12 = r44 + br.ret.sptk.many b0 + .endp callback_receiver# + .align 16 + .global callback_get_receiver# + .proc callback_get_receiver# +callback_get_receiver: + .prologue 2, 2 + .mfi + .vframe r2 + mov r2 = r12 + .body + nop 0 + addl r8 = @ltoff(@fptr(callback_receiver#)), gp + ;; + .mib + ld8 r8 = [r8] + .restore sp + mov r12 = r2 + br.ret.sptk.many b0 + .endp callback_get_receiver# + .ident "GCC: (GNU) 4.0.1" diff --git a/callback/vacall_r/vacall-ia64-macro.S b/callback/vacall_r/vacall-ia64-macro.S new file mode 100644 index 0000000..1d24177 --- /dev/null +++ b/callback/vacall_r/vacall-ia64-macro.S @@ -0,0 +1,854 @@ + .file "vacall-ia64.c" + .pred.safe_across_calls p1-p5,p16-p63 + .text + .align 16 + .proc callback_receiver# +callback_receiver: + .prologue 14, 42 + .spill 48 + .mmb + .save ar.pfs, r43 + alloc r43 = ar.pfs, 8, 6, 2, 0 + .vframe r44 + mov r44 = r12 + nop 0 + .mmi + adds r12 = -208, r12 + adds r18 = 8, r15 + mov r45 = r1 + ;; + .mmi + adds r16 = -48, r44 + adds r14 = -136, r44 + adds r17 = -48, r44 + .mmi + adds r40 = -152, r44 + adds r47 = -192, r44 + adds r41 = -160, r44 + ;; + .mmb + st8 [r14] = r8 + adds r14 = -32, r44 + nop 0 + .mfi + st8 [r16] = r32, 8 + nop 0 + .save rp, r42 + mov r42 = b0 + .body + ;; + .mfi + st8 [r14] = r34 + nop 0 + adds r14 = -24, r44 + .mmb + st8 [r16] = r33 + ld8 r16 = [r15] + nop 0 + ;; + .mmi + nop 0 + st8 [r14] = r35 + adds r14 = -16, r44 + .mmi + st8 [r41] = r0 + ;; + st8 [r14] = r36 + adds r14 = -8, r44 + .mmb + st4 [r40] = r0 + ld8 r46 = [r18] + nop 0 + ;; + .mmi + nop 0 + st8 [r14] = r37 + adds r14 = 8, r44 + .mmi + st8 [r44] = r38 + ;; + st8 [r14] = r39 + adds r14 = -112, r44 + .mmi + st4 [r47] = r0 + ;; + stfd [r14] = f8 + nop 0 + .mmi + adds r14 = -104, r44 + ;; + stfd [r14] = f9 + adds r14 = -96, r44 + ;; + .mfi + stfd [r14] = f10 + nop 0 + adds r14 = -88, r44 + .mmi + nop 0 + ;; + stfd [r14] = f11 + nop 0 + .mmi + adds r14 = -80, r44 + ;; + stfd [r14] = f12 + adds r14 = -72, r44 + ;; + .mfi + stfd [r14] = f13 + nop 0 + adds r14 = -64, r44 + .mmi + nop 0 + ;; + stfd [r14] = f14 + nop 0 + .mmi + adds r14 = -56, r44 + ;; + stfd [r14] = f15 + adds r14 = -168, r44 + ;; + .mii + st8 [r14] = r17 + adds r14 = -128, r44 + ;; + nop 0 + .mii + st8 [r14] = r17 + adds r14 = -120, r44 + ;; + nop 0 + .mmb + st4 [r14] = r0 + ld8 r14 = [r16], 8 + nop 0 + ;; + .mib + nop 0 + mov b6 = r14 + nop 0 + .mbb + ld8 r1 = [r16] + nop 0 + br.call.sptk.many b0 = b6 + ;; + .mmb + mov r1 = r45 + ld4 r40 = [r40] + nop 0 + ;; + .mfb + cmp4.eq p6, p7 = 0, r40 + nop 0 + (p6) br.cond.dpnt .L49 + ;; + .mfb + cmp4.ne p6, p7 = 1, r40 + nop 0 + (p7) br.cond.dpnt .L50 + ;; + .mfb + cmp4.ne p6, p7 = 2, r40 + nop 0 + (p7) br.cond.dpnt .L50 + ;; + .mii + nop 0 + cmp4.ne p6, p7 = 3, r40 + ;; + (p7) adds r14 = -184, r44 + ;; + .mfb + (p7) ld1 r8 = [r14] + nop 0 + (p7) br.cond.dpnt .L49 + .mii + nop 0 + cmp4.ne p6, p7 = 4, r40 + ;; + nop 0 + .mmi + (p7) adds r14 = -184, r44 + ;; + (p7) ld2 r14 = [r14] + nop 0 + ;; + .mib + nop 0 + (p7) sxt2 r8 = r14 + (p7) br.cond.dpnt .L49 + .mii + nop 0 + cmp4.ne p6, p7 = 5, r40 + ;; + (p7) adds r14 = -184, r44 + ;; + .mfb + (p7) ld2 r8 = [r14] + nop 0 + (p7) br.cond.dpnt .L49 + .mii + nop 0 + cmp4.ne p6, p7 = 6, r40 + ;; + nop 0 + .mmi + (p7) adds r14 = -184, r44 + ;; + (p7) ld4 r14 = [r14] + nop 0 + ;; + .mib + nop 0 + (p7) sxt4 r8 = r14 + (p7) br.cond.dpnt .L49 + .mii + nop 0 + cmp4.ne p6, p7 = 7, r40 + ;; + (p7) adds r14 = -184, r44 + ;; + .mfb + (p7) ld4 r8 = [r14] + nop 0 + (p7) br.cond.dpnt .L49 + .mfb + cmp4.ne p6, p7 = 8, r40 + nop 0 + (p7) br.cond.dpnt .L54 + ;; + .mfb + cmp4.ne p6, p7 = 9, r40 + nop 0 + (p7) br.cond.dpnt .L54 + ;; + .mfb + cmp4.ne p6, p7 = 10, r40 + nop 0 + (p7) br.cond.dpnt .L54 + ;; + .mfb + cmp4.ne p6, p7 = 11, r40 + nop 0 + (p7) br.cond.dpnt .L54 + ;; + .mii + nop 0 + cmp4.ne p6, p7 = 12, r40 + ;; + (p7) adds r14 = -184, r44 + ;; + .mfb + (p7) ldfs f8 = [r14] + nop 0 + (p7) br.cond.dpnt .L49 + .mii + nop 0 + cmp4.ne p6, p7 = 13, r40 + ;; + (p7) adds r14 = -184, r44 + ;; + .mfb + (p7) ldfd f8 = [r14] + nop 0 + (p7) br.cond.dpnt .L49 + .mfb + cmp4.ne p6, p7 = 14, r40 + nop 0 + (p7) br.cond.dpnt .L54 + ;; + .mib + nop 0 + cmp4.ne p6, p7 = 15, r40 + (p6) br.cond.dptk .L49 + .mii + nop 0 + adds r16 = -192, r44 + ;; + nop 0 + .mmi + ld4 r14 = [r16] + ;; + nop 0 + tbit.z p6, p7 = r14, 10 + .mfb + adds r14 = -144, r44 + nop 0 + (p6) br.cond.dpnt .L49 + ;; + .mmi + ld8 r22 = [r14] + ;; + adds r14 = -1, r22 + nop 0 + ;; + .mib + nop 0 + cmp.ltu p6, p7 = 31, r14 + (p6) br.cond.dpnt .L49 + .mmi + ld8 r14 = [r41] + ;; + and r21 = 7, r14 + and r24 = -8, r14 + .mii + nop 0 + cmp.ltu p6, p7 = 8, r22 + ;; + nop 0 + .mfb + add r14 = r22, r21 + nop 0 + (p6) br.cond.dptk .L35 + ;; + .mib + nop 0 + cmp.ltu p6, p7 = 8, r14 + (p6) br.cond.dptk .L37 + .mfi + shladd r16 = r14, 3, r0 + nop 0 + addl r14 = 2, r0 + .mii + ld8 r17 = [r24] + shladd r18 = r21, 3, r0 + ;; + adds r16 = -1, r16 + ;; + .mii + nop 0 + sxt4 r16 = r16 + ;; + shl r14 = r14, r16 + ;; + .mmi + adds r14 = -1, r14 + ;; + and r14 = r17, r14 + nop 0 + .mmi + nop 0 + ;; + nop 0 + shr r8 = r14, r18 +.L49: + .mii + nop 0 + mov ar.pfs = r43 + mov b0 = r42 + .mib + nop 0 + .label_state 1 + .restore sp + mov r12 = r44 + br.ret.sptk.many b0 +.L50: + .body + .copy_state 1 + .mii + nop 0 + adds r14 = -184, r44 + ;; + nop 0 + .mii + ld1 r14 = [r14] + nop 0 + ;; + sxt1 r8 = r14 + .mii + nop 0 + mov ar.pfs = r43 + mov b0 = r42 + .mib + nop 0 + .label_state 2 + .restore sp + mov r12 = r44 + br.ret.sptk.many b0 +.L54: + .body + .copy_state 2 + .mmb + nop 0 + adds r14 = -184, r44 + nop 0 + ;; + .mii + ld8 r8 = [r14] + mov ar.pfs = r43 + mov b0 = r42 + .mib + nop 0 + .label_state 3 + .restore sp + mov r12 = r44 + br.ret.sptk.many b0 +.L35: + .body + .copy_state 3 + .mib + nop 0 + cmp.ltu p6, p7 = 16, r22 + (p6) br.cond.dptk .L39 + ;; + .mib + nop 0 + cmp.ltu p6, p7 = 16, r14 + (p6) br.cond.dptk .L41 + .mmi + shladd r16 = r14, 3, r0 + adds r14 = 8, r24 + shladd r17 = r21, 2, r0 + .mmb + shladd r19 = r21, 3, r0 + ld8 r18 = [r24] + nop 0 + ;; + .mfi + ld8 r20 = [r14] + nop 0 + addl r14 = 2, r0 + .mii + adds r16 = -65, r16 + sub r17 = 32, r17 + ;; + sxt4 r16 = r16 + .mii + nop 0 + sxt4 r17 = r17 + shr r18 = r18, r19 + ;; + .mii + nop 0 + shl r14 = r14, r16 + ;; + adds r14 = -1, r14 + ;; + .mii + nop 0 + and r14 = r20, r14 + ;; + shl r16 = r14, r17 + .mii + nop 0 + shr r9 = r14, r19 + ;; + shl r16 = r16, r17 + ;; + .mii + or r8 = r16, r18 + mov ar.pfs = r43 + mov b0 = r42 + .mib + nop 0 + .label_state 4 + .restore sp + mov r12 = r44 + br.ret.sptk.many b0 +.L37: + .body + .copy_state 4 + .mfi + shladd r16 = r14, 3, r0 + nop 0 + addl r14 = 2, r0 + .mii + ld8 r18 = [r24], 8 + shladd r19 = r21, 3, r0 + ;; + adds r16 = -65, r16 + .mii + ld8 r20 = [r24] + sub r17 = 64, r19 + ;; + sxt4 r16 = r16 + .mii + nop 0 + sxt4 r17 = r17 + ;; + shl r14 = r14, r16 + .mii + nop 0 + shr r18 = r18, r19 + ;; + adds r14 = -1, r14 + ;; + .mii + nop 0 + and r14 = r20, r14 + ;; + shl r14 = r14, r17 + ;; + .mii + or r8 = r14, r18 + mov ar.pfs = r43 + mov b0 = r42 + .mib + nop 0 + .label_state 5 + .restore sp + mov r12 = r44 + br.ret.sptk.many b0 +.L39: + .body + .copy_state 5 + .mib + nop 0 + cmp.ltu p6, p7 = 24, r22 + (p6) br.cond.dptk .L43 + ;; + .mib + nop 0 + cmp.ltu p6, p7 = 24, r14 + (p6) br.cond.dptk .L45 + .mmi + shladd r16 = r14, 3, r0 + adds r14 = 8, r24 + shladd r17 = r21, 2, r0 + .mmb + shladd r20 = r21, 3, r0 + ld8 r19 = [r24], 16 + nop 0 + ;; + .mmi + ld8 r18 = [r14] + addl r14 = 2, r0 + adds r16 = -65, r16 + .mmb + sub r17 = 32, r17 + ld8 r21 = [r24] + nop 0 + ;; + .mii + nop 0 + sxt4 r16 = r16 + sxt4 r17 = r17 + .mii + nop 0 + shr r19 = r19, r20 + ;; + shl r14 = r14, r16 + .mii + nop 0 + shl r16 = r18, r17 + shr r18 = r18, r20 + ;; + .mii + nop 0 + shl r16 = r16, r17 + adds r14 = -1, r14 + ;; + .mii + and r14 = r21, r14 + or r8 = r16, r19 + ;; + shl r16 = r14, r17 + .mii + nop 0 + shr r10 = r14, r20 + ;; + shl r16 = r16, r17 + ;; + .mii + or r9 = r16, r18 + mov ar.pfs = r43 + mov b0 = r42 + .mib + nop 0 + .label_state 6 + .restore sp + mov r12 = r44 + br.ret.sptk.many b0 +.L41: + .body + .copy_state 6 + .mfi + shladd r17 = r14, 3, r0 + nop 0 + adds r14 = 8, r24 + .mfi + ld8 r19 = [r24], 16 + nop 0 + shladd r16 = r21, 3, r0 + ;; + .mmi + ld8 r18 = [r14] + addl r14 = 2, r0 + adds r17 = -129, r17 + .mmi + ld8 r21 = [r24] + mov r20 = r16 + sub r16 = 64, r16 + ;; + .mii + nop 0 + sxt4 r17 = r17 + sxt4 r16 = r16 + ;; + .mii + nop 0 + shl r14 = r14, r17 + shr r19 = r19, r20 + .mii + nop 0 + shl r17 = r18, r16 + shr r18 = r18, r20 + ;; + .mmi + adds r14 = -1, r14 + ;; + and r14 = r21, r14 + or r8 = r17, r19 + ;; + .mib + nop 0 + shl r14 = r14, r16 + nop 0 + ;; + .mii + or r9 = r14, r18 + mov ar.pfs = r43 + mov b0 = r42 + .mib + nop 0 + .label_state 7 + .restore sp + mov r12 = r44 + br.ret.sptk.many b0 +.L45: + .body + .copy_state 7 + .mmi + shladd r17 = r14, 3, r0 + adds r14 = 24, r24 + shladd r16 = r21, 3, r0 + .mmi + adds r19 = 8, r24 + ld8 r21 = [r24] + adds r20 = 16, r24 + ;; + .mmi + ld8 r23 = [r14] + addl r14 = 2, r0 + adds r17 = -129, r17 + .mmi + mov r18 = r16 + ld8 r19 = [r19] + sub r16 = 64, r16 + ;; + .mib + nop 0 + sxt4 r17 = r17 + nop 0 + .mii + ld8 r20 = [r20] + sxt4 r16 = r16 + ;; + shl r14 = r14, r17 + .mii + nop 0 + shr r22 = r20, r18 + shl r17 = r19, r16 + .mii + nop 0 + shr r21 = r21, r18 + shr r19 = r19, r18 + .mii + nop 0 + shl r20 = r20, r16 + ;; + nop 0 + .mmi + adds r14 = -1, r14 + ;; + and r14 = r23, r14 + or r8 = r17, r21 + .mii + nop 0 + or r9 = r20, r19 + ;; + shl r14 = r14, r16 + ;; + .mii + or r10 = r14, r22 + mov ar.pfs = r43 + mov b0 = r42 + .mib + nop 0 + .label_state 8 + .restore sp + mov r12 = r44 + br.ret.sptk.many b0 +.L43: + .body + .copy_state 8 + .mib + nop 0 + cmp.ltu p6, p7 = 32, r14 + (p6) br.cond.dptk .L47 + .mmi + adds r16 = 24, r24 + shladd r14 = r14, 3, r0 + adds r18 = 8, r24 + .mmi + shladd r17 = r21, 2, r0 + adds r19 = 16, r24 + shladd r21 = r21, 3, r0 + ;; + .mmi + nop 0 + ld8 r23 = [r16] + addl r16 = 2, r0 + .mmi + adds r14 = -65, r14 + ld8 r20 = [r18] + sub r17 = 32, r17 + ;; + .mii + nop 0 + sxt4 r14 = r14 + sxt4 r17 = r17 + .mmb + ld8 r22 = [r19] + ld8 r19 = [r24] + nop 0 + ;; + .mii + nop 0 + shl r16 = r16, r14 + shl r14 = r20, r17 + .mii + nop 0 + shr r19 = r19, r21 + shl r18 = r22, r17 + ;; + .mii + nop 0 + shl r14 = r14, r17 + shr r20 = r20, r21 + .mii + adds r16 = -1, r16 + shl r18 = r18, r17 + shr r22 = r22, r21 + ;; + .mmi + nop 0 + and r16 = r23, r16 + or r8 = r14, r19 + .mmi + or r9 = r18, r20 + ;; + nop 0 + shl r14 = r16, r17 + .mii + nop 0 + shr r11 = r16, r21 + ;; + shl r14 = r14, r17 + ;; + .mii + or r10 = r14, r22 + mov ar.pfs = r43 + mov b0 = r42 + .mib + nop 0 + .label_state 9 + .restore sp + mov r12 = r44 + br.ret.sptk.many b0 +.L47: + .body + .copy_state 9 + .mmb + shladd r17 = r14, 3, r0 + adds r14 = 32, r24 + nop 0 + .mmi + adds r19 = 8, r24 + adds r20 = 16, r24 + shladd r16 = r21, 3, r0 + ;; + .mfi + ld8 r23 = [r14] + nop 0 + adds r14 = 24, r24 + .mmi + ld8 r21 = [r19] + adds r17 = -129, r17 + mov r18 = r16 + .mfi + ld8 r19 = [r20] + nop 0 + sub r16 = 64, r16 + ;; + .mmi + ld8 r20 = [r14] + addl r14 = 2, r0 + sxt4 r17 = r17 + .mii + nop 0 + sxt4 r16 = r16 + ;; + shl r22 = r21, r16 + .mii + nop 0 + shr r21 = r21, r18 + shl r14 = r14, r17 + .mii + ld8 r17 = [r24] + shr r24 = r20, r18 + shl r20 = r20, r16 + ;; + .mii + nop 0 + shr r17 = r17, r18 + shr r18 = r19, r18 + .mii + adds r14 = -1, r14 + shl r19 = r19, r16 + ;; + and r14 = r23, r14 + .mmi + nop 0 + or r8 = r22, r17 + or r10 = r20, r18 + .mii + nop 0 + or r9 = r19, r21 + ;; + shl r14 = r14, r16 + ;; + .mii + or r11 = r14, r24 + mov ar.pfs = r43 + mov b0 = r42 + .mib + nop 0 + .restore sp + mov r12 = r44 + br.ret.sptk.many b0 + .endp callback_receiver# + .align 16 + .global callback_get_receiver# + .proc callback_get_receiver# +callback_get_receiver: + .prologue 2, 2 + .mfi + .vframe r2 + mov r2 = r12 + .body + nop 0 + addl r8 = @ltoff(@fptr(callback_receiver#)), gp + ;; + .mib + ld8 r8 = [r8] + .restore sp + mov r12 = r2 + br.ret.sptk.many b0 + .endp callback_get_receiver# + .ident "GCC: (GNU) 4.0.1" +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/callback/vacall_r/vacall-libapi.c b/callback/vacall_r/vacall-libapi.c new file mode 100644 index 0000000..60ccee5 --- /dev/null +++ b/callback/vacall_r/vacall-libapi.c @@ -0,0 +1,210 @@ +/* + * Copyright 1995-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "config.h" +#include +#include +#include + +#include "vacall-internal.h" + +/* Room for returning structs according to the Sun C non-reentrant struct return convention. */ +typedef union { __vaword room[__VA_ALIST_WORDS]; double align; } __va_struct_buffer_t; +static __va_struct_buffer_t vacall_struct_buffer; + +static _Noreturn void +vacall_error_type_mismatch (enum __VAtype start_type, enum __VAtype return_type) +{ + /* If you see this, fix your code. */ + fprintf (stderr, "vacall: va_start type %d and va_return type %d disagree.\n", + (int)start_type, (int)return_type); + abort(); +} + +static _Noreturn void +vacall_error_struct_too_large (unsigned int size) +{ + /* If you see this, increase __VA_ALIST_WORDS: */ + fprintf (stderr, "vacall: struct of size %u too large for Sun C struct return.\n", + size); + abort(); +} + +void vacall_start (va_alist list, int rettype, int flags) +{ + __va_start(list,rettype,flags); +} + +void vacall_start_struct (va_alist list, size_t type_size, size_t type_align, int type_splittable, int flags) +{ + __va_start_struct(list,type_size,type_align,type_splittable,flags); +} + +char vacall_arg_char (va_alist list) +{ + return _va_arg_char(list); +} + +signed char vacall_arg_schar (va_alist list) +{ + return _va_arg_schar(list); +} + +unsigned char vacall_arg_uchar (va_alist list) +{ + return _va_arg_uchar(list); +} + +short vacall_arg_short (va_alist list) +{ + return _va_arg_short(list); +} + +unsigned short vacall_arg_ushort (va_alist list) +{ + return _va_arg_ushort(list); +} + +int vacall_arg_int (va_alist list) +{ + return _va_arg_int(list); +} + +unsigned int vacall_arg_uint (va_alist list) +{ + return _va_arg_uint(list); +} + +long vacall_arg_long (va_alist list) +{ + return _va_arg_long(list); +} + +unsigned long vacall_arg_ulong (va_alist list) +{ + return _va_arg_ulong(list); +} + +long long vacall_arg_longlong (va_alist list) +{ + return _va_arg_longlong(list); +} + +unsigned long long vacall_arg_ulonglong (va_alist list) +{ + return _va_arg_ulonglong(list); +} + +float vacall_arg_float (va_alist list) +{ + return _va_arg_float(list); +} + +double vacall_arg_double (va_alist list) +{ + return _va_arg_double(list); +} + +void* vacall_arg_ptr (va_alist list) +{ + return _va_arg_ptr(list); +} + +void* vacall_arg_struct (va_alist list, size_t type_size, size_t type_align) +{ + return __va_arg_struct(list,type_size,type_align); +} + +void vacall_return_void (va_alist list) +{ + _va_return_void(list); +} + +void vacall_return_char (va_alist list, char val) +{ + _va_return_char(list,val); +} + +void vacall_return_schar (va_alist list, signed char val) +{ + _va_return_schar(list,val); +} + +void vacall_return_uchar (va_alist list, unsigned char val) +{ + _va_return_uchar(list,val); +} + +void vacall_return_short (va_alist list, short val) +{ + _va_return_short(list,val); +} + +void vacall_return_ushort (va_alist list, unsigned short val) +{ + _va_return_ushort(list,val); +} + +void vacall_return_int (va_alist list, int val) +{ + _va_return_int(list,val); +} + +void vacall_return_uint (va_alist list, unsigned int val) +{ + _va_return_uint(list,val); +} + +void vacall_return_long (va_alist list, long val) +{ + _va_return_long(list,val); +} + +void vacall_return_ulong (va_alist list, unsigned long val) +{ + _va_return_ulong(list,val); +} + +void vacall_return_longlong (va_alist list, long long val) +{ + _va_return_longlong(list,val); +} + +void vacall_return_ulonglong (va_alist list, unsigned long long val) +{ + _va_return_ulonglong(list,val); +} + +void vacall_return_float (va_alist list, float val) +{ + _va_return_float(list,val); +} + +void vacall_return_double (va_alist list, double val) +{ + _va_return_double(list,val); +} + +void vacall_return_ptr (va_alist list, void* val) +{ + _va_return_ptr(list,val); +} + +void vacall_return_struct (va_alist list, size_t type_size, size_t type_align, const void* val_addr) +{ + __va_return_struct(list,type_size,type_align,val_addr); +} diff --git a/callback/vacall_r/vacall-m68k-linux.s b/callback/vacall_r/vacall-m68k-linux.s new file mode 100644 index 0000000..a687a7e --- /dev/null +++ b/callback/vacall_r/vacall-m68k-linux.s @@ -0,0 +1,185 @@ + .file "vacall-m68k.c" + .text + .align 2 + .type callback_receiver,@function +callback_receiver: + link.w %a6,#-32 + movm.l #0x3030,-(%sp) + clr.l -32(%a6) + lea (8,%a6),%a2 + move.l %a2,-20(%a6) + clr.l -16(%a6) + clr.l -12(%a6) + move.l %a1,-4(%a6) + pea -32(%a6) + move.l 4(%a0),-(%sp) + move.l (%a0),%a2 + jsr (%a2) + addq.l #8,%sp + move.l -12(%a6),%a3 + tst.l %a3 + jbeq .L1 + moveq.l #1,%d2 + cmp.l %a3,%d2 + jbeq .L46 + moveq.l #2,%d3 + cmp.l %a3,%d3 + jbeq .L46 + moveq.l #3,%d2 + cmp.l %a3,%d2 + jbeq .L47 + moveq.l #4,%d3 + cmp.l %a3,%d3 + jbeq .L48 + moveq.l #5,%d2 + cmp.l %a3,%d2 + jbeq .L49 + moveq.l #6,%d3 + cmp.l %a3,%d3 + jbeq .L45 + moveq.l #7,%d2 + cmp.l %a3,%d2 + jbeq .L45 + moveq.l #8,%d3 + cmp.l %a3,%d3 + jbeq .L45 + moveq.l #9,%d2 + cmp.l %a3,%d2 + jbeq .L45 + lea (-10,%a3),%a2 + moveq.l #1,%d3 + cmp.l %a2,%d3 + jbcs .L22 + move.l -28(%a6),%d0 + move.l -24(%a6),%d1 + jbra .L1 + .align 2 +.L22: + moveq.l #12,%d2 + cmp.l %a3,%d2 + jbeq .L50 + moveq.l #13,%d2 + cmp.l %a3,%d2 + jbeq .L51 + moveq.l #14,%d3 + cmp.l %a3,%d3 + jbeq .L52 + moveq.l #15,%d2 + cmp.l %a3,%d2 + jbne .L1 + btst #2,-30(%a6) + jbeq .L1 + move.l -8(%a6),%d2 + moveq.l #1,%d3 + cmp.l %d2,%d3 + jbeq .L53 + moveq.l #2,%d3 + cmp.l %d2,%d3 + jbeq .L54 + moveq.l #4,%d3 + cmp.l %d2,%d3 + jbeq .L55 + moveq.l #8,%d3 + cmp.l %d2,%d3 + jbne .L1 + move.l -16(%a6),%a2 + move.l (%a2),%d0 + move.l 4(%a2),%d1 + jbra .L1 + .align 2 +.L55: + move.l -16(%a6),%a2 + move.l (%a2),%d0 + jbra .L1 + .align 2 +.L54: + move.l -16(%a6),%a2 + clr.l %d0 + move.w (%a2),%d0 + jbra .L1 + .align 2 +.L53: + move.l -16(%a6),%a2 + clr.l %d0 + move.b (%a2),%d0 + jbra .L1 + .align 2 +.L52: + move.l -28(%a6),%d0 + move.l %d0,%a0 + jbra .L1 + .align 2 +.L51: + btst #6,-29(%a6) + jbeq .L31 + fmove.d -28(%a6),%fp0 + jbra .L1 + .align 2 +.L31: + move.l -28(%a6),%d0 + move.l -24(%a6),%d1 + jbra .L1 + .align 2 +.L50: + move.l -32(%a6),%d2 + btst #6,%d2 + jbeq .L25 + fmove.s -28(%a6),%fp0 + jbra .L1 + .align 2 +.L25: + btst #5,%d2 + jbeq .L27 + fmove.s -28(%a6),%fp1 + fmove.d %fp1,-(%sp) + move.l (%sp)+,%d0 + move.l (%sp)+,%d1 + jbra .L1 + .align 2 +.L27: + move.l -28(%a6),%d0 + jbra .L1 + .align 2 +.L45: + move.l -28(%a6),%d0 + jbra .L1 + .align 2 +.L49: + clr.l %d0 + move.w -28(%a6),%d0 + jbra .L1 + .align 2 +.L48: + move.w -28(%a6),%d0 + ext.l %d0 + jbra .L1 + .align 2 +.L47: + clr.l %d0 + move.b -28(%a6),%d0 + jbra .L1 + .align 2 +.L46: + move.b -28(%a6),%d0 + extb.l %d0 +.L1: + movm.l -48(%a6),#0xc0c + unlk %a6 + rts +.Lfe1: + .size callback_receiver,.Lfe1-callback_receiver + .align 2 + .globl callback_get_receiver + .type callback_get_receiver,@function +callback_get_receiver: + link.w %a6,#0 + move.l %a5,-(%sp) + lea (%pc, _GLOBAL_OFFSET_TABLE_@GOTPC), %a5 + move.l callback_receiver@GOT(%a5),%a0 + move.l %a0,%d0 + move.l (%sp)+,%a5 + unlk %a6 + rts +.Lfe2: + .size callback_get_receiver,.Lfe2-callback_get_receiver + .ident "GCC: (GNU) 3.1" diff --git a/callback/vacall_r/vacall-m68k-sun.s b/callback/vacall_r/vacall-m68k-sun.s new file mode 100644 index 0000000..86f3f16 --- /dev/null +++ b/callback/vacall_r/vacall-m68k-sun.s @@ -0,0 +1,178 @@ +#NO_APP + .text + .even +_callback_receiver: + link a6,#-32 + moveml #0x3030,sp@- + clrl a6@(-32) + lea a6@(8),a2 + movel a2,a6@(-20) + clrl a6@(-16) + clrl a6@(-12) + movel a1,a6@(-4) + pea a6@(-32) + movel a0@(4),sp@- + movel a0@,a2 + jsr a2@ + addql #8,sp + movel a6@(-12),a3 + tstl a3 + jeq L1 + moveq #1,d2 + cmpl a3,d2 + jeq L46 + moveq #2,d3 + cmpl a3,d3 + jeq L46 + moveq #3,d2 + cmpl a3,d2 + jeq L47 + moveq #4,d3 + cmpl a3,d3 + jeq L48 + moveq #5,d2 + cmpl a3,d2 + jeq L49 + moveq #6,d3 + cmpl a3,d3 + jeq L45 + moveq #7,d2 + cmpl a3,d2 + jeq L45 + moveq #8,d3 + cmpl a3,d3 + jeq L45 + moveq #9,d2 + cmpl a3,d2 + jeq L45 + lea a3@(-10),a2 + moveq #1,d3 + cmpl a2,d3 + jcs L22 + movel a6@(-28),d0 + movel a6@(-24),d1 + jra L1 + .even +L22: + moveq #12,d2 + cmpl a3,d2 + jeq L50 + moveq #13,d2 + cmpl a3,d2 + jeq L51 + moveq #14,d3 + cmpl a3,d3 + jeq L52 + moveq #15,d2 + cmpl a3,d2 + jne L1 + btst #2,a6@(-30) + jeq L1 + movel a6@(-8),d2 + moveq #1,d3 + cmpl d2,d3 + jeq L53 + moveq #2,d3 + cmpl d2,d3 + jeq L54 + moveq #4,d3 + cmpl d2,d3 + jeq L55 + moveq #8,d3 + cmpl d2,d3 + jne L1 + movel a6@(-16),a2 + movel a2@,d0 + movel a2@(4),d1 + jra L1 + .even +L55: + movel a6@(-16),a2 + movel a2@,d0 + jra L1 + .even +L54: + movel a6@(-16),a2 + clrl d0 + movew a2@,d0 + jra L1 + .even +L53: + movel a6@(-16),a2 + clrl d0 + moveb a2@,d0 + jra L1 + .even +L52: + movel a6@(-28),d0 + movel d0,a0 + jra L1 + .even +L51: + btst #6,a6@(-29) + jeq L31 + fmoved a6@(-28),fp0 + jra L1 + .even +L31: + movel a6@(-28),d0 + movel a6@(-24),d1 + jra L1 + .even +L50: + movel a6@(-32),d2 + btst #6,d2 + jeq L25 + fmoves a6@(-28),fp0 + jra L1 + .even +L25: + btst #5,d2 + jeq L27 + fmoves a6@(-28),fp1 + fmoved fp1,sp@- + movel sp@+,d0 + movel sp@+,d1 + jra L1 + .even +L27: + movel a6@(-28),d0 + jra L1 + .even +L45: + movel a6@(-28),d0 + jra L1 + .even +L49: + clrl d0 + movew a6@(-28),d0 + jra L1 + .even +L48: + movew a6@(-28),d0 + extl d0 + jra L1 + .even +L47: + clrl d0 + moveb a6@(-28),d0 + jra L1 + .even +L46: + moveb a6@(-28),d0 + extbl d0 +L1: + moveml a6@(-48),#0xc0c + unlk a6 + rts + .even + .globl _callback_get_receiver +_callback_get_receiver: + link a6,#0 + movel a5,sp@- + movel #__GLOBAL_OFFSET_TABLE_, a5 + lea pc@(0,a5:l),a5 + movel a5@(_callback_receiver:l),d0 + movel sp@+,a5 + unlk a6 + rts diff --git a/callback/vacall_r/vacall-m68k.mit.S b/callback/vacall_r/vacall-m68k.mit.S new file mode 100644 index 0000000..5acb6a8 --- /dev/null +++ b/callback/vacall_r/vacall-m68k.mit.S @@ -0,0 +1,183 @@ +#include "asm-m68k.h" + .text + .even +FUNBEGIN(callback_receiver) + link $a6,#-32 + moveml #0x3030,$sp@- + clrl $a6@(-32) + lea $a6@(8),$a2 + movel $a2,$a6@(-20) + clrl $a6@(-16) + clrl $a6@(-12) + movel $a1,$a6@(-4) + pea $a6@(-32) + movel $a0@(4),$sp@- + movel $a0@,$a2 + jsr $a2@ + addql #8,$sp + movel $a6@(-12),$a3 + tstl $a3 + jeq L(1) + moveq #1,$d2 + cmpl $a3,$d2 + jeq L(46) + moveq #2,$d3 + cmpl $a3,$d3 + jeq L(46) + moveq #3,$d2 + cmpl $a3,$d2 + jeq L(47) + moveq #4,$d3 + cmpl $a3,$d3 + jeq L(48) + moveq #5,$d2 + cmpl $a3,$d2 + jeq L(49) + moveq #6,$d3 + cmpl $a3,$d3 + jeq L(45) + moveq #7,$d2 + cmpl $a3,$d2 + jeq L(45) + moveq #8,$d3 + cmpl $a3,$d3 + jeq L(45) + moveq #9,$d2 + cmpl $a3,$d2 + jeq L(45) + lea $a3@(-10),$a2 + moveq #1,$d3 + cmpl $a2,$d3 + jcs L(22) + movel $a6@(-28),$d0 + movel $a6@(-24),$d1 + jra L(1) + .even +L(22): + moveq #12,$d2 + cmpl $a3,$d2 + jeq L(50) + moveq #13,$d2 + cmpl $a3,$d2 + jeq L(51) + moveq #14,$d3 + cmpl $a3,$d3 + jeq L(52) + moveq #15,$d2 + cmpl $a3,$d2 + jne L(1) + btst #2,$a6@(-30) + jeq L(1) + movel $a6@(-8),$d2 + moveq #1,$d3 + cmpl $d2,$d3 + jeq L(53) + moveq #2,$d3 + cmpl $d2,$d3 + jeq L(54) + moveq #4,$d3 + cmpl $d2,$d3 + jeq L(55) + moveq #8,$d3 + cmpl $d2,$d3 + jne L(1) + movel $a6@(-16),$a2 + movel $a2@,$d0 + movel $a2@(4),$d1 + jra L(1) + .even +L(55): + movel $a6@(-16),$a2 + movel $a2@,$d0 + jra L(1) + .even +L(54): + movel $a6@(-16),$a2 + clrl $d0 + movew $a2@,$d0 + jra L(1) + .even +L(53): + movel $a6@(-16),$a2 + clrl $d0 + moveb $a2@,$d0 + jra L(1) + .even +L(52): + movel $a6@(-28),$d0 + movel $d0,$a0 + jra L(1) + .even +L(51): + btst #6,$a6@(-29) + jeq L(31) + fmoved $a6@(-28),$fp0 + jra L(1) + .even +L(31): + movel $a6@(-28),$d0 + movel $a6@(-24),$d1 + jra L(1) + .even +L(50): + movel $a6@(-32),$d2 + btst #6,$d2 + jeq L(25) + fmoves $a6@(-28),$fp0 + jra L(1) + .even +L(25): + btst #5,$d2 + jeq L(27) + fmoves $a6@(-28),$fp1 + fmoved $fp1,$sp@- + movel $sp@+,$d0 + movel $sp@+,$d1 + jra L(1) + .even +L(27): + movel $a6@(-28),$d0 + jra L(1) + .even +L(45): + movel $a6@(-28),$d0 + jra L(1) + .even +L(49): + clrl $d0 + movew $a6@(-28),$d0 + jra L(1) + .even +L(48): + movew $a6@(-28),$d0 + extl $d0 + jra L(1) + .even +L(47): + clrl $d0 + moveb $a6@(-28),$d0 + jra L(1) + .even +L(46): + moveb $a6@(-28),$d0 + extbl $d0 +L(1): + moveml $a6@(-48),#0xc0c + unlk $a6 + rts + .even + .globl C(callback_get_receiver) + DECLARE_FUNCTION(callback_get_receiver) +FUNBEGIN(callback_get_receiver) + link $a6,#0 + movel $a5,$sp@- + movel #C(_GLOBAL_OFFSET_TABLE_), $a5 + lea $pc@(0,$a5:l),$a5 + movel $a5@(C(callback_receiver):l),$d0 + movel $sp@+,$a5 + unlk $a6 + rts +FUNEND(callback_get_receiver) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/callback/vacall_r/vacall-m68k.motorola.S b/callback/vacall_r/vacall-m68k.motorola.S new file mode 100644 index 0000000..7910d88 --- /dev/null +++ b/callback/vacall_r/vacall-m68k.motorola.S @@ -0,0 +1,187 @@ +#include "asm-m68k.h" + .text + .align 2 + DECLARE_FUNCTION(callback_receiver) +FUNBEGIN(callback_receiver) + link.w %a6,#-32 + movm.l #0x3030,-(%sp) + clr.l -32(%a6) + lea (8,%a6),%a2 + move.l %a2,-20(%a6) + clr.l -16(%a6) + clr.l -12(%a6) + move.l %a1,-4(%a6) + pea -32(%a6) + move.l 4(%a0),-(%sp) + move.l (%a0),%a2 + jsr (%a2) + addq.l #8,%sp + move.l -12(%a6),%a3 + tst.l %a3 + jbeq L(1) + moveq.l #1,%d2 + cmp.l %a3,%d2 + jbeq L(46) + moveq.l #2,%d3 + cmp.l %a3,%d3 + jbeq L(46) + moveq.l #3,%d2 + cmp.l %a3,%d2 + jbeq L(47) + moveq.l #4,%d3 + cmp.l %a3,%d3 + jbeq L(48) + moveq.l #5,%d2 + cmp.l %a3,%d2 + jbeq L(49) + moveq.l #6,%d3 + cmp.l %a3,%d3 + jbeq L(45) + moveq.l #7,%d2 + cmp.l %a3,%d2 + jbeq L(45) + moveq.l #8,%d3 + cmp.l %a3,%d3 + jbeq L(45) + moveq.l #9,%d2 + cmp.l %a3,%d2 + jbeq L(45) + lea (-10,%a3),%a2 + moveq.l #1,%d3 + cmp.l %a2,%d3 + jbcs L(22) + move.l -28(%a6),%d0 + move.l -24(%a6),%d1 + jbra L(1) + .align 2 +L(22): + moveq.l #12,%d2 + cmp.l %a3,%d2 + jbeq L(50) + moveq.l #13,%d2 + cmp.l %a3,%d2 + jbeq L(51) + moveq.l #14,%d3 + cmp.l %a3,%d3 + jbeq L(52) + moveq.l #15,%d2 + cmp.l %a3,%d2 + jbne L(1) + btst #2,-30(%a6) + jbeq L(1) + move.l -8(%a6),%d2 + moveq.l #1,%d3 + cmp.l %d2,%d3 + jbeq L(53) + moveq.l #2,%d3 + cmp.l %d2,%d3 + jbeq L(54) + moveq.l #4,%d3 + cmp.l %d2,%d3 + jbeq L(55) + moveq.l #8,%d3 + cmp.l %d2,%d3 + jbne L(1) + move.l -16(%a6),%a2 + move.l (%a2),%d0 + move.l 4(%a2),%d1 + jbra L(1) + .align 2 +L(55): + move.l -16(%a6),%a2 + move.l (%a2),%d0 + jbra L(1) + .align 2 +L(54): + move.l -16(%a6),%a2 + clr.l %d0 + move.w (%a2),%d0 + jbra L(1) + .align 2 +L(53): + move.l -16(%a6),%a2 + clr.l %d0 + move.b (%a2),%d0 + jbra L(1) + .align 2 +L(52): + move.l -28(%a6),%d0 + move.l %d0,%a0 + jbra L(1) + .align 2 +L(51): + btst #6,-29(%a6) + jbeq L(31) + fmove.d -28(%a6),%fp0 + jbra L(1) + .align 2 +L(31): + move.l -28(%a6),%d0 + move.l -24(%a6),%d1 + jbra L(1) + .align 2 +L(50): + move.l -32(%a6),%d2 + btst #6,%d2 + jbeq L(25) + fmove.s -28(%a6),%fp0 + jbra L(1) + .align 2 +L(25): + btst #5,%d2 + jbeq L(27) + fmove.s -28(%a6),%fp1 + fmove.d %fp1,-(%sp) + move.l (%sp)+,%d0 + move.l (%sp)+,%d1 + jbra L(1) + .align 2 +L(27): + move.l -28(%a6),%d0 + jbra L(1) + .align 2 +L(45): + move.l -28(%a6),%d0 + jbra L(1) + .align 2 +L(49): + clr.l %d0 + move.w -28(%a6),%d0 + jbra L(1) + .align 2 +L(48): + move.w -28(%a6),%d0 + ext.l %d0 + jbra L(1) + .align 2 +L(47): + clr.l %d0 + move.b -28(%a6),%d0 + jbra L(1) + .align 2 +L(46): + move.b -28(%a6),%d0 + extb.l %d0 +L(1): + movm.l -48(%a6),#0xc0c + unlk %a6 + rts +L(fe1): + FUNEND(callback_receiver) + .align 2 + .globl C(callback_get_receiver) + DECLARE_FUNCTION(callback_get_receiver) +FUNBEGIN(callback_get_receiver) + link.w %a6,#0 + move.l %a5,-(%sp) + lea (%pc, _GLOBAL_OFFSET_TABLE_@GOTPC), %a5 + move.l callback_receiver@GOT(%a5),%a0 + move.l %a0,%d0 + move.l (%sp)+,%a5 + unlk %a6 + rts +L(fe2): + FUNEND(callback_get_receiver) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/callback/vacall_r/vacall-mips64eb-linux.s b/callback/vacall_r/vacall-mips64eb-linux.s new file mode 100644 index 0000000..26582be --- /dev/null +++ b/callback/vacall_r/vacall-mips64eb-linux.s @@ -0,0 +1,385 @@ + .file 1 "vacall-mips64.c" + .section .mdebug.abi64 + .previous + .nan legacy + .module fp=64 + .module oddspreg + .abicalls + .text + .align 2 + .align 3 + .set nomips16 + .set nomicromips + .ent callback_receiver + .type callback_receiver, @function +callback_receiver: + .frame $fp,272,$31 # vars= 160, regs= 6/0, args= 0, gp= 0 + .mask 0xd0070000,-72 + .fmask 0x00000000,0 + .set noreorder + .set nomacro + daddiu $sp,$sp,-272 + sd $fp,192($sp) + move $fp,$sp + sd $4,208($fp) + ld $4,8($2) + ld $25,0($2) + daddiu $12,$fp,208 + sd $31,200($sp) + sd $18,176($sp) + sd $17,168($sp) + sd $16,160($sp) + sd $5,216($fp) + sd $6,224($fp) + sd $7,232($fp) + sd $8,240($fp) + sd $9,248($fp) + sd $10,256($fp) + sd $11,264($fp) + sdc1 $f12,96($fp) + sdc1 $f13,104($fp) + sdc1 $f14,112($fp) + sdc1 $f15,120($fp) + sdc1 $f16,128($fp) + sdc1 $f17,136($fp) + sdc1 $f18,144($fp) + sdc1 $f19,152($fp) + swc1 $f12,60($fp) + swc1 $f13,64($fp) + swc1 $f14,68($fp) + swc1 $f15,72($fp) + swc1 $f16,76($fp) + swc1 $f17,80($fp) + swc1 $f18,84($fp) + move $5,$fp + swc1 $f19,88($fp) + sd $12,24($fp) + sw $0,0($fp) + sd $0,32($fp) + sw $0,40($fp) + jalr $25 + sw $0,56($fp) + + lw $12,40($fp) + beq $12,$0,.L1 + li $13,1 # 0x1 + + beq $12,$13,.L43 + li $13,2 # 0x2 + + beq $12,$13,.L43 + li $13,3 # 0x3 + + beq $12,$13,.L46 + li $13,4 # 0x4 + + beq $12,$13,.L47 + li $13,5 # 0x5 + + beq $12,$13,.L48 + li $13,6 # 0x6 + + beq $12,$13,.L49 + li $13,7 # 0x7 + + beq $12,$13,.L50 + li $13,8 # 0x8 + + beq $12,$13,.L44 + li $13,9 # 0x9 + + beq $12,$13,.L44 + li $13,10 # 0xa + + beq $12,$13,.L44 + li $13,11 # 0xb + + beq $12,$13,.L44 + li $13,12 # 0xc + + beq $12,$13,.L51 + li $13,13 # 0xd + + beq $12,$13,.L52 + li $13,14 # 0xe + + beq $12,$13,.L44 + li $13,15 # 0xf + + bnel $12,$13,.L58 + move $sp,$fp + + lw $12,0($fp) + andi $13,$12,0x400 + beq $13,$0,.L1 + andi $13,$12,0x4 + + beq $13,$0,.L19 + ld $14,48($fp) + + ld $12,48($fp) + li $13,1 # 0x1 + beq $12,$13,.L53 + li $13,2 # 0x2 + + beq $12,$13,.L54 + li $13,4 # 0x4 + + beq $12,$13,.L55 + li $13,8 # 0x8 + + bnel $12,$13,.L58 + move $sp,$fp + + ld $12,32($fp) + ld $2,0($12) +.L1: + move $sp,$fp +.L58: + ld $31,200($sp) + ld $fp,192($sp) + ld $18,176($sp) + ld $17,168($sp) + ld $16,160($sp) + j $31 + daddiu $sp,$sp,272 + + .align 3 +.L43: + move $sp,$fp + ld $31,200($sp) + ld $18,176($sp) + ld $17,168($sp) + ld $16,160($sp) + lb $2,8($fp) + ld $fp,192($sp) + j $31 + daddiu $sp,$sp,272 + + .align 3 +.L44: + b .L1 + ld $2,8($fp) + + .align 3 +.L46: + b .L1 + lbu $2,8($fp) + + .align 3 +.L47: + b .L1 + lh $2,8($fp) + + .align 3 +.L48: + b .L1 + lhu $2,8($fp) + + .align 3 +.L49: + b .L1 + lw $2,8($fp) + + .align 3 +.L51: + b .L1 + lwc1 $f0,8($fp) + + .align 3 +.L50: + b .L1 + lwu $2,8($fp) + +.L52: + b .L1 + ldc1 $f0,8($fp) + +.L19: + daddiu $13,$14,-1 + sltu $13,$13,16 + beql $13,$0,.L59 + andi $13,$12,0x800 + + ld $13,32($fp) + li $24,-8 # 0xfffffffffffffff8 + sltu $25,$14,9 + andi $15,$13,0x7 + and $24,$13,$24 + beq $25,$0,.L24 + daddu $13,$14,$15 + + sltu $25,$13,9 + sll $13,$13,0 + beq $25,$0,.L25 + subu $13,$0,$13 + + ld $25,0($24) + sll $13,$13,3 + li $24,-1 # 0xffffffffffffffff + dsll $13,$24,$13 + and $13,$13,$25 + sll $15,$15,3 + dsll $2,$13,$15 +.L23: + andi $13,$12,0x800 +.L59: + beql $13,$0,.L27 + andi $12,$12,0x1000 + + li $13,4 # 0x4 + beq $14,$13,.L56 + li $13,8 # 0x8 + + beql $14,$13,.L57 + ld $13,32($fp) + + andi $12,$12,0x1000 + beql $12,$0,.L58 + move $sp,$fp + + li $12,16 # 0x10 +.L60: + bnel $14,$12,.L58 + move $sp,$fp + + ld $12,32($fp) + ldc1 $f0,0($12) + b .L1 + ldc1 $f2,8($12) + +.L27: + beq $12,$0,.L1 + li $12,8 # 0x8 + + bne $14,$12,.L60 + li $12,16 # 0x10 + + ld $13,32($fp) + b .L1 + ldc1 $f0,0($13) + +.L24: + sltu $25,$13,17 + beq $25,$0,.L26 + sll $13,$13,0 + + ld $18,8($24) + subu $13,$0,$13 + move $16,$15 + li $25,-1 # 0xffffffffffffffff + subu $15,$0,$15 + sll $13,$13,3 + dsll $13,$25,$13 + ld $17,0($24) + sll $25,$15,2 + addiu $24,$25,32 + and $13,$13,$18 + sll $15,$16,3 + dsra $25,$13,$24 + dsll $16,$17,$15 + dsra $24,$25,$24 + or $2,$16,$24 + b .L23 + dsll $3,$13,$15 + +.L53: + ld $12,32($fp) + b .L1 + lbu $2,0($12) + +.L54: + ld $12,32($fp) + b .L1 + lhu $2,0($12) + +.L26: + ld $18,16($24) + subu $13,$0,$13 + ld $16,8($24) + ld $17,0($24) + subu $25,$0,$15 + sll $13,$13,3 + li $24,-1 # 0xffffffffffffffff + dsll $24,$24,$13 + sll $25,$25,3 + sll $15,$15,3 + addiu $25,$25,64 + and $13,$24,$18 + dsra $13,$13,$25 + dsll $24,$17,$15 + dsra $17,$16,$25 + dsll $15,$16,$15 + or $2,$24,$17 + b .L23 + or $3,$13,$15 + +.L56: + ld $12,32($fp) + b .L1 + lwc1 $f0,0($12) + +.L55: + ld $12,32($fp) + b .L1 + lwu $2,0($12) + +.L25: + ld $16,8($24) + ld $25,0($24) + sll $13,$13,3 + li $24,-1 # 0xffffffffffffffff + dsll $13,$24,$13 + subu $24,$0,$15 + and $13,$13,$16 + sll $24,$24,3 + sll $15,$15,3 + dsra $13,$13,$24 + dsll $15,$25,$15 + b .L23 + or $2,$13,$15 + +.L57: + andi $12,$12,0x1000 + lwc1 $f0,0($13) + beq $12,$0,.L1 + lwc1 $f2,4($13) + + b .L1 + ldc1 $f0,0($13) + + .set macro + .set reorder + .end callback_receiver + .size callback_receiver, .-callback_receiver + .align 2 + .align 3 + .globl callback_get_receiver + .set nomips16 + .set nomicromips + .ent callback_get_receiver + .type callback_get_receiver, @function +callback_get_receiver: + .frame $fp,16,$31 # vars= 0, regs= 1/0, args= 0, gp= 0 + .mask 0x40000000,-8 + .fmask 0x00000000,0 + .set noreorder + .set nomacro + lui $13,%hi(%neg(%gp_rel(callback_get_receiver))) + daddu $13,$13,$25 + daddiu $13,$13,%lo(%neg(%gp_rel(callback_get_receiver))) + daddiu $sp,$sp,-16 + ld $12,%got_page(callback_receiver)($13) + sd $fp,8($sp) + move $fp,$sp + move $sp,$fp + ld $fp,8($sp) + daddiu $2,$12,%got_ofst(callback_receiver) + j $31 + daddiu $sp,$sp,16 + + .set macro + .set reorder + .end callback_get_receiver + .size callback_get_receiver, .-callback_get_receiver + .ident "GCC: (GNU) 5.4.0" diff --git a/callback/vacall_r/vacall-mips64eb-macro.S b/callback/vacall_r/vacall-mips64eb-macro.S new file mode 100644 index 0000000..a0cd04c --- /dev/null +++ b/callback/vacall_r/vacall-mips64eb-macro.S @@ -0,0 +1,379 @@ +#include "asm-mips.h" + .file 1 "vacall-mips64.c" + .text + .align 2 + .align 3 + .set nomips16 + .set nomicromips + .ent callback_receiver + DECLARE_FUNCTION(callback_receiver) +callback_receiver: + .frame $fp,272,$31 + .mask 0xd0070000,-72 + .fmask 0x00000000,0 + .set noreorder + .set nomacro + daddiu $sp,$sp,-272 + sd $fp,192($sp) + move $fp,$sp + sd $4,208($fp) + ld $4,8($2) + ld $25,0($2) + daddiu $12,$fp,208 + sd $31,200($sp) + sd $18,176($sp) + sd $17,168($sp) + sd $16,160($sp) + sd $5,216($fp) + sd $6,224($fp) + sd $7,232($fp) + sd $8,240($fp) + sd $9,248($fp) + sd $10,256($fp) + sd $11,264($fp) + sdc1 $f12,96($fp) + sdc1 $f13,104($fp) + sdc1 $f14,112($fp) + sdc1 $f15,120($fp) + sdc1 $f16,128($fp) + sdc1 $f17,136($fp) + sdc1 $f18,144($fp) + sdc1 $f19,152($fp) + swc1 $f12,60($fp) + swc1 $f13,64($fp) + swc1 $f14,68($fp) + swc1 $f15,72($fp) + swc1 $f16,76($fp) + swc1 $f17,80($fp) + swc1 $f18,84($fp) + move $5,$fp + swc1 $f19,88($fp) + sd $12,24($fp) + sw $0,0($fp) + sd $0,32($fp) + sw $0,40($fp) + jalr $25 + sw $0,56($fp) + + lw $12,40($fp) + beq $12,$0,.L1 + li $13,1 + + beq $12,$13,.L43 + li $13,2 + + beq $12,$13,.L43 + li $13,3 + + beq $12,$13,.L46 + li $13,4 + + beq $12,$13,.L47 + li $13,5 + + beq $12,$13,.L48 + li $13,6 + + beq $12,$13,.L49 + li $13,7 + + beq $12,$13,.L50 + li $13,8 + + beq $12,$13,.L44 + li $13,9 + + beq $12,$13,.L44 + li $13,10 + + beq $12,$13,.L44 + li $13,11 + + beq $12,$13,.L44 + li $13,12 + + beq $12,$13,.L51 + li $13,13 + + beq $12,$13,.L52 + li $13,14 + + beq $12,$13,.L44 + li $13,15 + + bnel $12,$13,.L58 + move $sp,$fp + + lw $12,0($fp) + andi $13,$12,0x400 + beq $13,$0,.L1 + andi $13,$12,0x4 + + beq $13,$0,.L19 + ld $14,48($fp) + + ld $12,48($fp) + li $13,1 + beq $12,$13,.L53 + li $13,2 + + beq $12,$13,.L54 + li $13,4 + + beq $12,$13,.L55 + li $13,8 + + bnel $12,$13,.L58 + move $sp,$fp + + ld $12,32($fp) + ld $2,0($12) +.L1: + move $sp,$fp +.L58: + ld $31,200($sp) + ld $fp,192($sp) + ld $18,176($sp) + ld $17,168($sp) + ld $16,160($sp) + j $31 + daddiu $sp,$sp,272 + + .align 3 +.L43: + move $sp,$fp + ld $31,200($sp) + ld $18,176($sp) + ld $17,168($sp) + ld $16,160($sp) + lb $2,8($fp) + ld $fp,192($sp) + j $31 + daddiu $sp,$sp,272 + + .align 3 +.L44: + b .L1 + ld $2,8($fp) + + .align 3 +.L46: + b .L1 + lbu $2,8($fp) + + .align 3 +.L47: + b .L1 + lh $2,8($fp) + + .align 3 +.L48: + b .L1 + lhu $2,8($fp) + + .align 3 +.L49: + b .L1 + lw $2,8($fp) + + .align 3 +.L51: + b .L1 + lwc1 $f0,8($fp) + + .align 3 +.L50: + b .L1 + lwu $2,8($fp) + +.L52: + b .L1 + ldc1 $f0,8($fp) + +.L19: + daddiu $13,$14,-1 + sltu $13,$13,16 + beql $13,$0,.L59 + andi $13,$12,0x800 + + ld $13,32($fp) + li $24,-8 + sltu $25,$14,9 + andi $15,$13,0x7 + and $24,$13,$24 + beq $25,$0,.L24 + daddu $13,$14,$15 + + sltu $25,$13,9 + sll $13,$13,0 + beq $25,$0,.L25 + subu $13,$0,$13 + + ld $25,0($24) + sll $13,$13,3 + li $24,-1 + dsll $13,$24,$13 + and $13,$13,$25 + sll $15,$15,3 + dsll $2,$13,$15 +.L23: + andi $13,$12,0x800 +.L59: + beql $13,$0,.L27 + andi $12,$12,0x1000 + + li $13,4 + beq $14,$13,.L56 + li $13,8 + + beql $14,$13,.L57 + ld $13,32($fp) + + andi $12,$12,0x1000 + beql $12,$0,.L58 + move $sp,$fp + + li $12,16 +.L60: + bnel $14,$12,.L58 + move $sp,$fp + + ld $12,32($fp) + ldc1 $f0,0($12) + b .L1 + ldc1 $f2,8($12) + +.L27: + beq $12,$0,.L1 + li $12,8 + + bne $14,$12,.L60 + li $12,16 + + ld $13,32($fp) + b .L1 + ldc1 $f0,0($13) + +.L24: + sltu $25,$13,17 + beq $25,$0,.L26 + sll $13,$13,0 + + ld $18,8($24) + subu $13,$0,$13 + move $16,$15 + li $25,-1 + subu $15,$0,$15 + sll $13,$13,3 + dsll $13,$25,$13 + ld $17,0($24) + sll $25,$15,2 + addiu $24,$25,32 + and $13,$13,$18 + sll $15,$16,3 + dsra $25,$13,$24 + dsll $16,$17,$15 + dsra $24,$25,$24 + or $2,$16,$24 + b .L23 + dsll $3,$13,$15 + +.L53: + ld $12,32($fp) + b .L1 + lbu $2,0($12) + +.L54: + ld $12,32($fp) + b .L1 + lhu $2,0($12) + +.L26: + ld $18,16($24) + subu $13,$0,$13 + ld $16,8($24) + ld $17,0($24) + subu $25,$0,$15 + sll $13,$13,3 + li $24,-1 + dsll $24,$24,$13 + sll $25,$25,3 + sll $15,$15,3 + addiu $25,$25,64 + and $13,$24,$18 + dsra $13,$13,$25 + dsll $24,$17,$15 + dsra $17,$16,$25 + dsll $15,$16,$15 + or $2,$24,$17 + b .L23 + or $3,$13,$15 + +.L56: + ld $12,32($fp) + b .L1 + lwc1 $f0,0($12) + +.L55: + ld $12,32($fp) + b .L1 + lwu $2,0($12) + +.L25: + ld $16,8($24) + ld $25,0($24) + sll $13,$13,3 + li $24,-1 + dsll $13,$24,$13 + subu $24,$0,$15 + and $13,$13,$16 + sll $24,$24,3 + sll $15,$15,3 + dsra $13,$13,$24 + dsll $15,$25,$15 + b .L23 + or $2,$13,$15 + +.L57: + andi $12,$12,0x1000 + lwc1 $f0,0($13) + beq $12,$0,.L1 + lwc1 $f2,4($13) + + b .L1 + ldc1 $f0,0($13) + + .set macro + .set reorder + .end callback_receiver + .size callback_receiver, .-callback_receiver + .align 2 + .align 3 + .globl callback_get_receiver + .set nomips16 + .set nomicromips + .ent callback_get_receiver + DECLARE_FUNCTION(callback_get_receiver) +callback_get_receiver: + .frame $fp,16,$31 + .mask 0x40000000,-8 + .fmask 0x00000000,0 + .set noreorder + .set nomacro + lui $13,%hi(%neg(%gp_rel(callback_get_receiver))) + daddu $13,$13,$25 + daddiu $13,$13,%lo(%neg(%gp_rel(callback_get_receiver))) + daddiu $sp,$sp,-16 + ld $12,%got_page(callback_receiver)($13) + sd $fp,8($sp) + move $fp,$sp + move $sp,$fp + ld $fp,8($sp) + daddiu $2,$12,%got_ofst(callback_receiver) + j $31 + daddiu $sp,$sp,16 + + .set macro + .set reorder + .end callback_get_receiver + .size callback_get_receiver, .-callback_get_receiver diff --git a/callback/vacall_r/vacall-mips64el-linux.s b/callback/vacall_r/vacall-mips64el-linux.s new file mode 100644 index 0000000..152978d --- /dev/null +++ b/callback/vacall_r/vacall-mips64el-linux.s @@ -0,0 +1,389 @@ + .file 1 "vacall-mips64.c" + .section .mdebug.abi64 + .previous + .nan legacy + .module fp=64 + .module oddspreg + .abicalls + .text + .align 2 + .align 3 + .set nomips16 + .set nomicromips + .ent callback_receiver + .type callback_receiver, @function +callback_receiver: + .frame $fp,272,$31 # vars= 160, regs= 6/0, args= 0, gp= 0 + .mask 0xd0070000,-72 + .fmask 0x00000000,0 + .set noreorder + .set nomacro + daddiu $sp,$sp,-272 + sd $fp,192($sp) + move $fp,$sp + sd $4,208($fp) + ld $4,8($2) + ld $25,0($2) + daddiu $12,$fp,208 + sd $31,200($sp) + sd $18,176($sp) + sd $17,168($sp) + sd $16,160($sp) + sd $5,216($fp) + sd $6,224($fp) + sd $7,232($fp) + sd $8,240($fp) + sd $9,248($fp) + sd $10,256($fp) + sd $11,264($fp) + sdc1 $f12,96($fp) + sdc1 $f13,104($fp) + sdc1 $f14,112($fp) + sdc1 $f15,120($fp) + sdc1 $f16,128($fp) + sdc1 $f17,136($fp) + sdc1 $f18,144($fp) + sdc1 $f19,152($fp) + swc1 $f12,60($fp) + swc1 $f13,64($fp) + swc1 $f14,68($fp) + swc1 $f15,72($fp) + swc1 $f16,76($fp) + swc1 $f17,80($fp) + swc1 $f18,84($fp) + move $5,$fp + swc1 $f19,88($fp) + sd $12,24($fp) + sw $0,0($fp) + sd $0,32($fp) + sw $0,40($fp) + jalr $25 + sw $0,56($fp) + + lw $12,40($fp) + beq $12,$0,.L1 + li $13,1 # 0x1 + + beq $12,$13,.L43 + li $13,2 # 0x2 + + beq $12,$13,.L43 + li $13,3 # 0x3 + + beq $12,$13,.L46 + li $13,4 # 0x4 + + beq $12,$13,.L47 + li $13,5 # 0x5 + + beq $12,$13,.L48 + li $13,6 # 0x6 + + beq $12,$13,.L49 + li $13,7 # 0x7 + + beq $12,$13,.L50 + li $13,8 # 0x8 + + beq $12,$13,.L44 + li $13,9 # 0x9 + + beq $12,$13,.L44 + li $13,10 # 0xa + + beq $12,$13,.L44 + li $13,11 # 0xb + + beq $12,$13,.L44 + li $13,12 # 0xc + + beq $12,$13,.L51 + li $13,13 # 0xd + + beq $12,$13,.L52 + li $13,14 # 0xe + + beq $12,$13,.L44 + li $13,15 # 0xf + + bnel $12,$13,.L58 + move $sp,$fp + + lw $12,0($fp) + andi $13,$12,0x400 + beq $13,$0,.L1 + andi $13,$12,0x4 + + beq $13,$0,.L19 + ld $14,48($fp) + + ld $12,48($fp) + li $13,1 # 0x1 + beq $12,$13,.L53 + li $13,2 # 0x2 + + beq $12,$13,.L54 + li $13,4 # 0x4 + + beq $12,$13,.L55 + li $13,8 # 0x8 + + bnel $12,$13,.L58 + move $sp,$fp + + ld $12,32($fp) + ld $2,0($12) +.L1: + move $sp,$fp +.L58: + ld $31,200($sp) + ld $fp,192($sp) + ld $18,176($sp) + ld $17,168($sp) + ld $16,160($sp) + j $31 + daddiu $sp,$sp,272 + + .align 3 +.L43: + move $sp,$fp + ld $31,200($sp) + ld $18,176($sp) + ld $17,168($sp) + ld $16,160($sp) + lb $2,8($fp) + ld $fp,192($sp) + j $31 + daddiu $sp,$sp,272 + + .align 3 +.L44: + b .L1 + ld $2,8($fp) + + .align 3 +.L46: + b .L1 + lbu $2,8($fp) + + .align 3 +.L47: + b .L1 + lh $2,8($fp) + + .align 3 +.L48: + b .L1 + lhu $2,8($fp) + + .align 3 +.L49: + b .L1 + lw $2,8($fp) + + .align 3 +.L51: + b .L1 + lwc1 $f0,8($fp) + + .align 3 +.L50: + b .L1 + lwu $2,8($fp) + +.L52: + b .L1 + ldc1 $f0,8($fp) + +.L19: + daddiu $13,$14,-1 + sltu $13,$13,16 + beql $13,$0,.L59 + andi $13,$12,0x800 + + ld $13,32($fp) + li $15,-8 # 0xfffffffffffffff8 + sltu $25,$14,9 + andi $24,$13,0x7 + and $15,$13,$15 + beq $25,$0,.L24 + daddu $13,$14,$24 + + sltu $25,$13,9 + beq $25,$0,.L25 + dsll $13,$13,3 + + daddiu $13,$13,-1 + ld $25,0($15) + sll $13,$13,0 + li $15,2 # 0x2 + dsll $13,$15,$13 + daddiu $13,$13,-1 + and $13,$13,$25 + sll $24,$24,3 + dsra $2,$13,$24 +.L23: + andi $13,$12,0x800 +.L59: + beql $13,$0,.L27 + andi $12,$12,0x1000 + + li $13,4 # 0x4 + beq $14,$13,.L56 + li $13,8 # 0x8 + + beql $14,$13,.L57 + ld $13,32($fp) + + andi $12,$12,0x1000 + beql $12,$0,.L58 + move $sp,$fp + + li $12,16 # 0x10 +.L60: + bnel $14,$12,.L58 + move $sp,$fp + + ld $12,32($fp) + ldc1 $f0,0($12) + b .L1 + ldc1 $f2,8($12) + +.L27: + beq $12,$0,.L1 + li $12,8 # 0x8 + + bne $14,$12,.L60 + li $12,16 # 0x10 + + ld $13,32($fp) + b .L1 + ldc1 $f0,0($13) + +.L24: + sltu $25,$13,17 + beq $25,$0,.L26 + dsll $13,$13,3 + + daddiu $13,$13,-65 + ld $17,8($15) + li $25,2 # 0x2 + sll $13,$13,0 + dsll $13,$25,$13 + subu $25,$0,$24 + sll $25,$25,2 + ld $16,0($15) + daddiu $13,$13,-1 + addiu $15,$25,32 + and $13,$13,$17 + sll $24,$24,3 + dsll $25,$13,$15 + dsra $16,$16,$24 + dsll $15,$25,$15 + or $2,$16,$15 + b .L23 + dsra $3,$13,$24 + +.L53: + ld $12,32($fp) + b .L1 + lbu $2,0($12) + +.L54: + ld $12,32($fp) + b .L1 + lhu $2,0($12) + +.L26: + daddiu $13,$13,-129 + ld $16,8($15) + ld $17,0($15) + sll $13,$13,0 + ld $18,16($15) + li $15,2 # 0x2 + subu $25,$0,$24 + dsll $15,$15,$13 + daddiu $15,$15,-1 + sll $25,$25,3 + sll $24,$24,3 + addiu $25,$25,64 + and $13,$15,$18 + dsll $13,$13,$25 + dsra $15,$17,$24 + dsll $17,$16,$25 + dsra $24,$16,$24 + or $2,$15,$17 + b .L23 + or $3,$13,$24 + +.L56: + ld $12,32($fp) + b .L1 + lwc1 $f0,0($12) + +.L55: + ld $12,32($fp) + b .L1 + lwu $2,0($12) + +.L25: + daddiu $13,$13,-65 + li $25,2 # 0x2 + sll $13,$13,0 + ld $17,8($15) + dsll $13,$25,$13 + ld $25,0($15) + daddiu $13,$13,-1 + subu $16,$0,$24 + and $15,$13,$17 + sll $24,$24,3 + sll $13,$16,3 + dsll $13,$15,$13 + dsra $24,$25,$24 + b .L23 + or $2,$13,$24 + +.L57: + andi $12,$12,0x1000 + lwc1 $f0,0($13) + beq $12,$0,.L1 + lwc1 $f2,4($13) + + b .L1 + ldc1 $f0,0($13) + + .set macro + .set reorder + .end callback_receiver + .size callback_receiver, .-callback_receiver + .align 2 + .align 3 + .globl callback_get_receiver + .set nomips16 + .set nomicromips + .ent callback_get_receiver + .type callback_get_receiver, @function +callback_get_receiver: + .frame $fp,16,$31 # vars= 0, regs= 1/0, args= 0, gp= 0 + .mask 0x40000000,-8 + .fmask 0x00000000,0 + .set noreorder + .set nomacro + lui $13,%hi(%neg(%gp_rel(callback_get_receiver))) + daddu $13,$13,$25 + daddiu $13,$13,%lo(%neg(%gp_rel(callback_get_receiver))) + daddiu $sp,$sp,-16 + ld $12,%got_page(callback_receiver)($13) + sd $fp,8($sp) + move $fp,$sp + move $sp,$fp + ld $fp,8($sp) + daddiu $2,$12,%got_ofst(callback_receiver) + j $31 + daddiu $sp,$sp,16 + + .set macro + .set reorder + .end callback_get_receiver + .size callback_get_receiver, .-callback_get_receiver + .ident "GCC: (GNU) 5.4.0" diff --git a/callback/vacall_r/vacall-mips64el-macro.S b/callback/vacall_r/vacall-mips64el-macro.S new file mode 100644 index 0000000..d2d7d89 --- /dev/null +++ b/callback/vacall_r/vacall-mips64el-macro.S @@ -0,0 +1,383 @@ +#include "asm-mips.h" + .file 1 "vacall-mips64.c" + .text + .align 2 + .align 3 + .set nomips16 + .set nomicromips + .ent callback_receiver + DECLARE_FUNCTION(callback_receiver) +callback_receiver: + .frame $fp,272,$31 + .mask 0xd0070000,-72 + .fmask 0x00000000,0 + .set noreorder + .set nomacro + daddiu $sp,$sp,-272 + sd $fp,192($sp) + move $fp,$sp + sd $4,208($fp) + ld $4,8($2) + ld $25,0($2) + daddiu $12,$fp,208 + sd $31,200($sp) + sd $18,176($sp) + sd $17,168($sp) + sd $16,160($sp) + sd $5,216($fp) + sd $6,224($fp) + sd $7,232($fp) + sd $8,240($fp) + sd $9,248($fp) + sd $10,256($fp) + sd $11,264($fp) + sdc1 $f12,96($fp) + sdc1 $f13,104($fp) + sdc1 $f14,112($fp) + sdc1 $f15,120($fp) + sdc1 $f16,128($fp) + sdc1 $f17,136($fp) + sdc1 $f18,144($fp) + sdc1 $f19,152($fp) + swc1 $f12,60($fp) + swc1 $f13,64($fp) + swc1 $f14,68($fp) + swc1 $f15,72($fp) + swc1 $f16,76($fp) + swc1 $f17,80($fp) + swc1 $f18,84($fp) + move $5,$fp + swc1 $f19,88($fp) + sd $12,24($fp) + sw $0,0($fp) + sd $0,32($fp) + sw $0,40($fp) + jalr $25 + sw $0,56($fp) + + lw $12,40($fp) + beq $12,$0,.L1 + li $13,1 + + beq $12,$13,.L43 + li $13,2 + + beq $12,$13,.L43 + li $13,3 + + beq $12,$13,.L46 + li $13,4 + + beq $12,$13,.L47 + li $13,5 + + beq $12,$13,.L48 + li $13,6 + + beq $12,$13,.L49 + li $13,7 + + beq $12,$13,.L50 + li $13,8 + + beq $12,$13,.L44 + li $13,9 + + beq $12,$13,.L44 + li $13,10 + + beq $12,$13,.L44 + li $13,11 + + beq $12,$13,.L44 + li $13,12 + + beq $12,$13,.L51 + li $13,13 + + beq $12,$13,.L52 + li $13,14 + + beq $12,$13,.L44 + li $13,15 + + bnel $12,$13,.L58 + move $sp,$fp + + lw $12,0($fp) + andi $13,$12,0x400 + beq $13,$0,.L1 + andi $13,$12,0x4 + + beq $13,$0,.L19 + ld $14,48($fp) + + ld $12,48($fp) + li $13,1 + beq $12,$13,.L53 + li $13,2 + + beq $12,$13,.L54 + li $13,4 + + beq $12,$13,.L55 + li $13,8 + + bnel $12,$13,.L58 + move $sp,$fp + + ld $12,32($fp) + ld $2,0($12) +.L1: + move $sp,$fp +.L58: + ld $31,200($sp) + ld $fp,192($sp) + ld $18,176($sp) + ld $17,168($sp) + ld $16,160($sp) + j $31 + daddiu $sp,$sp,272 + + .align 3 +.L43: + move $sp,$fp + ld $31,200($sp) + ld $18,176($sp) + ld $17,168($sp) + ld $16,160($sp) + lb $2,8($fp) + ld $fp,192($sp) + j $31 + daddiu $sp,$sp,272 + + .align 3 +.L44: + b .L1 + ld $2,8($fp) + + .align 3 +.L46: + b .L1 + lbu $2,8($fp) + + .align 3 +.L47: + b .L1 + lh $2,8($fp) + + .align 3 +.L48: + b .L1 + lhu $2,8($fp) + + .align 3 +.L49: + b .L1 + lw $2,8($fp) + + .align 3 +.L51: + b .L1 + lwc1 $f0,8($fp) + + .align 3 +.L50: + b .L1 + lwu $2,8($fp) + +.L52: + b .L1 + ldc1 $f0,8($fp) + +.L19: + daddiu $13,$14,-1 + sltu $13,$13,16 + beql $13,$0,.L59 + andi $13,$12,0x800 + + ld $13,32($fp) + li $15,-8 + sltu $25,$14,9 + andi $24,$13,0x7 + and $15,$13,$15 + beq $25,$0,.L24 + daddu $13,$14,$24 + + sltu $25,$13,9 + beq $25,$0,.L25 + dsll $13,$13,3 + + daddiu $13,$13,-1 + ld $25,0($15) + sll $13,$13,0 + li $15,2 + dsll $13,$15,$13 + daddiu $13,$13,-1 + and $13,$13,$25 + sll $24,$24,3 + dsra $2,$13,$24 +.L23: + andi $13,$12,0x800 +.L59: + beql $13,$0,.L27 + andi $12,$12,0x1000 + + li $13,4 + beq $14,$13,.L56 + li $13,8 + + beql $14,$13,.L57 + ld $13,32($fp) + + andi $12,$12,0x1000 + beql $12,$0,.L58 + move $sp,$fp + + li $12,16 +.L60: + bnel $14,$12,.L58 + move $sp,$fp + + ld $12,32($fp) + ldc1 $f0,0($12) + b .L1 + ldc1 $f2,8($12) + +.L27: + beq $12,$0,.L1 + li $12,8 + + bne $14,$12,.L60 + li $12,16 + + ld $13,32($fp) + b .L1 + ldc1 $f0,0($13) + +.L24: + sltu $25,$13,17 + beq $25,$0,.L26 + dsll $13,$13,3 + + daddiu $13,$13,-65 + ld $17,8($15) + li $25,2 + sll $13,$13,0 + dsll $13,$25,$13 + subu $25,$0,$24 + sll $25,$25,2 + ld $16,0($15) + daddiu $13,$13,-1 + addiu $15,$25,32 + and $13,$13,$17 + sll $24,$24,3 + dsll $25,$13,$15 + dsra $16,$16,$24 + dsll $15,$25,$15 + or $2,$16,$15 + b .L23 + dsra $3,$13,$24 + +.L53: + ld $12,32($fp) + b .L1 + lbu $2,0($12) + +.L54: + ld $12,32($fp) + b .L1 + lhu $2,0($12) + +.L26: + daddiu $13,$13,-129 + ld $16,8($15) + ld $17,0($15) + sll $13,$13,0 + ld $18,16($15) + li $15,2 + subu $25,$0,$24 + dsll $15,$15,$13 + daddiu $15,$15,-1 + sll $25,$25,3 + sll $24,$24,3 + addiu $25,$25,64 + and $13,$15,$18 + dsll $13,$13,$25 + dsra $15,$17,$24 + dsll $17,$16,$25 + dsra $24,$16,$24 + or $2,$15,$17 + b .L23 + or $3,$13,$24 + +.L56: + ld $12,32($fp) + b .L1 + lwc1 $f0,0($12) + +.L55: + ld $12,32($fp) + b .L1 + lwu $2,0($12) + +.L25: + daddiu $13,$13,-65 + li $25,2 + sll $13,$13,0 + ld $17,8($15) + dsll $13,$25,$13 + ld $25,0($15) + daddiu $13,$13,-1 + subu $16,$0,$24 + and $15,$13,$17 + sll $24,$24,3 + sll $13,$16,3 + dsll $13,$15,$13 + dsra $24,$25,$24 + b .L23 + or $2,$13,$24 + +.L57: + andi $12,$12,0x1000 + lwc1 $f0,0($13) + beq $12,$0,.L1 + lwc1 $f2,4($13) + + b .L1 + ldc1 $f0,0($13) + + .set macro + .set reorder + .end callback_receiver + .size callback_receiver, .-callback_receiver + .align 2 + .align 3 + .globl callback_get_receiver + .set nomips16 + .set nomicromips + .ent callback_get_receiver + DECLARE_FUNCTION(callback_get_receiver) +callback_get_receiver: + .frame $fp,16,$31 + .mask 0x40000000,-8 + .fmask 0x00000000,0 + .set noreorder + .set nomacro + lui $13,%hi(%neg(%gp_rel(callback_get_receiver))) + daddu $13,$13,$25 + daddiu $13,$13,%lo(%neg(%gp_rel(callback_get_receiver))) + daddiu $sp,$sp,-16 + ld $12,%got_page(callback_receiver)($13) + sd $fp,8($sp) + move $fp,$sp + move $sp,$fp + ld $fp,8($sp) + daddiu $2,$12,%got_ofst(callback_receiver) + j $31 + daddiu $sp,$sp,16 + + .set macro + .set reorder + .end callback_get_receiver + .size callback_get_receiver, .-callback_get_receiver diff --git a/callback/vacall_r/vacall-mipseb-linux.s b/callback/vacall_r/vacall-mipseb-linux.s new file mode 100644 index 0000000..7d3634c --- /dev/null +++ b/callback/vacall_r/vacall-mipseb-linux.s @@ -0,0 +1,322 @@ + .file 1 "vacall-mips.c" + .section .mdebug.abi32 + .previous + .nan legacy + .module fp=xx + .module nooddspreg + .abicalls + .text + .align 2 + .set nomips16 + .set nomicromips + .ent callback_receiver + .type callback_receiver, @function +callback_receiver: + .frame $fp,104,$31 # vars= 72, regs= 2/0, args= 16, gp= 8 + .mask 0xc0000000,-4 + .fmask 0x00000000,0 + .set noreorder + .cpload $25 + .set reorder + addiu $sp,$sp,-104 + sw $fp,96($sp) + move $fp,$sp + sw $31,100($sp) + lw $25,0($2) + sw $4,104($fp) + lw $4,4($2) + sw $5,108($fp) + addiu $5,$fp,104 + sw $5,40($fp) + addiu $5,$fp,120 + sw $5,56($fp) + .cprestore 16 + sw $6,112($fp) + sw $7,116($fp) + sdc1 $f12,80($fp) + sdc1 $f14,88($fp) + swc1 $f12,68($fp) + swc1 $f14,72($fp) + sw $0,24($fp) + sw $0,44($fp) + sw $0,48($fp) + sw $0,60($fp) + sw $0,64($fp) + addiu $5,$fp,24 + jal $25 + lw $4,48($fp) + .set noreorder + .set nomacro + beq $4,$0,$L1 + li $5,1 # 0x1 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L23 + li $5,2 # 0x2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L23 + li $5,3 # 0x3 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L29 + li $5,4 # 0x4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L30 + li $5,5 # 0x5 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L31 + li $5,6 # 0x6 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,7 # 0x7 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,8 # 0x8 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,9 # 0x9 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + addiu $5,$4,-10 + .set macro + .set reorder + + sltu $5,$5,2 + .set noreorder + .set nomacro + bne $5,$0,$L32 + li $5,12 # 0xc + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L33 + li $5,13 # 0xd + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L34 + li $5,14 # 0xe + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,15 # 0xf + .set macro + .set reorder + + .set noreorder + .set nomacro + bnel $4,$5,$L37 + move $sp,$fp + .set macro + .set reorder + + lw $4,24($fp) + andi $4,$4,0x2 + .set noreorder + .set nomacro + beql $4,$0,$L38 + lw $2,44($fp) + .set macro + .set reorder + + lw $4,52($fp) + li $5,1 # 0x1 + .set noreorder + .set nomacro + beql $4,$5,$L35 + lw $4,44($fp) + .set macro + .set reorder + + li $5,2 # 0x2 + .set noreorder + .set nomacro + beq $4,$5,$L36 + li $5,4 # 0x4 + .set macro + .set reorder + + .set noreorder + .set nomacro + bnel $4,$5,$L37 + move $sp,$fp + .set macro + .set reorder + + lw $4,44($fp) + lw $2,0($4) +$L1: +$L38: + move $sp,$fp +$L37: + lw $31,100($sp) + lw $fp,96($sp) + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,104 + .set macro + .set reorder + +$L23: + move $sp,$fp + lw $31,100($sp) + lb $2,32($fp) + lw $fp,96($sp) + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,104 + .set macro + .set reorder + +$L27: + move $sp,$fp + lw $31,100($sp) + lw $2,32($fp) + lw $fp,96($sp) + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,104 + .set macro + .set reorder + +$L29: + .set noreorder + .set nomacro + b $L1 + lbu $2,32($fp) + .set macro + .set reorder + +$L30: + .set noreorder + .set nomacro + b $L1 + lh $2,32($fp) + .set macro + .set reorder + +$L31: + .set noreorder + .set nomacro + b $L1 + lhu $2,32($fp) + .set macro + .set reorder + +$L34: + .set noreorder + .set nomacro + b $L1 + ldc1 $f0,32($fp) + .set macro + .set reorder + +$L32: + lw $2,32($fp) + .set noreorder + .set nomacro + b $L1 + lw $3,36($fp) + .set macro + .set reorder + +$L33: + .set noreorder + .set nomacro + b $L1 + lwc1 $f0,32($fp) + .set macro + .set reorder + +$L35: + .set noreorder + .set nomacro + b $L1 + lbu $2,0($4) + .set macro + .set reorder + +$L36: + lw $4,44($fp) + .set noreorder + .set nomacro + b $L1 + lhu $2,0($4) + .set macro + .set reorder + + .end callback_receiver + .size callback_receiver, .-callback_receiver + .align 2 + .globl callback_get_receiver + .set nomips16 + .set nomicromips + .ent callback_get_receiver + .type callback_get_receiver, @function +callback_get_receiver: + .frame $fp,8,$31 # vars= 0, regs= 1/0, args= 0, gp= 0 + .mask 0x40000000,-4 + .fmask 0x00000000,0 + .set noreorder + .cpload $25 + .set reorder + addiu $sp,$sp,-8 + sw $fp,4($sp) + move $fp,$sp + move $sp,$fp + lw $fp,4($sp) + la $2,callback_receiver + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,8 + .set macro + .set reorder + + .end callback_get_receiver + .size callback_get_receiver, .-callback_get_receiver + .ident "GCC: (GNU) 5.4.0" diff --git a/callback/vacall_r/vacall-mipseb-macro.S b/callback/vacall_r/vacall-mipseb-macro.S new file mode 100644 index 0000000..f97bbb4 --- /dev/null +++ b/callback/vacall_r/vacall-mipseb-macro.S @@ -0,0 +1,316 @@ +#include "asm-mips.h" + .file 1 "vacall-mips.c" + .text + .align 2 + .set nomips16 + .set nomicromips + .ent callback_receiver + DECLARE_FUNCTION(callback_receiver) +callback_receiver: + .frame $fp,104,$31 + .mask 0xc0000000,-4 + .fmask 0x00000000,0 + .set noreorder + .cpload $25 + .set reorder + addiu $sp,$sp,-104 + sw $fp,96($sp) + move $fp,$sp + sw $31,100($sp) + lw $25,0($2) + sw $4,104($fp) + lw $4,4($2) + sw $5,108($fp) + addiu $5,$fp,104 + sw $5,40($fp) + addiu $5,$fp,120 + sw $5,56($fp) + .cprestore 16 + sw $6,112($fp) + sw $7,116($fp) + sdc1 $f12,80($fp) + sdc1 $f14,88($fp) + swc1 $f12,68($fp) + swc1 $f14,72($fp) + sw $0,24($fp) + sw $0,44($fp) + sw $0,48($fp) + sw $0,60($fp) + sw $0,64($fp) + addiu $5,$fp,24 + jal $25 + lw $4,48($fp) + .set noreorder + .set nomacro + beq $4,$0,$L1 + li $5,1 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L23 + li $5,2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L23 + li $5,3 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L29 + li $5,4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L30 + li $5,5 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L31 + li $5,6 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,7 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,8 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,9 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + addiu $5,$4,-10 + .set macro + .set reorder + + sltu $5,$5,2 + .set noreorder + .set nomacro + bne $5,$0,$L32 + li $5,12 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L33 + li $5,13 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L34 + li $5,14 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,15 + .set macro + .set reorder + + .set noreorder + .set nomacro + bnel $4,$5,$L37 + move $sp,$fp + .set macro + .set reorder + + lw $4,24($fp) + andi $4,$4,0x2 + .set noreorder + .set nomacro + beql $4,$0,$L38 + lw $2,44($fp) + .set macro + .set reorder + + lw $4,52($fp) + li $5,1 + .set noreorder + .set nomacro + beql $4,$5,$L35 + lw $4,44($fp) + .set macro + .set reorder + + li $5,2 + .set noreorder + .set nomacro + beq $4,$5,$L36 + li $5,4 + .set macro + .set reorder + + .set noreorder + .set nomacro + bnel $4,$5,$L37 + move $sp,$fp + .set macro + .set reorder + + lw $4,44($fp) + lw $2,0($4) +$L1: +$L38: + move $sp,$fp +$L37: + lw $31,100($sp) + lw $fp,96($sp) + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,104 + .set macro + .set reorder + +$L23: + move $sp,$fp + lw $31,100($sp) + lb $2,32($fp) + lw $fp,96($sp) + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,104 + .set macro + .set reorder + +$L27: + move $sp,$fp + lw $31,100($sp) + lw $2,32($fp) + lw $fp,96($sp) + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,104 + .set macro + .set reorder + +$L29: + .set noreorder + .set nomacro + b $L1 + lbu $2,32($fp) + .set macro + .set reorder + +$L30: + .set noreorder + .set nomacro + b $L1 + lh $2,32($fp) + .set macro + .set reorder + +$L31: + .set noreorder + .set nomacro + b $L1 + lhu $2,32($fp) + .set macro + .set reorder + +$L34: + .set noreorder + .set nomacro + b $L1 + ldc1 $f0,32($fp) + .set macro + .set reorder + +$L32: + lw $2,32($fp) + .set noreorder + .set nomacro + b $L1 + lw $3,36($fp) + .set macro + .set reorder + +$L33: + .set noreorder + .set nomacro + b $L1 + lwc1 $f0,32($fp) + .set macro + .set reorder + +$L35: + .set noreorder + .set nomacro + b $L1 + lbu $2,0($4) + .set macro + .set reorder + +$L36: + lw $4,44($fp) + .set noreorder + .set nomacro + b $L1 + lhu $2,0($4) + .set macro + .set reorder + + .end callback_receiver + .size callback_receiver, .-callback_receiver + .align 2 + .globl callback_get_receiver + .set nomips16 + .set nomicromips + .ent callback_get_receiver + DECLARE_FUNCTION(callback_get_receiver) +callback_get_receiver: + .frame $fp,8,$31 + .mask 0x40000000,-4 + .fmask 0x00000000,0 + .set noreorder + .cpload $25 + .set reorder + addiu $sp,$sp,-8 + sw $fp,4($sp) + move $fp,$sp + move $sp,$fp + lw $fp,4($sp) + la $2,callback_receiver + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,8 + .set macro + .set reorder + + .end callback_get_receiver + .size callback_get_receiver, .-callback_get_receiver diff --git a/callback/vacall_r/vacall-mipsel-linux.s b/callback/vacall_r/vacall-mipsel-linux.s new file mode 100644 index 0000000..7d3634c --- /dev/null +++ b/callback/vacall_r/vacall-mipsel-linux.s @@ -0,0 +1,322 @@ + .file 1 "vacall-mips.c" + .section .mdebug.abi32 + .previous + .nan legacy + .module fp=xx + .module nooddspreg + .abicalls + .text + .align 2 + .set nomips16 + .set nomicromips + .ent callback_receiver + .type callback_receiver, @function +callback_receiver: + .frame $fp,104,$31 # vars= 72, regs= 2/0, args= 16, gp= 8 + .mask 0xc0000000,-4 + .fmask 0x00000000,0 + .set noreorder + .cpload $25 + .set reorder + addiu $sp,$sp,-104 + sw $fp,96($sp) + move $fp,$sp + sw $31,100($sp) + lw $25,0($2) + sw $4,104($fp) + lw $4,4($2) + sw $5,108($fp) + addiu $5,$fp,104 + sw $5,40($fp) + addiu $5,$fp,120 + sw $5,56($fp) + .cprestore 16 + sw $6,112($fp) + sw $7,116($fp) + sdc1 $f12,80($fp) + sdc1 $f14,88($fp) + swc1 $f12,68($fp) + swc1 $f14,72($fp) + sw $0,24($fp) + sw $0,44($fp) + sw $0,48($fp) + sw $0,60($fp) + sw $0,64($fp) + addiu $5,$fp,24 + jal $25 + lw $4,48($fp) + .set noreorder + .set nomacro + beq $4,$0,$L1 + li $5,1 # 0x1 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L23 + li $5,2 # 0x2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L23 + li $5,3 # 0x3 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L29 + li $5,4 # 0x4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L30 + li $5,5 # 0x5 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L31 + li $5,6 # 0x6 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,7 # 0x7 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,8 # 0x8 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,9 # 0x9 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + addiu $5,$4,-10 + .set macro + .set reorder + + sltu $5,$5,2 + .set noreorder + .set nomacro + bne $5,$0,$L32 + li $5,12 # 0xc + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L33 + li $5,13 # 0xd + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L34 + li $5,14 # 0xe + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,15 # 0xf + .set macro + .set reorder + + .set noreorder + .set nomacro + bnel $4,$5,$L37 + move $sp,$fp + .set macro + .set reorder + + lw $4,24($fp) + andi $4,$4,0x2 + .set noreorder + .set nomacro + beql $4,$0,$L38 + lw $2,44($fp) + .set macro + .set reorder + + lw $4,52($fp) + li $5,1 # 0x1 + .set noreorder + .set nomacro + beql $4,$5,$L35 + lw $4,44($fp) + .set macro + .set reorder + + li $5,2 # 0x2 + .set noreorder + .set nomacro + beq $4,$5,$L36 + li $5,4 # 0x4 + .set macro + .set reorder + + .set noreorder + .set nomacro + bnel $4,$5,$L37 + move $sp,$fp + .set macro + .set reorder + + lw $4,44($fp) + lw $2,0($4) +$L1: +$L38: + move $sp,$fp +$L37: + lw $31,100($sp) + lw $fp,96($sp) + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,104 + .set macro + .set reorder + +$L23: + move $sp,$fp + lw $31,100($sp) + lb $2,32($fp) + lw $fp,96($sp) + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,104 + .set macro + .set reorder + +$L27: + move $sp,$fp + lw $31,100($sp) + lw $2,32($fp) + lw $fp,96($sp) + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,104 + .set macro + .set reorder + +$L29: + .set noreorder + .set nomacro + b $L1 + lbu $2,32($fp) + .set macro + .set reorder + +$L30: + .set noreorder + .set nomacro + b $L1 + lh $2,32($fp) + .set macro + .set reorder + +$L31: + .set noreorder + .set nomacro + b $L1 + lhu $2,32($fp) + .set macro + .set reorder + +$L34: + .set noreorder + .set nomacro + b $L1 + ldc1 $f0,32($fp) + .set macro + .set reorder + +$L32: + lw $2,32($fp) + .set noreorder + .set nomacro + b $L1 + lw $3,36($fp) + .set macro + .set reorder + +$L33: + .set noreorder + .set nomacro + b $L1 + lwc1 $f0,32($fp) + .set macro + .set reorder + +$L35: + .set noreorder + .set nomacro + b $L1 + lbu $2,0($4) + .set macro + .set reorder + +$L36: + lw $4,44($fp) + .set noreorder + .set nomacro + b $L1 + lhu $2,0($4) + .set macro + .set reorder + + .end callback_receiver + .size callback_receiver, .-callback_receiver + .align 2 + .globl callback_get_receiver + .set nomips16 + .set nomicromips + .ent callback_get_receiver + .type callback_get_receiver, @function +callback_get_receiver: + .frame $fp,8,$31 # vars= 0, regs= 1/0, args= 0, gp= 0 + .mask 0x40000000,-4 + .fmask 0x00000000,0 + .set noreorder + .cpload $25 + .set reorder + addiu $sp,$sp,-8 + sw $fp,4($sp) + move $fp,$sp + move $sp,$fp + lw $fp,4($sp) + la $2,callback_receiver + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,8 + .set macro + .set reorder + + .end callback_get_receiver + .size callback_get_receiver, .-callback_get_receiver + .ident "GCC: (GNU) 5.4.0" diff --git a/callback/vacall_r/vacall-mipsel-macro.S b/callback/vacall_r/vacall-mipsel-macro.S new file mode 100644 index 0000000..f97bbb4 --- /dev/null +++ b/callback/vacall_r/vacall-mipsel-macro.S @@ -0,0 +1,316 @@ +#include "asm-mips.h" + .file 1 "vacall-mips.c" + .text + .align 2 + .set nomips16 + .set nomicromips + .ent callback_receiver + DECLARE_FUNCTION(callback_receiver) +callback_receiver: + .frame $fp,104,$31 + .mask 0xc0000000,-4 + .fmask 0x00000000,0 + .set noreorder + .cpload $25 + .set reorder + addiu $sp,$sp,-104 + sw $fp,96($sp) + move $fp,$sp + sw $31,100($sp) + lw $25,0($2) + sw $4,104($fp) + lw $4,4($2) + sw $5,108($fp) + addiu $5,$fp,104 + sw $5,40($fp) + addiu $5,$fp,120 + sw $5,56($fp) + .cprestore 16 + sw $6,112($fp) + sw $7,116($fp) + sdc1 $f12,80($fp) + sdc1 $f14,88($fp) + swc1 $f12,68($fp) + swc1 $f14,72($fp) + sw $0,24($fp) + sw $0,44($fp) + sw $0,48($fp) + sw $0,60($fp) + sw $0,64($fp) + addiu $5,$fp,24 + jal $25 + lw $4,48($fp) + .set noreorder + .set nomacro + beq $4,$0,$L1 + li $5,1 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L23 + li $5,2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L23 + li $5,3 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L29 + li $5,4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L30 + li $5,5 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L31 + li $5,6 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,7 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,8 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,9 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + addiu $5,$4,-10 + .set macro + .set reorder + + sltu $5,$5,2 + .set noreorder + .set nomacro + bne $5,$0,$L32 + li $5,12 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L33 + li $5,13 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L34 + li $5,14 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,15 + .set macro + .set reorder + + .set noreorder + .set nomacro + bnel $4,$5,$L37 + move $sp,$fp + .set macro + .set reorder + + lw $4,24($fp) + andi $4,$4,0x2 + .set noreorder + .set nomacro + beql $4,$0,$L38 + lw $2,44($fp) + .set macro + .set reorder + + lw $4,52($fp) + li $5,1 + .set noreorder + .set nomacro + beql $4,$5,$L35 + lw $4,44($fp) + .set macro + .set reorder + + li $5,2 + .set noreorder + .set nomacro + beq $4,$5,$L36 + li $5,4 + .set macro + .set reorder + + .set noreorder + .set nomacro + bnel $4,$5,$L37 + move $sp,$fp + .set macro + .set reorder + + lw $4,44($fp) + lw $2,0($4) +$L1: +$L38: + move $sp,$fp +$L37: + lw $31,100($sp) + lw $fp,96($sp) + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,104 + .set macro + .set reorder + +$L23: + move $sp,$fp + lw $31,100($sp) + lb $2,32($fp) + lw $fp,96($sp) + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,104 + .set macro + .set reorder + +$L27: + move $sp,$fp + lw $31,100($sp) + lw $2,32($fp) + lw $fp,96($sp) + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,104 + .set macro + .set reorder + +$L29: + .set noreorder + .set nomacro + b $L1 + lbu $2,32($fp) + .set macro + .set reorder + +$L30: + .set noreorder + .set nomacro + b $L1 + lh $2,32($fp) + .set macro + .set reorder + +$L31: + .set noreorder + .set nomacro + b $L1 + lhu $2,32($fp) + .set macro + .set reorder + +$L34: + .set noreorder + .set nomacro + b $L1 + ldc1 $f0,32($fp) + .set macro + .set reorder + +$L32: + lw $2,32($fp) + .set noreorder + .set nomacro + b $L1 + lw $3,36($fp) + .set macro + .set reorder + +$L33: + .set noreorder + .set nomacro + b $L1 + lwc1 $f0,32($fp) + .set macro + .set reorder + +$L35: + .set noreorder + .set nomacro + b $L1 + lbu $2,0($4) + .set macro + .set reorder + +$L36: + lw $4,44($fp) + .set noreorder + .set nomacro + b $L1 + lhu $2,0($4) + .set macro + .set reorder + + .end callback_receiver + .size callback_receiver, .-callback_receiver + .align 2 + .globl callback_get_receiver + .set nomips16 + .set nomicromips + .ent callback_get_receiver + DECLARE_FUNCTION(callback_get_receiver) +callback_get_receiver: + .frame $fp,8,$31 + .mask 0x40000000,-4 + .fmask 0x00000000,0 + .set noreorder + .cpload $25 + .set reorder + addiu $sp,$sp,-8 + sw $fp,4($sp) + move $fp,$sp + move $sp,$fp + lw $fp,4($sp) + la $2,callback_receiver + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,8 + .set macro + .set reorder + + .end callback_get_receiver + .size callback_get_receiver, .-callback_get_receiver diff --git a/callback/vacall_r/vacall-mipsn32eb-linux.s b/callback/vacall_r/vacall-mipsn32eb-linux.s new file mode 100644 index 0000000..96318a1 --- /dev/null +++ b/callback/vacall_r/vacall-mipsn32eb-linux.s @@ -0,0 +1,381 @@ + .file 1 "vacall-mipsn32.c" + .section .mdebug.abiN32 + .previous + .nan legacy + .module fp=64 + .module oddspreg + .abicalls + .text + .align 2 + .align 3 + .set nomips16 + .set nomicromips + .ent callback_receiver + .type callback_receiver, @function +callback_receiver: + .frame $fp,256,$31 # vars= 144, regs= 6/0, args= 0, gp= 0 + .mask 0xd0070000,-72 + .fmask 0x00000000,0 + .set noreorder + .set nomacro + addiu $sp,$sp,-256 + sd $fp,176($sp) + move $fp,$sp + sd $4,192($fp) + lw $4,4($2) + lw $25,0($2) + addiu $12,$fp,192 + sd $31,184($sp) + sd $18,160($sp) + sd $17,152($sp) + sd $16,144($sp) + sd $5,200($fp) + sd $6,208($fp) + sd $7,216($fp) + sd $8,224($fp) + sd $9,232($fp) + sd $10,240($fp) + sd $11,248($fp) + sdc1 $f12,80($fp) + sdc1 $f13,88($fp) + sdc1 $f14,96($fp) + sdc1 $f15,104($fp) + sdc1 $f16,112($fp) + sdc1 $f17,120($fp) + sdc1 $f18,128($fp) + sdc1 $f19,136($fp) + swc1 $f12,44($fp) + swc1 $f13,48($fp) + swc1 $f14,52($fp) + swc1 $f15,56($fp) + swc1 $f16,60($fp) + swc1 $f17,64($fp) + swc1 $f18,68($fp) + move $5,$fp + swc1 $f19,72($fp) + sw $12,24($fp) + sw $0,0($fp) + sw $0,28($fp) + sw $0,32($fp) + jalr $25 + sw $0,40($fp) + + lw $12,32($fp) + beq $12,$0,.L1 + li $13,1 # 0x1 + + beq $12,$13,.L43 + li $13,2 # 0x2 + + beq $12,$13,.L43 + li $13,3 # 0x3 + + beq $12,$13,.L49 + li $13,4 # 0x4 + + beq $12,$13,.L50 + li $13,5 # 0x5 + + beq $12,$13,.L51 + li $13,6 # 0x6 + + beq $12,$13,.L46 + li $13,7 # 0x7 + + beq $12,$13,.L45 + li $13,8 # 0x8 + + beq $12,$13,.L46 + li $13,9 # 0x9 + + beq $12,$13,.L45 + li $13,10 # 0xa + + beq $12,$13,.L47 + li $13,11 # 0xb + + beq $12,$13,.L47 + li $13,12 # 0xc + + beq $12,$13,.L52 + li $13,13 # 0xd + + beq $12,$13,.L53 + li $13,14 # 0xe + + beq $12,$13,.L46 + li $13,15 # 0xf + + bnel $12,$13,.L59 + move $sp,$fp + + lw $12,0($fp) + andi $13,$12,0x400 + beq $13,$0,.L1 + andi $13,$12,0x4 + + beq $13,$0,.L19 + lw $24,36($fp) + + lw $12,36($fp) + li $13,1 # 0x1 + beq $12,$13,.L54 + li $13,2 # 0x2 + + beq $12,$13,.L55 + li $13,4 # 0x4 + + beq $12,$13,.L56 + li $13,8 # 0x8 + + bnel $12,$13,.L59 + move $sp,$fp + + lw $12,28($fp) + ld $2,0($12) +.L1: + move $sp,$fp +.L59: + ld $31,184($sp) + ld $fp,176($sp) + ld $18,160($sp) + ld $17,152($sp) + ld $16,144($sp) + j $31 + addiu $sp,$sp,256 + + .align 3 +.L43: + move $sp,$fp + ld $31,184($sp) + ld $18,160($sp) + ld $17,152($sp) + ld $16,144($sp) + lb $2,8($fp) + ld $fp,176($sp) + j $31 + addiu $sp,$sp,256 + + .align 3 +.L46: + b .L1 + lw $2,8($fp) + + .align 3 +.L49: + b .L1 + lbu $2,8($fp) + + .align 3 +.L50: + b .L1 + lh $2,8($fp) + + .align 3 +.L45: + b .L1 + lwu $2,8($fp) + + .align 3 +.L51: + b .L1 + lhu $2,8($fp) + + .align 3 +.L52: + b .L1 + lwc1 $f0,8($fp) + + .align 3 +.L47: + b .L1 + ld $2,8($fp) + +.L53: + b .L1 + ldc1 $f0,8($fp) + +.L19: + addiu $13,$24,-1 + sltu $13,$13,16 + beql $13,$0,.L60 + andi $13,$12,0x800 + + lw $13,28($fp) + li $15,-8 # 0xfffffffffffffff8 + sltu $25,$24,9 + andi $14,$13,0x7 + and $15,$13,$15 + beq $25,$0,.L24 + addu $13,$24,$14 + + sltu $25,$13,9 + beq $25,$0,.L25 + subu $13,$0,$13 + + ld $25,0($15) + sll $13,$13,3 + li $15,-1 # 0xffffffffffffffff + dsll $13,$15,$13 + and $13,$13,$25 + sll $14,$14,3 + dsll $2,$13,$14 +.L23: + andi $13,$12,0x800 +.L60: + beql $13,$0,.L27 + andi $12,$12,0x1000 + + li $13,4 # 0x4 + beq $24,$13,.L57 + li $13,8 # 0x8 + + beql $24,$13,.L58 + lw $13,28($fp) + + andi $12,$12,0x1000 + beql $12,$0,.L59 + move $sp,$fp + + li $12,16 # 0x10 +.L61: + bnel $24,$12,.L59 + move $sp,$fp + + lw $12,28($fp) + ldc1 $f0,0($12) + b .L1 + ldc1 $f2,8($12) + +.L27: + beq $12,$0,.L1 + li $12,8 # 0x8 + + bne $24,$12,.L61 + li $12,16 # 0x10 + + lw $13,28($fp) + b .L1 + ldc1 $f0,0($13) + +.L24: + sltu $25,$13,17 + beq $25,$0,.L26 + subu $13,$0,$13 + + ld $17,8($15) + subu $16,$0,$14 + li $25,-1 # 0xffffffffffffffff + sll $13,$13,3 + dsll $13,$25,$13 + sll $25,$16,2 + ld $16,0($15) + and $13,$13,$17 + addiu $15,$25,32 + sll $14,$14,3 + dsra $25,$13,$15 + dsll $16,$16,$14 + dsra $15,$25,$15 + or $2,$16,$15 + b .L23 + dsll $3,$13,$14 + +.L54: + lw $12,28($fp) + b .L1 + lbu $2,0($12) + +.L55: + lw $12,28($fp) + b .L1 + lhu $2,0($12) + +.L26: + ld $18,16($15) + ld $16,8($15) + ld $17,0($15) + subu $25,$0,$14 + li $15,-1 # 0xffffffffffffffff + sll $13,$13,3 + sll $25,$25,3 + dsll $13,$15,$13 + sll $14,$14,3 + addiu $15,$25,64 + and $13,$13,$18 + dsll $25,$17,$14 + dsra $13,$13,$15 + dsra $17,$16,$15 + dsll $14,$16,$14 + or $2,$25,$17 + b .L23 + or $3,$13,$14 + +.L57: + lw $12,28($fp) + b .L1 + lwc1 $f0,0($12) + +.L56: + lw $12,28($fp) + b .L1 + lwu $2,0($12) + +.L25: + ld $16,8($15) + ld $25,0($15) + sll $13,$13,3 + li $15,-1 # 0xffffffffffffffff + dsll $13,$15,$13 + subu $15,$0,$14 + and $13,$13,$16 + sll $15,$15,3 + sll $14,$14,3 + dsra $13,$13,$15 + dsll $14,$25,$14 + b .L23 + or $2,$13,$14 + +.L58: + andi $12,$12,0x1000 + lwc1 $f0,0($13) + beq $12,$0,.L1 + lwc1 $f2,4($13) + + b .L1 + ldc1 $f0,0($13) + + .set macro + .set reorder + .end callback_receiver + .size callback_receiver, .-callback_receiver + .align 2 + .align 3 + .globl callback_get_receiver + .set nomips16 + .set nomicromips + .ent callback_get_receiver + .type callback_get_receiver, @function +callback_get_receiver: + .frame $fp,16,$31 # vars= 0, regs= 1/0, args= 0, gp= 0 + .mask 0x40000000,-8 + .fmask 0x00000000,0 + .set noreorder + .set nomacro + lui $13,%hi(%neg(%gp_rel(callback_get_receiver))) + addu $13,$13,$25 + addiu $13,$13,%lo(%neg(%gp_rel(callback_get_receiver))) + addiu $sp,$sp,-16 + lw $12,%got_page(callback_receiver)($13) + sd $fp,8($sp) + move $fp,$sp + move $sp,$fp + ld $fp,8($sp) + addiu $2,$12,%got_ofst(callback_receiver) + j $31 + addiu $sp,$sp,16 + + .set macro + .set reorder + .end callback_get_receiver + .size callback_get_receiver, .-callback_get_receiver + .ident "GCC: (GNU) 5.4.0" diff --git a/callback/vacall_r/vacall-mipsn32eb-macro.S b/callback/vacall_r/vacall-mipsn32eb-macro.S new file mode 100644 index 0000000..6f1e482 --- /dev/null +++ b/callback/vacall_r/vacall-mipsn32eb-macro.S @@ -0,0 +1,375 @@ +#include "asm-mips.h" + .file 1 "vacall-mipsn32.c" + .text + .align 2 + .align 3 + .set nomips16 + .set nomicromips + .ent callback_receiver + DECLARE_FUNCTION(callback_receiver) +callback_receiver: + .frame $fp,256,$31 + .mask 0xd0070000,-72 + .fmask 0x00000000,0 + .set noreorder + .set nomacro + addiu $sp,$sp,-256 + sd $fp,176($sp) + move $fp,$sp + sd $4,192($fp) + lw $4,4($2) + lw $25,0($2) + addiu $12,$fp,192 + sd $31,184($sp) + sd $18,160($sp) + sd $17,152($sp) + sd $16,144($sp) + sd $5,200($fp) + sd $6,208($fp) + sd $7,216($fp) + sd $8,224($fp) + sd $9,232($fp) + sd $10,240($fp) + sd $11,248($fp) + sdc1 $f12,80($fp) + sdc1 $f13,88($fp) + sdc1 $f14,96($fp) + sdc1 $f15,104($fp) + sdc1 $f16,112($fp) + sdc1 $f17,120($fp) + sdc1 $f18,128($fp) + sdc1 $f19,136($fp) + swc1 $f12,44($fp) + swc1 $f13,48($fp) + swc1 $f14,52($fp) + swc1 $f15,56($fp) + swc1 $f16,60($fp) + swc1 $f17,64($fp) + swc1 $f18,68($fp) + move $5,$fp + swc1 $f19,72($fp) + sw $12,24($fp) + sw $0,0($fp) + sw $0,28($fp) + sw $0,32($fp) + jalr $25 + sw $0,40($fp) + + lw $12,32($fp) + beq $12,$0,.L1 + li $13,1 + + beq $12,$13,.L43 + li $13,2 + + beq $12,$13,.L43 + li $13,3 + + beq $12,$13,.L49 + li $13,4 + + beq $12,$13,.L50 + li $13,5 + + beq $12,$13,.L51 + li $13,6 + + beq $12,$13,.L46 + li $13,7 + + beq $12,$13,.L45 + li $13,8 + + beq $12,$13,.L46 + li $13,9 + + beq $12,$13,.L45 + li $13,10 + + beq $12,$13,.L47 + li $13,11 + + beq $12,$13,.L47 + li $13,12 + + beq $12,$13,.L52 + li $13,13 + + beq $12,$13,.L53 + li $13,14 + + beq $12,$13,.L46 + li $13,15 + + bnel $12,$13,.L59 + move $sp,$fp + + lw $12,0($fp) + andi $13,$12,0x400 + beq $13,$0,.L1 + andi $13,$12,0x4 + + beq $13,$0,.L19 + lw $24,36($fp) + + lw $12,36($fp) + li $13,1 + beq $12,$13,.L54 + li $13,2 + + beq $12,$13,.L55 + li $13,4 + + beq $12,$13,.L56 + li $13,8 + + bnel $12,$13,.L59 + move $sp,$fp + + lw $12,28($fp) + ld $2,0($12) +.L1: + move $sp,$fp +.L59: + ld $31,184($sp) + ld $fp,176($sp) + ld $18,160($sp) + ld $17,152($sp) + ld $16,144($sp) + j $31 + addiu $sp,$sp,256 + + .align 3 +.L43: + move $sp,$fp + ld $31,184($sp) + ld $18,160($sp) + ld $17,152($sp) + ld $16,144($sp) + lb $2,8($fp) + ld $fp,176($sp) + j $31 + addiu $sp,$sp,256 + + .align 3 +.L46: + b .L1 + lw $2,8($fp) + + .align 3 +.L49: + b .L1 + lbu $2,8($fp) + + .align 3 +.L50: + b .L1 + lh $2,8($fp) + + .align 3 +.L45: + b .L1 + lwu $2,8($fp) + + .align 3 +.L51: + b .L1 + lhu $2,8($fp) + + .align 3 +.L52: + b .L1 + lwc1 $f0,8($fp) + + .align 3 +.L47: + b .L1 + ld $2,8($fp) + +.L53: + b .L1 + ldc1 $f0,8($fp) + +.L19: + addiu $13,$24,-1 + sltu $13,$13,16 + beql $13,$0,.L60 + andi $13,$12,0x800 + + lw $13,28($fp) + li $15,-8 + sltu $25,$24,9 + andi $14,$13,0x7 + and $15,$13,$15 + beq $25,$0,.L24 + addu $13,$24,$14 + + sltu $25,$13,9 + beq $25,$0,.L25 + subu $13,$0,$13 + + ld $25,0($15) + sll $13,$13,3 + li $15,-1 + dsll $13,$15,$13 + and $13,$13,$25 + sll $14,$14,3 + dsll $2,$13,$14 +.L23: + andi $13,$12,0x800 +.L60: + beql $13,$0,.L27 + andi $12,$12,0x1000 + + li $13,4 + beq $24,$13,.L57 + li $13,8 + + beql $24,$13,.L58 + lw $13,28($fp) + + andi $12,$12,0x1000 + beql $12,$0,.L59 + move $sp,$fp + + li $12,16 +.L61: + bnel $24,$12,.L59 + move $sp,$fp + + lw $12,28($fp) + ldc1 $f0,0($12) + b .L1 + ldc1 $f2,8($12) + +.L27: + beq $12,$0,.L1 + li $12,8 + + bne $24,$12,.L61 + li $12,16 + + lw $13,28($fp) + b .L1 + ldc1 $f0,0($13) + +.L24: + sltu $25,$13,17 + beq $25,$0,.L26 + subu $13,$0,$13 + + ld $17,8($15) + subu $16,$0,$14 + li $25,-1 + sll $13,$13,3 + dsll $13,$25,$13 + sll $25,$16,2 + ld $16,0($15) + and $13,$13,$17 + addiu $15,$25,32 + sll $14,$14,3 + dsra $25,$13,$15 + dsll $16,$16,$14 + dsra $15,$25,$15 + or $2,$16,$15 + b .L23 + dsll $3,$13,$14 + +.L54: + lw $12,28($fp) + b .L1 + lbu $2,0($12) + +.L55: + lw $12,28($fp) + b .L1 + lhu $2,0($12) + +.L26: + ld $18,16($15) + ld $16,8($15) + ld $17,0($15) + subu $25,$0,$14 + li $15,-1 + sll $13,$13,3 + sll $25,$25,3 + dsll $13,$15,$13 + sll $14,$14,3 + addiu $15,$25,64 + and $13,$13,$18 + dsll $25,$17,$14 + dsra $13,$13,$15 + dsra $17,$16,$15 + dsll $14,$16,$14 + or $2,$25,$17 + b .L23 + or $3,$13,$14 + +.L57: + lw $12,28($fp) + b .L1 + lwc1 $f0,0($12) + +.L56: + lw $12,28($fp) + b .L1 + lwu $2,0($12) + +.L25: + ld $16,8($15) + ld $25,0($15) + sll $13,$13,3 + li $15,-1 + dsll $13,$15,$13 + subu $15,$0,$14 + and $13,$13,$16 + sll $15,$15,3 + sll $14,$14,3 + dsra $13,$13,$15 + dsll $14,$25,$14 + b .L23 + or $2,$13,$14 + +.L58: + andi $12,$12,0x1000 + lwc1 $f0,0($13) + beq $12,$0,.L1 + lwc1 $f2,4($13) + + b .L1 + ldc1 $f0,0($13) + + .set macro + .set reorder + .end callback_receiver + .size callback_receiver, .-callback_receiver + .align 2 + .align 3 + .globl callback_get_receiver + .set nomips16 + .set nomicromips + .ent callback_get_receiver + DECLARE_FUNCTION(callback_get_receiver) +callback_get_receiver: + .frame $fp,16,$31 + .mask 0x40000000,-8 + .fmask 0x00000000,0 + .set noreorder + .set nomacro + lui $13,%hi(%neg(%gp_rel(callback_get_receiver))) + addu $13,$13,$25 + addiu $13,$13,%lo(%neg(%gp_rel(callback_get_receiver))) + addiu $sp,$sp,-16 + lw $12,%got_page(callback_receiver)($13) + sd $fp,8($sp) + move $fp,$sp + move $sp,$fp + ld $fp,8($sp) + addiu $2,$12,%got_ofst(callback_receiver) + j $31 + addiu $sp,$sp,16 + + .set macro + .set reorder + .end callback_get_receiver + .size callback_get_receiver, .-callback_get_receiver diff --git a/callback/vacall_r/vacall-mipsn32el-linux.s b/callback/vacall_r/vacall-mipsn32el-linux.s new file mode 100644 index 0000000..9f568ea --- /dev/null +++ b/callback/vacall_r/vacall-mipsn32el-linux.s @@ -0,0 +1,385 @@ + .file 1 "vacall-mipsn32.c" + .section .mdebug.abiN32 + .previous + .nan legacy + .module fp=64 + .module oddspreg + .abicalls + .text + .align 2 + .align 3 + .set nomips16 + .set nomicromips + .ent callback_receiver + .type callback_receiver, @function +callback_receiver: + .frame $fp,256,$31 # vars= 144, regs= 6/0, args= 0, gp= 0 + .mask 0xd0070000,-72 + .fmask 0x00000000,0 + .set noreorder + .set nomacro + addiu $sp,$sp,-256 + sd $fp,176($sp) + move $fp,$sp + sd $4,192($fp) + lw $4,4($2) + lw $25,0($2) + addiu $12,$fp,192 + sd $31,184($sp) + sd $18,160($sp) + sd $17,152($sp) + sd $16,144($sp) + sd $5,200($fp) + sd $6,208($fp) + sd $7,216($fp) + sd $8,224($fp) + sd $9,232($fp) + sd $10,240($fp) + sd $11,248($fp) + sdc1 $f12,80($fp) + sdc1 $f13,88($fp) + sdc1 $f14,96($fp) + sdc1 $f15,104($fp) + sdc1 $f16,112($fp) + sdc1 $f17,120($fp) + sdc1 $f18,128($fp) + sdc1 $f19,136($fp) + swc1 $f12,44($fp) + swc1 $f13,48($fp) + swc1 $f14,52($fp) + swc1 $f15,56($fp) + swc1 $f16,60($fp) + swc1 $f17,64($fp) + swc1 $f18,68($fp) + move $5,$fp + swc1 $f19,72($fp) + sw $12,24($fp) + sw $0,0($fp) + sw $0,28($fp) + sw $0,32($fp) + jalr $25 + sw $0,40($fp) + + lw $12,32($fp) + beq $12,$0,.L1 + li $13,1 # 0x1 + + beq $12,$13,.L43 + li $13,2 # 0x2 + + beq $12,$13,.L43 + li $13,3 # 0x3 + + beq $12,$13,.L49 + li $13,4 # 0x4 + + beq $12,$13,.L50 + li $13,5 # 0x5 + + beq $12,$13,.L51 + li $13,6 # 0x6 + + beq $12,$13,.L46 + li $13,7 # 0x7 + + beq $12,$13,.L45 + li $13,8 # 0x8 + + beq $12,$13,.L46 + li $13,9 # 0x9 + + beq $12,$13,.L45 + li $13,10 # 0xa + + beq $12,$13,.L47 + li $13,11 # 0xb + + beq $12,$13,.L47 + li $13,12 # 0xc + + beq $12,$13,.L52 + li $13,13 # 0xd + + beq $12,$13,.L53 + li $13,14 # 0xe + + beq $12,$13,.L46 + li $13,15 # 0xf + + bnel $12,$13,.L59 + move $sp,$fp + + lw $12,0($fp) + andi $13,$12,0x400 + beq $13,$0,.L1 + andi $13,$12,0x4 + + beq $13,$0,.L19 + lw $24,36($fp) + + lw $12,36($fp) + li $13,1 # 0x1 + beq $12,$13,.L54 + li $13,2 # 0x2 + + beq $12,$13,.L55 + li $13,4 # 0x4 + + beq $12,$13,.L56 + li $13,8 # 0x8 + + bnel $12,$13,.L59 + move $sp,$fp + + lw $12,28($fp) + ld $2,0($12) +.L1: + move $sp,$fp +.L59: + ld $31,184($sp) + ld $fp,176($sp) + ld $18,160($sp) + ld $17,152($sp) + ld $16,144($sp) + j $31 + addiu $sp,$sp,256 + + .align 3 +.L43: + move $sp,$fp + ld $31,184($sp) + ld $18,160($sp) + ld $17,152($sp) + ld $16,144($sp) + lb $2,8($fp) + ld $fp,176($sp) + j $31 + addiu $sp,$sp,256 + + .align 3 +.L46: + b .L1 + lw $2,8($fp) + + .align 3 +.L49: + b .L1 + lbu $2,8($fp) + + .align 3 +.L50: + b .L1 + lh $2,8($fp) + + .align 3 +.L45: + b .L1 + lwu $2,8($fp) + + .align 3 +.L51: + b .L1 + lhu $2,8($fp) + + .align 3 +.L52: + b .L1 + lwc1 $f0,8($fp) + + .align 3 +.L47: + b .L1 + ld $2,8($fp) + +.L53: + b .L1 + ldc1 $f0,8($fp) + +.L19: + addiu $13,$24,-1 + sltu $13,$13,16 + beql $13,$0,.L60 + andi $13,$12,0x800 + + lw $13,28($fp) + li $15,-8 # 0xfffffffffffffff8 + sltu $25,$24,9 + andi $14,$13,0x7 + and $15,$13,$15 + beq $25,$0,.L24 + addu $13,$24,$14 + + sltu $25,$13,9 + beq $25,$0,.L25 + sll $13,$13,3 + + ld $25,0($15) + addiu $13,$13,-1 + li $15,2 # 0x2 + dsll $13,$15,$13 + daddiu $13,$13,-1 + and $13,$13,$25 + sll $14,$14,3 + dsra $2,$13,$14 +.L23: + andi $13,$12,0x800 +.L60: + beql $13,$0,.L27 + andi $12,$12,0x1000 + + li $13,4 # 0x4 + beq $24,$13,.L57 + li $13,8 # 0x8 + + beql $24,$13,.L58 + lw $13,28($fp) + + andi $12,$12,0x1000 + beql $12,$0,.L59 + move $sp,$fp + + li $12,16 # 0x10 +.L61: + bnel $24,$12,.L59 + move $sp,$fp + + lw $12,28($fp) + ldc1 $f0,0($12) + b .L1 + ldc1 $f2,8($12) + +.L27: + beq $12,$0,.L1 + li $12,8 # 0x8 + + bne $24,$12,.L61 + li $12,16 # 0x10 + + lw $13,28($fp) + b .L1 + ldc1 $f0,0($13) + +.L24: + sltu $25,$13,17 + beq $25,$0,.L26 + sll $13,$13,3 + + ld $17,8($15) + li $25,2 # 0x2 + addiu $13,$13,-65 + dsll $13,$25,$13 + subu $25,$0,$14 + sll $25,$25,2 + ld $16,0($15) + daddiu $13,$13,-1 + addiu $15,$25,32 + and $13,$13,$17 + sll $14,$14,3 + dsll $25,$13,$15 + dsra $16,$16,$14 + dsll $15,$25,$15 + or $2,$16,$15 + b .L23 + dsra $3,$13,$14 + +.L54: + lw $12,28($fp) + b .L1 + lbu $2,0($12) + +.L55: + lw $12,28($fp) + b .L1 + lhu $2,0($12) + +.L26: + ld $16,8($15) + ld $17,0($15) + addiu $13,$13,-129 + ld $18,16($15) + li $15,2 # 0x2 + subu $25,$0,$14 + dsll $15,$15,$13 + daddiu $15,$15,-1 + sll $25,$25,3 + sll $14,$14,3 + addiu $25,$25,64 + and $13,$15,$18 + dsll $13,$13,$25 + dsra $15,$17,$14 + dsll $17,$16,$25 + dsra $14,$16,$14 + or $2,$15,$17 + b .L23 + or $3,$13,$14 + +.L57: + lw $12,28($fp) + b .L1 + lwc1 $f0,0($12) + +.L56: + lw $12,28($fp) + b .L1 + lwu $2,0($12) + +.L25: + li $25,2 # 0x2 + addiu $13,$13,-65 + ld $17,8($15) + dsll $13,$25,$13 + ld $25,0($15) + daddiu $13,$13,-1 + subu $16,$0,$14 + and $15,$13,$17 + sll $14,$14,3 + sll $13,$16,3 + dsll $13,$15,$13 + dsra $14,$25,$14 + b .L23 + or $2,$13,$14 + +.L58: + andi $12,$12,0x1000 + lwc1 $f0,0($13) + beq $12,$0,.L1 + lwc1 $f2,4($13) + + b .L1 + ldc1 $f0,0($13) + + .set macro + .set reorder + .end callback_receiver + .size callback_receiver, .-callback_receiver + .align 2 + .align 3 + .globl callback_get_receiver + .set nomips16 + .set nomicromips + .ent callback_get_receiver + .type callback_get_receiver, @function +callback_get_receiver: + .frame $fp,16,$31 # vars= 0, regs= 1/0, args= 0, gp= 0 + .mask 0x40000000,-8 + .fmask 0x00000000,0 + .set noreorder + .set nomacro + lui $13,%hi(%neg(%gp_rel(callback_get_receiver))) + addu $13,$13,$25 + addiu $13,$13,%lo(%neg(%gp_rel(callback_get_receiver))) + addiu $sp,$sp,-16 + lw $12,%got_page(callback_receiver)($13) + sd $fp,8($sp) + move $fp,$sp + move $sp,$fp + ld $fp,8($sp) + addiu $2,$12,%got_ofst(callback_receiver) + j $31 + addiu $sp,$sp,16 + + .set macro + .set reorder + .end callback_get_receiver + .size callback_get_receiver, .-callback_get_receiver + .ident "GCC: (GNU) 5.4.0" diff --git a/callback/vacall_r/vacall-mipsn32el-macro.S b/callback/vacall_r/vacall-mipsn32el-macro.S new file mode 100644 index 0000000..d1391d7 --- /dev/null +++ b/callback/vacall_r/vacall-mipsn32el-macro.S @@ -0,0 +1,379 @@ +#include "asm-mips.h" + .file 1 "vacall-mipsn32.c" + .text + .align 2 + .align 3 + .set nomips16 + .set nomicromips + .ent callback_receiver + DECLARE_FUNCTION(callback_receiver) +callback_receiver: + .frame $fp,256,$31 + .mask 0xd0070000,-72 + .fmask 0x00000000,0 + .set noreorder + .set nomacro + addiu $sp,$sp,-256 + sd $fp,176($sp) + move $fp,$sp + sd $4,192($fp) + lw $4,4($2) + lw $25,0($2) + addiu $12,$fp,192 + sd $31,184($sp) + sd $18,160($sp) + sd $17,152($sp) + sd $16,144($sp) + sd $5,200($fp) + sd $6,208($fp) + sd $7,216($fp) + sd $8,224($fp) + sd $9,232($fp) + sd $10,240($fp) + sd $11,248($fp) + sdc1 $f12,80($fp) + sdc1 $f13,88($fp) + sdc1 $f14,96($fp) + sdc1 $f15,104($fp) + sdc1 $f16,112($fp) + sdc1 $f17,120($fp) + sdc1 $f18,128($fp) + sdc1 $f19,136($fp) + swc1 $f12,44($fp) + swc1 $f13,48($fp) + swc1 $f14,52($fp) + swc1 $f15,56($fp) + swc1 $f16,60($fp) + swc1 $f17,64($fp) + swc1 $f18,68($fp) + move $5,$fp + swc1 $f19,72($fp) + sw $12,24($fp) + sw $0,0($fp) + sw $0,28($fp) + sw $0,32($fp) + jalr $25 + sw $0,40($fp) + + lw $12,32($fp) + beq $12,$0,.L1 + li $13,1 + + beq $12,$13,.L43 + li $13,2 + + beq $12,$13,.L43 + li $13,3 + + beq $12,$13,.L49 + li $13,4 + + beq $12,$13,.L50 + li $13,5 + + beq $12,$13,.L51 + li $13,6 + + beq $12,$13,.L46 + li $13,7 + + beq $12,$13,.L45 + li $13,8 + + beq $12,$13,.L46 + li $13,9 + + beq $12,$13,.L45 + li $13,10 + + beq $12,$13,.L47 + li $13,11 + + beq $12,$13,.L47 + li $13,12 + + beq $12,$13,.L52 + li $13,13 + + beq $12,$13,.L53 + li $13,14 + + beq $12,$13,.L46 + li $13,15 + + bnel $12,$13,.L59 + move $sp,$fp + + lw $12,0($fp) + andi $13,$12,0x400 + beq $13,$0,.L1 + andi $13,$12,0x4 + + beq $13,$0,.L19 + lw $24,36($fp) + + lw $12,36($fp) + li $13,1 + beq $12,$13,.L54 + li $13,2 + + beq $12,$13,.L55 + li $13,4 + + beq $12,$13,.L56 + li $13,8 + + bnel $12,$13,.L59 + move $sp,$fp + + lw $12,28($fp) + ld $2,0($12) +.L1: + move $sp,$fp +.L59: + ld $31,184($sp) + ld $fp,176($sp) + ld $18,160($sp) + ld $17,152($sp) + ld $16,144($sp) + j $31 + addiu $sp,$sp,256 + + .align 3 +.L43: + move $sp,$fp + ld $31,184($sp) + ld $18,160($sp) + ld $17,152($sp) + ld $16,144($sp) + lb $2,8($fp) + ld $fp,176($sp) + j $31 + addiu $sp,$sp,256 + + .align 3 +.L46: + b .L1 + lw $2,8($fp) + + .align 3 +.L49: + b .L1 + lbu $2,8($fp) + + .align 3 +.L50: + b .L1 + lh $2,8($fp) + + .align 3 +.L45: + b .L1 + lwu $2,8($fp) + + .align 3 +.L51: + b .L1 + lhu $2,8($fp) + + .align 3 +.L52: + b .L1 + lwc1 $f0,8($fp) + + .align 3 +.L47: + b .L1 + ld $2,8($fp) + +.L53: + b .L1 + ldc1 $f0,8($fp) + +.L19: + addiu $13,$24,-1 + sltu $13,$13,16 + beql $13,$0,.L60 + andi $13,$12,0x800 + + lw $13,28($fp) + li $15,-8 + sltu $25,$24,9 + andi $14,$13,0x7 + and $15,$13,$15 + beq $25,$0,.L24 + addu $13,$24,$14 + + sltu $25,$13,9 + beq $25,$0,.L25 + sll $13,$13,3 + + ld $25,0($15) + addiu $13,$13,-1 + li $15,2 + dsll $13,$15,$13 + daddiu $13,$13,-1 + and $13,$13,$25 + sll $14,$14,3 + dsra $2,$13,$14 +.L23: + andi $13,$12,0x800 +.L60: + beql $13,$0,.L27 + andi $12,$12,0x1000 + + li $13,4 + beq $24,$13,.L57 + li $13,8 + + beql $24,$13,.L58 + lw $13,28($fp) + + andi $12,$12,0x1000 + beql $12,$0,.L59 + move $sp,$fp + + li $12,16 +.L61: + bnel $24,$12,.L59 + move $sp,$fp + + lw $12,28($fp) + ldc1 $f0,0($12) + b .L1 + ldc1 $f2,8($12) + +.L27: + beq $12,$0,.L1 + li $12,8 + + bne $24,$12,.L61 + li $12,16 + + lw $13,28($fp) + b .L1 + ldc1 $f0,0($13) + +.L24: + sltu $25,$13,17 + beq $25,$0,.L26 + sll $13,$13,3 + + ld $17,8($15) + li $25,2 + addiu $13,$13,-65 + dsll $13,$25,$13 + subu $25,$0,$14 + sll $25,$25,2 + ld $16,0($15) + daddiu $13,$13,-1 + addiu $15,$25,32 + and $13,$13,$17 + sll $14,$14,3 + dsll $25,$13,$15 + dsra $16,$16,$14 + dsll $15,$25,$15 + or $2,$16,$15 + b .L23 + dsra $3,$13,$14 + +.L54: + lw $12,28($fp) + b .L1 + lbu $2,0($12) + +.L55: + lw $12,28($fp) + b .L1 + lhu $2,0($12) + +.L26: + ld $16,8($15) + ld $17,0($15) + addiu $13,$13,-129 + ld $18,16($15) + li $15,2 + subu $25,$0,$14 + dsll $15,$15,$13 + daddiu $15,$15,-1 + sll $25,$25,3 + sll $14,$14,3 + addiu $25,$25,64 + and $13,$15,$18 + dsll $13,$13,$25 + dsra $15,$17,$14 + dsll $17,$16,$25 + dsra $14,$16,$14 + or $2,$15,$17 + b .L23 + or $3,$13,$14 + +.L57: + lw $12,28($fp) + b .L1 + lwc1 $f0,0($12) + +.L56: + lw $12,28($fp) + b .L1 + lwu $2,0($12) + +.L25: + li $25,2 + addiu $13,$13,-65 + ld $17,8($15) + dsll $13,$25,$13 + ld $25,0($15) + daddiu $13,$13,-1 + subu $16,$0,$14 + and $15,$13,$17 + sll $14,$14,3 + sll $13,$16,3 + dsll $13,$15,$13 + dsra $14,$25,$14 + b .L23 + or $2,$13,$14 + +.L58: + andi $12,$12,0x1000 + lwc1 $f0,0($13) + beq $12,$0,.L1 + lwc1 $f2,4($13) + + b .L1 + ldc1 $f0,0($13) + + .set macro + .set reorder + .end callback_receiver + .size callback_receiver, .-callback_receiver + .align 2 + .align 3 + .globl callback_get_receiver + .set nomips16 + .set nomicromips + .ent callback_get_receiver + DECLARE_FUNCTION(callback_get_receiver) +callback_get_receiver: + .frame $fp,16,$31 + .mask 0x40000000,-8 + .fmask 0x00000000,0 + .set noreorder + .set nomacro + lui $13,%hi(%neg(%gp_rel(callback_get_receiver))) + addu $13,$13,$25 + addiu $13,$13,%lo(%neg(%gp_rel(callback_get_receiver))) + addiu $sp,$sp,-16 + lw $12,%got_page(callback_receiver)($13) + sd $fp,8($sp) + move $fp,$sp + move $sp,$fp + ld $fp,8($sp) + addiu $2,$12,%got_ofst(callback_receiver) + j $31 + addiu $sp,$sp,16 + + .set macro + .set reorder + .end callback_get_receiver + .size callback_get_receiver, .-callback_get_receiver diff --git a/callback/vacall_r/vacall-powerpc-aix.s b/callback/vacall_r/vacall-powerpc-aix.s new file mode 100644 index 0000000..6f4f595 --- /dev/null +++ b/callback/vacall_r/vacall-powerpc-aix.s @@ -0,0 +1,194 @@ + .file "../../vacall/vacall-powerpc.c" + .toc + .csect .text[PR] + .align 2 + .lglobl .callback_receiver + .csect callback_receiver[DS] +callback_receiver: + .long .callback_receiver, TOC[tc0], 0 + .csect .text[PR] +.callback_receiver: + .extern __mulh + .extern __mull + .extern __divss + .extern __divus + .extern __quoss + .extern __quous + mflr 0 + stw 0,8(1) + stw 28,-16(1) + stw 29,-12(1) + stw 31,-4(1) + stwu 1,-216(1) + mr 31,1 + lwz 28,0(11) + li 29,0 + addi 0,31,240 + stw 9,264(31) + stw 3,240(31) + stw 4,244(31) + stw 5,248(31) + stw 6,252(31) + stw 7,256(31) + stw 8,260(31) + stw 10,268(31) + stw 29,76(31) + stfd 1,92(31) + stfd 2,100(31) + stfd 3,108(31) + stfd 4,116(31) + stfd 5,124(31) + stfd 6,132(31) + stfd 7,140(31) + stfd 8,148(31) + stfd 9,156(31) + stfd 10,164(31) + stfd 11,172(31) + stfd 12,180(31) + stfd 13,188(31) + stw 0,72(31) + stw 29,88(31) + stw 29,56(31) + stw 29,80(31) + lwz 0,0(28) + lwz 3,4(11) + mtctr 0 + addi 4,31,56 + stw 2,20(1) + lwz 11,8(28) + lwz 2,4(28) + bctrl + lwz 2,20(1) + lwz 9,80(31) + cmpwi 0,9,0 + beq- 0,L..1 + cmpwi 0,9,1 + beq- 0,L..41 + cmpwi 0,9,2 + beq- 0,L..42 + cmpwi 0,9,3 + beq- 0,L..41 + cmpwi 0,9,4 + beq- 0,L..43 + cmpwi 0,9,5 + beq- 0,L..44 + cmpwi 0,9,6 + beq- 0,L..40 + cmpwi 0,9,7 + beq- 0,L..40 + cmpwi 0,9,8 + beq- 0,L..40 + cmpwi 0,9,9 + beq- 0,L..40 + addi 0,9,-10 + cmplwi 0,0,1 + bgt- 0,L..22 + lwz 3,64(31) + lwz 4,68(31) +L..1: + lwz 1,0(1) + lwz 0,8(1) + lwz 28,-16(1) + mtlr 0 + lwz 29,-12(1) + lwz 31,-4(1) + blr +L..22: + cmpwi 0,9,12 + beq- 0,L..45 + cmpwi 0,9,13 + beq- 0,L..46 + cmpwi 0,9,14 + beq- 0,L..40 + cmpwi 0,9,15 + bne+ 0,L..1 + lwz 0,56(31) + andi. 9,0,1024 + beq- 0,L..1 + lwz 0,84(31) + cmpwi 0,0,1 + beq- 0,L..47 + cmpwi 0,0,2 + beq- 0,L..48 + cmpwi 0,0,4 + beq- 0,L..49 + cmpwi 0,0,8 + bne+ 0,L..1 + lwz 9,76(31) + lwz 4,4(9) +L..39: + lwz 3,0(9) + b L..1 +L..49: + lwz 9,76(31) + b L..39 +L..48: + lwz 9,76(31) + lhz 3,0(9) + b L..1 +L..47: + lwz 9,76(31) + lbz 3,0(9) + b L..1 +L..40: + lwz 3,64(31) + b L..1 +L..46: + lfd 1,64(31) + b L..1 +L..45: + lfs 1,64(31) + b L..1 +L..44: + lhz 3,64(31) + b L..1 +L..43: + lha 3,64(31) + b L..1 +L..41: + lbz 3,64(31) + b L..1 +L..42: + lbz 0,64(31) + slwi 0,0,24 + srawi 3,0,24 + b L..1 +LT..callback_receiver: + .long 0 + .byte 0,0,32,97,128,4,8,0 + .long 0 + .long LT..callback_receiver-.callback_receiver + .short 17 + .byte "callback_receiver" + .byte 31 + .align 2 + .toc +LC..0: + .tc callback_receiver[TC],callback_receiver + .csect .text[PR] + .align 2 + .globl callback_get_receiver + .globl .callback_get_receiver + .csect callback_get_receiver[DS] +callback_get_receiver: + .long .callback_get_receiver, TOC[tc0], 0 + .csect .text[PR] +.callback_get_receiver: + stw 31,-4(1) + stwu 1,-40(1) + mr 31,1 + lwz 1,0(1) + lwz 3,LC..0(2) + lwz 31,-4(1) + blr +LT..callback_get_receiver: + .long 0 + .byte 0,0,32,96,128,1,0,0 + .long LT..callback_get_receiver-.callback_get_receiver + .short 21 + .byte "callback_get_receiver" + .byte 31 + .align 2 +_section_.text: + .csect .data[RW],3 + .long _section_.text diff --git a/callback/vacall_r/vacall-powerpc-linux-macro.S b/callback/vacall_r/vacall-powerpc-linux-macro.S new file mode 100644 index 0000000..d0d502f --- /dev/null +++ b/callback/vacall_r/vacall-powerpc-linux-macro.S @@ -0,0 +1,179 @@ + .file "vacall-powerpc.c" + .section ".text" + .align 2 + .type callback_receiver, @function +callback_receiver: + .extern __mulh + .extern __mull + .extern __divss + .extern __divus + .extern __quoss + .extern __quous + stwu 1,-176(1) + mflr 0 + stw 0,180(1) + stw 31,172(1) + mr 31,1 + stw 29,164(1) + addi 0,31,184 + li 29,0 + stw 0,32(31) + stw 29,36(31) + lwz 0,0(11) + stw 3,52(31) + stw 4,56(31) + mtctr 0 + stw 9,76(31) + addi 4,31,16 + stw 30,168(1) + stw 5,60(31) + stw 6,64(31) + stw 7,68(31) + stw 8,72(31) + stw 10,80(31) + stw 29,84(31) + stfd 1,88(31) + stfd 2,96(31) + stfd 3,104(31) + stfd 4,112(31) + stfd 5,120(31) + stfd 6,128(31) + stfd 7,136(31) + stfd 8,144(31) + stw 29,16(31) + stw 29,48(31) + stw 29,40(31) + lwz 3,4(11) + bctrl + lwz 9,40(31) + cmpwi 0,9,0 + beq- 0,.L1 + cmpwi 0,9,1 + beq- 0,.L41 + cmpwi 0,9,2 + beq- 0,.L42 + cmpwi 0,9,3 + beq- 0,.L41 + cmpwi 0,9,4 + beq- 0,.L43 + cmpwi 0,9,5 + beq- 0,.L44 + cmpwi 0,9,6 + beq- 0,.L40 + cmpwi 0,9,7 + beq- 0,.L40 + cmpwi 0,9,8 + beq- 0,.L40 + cmpwi 0,9,9 + beq- 0,.L40 + addi 0,9,-10 + cmplwi 0,0,1 + bgt- 0,.L22 + lwz 3,24(31) + lwz 4,28(31) +.L1: + lwz 11,0(1) + lwz 0,4(11) + lwz 29,-12(11) + lwz 30,-8(11) + mtlr 0 + lwz 31,-4(11) + mr 1,11 + blr +.L22: + cmpwi 0,9,12 + beq- 0,.L45 + cmpwi 0,9,13 + beq- 0,.L46 + cmpwi 0,9,14 + beq- 0,.L40 + cmpwi 0,9,15 + bne+ 0,.L1 + lwz 0,16(31) + andi. 9,0,1024 + beq- 0,.L1 + lwz 0,44(31) + cmpwi 0,0,1 + beq- 0,.L47 + cmpwi 0,0,2 + beq- 0,.L48 + cmpwi 0,0,4 + beq- 0,.L49 + cmpwi 0,0,8 + bne+ 0,.L1 + lwz 9,36(31) + lwz 4,4(9) +.L39: + lwz 3,0(9) + b .L1 +.L49: + lwz 9,36(31) + b .L39 +.L48: + lwz 9,36(31) + lhz 3,0(9) + b .L1 +.L47: + lwz 9,36(31) + lbz 3,0(9) + b .L1 +.L40: + lwz 3,24(31) + b .L1 +.L46: + lfd 1,24(31) + b .L1 +.L45: + lfs 1,24(31) + b .L1 +.L44: + lhz 3,24(31) + b .L1 +.L43: + lha 3,24(31) + b .L1 +.L41: + lbz 3,24(31) + b .L1 +.L42: + lbz 0,24(31) + slwi 0,0,24 + srawi 3,0,24 + b .L1 + .size callback_receiver, .-callback_receiver + .section ".got2","aw" +.LCTOC1 = .+32768 + .section ".text" + .section ".got2","aw" +.LC0: + .long callback_receiver + .section ".text" + .align 2 + .globl callback_get_receiver +.LCL1: + .long .LCTOC1-.LCF1 + .type callback_get_receiver, @function +callback_get_receiver: + stwu 1,-32(1) + mflr 0 + bcl 20,31,.LCF1 +.LCF1: + stw 30,24(1) + mflr 30 + stw 31,28(1) + mr 31,1 + stw 0,36(1) + lwz 11,0(1) + lwz 0,.LCL1-.LCF1(30) + lwz 31,-4(11) + add 30,0,30 + lwz 0,4(11) + lwz 3,.LC0-.LCTOC1(30) + lwz 30,-8(11) + mtlr 0 + mr 1,11 + blr + .size callback_get_receiver, .-callback_get_receiver +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/callback/vacall_r/vacall-powerpc-linux.s b/callback/vacall_r/vacall-powerpc-linux.s new file mode 100644 index 0000000..1456743 --- /dev/null +++ b/callback/vacall_r/vacall-powerpc-linux.s @@ -0,0 +1,178 @@ + .file "vacall-powerpc.c" + .section ".text" + .align 2 + .type callback_receiver, @function +callback_receiver: + .extern __mulh + .extern __mull + .extern __divss + .extern __divus + .extern __quoss + .extern __quous + stwu 1,-176(1) + mflr 0 + stw 0,180(1) + stw 31,172(1) + mr 31,1 + stw 29,164(1) + addi 0,31,184 + li 29,0 + stw 0,32(31) + stw 29,36(31) + lwz 0,0(11) + stw 3,52(31) + stw 4,56(31) + mtctr 0 + stw 9,76(31) + addi 4,31,16 + stw 30,168(1) + stw 5,60(31) + stw 6,64(31) + stw 7,68(31) + stw 8,72(31) + stw 10,80(31) + stw 29,84(31) + stfd 1,88(31) + stfd 2,96(31) + stfd 3,104(31) + stfd 4,112(31) + stfd 5,120(31) + stfd 6,128(31) + stfd 7,136(31) + stfd 8,144(31) + stw 29,16(31) + stw 29,48(31) + stw 29,40(31) + lwz 3,4(11) + bctrl + lwz 9,40(31) + cmpwi 0,9,0 + beq- 0,.L1 + cmpwi 0,9,1 + beq- 0,.L41 + cmpwi 0,9,2 + beq- 0,.L42 + cmpwi 0,9,3 + beq- 0,.L41 + cmpwi 0,9,4 + beq- 0,.L43 + cmpwi 0,9,5 + beq- 0,.L44 + cmpwi 0,9,6 + beq- 0,.L40 + cmpwi 0,9,7 + beq- 0,.L40 + cmpwi 0,9,8 + beq- 0,.L40 + cmpwi 0,9,9 + beq- 0,.L40 + addi 0,9,-10 + cmplwi 0,0,1 + bgt- 0,.L22 + lwz 3,24(31) + lwz 4,28(31) +.L1: + lwz 11,0(1) + lwz 0,4(11) + lwz 29,-12(11) + lwz 30,-8(11) + mtlr 0 + lwz 31,-4(11) + mr 1,11 + blr +.L22: + cmpwi 0,9,12 + beq- 0,.L45 + cmpwi 0,9,13 + beq- 0,.L46 + cmpwi 0,9,14 + beq- 0,.L40 + cmpwi 0,9,15 + bne+ 0,.L1 + lwz 0,16(31) + andi. 9,0,1024 + beq- 0,.L1 + lwz 0,44(31) + cmpwi 0,0,1 + beq- 0,.L47 + cmpwi 0,0,2 + beq- 0,.L48 + cmpwi 0,0,4 + beq- 0,.L49 + cmpwi 0,0,8 + bne+ 0,.L1 + lwz 9,36(31) + lwz 4,4(9) +.L39: + lwz 3,0(9) + b .L1 +.L49: + lwz 9,36(31) + b .L39 +.L48: + lwz 9,36(31) + lhz 3,0(9) + b .L1 +.L47: + lwz 9,36(31) + lbz 3,0(9) + b .L1 +.L40: + lwz 3,24(31) + b .L1 +.L46: + lfd 1,24(31) + b .L1 +.L45: + lfs 1,24(31) + b .L1 +.L44: + lhz 3,24(31) + b .L1 +.L43: + lha 3,24(31) + b .L1 +.L41: + lbz 3,24(31) + b .L1 +.L42: + lbz 0,24(31) + slwi 0,0,24 + srawi 3,0,24 + b .L1 + .size callback_receiver, .-callback_receiver + .section ".got2","aw" +.LCTOC1 = .+32768 + .section ".text" + .section ".got2","aw" +.LC0: + .long callback_receiver + .section ".text" + .align 2 + .globl callback_get_receiver +.LCL1: + .long .LCTOC1-.LCF1 + .type callback_get_receiver, @function +callback_get_receiver: + stwu 1,-32(1) + mflr 0 + bcl 20,31,.LCF1 +.LCF1: + stw 30,24(1) + mflr 30 + stw 31,28(1) + mr 31,1 + stw 0,36(1) + lwz 11,0(1) + lwz 0,.LCL1-.LCF1(30) + lwz 31,-4(11) + add 30,0,30 + lwz 0,4(11) + lwz 3,.LC0-.LCTOC1(30) + lwz 30,-8(11) + mtlr 0 + mr 1,11 + blr + .size callback_get_receiver, .-callback_get_receiver + .section .note.GNU-stack,"",@progbits + .ident "GCC: (GNU) 3.3.6" diff --git a/callback/vacall_r/vacall-powerpc-macos.s b/callback/vacall_r/vacall-powerpc-macos.s new file mode 100644 index 0000000..0c9ce3b --- /dev/null +++ b/callback/vacall_r/vacall-powerpc-macos.s @@ -0,0 +1,154 @@ +.text + .align 2 +_callback_receiver: + mflr r0 + stmw r29,-12(r1) + stw r0,8(r1) + li r29,0 + stwu r1,-224(r1) + mr r30,r1 + addi r0,r30,248 + stw r29,84(r30) + stw r0,80(r30) + lwz r0,0(r11) + stw r3,248(r30) + stw r4,252(r30) + mtctr r0 + stw r9,272(r30) + addi r4,r30,64 + stw r5,256(r30) + stw r6,260(r30) + stw r7,264(r30) + stw r8,268(r30) + stw r10,276(r30) + stw r29,96(r30) + stfd f1,100(r30) + stfd f2,108(r30) + stfd f3,116(r30) + stfd f4,124(r30) + stfd f5,132(r30) + stfd f6,140(r30) + stfd f7,148(r30) + stfd f8,156(r30) + stfd f9,164(r30) + stfd f10,172(r30) + stfd f11,180(r30) + stfd f12,188(r30) + stfd f13,196(r30) + stw r29,64(r30) + stw r29,88(r30) + lwz r3,4(r11) + bctrl + lwz r9,88(r30) + cmpwi cr0,r9,0 + beq- cr0,L1 + cmpwi cr0,r9,1 + beq- cr0,L41 + cmpwi cr0,r9,2 + beq- cr0,L41 + cmpwi cr0,r9,3 + beq- cr0,L42 + cmpwi cr0,r9,4 + beq- cr0,L43 + cmpwi cr0,r9,5 + beq- cr0,L44 + cmpwi cr0,r9,6 + beq- cr0,L40 + cmpwi cr0,r9,7 + beq- cr0,L40 + cmpwi cr0,r9,8 + beq- cr0,L40 + cmpwi cr0,r9,9 + beq- cr0,L40 + addi r0,r9,-10 + cmplwi cr0,r0,1 + bgt- cr0,L22 + lwz r3,72(r30) + lwz r4,76(r30) +L1: + lwz r1,0(r1) + lwz r0,8(r1) + lmw r29,-12(r1) + mtlr r0 + blr +L22: + cmpwi cr0,r9,12 + beq- cr0,L45 + cmpwi cr0,r9,13 + beq- cr0,L46 + cmpwi cr0,r9,14 + beq- cr0,L40 + cmpwi cr0,r9,15 + bne+ cr0,L1 + lwz r0,64(r30) + andi. r9,r0,1024 + beq- cr0,L1 + lwz r0,92(r30) + cmpwi cr0,r0,1 + beq- cr0,L47 + cmpwi cr0,r0,2 + beq- cr0,L48 + cmpwi cr0,r0,4 + beq- cr0,L49 + cmpwi cr0,r0,8 + bne+ cr0,L1 + lwz r9,84(r30) + lwz r4,4(r9) +L39: + lwz r3,0(r9) + b L1 +L49: + lwz r9,84(r30) + b L39 +L48: + lwz r9,84(r30) + lhz r3,0(r9) + b L1 +L47: + lwz r9,84(r30) + lbz r3,0(r9) + b L1 +L40: + lwz r3,72(r30) + b L1 +L46: + lfd f1,72(r30) + b L1 +L45: + lfs f1,72(r30) + b L1 +L44: + lhz r3,72(r30) + b L1 +L43: + lha r3,72(r30) + b L1 +L42: + lbz r3,72(r30) + b L1 +L41: + lbz r0,72(r30) + extsb r3,r0 + b L1 + .align 2 + .globl _callback_get_receiver +_callback_get_receiver: + mflr r0 + stmw r30,-8(r1) + stw r0,8(r1) + bcl 20,31,L1$pb +L1$pb: + stwu r1,-48(r1) + mflr r31 + addis r9,r31,ha16(L_callback_receiver$non_lazy_ptr-L1$pb) + mr r30,r1 + lwz r3,lo16(L_callback_receiver$non_lazy_ptr-L1$pb)(r9) + lwz r1,0(r1) + lwz r0,8(r1) + lmw r30,-8(r1) + mtlr r0 + blr +.data + .align 2 +L_callback_receiver$non_lazy_ptr: + .long _callback_receiver diff --git a/callback/vacall_r/vacall-powerpc-sysv4-macro.S b/callback/vacall_r/vacall-powerpc-sysv4-macro.S new file mode 100644 index 0000000..d0d502f --- /dev/null +++ b/callback/vacall_r/vacall-powerpc-sysv4-macro.S @@ -0,0 +1,179 @@ + .file "vacall-powerpc.c" + .section ".text" + .align 2 + .type callback_receiver, @function +callback_receiver: + .extern __mulh + .extern __mull + .extern __divss + .extern __divus + .extern __quoss + .extern __quous + stwu 1,-176(1) + mflr 0 + stw 0,180(1) + stw 31,172(1) + mr 31,1 + stw 29,164(1) + addi 0,31,184 + li 29,0 + stw 0,32(31) + stw 29,36(31) + lwz 0,0(11) + stw 3,52(31) + stw 4,56(31) + mtctr 0 + stw 9,76(31) + addi 4,31,16 + stw 30,168(1) + stw 5,60(31) + stw 6,64(31) + stw 7,68(31) + stw 8,72(31) + stw 10,80(31) + stw 29,84(31) + stfd 1,88(31) + stfd 2,96(31) + stfd 3,104(31) + stfd 4,112(31) + stfd 5,120(31) + stfd 6,128(31) + stfd 7,136(31) + stfd 8,144(31) + stw 29,16(31) + stw 29,48(31) + stw 29,40(31) + lwz 3,4(11) + bctrl + lwz 9,40(31) + cmpwi 0,9,0 + beq- 0,.L1 + cmpwi 0,9,1 + beq- 0,.L41 + cmpwi 0,9,2 + beq- 0,.L42 + cmpwi 0,9,3 + beq- 0,.L41 + cmpwi 0,9,4 + beq- 0,.L43 + cmpwi 0,9,5 + beq- 0,.L44 + cmpwi 0,9,6 + beq- 0,.L40 + cmpwi 0,9,7 + beq- 0,.L40 + cmpwi 0,9,8 + beq- 0,.L40 + cmpwi 0,9,9 + beq- 0,.L40 + addi 0,9,-10 + cmplwi 0,0,1 + bgt- 0,.L22 + lwz 3,24(31) + lwz 4,28(31) +.L1: + lwz 11,0(1) + lwz 0,4(11) + lwz 29,-12(11) + lwz 30,-8(11) + mtlr 0 + lwz 31,-4(11) + mr 1,11 + blr +.L22: + cmpwi 0,9,12 + beq- 0,.L45 + cmpwi 0,9,13 + beq- 0,.L46 + cmpwi 0,9,14 + beq- 0,.L40 + cmpwi 0,9,15 + bne+ 0,.L1 + lwz 0,16(31) + andi. 9,0,1024 + beq- 0,.L1 + lwz 0,44(31) + cmpwi 0,0,1 + beq- 0,.L47 + cmpwi 0,0,2 + beq- 0,.L48 + cmpwi 0,0,4 + beq- 0,.L49 + cmpwi 0,0,8 + bne+ 0,.L1 + lwz 9,36(31) + lwz 4,4(9) +.L39: + lwz 3,0(9) + b .L1 +.L49: + lwz 9,36(31) + b .L39 +.L48: + lwz 9,36(31) + lhz 3,0(9) + b .L1 +.L47: + lwz 9,36(31) + lbz 3,0(9) + b .L1 +.L40: + lwz 3,24(31) + b .L1 +.L46: + lfd 1,24(31) + b .L1 +.L45: + lfs 1,24(31) + b .L1 +.L44: + lhz 3,24(31) + b .L1 +.L43: + lha 3,24(31) + b .L1 +.L41: + lbz 3,24(31) + b .L1 +.L42: + lbz 0,24(31) + slwi 0,0,24 + srawi 3,0,24 + b .L1 + .size callback_receiver, .-callback_receiver + .section ".got2","aw" +.LCTOC1 = .+32768 + .section ".text" + .section ".got2","aw" +.LC0: + .long callback_receiver + .section ".text" + .align 2 + .globl callback_get_receiver +.LCL1: + .long .LCTOC1-.LCF1 + .type callback_get_receiver, @function +callback_get_receiver: + stwu 1,-32(1) + mflr 0 + bcl 20,31,.LCF1 +.LCF1: + stw 30,24(1) + mflr 30 + stw 31,28(1) + mr 31,1 + stw 0,36(1) + lwz 11,0(1) + lwz 0,.LCL1-.LCF1(30) + lwz 31,-4(11) + add 30,0,30 + lwz 0,4(11) + lwz 3,.LC0-.LCTOC1(30) + lwz 30,-8(11) + mtlr 0 + mr 1,11 + blr + .size callback_get_receiver, .-callback_get_receiver +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/callback/vacall_r/vacall-powerpc64-aix.s b/callback/vacall_r/vacall-powerpc64-aix.s new file mode 100644 index 0000000..39d740a --- /dev/null +++ b/callback/vacall_r/vacall-powerpc64-aix.s @@ -0,0 +1,176 @@ + .file "../../vacall/vacall-powerpc64.c" + .csect .text[PR] + .toc + .csect .text[PR] + .align 2 + .align 4 + .lglobl .callback_receiver + .csect callback_receiver[DS],3 +callback_receiver: + .llong .callback_receiver, TOC[tc0], 0 + .csect .text[PR] +.callback_receiver: + mflr 0 + std 30,-16(1) + std 31,-8(1) + li 30,0 + std 0,16(1) + li 0,0 + stdu 1,-304(1) + ld 12,0(11) + mr 31,1 + std 9,400(31) + addi 9,31,352 + stfd 1,172(31) + stw 0,152(31) + stw 0,168(31) + std 3,352(31) + std 4,360(31) + ld 3,8(11) + std 5,368(31) + addi 4,31,112 + std 6,376(31) + std 7,384(31) + std 8,392(31) + std 10,408(31) + stfd 2,180(31) + stfd 3,188(31) + stfd 4,196(31) + stfd 5,204(31) + stfd 6,212(31) + stfd 7,220(31) + stfd 8,228(31) + stfd 9,236(31) + stfd 10,244(31) + stfd 11,252(31) + stfd 12,260(31) + stfd 13,268(31) + std 9,136(31) + std 0,144(31) + stw 30,112(31) + std 2,40(1) + ld 9,0(12) + ld 11,16(12) + mtctr 9 + ld 2,8(12) + bctrl + ld 2,40(1) + lwz 9,152(31) + cmpdi 7,9,0 + beq 7,L..1 + cmplwi 7,9,1 + beq 7,L..20 + cmplwi 7,9,2 + beq 7,L..23 + cmplwi 7,9,3 + beq 7,L..20 + cmplwi 7,9,4 + beq 7,L..24 + cmplwi 7,9,5 + beq 7,L..25 + cmplwi 7,9,6 + beq 7,L..26 + cmplwi 7,9,7 + beq 7,L..27 + cmplwi 7,9,8 + beq 7,L..21 + cmplwi 7,9,9 + beq 7,L..21 + cmplwi 7,9,10 + beq 7,L..21 + cmplwi 7,9,11 + beq 7,L..21 + cmplwi 7,9,12 + beq 7,L..28 + cmplwi 7,9,13 + beq 7,L..29 + cmplwi 7,9,14 + beq 7,L..21 +L..1: + addi 1,31,304 + ld 0,16(1) + ld 30,-16(1) + ld 31,-8(1) + mtlr 0 + blr + .align 4 +L..20: + lbz 3,120(31) + addi 1,31,304 + ld 0,16(1) + ld 30,-16(1) + ld 31,-8(1) + mtlr 0 + blr + .align 4 +L..23: + lbz 9,120(31) + extsb 3,9 + b L..1 + .align 4 +L..21: + ld 3,120(31) + b L..1 + .align 4 +L..24: + lha 3,120(31) + b L..1 + .align 4 +L..25: + lhz 3,120(31) + b L..1 + .align 4 +L..26: + lwa 3,120(31) + b L..1 + .align 4 +L..28: + lfs 1,120(31) + b L..1 + .align 4 +L..27: + lwz 3,120(31) + b L..1 +L..29: + lfd 1,120(31) + b L..1 +LT..callback_receiver: + .long 0 + .byte 0,0,32,97,128,2,8,0 + .long 0 + .long LT..callback_receiver-.callback_receiver + .short 17 + .byte "callback_receiver" + .byte 31 + .align 2 + .toc +LC..0: + .tc callback_receiver[TC],callback_receiver + .csect .text[PR] + .align 2 + .align 4 + .globl callback_get_receiver + .globl .callback_get_receiver + .csect callback_get_receiver[DS],3 +callback_get_receiver: + .llong .callback_get_receiver, TOC[tc0], 0 + .csect .text[PR] +.callback_get_receiver: + std 31,-8(1) + ld 3,LC..0(2) + stdu 1,-64(1) + mr 31,1 + addi 1,31,64 + ld 31,-8(1) + blr +LT..callback_get_receiver: + .long 0 + .byte 0,0,32,96,128,1,0,0 + .long LT..callback_get_receiver-.callback_get_receiver + .short 21 + .byte "callback_get_receiver" + .byte 31 + .align 2 +_section_.text: + .csect .data[RW],4 + .llong _section_.text diff --git a/callback/vacall_r/vacall-powerpc64-elfv2-linux.S b/callback/vacall_r/vacall-powerpc64-elfv2-linux.S new file mode 100644 index 0000000..25af0eb --- /dev/null +++ b/callback/vacall_r/vacall-powerpc64-elfv2-linux.S @@ -0,0 +1,241 @@ + .file "vacall-powerpc64.c" + .machine power4 + .abiversion 2 + .section ".toc","aw" + .section ".text" + .align 2 + .p2align 4,,15 + .type callback_receiver, @function +callback_receiver: +0: addis 2,12,.TOC.-0b@ha + addi 2,2,.TOC.-0b@l + .localentry callback_receiver,.-callback_receiver + mflr 0 + std 30,-16(1) + std 31,-8(1) + std 0,16(1) + stdu 1,-224(1) + li 0,0 + ld 30,0(11) + mr 31,1 + std 3,256(31) + std 4,264(31) + addi 4,31,32 + ld 3,8(11) + std 9,304(31) + mtctr 30 + li 9,0 + std 5,272(31) + std 6,280(31) + std 7,288(31) + std 8,296(31) + stw 9,32(31) + std 10,312(31) + stfd 1,96(31) + stfd 2,104(31) + mr 12,30 + addi 9,31,256 + stfd 3,112(31) + stfd 4,120(31) + stfd 5,128(31) + stfd 6,136(31) + std 9,56(31) + stfd 7,144(31) + stfd 8,152(31) + stfd 9,160(31) + stfd 10,168(31) + stfd 11,176(31) + stfd 12,184(31) + stfd 13,192(31) + std 0,64(31) + stw 0,72(31) + stw 0,88(31) + std 2,24(1) + bctrl + ld 2,24(1) + lwz 9,72(31) + cmpdi 7,9,0 + beq 7,.L1 + cmplwi 7,9,1 + beq 7,.L27 + cmplwi 7,9,2 + beq 7,.L30 + cmplwi 7,9,3 + beq 7,.L27 + cmplwi 7,9,4 + beq 7,.L31 + cmplwi 7,9,5 + beq 7,.L32 + cmplwi 7,9,6 + beq 7,.L33 + cmplwi 7,9,7 + beq 7,.L34 + cmplwi 7,9,8 + beq 7,.L28 + cmplwi 7,9,9 + beq 7,.L28 + cmplwi 7,9,10 + beq 7,.L28 + cmplwi 7,9,11 + beq 7,.L28 + cmplwi 7,9,12 + beq 7,.L35 + cmplwi 7,9,13 + beq 7,.L36 + cmplwi 7,9,14 + beq 7,.L28 + cmplwi 7,9,15 + bne 7,.L1 + lwz 9,32(31) + rldicl. 10,9,54,63 + beq 0,.L1 + ld 9,80(31) + addi 10,9,-1 + cmpldi 7,10,15 + bgt 7,.L1 + ld 8,64(31) + cmpldi 7,9,8 + rldicl 10,8,0,61 + rldicr 8,8,0,60 + add 9,9,10 + bgt 7,.L17 + cmpldi 7,9,8 + slwi 9,9,3 + bgt 7,.L18 + ld 7,0(8) + addi 9,9,-1 + li 8,2 + slwi 10,10,3 + sld 9,8,9 + addi 9,9,-1 + and 9,9,7 + srad 3,9,10 +.L1: + addi 1,31,224 + ld 0,16(1) + ld 30,-16(1) + ld 31,-8(1) + mtlr 0 + blr + .p2align 4,,15 +.L27: + addi 1,31,224 + lbz 3,40(31) + ld 0,16(1) + ld 30,-16(1) + ld 31,-8(1) + mtlr 0 + blr + .p2align 4,,15 +.L30: + lbz 9,40(31) + extsb 3,9 + b .L1 + .p2align 4,,15 +.L28: + ld 3,40(31) + b .L1 + .p2align 4,,15 +.L31: + lha 3,40(31) + b .L1 + .p2align 4,,15 +.L32: + lhz 3,40(31) + b .L1 + .p2align 4,,15 +.L33: + lwa 3,40(31) + b .L1 + .p2align 4,,15 +.L35: + lfs 1,40(31) + b .L1 + .p2align 4,,15 +.L34: + lwz 3,40(31) + b .L1 +.L36: + lfd 1,40(31) + b .L1 +.L17: + cmpldi 7,9,16 + rldicl 10,10,0,32 + slwi 9,9,3 + ble 7,.L37 + li 7,2 + addi 9,9,-129 + ld 0,16(8) + ld 5,0(8) + mulli 6,10,-8 + sld 9,7,9 + ld 7,8(8) + addi 8,9,-1 + slwi 9,10,3 + addi 6,6,64 + and 10,8,0 + srad 8,5,9 + sld 5,7,6 + srad 9,7,9 + sld 10,10,6 + or 3,8,5 + or 4,10,9 + b .L1 +.L18: + rldicl 10,10,0,32 + li 7,2 + ld 6,8(8) + ld 8,0(8) + addi 9,9,-65 + sld 9,7,9 + mulli 7,10,-8 + slwi 10,10,3 + addi 9,9,-1 + srad 10,8,10 + and 9,9,6 + addi 7,7,64 + sld 9,9,7 + or 3,9,10 + b .L1 +.L37: + li 7,2 + addi 9,9,-65 + ld 5,8(8) + ld 6,0(8) + sld 9,7,9 + mulli 7,10,-4 + addi 9,9,-1 + addi 7,7,32 + and 8,9,5 + slwi 9,10,3 + sld 10,8,7 + srad 6,6,9 + srad 4,8,9 + sld 7,10,7 + or 3,6,7 + b .L1 + .long 0 + .byte 0,0,0,1,128,2,0,0 + .size callback_receiver,.-callback_receiver + .align 2 + .p2align 4,,15 + .globl callback_get_receiver + .type callback_get_receiver, @function +callback_get_receiver: +0: addis 2,12,.TOC.-0b@ha + addi 2,2,.TOC.-0b@l + .localentry callback_get_receiver,.-callback_get_receiver + std 31,-8(1) + stdu 1,-48(1) + addis 3,2,callback_receiver@toc@ha + addi 3,3,callback_receiver@toc@l + mr 31,1 + addi 1,31,48 + ld 31,-8(1) + blr + .long 0 + .byte 0,0,0,0,128,1,0,0 + .size callback_get_receiver,.-callback_get_receiver +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/callback/vacall_r/vacall-powerpc64-linux.S b/callback/vacall_r/vacall-powerpc64-linux.S new file mode 100644 index 0000000..581289b --- /dev/null +++ b/callback/vacall_r/vacall-powerpc64-linux.S @@ -0,0 +1,164 @@ + .file "vacall-powerpc64.c" + .machine power4 + .section ".toc","aw" + .section ".text" + .align 2 + .p2align 4,,15 + .section ".opd","aw" + .align 3 +callback_receiver: + .quad .L.callback_receiver,.TOC.@tocbase,0 + .previous + .type callback_receiver, @function +.L.callback_receiver: + mflr 0 + std 30,-16(1) + std 31,-8(1) + li 30,0 + std 0,16(1) + stdu 1,-304(1) + li 0,0 + mr 31,1 + ld 12,0(11) + std 9,400(31) + addi 9,31,352 + stw 0,152(31) + stw 0,168(31) + std 3,352(31) + std 4,360(31) + ld 3,8(11) + std 5,368(31) + std 6,376(31) + addi 4,31,112 + std 7,384(31) + std 8,392(31) + std 10,408(31) + stfd 1,176(31) + stfd 2,184(31) + stfd 3,192(31) + stfd 4,200(31) + stfd 5,208(31) + stfd 6,216(31) + stfd 7,224(31) + stfd 8,232(31) + stfd 9,240(31) + stfd 10,248(31) + stfd 11,256(31) + stfd 12,264(31) + stfd 13,272(31) + std 9,136(31) + std 0,144(31) + stw 30,112(31) + std 2,40(1) + ld 9,0(12) + ld 11,16(12) + mtctr 9 + ld 2,8(12) + bctrl + ld 2,40(1) + lwz 9,152(31) + cmpdi 7,9,0 + beq 7,.L1 + cmplwi 7,9,1 + beq 7,.L20 + cmplwi 7,9,2 + beq 7,.L23 + cmplwi 7,9,3 + beq 7,.L20 + cmplwi 7,9,4 + beq 7,.L24 + cmplwi 7,9,5 + beq 7,.L25 + cmplwi 7,9,6 + beq 7,.L26 + cmplwi 7,9,7 + beq 7,.L27 + cmplwi 7,9,8 + beq 7,.L21 + cmplwi 7,9,9 + beq 7,.L21 + cmplwi 7,9,10 + beq 7,.L21 + cmplwi 7,9,11 + beq 7,.L21 + cmplwi 7,9,12 + beq 7,.L28 + cmplwi 7,9,13 + beq 7,.L29 + cmplwi 7,9,14 + beq 7,.L21 +.L1: + addi 1,31,304 + ld 0,16(1) + ld 30,-16(1) + ld 31,-8(1) + mtlr 0 + blr + .p2align 4,,15 +.L20: + lbz 3,120(31) + addi 1,31,304 + ld 0,16(1) + ld 30,-16(1) + ld 31,-8(1) + mtlr 0 + blr + .p2align 4,,15 +.L23: + lbz 9,120(31) + extsb 3,9 + b .L1 + .p2align 4,,15 +.L21: + ld 3,120(31) + b .L1 + .p2align 4,,15 +.L24: + lha 3,120(31) + b .L1 + .p2align 4,,15 +.L25: + lhz 3,120(31) + b .L1 + .p2align 4,,15 +.L26: + lwa 3,120(31) + b .L1 + .p2align 4,,15 +.L28: + lfs 1,120(31) + b .L1 + .p2align 4,,15 +.L27: + lwz 3,120(31) + b .L1 +.L29: + lfd 1,120(31) + b .L1 + .long 0 + .byte 0,0,0,1,128,2,0,0 + .size callback_receiver,.-.L.callback_receiver + .align 2 + .p2align 4,,15 + .globl callback_get_receiver + .section ".opd","aw" + .align 3 +callback_get_receiver: + .quad .L.callback_get_receiver,.TOC.@tocbase,0 + .previous + .type callback_get_receiver, @function +.L.callback_get_receiver: + std 31,-8(1) + stdu 1,-64(1) + addis 3,2,callback_receiver@toc@ha + addi 3,3,callback_receiver@toc@l + mr 31,1 + addi 1,31,64 + ld 31,-8(1) + blr + .long 0 + .byte 0,0,0,0,128,1,0,0 + .size callback_get_receiver,.-.L.callback_get_receiver +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/callback/vacall_r/vacall-riscv32-ilp32d-linux.s b/callback/vacall_r/vacall-riscv32-ilp32d-linux.s new file mode 100644 index 0000000..d01ebaa --- /dev/null +++ b/callback/vacall_r/vacall-riscv32-ilp32d-linux.s @@ -0,0 +1,174 @@ + .file "vacall-riscv32.c" + .option pic + .text + .align 1 + .type callback_receiver, @function +callback_receiver: + add sp,sp,-208 + sw ra,188(sp) + sw s0,184(sp) + add s0,sp,192 + sw a1,-144(s0) + add a1,s0,16 + lw t3,0(t2) + sw a7,12(s0) + sw a2,-140(s0) + sw a3,-136(s0) + sw a4,-132(s0) + sw a5,-128(s0) + sw a6,-124(s0) + sw a7,-120(s0) + fsw fa0,-112(s0) + fsw fa1,-108(s0) + fsw fa2,-104(s0) + fsw fa3,-100(s0) + fsw fa4,-96(s0) + fsw fa5,-92(s0) + fsw fa6,-88(s0) + fsw fa7,-84(s0) + fsd fa0,-80(s0) + fsd fa1,-72(s0) + fsd fa2,-64(s0) + fsd fa3,-56(s0) + fsd fa4,-48(s0) + fsd fa5,-40(s0) + fsd fa6,-32(s0) + fsd fa7,-24(s0) + sw a1,-168(s0) + sw a0,-148(s0) + sw zero,-184(s0) + sw zero,-164(s0) + sw zero,-160(s0) + lw a0,4(t2) + sw zero,-152(s0) + sw zero,-116(s0) + add a1,s0,-184 + jalr t3 + lw t1,-160(s0) + beqz t1,.L1 + li t3,1 + beq t1,t3,.L22 + li t3,2 + beq t1,t3,.L25 + li t3,3 + beq t1,t3,.L22 + li t3,4 + beq t1,t3,.L26 + li t3,5 + beq t1,t3,.L27 + li t3,6 + beq t1,t3,.L23 + li t3,7 + beq t1,t3,.L23 + li t3,8 + beq t1,t3,.L23 + li t3,9 + beq t1,t3,.L23 + add t3,t1,-10 + li t4,1 + bleu t3,t4,.L28 + li t3,12 + beq t1,t3,.L29 + li t3,13 + beq t1,t3,.L30 + li t3,14 + beq t1,t3,.L23 + li t3,15 + bne t1,t3,.L1 + lw t1,-184(s0) + and t1,t1,2 + beqz t1,.L1 + lw t3,-156(s0) + li t1,7 + add t5,t3,-1 + bgtu t5,t1,.L1 + lw t1,-164(s0) + lbu t5,0(t1) + mv a0,t5 + beq t3,t4,.L1 + lbu t4,1(t1) + li t6,2 + sll t4,t4,8 + or t5,t4,t5 + mv a0,t5 + beq t3,t6,.L1 + lbu t4,2(t1) + li t6,3 + sll t4,t4,16 + or t4,t4,t5 + mv a0,t4 + beq t3,t6,.L1 + lbu a0,3(t1) + li t5,4 + sll a0,a0,24 + or a0,a0,t4 + beq t3,t5,.L1 + lbu t5,4(t1) + li t4,5 + mv a1,t5 + beq t3,t4,.L1 + lbu t4,5(t1) + li t6,6 + sll t4,t4,8 + or t5,t4,t5 + mv a1,t5 + beq t3,t6,.L1 + lbu t4,6(t1) + li t6,8 + sll t4,t4,16 + or t4,t4,t5 + mv a1,t4 + bne t3,t6,.L1 + lbu a1,7(t1) + sll a1,a1,24 + or a1,a1,t4 +.L1: + lw ra,188(sp) + lw s0,184(sp) + add sp,sp,208 + jr ra +.L22: + lbu a0,-176(s0) + lw ra,188(sp) + lw s0,184(sp) + add sp,sp,208 + jr ra +.L23: + lw a0,-176(s0) + j .L1 +.L25: + lb a0,-176(s0) + lw ra,188(sp) + lw s0,184(sp) + add sp,sp,208 + jr ra +.L26: + lh a0,-176(s0) + j .L1 +.L27: + lhu a0,-176(s0) + j .L1 +.L28: + lw a0,-176(s0) + lw a1,-172(s0) + j .L1 +.L29: + flw fa0,-176(s0) + j .L1 +.L30: + fld fa0,-176(s0) + j .L1 + .size callback_receiver, .-callback_receiver + .align 1 + .globl callback_get_receiver + .type callback_get_receiver, @function +callback_get_receiver: + add sp,sp,-16 + sw s0,12(sp) + add s0,sp,16 + lw s0,12(sp) + lla a0,callback_receiver + add sp,sp,16 + jr ra + .size callback_get_receiver, .-callback_get_receiver + .ident "GCC: (GNU) 7.3.0" diff --git a/callback/vacall_r/vacall-riscv32-ilp32d-macro.S b/callback/vacall_r/vacall-riscv32-ilp32d-macro.S new file mode 100644 index 0000000..c29c138 --- /dev/null +++ b/callback/vacall_r/vacall-riscv32-ilp32d-macro.S @@ -0,0 +1,176 @@ + .file "vacall-riscv32.c" + .option pic + .text + .align 1 + .type callback_receiver, @function +callback_receiver: + add sp,sp,-208 + sw ra,188(sp) + sw s0,184(sp) + add s0,sp,192 + sw a1,-144(s0) + add a1,s0,16 + lw t3,0(t2) + sw a7,12(s0) + sw a2,-140(s0) + sw a3,-136(s0) + sw a4,-132(s0) + sw a5,-128(s0) + sw a6,-124(s0) + sw a7,-120(s0) + fsw fa0,-112(s0) + fsw fa1,-108(s0) + fsw fa2,-104(s0) + fsw fa3,-100(s0) + fsw fa4,-96(s0) + fsw fa5,-92(s0) + fsw fa6,-88(s0) + fsw fa7,-84(s0) + fsd fa0,-80(s0) + fsd fa1,-72(s0) + fsd fa2,-64(s0) + fsd fa3,-56(s0) + fsd fa4,-48(s0) + fsd fa5,-40(s0) + fsd fa6,-32(s0) + fsd fa7,-24(s0) + sw a1,-168(s0) + sw a0,-148(s0) + sw zero,-184(s0) + sw zero,-164(s0) + sw zero,-160(s0) + lw a0,4(t2) + sw zero,-152(s0) + sw zero,-116(s0) + add a1,s0,-184 + jalr t3 + lw t1,-160(s0) + beqz t1,.L1 + li t3,1 + beq t1,t3,.L22 + li t3,2 + beq t1,t3,.L25 + li t3,3 + beq t1,t3,.L22 + li t3,4 + beq t1,t3,.L26 + li t3,5 + beq t1,t3,.L27 + li t3,6 + beq t1,t3,.L23 + li t3,7 + beq t1,t3,.L23 + li t3,8 + beq t1,t3,.L23 + li t3,9 + beq t1,t3,.L23 + add t3,t1,-10 + li t4,1 + bleu t3,t4,.L28 + li t3,12 + beq t1,t3,.L29 + li t3,13 + beq t1,t3,.L30 + li t3,14 + beq t1,t3,.L23 + li t3,15 + bne t1,t3,.L1 + lw t1,-184(s0) + and t1,t1,2 + beqz t1,.L1 + lw t3,-156(s0) + li t1,7 + add t5,t3,-1 + bgtu t5,t1,.L1 + lw t1,-164(s0) + lbu t5,0(t1) + mv a0,t5 + beq t3,t4,.L1 + lbu t4,1(t1) + li t6,2 + sll t4,t4,8 + or t5,t4,t5 + mv a0,t5 + beq t3,t6,.L1 + lbu t4,2(t1) + li t6,3 + sll t4,t4,16 + or t4,t4,t5 + mv a0,t4 + beq t3,t6,.L1 + lbu a0,3(t1) + li t5,4 + sll a0,a0,24 + or a0,a0,t4 + beq t3,t5,.L1 + lbu t5,4(t1) + li t4,5 + mv a1,t5 + beq t3,t4,.L1 + lbu t4,5(t1) + li t6,6 + sll t4,t4,8 + or t5,t4,t5 + mv a1,t5 + beq t3,t6,.L1 + lbu t4,6(t1) + li t6,8 + sll t4,t4,16 + or t4,t4,t5 + mv a1,t4 + bne t3,t6,.L1 + lbu a1,7(t1) + sll a1,a1,24 + or a1,a1,t4 +.L1: + lw ra,188(sp) + lw s0,184(sp) + add sp,sp,208 + jr ra +.L22: + lbu a0,-176(s0) + lw ra,188(sp) + lw s0,184(sp) + add sp,sp,208 + jr ra +.L23: + lw a0,-176(s0) + j .L1 +.L25: + lb a0,-176(s0) + lw ra,188(sp) + lw s0,184(sp) + add sp,sp,208 + jr ra +.L26: + lh a0,-176(s0) + j .L1 +.L27: + lhu a0,-176(s0) + j .L1 +.L28: + lw a0,-176(s0) + lw a1,-172(s0) + j .L1 +.L29: + flw fa0,-176(s0) + j .L1 +.L30: + fld fa0,-176(s0) + j .L1 + .size callback_receiver, .-callback_receiver + .align 1 + .globl callback_get_receiver + .type callback_get_receiver, @function +callback_get_receiver: + add sp,sp,-16 + sw s0,12(sp) + add s0,sp,16 + lw s0,12(sp) + lla a0,callback_receiver + add sp,sp,16 + jr ra + .size callback_get_receiver, .-callback_get_receiver +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/callback/vacall_r/vacall-riscv64-lp64d-linux.s b/callback/vacall_r/vacall-riscv64-lp64d-linux.s new file mode 100644 index 0000000..0eae01a --- /dev/null +++ b/callback/vacall_r/vacall-riscv64-lp64d-linux.s @@ -0,0 +1,205 @@ + .file "vacall-riscv64.c" + .option pic + .text + .align 1 + .type callback_receiver, @function +callback_receiver: + add sp,sp,-288 + sd ra,264(sp) + sd s0,256(sp) + sd s1,248(sp) + add s0,sp,272 + sd s2,240(sp) + sd a1,-192(s0) + add a1,s0,16 + ld t3,0(t2) + sd a7,8(s0) + sd a2,-184(s0) + sd a3,-176(s0) + sd a4,-168(s0) + sd a5,-160(s0) + sd a6,-152(s0) + sd a7,-144(s0) + fsw fa0,-132(s0) + fsw fa1,-128(s0) + fsw fa2,-124(s0) + fsw fa3,-120(s0) + fsw fa4,-116(s0) + fsw fa5,-112(s0) + fsw fa6,-108(s0) + fsw fa7,-104(s0) + fsd fa0,-96(s0) + fsd fa1,-88(s0) + fsd fa2,-80(s0) + fsd fa3,-72(s0) + fsd fa4,-64(s0) + fsd fa5,-56(s0) + fsd fa6,-48(s0) + fsd fa7,-40(s0) + sd a1,-240(s0) + sd a0,-200(s0) + sw zero,-264(s0) + ld a0,8(t2) + sd zero,-232(s0) + sw zero,-224(s0) + sw zero,-208(s0) + sw zero,-136(s0) + add a1,s0,-264 + jalr t3 + lw t1,-224(s0) + beqz t1,.L1 + li t3,1 + beq t1,t3,.L25 + li t3,2 + beq t1,t3,.L29 + li t3,3 + beq t1,t3,.L25 + li t3,4 + beq t1,t3,.L30 + li t3,5 + beq t1,t3,.L31 + li t3,6 + beq t1,t3,.L32 + li t3,7 + beq t1,t3,.L33 + and t3,t1,-3 + li t4,8 + beq t3,t4,.L27 + li t4,9 + beq t3,t4,.L27 + li t3,12 + beq t1,t3,.L34 + li t3,13 + beq t1,t3,.L35 + li t3,14 + beq t1,t3,.L27 + li t3,15 + bne t1,t3,.L1 + lw t3,-264(s0) + and t3,t3,1024 + beqz t3,.L1 + ld t0,-216(s0) + add t3,t0,-1 + bgtu t3,t1,.L1 + ld t5,-232(s0) + li s2,8 + and t6,t5,7 + add s1,t0,t6 + and t5,t5,-8 + sext.w t6,t6 + sllw t1,s1,3 + ld t4,0(t5) + sll t3,t6,3 + bgtu t0,s2,.L15 + bgtu s1,s2,.L16 + addw t1,t1,-1 + li a0,2 + sll a0,a0,t1 + add a0,a0,-1 + and a0,a0,t4 + sra a0,a0,t3 +.L1: + ld ra,264(sp) + ld s0,256(sp) + ld s1,248(sp) + ld s2,240(sp) + add sp,sp,288 + jr ra +.L25: + lbu a0,-256(s0) + ld ra,264(sp) + ld s0,256(sp) + ld s1,248(sp) + ld s2,240(sp) + add sp,sp,288 + jr ra +.L29: + lb a0,-256(s0) + ld ra,264(sp) + ld s0,256(sp) + ld s1,248(sp) + ld s2,240(sp) + add sp,sp,288 + jr ra +.L30: + lh a0,-256(s0) + j .L1 +.L33: + lwu a0,-256(s0) + j .L1 +.L31: + lhu a0,-256(s0) + j .L1 +.L27: + ld a0,-256(s0) + j .L1 +.L32: + lw a0,-256(s0) + j .L1 +.L34: + flw fa0,-256(s0) + j .L1 +.L35: + fld fa0,-256(s0) + j .L1 +.L15: + li s2,16 + sra t4,t4,t3 + ld t0,8(t5) + bleu s1,s2,.L36 + li a1,-8 + mulw t6,a1,t6 + addw t1,t1,-129 + ld a0,16(t5) + li a1,2 + sll a1,a1,t1 + add a1,a1,-1 + and a1,a1,a0 + sra t3,t0,t3 + addw t1,t6,64 + sll a0,t0,t1 + sll a1,a1,t1 + or a0,a0,t4 + or a1,a1,t3 + j .L1 +.L16: + li a0,-8 + mulw t6,a0,t6 + addw t1,t1,-65 + ld t5,8(t5) + li a0,2 + sll a0,a0,t1 + add a0,a0,-1 + and a0,a0,t5 + sra t4,t4,t3 + sll a0,a0,t6 + or a0,a0,t4 + j .L1 +.L36: + li a1,-4 + mulw t6,a1,t6 + addw t1,t1,-65 + li a0,2 + sll a0,a0,t1 + add a0,a0,-1 + and a0,a0,t0 + sra a1,a0,t3 + addw t1,t6,32 + sll a0,a0,t1 + sll a0,a0,t1 + or a0,a0,t4 + j .L1 + .size callback_receiver, .-callback_receiver + .align 1 + .globl callback_get_receiver + .type callback_get_receiver, @function +callback_get_receiver: + add sp,sp,-16 + sd s0,8(sp) + add s0,sp,16 + ld s0,8(sp) + lla a0,callback_receiver + add sp,sp,16 + jr ra + .size callback_get_receiver, .-callback_get_receiver + .ident "GCC: (GNU) 7.3.0" diff --git a/callback/vacall_r/vacall-riscv64-lp64d-macro.S b/callback/vacall_r/vacall-riscv64-lp64d-macro.S new file mode 100644 index 0000000..c245a59 --- /dev/null +++ b/callback/vacall_r/vacall-riscv64-lp64d-macro.S @@ -0,0 +1,207 @@ + .file "vacall-riscv64.c" + .option pic + .text + .align 1 + .type callback_receiver, @function +callback_receiver: + add sp,sp,-288 + sd ra,264(sp) + sd s0,256(sp) + sd s1,248(sp) + add s0,sp,272 + sd s2,240(sp) + sd a1,-192(s0) + add a1,s0,16 + ld t3,0(t2) + sd a7,8(s0) + sd a2,-184(s0) + sd a3,-176(s0) + sd a4,-168(s0) + sd a5,-160(s0) + sd a6,-152(s0) + sd a7,-144(s0) + fsw fa0,-132(s0) + fsw fa1,-128(s0) + fsw fa2,-124(s0) + fsw fa3,-120(s0) + fsw fa4,-116(s0) + fsw fa5,-112(s0) + fsw fa6,-108(s0) + fsw fa7,-104(s0) + fsd fa0,-96(s0) + fsd fa1,-88(s0) + fsd fa2,-80(s0) + fsd fa3,-72(s0) + fsd fa4,-64(s0) + fsd fa5,-56(s0) + fsd fa6,-48(s0) + fsd fa7,-40(s0) + sd a1,-240(s0) + sd a0,-200(s0) + sw zero,-264(s0) + ld a0,8(t2) + sd zero,-232(s0) + sw zero,-224(s0) + sw zero,-208(s0) + sw zero,-136(s0) + add a1,s0,-264 + jalr t3 + lw t1,-224(s0) + beqz t1,.L1 + li t3,1 + beq t1,t3,.L25 + li t3,2 + beq t1,t3,.L29 + li t3,3 + beq t1,t3,.L25 + li t3,4 + beq t1,t3,.L30 + li t3,5 + beq t1,t3,.L31 + li t3,6 + beq t1,t3,.L32 + li t3,7 + beq t1,t3,.L33 + and t3,t1,-3 + li t4,8 + beq t3,t4,.L27 + li t4,9 + beq t3,t4,.L27 + li t3,12 + beq t1,t3,.L34 + li t3,13 + beq t1,t3,.L35 + li t3,14 + beq t1,t3,.L27 + li t3,15 + bne t1,t3,.L1 + lw t3,-264(s0) + and t3,t3,1024 + beqz t3,.L1 + ld t0,-216(s0) + add t3,t0,-1 + bgtu t3,t1,.L1 + ld t5,-232(s0) + li s2,8 + and t6,t5,7 + add s1,t0,t6 + and t5,t5,-8 + sext.w t6,t6 + sllw t1,s1,3 + ld t4,0(t5) + sll t3,t6,3 + bgtu t0,s2,.L15 + bgtu s1,s2,.L16 + addw t1,t1,-1 + li a0,2 + sll a0,a0,t1 + add a0,a0,-1 + and a0,a0,t4 + sra a0,a0,t3 +.L1: + ld ra,264(sp) + ld s0,256(sp) + ld s1,248(sp) + ld s2,240(sp) + add sp,sp,288 + jr ra +.L25: + lbu a0,-256(s0) + ld ra,264(sp) + ld s0,256(sp) + ld s1,248(sp) + ld s2,240(sp) + add sp,sp,288 + jr ra +.L29: + lb a0,-256(s0) + ld ra,264(sp) + ld s0,256(sp) + ld s1,248(sp) + ld s2,240(sp) + add sp,sp,288 + jr ra +.L30: + lh a0,-256(s0) + j .L1 +.L33: + lwu a0,-256(s0) + j .L1 +.L31: + lhu a0,-256(s0) + j .L1 +.L27: + ld a0,-256(s0) + j .L1 +.L32: + lw a0,-256(s0) + j .L1 +.L34: + flw fa0,-256(s0) + j .L1 +.L35: + fld fa0,-256(s0) + j .L1 +.L15: + li s2,16 + sra t4,t4,t3 + ld t0,8(t5) + bleu s1,s2,.L36 + li a1,-8 + mulw t6,a1,t6 + addw t1,t1,-129 + ld a0,16(t5) + li a1,2 + sll a1,a1,t1 + add a1,a1,-1 + and a1,a1,a0 + sra t3,t0,t3 + addw t1,t6,64 + sll a0,t0,t1 + sll a1,a1,t1 + or a0,a0,t4 + or a1,a1,t3 + j .L1 +.L16: + li a0,-8 + mulw t6,a0,t6 + addw t1,t1,-65 + ld t5,8(t5) + li a0,2 + sll a0,a0,t1 + add a0,a0,-1 + and a0,a0,t5 + sra t4,t4,t3 + sll a0,a0,t6 + or a0,a0,t4 + j .L1 +.L36: + li a1,-4 + mulw t6,a1,t6 + addw t1,t1,-65 + li a0,2 + sll a0,a0,t1 + add a0,a0,-1 + and a0,a0,t0 + sra a1,a0,t3 + addw t1,t6,32 + sll a0,a0,t1 + sll a0,a0,t1 + or a0,a0,t4 + j .L1 + .size callback_receiver, .-callback_receiver + .align 1 + .globl callback_get_receiver + .type callback_get_receiver, @function +callback_get_receiver: + add sp,sp,-16 + sd s0,8(sp) + add s0,sp,16 + ld s0,8(sp) + lla a0,callback_receiver + add sp,sp,16 + jr ra + .size callback_get_receiver, .-callback_get_receiver +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/callback/vacall_r/vacall-s390-linux.s b/callback/vacall_r/vacall-s390-linux.s new file mode 100644 index 0000000..999229f --- /dev/null +++ b/callback/vacall_r/vacall-s390-linux.s @@ -0,0 +1,160 @@ + .file "vacall-s390.c" +.text + .align 4 + .type callback_receiver,@function +callback_receiver: + stm %r6,%r15,24(%r15) + bras %r13,.LTN0_0 +.LT0_0: +.LC0: + .long 0 +.LC1: + .long 255 +.LC2: + .long 65535 +.LC3: + .long 1 +.LTN0_0: + lr %r1,%r0 + lr %r14,%r15 + ahi %r15,-184 + lr %r11,%r15 + lr %r9,%r0 + l %r10,0(%r1) + st %r14,0(%r15) + la %r1,280(%r11) + mvc 116(4,%r11),.LC0-.LT0_0(%r13) + st %r2,132(%r11) + st %r3,136(%r11) + la %r3,96(%r11) + st %r4,140(%r11) + st %r5,144(%r11) + st %r6,148(%r11) + std %f2,176(%r11) + std %f0,168(%r11) + ste %f2,160(%r11) + ste %f0,156(%r11) + mvc 96(4,%r11),.LC0-.LT0_0(%r13) + st %r1,112(%r11) + mvc 120(4,%r11),.LC0-.LT0_0(%r13) + mvc 128(4,%r11),.LC0-.LT0_0(%r13) + mvc 152(4,%r11),.LC0-.LT0_0(%r13) + l %r2,4(%r9) + basr %r14,%r10 + icm %r4,15,120(%r11) + je .L1 + chi %r4,1 + je .L43 + chi %r4,2 + je .L44 + chi %r4,3 + je .L43 + chi %r4,4 + je .L45 + chi %r4,5 + je .L46 + chi %r4,6 + je .L40 + chi %r4,7 + je .L40 + chi %r4,8 + je .L40 + chi %r4,9 + je .L40 + lr %r1,%r4 + ahi %r1,-10 + cl %r1,.LC3-.LT0_0(%r13) + jh .L22 + l %r2,104(%r11) + l %r3,108(%r11) +.L1: + l %r4,240(%r11) + lm %r6,%r15,208(%r11) + br %r4 +.L22: + chi %r4,12 + je .L47 + chi %r4,13 + je .L48 + chi %r4,14 + je .L40 + chi %r4,15 + jne .L1 + tm 98(%r11),4 + je .L1 + l %r1,124(%r11) + chi %r1,1 + je .L49 + chi %r1,2 + je .L50 + chi %r1,4 + je .L51 + chi %r1,8 + jne .L1 + l %r1,116(%r11) + l %r3,4(%r1) +.L39: + l %r2,0(%r1) + j .L1 +.L51: + l %r1,116(%r11) + j .L39 +.L50: + l %r1,116(%r11) + lh %r4,0(%r1) + lr %r2,%r4 +.L41: + n %r2,.LC2-.LT0_0(%r13) + j .L1 +.L49: + l %r1,116(%r11) + ic %r4,0(%r1) + lr %r2,%r4 +.L42: + n %r2,.LC1-.LT0_0(%r13) + j .L1 +.L40: + l %r2,104(%r11) + j .L1 +.L48: + ld %f0,104(%r11) + j .L1 +.L47: + le %f0,104(%r11) + j .L1 +.L46: + lh %r1,104(%r11) + lr %r2,%r1 + j .L41 +.L45: + lh %r2,104(%r11) + j .L1 +.L43: + ic %r1,104(%r11) + lr %r2,%r1 + j .L42 +.L44: + icm %r1,8,104(%r11) + lr %r2,%r1 + sra %r2,24 + j .L1 +.Lfe1: + .size callback_receiver,.Lfe1-callback_receiver + .align 4 +.globl callback_get_receiver + .type callback_get_receiver,@function +callback_get_receiver: + stm %r11,%r13,44(%r15) + bras %r13,.LTN1_0 +.LT1_0: +.LC4: + .long callback_receiver-.LT1_0 +.LTN1_0: + l %r1,.LC4-.LT1_0(%r13) + lr %r11,%r15 + la %r2,0(%r13,%r1) + lm %r11,%r13,44(%r11) + br %r14 +.Lfe2: + .size callback_get_receiver,.Lfe2-callback_get_receiver + .ident "GCC: (GNU) 3.1" diff --git a/callback/vacall_r/vacall-s390-macro.S b/callback/vacall_r/vacall-s390-macro.S new file mode 100644 index 0000000..1c5314a --- /dev/null +++ b/callback/vacall_r/vacall-s390-macro.S @@ -0,0 +1,162 @@ + .file "vacall-s390.c" +.text + .align 4 + .type callback_receiver,@function +callback_receiver: + stm %r6,%r15,24(%r15) + bras %r13,.LTN0_0 +.LT0_0: +.LC0: + .long 0 +.LC1: + .long 255 +.LC2: + .long 65535 +.LC3: + .long 1 +.LTN0_0: + lr %r1,%r0 + lr %r14,%r15 + ahi %r15,-184 + lr %r11,%r15 + lr %r9,%r0 + l %r10,0(%r1) + st %r14,0(%r15) + la %r1,280(%r11) + mvc 116(4,%r11),.LC0-.LT0_0(%r13) + st %r2,132(%r11) + st %r3,136(%r11) + la %r3,96(%r11) + st %r4,140(%r11) + st %r5,144(%r11) + st %r6,148(%r11) + std %f2,176(%r11) + std %f0,168(%r11) + ste %f2,160(%r11) + ste %f0,156(%r11) + mvc 96(4,%r11),.LC0-.LT0_0(%r13) + st %r1,112(%r11) + mvc 120(4,%r11),.LC0-.LT0_0(%r13) + mvc 128(4,%r11),.LC0-.LT0_0(%r13) + mvc 152(4,%r11),.LC0-.LT0_0(%r13) + l %r2,4(%r9) + basr %r14,%r10 + icm %r4,15,120(%r11) + je .L1 + chi %r4,1 + je .L43 + chi %r4,2 + je .L44 + chi %r4,3 + je .L43 + chi %r4,4 + je .L45 + chi %r4,5 + je .L46 + chi %r4,6 + je .L40 + chi %r4,7 + je .L40 + chi %r4,8 + je .L40 + chi %r4,9 + je .L40 + lr %r1,%r4 + ahi %r1,-10 + cl %r1,.LC3-.LT0_0(%r13) + jh .L22 + l %r2,104(%r11) + l %r3,108(%r11) +.L1: + l %r4,240(%r11) + lm %r6,%r15,208(%r11) + br %r4 +.L22: + chi %r4,12 + je .L47 + chi %r4,13 + je .L48 + chi %r4,14 + je .L40 + chi %r4,15 + jne .L1 + tm 98(%r11),4 + je .L1 + l %r1,124(%r11) + chi %r1,1 + je .L49 + chi %r1,2 + je .L50 + chi %r1,4 + je .L51 + chi %r1,8 + jne .L1 + l %r1,116(%r11) + l %r3,4(%r1) +.L39: + l %r2,0(%r1) + j .L1 +.L51: + l %r1,116(%r11) + j .L39 +.L50: + l %r1,116(%r11) + lh %r4,0(%r1) + lr %r2,%r4 +.L41: + n %r2,.LC2-.LT0_0(%r13) + j .L1 +.L49: + l %r1,116(%r11) + ic %r4,0(%r1) + lr %r2,%r4 +.L42: + n %r2,.LC1-.LT0_0(%r13) + j .L1 +.L40: + l %r2,104(%r11) + j .L1 +.L48: + ld %f0,104(%r11) + j .L1 +.L47: + le %f0,104(%r11) + j .L1 +.L46: + lh %r1,104(%r11) + lr %r2,%r1 + j .L41 +.L45: + lh %r2,104(%r11) + j .L1 +.L43: + ic %r1,104(%r11) + lr %r2,%r1 + j .L42 +.L44: + icm %r1,8,104(%r11) + lr %r2,%r1 + sra %r2,24 + j .L1 +.Lfe1: + .size callback_receiver,.Lfe1-callback_receiver + .align 4 +.globl callback_get_receiver + .type callback_get_receiver,@function +callback_get_receiver: + stm %r11,%r13,44(%r15) + bras %r13,.LTN1_0 +.LT1_0: +.LC4: + .long callback_receiver-.LT1_0 +.LTN1_0: + l %r1,.LC4-.LT1_0(%r13) + lr %r11,%r15 + la %r2,0(%r13,%r1) + lm %r11,%r13,44(%r11) + br %r14 +.Lfe2: + .size callback_get_receiver,.Lfe2-callback_get_receiver +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/callback/vacall_r/vacall-s390x-linux.s b/callback/vacall_r/vacall-s390x-linux.s new file mode 100644 index 0000000..84d0283 --- /dev/null +++ b/callback/vacall_r/vacall-s390x-linux.s @@ -0,0 +1,148 @@ + .file "vacall-s390x.c" +.text + .align 8 + .type callback_receiver, @function +callback_receiver: +.LFB0: + .cfi_startproc + stmg %r10,%r15,80(%r15) + .cfi_offset 10, -80 + .cfi_offset 11, -72 + .cfi_offset 12, -64 + .cfi_offset 13, -56 + .cfi_offset 14, -48 + .cfi_offset 15, -40 + aghi %r15,-320 + .cfi_def_cfa_offset 480 + lgr %r11,%r15 + .cfi_def_cfa_register 11 + lgr %r1,%r0 + lhi %r14,0 + stg %r2,224(%r11) + lg %r10,0(%r1) + st %r14,160(%r11) + la %r14,480(%r11) + stg %r14,184(%r11) + lghi %r14,0 + stg %r3,232(%r11) + lg %r2,8(%r1) + stg %r4,240(%r11) + stg %r5,248(%r11) + stg %r6,256(%r11) + ste %f0,268(%r11) + ste %f2,272(%r11) + ste %f4,276(%r11) + ste %f6,280(%r11) + std %f0,288(%r11) + std %f2,296(%r11) + std %f4,304(%r11) + std %f6,312(%r11) + stg %r14,192(%r11) + st %r14,200(%r11) + st %r14,216(%r11) + st %r14,264(%r11) + la %r3,160(%r11) + basr %r14,%r10 + icm %r1,15,200(%r11) + je .L1 + chi %r1,1 + je .L18 + chi %r1,2 + je .L21 + chi %r1,3 + je .L18 + chi %r1,4 + je .L22 + chi %r1,5 + je .L23 + chi %r1,6 + je .L24 + chi %r1,7 + je .L25 + lr %r10,%r1 + nill %r10,65533 + chi %r10,8 + je .L19 + chi %r10,9 + je .L19 + chi %r1,12 + je .L26 + chi %r1,13 + je .L27 + chi %r1,14 + je .L19 +.L1: + lg %r4,432(%r11) + lmg %r10,%r15,400(%r11) + .cfi_remember_state + .cfi_restore 15 + .cfi_restore 14 + .cfi_restore 13 + .cfi_restore 12 + .cfi_restore 11 + .cfi_restore 10 + .cfi_def_cfa 15, 160 + br %r4 +.L18: + .cfi_restore_state + lg %r4,432(%r11) + llgc %r2,168(%r11) + lmg %r10,%r15,400(%r11) + .cfi_remember_state + .cfi_restore 10 + .cfi_restore 11 + .cfi_restore 12 + .cfi_restore 13 + .cfi_restore 14 + .cfi_restore 15 + .cfi_def_cfa 15, 160 + br %r4 +.L21: + .cfi_restore_state + icmh %r2,8,168(%r11) + srag %r2,%r2,56 + j .L1 +.L19: + lg %r2,168(%r11) + j .L1 +.L22: + lgh %r2,168(%r11) + j .L1 +.L23: + llgh %r2,168(%r11) + j .L1 +.L24: + lgf %r2,168(%r11) + j .L1 +.L26: + le %f0,168(%r11) + j .L1 +.L25: + llgf %r2,168(%r11) + j .L1 +.L27: + ld %f0,168(%r11) + j .L1 + .cfi_endproc +.LFE0: + .size callback_receiver, .-callback_receiver + .align 8 +.globl callback_get_receiver + .type callback_get_receiver, @function +callback_get_receiver: +.LFB1: + .cfi_startproc + stg %r11,88(%r15) + .cfi_offset 11, -72 + lgr %r11,%r15 + .cfi_def_cfa_register 11 + larl %r2,callback_receiver + lg %r11,88(%r11) + .cfi_restore 11 + .cfi_def_cfa_register 15 + br %r14 + .cfi_endproc +.LFE1: + .size callback_get_receiver, .-callback_get_receiver + .ident "GCC: (GNU) 5.4.0" + .section .note.GNU-stack,"",@progbits diff --git a/callback/vacall_r/vacall-s390x-macro.S b/callback/vacall_r/vacall-s390x-macro.S new file mode 100644 index 0000000..1306be6 --- /dev/null +++ b/callback/vacall_r/vacall-s390x-macro.S @@ -0,0 +1,149 @@ + .file "vacall-s390x.c" +.text + .align 8 + .type callback_receiver, @function +callback_receiver: +.LFB0: + .cfi_startproc + stmg %r10,%r15,80(%r15) + .cfi_offset 10, -80 + .cfi_offset 11, -72 + .cfi_offset 12, -64 + .cfi_offset 13, -56 + .cfi_offset 14, -48 + .cfi_offset 15, -40 + aghi %r15,-320 + .cfi_def_cfa_offset 480 + lgr %r11,%r15 + .cfi_def_cfa_register 11 + lgr %r1,%r0 + lhi %r14,0 + stg %r2,224(%r11) + lg %r10,0(%r1) + st %r14,160(%r11) + la %r14,480(%r11) + stg %r14,184(%r11) + lghi %r14,0 + stg %r3,232(%r11) + lg %r2,8(%r1) + stg %r4,240(%r11) + stg %r5,248(%r11) + stg %r6,256(%r11) + ste %f0,268(%r11) + ste %f2,272(%r11) + ste %f4,276(%r11) + ste %f6,280(%r11) + std %f0,288(%r11) + std %f2,296(%r11) + std %f4,304(%r11) + std %f6,312(%r11) + stg %r14,192(%r11) + st %r14,200(%r11) + st %r14,216(%r11) + st %r14,264(%r11) + la %r3,160(%r11) + basr %r14,%r10 + icm %r1,15,200(%r11) + je .L1 + chi %r1,1 + je .L18 + chi %r1,2 + je .L21 + chi %r1,3 + je .L18 + chi %r1,4 + je .L22 + chi %r1,5 + je .L23 + chi %r1,6 + je .L24 + chi %r1,7 + je .L25 + lr %r10,%r1 + nill %r10,65533 + chi %r10,8 + je .L19 + chi %r10,9 + je .L19 + chi %r1,12 + je .L26 + chi %r1,13 + je .L27 + chi %r1,14 + je .L19 +.L1: + lg %r4,432(%r11) + lmg %r10,%r15,400(%r11) + .cfi_remember_state + .cfi_restore 15 + .cfi_restore 14 + .cfi_restore 13 + .cfi_restore 12 + .cfi_restore 11 + .cfi_restore 10 + .cfi_def_cfa 15, 160 + br %r4 +.L18: + .cfi_restore_state + lg %r4,432(%r11) + llgc %r2,168(%r11) + lmg %r10,%r15,400(%r11) + .cfi_remember_state + .cfi_restore 10 + .cfi_restore 11 + .cfi_restore 12 + .cfi_restore 13 + .cfi_restore 14 + .cfi_restore 15 + .cfi_def_cfa 15, 160 + br %r4 +.L21: + .cfi_restore_state + icmh %r2,8,168(%r11) + srag %r2,%r2,56 + j .L1 +.L19: + lg %r2,168(%r11) + j .L1 +.L22: + lgh %r2,168(%r11) + j .L1 +.L23: + llgh %r2,168(%r11) + j .L1 +.L24: + lgf %r2,168(%r11) + j .L1 +.L26: + le %f0,168(%r11) + j .L1 +.L25: + llgf %r2,168(%r11) + j .L1 +.L27: + ld %f0,168(%r11) + j .L1 + .cfi_endproc +.LFE0: + .size callback_receiver, .-callback_receiver + .align 8 +.globl callback_get_receiver + .type callback_get_receiver, @function +callback_get_receiver: +.LFB1: + .cfi_startproc + stg %r11,88(%r15) + .cfi_offset 11, -72 + lgr %r11,%r15 + .cfi_def_cfa_register 11 + larl %r2,callback_receiver + lg %r11,88(%r11) + .cfi_restore 11 + .cfi_def_cfa_register 15 + br %r14 + .cfi_endproc +.LFE1: + .size callback_get_receiver, .-callback_get_receiver +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/callback/vacall_r/vacall-sparc-linux.s b/callback/vacall_r/vacall-sparc-linux.s new file mode 100644 index 0000000..881f004 --- /dev/null +++ b/callback/vacall_r/vacall-sparc-linux.s @@ -0,0 +1,129 @@ + .file "vacall-sparc.c" + .section ".text" + .align 4 + .global callback_receiver + .type callback_receiver,#function + .proc 020 +callback_receiver: + !#PROLOGUE# 0 + save %sp, -144, %sp + ld [%fp+64], %o0 + add %fp, 68, %o1 + st %g0, [%fp-28] + st %o0, [%fp-16] + st %o1, [%fp-32] + ld [%g2+4], %o0 + add %fp, -48, %o1 + ld [%g2], %o2 + st %i2, [%fp+76] + st %i3, [%fp+80] + st %i4, [%fp+84] + st %i5, [%fp+88] + st %i0, [%fp+68] + st %i1, [%fp+72] + st %g0, [%fp-48] + call %o2, 0 + st %g0, [%fp-24] + ld [%fp-24], %o1 + cmp %o1, 0 + be .LL1 + cmp %o1, 1 + be .LL44 + cmp %o1, 2 + be .LL44 + cmp %o1, 3 + be .LL45 + cmp %o1, 4 + be .LL46 + cmp %o1, 5 + be .LL47 + cmp %o1, 6 + be .LL43 + cmp %o1, 7 + be .LL43 + cmp %o1, 8 + be .LL43 + cmp %o1, 9 + be .LL43 + add %o1, -10, %o0 + cmp %o0, 1 + bgu .LL22 + cmp %o1, 12 + ld [%fp-40], %i0 + b .LL1 + ld [%fp-36], %i1 +.LL22: + be .LL48 + cmp %o1, 13 + be .LL49 + cmp %o1, 14 + be .LL43 + cmp %o1, 15 + bne .LL1 + ld [%fp-48], %o0 + andcc %o0, 16, %g0 + be .LL33 + andcc %o0, 2, %g0 + ld [%fp-20], %o0 + ld [%i7+8], %o1 + and %o0, 4095, %o0 + cmp %o0, %o1 + bne .LL1 + ld [%fp-28], %i0 + b .LL1 + add %i7, 4, %i7 +.LL33: + be,a .LL1 + add %i7, 4, %i7 + ld [%fp-20], %o0 + cmp %o0, 1 + be .LL50 + cmp %o0, 2 + be .LL51 + cmp %o0, 4 + bne,a .LL1 + add %i7, 4, %i7 + ld [%fp-28], %o0 + b .LL1 + ld [%o0], %i0 +.LL51: + ld [%fp-28], %o0 + b .LL1 + lduh [%o0], %i0 +.LL50: + ld [%fp-28], %o0 + b .LL1 + ldub [%o0], %i0 +.LL43: + b .LL1 + ld [%fp-40], %i0 +.LL49: + b .LL1 + ldd [%fp-40], %f0 +.LL48: + ld [%fp-48], %o0 + andcc %o0, 32, %g0 + be,a .LL1 + ld [%fp-40], %f0 + ld [%fp-40], %f2 + b .LL1 + fstod %f2, %f0 +.LL47: + b .LL1 + lduh [%fp-40], %i0 +.LL46: + b .LL1 + ldsh [%fp-40], %i0 +.LL45: + b .LL1 + ldub [%fp-40], %i0 +.LL44: + ldsb [%fp-40], %i0 +.LL38: +.LL1: + nop + ret + restore +.LLfe1: + .size callback_receiver,.LLfe1-callback_receiver + .ident "GCC: (GNU) 3.1" diff --git a/callback/vacall_r/vacall-sparc-macro.S b/callback/vacall_r/vacall-sparc-macro.S new file mode 100644 index 0000000..d4acde7 --- /dev/null +++ b/callback/vacall_r/vacall-sparc-macro.S @@ -0,0 +1,131 @@ +#include "asm-sparc.h" + .section ".text" + .align 4 + .global C(callback_receiver) + DECLARE_FUNCTION(callback_receiver) + .proc 020 +FUNBEGIN(callback_receiver) + !$PROLOGUE$ 0 + save %sp, -144, %sp + ld [%fp+64], %o0 + add %fp, 68, %o1 + st %g0, [%fp-28] + st %o0, [%fp-16] + st %o1, [%fp-32] + ld [%g2+4], %o0 + add %fp, -48, %o1 + ld [%g2], %o2 + st %i2, [%fp+76] + st %i3, [%fp+80] + st %i4, [%fp+84] + st %i5, [%fp+88] + st %i0, [%fp+68] + st %i1, [%fp+72] + st %g0, [%fp-48] + call %o2, 0 + st %g0, [%fp-24] + ld [%fp-24], %o1 + cmp %o1, 0 + be L(L1) + cmp %o1, 1 + be L(L44) + cmp %o1, 2 + be L(L44) + cmp %o1, 3 + be L(L45) + cmp %o1, 4 + be L(L46) + cmp %o1, 5 + be L(L47) + cmp %o1, 6 + be L(L43) + cmp %o1, 7 + be L(L43) + cmp %o1, 8 + be L(L43) + cmp %o1, 9 + be L(L43) + add %o1, -10, %o0 + cmp %o0, 1 + bgu L(L22) + cmp %o1, 12 + ld [%fp-40], %i0 + b L(L1) + ld [%fp-36], %i1 +L(L22): + be L(L48) + cmp %o1, 13 + be L(L49) + cmp %o1, 14 + be L(L43) + cmp %o1, 15 + bne L(L1) + ld [%fp-48], %o0 + andcc %o0, 16, %g0 + be L(L33) + andcc %o0, 2, %g0 + ld [%fp-20], %o0 + ld [%i7+8], %o1 + and %o0, 4095, %o0 + cmp %o0, %o1 + bne L(L1) + ld [%fp-28], %i0 + b L(L1) + add %i7, 4, %i7 +L(L33): + be,a L(L1) + add %i7, 4, %i7 + ld [%fp-20], %o0 + cmp %o0, 1 + be L(L50) + cmp %o0, 2 + be L(L51) + cmp %o0, 4 + bne,a L(L1) + add %i7, 4, %i7 + ld [%fp-28], %o0 + b L(L1) + ld [%o0], %i0 +L(L51): + ld [%fp-28], %o0 + b L(L1) + lduh [%o0], %i0 +L(L50): + ld [%fp-28], %o0 + b L(L1) + ldub [%o0], %i0 +L(L43): + b L(L1) + ld [%fp-40], %i0 +L(L49): + b L(L1) + ldd [%fp-40], %f0 +L(L48): + ld [%fp-48], %o0 + andcc %o0, 32, %g0 + be,a L(L1) + ld [%fp-40], %f0 + ld [%fp-40], %f2 + b L(L1) + fstod %f2, %f0 +L(L47): + b L(L1) + lduh [%fp-40], %i0 +L(L46): + b L(L1) + ldsh [%fp-40], %i0 +L(L45): + b L(L1) + ldub [%fp-40], %i0 +L(L44): + ldsb [%fp-40], %i0 +L(L38): +L(L1): + nop + ret + restore +L(Lfe1): + FUNEND(callback_receiver) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/callback/vacall_r/vacall-sparc64-linux.s b/callback/vacall_r/vacall-sparc64-linux.s new file mode 100644 index 0000000..c8723aa --- /dev/null +++ b/callback/vacall_r/vacall-sparc64-linux.s @@ -0,0 +1,319 @@ + .file "vacall-sparc64.c" + .section ".text" + .align 4 + .global callback_receiver + .type callback_receiver, #function + .proc 020 +callback_receiver: + .register %g2, #scratch + .register %g3, #scratch + save %sp, -448, %sp + stx %i0, [%fp+2175] + stx %i1, [%fp+2183] + stx %i2, [%fp+2191] + stx %i3, [%fp+2199] + stx %i4, [%fp+2207] + stx %i5, [%fp+2215] + std %f0, [%fp+1903] + std %f2, [%fp+1911] + std %f4, [%fp+1919] + std %f6, [%fp+1927] + std %f8, [%fp+1935] + std %f10, [%fp+1943] + std %f12, [%fp+1951] + std %f14, [%fp+1959] + std %f16, [%fp+1967] + std %f18, [%fp+1975] + std %f20, [%fp+1983] + std %f22, [%fp+1991] + std %f24, [%fp+1999] + std %f26, [%fp+2007] + std %f28, [%fp+2015] + std %f30, [%fp+2023] + st %f1, [%fp+1835] + st %f3, [%fp+1839] + st %f5, [%fp+1843] + st %f7, [%fp+1847] + st %f9, [%fp+1851] + st %f11, [%fp+1855] + st %f13, [%fp+1859] + st %f15, [%fp+1863] + st %f17, [%fp+1867] + st %f19, [%fp+1871] + st %f21, [%fp+1875] + st %f23, [%fp+1879] + add %fp, 2175, %g2 + stx %g0, [%fp+1807] + st %f25, [%fp+1883] + st %f27, [%fp+1887] + st %f29, [%fp+1891] + st %f31, [%fp+1895] + st %g0, [%fp+1775] + st %g0, [%fp+1815] + st %g0, [%fp+1831] + ldx [%g5+8], %o0 + stx %g2, [%fp+1799] + ldx [%g5], %g3 + call %g3, 0 + add %fp, 1775, %o1 + lduw [%fp+1815], %g1 + cmp %g1, 0 + be,pn %icc, .LL61 + cmp %g1, 1 + be,pn %icc, .LL50 + cmp %g1, 2 + be,pn %icc, .LL50 + cmp %g1, 3 + be,pn %icc, .LL53 + cmp %g1, 4 + be,pn %icc, .LL54 + cmp %g1, 5 + be,pn %icc, .LL55 + cmp %g1, 6 + be,pn %icc, .LL56 + cmp %g1, 7 + be,pn %icc, .LL57 + cmp %g1, 8 + be,pn %icc, .LL51 + cmp %g1, 9 + be,pn %icc, .LL51 + cmp %g1, 10 + be,pn %icc, .LL51 + cmp %g1, 11 + be,pn %icc, .LL51 + cmp %g1, 12 + be,pn %icc, .LL58 + cmp %g1, 13 + be,pn %icc, .LL59 + cmp %g1, 14 + be,pn %icc, .LL51 + cmp %g1, 15 + bne,pt %icc, .LL61 + lduw [%fp+1775], %g1 + andcc %g1, 1024, %g0 + be,pn %xcc, .LL61 + ldx [%fp+1823], %o5 + add %o5, -1, %g1 + cmp %g1, 31 + bgu,pn %xcc, .LL61 + ldx [%fp+1807], %g1 + cmp %o5, 8 + and %g1, 7, %o1 + and %g1, -8, %l1 + bgu,pt %xcc, .LL35 + add %o5, %o1, %g2 + cmp %g2, 8 + bgu,pt %xcc, .LL37 + sllx %o1, 3, %g4 + sllx %g2, 3, %g2 + ldx [%l1], %g3 + sub %g0, %g2, %g2 + mov -1, %g1 + sllx %g1, %g2, %g1 + and %g1, %g3, %g1 + return %i7+8 + sllx %g1, %g4, %o0 +.LL47: + ldx [%l1], %g1 + sllx %g1, %o3, %g1 + ldx [%l1+8], %g4 + ldx [%l1+16], %o5 + sllx %g4, %o3, %o0 + sllx %o5, %o3, %o7 + ldx [%l1+24], %o4 + sllx %g2, 3, %o2 + sllx %o4, %o3, %l0 + ldx [%l1+32], %o1 + sub %g0, %o2, %o2 + mov 64, %g3 + sub %g3, %o3, %g3 + srax %g4, %g3, %g4 + srax %o5, %g3, %o5 + or %g1, %g4, %i0 + srax %o4, %g3, %o4 + mov -1, %g1 + or %o0, %o5, %i1 + sllx %g1, %o2, %g1 + or %o7, %o4, %i2 + and %g1, %o1, %g1 + srax %g1, %g3, %g1 + or %l0, %g1, %i3 +.LL61: + return %i7+8 + nop +.LL50: + ldsb [%fp+1783], %i0 + return %i7+8 + nop +.LL54: + ldsh [%fp+1783], %i0 + return %i7+8 + nop +.LL53: + ldub [%fp+1783], %i0 + return %i7+8 + nop +.LL51: + ldx [%fp+1783], %i0 + return %i7+8 + nop +.LL55: + lduh [%fp+1783], %i0 + return %i7+8 + nop +.LL56: + ldsw [%fp+1783], %i0 + return %i7+8 + nop +.LL57: + lduw [%fp+1783], %i0 + return %i7+8 + nop +.LL58: + ld [%fp+1783], %f0 + return %i7+8 + nop +.LL59: + ldd [%fp+1783], %f0 + return %i7+8 + nop +.LL35: + cmp %o5, 16 + bgu,pt %xcc, .LL39 + cmp %o5, 24 + cmp %g2, 16 + bgu,pt %xcc, .LL41 + sllx %o1, 3, %o4 + sllx %g2, 3, %g3 + ldx [%l1+8], %g2 + sll %o1, 3, %o5 + sllx %o1, 2, %o4 + sub %g0, %g3, %g3 + ldx [%l1], %g4 + mov -1, %g1 + sllx %g4, %o5, %g4 + sllx %g1, %g3, %g1 + and %g1, %g2, %g1 + mov 32, %g2 + sllx %g1, %o5, %i1 + sub %g2, %o4, %g2 + srax %g1, %g2, %g1 + srax %g1, %g2, %g1 + return %i7+8 + or %g4, %g1, %o0 +.LL37: + sllx %g2, 3, %g3 + ldx [%l1+8], %o5 + sub %g0, %g3, %g3 + sub %g0, %g4, %o4 + ldx [%l1], %g2 + mov -1, %g1 + sllx %g2, %g4, %g2 + sllx %g1, %g3, %g1 + and %g1, %o5, %g1 + srax %g1, %o4, %g1 + return %i7+8 + or %g2, %g1, %o0 +.LL39: + bgu,pt %xcc, .LL43 + cmp %g2, 32 + cmp %g2, 24 + bgu,pt %xcc, .LL45 + sllx %o1, 3, %o3 + sllx %o1, 2, %g1 + sll %o1, 3, %o5 + sllx %g2, 3, %o4 + ldx [%l1+8], %g3 + ldx [%l1+16], %o3 + sllx %g3, %o5, %o2 + sub %g0, %o4, %o4 + mov 32, %g4 + ldx [%l1], %g2 + sub %g4, %g1, %g4 + sllx %g2, %o5, %g2 + srax %g3, %g4, %g3 + mov -1, %g1 + srax %g3, %g4, %g3 + sllx %g1, %o4, %g1 + and %g1, %o3, %g1 + sllx %g1, %o5, %i2 + srax %g1, %g4, %g1 + srax %g1, %g4, %g1 + or %o2, %g1, %i1 + return %i7+8 + or %g2, %g3, %o0 +.LL41: + sllx %g2, 3, %o5 + ldx [%l1+8], %g3 + ldx [%l1+16], %o3 + sllx %g3, %o4, %o2 + sub %g0, %o5, %o5 + mov 64, %g4 + ldx [%l1], %g2 + sub %g4, %o4, %g4 + sllx %g2, %o4, %g2 + srax %g3, %g4, %g3 + mov -1, %g1 + sllx %g1, %o5, %g1 + and %g1, %o3, %g1 + srax %g1, %g4, %g1 + or %o2, %g1, %i1 + return %i7+8 + or %g2, %g3, %o0 +.LL45: + ldx [%l1], %g1 + sllx %g1, %o3, %g1 + ldx [%l1+8], %g3 + ldx [%l1+16], %g4 + sllx %g3, %o3, %o2 + sllx %g4, %o3, %o0 + sllx %g2, 3, %o4 + ldx [%l1+24], %o1 + sub %g0, %o4, %o4 + mov 64, %o5 + sub %o5, %o3, %o5 + srax %g3, %o5, %g3 + srax %g4, %o5, %g4 + or %g1, %g3, %i0 + or %o2, %g4, %i1 + mov -1, %g1 + sllx %g1, %o4, %g1 + and %g1, %o1, %g1 + srax %g1, %o5, %g1 + or %o0, %g1, %i2 + return %i7+8 + nop +.LL43: + bgu,pt %xcc, .LL47 + sllx %o1, 3, %o3 + sll %o1, 3, %o4 + ldx [%l1], %g1 + sllx %g1, %o4, %g1 + sllx %o1, 2, %o3 + sllx %g2, 3, %o5 + ldx [%l1+8], %g3 + ldx [%l1+16], %g4 + sllx %g3, %o4, %o1 + sllx %g4, %o4, %o0 + ldx [%l1+24], %o2 + sub %g0, %o5, %o5 + mov 32, %g2 + sub %g2, %o3, %g2 + srax %g3, %g2, %g3 + srax %g4, %g2, %g4 + srax %g3, %g2, %g3 + srax %g4, %g2, %g4 + or %g1, %g3, %i0 + or %o1, %g4, %i1 + mov -1, %g1 + sllx %g1, %o5, %g1 + and %g1, %o2, %g1 + sllx %g1, %o4, %i3 + srax %g1, %g2, %g1 + srax %g1, %g2, %g1 + or %o0, %g1, %i2 + return %i7+8 + nop + .size callback_receiver, .-callback_receiver + .ident "GCC: (GNU) 4.0.2" + .section ".note.GNU-stack" diff --git a/callback/vacall_r/vacall-sparc64-macro.S b/callback/vacall_r/vacall-sparc64-macro.S new file mode 100644 index 0000000..da34bb9 --- /dev/null +++ b/callback/vacall_r/vacall-sparc64-macro.S @@ -0,0 +1,320 @@ +#include "asm-sparc.h" + .section ".text" + .align 4 + .global C(callback_receiver) + DECLARE_FUNCTION(callback_receiver) + .proc 020 +FUNBEGIN(callback_receiver) + .register %g2, $scratch + .register %g3, $scratch + save %sp, -448, %sp + stx %i0, [%fp+2175] + stx %i1, [%fp+2183] + stx %i2, [%fp+2191] + stx %i3, [%fp+2199] + stx %i4, [%fp+2207] + stx %i5, [%fp+2215] + std %f0, [%fp+1903] + std %f2, [%fp+1911] + std %f4, [%fp+1919] + std %f6, [%fp+1927] + std %f8, [%fp+1935] + std %f10, [%fp+1943] + std %f12, [%fp+1951] + std %f14, [%fp+1959] + std %f16, [%fp+1967] + std %f18, [%fp+1975] + std %f20, [%fp+1983] + std %f22, [%fp+1991] + std %f24, [%fp+1999] + std %f26, [%fp+2007] + std %f28, [%fp+2015] + std %f30, [%fp+2023] + st %f1, [%fp+1835] + st %f3, [%fp+1839] + st %f5, [%fp+1843] + st %f7, [%fp+1847] + st %f9, [%fp+1851] + st %f11, [%fp+1855] + st %f13, [%fp+1859] + st %f15, [%fp+1863] + st %f17, [%fp+1867] + st %f19, [%fp+1871] + st %f21, [%fp+1875] + st %f23, [%fp+1879] + add %fp, 2175, %g2 + stx %g0, [%fp+1807] + st %f25, [%fp+1883] + st %f27, [%fp+1887] + st %f29, [%fp+1891] + st %f31, [%fp+1895] + st %g0, [%fp+1775] + st %g0, [%fp+1815] + st %g0, [%fp+1831] + ldx [%g5+8], %o0 + stx %g2, [%fp+1799] + ldx [%g5], %g3 + call %g3, 0 + add %fp, 1775, %o1 + lduw [%fp+1815], %g1 + cmp %g1, 0 + be,pn %icc, L(L61) + cmp %g1, 1 + be,pn %icc, L(L50) + cmp %g1, 2 + be,pn %icc, L(L50) + cmp %g1, 3 + be,pn %icc, L(L53) + cmp %g1, 4 + be,pn %icc, L(L54) + cmp %g1, 5 + be,pn %icc, L(L55) + cmp %g1, 6 + be,pn %icc, L(L56) + cmp %g1, 7 + be,pn %icc, L(L57) + cmp %g1, 8 + be,pn %icc, L(L51) + cmp %g1, 9 + be,pn %icc, L(L51) + cmp %g1, 10 + be,pn %icc, L(L51) + cmp %g1, 11 + be,pn %icc, L(L51) + cmp %g1, 12 + be,pn %icc, L(L58) + cmp %g1, 13 + be,pn %icc, L(L59) + cmp %g1, 14 + be,pn %icc, L(L51) + cmp %g1, 15 + bne,pt %icc, L(L61) + lduw [%fp+1775], %g1 + andcc %g1, 1024, %g0 + be,pn %xcc, L(L61) + ldx [%fp+1823], %o5 + add %o5, -1, %g1 + cmp %g1, 31 + bgu,pn %xcc, L(L61) + ldx [%fp+1807], %g1 + cmp %o5, 8 + and %g1, 7, %o1 + and %g1, -8, %l1 + bgu,pt %xcc, L(L35) + add %o5, %o1, %g2 + cmp %g2, 8 + bgu,pt %xcc, L(L37) + sllx %o1, 3, %g4 + sllx %g2, 3, %g2 + ldx [%l1], %g3 + sub %g0, %g2, %g2 + mov -1, %g1 + sllx %g1, %g2, %g1 + and %g1, %g3, %g1 + return %i7+8 + sllx %g1, %g4, %o0 +L(L47): + ldx [%l1], %g1 + sllx %g1, %o3, %g1 + ldx [%l1+8], %g4 + ldx [%l1+16], %o5 + sllx %g4, %o3, %o0 + sllx %o5, %o3, %o7 + ldx [%l1+24], %o4 + sllx %g2, 3, %o2 + sllx %o4, %o3, %l0 + ldx [%l1+32], %o1 + sub %g0, %o2, %o2 + mov 64, %g3 + sub %g3, %o3, %g3 + srax %g4, %g3, %g4 + srax %o5, %g3, %o5 + or %g1, %g4, %i0 + srax %o4, %g3, %o4 + mov -1, %g1 + or %o0, %o5, %i1 + sllx %g1, %o2, %g1 + or %o7, %o4, %i2 + and %g1, %o1, %g1 + srax %g1, %g3, %g1 + or %l0, %g1, %i3 +L(L61): + return %i7+8 + nop +L(L50): + ldsb [%fp+1783], %i0 + return %i7+8 + nop +L(L54): + ldsh [%fp+1783], %i0 + return %i7+8 + nop +L(L53): + ldub [%fp+1783], %i0 + return %i7+8 + nop +L(L51): + ldx [%fp+1783], %i0 + return %i7+8 + nop +L(L55): + lduh [%fp+1783], %i0 + return %i7+8 + nop +L(L56): + ldsw [%fp+1783], %i0 + return %i7+8 + nop +L(L57): + lduw [%fp+1783], %i0 + return %i7+8 + nop +L(L58): + ld [%fp+1783], %f0 + return %i7+8 + nop +L(L59): + ldd [%fp+1783], %f0 + return %i7+8 + nop +L(L35): + cmp %o5, 16 + bgu,pt %xcc, L(L39) + cmp %o5, 24 + cmp %g2, 16 + bgu,pt %xcc, L(L41) + sllx %o1, 3, %o4 + sllx %g2, 3, %g3 + ldx [%l1+8], %g2 + sll %o1, 3, %o5 + sllx %o1, 2, %o4 + sub %g0, %g3, %g3 + ldx [%l1], %g4 + mov -1, %g1 + sllx %g4, %o5, %g4 + sllx %g1, %g3, %g1 + and %g1, %g2, %g1 + mov 32, %g2 + sllx %g1, %o5, %i1 + sub %g2, %o4, %g2 + srax %g1, %g2, %g1 + srax %g1, %g2, %g1 + return %i7+8 + or %g4, %g1, %o0 +L(L37): + sllx %g2, 3, %g3 + ldx [%l1+8], %o5 + sub %g0, %g3, %g3 + sub %g0, %g4, %o4 + ldx [%l1], %g2 + mov -1, %g1 + sllx %g2, %g4, %g2 + sllx %g1, %g3, %g1 + and %g1, %o5, %g1 + srax %g1, %o4, %g1 + return %i7+8 + or %g2, %g1, %o0 +L(L39): + bgu,pt %xcc, L(L43) + cmp %g2, 32 + cmp %g2, 24 + bgu,pt %xcc, L(L45) + sllx %o1, 3, %o3 + sllx %o1, 2, %g1 + sll %o1, 3, %o5 + sllx %g2, 3, %o4 + ldx [%l1+8], %g3 + ldx [%l1+16], %o3 + sllx %g3, %o5, %o2 + sub %g0, %o4, %o4 + mov 32, %g4 + ldx [%l1], %g2 + sub %g4, %g1, %g4 + sllx %g2, %o5, %g2 + srax %g3, %g4, %g3 + mov -1, %g1 + srax %g3, %g4, %g3 + sllx %g1, %o4, %g1 + and %g1, %o3, %g1 + sllx %g1, %o5, %i2 + srax %g1, %g4, %g1 + srax %g1, %g4, %g1 + or %o2, %g1, %i1 + return %i7+8 + or %g2, %g3, %o0 +L(L41): + sllx %g2, 3, %o5 + ldx [%l1+8], %g3 + ldx [%l1+16], %o3 + sllx %g3, %o4, %o2 + sub %g0, %o5, %o5 + mov 64, %g4 + ldx [%l1], %g2 + sub %g4, %o4, %g4 + sllx %g2, %o4, %g2 + srax %g3, %g4, %g3 + mov -1, %g1 + sllx %g1, %o5, %g1 + and %g1, %o3, %g1 + srax %g1, %g4, %g1 + or %o2, %g1, %i1 + return %i7+8 + or %g2, %g3, %o0 +L(L45): + ldx [%l1], %g1 + sllx %g1, %o3, %g1 + ldx [%l1+8], %g3 + ldx [%l1+16], %g4 + sllx %g3, %o3, %o2 + sllx %g4, %o3, %o0 + sllx %g2, 3, %o4 + ldx [%l1+24], %o1 + sub %g0, %o4, %o4 + mov 64, %o5 + sub %o5, %o3, %o5 + srax %g3, %o5, %g3 + srax %g4, %o5, %g4 + or %g1, %g3, %i0 + or %o2, %g4, %i1 + mov -1, %g1 + sllx %g1, %o4, %g1 + and %g1, %o1, %g1 + srax %g1, %o5, %g1 + or %o0, %g1, %i2 + return %i7+8 + nop +L(L43): + bgu,pt %xcc, L(L47) + sllx %o1, 3, %o3 + sll %o1, 3, %o4 + ldx [%l1], %g1 + sllx %g1, %o4, %g1 + sllx %o1, 2, %o3 + sllx %g2, 3, %o5 + ldx [%l1+8], %g3 + ldx [%l1+16], %g4 + sllx %g3, %o4, %o1 + sllx %g4, %o4, %o0 + ldx [%l1+24], %o2 + sub %g0, %o5, %o5 + mov 32, %g2 + sub %g2, %o3, %g2 + srax %g3, %g2, %g3 + srax %g4, %g2, %g4 + srax %g3, %g2, %g3 + srax %g4, %g2, %g4 + or %g1, %g3, %i0 + or %o1, %g4, %i1 + mov -1, %g1 + sllx %g1, %o5, %g1 + and %g1, %o2, %g1 + sllx %g1, %o4, %i3 + srax %g1, %g2, %g1 + srax %g1, %g2, %g1 + or %o0, %g1, %i2 + return %i7+8 + nop + FUNEND(callback_receiver) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/callback/vacall_r/vacall-structcpy.c b/callback/vacall_r/vacall-structcpy.c new file mode 100644 index 0000000..23d3e77 --- /dev/null +++ b/callback/vacall_r/vacall-structcpy.c @@ -0,0 +1,22 @@ +/* copy structs */ + +/* + * Copyright 2016 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#define __structcpy callback_structcpy + +#include "structcpy.c" diff --git a/callback/vacall_r/vacall-x86_64-linux.s b/callback/vacall_r/vacall-x86_64-linux.s new file mode 100644 index 0000000..d2d1b42 --- /dev/null +++ b/callback/vacall_r/vacall-x86_64-linux.s @@ -0,0 +1,300 @@ + .file "vacall-x86_64.c" + .text + .p2align 4,,15 + .type callback_receiver, @function +callback_receiver: +.LFB2: + pushq %rbp +.LCFI0: + movq %rsp, %rbp +.LCFI1: + pushq %r13 +.LCFI2: + pushq %r12 +.LCFI3: + subq $192, %rsp +.LCFI4: + movq %rcx, -48(%rbp) + leaq 16(%rbp), %rcx + movq %rdi, -72(%rbp) + movq %rsi, -64(%rbp) + movsd %xmm0, -144(%rbp) + movq %rcx, -184(%rbp) + movq $0, -176(%rbp) + movsd %xmm1, -136(%rbp) + movq %rdx, -56(%rbp) + movsd %xmm2, -128(%rbp) + leaq -208(%rbp), %rsi + movq %r8, -40(%rbp) + movsd %xmm3, -120(%rbp) + movq %r9, -32(%rbp) + movsd %xmm4, -112(%rbp) + movsd %xmm5, -104(%rbp) + movl $0, -208(%rbp) + movsd %xmm6, -96(%rbp) + movl $0, -168(%rbp) + movsd %xmm7, -88(%rbp) + movl $0, -80(%rbp) + movl $0, -152(%rbp) + movq 8(%r10), %rdi + call *(%r10) + movl -168(%rbp), %ecx + testl %ecx, %ecx + je .L41 + cmpl $1, %ecx + je .L42 + cmpl $2, %ecx + je .L42 + cmpl $3, %ecx + .p2align 4,,5 + je .L48 + cmpl $4, %ecx + .p2align 4,,5 + je .L49 + cmpl $5, %ecx + .p2align 4,,5 + je .L50 + cmpl $6, %ecx + .p2align 4,,5 + je .L51 + cmpl $7, %ecx + .p2align 4,,5 + je .L52 + cmpl $8, %ecx + .p2align 4,,5 + je .L46 + cmpl $9, %ecx + .p2align 4,,5 + je .L46 + cmpl $10, %ecx + .p2align 4,,5 + je .L46 + cmpl $11, %ecx + .p2align 4,,5 + je .L46 + cmpl $12, %ecx + .p2align 4,,5 + je .L53 + cmpl $13, %ecx + .p2align 4,,5 + je .L54 + cmpl $14, %ecx + .p2align 4,,5 + je .L46 + cmpl $15, %ecx + .p2align 4,,5 + jne .L41 + testb $4, -207(%rbp) + .p2align 4,,2 + je .L41 + movq -160(%rbp), %rsi + leaq -1(%rsi), %rcx + cmpq $15, %rcx + ja .L41 + movq -176(%rbp), %rcx + movq %rcx, %r12 + movq %rcx, %r8 + andl $7, %r8d + andq $-8, %r12 + cmpq $8, %rsi + leaq (%rsi,%r8), %r11 + ja .L35 + cmpq $8, %r11 + ja .L37 + leal -1(,%r11,8), %ecx + movl $2, %esi + salq %cl, %rsi + leal 0(,%r8,8), %ecx + decq %rsi + andq (%r12), %rsi + movq %rsi, %rax + sarq %cl, %rax + .p2align 4,,7 +.L41: + addq $192, %rsp + popq %r12 + popq %r13 + leave + ret + .p2align 4,,7 +.L42: + movsbq -200(%rbp),%rax + addq $192, %rsp + popq %r12 + popq %r13 + leave + ret +.L49: + movswq -200(%rbp),%rax + jmp .L41 +.L48: + movzbq -200(%rbp), %rax + jmp .L41 +.L46: + movq -200(%rbp), %rax + jmp .L41 +.L50: + movzwq -200(%rbp), %rax + jmp .L41 +.L51: + movslq -200(%rbp),%rax + jmp .L41 +.L52: + mov -200(%rbp), %eax + jmp .L41 +.L53: + movss -200(%rbp), %xmm0 + jmp .L41 +.L54: + movlpd -200(%rbp), %xmm0 + jmp .L41 +.L35: + cmpq $16, %r11 + ja .L39 + leal -65(,%r11,8), %ecx + movl $2, %esi + leal 0(,%r8,8), %r9d + movl $32, %edi + salq %cl, %rsi + leaq 0(,%r8,4), %rcx + movq (%r12), %r8 + decq %rsi + andq 8(%r12), %rsi + subl %ecx, %edi + movl %r9d, %ecx + sarq %cl, %r8 + movl %edi, %ecx + movq %r8, %rax + movq %rsi, %r11 + movq %rsi, %rdx + salq %cl, %r11 + salq %cl, %r11 + movl %r9d, %ecx + orq %r11, %rax + sarq %cl, %rdx + jmp .L41 +.L37: + movq (%r12), %rdi + leal -65(,%r11,8), %esi + salq $3, %r8 + movl %r8d, %ecx + movl $2, %r11d + sarq %cl, %rdi + movl %esi, %ecx + movl $64, %esi + salq %cl, %r11 + subl %r8d, %esi + movq %rdi, %rax + decq %r11 + andq 8(%r12), %r11 + movl %esi, %ecx + salq %cl, %r11 + orq %r11, %rax + jmp .L41 +.L39: + leaq 0(,%r8,8), %rcx + movq (%r12), %r13 + movq 8(%r12), %r8 + movl $64, %edi + subl %ecx, %edi + movl %ecx, %r9d + sarq %cl, %r13 + movq %r8, %rsi + movl %edi, %ecx + salq %cl, %rsi + movq %r13, %rax + movl %r9d, %ecx + orq %rsi, %rax + leal -129(,%r11,8), %esi + sarq %cl, %r8 + movl $2, %r9d + movq %r8, %rdx + movl %esi, %ecx + salq %cl, %r9 + movl %edi, %ecx + leaq -1(%r9), %rsi + andq 16(%r12), %rsi + salq %cl, %rsi + orq %rsi, %rdx + jmp .L41 +.LFE2: + .size callback_receiver, .-callback_receiver + .p2align 4,,15 +.globl callback_get_receiver + .type callback_get_receiver, @function +callback_get_receiver: +.LFB3: + pushq %rbp +.LCFI5: + leaq callback_receiver(%rip), %rax + movq %rsp, %rbp +.LCFI6: + leave + ret +.LFE3: + .size callback_get_receiver, .-callback_get_receiver + .section .eh_frame,"a",@progbits +.Lframe1: + .long .LECIE1-.LSCIE1 +.LSCIE1: + .long 0x0 + .byte 0x1 + .string "zR" + .uleb128 0x1 + .sleb128 -8 + .byte 0x10 + .uleb128 0x1 + .byte 0x1b + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x90 + .uleb128 0x1 + .align 8 +.LECIE1: +.LSFDE1: + .long .LEFDE1-.LASFDE1 +.LASFDE1: + .long .LASFDE1-.Lframe1 + .long .LFB2-. + .long .LFE2-.LFB2 + .uleb128 0x0 + .byte 0x4 + .long .LCFI0-.LFB2 + .byte 0xe + .uleb128 0x10 + .byte 0x86 + .uleb128 0x2 + .byte 0x4 + .long .LCFI1-.LCFI0 + .byte 0xd + .uleb128 0x6 + .byte 0x4 + .long .LCFI4-.LCFI1 + .byte 0x8c + .uleb128 0x4 + .byte 0x8d + .uleb128 0x3 + .align 8 +.LEFDE1: +.LSFDE3: + .long .LEFDE3-.LASFDE3 +.LASFDE3: + .long .LASFDE3-.Lframe1 + .long .LFB3-. + .long .LFE3-.LFB3 + .uleb128 0x0 + .byte 0x4 + .long .LCFI5-.LFB3 + .byte 0xe + .uleb128 0x10 + .byte 0x86 + .uleb128 0x2 + .byte 0x4 + .long .LCFI6-.LCFI5 + .byte 0xd + .uleb128 0x6 + .align 8 +.LEFDE3: + .ident "GCC: (GNU) 4.0.2" + .section .note.GNU-stack,"",@progbits diff --git a/callback/vacall_r/vacall-x86_64-macro.S b/callback/vacall_r/vacall-x86_64-macro.S new file mode 100644 index 0000000..d114a77 --- /dev/null +++ b/callback/vacall_r/vacall-x86_64-macro.S @@ -0,0 +1,303 @@ +#include "asm-x86_64.h" + TEXT() + P2ALIGN(4,15) + DECLARE_FUNCTION(callback_receiver) +FUNBEGIN(callback_receiver) +L(FB2): + INSN1(push,q ,R(rbp)) +L(CFI0): + INSN2(mov,q ,R(rsp), R(rbp)) +L(CFI1): + INSN1(push,q ,R(r13)) +L(CFI2): + INSN1(push,q ,R(r12)) +L(CFI3): + INSN2(sub,q ,NUM(192), R(rsp)) +L(CFI4): + INSN2(mov,q ,R(rcx),X8 MEM_DISP(rbp,-48)) + INSN2(lea,q ,X8 MEM_DISP(rbp,16), R(rcx)) + INSN2(mov,q ,R(rdi),X8 MEM_DISP(rbp,-72)) + INSN2(mov,q ,R(rsi),X8 MEM_DISP(rbp,-64)) + INSN2S(movs,d ,R(xmm0),X8 MEM_DISP(rbp,-144)) + INSN2(mov,q ,R(rcx),X8 MEM_DISP(rbp,-184)) + INSN2(mov,q ,NUM(0),X8 MEM_DISP(rbp,-176)) + INSN2S(movs,d ,R(xmm1),X8 MEM_DISP(rbp,-136)) + INSN2(mov,q ,R(rdx),X8 MEM_DISP(rbp,-56)) + INSN2S(movs,d ,R(xmm2),X8 MEM_DISP(rbp,-128)) + INSN2(lea,q ,X8 MEM_DISP(rbp,-208), R(rsi)) + INSN2(mov,q ,R(r8),X8 MEM_DISP(rbp,-40)) + INSN2S(movs,d ,R(xmm3),X8 MEM_DISP(rbp,-120)) + INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) + INSN2S(movs,d ,R(xmm4),X8 MEM_DISP(rbp,-112)) + INSN2S(movs,d ,R(xmm5),X8 MEM_DISP(rbp,-104)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(rbp,-208)) + INSN2S(movs,d ,R(xmm6),X8 MEM_DISP(rbp,-96)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(rbp,-168)) + INSN2S(movs,d ,R(xmm7),X8 MEM_DISP(rbp,-88)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(rbp,-80)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(rbp,-152)) + INSN2(mov,q ,X8 MEM_DISP(r10,8), R(rdi)) + INSN1(call,_ ,INDIR(X8 MEM(r10))) + INSN2(mov,l ,X4 MEM_DISP(rbp,-168), R(ecx)) + INSN2(test,l ,R(ecx), R(ecx)) + INSN1(je,_ ,L(41)) + INSN2(cmp,l ,NUM(1), R(ecx)) + INSN1(je,_ ,L(42)) + INSN2(cmp,l ,NUM(2), R(ecx)) + INSN1(je,_ ,L(42)) + INSN2(cmp,l ,NUM(3), R(ecx)) + P2ALIGN(4,5) + INSN1(je,_ ,L(48)) + INSN2(cmp,l ,NUM(4), R(ecx)) + P2ALIGN(4,5) + INSN1(je,_ ,L(49)) + INSN2(cmp,l ,NUM(5), R(ecx)) + P2ALIGN(4,5) + INSN1(je,_ ,L(50)) + INSN2(cmp,l ,NUM(6), R(ecx)) + P2ALIGN(4,5) + INSN1(je,_ ,L(51)) + INSN2(cmp,l ,NUM(7), R(ecx)) + P2ALIGN(4,5) + INSN1(je,_ ,L(52)) + INSN2(cmp,l ,NUM(8), R(ecx)) + P2ALIGN(4,5) + INSN1(je,_ ,L(46)) + INSN2(cmp,l ,NUM(9), R(ecx)) + P2ALIGN(4,5) + INSN1(je,_ ,L(46)) + INSN2(cmp,l ,NUM(10), R(ecx)) + P2ALIGN(4,5) + INSN1(je,_ ,L(46)) + INSN2(cmp,l ,NUM(11), R(ecx)) + P2ALIGN(4,5) + INSN1(je,_ ,L(46)) + INSN2(cmp,l ,NUM(12), R(ecx)) + P2ALIGN(4,5) + INSN1(je,_ ,L(53)) + INSN2(cmp,l ,NUM(13), R(ecx)) + P2ALIGN(4,5) + INSN1(je,_ ,L(54)) + INSN2(cmp,l ,NUM(14), R(ecx)) + P2ALIGN(4,5) + INSN1(je,_ ,L(46)) + INSN2(cmp,l ,NUM(15), R(ecx)) + P2ALIGN(4,5) + INSN1(jne,_ ,L(41)) + INSN2(test,b ,NUM(4),X1 MEM_DISP(rbp,-207)) + P2ALIGN(4,2) + INSN1(je,_ ,L(41)) + INSN2(mov,q ,X8 MEM_DISP(rbp,-160), R(rsi)) + INSN2(lea,q ,X8 MEM_DISP(rsi,-1), R(rcx)) + INSN2(cmp,q ,NUM(15), R(rcx)) + INSN1(ja,_ ,L(41)) + INSN2(mov,q ,X8 MEM_DISP(rbp,-176), R(rcx)) + INSN2(mov,q ,R(rcx), R(r12)) + INSN2(mov,q ,R(rcx), R(r8)) + INSN2(and,l ,NUM(7), R(r8d)) + INSN2(and,q ,NUM(-8), R(r12)) + INSN2(cmp,q ,NUM(8), R(rsi)) + INSN2(lea,q ,X8 MEM_INDEX(rsi,r8), R(r11)) + INSN1(ja,_ ,L(35)) + INSN2(cmp,q ,NUM(8), R(r11)) + INSN1(ja,_ ,L(37)) + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-1,r11,8), R(ecx)) + INSN2(mov,l ,NUM(2), R(esi)) + INSN2(sal,q ,R(cl), R(rsi)) + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(0,r8,8), R(ecx)) + INSN1(dec,q ,R(rsi)) + INSN2(and,q ,X8 MEM(r12), R(rsi)) + INSN2(mov,q ,R(rsi), R(rax)) + INSN2(sar,q ,R(cl), R(rax)) + P2ALIGN(4,7) +L(41): + INSN2(add,q ,NUM(192), R(rsp)) + INSN1(pop,q ,R(r12)) + INSN1(pop,q ,R(r13)) + leave + ret + P2ALIGN(4,7) +L(42): + INSN2MOVXQ(movs,b,X1 MEM_DISP(rbp,-200),R(rax)) + INSN2(add,q ,NUM(192), R(rsp)) + INSN1(pop,q ,R(r12)) + INSN1(pop,q ,R(r13)) + leave + ret +L(49): + INSN2MOVXQ(movs,w,X2 MEM_DISP(rbp,-200),R(rax)) + INSN1(jmp,_ ,L(41)) +L(48): + INSN2MOVXQ(movz,b,X1 MEM_DISP(rbp,-200), R(rax)) + INSN1(jmp,_ ,L(41)) +L(46): + INSN2(mov,q ,X8 MEM_DISP(rbp,-200), R(rax)) + INSN1(jmp,_ ,L(41)) +L(50): + INSN2MOVXQ(movz,w,X2 MEM_DISP(rbp,-200), R(rax)) + INSN1(jmp,_ ,L(41)) +L(51): + INSN2MOVXLQ(movs,l,X4 MEM_DISP(rbp,-200),R(rax)) + INSN1(jmp,_ ,L(41)) +L(52): + INSN2(mov,l ,X4 MEM_DISP(rbp,-200), R(eax)) + INSN1(jmp,_ ,L(41)) +L(53): + INSN2S(movs,s ,X4 MEM_DISP(rbp,-200), R(xmm0)) + INSN1(jmp,_ ,L(41)) +L(54): + INSN2(movlp,d ,X8 MEM_DISP(rbp,-200), R(xmm0)) + INSN1(jmp,_ ,L(41)) +L(35): + INSN2(cmp,q ,NUM(16), R(r11)) + INSN1(ja,_ ,L(39)) + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-65,r11,8), R(ecx)) + INSN2(mov,l ,NUM(2), R(esi)) + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(0,r8,8), R(r9d)) + INSN2(mov,l ,NUM(32), R(edi)) + INSN2(sal,q ,R(cl), R(rsi)) + INSN2(lea,q ,X8 MEM_DISP_SHINDEX0(0,r8,4), R(rcx)) + INSN2(mov,q ,X8 MEM(r12), R(r8)) + INSN1(dec,q ,R(rsi)) + INSN2(and,q ,X8 MEM_DISP(r12,8), R(rsi)) + INSN2(sub,l ,R(ecx), R(edi)) + INSN2(mov,l ,R(r9d), R(ecx)) + INSN2(sar,q ,R(cl), R(r8)) + INSN2(mov,l ,R(edi), R(ecx)) + INSN2(mov,q ,R(r8), R(rax)) + INSN2(mov,q ,R(rsi), R(r11)) + INSN2(mov,q ,R(rsi), R(rdx)) + INSN2(sal,q ,R(cl), R(r11)) + INSN2(sal,q ,R(cl), R(r11)) + INSN2(mov,l ,R(r9d), R(ecx)) + INSN2(or,q ,R(r11), R(rax)) + INSN2(sar,q ,R(cl), R(rdx)) + INSN1(jmp,_ ,L(41)) +L(37): + INSN2(mov,q ,X8 MEM(r12), R(rdi)) + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-65,r11,8), R(esi)) + INSN2(sal,q ,NUM(3), R(r8)) + INSN2(mov,l ,R(r8d), R(ecx)) + INSN2(mov,l ,NUM(2), R(r11d)) + INSN2(sar,q ,R(cl), R(rdi)) + INSN2(mov,l ,R(esi), R(ecx)) + INSN2(mov,l ,NUM(64), R(esi)) + INSN2(sal,q ,R(cl), R(r11)) + INSN2(sub,l ,R(r8d), R(esi)) + INSN2(mov,q ,R(rdi), R(rax)) + INSN1(dec,q ,R(r11)) + INSN2(and,q ,X8 MEM_DISP(r12,8), R(r11)) + INSN2(mov,l ,R(esi), R(ecx)) + INSN2(sal,q ,R(cl), R(r11)) + INSN2(or,q ,R(r11), R(rax)) + INSN1(jmp,_ ,L(41)) +L(39): + INSN2(lea,q ,X8 MEM_DISP_SHINDEX0(0,r8,8), R(rcx)) + INSN2(mov,q ,X8 MEM(r12), R(r13)) + INSN2(mov,q ,X8 MEM_DISP(r12,8), R(r8)) + INSN2(mov,l ,NUM(64), R(edi)) + INSN2(sub,l ,R(ecx), R(edi)) + INSN2(mov,l ,R(ecx), R(r9d)) + INSN2(sar,q ,R(cl), R(r13)) + INSN2(mov,q ,R(r8), R(rsi)) + INSN2(mov,l ,R(edi), R(ecx)) + INSN2(sal,q ,R(cl), R(rsi)) + INSN2(mov,q ,R(r13), R(rax)) + INSN2(mov,l ,R(r9d), R(ecx)) + INSN2(or,q ,R(rsi), R(rax)) + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-129,r11,8), R(esi)) + INSN2(sar,q ,R(cl), R(r8)) + INSN2(mov,l ,NUM(2), R(r9d)) + INSN2(mov,q ,R(r8), R(rdx)) + INSN2(mov,l ,R(esi), R(ecx)) + INSN2(sal,q ,R(cl), R(r9)) + INSN2(mov,l ,R(edi), R(ecx)) + INSN2(lea,q ,X8 MEM_DISP(r9,-1), R(rsi)) + INSN2(and,q ,X8 MEM_DISP(r12,16), R(rsi)) + INSN2(sal,q ,R(cl), R(rsi)) + INSN2(or,q ,R(rsi), R(rdx)) + INSN1(jmp,_ ,L(41)) +L(FE2): + FUNEND(callback_receiver, .-callback_receiver) + P2ALIGN(4,15) +GLOBL(C(callback_get_receiver)) + DECLARE_FUNCTION(callback_get_receiver) +FUNBEGIN(callback_get_receiver) +L(FB3): + INSN1(push,q ,R(rbp)) +L(CFI5): + INSN2(lea,q ,ADDR_PCRELATIVE(C(callback_receiver)), R(rax)) + INSN2(mov,q ,R(rsp), R(rbp)) +L(CFI6): + leave + ret +L(FE3): + FUNEND(callback_get_receiver, .-callback_get_receiver) +#if !(defined __sun || (defined __APPLE__ && defined __MACH__) || (defined _WIN32 || defined __CYGWIN__)) + .section EH_FRAME_SECTION +L(frame1): + .long L(ECIE1)-.LSCIE1 +L(SCIE1): + .long 0x0 + .byte 0x1 + .string "zR" + .uleb128 0x1 + .sleb128 -8 + .byte 0x10 + .uleb128 0x1 + .byte 0x1b + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x90 + .uleb128 0x1 + .align 8 +L(ECIE1): +L(SFDE1): + .long L(EFDE1)-.LASFDE1 +L(ASFDE1): + .long L(ASFDE1)-.Lframe1 + .long L(FB2)-. + .long L(FE2)-.LFB2 + .uleb128 0x0 + .byte 0x4 + .long L(CFI0)-.LFB2 + .byte 0xe + .uleb128 0x10 + .byte 0x86 + .uleb128 0x2 + .byte 0x4 + .long L(CFI1)-.LCFI0 + .byte 0xd + .uleb128 0x6 + .byte 0x4 + .long L(CFI4)-.LCFI1 + .byte 0x8c + .uleb128 0x4 + .byte 0x8d + .uleb128 0x3 + .align 8 +L(EFDE1): +L(SFDE3): + .long L(EFDE3)-.LASFDE3 +L(ASFDE3): + .long L(ASFDE3)-.Lframe1 + .long L(FB3)-. + .long L(FE3)-.LFB3 + .uleb128 0x0 + .byte 0x4 + .long L(CFI5)-.LFB3 + .byte 0xe + .uleb128 0x10 + .byte 0x86 + .uleb128 0x2 + .byte 0x4 + .long L(CFI6)-.LCFI5 + .byte 0xd + .uleb128 0x6 + .align 8 +L(EFDE3): +#endif +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/callback/vacall_r/vacall-x86_64-windows-macro.S b/callback/vacall_r/vacall-x86_64-windows-macro.S new file mode 100644 index 0000000..5a4ad0b --- /dev/null +++ b/callback/vacall_r/vacall-x86_64-windows-macro.S @@ -0,0 +1,390 @@ +#include "asm-x86_64.h" + TEXT() + P2ALIGN(4,15) + DECLARE_FUNCTION(callback_receiver) +FUNBEGIN(callback_receiver) +L(FB0): + INSN1(push,q ,R(rbp)) +L(CFI0): + INSN2(mov,q ,R(rsp), R(rbp)) +L(CFI1): + INSN2(sub,q ,NUM(144), R(rsp)) + INSN2(mov,q ,R(rcx),X8 MEM_DISP(rbp,16)) + INSN2(lea,q ,X8 MEM_DISP(rbp,16), R(rcx)) + INSN2(mov,q ,R(rdx),X8 MEM_DISP(rbp,24)) + INSN2(mov,q ,R(r8),X8 MEM_DISP(rbp,32)) + INSN2(lea,q ,X8 MEM_DISP(rbp,-112), R(rdx)) + INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,40)) + INSN2(mov,q ,R(rcx),X8 MEM_DISP(rbp,-88)) + INSN2S(movs,s ,R(xmm0),X4 MEM_DISP(rbp,-52)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(rbp,-112)) + INSN2S(movs,s ,R(xmm1),X4 MEM_DISP(rbp,-48)) + INSN2(mov,q ,NUM(0),X8 MEM_DISP(rbp,-80)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(rbp,-72)) + INSN2S(movs,s ,R(xmm2),X4 MEM_DISP(rbp,-44)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(rbp,-56)) + INSN2S(movs,s ,R(xmm3),X4 MEM_DISP(rbp,-40)) + INSN2(mov,q ,X8 MEM_DISP(r10,8), R(rcx)) + INSN2S(movs,d ,R(xmm0),X8 MEM_DISP(rbp,-32)) + INSN2S(movs,d ,R(xmm1),X8 MEM_DISP(rbp,-24)) + INSN2S(movs,d ,R(xmm2),X8 MEM_DISP(rbp,-16)) + INSN2S(movs,d ,R(xmm3),X8 MEM_DISP(rbp,-8)) + INSN1(call,_ ,INDIR(X8 MEM(r10))) + INSN2(mov,l ,X4 MEM_DISP(rbp,-72), R(edx)) + INSN2(test,l ,R(edx), R(edx)) + INSN1(je,_ ,L(1)) + INSN2(cmp,l ,NUM(1), R(edx)) + INSN1(je,_ ,L(34)) + INSN2(cmp,l ,NUM(2), R(edx)) + INSN1(je,_ ,L(34)) + INSN2(cmp,l ,NUM(3), R(edx)) + INSN1(je,_ ,L(37)) + INSN2(cmp,l ,NUM(4), R(edx)) + INSN1(je,_ ,L(38)) + INSN2(cmp,l ,NUM(5), R(edx)) + INSN1(je,_ ,L(39)) + INSN2(cmp,l ,NUM(6), R(edx)) + INSN1(je,_ ,L(40)) + INSN2(cmp,l ,NUM(7), R(edx)) + INSN1(je,_ ,L(41)) + INSN2(cmp,l ,NUM(8), R(edx)) + INSN1(je,_ ,L(35)) + INSN2(cmp,l ,NUM(9), R(edx)) + INSN1(je,_ ,L(35)) + INSN2(cmp,l ,NUM(10), R(edx)) + INSN1(je,_ ,L(35)) + INSN2(cmp,l ,NUM(11), R(edx)) + INSN1(je,_ ,L(35)) + INSN2(cmp,l ,NUM(12), R(edx)) + INSN1(je,_ ,L(42)) + INSN2(cmp,l ,NUM(13), R(edx)) + INSN1(je,_ ,L(43)) + INSN2(cmp,l ,NUM(14), R(edx)) + INSN1(je,_ ,L(35)) + INSN2(cmp,l ,NUM(15), R(edx)) + INSN1(jne,_ ,L(1)) + INSN2(test,b ,NUM(4),X1 MEM_DISP(rbp,-111)) + INSN1(je,_ ,L(17)) + INSN2(mov,q ,X8 MEM_DISP(rbp,-64), R(rdx)) + INSN2(lea,q ,X8 MEM_DISP(rdx,-4), R(rcx)) + INSN2(test,q ,NUM(-5), R(rcx)) + INSN1(je,_ ,L(20)) + INSN2(lea,q ,X8 MEM_DISP(rdx,-1), R(rcx)) + INSN2(cmp,q ,NUM(1), R(rcx)) + INSN1(ja,_ ,L(1)) +L(20): + INSN2(mov,q ,X8 MEM_DISP(rbp,-80), R(r8)) + INSN2(mov,q ,R(r8), R(r9)) + INSN2(and,l ,NUM(7), R(r8d)) + INSN2(add,q ,R(r8), R(rdx)) + INSN2(and,q ,NUM(-8), R(r9)) + INSN2(cmp,q ,NUM(8), R(rdx)) + INSN1(ja,_ ,L(19)) + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-1,rdx,8), R(ecx)) + INSN2(mov,l ,NUM(2), R(edx)) + INSN2(sal,q ,R(cl), R(rdx)) + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(0,r8,8), R(ecx)) + INSN2(sub,q ,NUM(1), R(rdx)) + INSN2(and,q ,X8 MEM(r9), R(rdx)) + INSN2(sar,q ,R(cl), R(rdx)) + INSN2(mov,q ,R(rdx), R(rax)) +L(1): + leave +L(CFI2): + ret + P2ALIGN(4,10) + P2ALIGN(3,7) +L(34): +L(CFI3): + INSN2MOVXQ(movs,b,X1 MEM_DISP(rbp,-104), R(rax)) + leave +L(CFI4): + ret + P2ALIGN(4,10) + P2ALIGN(3,7) +L(35): +L(CFI5): + INSN2(mov,q ,X8 MEM_DISP(rbp,-104), R(rax)) + leave +L(CFI6): + ret + P2ALIGN(4,10) + P2ALIGN(3,7) +L(37): +L(CFI7): + INSN2MOVXL(movz,b,X1 MEM_DISP(rbp,-104), R(eax)) + leave +L(CFI8): + ret + P2ALIGN(4,10) + P2ALIGN(3,7) +L(38): +L(CFI9): + INSN2MOVXQ(movs,w,X2 MEM_DISP(rbp,-104), R(rax)) + leave +L(CFI10): + ret + P2ALIGN(4,10) + P2ALIGN(3,7) +L(39): +L(CFI11): + INSN2MOVXL(movz,w,X2 MEM_DISP(rbp,-104), R(eax)) + leave +L(CFI12): + ret + P2ALIGN(4,10) + P2ALIGN(3,7) +L(40): +L(CFI13): + INSN2MOVXLQ(movs,l,X4 MEM_DISP(rbp,-104), R(rax)) + leave +L(CFI14): + ret + P2ALIGN(4,10) + P2ALIGN(3,7) +L(42): +L(CFI15): + INSN2S(movs,s ,X4 MEM_DISP(rbp,-104), R(xmm0)) + leave +L(CFI16): + ret + P2ALIGN(4,10) + P2ALIGN(3,7) +L(41): +L(CFI17): + INSN2(mov,l ,X4 MEM_DISP(rbp,-104), R(eax)) + leave +L(CFI18): + ret +L(43): +L(CFI19): + INSN2S(movs,d ,X8 MEM_DISP(rbp,-104), R(xmm0)) + leave +L(CFI20): + ret +L(17): +L(CFI21): + INSN2(mov,q ,X8 MEM_DISP(rbp,-80), R(rax)) + leave +L(CFI22): + ret +L(19): +L(CFI23): + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-65,rdx,8), R(ecx)) + INSN2(mov,l ,NUM(2), R(edx)) + INSN2(sal,q ,R(cl), R(rdx)) + INSN2(mov,l ,R(r8d), R(ecx)) + INSN2(sub,q ,NUM(1), R(rdx)) + INSN2(and,q ,X8 MEM_DISP(r9,8), R(rdx)) + INSN1(neg,l ,R(ecx)) + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(64,rcx,8), R(ecx)) + INSN2(sal,q ,R(cl), R(rdx)) + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(0,r8,8), R(ecx)) + INSN2(mov,q ,X8 MEM(r9), R(r8)) + leave +L(CFI24): + INSN2(sar,q ,R(cl), R(r8)) + INSN2(or,q ,R(r8), R(rdx)) + INSN2(mov,q ,R(rdx), R(rax)) + ret +L(FE0): + FUNEND(callback_receiver, .-callback_receiver) + P2ALIGN(4,15) + GLOBL(C(callback_get_receiver)) + DECLARE_FUNCTION(callback_get_receiver) +FUNBEGIN(callback_get_receiver) +L(FB1): + INSN1(push,q ,R(rbp)) +L(CFI25): + INSN2(lea,q ,ADDR_PCRELATIVE(C(callback_receiver)), R(rax)) + INSN2(mov,q ,R(rsp), R(rbp)) +L(CFI26): + INSN1(pop,q ,R(rbp)) +L(CFI27): + ret +L(FE1): + FUNEND(callback_get_receiver, .-callback_get_receiver) +#if !(defined __sun || (defined __APPLE__ && defined __MACH__) || (defined _WIN32 || defined __CYGWIN__)) + .section EH_FRAME_SECTION +L(frame1): + .long L(ECIE1)-.LSCIE1 +L(SCIE1): + .long 0 + .byte 0x3 + .string "zR" + .uleb128 0x1 + .sleb128 -8 + .uleb128 0x10 + .uleb128 0x1 + .byte 0x1b + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x90 + .uleb128 0x1 + .align 8 +L(ECIE1): +L(SFDE1): + .long L(EFDE1)-.LASFDE1 +L(ASFDE1): + .long L(ASFDE1)-.Lframe1 + .long L(FB0)-. + .long L(FE0)-.LFB0 + .uleb128 0 + .byte 0x4 + .long L(CFI0)-.LFB0 + .byte 0xe + .uleb128 0x10 + .byte 0x86 + .uleb128 0x2 + .byte 0x4 + .long L(CFI1)-.LCFI0 + .byte 0xd + .uleb128 0x6 + .byte 0x4 + .long L(CFI2)-.LCFI1 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long L(CFI3)-.LCFI2 + .byte 0xb + .byte 0x4 + .long L(CFI4)-.LCFI3 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long L(CFI5)-.LCFI4 + .byte 0xb + .byte 0x4 + .long L(CFI6)-.LCFI5 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long L(CFI7)-.LCFI6 + .byte 0xb + .byte 0x4 + .long L(CFI8)-.LCFI7 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long L(CFI9)-.LCFI8 + .byte 0xb + .byte 0x4 + .long L(CFI10)-.LCFI9 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long L(CFI11)-.LCFI10 + .byte 0xb + .byte 0x4 + .long L(CFI12)-.LCFI11 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long L(CFI13)-.LCFI12 + .byte 0xb + .byte 0x4 + .long L(CFI14)-.LCFI13 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long L(CFI15)-.LCFI14 + .byte 0xb + .byte 0x4 + .long L(CFI16)-.LCFI15 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long L(CFI17)-.LCFI16 + .byte 0xb + .byte 0x4 + .long L(CFI18)-.LCFI17 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long L(CFI19)-.LCFI18 + .byte 0xb + .byte 0x4 + .long L(CFI20)-.LCFI19 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long L(CFI21)-.LCFI20 + .byte 0xb + .byte 0x4 + .long L(CFI22)-.LCFI21 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long L(CFI23)-.LCFI22 + .byte 0xb + .byte 0x4 + .long L(CFI24)-.LCFI23 + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .align 8 +L(EFDE1): +L(SFDE3): + .long L(EFDE3)-.LASFDE3 +L(ASFDE3): + .long L(ASFDE3)-.Lframe1 + .long L(FB1)-. + .long L(FE1)-.LFB1 + .uleb128 0 + .byte 0x4 + .long L(CFI25)-.LFB1 + .byte 0xe + .uleb128 0x10 + .byte 0x86 + .uleb128 0x2 + .byte 0x4 + .long L(CFI26)-.LCFI25 + .byte 0xd + .uleb128 0x6 + .byte 0x4 + .long L(CFI27)-.LCFI26 + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .align 8 +L(EFDE3): +#endif +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/callback/vacall_r/vacall-x86_64-windows.s b/callback/vacall_r/vacall-x86_64-windows.s new file mode 100644 index 0000000..4665ea9 --- /dev/null +++ b/callback/vacall_r/vacall-x86_64-windows.s @@ -0,0 +1,387 @@ + .file "vacall-x86_64-windows.c" + .text + .p2align 4,,15 + .type callback_receiver, @function +callback_receiver: +.LFB0: + pushq %rbp +.LCFI0: + movq %rsp, %rbp +.LCFI1: + subq $144, %rsp + movq %rcx, 16(%rbp) + leaq 16(%rbp), %rcx + movq %rdx, 24(%rbp) + movq %r8, 32(%rbp) + leaq -112(%rbp), %rdx + movq %r9, 40(%rbp) + movq %rcx, -88(%rbp) + movss %xmm0, -52(%rbp) + movl $0, -112(%rbp) + movss %xmm1, -48(%rbp) + movq $0, -80(%rbp) + movl $0, -72(%rbp) + movss %xmm2, -44(%rbp) + movl $0, -56(%rbp) + movss %xmm3, -40(%rbp) + movq 8(%r10), %rcx + movsd %xmm0, -32(%rbp) + movsd %xmm1, -24(%rbp) + movsd %xmm2, -16(%rbp) + movsd %xmm3, -8(%rbp) + call *(%r10) + movl -72(%rbp), %edx + testl %edx, %edx + je .L1 + cmpl $1, %edx + je .L34 + cmpl $2, %edx + je .L34 + cmpl $3, %edx + je .L37 + cmpl $4, %edx + je .L38 + cmpl $5, %edx + je .L39 + cmpl $6, %edx + je .L40 + cmpl $7, %edx + je .L41 + cmpl $8, %edx + je .L35 + cmpl $9, %edx + je .L35 + cmpl $10, %edx + je .L35 + cmpl $11, %edx + je .L35 + cmpl $12, %edx + je .L42 + cmpl $13, %edx + je .L43 + cmpl $14, %edx + je .L35 + cmpl $15, %edx + jne .L1 + testb $4, -111(%rbp) + je .L17 + movq -64(%rbp), %rdx + leaq -4(%rdx), %rcx + testq $-5, %rcx + je .L20 + leaq -1(%rdx), %rcx + cmpq $1, %rcx + ja .L1 +.L20: + movq -80(%rbp), %r8 + movq %r8, %r9 + andl $7, %r8d + addq %r8, %rdx + andq $-8, %r9 + cmpq $8, %rdx + ja .L19 + leal -1(,%rdx,8), %ecx + movl $2, %edx + salq %cl, %rdx + leal 0(,%r8,8), %ecx + subq $1, %rdx + andq (%r9), %rdx + sarq %cl, %rdx + movq %rdx, %rax +.L1: + leave +.LCFI2: + ret + .p2align 4,,10 + .p2align 3 +.L34: +.LCFI3: + movsbq -104(%rbp), %rax + leave +.LCFI4: + ret + .p2align 4,,10 + .p2align 3 +.L35: +.LCFI5: + movq -104(%rbp), %rax + leave +.LCFI6: + ret + .p2align 4,,10 + .p2align 3 +.L37: +.LCFI7: + movzbl -104(%rbp), %eax + leave +.LCFI8: + ret + .p2align 4,,10 + .p2align 3 +.L38: +.LCFI9: + movswq -104(%rbp), %rax + leave +.LCFI10: + ret + .p2align 4,,10 + .p2align 3 +.L39: +.LCFI11: + movzwl -104(%rbp), %eax + leave +.LCFI12: + ret + .p2align 4,,10 + .p2align 3 +.L40: +.LCFI13: + movslq -104(%rbp), %rax + leave +.LCFI14: + ret + .p2align 4,,10 + .p2align 3 +.L42: +.LCFI15: + movss -104(%rbp), %xmm0 + leave +.LCFI16: + ret + .p2align 4,,10 + .p2align 3 +.L41: +.LCFI17: + movl -104(%rbp), %eax + leave +.LCFI18: + ret +.L43: +.LCFI19: + movsd -104(%rbp), %xmm0 + leave +.LCFI20: + ret +.L17: +.LCFI21: + movq -80(%rbp), %rax + leave +.LCFI22: + ret +.L19: +.LCFI23: + leal -65(,%rdx,8), %ecx + movl $2, %edx + salq %cl, %rdx + movl %r8d, %ecx + subq $1, %rdx + andq 8(%r9), %rdx + negl %ecx + leal 64(,%rcx,8), %ecx + salq %cl, %rdx + leal 0(,%r8,8), %ecx + movq (%r9), %r8 + leave +.LCFI24: + sarq %cl, %r8 + orq %r8, %rdx + movq %rdx, %rax + ret +.LFE0: + .size callback_receiver, .-callback_receiver + .p2align 4,,15 + .globl callback_get_receiver + .type callback_get_receiver, @function +callback_get_receiver: +.LFB1: + pushq %rbp +.LCFI25: + leaq callback_receiver(%rip), %rax + movq %rsp, %rbp +.LCFI26: + popq %rbp +.LCFI27: + ret +.LFE1: + .size callback_get_receiver, .-callback_get_receiver + .section .eh_frame,"a",@progbits +.Lframe1: + .long .LECIE1-.LSCIE1 +.LSCIE1: + .long 0 + .byte 0x3 + .string "zR" + .uleb128 0x1 + .sleb128 -8 + .uleb128 0x10 + .uleb128 0x1 + .byte 0x1b + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x90 + .uleb128 0x1 + .align 8 +.LECIE1: +.LSFDE1: + .long .LEFDE1-.LASFDE1 +.LASFDE1: + .long .LASFDE1-.Lframe1 + .long .LFB0-. + .long .LFE0-.LFB0 + .uleb128 0 + .byte 0x4 + .long .LCFI0-.LFB0 + .byte 0xe + .uleb128 0x10 + .byte 0x86 + .uleb128 0x2 + .byte 0x4 + .long .LCFI1-.LCFI0 + .byte 0xd + .uleb128 0x6 + .byte 0x4 + .long .LCFI2-.LCFI1 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI3-.LCFI2 + .byte 0xb + .byte 0x4 + .long .LCFI4-.LCFI3 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI5-.LCFI4 + .byte 0xb + .byte 0x4 + .long .LCFI6-.LCFI5 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI7-.LCFI6 + .byte 0xb + .byte 0x4 + .long .LCFI8-.LCFI7 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI9-.LCFI8 + .byte 0xb + .byte 0x4 + .long .LCFI10-.LCFI9 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI11-.LCFI10 + .byte 0xb + .byte 0x4 + .long .LCFI12-.LCFI11 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI13-.LCFI12 + .byte 0xb + .byte 0x4 + .long .LCFI14-.LCFI13 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI15-.LCFI14 + .byte 0xb + .byte 0x4 + .long .LCFI16-.LCFI15 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI17-.LCFI16 + .byte 0xb + .byte 0x4 + .long .LCFI18-.LCFI17 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI19-.LCFI18 + .byte 0xb + .byte 0x4 + .long .LCFI20-.LCFI19 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI21-.LCFI20 + .byte 0xb + .byte 0x4 + .long .LCFI22-.LCFI21 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI23-.LCFI22 + .byte 0xb + .byte 0x4 + .long .LCFI24-.LCFI23 + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .align 8 +.LEFDE1: +.LSFDE3: + .long .LEFDE3-.LASFDE3 +.LASFDE3: + .long .LASFDE3-.Lframe1 + .long .LFB1-. + .long .LFE1-.LFB1 + .uleb128 0 + .byte 0x4 + .long .LCFI25-.LFB1 + .byte 0xe + .uleb128 0x10 + .byte 0x86 + .uleb128 0x2 + .byte 0x4 + .long .LCFI26-.LCFI25 + .byte 0xd + .uleb128 0x6 + .byte 0x4 + .long .LCFI27-.LCFI26 + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .align 8 +.LEFDE3: + .ident "GCC: (GNU) 5.4.0" + .section .note.GNU-stack,"",@progbits diff --git a/callback/vacall_r/vacall-x86_64-x32-linux.s b/callback/vacall_r/vacall-x86_64-x32-linux.s new file mode 100644 index 0000000..ae2bf5b --- /dev/null +++ b/callback/vacall_r/vacall-x86_64-x32-linux.s @@ -0,0 +1,338 @@ + .file "vacall-x86_64.c" + .section .text.unlikely,"ax",@progbits +.LCOLDB0: + .text +.LHOTB0: + .p2align 4,,15 + .type callback_receiver, @function +callback_receiver: +.LFB0: + pushq %rbp +.LCFI0: + movl %esp, %ebp +.LCFI1: + pushq %r14 + pushq %r12 + subl $176, %esp +.LCFI2: + movq %rdi, -72(%ebp) + leal 16(%rbp), %edi + movq %rcx, -48(%ebp) + movl (%r10d), %ecx + movsd %xmm0, -144(%ebp) + movl %edi, -168(%ebp) + movl 4(%r10d), %edi + movsd %xmm1, -136(%ebp) + movq %rsi, -64(%ebp) + movsd %xmm2, -128(%ebp) + leal -192(%rbp), %esi + movq %rdx, -56(%ebp) + movsd %xmm3, -120(%ebp) + movq %r8, -40(%ebp) + movsd %xmm4, -112(%ebp) + movq %r9, -32(%ebp) + movsd %xmm5, -104(%ebp) + movsd %xmm6, -96(%ebp) + movl $0, -192(%ebp) + movsd %xmm7, -88(%ebp) + movl $0, -164(%ebp) + movl $0, -160(%ebp) + movl $0, -80(%ebp) + movl $0, -152(%ebp) + call *%rcx + movl -160(%ebp), %ecx + testl %ecx, %ecx + je .L1 + cmpl $1, %ecx + je .L27 + cmpl $2, %ecx + je .L27 + cmpl $3, %ecx + je .L33 + cmpl $4, %ecx + je .L34 + cmpl $5, %ecx + je .L35 + cmpl $6, %ecx + je .L28 + cmpl $7, %ecx + je .L30 + cmpl $8, %ecx + je .L28 + cmpl $9, %ecx + je .L30 + cmpl $10, %ecx + je .L31 + cmpl $11, %ecx + je .L31 + cmpl $12, %ecx + je .L36 + cmpl $13, %ecx + je .L37 + cmpl $14, %ecx + je .L30 + cmpl $15, %ecx + jne .L1 + testb $4, -191(%ebp) + je .L1 + movl -156(%ebp), %ecx + leal -1(%rcx), %esi + cmpl $15, %esi + ja .L1 + movl -164(%ebp), %esi + movl %esi, %edi + andl $7, %esi + andl $-8, %edi + cmpl $8, %ecx + leal (%rcx,%rsi), %r11d + ja .L17 + cmpl $8, %r11d + ja .L18 + leal -1(,%r11,8), %ecx + movl $2, %r8d + salq %cl, %r8 + movq %r8, %rcx + subq $1, %rcx + andq (%edi), %rcx + movq %rcx, %rdi + leal 0(,%rsi,8), %ecx + sarq %cl, %rdi + movq %rdi, %rax +.L1: + addl $176, %esp + popq %r12 + popq %r14 + popq %rbp +.LCFI3: + ret + .p2align 4,,10 + .p2align 3 +.L27: +.LCFI4: + movsbq -184(%ebp), %rax + addl $176, %esp + popq %r12 + popq %r14 + popq %rbp +.LCFI5: + ret + .p2align 4,,10 + .p2align 3 +.L28: +.LCFI6: + movslq -184(%ebp), %rax + jmp .L1 + .p2align 4,,10 + .p2align 3 +.L33: + movzbl -184(%ebp), %eax + jmp .L1 + .p2align 4,,10 + .p2align 3 +.L34: + movswq -184(%ebp), %rax + jmp .L1 + .p2align 4,,10 + .p2align 3 +.L30: + movl -184(%ebp), %eax + jmp .L1 + .p2align 4,,10 + .p2align 3 +.L35: + movzwl -184(%ebp), %eax + jmp .L1 + .p2align 4,,10 + .p2align 3 +.L36: + movss -184(%ebp), %xmm0 + jmp .L1 + .p2align 4,,10 + .p2align 3 +.L31: + movq -184(%ebp), %rax + jmp .L1 +.L37: + movsd -184(%ebp), %xmm0 + jmp .L1 +.L17: + cmpl $16, %r11d + leal 0(,%rsi,8), %r9d + jbe .L38 + negl %esi + movq 8(%edi), %r8 + movl %r9d, %ecx + leal 64(,%rsi,8), %r12d + movq (%edi), %rsi + movq %r8, %r14 + sarq %cl, %rsi + movl %r12d, %ecx + salq %cl, %r14 + leal -129(,%r11,8), %ecx + orq %r14, %rsi + movq %rsi, %rax + movl $2, %esi + salq %cl, %rsi + movl %r12d, %ecx + subq $1, %rsi + andq 16(%edi), %rsi + salq %cl, %rsi + movl %r9d, %ecx + sarq %cl, %r8 + orq %r8, %rsi + movq %rsi, %rdx + jmp .L1 +.L18: + leal -65(,%r11,8), %ecx + movl $2, %r8d + salq %cl, %r8 + movl %esi, %ecx + subq $1, %r8 + andq 8(%edi), %r8 + negl %ecx + leal 64(,%rcx,8), %ecx + movq (%edi), %rdi + salq %cl, %r8 + leal 0(,%rsi,8), %ecx + sarq %cl, %rdi + orq %rdi, %r8 + movq %r8, %rax + jmp .L1 +.L38: + leal -65(,%r11,8), %ecx + movl $2, %r8d + movq (%edi), %r11 + imull $-4, %esi, %esi + salq %cl, %r8 + movl %r9d, %ecx + subq $1, %r8 + andq 8(%edi), %r8 + sarq %cl, %r11 + addl $32, %esi + movl %esi, %ecx + movq %r8, %rdi + salq %cl, %rdi + salq %cl, %rdi + movl %r9d, %ecx + orq %rdi, %r11 + sarq %cl, %r8 + movq %r11, %rax + movq %r8, %rdx + jmp .L1 +.LFE0: + .size callback_receiver, .-callback_receiver + .section .text.unlikely +.LCOLDE0: + .text +.LHOTE0: + .section .text.unlikely +.LCOLDB1: + .text +.LHOTB1: + .p2align 4,,15 + .globl callback_get_receiver + .type callback_get_receiver, @function +callback_get_receiver: +.LFB1: + pushq %rbp +.LCFI7: + leal callback_receiver(%rip), %eax + movl %esp, %ebp +.LCFI8: + popq %rbp +.LCFI9: + ret +.LFE1: + .size callback_get_receiver, .-callback_get_receiver + .section .text.unlikely +.LCOLDE1: + .text +.LHOTE1: + .section .eh_frame,"a",@progbits +.Lframe1: + .long .LECIE1-.LSCIE1 +.LSCIE1: + .long 0 + .byte 0x3 + .string "zR" + .uleb128 0x1 + .sleb128 -8 + .uleb128 0x10 + .uleb128 0x1 + .byte 0x1b + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x90 + .uleb128 0x1 + .align 4 +.LECIE1: +.LSFDE1: + .long .LEFDE1-.LASFDE1 +.LASFDE1: + .long .LASFDE1-.Lframe1 + .long .LFB0-. + .long .LFE0-.LFB0 + .uleb128 0 + .byte 0x4 + .long .LCFI0-.LFB0 + .byte 0xe + .uleb128 0x10 + .byte 0x86 + .uleb128 0x2 + .byte 0x4 + .long .LCFI1-.LCFI0 + .byte 0xd + .uleb128 0x6 + .byte 0x4 + .long .LCFI2-.LCFI1 + .byte 0x8e + .uleb128 0x3 + .byte 0x8c + .uleb128 0x4 + .byte 0x4 + .long .LCFI3-.LCFI2 + .byte 0xa + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI4-.LCFI3 + .byte 0xb + .byte 0x4 + .long .LCFI5-.LCFI4 + .byte 0xa + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI6-.LCFI5 + .byte 0xb + .align 4 +.LEFDE1: +.LSFDE3: + .long .LEFDE3-.LASFDE3 +.LASFDE3: + .long .LASFDE3-.Lframe1 + .long .LFB1-. + .long .LFE1-.LFB1 + .uleb128 0 + .byte 0x4 + .long .LCFI7-.LFB1 + .byte 0xe + .uleb128 0x10 + .byte 0x86 + .uleb128 0x2 + .byte 0x4 + .long .LCFI8-.LCFI7 + .byte 0xd + .uleb128 0x6 + .byte 0x4 + .long .LCFI9-.LCFI8 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .align 4 +.LEFDE3: + .ident "GCC: (GNU) 5.4.0" + .section .note.GNU-stack,"",@progbits diff --git a/callback/vacall_r/vacall_r.h b/callback/vacall_r/vacall_r.h new file mode 100644 index 0000000..0e66c2e --- /dev/null +++ b/callback/vacall_r/vacall_r.h @@ -0,0 +1,548 @@ +/* + * Copyright 1995-2019 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#ifndef _VACALL_R_H +#define _VACALL_R_H + +#include + +#include "ffcall-abi.h" + + +/* Use a consistent prefix for all symbols in libcallback. */ +#define vacall_start callback_start +#define vacall_start_struct callback_start_struct +#define vacall_arg_char callback_arg_char +#define vacall_arg_schar callback_arg_schar +#define vacall_arg_uchar callback_arg_uchar +#define vacall_arg_short callback_arg_short +#define vacall_arg_ushort callback_arg_ushort +#define vacall_arg_int callback_arg_int +#define vacall_arg_uint callback_arg_uint +#define vacall_arg_long callback_arg_long +#define vacall_arg_ulong callback_arg_ulong +#define vacall_arg_longlong callback_arg_longlong +#define vacall_arg_ulonglong callback_arg_ulonglong +#define vacall_arg_float callback_arg_float +#define vacall_arg_double callback_arg_double +#define vacall_arg_ptr callback_arg_ptr +#define vacall_arg_struct callback_arg_struct +#define vacall_return_void callback_return_void +#define vacall_return_char callback_return_char +#define vacall_return_schar callback_return_schar +#define vacall_return_uchar callback_return_uchar +#define vacall_return_short callback_return_short +#define vacall_return_ushort callback_return_ushort +#define vacall_return_int callback_return_int +#define vacall_return_uint callback_return_uint +#define vacall_return_long callback_return_long +#define vacall_return_ulong callback_return_ulong +#define vacall_return_longlong callback_return_longlong +#define vacall_return_ulonglong callback_return_ulonglong +#define vacall_return_float callback_return_float +#define vacall_return_double callback_return_double +#define vacall_return_ptr callback_return_ptr +#define vacall_return_struct callback_return_struct +#define vacall_error_type_mismatch callback_error_type_mismatch +#define vacall_error_struct_too_large callback_error_struct_too_large +#define vacall_structcpy callback_structcpy +#define vacall_struct_buffer callback_struct_buffer + + +/* Determine whether the current ABI is LLP64 + ('long' = 32-bit, 'long long' = 'void*' = 64-bit). */ +#if defined(__x86_64__) && defined(_WIN32) && !defined(__CYGWIN__) +#define __VA_LLP64 1 +#endif + +/* Determine the alignment of a type at compile time. + */ +#if defined(__GNUC__) || defined(__IBM__ALIGNOF__) +#define __VA_alignof __alignof__ +#elif defined(__cplusplus) +template struct __VA_alignof_helper { char __slot1; type __slot2; }; +#define __VA_alignof(type) offsetof (__VA_alignof_helper, __slot2) +#elif defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) /* SGI compiler */ +#define __VA_alignof __builtin_alignof +#else +#define __VA_offsetof(type,ident) ((unsigned long)&(((type*)0)->ident)) +#define __VA_alignof(type) __VA_offsetof(struct { char __slot1; type __slot2; }, __slot2) +#endif + +#ifdef __cplusplus +extern "C" { +#endif + +/* C builtin types. + */ +#if defined(__mipsn32__) || defined(__x86_64_x32__) || defined(__VA_LLP64) +typedef long long __vaword; +#else +typedef long __vaword; +#endif + +enum __VAtype +{ + __VAvoid, + __VAchar, + __VAschar, + __VAuchar, + __VAshort, + __VAushort, + __VAint, + __VAuint, + __VAlong, + __VAulong, + __VAlonglong, + __VAulonglong, + __VAfloat, + __VAdouble, + __VAvoidp, + __VAstruct +}; + +enum __VA_alist_flags +{ + + /* how to return structs */ + /* There are basically 3 ways to return structs: + * a. The called function returns a pointer to static data. Not reentrant. + * Not supported any more. + * b. The caller passes the return structure address in a dedicated register + * or as a first (or last), invisible argument. The called function stores + * its result there. + * c. Like b, and the called function also returns the return structure + * address in the return value register. (This is not very distinguishable + * from b.) + * Independently of this, + * r. small structures (<= 4 or <= 8 bytes) may be returned in the return + * value register(s), or + * m. even small structures are passed in memory. + */ + /* gcc-2.6.3 employs the following strategy: + * - If PCC_STATIC_STRUCT_RETURN is defined in the machine description + * it uses method a, else method c. + * - If flag_pcc_struct_return is set (either by -fpcc-struct-return or if + * DEFAULT_PCC_STRUCT_RETURN is defined to 1 in the machine description) + * it uses method m, else (either by -freg-struct-return or if + * DEFAULT_PCC_STRUCT_RETURN is defined to 0 in the machine description) + * method r. + */ + __VA_SMALL_STRUCT_RETURN = 1<<1, /* r: special case for small structs */ + __VA_GCC_STRUCT_RETURN = 1<<2, /* consider 8 byte structs as small */ +#if defined(__sparc__) && !defined(__sparc64__) + __VA_SUNCC_STRUCT_RETURN = 1<<3, + __VA_SUNPROCC_STRUCT_RETURN = 1<<4, +#else + __VA_SUNCC_STRUCT_RETURN = 0, + __VA_SUNPROCC_STRUCT_RETURN = 0, +#endif +#if defined(__i386__) + __VA_MSVC_STRUCT_RETURN = 1<<4, +#endif + /* the default way to return structs */ + /* This choice here is based on the assumption that the function you are + * going to call has been compiled with the same compiler you are using to + * include this file. + * If you want to call functions with another struct returning convention, + * just #define __VA_STRUCT_RETURN ... + * before or after #including . + */ +#ifndef __VA_STRUCT_RETURN + __VA_STRUCT_RETURN = +#if defined(__sparc__) && !defined(__sparc64__) && defined(__sun) && (defined(__SUNPRO_C) || defined(__SUNPRO_CC)) /* SUNWspro cc or CC */ + __VA_SUNPROCC_STRUCT_RETURN, +#else +#if (defined(__i386__) && (defined(_WIN32) || defined(__CYGWIN__) || (defined(__MACH__) && defined(__APPLE__)) || defined(__FreeBSD__) || defined(__DragonFly__) || defined(__OpenBSD__))) || defined(__m68k__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc64__) || defined(__hppa__) || defined(__hppa64__) || defined(__arm__) || defined(__armhf__) || defined(__arm64__) || defined(__powerpc64_elfv2__) || defined(__ia64__) || defined(__x86_64__) || defined(__riscv32__) || defined(__riscv64__) + __VA_SMALL_STRUCT_RETURN | +#endif +#if defined(__GNUC__) && !((defined(__mipsn32__) || defined(__mips64__)) && ((__GNUC__ == 3 && __GNUC_MINOR__ >= 4) || (__GNUC__ > 3))) + __VA_GCC_STRUCT_RETURN | +#endif +#if defined(__i386__) && defined(_WIN32) && !defined(__CYGWIN__) /* native Windows */ + __VA_MSVC_STRUCT_RETURN | +#endif + 0, +#endif +#endif + + /* how to return floats */ +#if defined(__m68k__) || (defined(__sparc__) && !defined(__sparc64__)) + __VA_SUNCC_FLOAT_RETURN = 1<<5, +#endif +#if defined(__m68k__) + __VA_FREG_FLOAT_RETURN = 1<<6, +#endif + /* the default way to return floats */ + /* This choice here is based on the assumption that the function you are + * going to call has been compiled with the same compiler you are using to + * include this file. + * If you want to call functions with another float returning convention, + * just #define __VA_FLOAT_RETURN ... + * before or after #including . + */ +#ifndef __VA_FLOAT_RETURN +#if (defined(__m68k__) || (defined(__sparc__) && !defined(__sparc64__))) && !defined(__GNUC__) && defined(__sun) && !(defined(__SUNPRO_C) || defined(__SUNPRO_CC)) /* Sun cc or CC */ + __VA_FLOAT_RETURN = __VA_SUNCC_FLOAT_RETURN, +#elif defined(__m68k__) + __VA_FLOAT_RETURN = __VA_FREG_FLOAT_RETURN, +#else + __VA_FLOAT_RETURN = 0, +#endif +#endif + + /* how to pass structs */ +#if defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) + __VA_SGICC_STRUCT_ARGS = 1<<7, +#endif +#if defined(__powerpc__) || defined(__powerpc64__) + __VA_AIXCC_STRUCT_ARGS = 1<<7, +#endif +#if defined(__ia64__) + __VA_OLDGCC_STRUCT_ARGS = 1<<7, +#endif + /* the default way to pass structs */ + /* This choice here is based on the assumption that the function you are + * going to call has been compiled with the same compiler you are using to + * include this file. + * If you want to call functions with another structs passing convention, + * just #define __VA_STRUCT_ARGS ... + * before or after #including . + */ +#ifndef __VA_STRUCT_ARGS +#if (defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)) && !defined(__GNUC__) /* SGI mips cc */ + __VA_STRUCT_ARGS = __VA_SGICC_STRUCT_ARGS, +#else +#if (defined(__mipsn32__) || defined(__mips64__)) && (!defined(__GNUC__) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4) || (__GNUC__ > 3)) /* SGI mips cc or gcc >= 3.4 */ + __VA_STRUCT_ARGS = __VA_SGICC_STRUCT_ARGS, +#else +#if defined(__powerpc__) && !defined(__powerpc64__) && defined(_AIX) && !defined(__GNUC__) /* AIX 32-bit cc, xlc */ + __VA_STRUCT_ARGS = __VA_AIXCC_STRUCT_ARGS, +#else +#if defined(__powerpc64__) && defined(_AIX) /* AIX 64-bit cc, xlc, gcc */ + __VA_STRUCT_ARGS = __VA_AIXCC_STRUCT_ARGS, +#else +#if defined(__ia64__) && !(defined(__GNUC__) && (__GNUC__ >= 3)) + __VA_STRUCT_ARGS = __VA_OLDGCC_STRUCT_ARGS, +#else + __VA_STRUCT_ARGS = 0, +#endif +#endif +#endif +#endif +#endif +#endif + + /* how to pass floats */ + /* ANSI C compilers and GNU gcc pass floats as floats. + * K&R C compilers pass floats as doubles. We don't support them any more. + */ +#if defined(__powerpc64__) + __VA_AIXCC_FLOAT_ARGS = 1<<8, /* pass floats in the low 4 bytes of an 8-bytes word */ +#endif + /* the default way to pass floats */ + /* This choice here is based on the assumption that the function you are + * going to call has been compiled with the same compiler you are using to + * include this file. + * If you want to call functions with another float passing convention, + * just #define __VA_FLOAT_ARGS ... + * before or after #including . + */ +#ifndef __VA_FLOAT_ARGS +#if defined(__powerpc64__) && defined(_AIX) && !defined(__GNUC__) /* AIX 64-bit xlc */ + __VA_FLOAT_ARGS = __VA_AIXCC_FLOAT_ARGS, +#else + __VA_FLOAT_ARGS = 0, +#endif +#endif + + /* how to pass and return small integer arguments */ + __VA_ANSI_INTEGERS = 0, /* no promotions */ + __VA_TRADITIONAL_INTEGERS = 0, /* promote [u]char, [u]short to [u]int */ + /* Fortunately these two methods are compatible. Our macros work with both. */ + + /* stack cleanup policy */ + __VA_CDECL_CLEANUP = 0, /* caller pops args after return */ + __VA_STDCALL_CLEANUP = 1<<9, /* callee pops args before return */ + /* currently only supported on __i386__ */ +#ifndef __VA_CLEANUP + __VA_CLEANUP = __VA_CDECL_CLEANUP, +#endif + + /* These are for internal use only */ +#if defined(__i386__) || defined(__m68k__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc64__) || defined(__alpha__) || defined(__hppa64__) || defined(__arm__) || defined(__armhf__) || defined(__arm64__) || defined(__powerpc__) || defined(__powerpc64__) || defined(__ia64__) || defined(__x86_64__) || (defined(__s390__) && !defined(__s390x__)) || defined(__riscv64__) + __VA_REGISTER_STRUCT_RETURN = 1<<10, +#endif +#if defined(__mipsn32__) || defined(__mips64__) + __VA_REGISTER_FLOATSTRUCT_RETURN = 1<<11, + __VA_REGISTER_DOUBLESTRUCT_RETURN = 1<<12, +#endif + + __VA_flag_for_broken_compilers_that_dont_like_trailing_commas +}; + +/* + * Definition of the ‘va_alist’ type. + */ +struct vacall_alist +/* GNU clisp pokes in internals of the alist! */ +#ifdef LISPFUN +{ + /* some va_... macros need these flags */ + int flags; +#if defined(__i386__) || defined(__arm__) || defined(__armhf__) || (defined(__powerpc__) && !defined(__powerpc64__) && defined(__MACH__) && defined(__APPLE__)) + __vaword filler1; +#endif + /* temporary storage for return value */ + union { + char _char; + signed char _schar; + unsigned char _uchar; + short _short; + unsigned short _ushort; + int _int; + unsigned int _uint; + long _long; + unsigned long _ulong; + long long _longlong; + unsigned long long _ulonglong; + float _float; + double _double; + void* _ptr; + } tmp; +} +#endif +; +typedef struct vacall_alist * va_alist; + + +/* + * Definition of the va_start_xxx macros. + */ +#define __VA_START_FLAGS \ + __VA_STRUCT_RETURN | __VA_FLOAT_RETURN | __VA_STRUCT_ARGS | __VA_FLOAT_ARGS | __VA_CLEANUP + +extern void vacall_start (va_alist /* LIST */, int /* RETTYPE */, int /* FLAGS */); + +#define va_start_void(LIST) vacall_start(LIST,__VAvoid, __VA_START_FLAGS) +#define va_start_char(LIST) vacall_start(LIST,__VAchar, __VA_START_FLAGS) +#define va_start_schar(LIST) vacall_start(LIST,__VAschar, __VA_START_FLAGS) +#define va_start_uchar(LIST) vacall_start(LIST,__VAuchar, __VA_START_FLAGS) +#define va_start_short(LIST) vacall_start(LIST,__VAshort, __VA_START_FLAGS) +#define va_start_ushort(LIST) vacall_start(LIST,__VAushort, __VA_START_FLAGS) +#define va_start_int(LIST) vacall_start(LIST,__VAint, __VA_START_FLAGS) +#define va_start_uint(LIST) vacall_start(LIST,__VAuint, __VA_START_FLAGS) +#define va_start_long(LIST) vacall_start(LIST,__VAlong, __VA_START_FLAGS) +#define va_start_ulong(LIST) vacall_start(LIST,__VAulong, __VA_START_FLAGS) +#define va_start_longlong(LIST) vacall_start(LIST,__VAlonglong, __VA_START_FLAGS) +#define va_start_ulonglong(LIST) vacall_start(LIST,__VAulonglong,__VA_START_FLAGS) +#define va_start_float(LIST) vacall_start(LIST,__VAfloat, __VA_START_FLAGS) +#define va_start_double(LIST) vacall_start(LIST,__VAdouble, __VA_START_FLAGS) +#define va_start_ptr(LIST,TYPE) vacall_start(LIST,__VAvoidp, __VA_START_FLAGS) + +/* + * va_start_struct: Preparing structure return. + */ +extern void vacall_start_struct (va_alist /* LIST */, size_t /* TYPE_SIZE */, size_t /* TYPE_ALIGN */, int /* TYPE_SPLITTABLE */, int /* FLAGS */); + +#define va_start_struct(LIST,TYPE,TYPE_SPLITTABLE) \ + _va_start_struct(LIST,sizeof(TYPE),__VA_alignof(TYPE),TYPE_SPLITTABLE) +/* _va_start_struct() is like va_start_struct(), except that you pass + * the type's size and alignment instead of the type itself. + * Undocumented, but used by GNU clisp. + */ +#define _va_start_struct(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ + vacall_start_struct(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE,__VA_START_FLAGS) + + +/* + * Definition of the va_arg_xxx macros. + */ + +extern char vacall_arg_char (va_alist /* LIST */); +extern signed char vacall_arg_schar (va_alist /* LIST */); +extern unsigned char vacall_arg_uchar (va_alist /* LIST */); +extern short vacall_arg_short (va_alist /* LIST */); +extern unsigned short vacall_arg_ushort (va_alist /* LIST */); +extern int vacall_arg_int (va_alist /* LIST */); +extern unsigned int vacall_arg_uint (va_alist /* LIST */); +extern long vacall_arg_long (va_alist /* LIST */); +extern unsigned long vacall_arg_ulong (va_alist /* LIST */); + +#define va_arg_char(LIST) vacall_arg_char(LIST) +#define va_arg_schar(LIST) vacall_arg_schar(LIST) +#define va_arg_uchar(LIST) vacall_arg_uchar(LIST) +#define va_arg_short(LIST) vacall_arg_short(LIST) +#define va_arg_ushort(LIST) vacall_arg_ushort(LIST) +#define va_arg_int(LIST) vacall_arg_int(LIST) +#define va_arg_uint(LIST) vacall_arg_uint(LIST) +#define va_arg_long(LIST) vacall_arg_long(LIST) +#define va_arg_ulong(LIST) vacall_arg_ulong(LIST) + +extern long long vacall_arg_longlong (va_alist /* LIST */); +extern unsigned long long vacall_arg_ulonglong (va_alist /* LIST */); + +#define va_arg_longlong(LIST) vacall_arg_longlong(LIST) +#define va_arg_ulonglong(LIST) vacall_arg_ulonglong(LIST) + +/* Floating point arguments. */ + +extern float vacall_arg_float (va_alist /* LIST */); +extern double vacall_arg_double (va_alist /* LIST */); + +#define va_arg_float(LIST) vacall_arg_float(LIST) +#define va_arg_double(LIST) vacall_arg_double(LIST) + +/* Pointer arguments. */ + +extern void* vacall_arg_ptr (va_alist /* LIST */); +#define va_arg_ptr(LIST,TYPE) ((TYPE)vacall_arg_ptr(LIST)) + +/* Structure arguments. */ + +extern void* vacall_arg_struct (va_alist /* LIST */, size_t /* TYPE_SIZE */, size_t /* TYPE_ALIGN */); + +#define va_arg_struct(LIST,TYPE) \ + *(TYPE*)vacall_arg_struct(LIST,sizeof(TYPE),__VA_alignof(TYPE)) +/* _va_arg_struct() is like va_arg_struct(), except that you pass the type's + * size and alignment instead of the type and get the value's address instead + * of the value itself. + * Undocumented, but used by GNU clisp. + */ +#define _va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ + vacall_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) + + +/* + * Definition of the va_return_xxx macros. + */ + +extern void vacall_return_void (va_alist /* LIST */); +#define va_return_void(LIST) vacall_return_void(LIST) + +extern void vacall_return_char (va_alist /* LIST */, char /* VAL */); +extern void vacall_return_schar (va_alist /* LIST */, signed char /* VAL */); +extern void vacall_return_uchar (va_alist /* LIST */, unsigned char /* VAL */); +extern void vacall_return_short (va_alist /* LIST */, short /* VAL */); +extern void vacall_return_ushort (va_alist /* LIST */, unsigned short /* VAL */); +extern void vacall_return_int (va_alist /* LIST */, int /* VAL */); +extern void vacall_return_uint (va_alist /* LIST */, unsigned int /* VAL */); +extern void vacall_return_long (va_alist /* LIST */, long /* VAL */); +extern void vacall_return_ulong (va_alist /* LIST */, unsigned long /* VAL */); +#define va_return_char(LIST,VAL) vacall_return_char(LIST,VAL) +#define va_return_schar(LIST,VAL) vacall_return_schar(LIST,VAL) +#define va_return_uchar(LIST,VAL) vacall_return_uchar(LIST,VAL) +#define va_return_short(LIST,VAL) vacall_return_short(LIST,VAL) +#define va_return_ushort(LIST,VAL) vacall_return_ushort(LIST,VAL) +#define va_return_int(LIST,VAL) vacall_return_int(LIST,VAL) +#define va_return_uint(LIST,VAL) vacall_return_uint(LIST,VAL) +#define va_return_long(LIST,VAL) vacall_return_long(LIST,VAL) +#define va_return_ulong(LIST,VAL) vacall_return_ulong(LIST,VAL) + +extern void vacall_return_longlong (va_alist /* LIST */, long long /* VAL */); +extern void vacall_return_ulonglong (va_alist /* LIST */, unsigned long long /* VAL */); +#define va_return_longlong(LIST,VAL) vacall_return_longlong(LIST,VAL) +#define va_return_ulonglong(LIST,VAL) vacall_return_ulonglong(LIST,VAL) + +extern void vacall_return_float (va_alist /* LIST */, float /* VAL */); +extern void vacall_return_double (va_alist /* LIST */, double /* VAL */); +#define va_return_float(LIST,VAL) vacall_return_float(LIST,VAL) +#define va_return_double(LIST,VAL) vacall_return_double(LIST,VAL) + +extern void vacall_return_ptr (va_alist /* LIST */, void* /* VAL */); +#define va_return_ptr(LIST,TYPE,VAL) vacall_return_ptr(LIST,(void*)(TYPE)(VAL)) + +extern void vacall_return_struct (va_alist /* LIST */, size_t /* TYPE_SIZE */, size_t /* TYPE_ALIGN */, const void* /* VAL_ADDR */); + +#define va_return_struct(LIST,TYPE,VAL) \ + _va_return_struct(LIST,sizeof(TYPE),__VA_alignof(TYPE),&(VAL)) +/* Undocumented, but used by GNU clisp. */ +#define _va_return_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL_ADDR) \ + vacall_return_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL_ADDR) + + +/* Determine whether a struct type is word-splittable, i.e. whether each of + * its components fit into a register. + * The entire computation is done at compile time. + */ +#define va_word_splittable_1(slot1) \ + (__va_offset1(slot1)/sizeof(__vaword) == (__va_offset1(slot1)+sizeof(slot1)-1)/sizeof(__vaword)) +#define va_word_splittable_2(slot1,slot2) \ + ((__va_offset1(slot1)/sizeof(__vaword) == (__va_offset1(slot1)+sizeof(slot1)-1)/sizeof(__vaword)) \ + && (__va_offset2(slot1,slot2)/sizeof(__vaword) == (__va_offset2(slot1,slot2)+sizeof(slot2)-1)/sizeof(__vaword)) \ + ) +#define va_word_splittable_3(slot1,slot2,slot3) \ + ((__va_offset1(slot1)/sizeof(__vaword) == (__va_offset1(slot1)+sizeof(slot1)-1)/sizeof(__vaword)) \ + && (__va_offset2(slot1,slot2)/sizeof(__vaword) == (__va_offset2(slot1,slot2)+sizeof(slot2)-1)/sizeof(__vaword)) \ + && (__va_offset3(slot1,slot2,slot3)/sizeof(__vaword) == (__va_offset3(slot1,slot2,slot3)+sizeof(slot3)-1)/sizeof(__vaword)) \ + ) +#define va_word_splittable_4(slot1,slot2,slot3,slot4) \ + ((__va_offset1(slot1)/sizeof(__vaword) == (__va_offset1(slot1)+sizeof(slot1)-1)/sizeof(__vaword)) \ + && (__va_offset2(slot1,slot2)/sizeof(__vaword) == (__va_offset2(slot1,slot2)+sizeof(slot2)-1)/sizeof(__vaword)) \ + && (__va_offset3(slot1,slot2,slot3)/sizeof(__vaword) == (__va_offset3(slot1,slot2,slot3)+sizeof(slot3)-1)/sizeof(__vaword)) \ + && (__va_offset4(slot1,slot2,slot3,slot4)/sizeof(__vaword) == (__va_offset4(slot1,slot2,slot3,slot4)+sizeof(slot4)-1)/sizeof(__vaword)) \ + ) +#define __va_offset1(slot1) \ + 0 +#define __va_offset2(slot1,slot2) \ + ((__va_offset1(slot1)+sizeof(slot1)+__VA_alignof(slot2)-1) & -(long)__VA_alignof(slot2)) +#define __va_offset3(slot1,slot2,slot3) \ + ((__va_offset2(slot1,slot2)+sizeof(slot2)+__VA_alignof(slot3)-1) & -(long)__VA_alignof(slot3)) +#define __va_offset4(slot1,slot2,slot3,slot4) \ + ((__va_offset3(slot1,slot2,slot3)+sizeof(slot3)+__VA_alignof(slot4)-1) & -(long)__VA_alignof(slot4)) + + +/* + * Miscellaneous declarations. + */ + +#if defined(__sparc__) || defined(__sparc64__) +/* On SPARC, PIC compiled code crashes when used outside of a shared library. + Therefore, don't use the callback_get_receiver indirection on this platform. */ + +extern +#ifdef __cplusplus +"C" +#endif +void callback_receiver (); /* Actually it takes arguments and returns values! */ + +#define callback_get_receiver() (&callback_receiver) + +#else + +/* A fake type for callback_receiver. + Actually it takes arguments and returns values. */ +typedef void (*__vacall_r_t) (void); + +/* This function returns the address of callback_receiver. + callback_receiver is not a global symbol, because on ELF platforms, functions + with global visibility cannot accept additional arguments in registers. See + elf-hack.txt for more details. */ +extern +#ifdef __cplusplus +"C" +#endif +__vacall_r_t callback_get_receiver (void); + +#endif + + +#ifdef __cplusplus +} +#endif + +#endif /* _VACALL_R_H */ diff --git a/common/asm-alpha.sh b/common/asm-alpha.sh new file mode 100755 index 0000000..f39b238 --- /dev/null +++ b/common/asm-alpha.sh @@ -0,0 +1,44 @@ +#!/bin/sh +# Translate the assembler syntax of alpha assembler programs +# Usage: asm-alpha.sh < alphalinux-asm-file > portable-asm-file +# The portable-asm-file has to be +# 1. preprocessed, +# 2. grep -v '^ *#line' | grep -v '^#' +# 3. sed -e 's,% ,%,g' -e 's,//.*$,,' + +# Copyright (C) 2017 Bruno Haible +# +# This program is free software: you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + +tmpscript1=sed$$tmp1 +tmpscript2=sed$$tmp2 +tmpremove='rm -f $tmpscript1 $tmpscript2' +trap "$tmpremove" 1 2 15 + +cat > $tmpscript1 << \EOF +# ----------- Remove gcc self-identification +/gcc2_compiled/d +/gnu_compiled_c/d +/\.ident/d +EOF + +cat > $tmpscript2 << \EOF +# ----------- Introduce macro syntax for assembler pseudo-ops +/\.section\([ ]\+\).*GNU-stack/d +EOF + +sed -f $tmpscript1 | \ +sed -f $tmpscript2 + +eval "$tmpremove" diff --git a/common/asm-arm.h b/common/asm-arm.h new file mode 100644 index 0000000..fee4030 --- /dev/null +++ b/common/asm-arm.h @@ -0,0 +1,59 @@ +// Assembly language support for arm CPU. +// Bruno Haible 1999-05-29 + +// Copyright (C) 1999-2017 Bruno Haible +// +// This program is free software: you can redistribute it and/or modify +// it under the terms of the GNU General Public License as published by +// the Free Software Foundation; either version 2 of the License, or +// (at your option) any later version. +// +// This program is distributed in the hope that it will be useful, +// but WITHOUT ANY WARRANTY; without even the implied warranty of +// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +// GNU General Public License for more details. +// +// You should have received a copy of the GNU General Public License +// along with this program. If not, see . + +// In order not to have to maintain several copies of the assembly language +// code, we use some macros which expand into the correct syntax. +// These macros are: +// C(name) +// This expands to the name of the C variable or function `name'. +// On Unix BSD systems, this prepends an underscore. +// L(label) +// This expands to the name of a local label, having the name `label'. +// On Unix ELF systems, where there is no underscore, names beginning +// with an alphabetic character are automatically exported, so this +// prepends a dot. Note that when defining a label, the `:' must +// be inside the parentheses, not outside, because otherwise some +// ANSI C preprocessor inserts a space between the label and the `:', +// and some assemblers don't like this. +// DECLARE_FUNCTION(name) +// Declare `name' to be a global function. When assembly language +// code is compiled into a shared library, ELF linkers need to know +// which symbols are functions. +// FUNBEGIN(name) +// Start the assembly language code for the C function `name'. +// FUNEND(name) +// End the assembly language code for the C function 'name'. + +#ifdef ASM_UNDERSCORE +#define C(entrypoint) _##entrypoint +#define L(label) L##label +#else +#define C(entrypoint) entrypoint +#define L(label) .L##label +#endif + +// When assembly language code is compiled into a shared library, ELF linkers +// need to know which symbols are functions. +#if defined(__ELF__) || !defined(ASM_UNDERSCORE) +#define DECLARE_FUNCTION(name) .type C(name),%function +#define FUNEND(name) .size C(name),.-C(name) +#else +#define DECLARE_FUNCTION(name) +#define FUNEND(name) +#endif +#define FUNBEGIN(name) C(name): diff --git a/common/asm-arm.sh b/common/asm-arm.sh new file mode 100755 index 0000000..d166ea9 --- /dev/null +++ b/common/asm-arm.sh @@ -0,0 +1,62 @@ +#!/bin/sh +# Translate the assembler syntax of arm assembler programs +# Usage: asm-arm.sh < riscix-asm-file > portable-asm-file +# The portable-asm-file has to be +# 1. preprocessed, +# 2. grep -v '^ *#line' | grep -v '^#' +# 3. sed -e 's,% ,%,g' -e 's,//,@,g' -e 's,\$,#,g' + +# Copyright (C) 1999-2018 Bruno Haible +# +# This program is free software: you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + +tmpscript1=sed$$tmp1 +tmpscript2=sed$$tmp2 +tmpremove='rm -f $tmpscript1 $tmpscript2' +trap "$tmpremove" 1 2 15 + +cat > $tmpscript1 << \EOF +# ----------- Remove gcc self-identification +/gcc2_compiled/d +/gnu_compiled_c/d +/\.ident/d +EOF + +cat > $tmpscript2 << \EOF +# ----------- Hide comments, to avoid trouble in preprocessing +s,@,//,g +# ----------- Turn # into $, to avoid trouble in preprocessing +s,#,\$,g +# ----------- Global symbols depends on ASM_UNDERSCORE +/[ ]\.req[ ]/!{ +s/^\([A-Za-z0-9_]\+\)/C(\1)/ +} +s/\.L\([A-Za-z0-9_]\+\)/L(\1)/ +s/\.global[ ]\([A-Za-z0-9_]*\)/.global C(\1)/ +# ----------- Introduce macro syntax for assembler pseudo-ops +/\.file\([ ]\+\)/d +/\.section\([ ]\+\).*GNU-stack/d +s/^C(\([A-Za-z0-9_]*\)):/FUNBEGIN(\1)/ +# ----------- Massage the beginning of functions +/\.type/{ +s/\.type[ ]\([A-Za-z0-9_]*\), *function/DECLARE_FUNCTION(\1)/ +} +# ----------- Massage the end of functions +s/\.size[ ]\([A-Za-z0-9_]*\),\(.*\)/FUNEND(\1)/ +EOF + +sed -f $tmpscript1 | \ +sed -f $tmpscript2 + +eval "$tmpremove" diff --git a/common/asm-hppa.h b/common/asm-hppa.h new file mode 100644 index 0000000..ac6c378 --- /dev/null +++ b/common/asm-hppa.h @@ -0,0 +1,73 @@ +// Assembly language support for hppa CPU. +// Bruno Haible 2017-01-23 + +// Copyright (C) 2017-2018 Bruno Haible +// +// This program is free software: you can redistribute it and/or modify +// it under the terms of the GNU General Public License as published by +// the Free Software Foundation; either version 2 of the License, or +// (at your option) any later version. +// +// This program is distributed in the hope that it will be useful, +// but WITHOUT ANY WARRANTY; without even the implied warranty of +// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +// GNU General Public License for more details. +// +// You should have received a copy of the GNU General Public License +// along with this program. If not, see . + +// In order not to have to maintain several copies of the assembly language +// code, we use some macros which expand into the correct syntax. +// These macros are: +// IMPORT_MILLICODE(symbol) +// This expands to an import from the MILLICODE segment, if needed. +// IMPORT_DATA(symbol) +// This expands to an import from the DATA segment, if needed. +// TEXT1(), TEXT2() +// These expand to two lines that switch to the TEXT section/segment. +// GLOBL(symbol) +// This expands to a declaration that the given symbol, defined +// in this file, shall have global visibility. +// DEF(symbol) +// This expands to the declaration of a symbol or label. +// L(label) +// This expands to the name of a local label, having the name `label'. +// DECLARE_FUNCTION(name) +// Declare `name' to be a global function. When assembly language +// code is compiled into a shared library, ELF linkers need to know +// which symbols are functions. +// FUNEND(name) +// End the assembly language code for the C function 'name'. + +#if defined(__ELF__) +/* Linux */ +#define IMPORT_MILLICODE(symbol) +#define IMPORT_DATA(symbol) +#define TEXT1() .text +#define TEXT2() +#define GLOBL(symbol) .globl symbol +#define DEF(symbol) symbol: +#define L(label) .L##label +#define DECLARE_FUNCTION(name) .type name,%function +#define FUNEND(name) .size name,.-name +#else +/* HP-UX */ +#define IMPORT_MILLICODE(symbol) .IMPORT symbol,MILLICODE +#define IMPORT_DATA(symbol) .IMPORT symbol,DATA +#if 1 +#define TEXT1() .SPACE $TEXT$ +#define TEXT2() .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY +#else +#define TEXT1() .code +#define TEXT2() +#endif +#define GLOBL(symbol) .EXPORT symbol,ENTRY,PRIV_LEV=3 +#if 1 +#define DEF(symbol) symbol +#else +#define DEF(symbol) .label symbol +#endif +#define L(label) L$##label +#define DECLARE_FUNCTION(name) +#define FUNEND(name) +#endif diff --git a/common/asm-hppa.sh b/common/asm-hppa.sh new file mode 100755 index 0000000..180fd34 --- /dev/null +++ b/common/asm-hppa.sh @@ -0,0 +1,68 @@ +#!/bin/sh +# Translate the assembler syntax of hppa assembler programs +# Usage: asm-hppa.sh < hppalinux-asm-file > portable-asm-file +# The portable-asm-file has to be +# 1. preprocessed, +# 2. grep -v '^ *#line' | grep -v '^#' +# 3. sed -e "s,!,',g" + +# Copyright (C) 2017 Bruno Haible +# +# This program is free software: you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + +tmpscript1=sed$$tmp1 +tmpscript2=sed$$tmp2 +tmpremove='rm -f $tmpscript1 $tmpscript2' +trap "$tmpremove" 1 2 15 + +cat > $tmpscript1 << \EOF +# ----------- Remove #APP/#NO_APP lines and gcc self-identification +/^#APP$/d +/^#NO_APP$/d +/gcc2_compiled/d +/gnu_compiled_c/d +/\.ident/d +EOF + +cat > $tmpscript2 << \EOF +# ----------- Turn ' into !, to avoid trouble in preprocessing +s,',!,g +# ----------- Add some imports +/\.LEVEL/{ +s/$/\ + IMPORT_MILLICODE($$dyncall)/ +} +# ----------- Section switching +s/\.text/TEXT1()\ + TEXT2()/ +# ----------- Declaration of symbols and labels is different +s/^\([A-Za-z0-9_.]\+\):$/DEF(\1)/ +# ----------- Label syntax is different +/\.LEVEL/!{ +s/\.L\([A-Za-z0-9_]\+\)/L(\1)/ +} +# ----------- Introduce macro syntax for assembler pseudo-ops +s/\.globl[ ]\([A-Za-z0-9_]\+\)/GLOBL(\1)/ +# ----------- Massage the beginning of functions +/\.type/{ +s/\.type[ ]\+\([A-Za-z0-9_]*\), *@function/DECLARE_FUNCTION(\1)/ +} +# ----------- Massage the end of functions +s/\.size[ ]\([A-Za-z0-9_]*\),\(.*\)/FUNEND(\1)/ +EOF + +sed -f $tmpscript1 | \ +sed -f $tmpscript2 + +eval "$tmpremove" diff --git a/common/asm-hppa64.h b/common/asm-hppa64.h new file mode 100644 index 0000000..fa653d1 --- /dev/null +++ b/common/asm-hppa64.h @@ -0,0 +1,69 @@ +// Assembly language support for hppa64 CPU. +// Bruno Haible 2017-01-23, 2017-08-05 + +// Copyright (C) 2017-2018 Bruno Haible +// +// This program is free software: you can redistribute it and/or modify +// it under the terms of the GNU General Public License as published by +// the Free Software Foundation; either version 2 of the License, or +// (at your option) any later version. +// +// This program is distributed in the hope that it will be useful, +// but WITHOUT ANY WARRANTY; without even the implied warranty of +// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +// GNU General Public License for more details. +// +// You should have received a copy of the GNU General Public License +// along with this program. If not, see . + +// In order not to have to maintain several copies of the assembly language +// code, we use some macros which expand into the correct syntax. +// These macros are: +// IMPORT_DATA(symbol) +// This expands to an import from the DATA segment, if needed. +// TEXT1(), TEXT2() +// These expand to two lines that switch to the TEXT section/segment. +// GLOBL(symbol) +// This expands to a declaration that the given symbol, defined +// in this file, shall have global visibility. +// DEF(symbol) +// This expands to the declaration of a symbol or label. +// L(label) +// This expands to the name of a local label, having the name `label'. +// DECLARE_FUNCTION(name) +// Declare `name' to be a global function. When assembly language +// code is compiled into a shared library, ELF linkers need to know +// which symbols are functions. +// FUNEND(name) +// End the assembly language code for the C function 'name'. + +#if defined(__ELF__) +/* Linux */ +#define IMPORT_DATA(symbol) +#define TEXT1() .text +#define TEXT2() +#define GLOBL(symbol) .globl symbol +#define DEF(symbol) symbol: +#define L(label) .L##label +#define DECLARE_FUNCTION(name) .type name,%function +#define FUNEND(name) .size name,.-name +#else +/* HP-UX */ +#define IMPORT_DATA(symbol) .IMPORT symbol,DATA +#if 1 +#define TEXT1() .SPACE $TEXT$,SORT=8 +#define TEXT2() .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY,SORT=24 +#else +#define TEXT1() .code +#define TEXT2() +#endif +#define GLOBL(symbol) .EXPORT symbol,ENTRY,PRIV_LEV=3 +#if 1 +#define DEF(symbol) symbol +#else +#define DEF(symbol) .label symbol +#endif +#define L(label) L$##label +#define DECLARE_FUNCTION(name) +#define FUNEND(name) +#endif diff --git a/common/asm-hppa64.sh b/common/asm-hppa64.sh new file mode 100755 index 0000000..71d9d26 --- /dev/null +++ b/common/asm-hppa64.sh @@ -0,0 +1,63 @@ +#!/bin/sh +# Translate the assembler syntax of hppa64 assembler programs +# Usage: asm-hppa64.sh < hppalinux-asm-file > portable-asm-file +# The portable-asm-file has to be +# 1. preprocessed, +# 2. grep -v '^ *#line' | grep -v '^#' +# 3. sed -e "s,!,',g" + +# Copyright (C) 2017 Bruno Haible +# +# This program is free software: you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + +tmpscript1=sed$$tmp1 +tmpscript2=sed$$tmp2 +tmpremove='rm -f $tmpscript1 $tmpscript2' +trap "$tmpremove" 1 2 15 + +cat > $tmpscript1 << \EOF +# ----------- Remove #APP/#NO_APP lines and gcc self-identification +/^#APP$/d +/^#NO_APP$/d +/gcc2_compiled/d +/gnu_compiled_c/d +/\.ident/d +EOF + +cat > $tmpscript2 << \EOF +# ----------- Turn ' into !, to avoid trouble in preprocessing +s,',!,g +# ----------- Section switching +s/\.text/TEXT1()\ + TEXT2()/ +# ----------- Declaration of symbols and labels is different +s/^\([A-Za-z0-9_.]\+\):$/DEF(\1)/ +# ----------- Label syntax is different +/\.LEVEL/!{ +s/\.L\([A-Za-z0-9_]\+\)/L(\1)/ +} +# ----------- Introduce macro syntax for assembler pseudo-ops +s/\.globl[ ]\([A-Za-z0-9_]\+\)/GLOBL(\1)/ +# ----------- Massage the beginning of functions +/\.type/{ +s/\.type[ ]\+\([A-Za-z0-9_]*\), *@function/DECLARE_FUNCTION(\1)/ +} +# ----------- Massage the end of functions +s/\.size[ ]\([A-Za-z0-9_]*\),\(.*\)/FUNEND(\1)/ +EOF + +sed -f $tmpscript1 | \ +sed -f $tmpscript2 + +eval "$tmpremove" diff --git a/common/asm-i386.h b/common/asm-i386.h new file mode 100644 index 0000000..ff1baab --- /dev/null +++ b/common/asm-i386.h @@ -0,0 +1,297 @@ +// Assembly language support for i386 CPU. +// Bruno Haible 1997-06-21 + +// Copyright (C) 1997-2018 Bruno Haible +// +// This program is free software: you can redistribute it and/or modify +// it under the terms of the GNU General Public License as published by +// the Free Software Foundation; either version 2 of the License, or +// (at your option) any later version. +// +// This program is distributed in the hope that it will be useful, +// but WITHOUT ANY WARRANTY; without even the implied warranty of +// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +// GNU General Public License for more details. +// +// You should have received a copy of the GNU General Public License +// along with this program. If not, see . + +// An assembly language file for the i386/i486/i586/i686/786 CPUs: +// On Unix, it is preprocessed and then assembled. NB: This file requires +// an ANSI C or C++ preprocessor which understands C++ comments. +// On Windows, with MSVC, it is preprocessed and then compiled with +// optimization. (The MSVC development environment does not have a separate +// assembler, we must use the C compiler's inline asm extension. Compiling +// without optimization pushes the registers %ebx,%esi,%edi onto the stack +// at function entry and pops them at function exit, which is not what we +// want because it affects the %esp offsets of the function arguments.) + +// The assembly language file should +// 1. include a configuration file which defines ASM_UNDERSCORE if appropriate. +// #ifndef _MSC_VER +// #include "config.h" +// #endif +// 2. include this file. +// #include "asm-i386.h" +// 3. define all assembly language code. + +// The three different assembler syntaxes for this CPU are a MAJOR annoyance. +// In order not to have to maintain several copies of the assembly language +// code, we use lots of macros which expand into the correct syntax. +// These macros are: +// C(name) +// This expands to the name of the C variable or function `name'. +// On Unix BSD systems, this prepends an underscore. +// L(label) +// This expands to the name of a local label, having the name `label'. +// On Unix ELF systems, where there is no underscore, names beginning +// with an alphabetic character are automatically exported, so this +// prepends a dot. Note that when defining a label, the `:' must +// be inside the parentheses, not outside, because otherwise some +// ANSI C preprocessor inserts a space between the label and the `:', +// and some assemblers don't like this. +// R(reg) +// This expands to a reference to register `reg'. On Unix, this +// prepends a % charater. +// NUM(value) +// This expands to an immediate value. On Unix, this prepends a $ +// character. +// ADDR(variable) +// This expands to an immediate value, the address of some variable +// or function. On Unix, this prepends a $ character. With MSVC, +// this prepends the keyword "OFFSET". +// About operand sizes: On Unix, a suffix to the instruction specifies the +// size of the operands (for example "movb", "movw", "movl"). With +// MSVC, there is no such suffix. Instead, the assembler infers the +// operand size from the names of the registers ("al" vs. "ax" vs. +// "eax"). This works well in most cases, but in instructions like +// "mul [esi]" the assembler guesses the operand size: "byte" by +// default. So it is better to explicitly specify the operand size +// of memory operands (prefix X1, X2, X4, X8). +// (Side note about Unix assemblers: Some Unix assemblers allow you +// to write "testb %eax,%eax" but silently treat this as +// "testb %al,%al".) +// X1 +// This prefixes a memory reference of 1 byte. +// X2 +// This prefixes a memory reference of 2 bytes. +// X4 +// This prefixes a memory reference of 4 bytes. +// X8 +// This prefixes a memory reference of 8 bytes. +// MEM(base) +// This expands to a memory reference at address `base'. +// MEM_DISP(base,displacement) +// This expands to a memory reference at address `base+displacement'. +// MEM_INDEX(base,index) +// This expands to a memory reference at address `base+index'. +// MEM_SHINDEX(base,index,size) +// This expands to a memory reference at address +// `base+index*size', where `size' is 1, 2, 4, or 8. +// MEM_DISP_SHINDEX0(displacement,index,size) +// This expands to a memory reference at address +// `displacement+index*size', where `size' is 1, 2, 4, or 8. +// MEM_DISP_SHINDEX(base,displacement,index,size) +// This expands to a memory reference at address +// `base+displacement+index*size', where `size' is 1, 2, 4, or 8. +// INDIR(value) +// This expands to an implicit indirection. On Unix, this prepends +// a * character. +// INSN1(mnemonic,size_suffix,dst) +// This expands to an instruction with one operand. +// INSN2(mnemonic,size_suffix,src,dst) +// This expands to an instruction with two operands. In our notation, +// `src' comes first and `dst' second, but they are reversed when +// expanding to Intel syntax. +// INSN2MOVXL(mnemonic,size_suffix,src,dst) +// This expands to an instruction with two operands, of type +// movsbl/movzbl, which in some syntaxes requires a second suffix. +// INSN2SHCL(mnemonic,size_suffix,src,dst) +// This expands to an instruction with two operands, of type +// shrd/shld, which in some syntaxes requires an additional operand +// %cl. +// REP, REPZ +// This expands to a prefix for string instructions. +// _ +// For instructions which don't have a size suffix, like jump +// instructions. Expands to nothing. Needed for MSVC, which has +// problems with empty macro arguments. +// TEXT() +// Switch to the code section. +// ALIGN(log) +// Align to 2^log bytes. +// P2ALIGN(log,max) +// Align to 2^log bytes, but insert at most max bytes. +// GLOBL(name) +// Declare `name' to be a global symbol. +// DECLARE_FUNCTION(name) +// Declare `name' to be a global function. When assembly language +// code is compiled into a shared library, ELF linkers need to know +// which symbols are functions. +// FUNBEGIN(name) +// Start the assembly language code for the C function `name'. +// FUNEND(name,size_expression) +// End the assembly language code for the C function 'name'. + +// Define the C(name) and L(label) macros. +#ifdef _MSC_VER +#define C(entrypoint) entrypoint +#define L(label) L##label +#else +#ifdef ASM_UNDERSCORE +#define C(entrypoint) _##entrypoint +#define L(label) L##label +#else +#define C(entrypoint) entrypoint +#define L(label) .L##label +#endif +#endif + +// Define one of these. +// BSD_SYNTAX for GNU assembler version 2. +// ELF_SYNTAX for SVR4 and Solaris assemblers. +// INTEL_SYNTAX for MS assembler. +// Note: INTEL_SYNTAX is not the same syntax as produced by "gcc masm=intel" +// as there are syntactic differences between that syntax and the one accepted +// by the MS assembler (for R, MEM_DISP, P2ALIGN, FUNBEGIN, FUNEND etc.). +#ifdef _MSC_VER +#define INTEL_SYNTAX +#else +// On Unix, it happens that the ELF systems (ASM_UNDERSCORE not defined) use +// the ELF syntax, while the BSD systems (ASM_UNDERSCORE defined) use the +// BSD syntax. Neat to know, this saves us from enumerating all the systems. +#ifdef ASM_UNDERSCORE +#define BSD_SYNTAX +#else +#define ELF_SYNTAX +#endif +#endif + +#if defined (BSD_SYNTAX) || defined (ELF_SYNTAX) +#define R(r) %r +#define NUM(n) $ n +#define ADDR(a) $##a +#define X1 +#define X2 +#define X4 +#define X8 +#define MEM(base)(R(base)) +#define MEM_DISP(base,displacement)displacement(R(base)) +#define MEM_INDEX(base,index)(R(base),R(index)) +#define MEM_SHINDEX(base,index,size)(R(base),R(index),size) +#define MEM_DISP_SHINDEX0(displacement,index,size)displacement(,R(index),size) +#define MEM_DISP_SHINDEX(base,displacement,index,size)displacement(R(base),R(index),size) +#define INDIR(value)*value +#define INSNCONC(mnemonic,size_suffix)mnemonic##size_suffix +#define INSN1(mnemonic,size_suffix,dst)INSNCONC(mnemonic,size_suffix) dst +#define INSN2(mnemonic,size_suffix,src,dst)INSNCONC(mnemonic,size_suffix) src,dst +#define INSN2MOVXL(mnemonic,size_suffix,src,dst)INSNCONC(mnemonic,size_suffix##l) src,dst +#if defined(__SVR4) /* Solaris */ +#define INSN2SHCL(mnemonic,size_suffix,src,dst)INSNCONC(mnemonic,size_suffix) src,dst +#else +#define INSN2SHCL(mnemonic,size_suffix,src,dst)INSNCONC(mnemonic,size_suffix) R(cl),src,dst +#endif +#if defined(BSD_SYNTAX) || defined(COHERENT) +#define REPZ repe ; +#else +#define REPZ repz ; +#endif +#define REP rep ; +#if defined(BSD_SYNTAX) && !(defined(__CYGWIN__) || defined(__MINGW32__)) +#define ALIGN(log) .align log,0x90 +#endif +#if defined(ELF_SYNTAX) || defined(__CYGWIN__) || defined(__MINGW32__) +#define ALIGN(log) .align 1< portable-asm-file +# The portable-asm-file has to be +# 1. preprocessed, +# 2. grep -v '^ *#line' | grep -v '^#' +# 3. sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,@ ,@,g' -e 's,//.*$,,' -e 's/##//g' +# Warning! All comments are stripped. + +# Copyright (C) 1997-2018 Bruno Haible +# +# This program is free software: you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + +tmpscript01=sed$$tmp01 +tmpscript02=sed$$tmp02 +tmpscript03=sed$$tmp03 +tmpscript04=sed$$tmp04 +tmpscript05=sed$$tmp05 +tmpscript06=sed$$tmp06 +tmpscript07=sed$$tmp07 +tmpscript08=sed$$tmp08 +tmpscript09=sed$$tmp09 +tmpscript10=sed$$tmp10 +tmpremove='rm -f $tmpscript01 $tmpscript02 $tmpscript03 $tmpscript04 $tmpscript05 $tmpscript06 $tmpscript07 $tmpscript08 $tmpscript09 $tmpscript10' +trap "$tmpremove" 1 2 15 + +cat > $tmpscript01 << \EOF +# ----------- Strip comments +s,# .*,, +s,[ ][ ]*$,, +EOF + +cat > $tmpscript02 << \EOF +# ----------- Remove #APP/#NO_APP lines and gcc self-identification, add a blank line at the end +/^#APP$/d +/^#NO_APP$/d +/gcc2_compiled/d +/gnu_compiled_c/d +/\.ident/d +EOF + +cat > $tmpscript03 << \EOF +# ----------- Global symbols depends on ASM_UNDERSCORE +s/^\([A-Za-z0-9_]\+\)/C(\1)/ +s/\.L\([A-Za-z0-9_]\+\)/L(\1)/ +# ----------- Massage the beginning of functions +/\.type/{ +s/\.type[ ]\([A-Za-z0-9_]*\), *@function/DECLARE_FUNCTION(\1)/ +} +# ----------- Massage the end of functions +s/\.size[ ]\([A-Za-z0-9_]*\),\(.*\)/FUNEND(\1,\2)/ +# ----------- Introduce conditionals for function references in PIC code +# Note: This is hairy. It assumes that the register clobbered with +# the 'addl $_GLOBAL_OFFSET_TABLE_ ...' instruction is the same as +# the register that the @GOTOFF instructions reference. +/^ addl \$_GLOBAL_OFFSET_TABLE_,/{ +x +s/.*/.LgotGOT/ +x +s/^ addl \$_GLOBAL_OFFSET_TABLE_, *\(%.*\)/#ifdef __ELF__\ + addl $_GLOBAL_OFFSET_TABLE_,\1\ +#else\ +.LgotGOT:\ +#endif/ +} +/^ addl \$_GLOBAL_OFFSET_TABLE_+\[\.-\(.*\)\],/{ +h +s/^ addl \$_GLOBAL_OFFSET_TABLE_+\[\.-\(.*\)\],.*/\1/ +x +s/^ addl \$_GLOBAL_OFFSET_TABLE_+\[\.-\(.*\)\], *\(%.*\)/#ifdef __ELF__\ + addl \$_GLOBAL_OFFSET_TABLE_+[.-\1],\2\ +#endif/ +} +/@GOTOFF(/{ +G +s/^ leal \([A-Za-z0-9_]\+\)@GOTOFF\(.*\)\ +\(.*\)/#ifdef __ELF__\ + leal \1@GOTOFF\2\ +#else\ + leal C(\1)-\3\2\ +#endif/ +} +EOF + +cat > $tmpscript04 << \EOF +# ----------- Introduce macro syntax for operands +s/\([-+0-9A-Z_]\+\)[(]%\(e..\)[)]/MEM_DISP(\2,\1)/g +s/[(]%\(e..\)[)]/MEM(\1)/g +s/\([-+0-9A-Z_]\+\)[(],%\(e..\),\([0-9]*\)[)]/MEM_DISP_SHINDEX0(\1,\2,\3)/g +s/\([-+0-9A-Z_]\+\)[(]%\(e..\),%\(e..\),\([0-9]*\)[)]/MEM_DISP_SHINDEX(\2,\1,\3,\4)/g +s/[(]%\(e..\),%\(e..\),\([0-9]*\)[)]/MEM_SHINDEX(\1,\2,\3)/g +s/[(]%\(e..\),%\(e..\)[)]/MEM_INDEX(\1,\2)/g +EOF + +cat > $tmpscript05 << \EOF +# ----------- Introduce macro syntax for instructions +s/\(push\|pop\|mul\|div\|not\|neg\|inc\|dec\|fld\|fstp\)\(.\)\([ ]\+\)\(.*\)$/INSN1(\1,\2 ,\4)/ +s/\(call\|jmp\|jc\|jnc\|je\|jne\|jz\|jnz\|ja\|jae\|jb\|jbe\|jl\|jge\|js\|jns\)\([ ]\+\)\(.*\)$/INSN1(\1,_ ,\3)/ +s/\(movs\|movz\)\(.\)l\([ ]\+\)\(.*\)$/INSN2MOVXL(\1,\2,\4)/ +s/\(mov\|add\|sub\|adc\|sbb\|xor\|test\|cmp\|rcl\|rcr\|and\|or\|sar\|shr\|shl\|lea\)\(.\)\([ ]\+\)\(.*\)$/INSN2(\1,\2 ,\4)/ +s/\(shld\|shrd\)\(.\)\([ ]\+\)%cl,[ ]*\(.*\)$/INSN2SHCL(\1,\2 ,\4)/ +s/rep[ ];/REP/ +s/repz[ ];/REPZ/ +EOF + +cat > $tmpscript06 << \EOF +# ----------- Add size prefixes to memory references +s/\([(]f[^(,]*,s.*\), *MEM/\1,X4 MEM/g +s/\([(]f[^(,]*,l.*\), *MEM/\1,X8 MEM/g +s/\([(][^(,]*,b.*\), *MEM/\1,X1 MEM/g +s/\([(][^(,]*,w.*\), *MEM/\1,X2 MEM/g +s/\([(][^(,]*,l.*\), *MEM/\1,X4 MEM/g +EOF + +cat > $tmpscript07 << \EOF +# ----------- Introduce macro syntax for register names +s/%\(e..\)/R(\1)/g +s/%\(..\)/R(\1)/g +s/\$\([-0-9]*\)/NUM(\1)/g +EOF + +cat > $tmpscript08 << \EOF +# ----------- Treat table jumps (hairy) +# (Needed because the MSVC inline assembler does not have pseudo-ops. +# Note that we transform a table of absolute addresses with 4 bytes +# per entry into a table of absolute addresses with 8 bytes per entry.) +s/^ \.long \(.*\)$/#ifdef _MSC_VER\ + nop\ + nop\ + push \1\ +#else\ + .long \1\ +#endif/ +s/^ \(INSN1[(]jmp,_[^,]*,\)\*MEM_DISP_SHINDEX0[(]\([^,)]*\),\([^,)]*\),4[)][)]$/#ifdef _MSC_VER\ + INSN2(lea,l ,MEM_DISP_SHINDEX0(\2+8,\3,8),R(\3))\ + INSN2(mov,l ,X4 MEM_DISP(\3,-4),R(\3))\ + INSN1(jmp,_ ,INDIR(R(\3)))\ +#else\ + \1INDIR(MEM_DISP_SHINDEX0(\2,\3,4)))\ +#endif/ +EOF + +cat > $tmpscript09 << \EOF +# ----------- Treat indirect calls +s/\(INSN1[(]\(call\|jmp\),_[^,]*,\)\*\(\(R\)[(][^)]*[)]\)[)]$/\1INDIR(\3))/ +s/\(INSN1[(]\(call\|jmp\),_[^,]*,\)\*\(\(MEM\|MEM_DISP\|C\)[(][^)]*[)]\)[)]$/\1INDIR(X4 \3))/ +EOF + +cat > $tmpscript10 << \EOF +# ----------- Introduce macro syntax for assembler pseudo-ops +/\.file\([ ]\+\)/d +s/\.text/TEXT()/ +s/^\([^#]*\)\.align \(.*\)/\1ALIGN(\2)/ +s/\.p2align \([^,]*\),,\(.*\)/P2ALIGN(\1,\2)/ +s/\.globl\( \+\)\(.*\)$/GLOBL(C(\2))/ +# ----------- Declare global symbols as functions (we have no variables) +s/^C(\([A-Za-z0-9_]*\)):/FUNBEGIN(\1)/ +EOF + +sed -f $tmpscript01 | \ +sed -f $tmpscript02 | \ +(cat - ; echo) | \ +(if [ $# = 1 -a "x$1" = "x-no-C" ] ; then cat - ; else sed -f $tmpscript03 ; fi) | \ +sed -f $tmpscript04 | \ +sed -f $tmpscript05 | \ +sed -f $tmpscript06 | \ +sed -f $tmpscript07 | \ +sed -f $tmpscript08 | \ +sed -f $tmpscript09 | \ +sed -f $tmpscript10 + +eval "$tmpremove" + diff --git a/common/asm-m68k.h b/common/asm-m68k.h new file mode 100644 index 0000000..736a7c3 --- /dev/null +++ b/common/asm-m68k.h @@ -0,0 +1,61 @@ +// Assembly language support for m68k CPU. +// Bruno Haible 1999-05-29 + +// Copyright (C) 1999-2017 Bruno Haible +// +// This program is free software: you can redistribute it and/or modify +// it under the terms of the GNU General Public License as published by +// the Free Software Foundation; either version 2 of the License, or +// (at your option) any later version. +// +// This program is distributed in the hope that it will be useful, +// but WITHOUT ANY WARRANTY; without even the implied warranty of +// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +// GNU General Public License for more details. +// +// You should have received a copy of the GNU General Public License +// along with this program. If not, see . + +// In order not to have to maintain several copies of the assembly language +// code, we use some macros which expand into the correct syntax. +// These macros are: +// C(name) +// This expands to the name of the C variable or function `name'. +// On Unix BSD systems, this prepends an underscore. +// L(label) +// This expands to the name of a local label, having the name `label'. +// On Unix ELF systems, where there is no underscore, names beginning +// with an alphabetic character are automatically exported, so this +// prepends a dot. Note that when defining a label, the `:' must +// be inside the parentheses, not outside, because otherwise some +// ANSI C preprocessor inserts a space between the label and the `:', +// and some assemblers don't like this. +// DECLARE_FUNCTION(name) +// Declare `name' to be a global function. When assembly language +// code is compiled into a shared library, ELF linkers need to know +// which symbols are functions. +// FUNBEGIN(name) +// Start the assembly language code for the C function `name'. +// FUNEND(name) +// End the assembly language code for the C function 'name'. + +#ifdef ASM_UNDERSCORE +// SunOS, NetBSD, OpenBSD, Linux/a.out +#define C(entrypoint) _##entrypoint +#define L(label) L##label +#else +// SVR4, A/UX, AMIX, Atari, Linux/ELF +#define C(entrypoint) entrypoint +#define L(label) .L##label +#endif + +// When assembly language code is compiled into a shared library, ELF linkers +// need to know which symbols are functions. +#if defined(__NetBSD__) || defined(__OpenBSD__) || defined(__ELF__) || defined(__svr4__) +#define DECLARE_FUNCTION(name) .type C(name),@function +#define FUNEND(name) .size C(name),.-C(name) +#else +#define DECLARE_FUNCTION(name) +#define FUNEND(name) +#endif +#define FUNBEGIN(name) C(name): diff --git a/common/asm-m68k.sh b/common/asm-m68k.sh new file mode 100755 index 0000000..7912b19 --- /dev/null +++ b/common/asm-m68k.sh @@ -0,0 +1,96 @@ +#!/bin/sh +# Translate the assembler syntax of m68k assembler programs +# Usage: asm-m68k.sh < sunos-asm-file > portable-asm-file +# The portable-asm-file has to be +# 1. preprocessed, +# 2. grep -v '^ *#line' | grep -v '^#' +# 3. sed -e 's,% ,%,g' -e 's,//.*$,,' + +# Copyright (C) 1999-2017 Bruno Haible +# +# This program is free software: you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + +syntax="$1" + +case "$syntax" in + "") echo "missing syntax" 1>&2; exit 1;; + mit | motorola) ;; + *) echo "invalid syntax: $syntax" 1>&2; exit 1;; +esac + +tmpscript1=sed$$tmp1 +tmpscript2=sed$$tmp2 +tmpremove='rm -f $tmpscript1 $tmpscript2' +trap "$tmpremove" 1 2 15 + +cat > $tmpscript1 << \EOF +# ----------- Remove #APP/#NO_APP lines +/^#APP$/d +/^#NO_APP$/d +# ----------- Remove gcc self-identification +/gcc2_compiled/d +/gnu_compiled_c/d +/\.ident/d +EOF + +if test $syntax = mit; then +cat > $tmpscript2 << \EOF +# ----------- Global symbols depends on ASM_UNDERSCORE +s/^L\([A-Za-z0-9_]\+\)/L(\1)/ +s/ L\([A-Za-z0-9_]\+\)/ L(\1)/ +# ----------- Prefix register names with $, to be turned into % later +s/,/, /g +s/\([^A-Za-z0-9_]\)\([ad][0-7]\|sp\|fp[0-7]\|pc\)\([^A-Za-z0-9_]\)/\1$\2\3/g +s/\([^A-Za-z0-9_]\)\([ad][0-7]\|sp\|fp[0-7]\|pc\)$/\1$\2/g +s/, /,/g +# ----------- Declare global symbols as functions (we have no variables) +s/\.globl[ ]_\([A-Za-z0-9_]*\)$/.globl _\1\ + DECLARE_FUNCTION(\1)/ +# ----------- Global symbols depends on ASM_UNDERSCORE +s/_\([A-Za-z0-9_]*\)/C(\1)/ +s/^C(\([A-Za-z0-9_]*\)):/FUNBEGIN(\1)/ +/FUNBEGIN(/{ +h +} +${ +p +s/.*// +x +s/FUNBEGIN/FUNEND/ +} +EOF +fi + +if test $syntax = motorola; then +cat > $tmpscript2 << \EOF +# ----------- Global symbols depends on ASM_UNDERSCORE +s/^\([A-Za-z0-9_]\+\)/C(\1)/ +s/\.L\([A-Za-z0-9_]\+\)/L(\1)/ +s/\.globl[ ]\([A-Za-z0-9_]*\)/.globl C(\1)/ +# ----------- Introduce macro syntax for assembler pseudo-ops +/\.file\([ ]\+\)/d +s/^C(\([A-Za-z0-9_]*\)):/FUNBEGIN(\1)/ +# ----------- Massage the beginning of functions +/\.type/{ +s/\.type[ ]\([A-Za-z0-9_]*\), *@function/DECLARE_FUNCTION(\1)/ +} +# ----------- Massage the end of functions +s/\.size[ ]\([A-Za-z0-9_]*\),\(.*\)/FUNEND(\1)/ +EOF +fi + +sed -f $tmpscript1 | \ +sed -f $tmpscript2 + +eval "$tmpremove" diff --git a/common/asm-mips.h b/common/asm-mips.h new file mode 100644 index 0000000..0d6f20b --- /dev/null +++ b/common/asm-mips.h @@ -0,0 +1,25 @@ +// Assembly language support for mips CPU. +// Bruno Haible 1999-05-29 + +// Copyright (C) 1999-2017 Bruno Haible +// +// This program is free software: you can redistribute it and/or modify +// it under the terms of the GNU General Public License as published by +// the Free Software Foundation; either version 2 of the License, or +// (at your option) any later version. +// +// This program is distributed in the hope that it will be useful, +// but WITHOUT ANY WARRANTY; without even the implied warranty of +// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +// GNU General Public License for more details. +// +// You should have received a copy of the GNU General Public License +// along with this program. If not, see . + +// When assembly language code is compiled into a shared library, ELF linkers +// need to know which symbols are functions. +#if defined(__ELF__) || defined(__NetBSD__) +#define DECLARE_FUNCTION(name) .type name,@function +#else +#define DECLARE_FUNCTION(name) +#endif diff --git a/common/asm-mips.sh b/common/asm-mips.sh new file mode 100755 index 0000000..5f57256 --- /dev/null +++ b/common/asm-mips.sh @@ -0,0 +1,54 @@ +#!/bin/sh +# Translate the assembler syntax of mips assembler programs +# Usage: asm-mips.sh < irix-asm-file > portable-asm-file +# The portable-asm-file has to be +# 1. preprocessed, +# 2. grep -v '^ *#line' | grep -v '^#' +# 3. sed -e 's,% ,%,g' -e 's,//.*$,,' + +# Copyright (C) 1999-2019 Bruno Haible +# +# This program is free software: you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + +tmpscript1=sed$$tmp1 +tmpscript2=sed$$tmp2 +tmpremove='rm -f $tmpscript1 $tmpscript2' +trap "$tmpremove" 1 2 15 + +cat > $tmpscript1 << \EOF +# ----------- Remove gcc self-identification +/gcc2_compiled/d +/gnu_compiled_c/d +/\.ident/d +EOF + +cat > $tmpscript2 << \EOF +# ----------- Remove comments, they would cause trouble in preprocessing +s,#.*$,, +# ----------- Remove assembler pseudo-ops that the IRIX assembler does not understand +/\.section/d +/\.previous/d +/\.abicalls/d +/\.nan/d +/\.module/d +# ----------- Massage the beginning of functions +/\.type/{ +s/\.type[ ]\+\([A-Za-z0-9_]*\), *@function/DECLARE_FUNCTION(\1)/ +} +EOF + +sed -f $tmpscript1 | \ +sed -f $tmpscript2 + +eval "$tmpremove" diff --git a/common/asm-powerpc.sh b/common/asm-powerpc.sh new file mode 100755 index 0000000..432ed7b --- /dev/null +++ b/common/asm-powerpc.sh @@ -0,0 +1,46 @@ +#!/bin/sh +# Translate the assembler syntax of powerpc assembler programs +# Usage: asm-powerpc.sh < powerpclinux-asm-file > portable-asm-file +# The portable-asm-file has to be +# 1. preprocessed, +# 2. grep -v '^ *#line' | grep -v '^#' +# 3. sed -e 's,% ,%,g' -e 's,//.*$,,' + +# Copyright (C) 2017 Bruno Haible +# +# This program is free software: you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + +tmpscript1=sed$$tmp1 +tmpscript2=sed$$tmp2 +tmpremove='rm -f $tmpscript1 $tmpscript2' +trap "$tmpremove" 1 2 15 + +cat > $tmpscript1 << \EOF +# ----------- Remove #APP/#NO_APP lines and gcc self-identification +/^#APP$/d +/^#NO_APP$/d +/gcc2_compiled/d +/gnu_compiled_c/d +/\.ident/d +EOF + +cat > $tmpscript2 << \EOF +# ----------- Introduce macro syntax for assembler pseudo-ops +/\.section\([ ]\+\).*GNU-stack/d +EOF + +sed -f $tmpscript1 | \ +sed -f $tmpscript2 + +eval "$tmpremove" diff --git a/common/asm-riscv.sh b/common/asm-riscv.sh new file mode 100755 index 0000000..5ef6b80 --- /dev/null +++ b/common/asm-riscv.sh @@ -0,0 +1,44 @@ +#!/bin/sh +# Translate the assembler syntax of RISC-V assembler programs +# Usage: asm-riscv.sh < riscvlinux-asm-file > portable-asm-file +# The portable-asm-file has to be +# 1. preprocessed, +# 2. grep -v '^ *#line' | grep -v '^#' +# 3. sed -e 's,% ,%,g' -e 's,//.*$,,' + +# Copyright (C) 2017-2018 Bruno Haible +# +# This program is free software: you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + +tmpscript1=sed$$tmp1 +tmpscript2=sed$$tmp2 +tmpremove='rm -f $tmpscript1 $tmpscript2' +trap "$tmpremove" 1 2 15 + +cat > $tmpscript1 << \EOF +# ----------- Remove gcc self-identification +/gcc2_compiled/d +/gnu_compiled_c/d +/\.ident/d +EOF + +cat > $tmpscript2 << \EOF +# ----------- Introduce macro syntax for assembler pseudo-ops +/\.section\([ ]\+\).*GNU-stack/d +EOF + +sed -f $tmpscript1 | \ +sed -f $tmpscript2 + +eval "$tmpremove" diff --git a/common/asm-s390.sh b/common/asm-s390.sh new file mode 100755 index 0000000..5d9f1e9 --- /dev/null +++ b/common/asm-s390.sh @@ -0,0 +1,44 @@ +#!/bin/sh +# Translate the assembler syntax of s390/s390x assembler programs +# Usage: asm-s390.sh < s390linux-asm-file > portable-asm-file +# The portable-asm-file has to be +# 1. preprocessed, +# 2. grep -v '^ *#line' | grep -v '^#' +# 3. sed -e 's,% ,%,g' -e 's,//.*$,,' + +# Copyright (C) 2017 Bruno Haible +# +# This program is free software: you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + +tmpscript1=sed$$tmp1 +tmpscript2=sed$$tmp2 +tmpremove='rm -f $tmpscript1 $tmpscript2' +trap "$tmpremove" 1 2 15 + +cat > $tmpscript1 << \EOF +# ----------- Remove gcc self-identification +/gcc2_compiled/d +/gnu_compiled_c/d +/\.ident/d +EOF + +cat > $tmpscript2 << \EOF +# ----------- Introduce macro syntax for assembler pseudo-ops +/\.section\([ ]\+\).*GNU-stack/d +EOF + +sed -f $tmpscript1 | \ +sed -f $tmpscript2 + +eval "$tmpremove" diff --git a/common/asm-sparc.h b/common/asm-sparc.h new file mode 100644 index 0000000..40eb787 --- /dev/null +++ b/common/asm-sparc.h @@ -0,0 +1,69 @@ +// Assembly language support for sparc CPU. +// Bruno Haible 1999-05-29 + +// Copyright (C) 1999-2017 Bruno Haible +// +// This program is free software: you can redistribute it and/or modify +// it under the terms of the GNU General Public License as published by +// the Free Software Foundation; either version 2 of the License, or +// (at your option) any later version. +// +// This program is distributed in the hope that it will be useful, +// but WITHOUT ANY WARRANTY; without even the implied warranty of +// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +// GNU General Public License for more details. +// +// You should have received a copy of the GNU General Public License +// along with this program. If not, see . + +// In order not to have to maintain several copies of the assembly language +// code, we use some macros which expand into the correct syntax. +// These macros are: +// C(name) +// This expands to the name of the C variable or function `name'. +// On Unix BSD systems, this prepends an underscore. +// L(label) +// This expands to the name of a local label, having the name `label'. +// On Unix ELF systems, where there is no underscore, names beginning +// with an alphabetic character are automatically exported, so this +// prepends a dot. Note that when defining a label, the `:' must +// be inside the parentheses, not outside, because otherwise some +// ANSI C preprocessor inserts a space between the label and the `:', +// and some assemblers don't like this. +// DECLARE_FUNCTION(name) +// Declare `name' to be a global function. When assembly language +// code is compiled into a shared library, ELF linkers need to know +// which symbols are functions. +// FUNBEGIN(name) +// Start the assembly language code for the C function `name'. +// FUNEND(name) +// End the assembly language code for the C function 'name'. + +#ifdef ASM_UNDERSCORE +// SunOS4, Linux/a.out +#define C(entrypoint) _##entrypoint +#define L(label) L##label +#else +// Solaris, Linux/ELF +#define C(entrypoint) entrypoint +#define L(label) .L##label +#endif + +// When assembly language code is compiled into a shared library, ELF linkers +// need to know which symbols are functions. +#if defined(__NetBSD__) || defined(__OpenBSD__) +#define DECLARE_FUNCTION(name) .type C(name),@function +#define FUNEND(name) .size C(name),.-C(name) +#elif defined(__SVR4) || defined(__ELF__) +// Solaris, Linux/ELF +// Some preprocessors keep the backslash in place, some don't. +// Some complain about the # being not in front of an ANSI C macro. +// Therefore we use a dollar, which will be sed-converted to # later. +#define DECLARE_FUNCTION(name) .type C(name),$function +#define FUNEND(name) .size C(name),.-C(name) +#else +// SunOS4, Linux/a.out +#define DECLARE_FUNCTION(name) +#define FUNEND(name) +#endif +#define FUNBEGIN(name) C(name): diff --git a/common/asm-sparc.sh b/common/asm-sparc.sh new file mode 100755 index 0000000..954ede4 --- /dev/null +++ b/common/asm-sparc.sh @@ -0,0 +1,58 @@ +#!/bin/sh +# Translate the assembler syntax of sparc64 assembler programs +# Usage: asm-sparc.sh < sparclinux-asm-file > portable-asm-file +# The portable-asm-file has to be +# 1. preprocessed, +# 2. grep -v '^ *#line' | grep -v '^#' +# 3. sed -e 's,% ,%,g' -e 's,//.*$,,' -e 's,\$,#,g' -e 's,# ,#,g' + +# Copyright (C) 1999-2017 Bruno Haible +# +# This program is free software: you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + +tmpscript1=sed$$tmp1 +tmpscript2=sed$$tmp2 +tmpremove='rm -f $tmpscript1 $tmpscript2' +trap "$tmpremove" 1 2 15 + +cat > $tmpscript1 << \EOF +# ----------- Remove gcc self-identification +/gcc2_compiled/d +/gnu_compiled_c/d +/\.ident/d +EOF + +cat > $tmpscript2 << \EOF +# ----------- Global symbols depends on ASM_UNDERSCORE +s/^\([A-Za-z0-9_]\+\)/C(\1)/ +s/\.L\([A-Za-z0-9_]\+\)/L(\1)/ +s/\.global[ ]\([A-Za-z0-9_]*\)$/.global C(\1)/ +# ----------- Introduce macro syntax for assembler pseudo-ops +/\.file\([ ]\+\)/d +/\.section\([ ]\+\).*GNU-stack/d +s/^C(\([A-Za-z0-9_]*\)):/FUNBEGIN(\1)/ +# ----------- Massage the beginning of functions +/\.type/{ +s/\.type[ ]\([A-Za-z0-9_]*\), *#function/DECLARE_FUNCTION(\1)/ +} +# ----------- Massage the end of functions +s/\.size[ ]\([A-Za-z0-9_]*\),\(.*\)/FUNEND(\1)/ +# ----------- Turn # into $, to avoid trouble in preprocessing +s,#,\$,g +EOF + +sed -f $tmpscript1 | \ +sed -f $tmpscript2 + +eval "$tmpremove" diff --git a/common/asm-x86_64.h b/common/asm-x86_64.h new file mode 100644 index 0000000..99a51e8 --- /dev/null +++ b/common/asm-x86_64.h @@ -0,0 +1,285 @@ +// Assembly language support for x86_64 CPU. +// Bruno Haible 2016-12-28 + +// Copyright (C) 1997-2018 Bruno Haible +// +// This program is free software: you can redistribute it and/or modify +// it under the terms of the GNU General Public License as published by +// the Free Software Foundation; either version 2 of the License, or +// (at your option) any later version. +// +// This program is distributed in the hope that it will be useful, +// but WITHOUT ANY WARRANTY; without even the implied warranty of +// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +// GNU General Public License for more details. +// +// You should have received a copy of the GNU General Public License +// along with this program. If not, see . + +// In order not to have to maintain several copies of the assembly language +// code, we use some macros which expand into the correct syntax. +// These macros are: +// C(name) +// This expands to the name of the C variable or function `name'. +// On Unix BSD systems, this prepends an underscore. +// L(label) +// This expands to the name of a local label, having the name `label'. +// On Unix ELF systems, where there is no underscore, names beginning +// with an alphabetic character are automatically exported, so this +// prepends a dot. Note that when defining a label, the `:' must +// be inside the parentheses, not outside, because otherwise some +// ANSI C preprocessor inserts a space between the label and the `:', +// and some assemblers don't like this. +// R(reg) +// This expands to a reference to register `reg'. On Unix, this +// prepends a % charater. +// NUM(value) +// This expands to an immediate value. On Unix, this prepends a $ +// character. +// ADDR(variable) +// This expands to an immediate value, the address of some variable +// or function. On Unix, this prepends a $ character. With MSVC, +// this prepends the keyword "OFFSET". +// ADDR_PCRELATIVE(variable) +// This expands to the address of symbol `variable', with program +// counter (%rip) relative addressing. +// About operand sizes: On Unix, a suffix to the instruction specifies the +// size of the operands (for example "movb", "movw", "movl"). With +// MSVC, there is no such suffix. Instead, the assembler infers the +// operand size from the names of the registers ("al" vs. "ax" vs. +// "eax"). This works well in most cases, but in instructions like +// "mul [esi]" the assembler guesses the operand size: "byte" by +// default. So it is better to explicitly specify the operand size +// of memory operands (prefix X1, X2, X4, X8). +// (Side note about Unix assemblers: Some Unix assemblers allow you +// to write "testb %eax,%eax" but silently treat this as +// "testb %al,%al".) +// X1 +// This prefixes a memory reference of 1 byte. +// X2 +// This prefixes a memory reference of 2 bytes. +// X4 +// This prefixes a memory reference of 4 bytes. +// X8 +// This prefixes a memory reference of 8 bytes. +// MEM(base) +// This expands to a memory reference at address `base'. +// MEM_DISP(base,displacement) +// This expands to a memory reference at address `base+displacement'. +// MEM_INDEX(base,index) +// This expands to a memory reference at address `base+index'. +// MEM_SHINDEX(base,index,size) +// This expands to a memory reference at address +// `base+index*size', where `size' is 1, 2, 4, or 8. +// MEM_DISP_SHINDEX0(displacement,index,size) +// This expands to a memory reference at address +// `displacement+index*size', where `size' is 1, 2, 4, or 8. +// MEM_DISP_SHINDEX(base,displacement,index,size) +// This expands to a memory reference at address +// `base+displacement+index*size', where `size' is 1, 2, 4, or 8. +// MEM_PCRELATIVE(variable) +// This expands to a memory reference at symbol `variable', with +// program counter (%rip) relative addressing. +// INDIR(value) +// This expands to an implicit indirection. On Unix, this prepends +// a * character. +// INSN1(mnemonic,size_suffix,dst) +// This expands to an instruction with one operand. +// INSN2(mnemonic,size_suffix,src,dst) +// This expands to an instruction with two operands. In our notation, +// `src' comes first and `dst' second, but they are reversed when +// expanding to Intel syntax. In Intel syntax, size_suffix is omitted. +// INSN2S(mnemonic,size_suffix,src,dst) +// This expands to an instruction with two operands. In our notation, +// `src' comes first and `dst' second, but they are reversed when +// expanding to Intel syntax. In Intel syntax, size_suffix is +// preserved. +// INSN2MOVXL(mnemonic,size_suffix,src,dst) +// This expands to an instruction with two operands, of type +// movsbl/movzbl, which in some syntaxes requires a second suffix. +// INSN2MOVXQ(mnemonic,size_suffix,src,dst) +// This expands to an instruction with two operands, of type +// movsbq/movzbq, which in some syntaxes requires a second suffix. +// INSN2MOVXLQ(mnemonic,size_suffix,src,dst) +// This expands to an instruction with two operands, of type +// movslq/movzlq, which in some syntaxes requires a second suffix. +// _ +// For instructions which don't have a size suffix, like jump +// instructions. Expands to nothing. Needed for MSVC, which has +// problems with empty macro arguments. +// TEXT() +// Switch to the code section. +// P2ALIGN(log,max) +// Align to 2^log bytes, but insert at most max bytes. +// GLOBL(name) +// Declare `name' to be a global symbol. +// DECLARE_FUNCTION(name) +// Declare `name' to be a global function. When assembly language +// code is compiled into a shared library, ELF linkers need to know +// which symbols are functions. +// FUNBEGIN(name) +// Start the assembly language code for the C function `name'. +// FUNEND(name,size_expression) +// End the assembly language code for the C function 'name'. +// EH_FRAME_SECTION +// The arguments to the .section statement that introduces the +// exception handler section (on ELF platforms). + +#ifdef _MSC_VER +// MSVC +#define C(entrypoint) entrypoint +#define L(label) $L##label +#else +#ifdef ASM_UNDERSCORE +// Mac OS X +#define C(entrypoint) _##entrypoint +#define L(label) L##label +#else +// Linux/ELF, Solaris/ELF, Windows with GNU as +#define C(entrypoint) entrypoint +#define L(label) .L##label +#endif +#endif + +// The two syntaxes: +// - ATT_SYNTAX for GNU assembler version 2. +// - INTEL_SYNTAX for MS assembler. +// Note: INTEL_SYNTAX is not the same syntax as produced by "gcc masm=intel" +// as there are syntactic differences between that syntax and the one accepted +// by the MS assembler (for MEM_DISP, INDIR, P2ALIGN, FUNBEGIN, FUNEND etc.). +#ifdef _MSC_VER +// MS assembler +#define R(r) r +#define NUM(n) n +#define ADDR(a) OFFSET a +#define ADDR_PCRELATIVE(a) OFFSET a +#define X1 BYTE PTR +#define X2 WORD PTR +#define X4 DWORD PTR +#define X8 QWORD PTR +#define MEM(base) [base] +#define MEM_DISP(base,displacement) [base+(displacement)] +#define MEM_INDEX(base,index) [base+index] +#define MEM_SHINDEX(base,index,size) [base+index*size] +#define MEM_DISP_SHINDEX0(displacement,index,size) [(displacement)+index*size] +#define MEM_DISP_SHINDEX(base,displacement,index,size) [base+(displacement)+index*size] +#define MEM_PCRELATIVE(variable) variable +#define INDIR(value)value +#define INSNCONC(mnemonic,suffix)mnemonic##suffix +#define INSN1(mnemonic,size_suffix,dst)mnemonic dst +#define INSN2(mnemonic,size_suffix,src,dst)mnemonic dst,src +#define INSN2S(mnemonic,size_suffix,src,dst)INSNCONC(mnemonic,size_suffix) dst,src +#define INSN2MOVXL(mnemonic,size_suffix,src,dst)INSNCONC(mnemonic,x) dst,src +#define INSN2MOVXQ(mnemonic,size_suffix,src,dst)INSNCONC(mnemonic,x) dst,src +#define INSN2MOVXLQ(mnemonic,size_suffix,src,dst)INSNCONC(mnemonic,xd) dst,src +#else +// GNU assembler version 2 +#define R(r) %r +#define NUM(n) $ n +#define ADDR(a) $##a +#define ADDR_PCRELATIVE(a) a(%rip) +#define X1 +#define X2 +#define X4 +#define X8 +#define MEM(base)(R(base)) +#define MEM_DISP(base,displacement)displacement(R(base)) +#define MEM_INDEX(base,index)(R(base),R(index)) +#define MEM_SHINDEX(base,index,size)(R(base),R(index),size) +#define MEM_DISP_SHINDEX0(displacement,index,size)displacement(,R(index),size) +#define MEM_DISP_SHINDEX(base,displacement,index,size)displacement(R(base),R(index),size) +#define MEM_PCRELATIVE(variable) variable(%rip) +#define INDIR(value)*value +#define INSNCONC(mnemonic,size_suffix)mnemonic##size_suffix +#define INSN1(mnemonic,size_suffix,dst)INSNCONC(mnemonic,size_suffix) dst +#define INSN2(mnemonic,size_suffix,src,dst)INSNCONC(mnemonic,size_suffix) src,dst +#define INSN2S(mnemonic,size_suffix,src,dst)INSNCONC(mnemonic,size_suffix) src,dst +#define INSN2MOVXL(mnemonic,size_suffix,src,dst)INSNCONC(mnemonic,size_suffix##l) src,dst +#define INSN2MOVXQ(mnemonic,size_suffix,src,dst)INSNCONC(mnemonic,size_suffix##q) src,dst +#define INSN2MOVXLQ(mnemonic,size_suffix,src,dst)INSNCONC(mnemonic,size_suffix##q) src,dst +#endif + +#define _ + +#ifdef _MSC_VER +// MS assembler +#define TEXT() _TEXT SEGMENT +#else +#define TEXT() .text +#endif + +#ifdef _MSC_VER +// MS assembler +// There is no equivalent for "p2align 4,,7". This comes closest: +#define P2ALIGN(log,max) ALIGN 8 +#else +#if defined __sun +// Solaris +#define P2ALIGN(log,max) .align 1< portable-asm-file +# The portable-asm-file has to be +# 1. preprocessed, +# 2. grep -v '^ *#line' | grep -v '^#' +# 3. sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,@ ,@,g' -e 's,//.*$,,' -e 's/##//g' + +# Copyright (C) 1997-2018 Bruno Haible +# +# This program is free software: you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + +tmpscript1=sed$$tmp1 +tmpscript2=sed$$tmp2 +tmpscript3=sed$$tmp3 +tmpscript4=sed$$tmp4 +tmpscript5=sed$$tmp5 +tmpscript6=sed$$tmp6 +tmpscript7=sed$$tmp7 +tmpscript8=sed$$tmp8 +tmpscript9=sed$$tmp9 +tmpremove='rm -f $tmpscript1 $tmpscript2 $tmpscript3 $tmpscript4 $tmpscript5 $tmpscript6 $tmpscript7 $tmpscript8 $tmpscript9' +trap "$tmpremove" 1 2 15 + +cat > $tmpscript1 << \EOF +# ----------- Remove #APP/#NO_APP lines and gcc self-identification +/^#APP$/d +/^#NO_APP$/d +/gcc2_compiled/d +/gnu_compiled_c/d +/\.ident/d +EOF + +cat > $tmpscript2 << \EOF +# ----------- Global symbols depends on ASM_UNDERSCORE +s/^\([A-Za-z0-9_]\+\)/C(\1)/ +s/\.L\([A-Za-z0-9_]\+\)/L(\1)/ +s/\([A-Za-z0-9_]\+\)(%rip)/C(\1)(%rip)/ +# ----------- Massage the beginning of functions +/\.type/{ +s/\.type \([A-Za-z0-9_]*\), *@function/DECLARE_FUNCTION(\1)/ +} +# ----------- Massage the end of functions +s/\.size \([A-Za-z0-9_]*\),\(.*\)/FUNEND(\1,\2)/ +# ----------- Section of frame info for exception handlers +s/\.section \.eh_frame,"a[w]*",@progbits/.section EH_FRAME_SECTION/ +# ----------- Disable the frame info for exception handlers on Solaris +# (as the Solaris linker expects a different format, see +# https://illumos.org/issues/3210) +# Likewise this section does not assemble on Mac OS X 10.5 and on Windows. +/EH_FRAME_SECTION/{ +s/^/#if !(defined __sun || (defined __APPLE__ \&\& defined __MACH__) || (defined _WIN32 || defined __CYGWIN__))\ +/ +} +${ +s/$/\ +#endif/ +} +EOF + +cat > $tmpscript3 << \EOF +# ----------- Introduce macro syntax for operands +s/\([-+0-9A-Z_]\+\)[(]%\(r[abcd]x\|r[sd]i\|r[bs]p\|r[89]\|r1[012345]\)[)]/MEM_DISP(\2,\1)/g +s/\(C[(][A-Za-z0-9_]\+[)]\)[(]%rip[)]/MEM_PCRELATIVE(\1)/g +s/[(]%\(r[abcd]x\|r[sd]i\|r[bs]p\|r[89]\|r1[012345]\)[)]/MEM(\1)/g +s/\([-+0-9A-Z_]\+\)[(],%\(r[abcd]x\|r[sd]i\|r[bs]p\|r[89]\|r1[012345]\),\([0-9]*\)[)]/MEM_DISP_SHINDEX0(\1,\2,\3)/g +s/\([-+0-9A-Z_]\+\)[(]%\(r[abcd]x\|r[sd]i\|r[bs]p\|r[89]\|r1[012345]\),%\(r[abcd]x\|r[sd]i\|r[bs]p\|r[89]\|r1[012345]\),\([0-9]*\)[)]/MEM_DISP_SHINDEX(\2,\1,\3,\4)/g +s/[(]%\(r[abcd]x\|r[sd]i\|r[bs]p\|r[89]\|r1[012345]\),%\(r[abcd]x\|r[sd]i\|r[bs]p\|r[89]\|r1[012345]\),\([0-9]*\)[)]/MEM_SHINDEX(\1,\2,\3)/g +s/[(]%\(r[abcd]x\|r[sd]i\|r[bs]p\|r[89]\|r1[012345]\),%\(r[abcd]x\|r[sd]i\|r[bs]p\|r[89]\|r1[012345]\)[)]/MEM_INDEX(\1,\2)/g +EOF + +cat > $tmpscript4 << \EOF +# ----------- Add size suffix to 'mov' instructions +s/mov\([ ]\+.*, *%\(e[abcd]x\|e[sd]i\|e[bs]p\|r[89]d\|r1[012345]d\)\)$/movl\1/ +# ----------- Introduce macro syntax for instructions +s/\(push\|pop\|mul\|div\|not\|neg\|inc\|dec\)\(.\)\([ ]\+\)\(.*\)$/INSN1(\1,\2 ,\4)/ +s/\(call\|jmp\|jc\|jnc\|je\|jne\|jz\|jnz\|ja\|jae\|jb\|jbe\|jl\|jle\|jg\|jge\|js\|jns\)\([ ]\+\)\(.*\)$/INSN1(\1,_ ,\3)/ +s/\(movs\|movz\)\(.\)l\([ ]\+\)\(.*\)$/INSN2MOVXL(\1,\2,\4)/ +s/\(movs\|movz\)\([bw]\)q\([ ]\+\)\(.*\)$/INSN2MOVXQ(\1,\2,\4)/ +s/\(movs\|movz\)\(l\)q\([ ]\+\)\(.*\)$/INSN2MOVXLQ(\1,\2,\4)/ +s/\(mov\|movlp\|add\|sub\|adc\|sbb\|xor\|xorp\|test\|cmp\|rcl\|rcr\|and\|or\|sar\|sal\|shr\|shl\|lea\)\(.\)\([ ]\+\)\(.*\)$/INSN2(\1,\2 ,\4)/ +s/\(movs\)\([sd]\)\([ ]\+\)\(.*\)$/INSN2S(\1,\2 ,\4)/ +EOF + +cat > $tmpscript5 << \EOF +# ----------- Rewrite lea operand +s/INSN2[(]lea,\([^,]*\), *MEM_PCRELATIVE[(]/INSN2(lea,\1,ADDR_PCRELATIVE(/g +EOF + +cat > $tmpscript6 << \EOF +# ----------- Add size prefixes to memory references +s/\([(][^(,]*,b.*\), *MEM/\1,X1 MEM/g +s/\([(][^(,]*,w.*\), *MEM/\1,X2 MEM/g +s/\([(][^(,]*,[ls].*\), *MEM/\1,X4 MEM/g +s/\([(][^(,]*,[qd].*\), *MEM/\1,X8 MEM/g +EOF + +cat > $tmpscript7 << \EOF +# ----------- Introduce macro syntax for register names +# Cf. https://stackoverflow.com/questions/1753602/ +s/%\([abcd]l\|[sd]il\|[bs]pl\|r[89]b\|r1[012345]b\)/R(\1)/g +s/%\([abcd]x\|[sd]i\|[bs]p\|r[89]w\|r1[012345]w\)/R(\1)/g +s/%\(e[abcd]x\|e[sd]i\|e[bs]p\|r[89]d\|r1[012345]d\)/R(\1)/g +s/%\(r[abcd]x\|r[sd]i\|r[bs]p\|r[89]\|r1[012345]\)/R(\1)/g +s/%\(xmm[0-9]\+\)/R(\1)/g +s/\$\([-0-9]*\)/NUM(\1)/g +EOF + +cat > $tmpscript8 << \EOF +# ----------- Treat indirect calls +s/\(INSN1[(]\(call\|jmp\),_[^,]*,\)\*\(\(R\)[(][^)]*[)]\)[)]$/\1INDIR(\3))/ +s/\(INSN1[(]\(call\|jmp\),_[^,]*,\)\*\(\(MEM\|MEM_DISP\|C\)[(][^)]*[)]\)[)]$/\1INDIR(X8 \3))/ +s/\(INSN1[(]\(call\|jmp\),_[^,]*,\)\*\(MEM_PCRELATIVE[(].*[)]\)[)]$/\1INDIR(X8 \3))/ +EOF + +cat > $tmpscript9 << \EOF +# ----------- Introduce macro syntax for assembler pseudo-ops +/\.file\([ ]\+\)/d +s/\.text/TEXT()/ +s/\.p2align \([^,]*\),,\(.*\)/P2ALIGN(\1,\2)/ +s/\.p2align 3$/P2ALIGN(3,7)/ +s/\.globl\([ ]\+\)\(.*\)$/GLOBL(C(\2))/ +/\.section\([ ]\+\).*GNU-stack/d +# ----------- Declare global symbols as functions (we have no variables) +s/^C(\([A-Za-z0-9_]*\)):/FUNBEGIN(\1)/ +EOF + +sed -f $tmpscript1 | \ +sed -f $tmpscript2 | \ +sed -f $tmpscript3 | \ +sed -f $tmpscript4 | \ +sed -f $tmpscript5 | \ +sed -f $tmpscript6 | \ +sed -f $tmpscript7 | \ +sed -f $tmpscript8 | \ +sed -f $tmpscript9 + +eval "$tmpremove" diff --git a/common/noexecstack-arm.h b/common/noexecstack-arm.h new file mode 100644 index 0000000..29a8aed --- /dev/null +++ b/common/noexecstack-arm.h @@ -0,0 +1,3 @@ +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",%progbits +#endif diff --git a/common/noexecstack.h b/common/noexecstack.h new file mode 100644 index 0000000..e9d1efd --- /dev/null +++ b/common/noexecstack.h @@ -0,0 +1,3 @@ +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/common/structcpy.c b/common/structcpy.c new file mode 100644 index 0000000..a04ce67 --- /dev/null +++ b/common/structcpy.c @@ -0,0 +1,33 @@ +/* copy structs */ + +/* + * Copyright 1995-2005 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +void __structcpy (void* dest, const void* src, unsigned long size, unsigned long alignment) +{ + if (alignment % sizeof(long)) + { char* d = (char*)dest; + const char* s = (const char*)src; + do { *d++ = *s++; } while (--size > 0); + } + else + /* If the alignment is a multiple of sizeof(long), the size is as well. */ + { long* d = (long*)dest; + const long* s = (const long*)src; + do { *d++ = *s++; } while ((size -= sizeof(long)) > 0); + } +} diff --git a/common/uniq-u.c b/common/uniq-u.c new file mode 100644 index 0000000..1c9ac0a --- /dev/null +++ b/common/uniq-u.c @@ -0,0 +1,277 @@ +/* uniq -- remove duplicate lines from a sorted file + Copyright (C) 1986-2016 Free Software Foundation, Inc. + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . */ + +/* Written by Richard Stallman and David MacKenzie. */ +/* 2000-03-22 Trimmed down to the case of "uniq -u" by Bruno Haible. */ + +#include +#include +#include +#include + +/* The name this program was run with. */ +static char *program_name; + +static void +xalloc_fail (void) +{ + fprintf (stderr, "%s: virtual memory exhausted\n", program_name); + exit (1); +} + +/* Allocate N bytes of memory dynamically, with error checking. */ + +void * +xmalloc (size_t n) +{ + void *p; + + p = malloc (n); + if (p == 0) + xalloc_fail (); + return p; +} + +/* Change the size of an allocated block of memory P to N bytes, + with error checking. + If P is NULL, run xmalloc. */ + +void * +xrealloc (void *p, size_t n) +{ + p = realloc (p, n); + if (p == 0) + xalloc_fail (); + return p; +} + +/* A ‘struct linebuffer’ holds a line of text. */ + +struct linebuffer +{ + size_t size; /* Allocated. */ + size_t length; /* Used. */ + char *buffer; +}; + +/* Initialize linebuffer LINEBUFFER for use. */ + +static void +initbuffer (struct linebuffer *linebuffer) +{ + linebuffer->length = 0; + linebuffer->size = 200; + linebuffer->buffer = (char *) xmalloc (linebuffer->size); +} + +/* Read an arbitrarily long line of text from STREAM into LINEBUFFER. + Keep the newline; append a newline if it's the last line of a file + that ends in a non-newline character. Do not null terminate. + Return LINEBUFFER, except at end of file return 0. */ + +static struct linebuffer * +readline (struct linebuffer *linebuffer, FILE *stream) +{ + int c; + char *buffer = linebuffer->buffer; + char *p = linebuffer->buffer; + char *end = buffer + linebuffer->size - 1; /* Sentinel. */ + + if (feof (stream) || ferror (stream)) + return 0; + + do + { + c = getc (stream); + if (c == EOF) + { + if (p == buffer) + return 0; + if (p[-1] == '\n') + break; + c = '\n'; + } + if (p == end) + { + linebuffer->size *= 2; + buffer = (char *) xrealloc (buffer, linebuffer->size); + p = p - linebuffer->buffer + buffer; + linebuffer->buffer = buffer; + end = buffer + linebuffer->size - 1; + } + *p++ = c; + } + while (c != '\n'); + + linebuffer->length = p - buffer; + return linebuffer; +} + +/* Free linebuffer LINEBUFFER's data. */ + +static void +freebuffer (struct linebuffer *linebuffer) +{ + free (linebuffer->buffer); +} + +/* Undefine, to avoid warning about redefinition on some systems. */ +#undef min +#define min(x, y) ((x) < (y) ? (x) : (y)) + +/* Return zero if two strings OLD and NEW match, nonzero if not. + OLD and NEW point not to the beginnings of the lines + but rather to the beginnings of the fields to compare. + OLDLEN and NEWLEN are their lengths. */ + +static int +different (const char *old, const char *new, size_t oldlen, size_t newlen) +{ + int order; + + order = memcmp (old, new, min (oldlen, newlen)); + + if (order == 0) + return oldlen - newlen; + return order; +} + +/* Output the line in linebuffer LINE to stream STREAM + provided that the switches say it should be output. + If requested, print the number of times it occurred, as well; + LINECOUNT + 1 is the number of times that the line occurred. */ + +static void +writeline (const struct linebuffer *line, FILE *stream, int linecount) +{ + if (linecount == 0) + fwrite (line->buffer, 1, line->length, stream); +} + +/* Process input file INFILE with output to OUTFILE. + If either is "-", use the standard I/O stream for it instead. */ + +static void +check_file (const char *infile, const char *outfile) +{ + FILE *istream; + FILE *ostream; + struct linebuffer lb1, lb2; + struct linebuffer *thisline, *prevline, *exch; + char *prevfield, *thisfield; + size_t prevlen, thislen; + int match_count = 0; + + if (!strcmp (infile, "-")) + istream = stdin; + else + istream = fopen (infile, "r"); + if (istream == NULL) + { + fprintf (stderr, "%s: error opening %s\n", program_name, infile); + exit (1); + } + + if (!strcmp (outfile, "-")) + ostream = stdout; + else + ostream = fopen (outfile, "w"); + if (ostream == NULL) + { + fprintf (stderr, "%s: error opening %s\n", program_name, outfile); + exit (1); + } + + thisline = &lb1; + prevline = &lb2; + + initbuffer (thisline); + initbuffer (prevline); + + if (readline (prevline, istream) == 0) + goto closefiles; + prevfield = prevline->buffer; + prevlen = prevline->length; + + while (!feof (istream)) + { + int match; + if (readline (thisline, istream) == 0) + break; + thisfield = thisline->buffer; + thislen = thisline->length; + match = !different (thisfield, prevfield, thislen, prevlen); + + if (match) + ++match_count; + + if (!match) + { + writeline (prevline, ostream, match_count); + exch = prevline; + prevline = thisline; + thisline = exch; + prevfield = thisfield; + prevlen = thislen; + if (!match) + match_count = 0; + } + } + + writeline (prevline, ostream, match_count); + + closefiles: + if (ferror (istream) || fclose (istream) == EOF) + { + fprintf (stderr, "%s: error reading %s\n", program_name, infile); + exit (1); + } + + if (ferror (ostream) || fclose (ostream) == EOF) + { + fprintf (stderr, "%s: error writing %s\n", program_name, outfile); + exit (1); + } + + freebuffer (&lb1); + freebuffer (&lb2); +} + +int +main (int argc, char **argv) +{ + const char *infile = "-"; + const char *outfile = "-"; + int optind = 1; + + program_name = argv[0]; + + if (optind < argc) + infile = argv[optind++]; + + if (optind < argc) + outfile = argv[optind++]; + + if (optind < argc) + { + fprintf (stderr, "%s: too many arguments\n", program_name); + exit (1); + } + + check_file (infile, outfile); + + exit (0); +} diff --git a/config.h.in b/config.h.in new file mode 100644 index 0000000..81bd760 --- /dev/null +++ b/config.h.in @@ -0,0 +1,542 @@ +/* config.h.in. Generated from configure.ac by autoheader. */ + +/* CPU and C ABI indicator */ +#ifndef __i386__ +#undef __i386__ +#endif +#ifndef __x86_64_x32__ +#undef __x86_64_x32__ +#endif +#ifndef __x86_64__ +#undef __x86_64__ +#endif +#ifndef __alpha__ +#undef __alpha__ +#endif +#ifndef __arm__ +#undef __arm__ +#endif +#ifndef __armhf__ +#undef __armhf__ +#endif +#ifndef __arm64_ilp32__ +#undef __arm64_ilp32__ +#endif +#ifndef __arm64__ +#undef __arm64__ +#endif +#ifndef __hppa__ +#undef __hppa__ +#endif +#ifndef __hppa64__ +#undef __hppa64__ +#endif +#ifndef __ia64_ilp32__ +#undef __ia64_ilp32__ +#endif +#ifndef __ia64__ +#undef __ia64__ +#endif +#ifndef __m68k__ +#undef __m68k__ +#endif +#ifndef __mips__ +#undef __mips__ +#endif +#ifndef __mipsn32__ +#undef __mipsn32__ +#endif +#ifndef __mips64__ +#undef __mips64__ +#endif +#ifndef __powerpc__ +#undef __powerpc__ +#endif +#ifndef __powerpc64__ +#undef __powerpc64__ +#endif +#ifndef __powerpc64_elfv2__ +#undef __powerpc64_elfv2__ +#endif +#ifndef __riscv32__ +#undef __riscv32__ +#endif +#ifndef __riscv64__ +#undef __riscv64__ +#endif +#ifndef __riscv32_ilp32__ +#undef __riscv32_ilp32__ +#endif +#ifndef __riscv32_ilp32f__ +#undef __riscv32_ilp32f__ +#endif +#ifndef __riscv32_ilp32d__ +#undef __riscv32_ilp32d__ +#endif +#ifndef __riscv64_ilp32__ +#undef __riscv64_ilp32__ +#endif +#ifndef __riscv64_ilp32f__ +#undef __riscv64_ilp32f__ +#endif +#ifndef __riscv64_ilp32d__ +#undef __riscv64_ilp32d__ +#endif +#ifndef __riscv64_lp64__ +#undef __riscv64_lp64__ +#endif +#ifndef __riscv64_lp64f__ +#undef __riscv64_lp64f__ +#endif +#ifndef __riscv64_lp64d__ +#undef __riscv64_lp64d__ +#endif +#ifndef __s390__ +#undef __s390__ +#endif +#ifndef __s390x__ +#undef __s390x__ +#endif +#ifndef __sh__ +#undef __sh__ +#endif +#ifndef __sparc__ +#undef __sparc__ +#endif +#ifndef __sparc64__ +#undef __sparc64__ +#endif + + +/* Define to the number of bits in type 'ptrdiff_t'. */ +#undef BITSIZEOF_PTRDIFF_T + +/* Define to the number of bits in type 'sig_atomic_t'. */ +#undef BITSIZEOF_SIG_ATOMIC_T + +/* Define to the number of bits in type 'size_t'. */ +#undef BITSIZEOF_SIZE_T + +/* Define to the number of bits in type 'wchar_t'. */ +#undef BITSIZEOF_WCHAR_T + +/* Define to the number of bits in type 'wint_t'. */ +#undef BITSIZEOF_WINT_T + +/* whether code in malloc()ed memory is executable */ +#undef CODE_EXECUTABLE + +/* Define to a C preprocessor expression that evaluates to 1 or 0, depending + whether the gnulib module lock shall be considered present. */ +#undef GNULIB_LOCK + +/* Define to 1 if you have the header file. */ +#undef HAVE_DLFCN_H + +/* have getpagesize() */ +#undef HAVE_GETPAGESIZE + +/* Define to 1 if you have the header file. */ +#undef HAVE_INTTYPES_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_LIMITS_H + +/* Define to 1 if the system has the type 'long long int'. */ +#undef HAVE_LONG_LONG_INT + +/* have vm_allocate() and task_self() functions */ +#undef HAVE_MACH_VM + +/* Define to 1 if you have the header file. */ +#undef HAVE_MEMORY_H + +/* have and the mmap() function */ +#undef HAVE_MMAP + +/* defines MAP_ANON and mmaping with MAP_ANON works */ +#undef HAVE_MMAP_ANON + +/* defines MAP_ANONYMOUS and mmaping with MAP_ANONYMOUS works */ +#undef HAVE_MMAP_ANONYMOUS + +/* mmaping of the special device /dev/zero works */ +#undef HAVE_MMAP_DEVZERO + +/* have an mmap() function that, with MAP_SHARED, can make memory pages + executable */ +#undef HAVE_MMAP_SHARED_CAN_EXEC + +/* Define to 1 if you have the `mprotect' function. */ +#undef HAVE_MPROTECT + +/* have an mprotect() function that can make malloc()ed memory pages + executable */ +#undef HAVE_MPROTECT_AFTER_MALLOC_CAN_EXEC + +/* have an mprotect() function that can make mmap()ed memory pages executable + */ +#undef HAVE_MPROTECT_AFTER_MMAP_CAN_EXEC + +/* Define if the defines PTHREAD_MUTEX_RECURSIVE. */ +#undef HAVE_PTHREAD_MUTEX_RECURSIVE + +/* Define if the POSIX multithreading library has read/write locks. */ +#undef HAVE_PTHREAD_RWLOCK + +/* Define if the 'pthread_rwlock_rdlock' function prefers a writer to a + reader. */ +#undef HAVE_PTHREAD_RWLOCK_RDLOCK_PREFER_WRITER + +/* have and and shared memory works */ +#undef HAVE_SHM + +/* Define to 1 if 'sig_atomic_t' is a signed integer type. */ +#undef HAVE_SIGNED_SIG_ATOMIC_T + +/* Define to 1 if 'wchar_t' is a signed integer type. */ +#undef HAVE_SIGNED_WCHAR_T + +/* Define to 1 if 'wint_t' is a signed integer type. */ +#undef HAVE_SIGNED_WINT_T + +/* Define to 1 if you have the header file. */ +#undef HAVE_STDINT_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_STDLIB_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_STRINGS_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_STRING_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_SYS_BITYPES_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_SYS_CACHECTL_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_SYS_INTTYPES_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_SYS_IPC_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_SYS_PARAM_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_SYS_SHM_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_SYS_STAT_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_SYS_SYSMACROS_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_SYS_TYPES_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_THREADS_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_UNISTD_H + +/* Define to 1 if the system has the type 'unsigned long long int'. */ +#undef HAVE_UNSIGNED_LONG_LONG_INT + +/* Define to 1 if you have the header file. */ +#undef HAVE_WCHAR_H + +/* Define if you have the 'wint_t' type. */ +#undef HAVE_WINT_T + +/* have a working mprotect() function */ +#undef HAVE_WORKING_MPROTECT + +/* Version number: (major<<8) + minor */ +#undef LIBFFCALL_VERSION + +/* Define to the sub-directory where libtool stores uninstalled libraries. */ +#undef LT_OBJDIR + +/* Name of package */ +#undef PACKAGE + +/* Define to the address where bug reports for this package should be sent. */ +#undef PACKAGE_BUGREPORT + +/* Define to the full name of this package. */ +#undef PACKAGE_NAME + +/* Define to the full name and version of this package. */ +#undef PACKAGE_STRING + +/* Define to the one symbol short name of this package. */ +#undef PACKAGE_TARNAME + +/* Define to the home page for this package. */ +#undef PACKAGE_URL + +/* Define to the version of this package. */ +#undef PACKAGE_VERSION + +/* Define if the pthread_in_use() detection is hard. */ +#undef PTHREAD_IN_USE_DETECTION_HARD + +/* Define to l, ll, u, ul, ull, etc., as suitable for constants of type + 'ptrdiff_t'. */ +#undef PTRDIFF_T_SUFFIX + +/* return type of getpagesize() */ +#undef RETGETPAGESIZETYPE + +/* Define to l, ll, u, ul, ull, etc., as suitable for constants of type + 'sig_atomic_t'. */ +#undef SIG_ATOMIC_T_SUFFIX + +/* Define to l, ll, u, ul, ull, etc., as suitable for constants of type + 'size_t'. */ +#undef SIZE_T_SUFFIX + +/* Define to 1 if you have the ANSI C header files. */ +#undef STDC_HEADERS + +/* Define to the prefix of C symbols at the assembler and linker level, either + an underscore or empty. */ +#undef USER_LABEL_PREFIX + +/* Define if the POSIX multithreading library can be used. */ +#undef USE_POSIX_THREADS + +/* Define if references to the POSIX multithreading library should be made + weak. */ +#undef USE_POSIX_THREADS_WEAK + +/* Enable extensions on AIX 3, Interix. */ +#ifndef _ALL_SOURCE +# undef _ALL_SOURCE +#endif +/* Enable general extensions on macOS. */ +#ifndef _DARWIN_C_SOURCE +# undef _DARWIN_C_SOURCE +#endif +/* Enable GNU extensions on systems that have them. */ +#ifndef _GNU_SOURCE +# undef _GNU_SOURCE +#endif +/* Enable NetBSD extensions on NetBSD. */ +#ifndef _NETBSD_SOURCE +# undef _NETBSD_SOURCE +#endif +/* Enable OpenBSD extensions on NetBSD. */ +#ifndef _OPENBSD_SOURCE +# undef _OPENBSD_SOURCE +#endif +/* Enable threading extensions on Solaris. */ +#ifndef _POSIX_PTHREAD_SEMANTICS +# undef _POSIX_PTHREAD_SEMANTICS +#endif +/* Enable extensions specified by ISO/IEC TS 18661-5:2014. */ +#ifndef __STDC_WANT_IEC_60559_ATTRIBS_EXT__ +# undef __STDC_WANT_IEC_60559_ATTRIBS_EXT__ +#endif +/* Enable extensions specified by ISO/IEC TS 18661-1:2014. */ +#ifndef __STDC_WANT_IEC_60559_BFP_EXT__ +# undef __STDC_WANT_IEC_60559_BFP_EXT__ +#endif +/* Enable extensions specified by ISO/IEC TS 18661-2:2015. */ +#ifndef __STDC_WANT_IEC_60559_DFP_EXT__ +# undef __STDC_WANT_IEC_60559_DFP_EXT__ +#endif +/* Enable extensions specified by ISO/IEC TS 18661-4:2015. */ +#ifndef __STDC_WANT_IEC_60559_FUNCS_EXT__ +# undef __STDC_WANT_IEC_60559_FUNCS_EXT__ +#endif +/* Enable extensions specified by ISO/IEC TS 18661-3:2015. */ +#ifndef __STDC_WANT_IEC_60559_TYPES_EXT__ +# undef __STDC_WANT_IEC_60559_TYPES_EXT__ +#endif +/* Enable extensions specified by ISO/IEC TR 24731-2:2010. */ +#ifndef __STDC_WANT_LIB_EXT2__ +# undef __STDC_WANT_LIB_EXT2__ +#endif +/* Enable extensions specified by ISO/IEC 24747:2009. */ +#ifndef __STDC_WANT_MATH_SPEC_FUNCS__ +# undef __STDC_WANT_MATH_SPEC_FUNCS__ +#endif +/* Enable extensions on HP NonStop. */ +#ifndef _TANDEM_SOURCE +# undef _TANDEM_SOURCE +#endif +/* Enable X/Open extensions if necessary. HP-UX 11.11 defines + mbstate_t only if _XOPEN_SOURCE is defined to 500, regardless of + whether compiling with -Ae or -D_HPUX_SOURCE=1. */ +#ifndef _XOPEN_SOURCE +# undef _XOPEN_SOURCE +#endif +/* Enable X/Open compliant socket functions that do not require linking + with -lxnet on HP-UX 11.11. */ +#ifndef _HPUX_ALT_XOPEN_SOCKET_API +# undef _HPUX_ALT_XOPEN_SOCKET_API +#endif +/* Enable general extensions on Solaris. */ +#ifndef __EXTENSIONS__ +# undef __EXTENSIONS__ +#endif + + +/* Define if the native Windows multithreading API can be used. */ +#undef USE_WINDOWS_THREADS + +/* Version number of package */ +#undef VERSION + +/* Define to l, ll, u, ul, ull, etc., as suitable for constants of type + 'wchar_t'. */ +#undef WCHAR_T_SUFFIX + +/* Define to l, ll, u, ul, ull, etc., as suitable for constants of type + 'wint_t'. */ +#undef WINT_T_SUFFIX + +/* Define to 1 if on MINIX. */ +#undef _MINIX + +/* Define to 1 to make NetBSD features available. MINIX 3 needs this. */ +#undef _NETBSD_SOURCE + +/* The _Noreturn keyword of C11. */ +#ifndef _Noreturn +# if (defined __cplusplus \ + && ((201103 <= __cplusplus && !(__GNUC__ == 4 && __GNUC_MINOR__ == 7)) \ + || (defined _MSC_VER && 1900 <= _MSC_VER))) +# define _Noreturn [[noreturn]] +# elif ((!defined __cplusplus || defined __clang__) \ + && (201112 <= (defined __STDC_VERSION__ ? __STDC_VERSION__ : 0) \ + || 4 < __GNUC__ + (7 <= __GNUC_MINOR__))) + /* _Noreturn works as-is. */ +# elif 2 < __GNUC__ + (8 <= __GNUC_MINOR__) || 0x5110 <= __SUNPRO_C +# define _Noreturn __attribute__ ((__noreturn__)) +# elif 1200 <= (defined _MSC_VER ? _MSC_VER : 0) +# define _Noreturn __declspec (noreturn) +# else +# define _Noreturn +# endif +#endif + + +/* Define to 2 if the system does not provide POSIX.1 features except with + this defined. */ +#undef _POSIX_1_SOURCE + +/* Define to 1 if you need to in order for 'stat' and other things to work. */ +#undef _POSIX_SOURCE + +/* For standard stat data types on VMS. */ +#undef _USE_STD_STAT + +/* whether floats are returned in integer registers */ +#undef __IREG_FLOAT_RETURN__ + +/* whether small structs are returned in registers */ +#undef __SMALL_STRUCT_RETURN__ + +/* Define to 1 if the system predates C++11. */ +#undef __STDC_CONSTANT_MACROS + +/* Define to 1 if the system predates C++11. */ +#undef __STDC_LIMIT_MACROS + +/* The _GL_ASYNC_SAFE marker should be attached to functions that are + signal handlers (for signals other than SIGABRT, SIGPIPE) or can be + invoked from such signal handlers. Such functions have some restrictions: + * All functions that it calls should be marked _GL_ASYNC_SAFE as well, + or should be listed as async-signal-safe in POSIX + + section 2.4.3. Note that malloc(), sprintf(), and fwrite(), in + particular, are NOT async-signal-safe. + * All memory locations (variables and struct fields) that these functions + access must be marked 'volatile'. This holds for both read and write + accesses. Otherwise the compiler might optimize away stores to and + reads from such locations that occur in the program, depending on its + data flow analysis. For example, when the program contains a loop + that is intended to inspect a variable set from within a signal handler + while (!signal_occurred) + ; + the compiler is allowed to transform this into an endless loop if the + variable 'signal_occurred' is not declared 'volatile'. + Additionally, recall that: + * A signal handler should not modify errno (except if it is a handler + for a fatal signal and ends by raising the same signal again, thus + provoking the termination of the process). If it invokes a function + that may clobber errno, it needs to save and restore the value of + errno. */ +#define _GL_ASYNC_SAFE + + +/* Work around a bug in Apple GCC 4.0.1 build 5465: In C99 mode, it supports + the ISO C 99 semantics of 'extern inline' (unlike the GNU C semantics of + earlier versions), but does not display it by setting __GNUC_STDC_INLINE__. + __APPLE__ && __MACH__ test for Mac OS X. + __APPLE_CC__ tests for the Apple compiler and its version. + __STDC_VERSION__ tests for the C99 mode. */ +#if defined __APPLE__ && defined __MACH__ && __APPLE_CC__ >= 5465 && !defined __cplusplus && __STDC_VERSION__ >= 199901L && !defined __GNUC_STDC_INLINE__ +# define __GNUC_STDC_INLINE__ 1 +#endif + +/* Define to `int' if does not define. */ +#undef mode_t + +/* Define to `int' if does not define. */ +#undef pid_t + +/* Define as a signed type of the same size as size_t. */ +#undef ssize_t + +/* Define as a marker that can be attached to declarations that might not + be used. This helps to reduce warnings, such as from + GCC -Wunused-parameter. */ +#if __GNUC__ >= 3 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 7) +# define _GL_UNUSED __attribute__ ((__unused__)) +#else +# define _GL_UNUSED +#endif +/* The name _UNUSED_PARAMETER_ is an earlier spelling, although the name + is a misnomer outside of parameter lists. */ +#define _UNUSED_PARAMETER_ _GL_UNUSED + +/* gcc supports the "unused" attribute on possibly unused labels, and + g++ has since version 4.5. Note to support C++ as well as C, + _GL_UNUSED_LABEL should be used with a trailing ; */ +#if !defined __cplusplus || __GNUC__ > 4 \ + || (__GNUC__ == 4 && __GNUC_MINOR__ >= 5) +# define _GL_UNUSED_LABEL _GL_UNUSED +#else +# define _GL_UNUSED_LABEL +#endif + +/* The __pure__ attribute was added in gcc 2.96. */ +#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 96) +# define _GL_ATTRIBUTE_PURE __attribute__ ((__pure__)) +#else +# define _GL_ATTRIBUTE_PURE /* empty */ +#endif + +/* The __const__ attribute was added in gcc 2.95. */ +#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 95) +# define _GL_ATTRIBUTE_CONST __attribute__ ((__const__)) +#else +# define _GL_ATTRIBUTE_CONST /* empty */ +#endif + +/* The __malloc__ attribute was added in gcc 3. */ +#if 3 <= __GNUC__ +# define _GL_ATTRIBUTE_MALLOC __attribute__ ((__malloc__)) +#else +# define _GL_ATTRIBUTE_MALLOC /* empty */ +#endif + diff --git a/configure b/configure new file mode 100755 index 0000000..542e9ff --- /dev/null +++ b/configure @@ -0,0 +1,21711 @@ +#! /bin/sh +# Guess values for system-dependent variables and create Makefiles. +# Generated by GNU Autoconf 2.69 for GNU libffcall 2.2. +# +# Report bugs to . +# +# +# Copyright (C) 1992-1996, 1998-2012 Free Software Foundation, Inc. +# +# +# This configure script is free software; the Free Software Foundation +# gives unlimited permission to copy, distribute and modify it. +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +# Use a proper internal environment variable to ensure we don't fall + # into an infinite loop, continuously re-executing ourselves. + if test x"${_as_can_reexec}" != xno && test "x$CONFIG_SHELL" != x; then + _as_can_reexec=no; export _as_can_reexec; + # We cannot yet assume a decent shell, so we have to provide a +# neutralization value for shells without unset; and this also +# works around shells that cannot unset nonexistent variables. +# Preserve -v and -x to the replacement shell. +BASH_ENV=/dev/null +ENV=/dev/null +(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV +case $- in # (((( + *v*x* | *x*v* ) as_opts=-vx ;; + *v* ) as_opts=-v ;; + *x* ) as_opts=-x ;; + * ) as_opts= ;; +esac +exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"} +# Admittedly, this is quite paranoid, since all the known shells bail +# out after a failed `exec'. +$as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2 +as_fn_exit 255 + fi + # We don't want this to propagate to other subprocesses. + { _as_can_reexec=; unset _as_can_reexec;} +if test "x$CONFIG_SHELL" = x; then + as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which + # is contrary to our usage. Disable this feature. + alias -g '\${1+\"\$@\"}'='\"\$@\"' + setopt NO_GLOB_SUBST +else + case \`(set -o) 2>/dev/null\` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi +" + as_required="as_fn_return () { (exit \$1); } +as_fn_success () { as_fn_return 0; } +as_fn_failure () { as_fn_return 1; } +as_fn_ret_success () { return 0; } +as_fn_ret_failure () { return 1; } + +exitcode=0 +as_fn_success || { exitcode=1; echo as_fn_success failed.; } +as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; } +as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; } +as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; } +if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then : + +else + exitcode=1; echo positional parameters were not saved. +fi +test x\$exitcode = x0 || exit 1 +test -x / || exit 1" + as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO + as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO + eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" && + test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1 +test \$(( 1 + 1 )) = 2 || exit 1 + + test -n \"\${ZSH_VERSION+set}\${BASH_VERSION+set}\" || ( + ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' + ECHO=\$ECHO\$ECHO\$ECHO\$ECHO\$ECHO + ECHO=\$ECHO\$ECHO\$ECHO\$ECHO\$ECHO\$ECHO + PATH=/empty FPATH=/empty; export PATH FPATH + test \"X\`printf %s \$ECHO\`\" = \"X\$ECHO\" \\ + || test \"X\`print -r -- \$ECHO\`\" = \"X\$ECHO\" ) || exit 1" + if (eval "$as_required") 2>/dev/null; then : + as_have_required=yes +else + as_have_required=no +fi + if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then : + +else + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +as_found=false +for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + as_found=: + case $as_dir in #( + /*) + for as_base in sh bash ksh sh5; do + # Try only shells that exist, to save several forks. + as_shell=$as_dir/$as_base + if { test -f "$as_shell" || test -f "$as_shell.exe"; } && + { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then : + CONFIG_SHELL=$as_shell as_have_required=yes + if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then : + break 2 +fi +fi + done;; + esac + as_found=false +done +$as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } && + { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then : + CONFIG_SHELL=$SHELL as_have_required=yes +fi; } +IFS=$as_save_IFS + + + if test "x$CONFIG_SHELL" != x; then : + export CONFIG_SHELL + # We cannot yet assume a decent shell, so we have to provide a +# neutralization value for shells without unset; and this also +# works around shells that cannot unset nonexistent variables. +# Preserve -v and -x to the replacement shell. +BASH_ENV=/dev/null +ENV=/dev/null +(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV +case $- in # (((( + *v*x* | *x*v* ) as_opts=-vx ;; + *v* ) as_opts=-v ;; + *x* ) as_opts=-x ;; + * ) as_opts= ;; +esac +exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"} +# Admittedly, this is quite paranoid, since all the known shells bail +# out after a failed `exec'. +$as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2 +exit 255 +fi + + if test x$as_have_required = xno; then : + $as_echo "$0: This script requires a shell more modern than all" + $as_echo "$0: the shells that I found on your system." + if test x${ZSH_VERSION+set} = xset ; then + $as_echo "$0: In particular, zsh $ZSH_VERSION has bugs and should" + $as_echo "$0: be upgraded to zsh 4.3.4 or later." + else + $as_echo "$0: Please tell bug-autoconf@gnu.org and +$0: https://savannah.gnu.org/projects/libffcall about your +$0: system, including any error possibly output before this +$0: message. Then install a modern shell, or manually run +$0: the script under such a shell if you do have one." + fi + exit 1 +fi +fi +fi +SHELL=${CONFIG_SHELL-/bin/sh} +export SHELL +# Unset more variables known to interfere with behavior of common tools. +CLICOLOR_FORCE= GREP_OPTIONS= +unset CLICOLOR_FORCE GREP_OPTIONS + +## --------------------- ## +## M4sh Shell Functions. ## +## --------------------- ## +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + + + as_lineno_1=$LINENO as_lineno_1a=$LINENO + as_lineno_2=$LINENO as_lineno_2a=$LINENO + eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" && + test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || { + # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-) + sed -n ' + p + /[$]LINENO/= + ' <$as_myself | + sed ' + s/[$]LINENO.*/&-/ + t lineno + b + :lineno + N + :loop + s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ + t loop + s/-\n.*// + ' >$as_me.lineno && + chmod +x "$as_me.lineno" || + { $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; } + + # If we had to re-execute with $CONFIG_SHELL, we're ensured to have + # already done that, so ensure we don't try to do so again and fall + # in an infinite loop. This has already happened in practice. + _as_can_reexec=no; export _as_can_reexec + # Don't try to exec as it changes $[0], causing all sort of problems + # (the dirname of $[0] is not the place where we might find the + # original and so on. Autoconf is especially sensitive to this). + . "./$as_me.lineno" + # Exit status is that of the last command. + exit +} + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + +SHELL=${CONFIG_SHELL-/bin/sh} + + +test -n "$DJDIR" || exec 7<&0 &1 + +# Name of the host. +# hostname on some systems (SVR3.2, old GNU/Linux) returns a bogus exit status, +# so uname gets run too. +ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q` + +# +# Initializations. +# +ac_default_prefix=/usr/local +ac_clean_files= +ac_config_libobj_dir=. +LIBOBJS= +cross_compiling=no +subdirs= +MFLAGS= +MAKEFLAGS= + +# Identity of this package. +PACKAGE_NAME='GNU libffcall' +PACKAGE_TARNAME='libffcall' +PACKAGE_VERSION='2.2' +PACKAGE_STRING='GNU libffcall 2.2' +PACKAGE_BUGREPORT='https://savannah.gnu.org/projects/libffcall' +PACKAGE_URL='http://www.gnu.org/software/libffcall/' + +ac_unique_file="trampoline/trampoline.h" +# Factoring default headers for most tests. +ac_includes_default="\ +#include +#ifdef HAVE_SYS_TYPES_H +# include +#endif +#ifdef HAVE_SYS_STAT_H +# include +#endif +#ifdef STDC_HEADERS +# include +# include +#else +# ifdef HAVE_STDLIB_H +# include +# endif +#endif +#ifdef HAVE_STRING_H +# if !defined STDC_HEADERS && defined HAVE_MEMORY_H +# include +# endif +# include +#endif +#ifdef HAVE_STRINGS_H +# include +#endif +#ifdef HAVE_INTTYPES_H +# include +#endif +#ifdef HAVE_STDINT_H +# include +#endif +#ifdef HAVE_UNISTD_H +# include +#endif" + +gl_use_threads_default= +gl_use_winpthreads_default= +gl_header_list= +ac_subst_vars='gltests_LTLIBOBJS +gltests_LIBOBJS +gl_LTLIBOBJS +gl_LIBOBJS +am__EXEEXT_FALSE +am__EXEEXT_TRUE +LTLIBOBJS +LIBOBJS +gltests_WITNESS +WINDOWS_STAT_INODES +WINDOWS_64_BIT_OFF_T +NEXT_AS_FIRST_DIRECTIVE_SYS_TYPES_H +NEXT_SYS_TYPES_H +GL_GENERATE_STDNORETURN_H_FALSE +GL_GENERATE_STDNORETURN_H_TRUE +STDNORETURN_H +GL_GENERATE_STDINT_H_FALSE +GL_GENERATE_STDINT_H_TRUE +STDINT_H +HAVE_SYS_INTTYPES_H +HAVE_SYS_BITYPES_H +HAVE_C99_STDINT_H +WINT_T_SUFFIX +WCHAR_T_SUFFIX +SIG_ATOMIC_T_SUFFIX +SIZE_T_SUFFIX +PTRDIFF_T_SUFFIX +HAVE_SIGNED_WINT_T +HAVE_SIGNED_WCHAR_T +HAVE_SIGNED_SIG_ATOMIC_T +BITSIZEOF_WINT_T +BITSIZEOF_WCHAR_T +BITSIZEOF_SIG_ATOMIC_T +BITSIZEOF_SIZE_T +BITSIZEOF_PTRDIFF_T +HAVE_STDINT_H +NEXT_AS_FIRST_DIRECTIVE_STDINT_H +NEXT_STDINT_H +HAVE_SYS_TYPES_H +HAVE_INTTYPES_H +HAVE_WCHAR_H +HAVE_UNSIGNED_LONG_LONG_INT +HAVE_LONG_LONG_INT +GNULIB_OVERRIDES_WINT_T +APPLE_UNIVERSAL_BUILD +LTLIBMULTITHREAD +LIBMULTITHREAD +LTLIBTHREAD +LIBTHREAD +GL_GENERATE_LIMITS_H_FALSE +GL_GENERATE_LIMITS_H_TRUE +LIMITS_H +NEXT_AS_FIRST_DIRECTIVE_LIMITS_H +NEXT_LIMITS_H +PRAGMA_COLUMNS +PRAGMA_SYSTEM_HEADER +INCLUDE_NEXT_AS_FIRST_DIRECTIVE +INCLUDE_NEXT +GL_COND_LIBTOOL_FALSE +GL_COND_LIBTOOL_TRUE +DISABLE_TYPE_BASED_ALIASING +WORKAROUND_BUG_81653 +CPU_OBJECTS +LT_SYS_LIBRARY_PATH +OTOOL64 +OTOOL +LIPO +NMEDIT +DSYMUTIL +MANIFEST_TOOL +ac_ct_AR +LN_S +NM +ac_ct_DUMPBIN +DUMPBIN +LD +FGREP +SED +LIBTOOL +OBJDUMP +DLLTOOL +AS +ENDIANNESS +HOST_CPU_C_ABI +HOST_CPU +host_os +host_vendor +host_cpu +host +build_os +build_vendor +build_cpu +build +LN +IFNOT_MSVC +IF_MSVC +RANLIB +ARFLAGS +AR +IF_CXX +am__fastdepCXX_FALSE +am__fastdepCXX_TRUE +CXXDEPMODE +ANSICXX_FALSE +ANSICXX_TRUE +CXXFLAGS +ac_ct_CXX +CXX +CXX_CHOICE +AS_UNDERSCORE +ASM_SYMBOL_PREFIX +GCC_X_NONE +CC_GCC +EGREP +GREP +CPP +am__fastdepCC_FALSE +am__fastdepCC_TRUE +CCDEPMODE +am__nodep +AMDEPBACKSLASH +AMDEP_FALSE +AMDEP_TRUE +am__quote +am__include +DEPDIR +OBJEXT +EXEEXT +ac_ct_CC +CPPFLAGS +LDFLAGS +CFLAGS +CC +AM_BACKSLASH +AM_DEFAULT_VERBOSITY +AM_DEFAULT_V +AM_V +am__untar +am__tar +AMTAR +am__leading_dot +SET_MAKE +AWK +mkdir_p +MKDIR_P +INSTALL_STRIP_PROGRAM +STRIP +install_sh +MAKEINFO +AUTOHEADER +AUTOMAKE +AUTOCONF +ACLOCAL +VERSION +PACKAGE +CYGPATH_W +am__isrc +INSTALL_DATA +INSTALL_SCRIPT +INSTALL_PROGRAM +target_alias +host_alias +build_alias +LIBS +ECHO_T +ECHO_N +ECHO_C +DEFS +mandir +localedir +libdir +psdir +pdfdir +dvidir +htmldir +infodir +docdir +oldincludedir +includedir +localstatedir +sharedstatedir +sysconfdir +datadir +datarootdir +libexecdir +sbindir +bindir +program_transform_name +prefix +exec_prefix +PACKAGE_URL +PACKAGE_BUGREPORT +PACKAGE_STRING +PACKAGE_VERSION +PACKAGE_TARNAME +PACKAGE_NAME +PATH_SEPARATOR +SHELL' +ac_subst_files='' +ac_user_opts=' +enable_option_checking +enable_silent_rules +enable_dependency_tracking +enable_c__ +enable_threads +enable_shared +enable_static +with_pic +enable_fast_install +with_aix_soname +with_gnu_ld +with_sysroot +enable_libtool_lock +' + ac_precious_vars='build_alias +host_alias +target_alias +CC +CFLAGS +LDFLAGS +LIBS +CPPFLAGS +CPP +CXX +CXXFLAGS +LT_SYS_LIBRARY_PATH' + + +# Initialize some variables set by options. +ac_init_help= +ac_init_version=false +ac_unrecognized_opts= +ac_unrecognized_sep= +# The variables have the same names as the options, with +# dashes changed to underlines. +cache_file=/dev/null +exec_prefix=NONE +no_create= +no_recursion= +prefix=NONE +program_prefix=NONE +program_suffix=NONE +program_transform_name=s,x,x, +silent= +site= +srcdir= +verbose= +x_includes=NONE +x_libraries=NONE + +# Installation directory options. +# These are left unexpanded so users can "make install exec_prefix=/foo" +# and all the variables that are supposed to be based on exec_prefix +# by default will actually change. +# Use braces instead of parens because sh, perl, etc. also accept them. +# (The list follows the same order as the GNU Coding Standards.) +bindir='${exec_prefix}/bin' +sbindir='${exec_prefix}/sbin' +libexecdir='${exec_prefix}/libexec' +datarootdir='${prefix}/share' +datadir='${datarootdir}' +sysconfdir='${prefix}/etc' +sharedstatedir='${prefix}/com' +localstatedir='${prefix}/var' +includedir='${prefix}/include' +oldincludedir='/usr/include' +docdir='${datarootdir}/doc/${PACKAGE_TARNAME}' +infodir='${datarootdir}/info' +htmldir='${docdir}' +dvidir='${docdir}' +pdfdir='${docdir}' +psdir='${docdir}' +libdir='${exec_prefix}/lib' +localedir='${datarootdir}/locale' +mandir='${datarootdir}/man' + +ac_prev= +ac_dashdash= +for ac_option +do + # If the previous option needs an argument, assign it. + if test -n "$ac_prev"; then + eval $ac_prev=\$ac_option + ac_prev= + continue + fi + + case $ac_option in + *=?*) ac_optarg=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;; + *=) ac_optarg= ;; + *) ac_optarg=yes ;; + esac + + # Accept the important Cygnus configure options, so we can diagnose typos. + + case $ac_dashdash$ac_option in + --) + ac_dashdash=yes ;; + + -bindir | --bindir | --bindi | --bind | --bin | --bi) + ac_prev=bindir ;; + -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) + bindir=$ac_optarg ;; + + -build | --build | --buil | --bui | --bu) + ac_prev=build_alias ;; + -build=* | --build=* | --buil=* | --bui=* | --bu=*) + build_alias=$ac_optarg ;; + + -cache-file | --cache-file | --cache-fil | --cache-fi \ + | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) + ac_prev=cache_file ;; + -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ + | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) + cache_file=$ac_optarg ;; + + --config-cache | -C) + cache_file=config.cache ;; + + -datadir | --datadir | --datadi | --datad) + ac_prev=datadir ;; + -datadir=* | --datadir=* | --datadi=* | --datad=*) + datadir=$ac_optarg ;; + + -datarootdir | --datarootdir | --datarootdi | --datarootd | --dataroot \ + | --dataroo | --dataro | --datar) + ac_prev=datarootdir ;; + -datarootdir=* | --datarootdir=* | --datarootdi=* | --datarootd=* \ + | --dataroot=* | --dataroo=* | --dataro=* | --datar=*) + datarootdir=$ac_optarg ;; + + -disable-* | --disable-*) + ac_useropt=`expr "x$ac_option" : 'x-*disable-\(.*\)'` + # Reject names that are not valid shell variable names. + expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && + as_fn_error $? "invalid feature name: $ac_useropt" + ac_useropt_orig=$ac_useropt + ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` + case $ac_user_opts in + *" +"enable_$ac_useropt" +"*) ;; + *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--disable-$ac_useropt_orig" + ac_unrecognized_sep=', ';; + esac + eval enable_$ac_useropt=no ;; + + -docdir | --docdir | --docdi | --doc | --do) + ac_prev=docdir ;; + -docdir=* | --docdir=* | --docdi=* | --doc=* | --do=*) + docdir=$ac_optarg ;; + + -dvidir | --dvidir | --dvidi | --dvid | --dvi | --dv) + ac_prev=dvidir ;; + -dvidir=* | --dvidir=* | --dvidi=* | --dvid=* | --dvi=* | --dv=*) + dvidir=$ac_optarg ;; + + -enable-* | --enable-*) + ac_useropt=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'` + # Reject names that are not valid shell variable names. + expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && + as_fn_error $? "invalid feature name: $ac_useropt" + ac_useropt_orig=$ac_useropt + ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` + case $ac_user_opts in + *" +"enable_$ac_useropt" +"*) ;; + *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--enable-$ac_useropt_orig" + ac_unrecognized_sep=', ';; + esac + eval enable_$ac_useropt=\$ac_optarg ;; + + -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ + | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ + | --exec | --exe | --ex) + ac_prev=exec_prefix ;; + -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ + | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ + | --exec=* | --exe=* | --ex=*) + exec_prefix=$ac_optarg ;; + + -gas | --gas | --ga | --g) + # Obsolete; use --with-gas. + with_gas=yes ;; + + -help | --help | --hel | --he | -h) + ac_init_help=long ;; + -help=r* | --help=r* | --hel=r* | --he=r* | -hr*) + ac_init_help=recursive ;; + -help=s* | --help=s* | --hel=s* | --he=s* | -hs*) + ac_init_help=short ;; + + -host | --host | --hos | --ho) + ac_prev=host_alias ;; + -host=* | --host=* | --hos=* | --ho=*) + host_alias=$ac_optarg ;; + + -htmldir | --htmldir | --htmldi | --htmld | --html | --htm | --ht) + ac_prev=htmldir ;; + -htmldir=* | --htmldir=* | --htmldi=* | --htmld=* | --html=* | --htm=* \ + | --ht=*) + htmldir=$ac_optarg ;; + + -includedir | --includedir | --includedi | --included | --include \ + | --includ | --inclu | --incl | --inc) + ac_prev=includedir ;; + -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ + | --includ=* | --inclu=* | --incl=* | --inc=*) + includedir=$ac_optarg ;; + + -infodir | --infodir | --infodi | --infod | --info | --inf) + ac_prev=infodir ;; + -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) + infodir=$ac_optarg ;; + + -libdir | --libdir | --libdi | --libd) + ac_prev=libdir ;; + -libdir=* | --libdir=* | --libdi=* | --libd=*) + libdir=$ac_optarg ;; + + -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ + | --libexe | --libex | --libe) + ac_prev=libexecdir ;; + -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ + | --libexe=* | --libex=* | --libe=*) + libexecdir=$ac_optarg ;; + + -localedir | --localedir | --localedi | --localed | --locale) + ac_prev=localedir ;; + -localedir=* | --localedir=* | --localedi=* | --localed=* | --locale=*) + localedir=$ac_optarg ;; + + -localstatedir | --localstatedir | --localstatedi | --localstated \ + | --localstate | --localstat | --localsta | --localst | --locals) + ac_prev=localstatedir ;; + -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ + | --localstate=* | --localstat=* | --localsta=* | --localst=* | --locals=*) + localstatedir=$ac_optarg ;; + + -mandir | --mandir | --mandi | --mand | --man | --ma | --m) + ac_prev=mandir ;; + -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) + mandir=$ac_optarg ;; + + -nfp | --nfp | --nf) + # Obsolete; use --without-fp. + with_fp=no ;; + + -no-create | --no-create | --no-creat | --no-crea | --no-cre \ + | --no-cr | --no-c | -n) + no_create=yes ;; + + -no-recursion | --no-recursion | --no-recursio | --no-recursi \ + | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) + no_recursion=yes ;; + + -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ + | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ + | --oldin | --oldi | --old | --ol | --o) + ac_prev=oldincludedir ;; + -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ + | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ + | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) + oldincludedir=$ac_optarg ;; + + -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) + ac_prev=prefix ;; + -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) + prefix=$ac_optarg ;; + + -program-prefix | --program-prefix | --program-prefi | --program-pref \ + | --program-pre | --program-pr | --program-p) + ac_prev=program_prefix ;; + -program-prefix=* | --program-prefix=* | --program-prefi=* \ + | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) + program_prefix=$ac_optarg ;; + + -program-suffix | --program-suffix | --program-suffi | --program-suff \ + | --program-suf | --program-su | --program-s) + ac_prev=program_suffix ;; + -program-suffix=* | --program-suffix=* | --program-suffi=* \ + | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) + program_suffix=$ac_optarg ;; + + -program-transform-name | --program-transform-name \ + | --program-transform-nam | --program-transform-na \ + | --program-transform-n | --program-transform- \ + | --program-transform | --program-transfor \ + | --program-transfo | --program-transf \ + | --program-trans | --program-tran \ + | --progr-tra | --program-tr | --program-t) + ac_prev=program_transform_name ;; + -program-transform-name=* | --program-transform-name=* \ + | --program-transform-nam=* | --program-transform-na=* \ + | --program-transform-n=* | --program-transform-=* \ + | --program-transform=* | --program-transfor=* \ + | --program-transfo=* | --program-transf=* \ + | --program-trans=* | --program-tran=* \ + | --progr-tra=* | --program-tr=* | --program-t=*) + program_transform_name=$ac_optarg ;; + + -pdfdir | --pdfdir | --pdfdi | --pdfd | --pdf | --pd) + ac_prev=pdfdir ;; + -pdfdir=* | --pdfdir=* | --pdfdi=* | --pdfd=* | --pdf=* | --pd=*) + pdfdir=$ac_optarg ;; + + -psdir | --psdir | --psdi | --psd | --ps) + ac_prev=psdir ;; + -psdir=* | --psdir=* | --psdi=* | --psd=* | --ps=*) + psdir=$ac_optarg ;; + + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil) + silent=yes ;; + + -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) + ac_prev=sbindir ;; + -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ + | --sbi=* | --sb=*) + sbindir=$ac_optarg ;; + + -sharedstatedir | --sharedstatedir | --sharedstatedi \ + | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ + | --sharedst | --shareds | --shared | --share | --shar \ + | --sha | --sh) + ac_prev=sharedstatedir ;; + -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ + | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ + | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ + | --sha=* | --sh=*) + sharedstatedir=$ac_optarg ;; + + -site | --site | --sit) + ac_prev=site ;; + -site=* | --site=* | --sit=*) + site=$ac_optarg ;; + + -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) + ac_prev=srcdir ;; + -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) + srcdir=$ac_optarg ;; + + -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ + | --syscon | --sysco | --sysc | --sys | --sy) + ac_prev=sysconfdir ;; + -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ + | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) + sysconfdir=$ac_optarg ;; + + -target | --target | --targe | --targ | --tar | --ta | --t) + ac_prev=target_alias ;; + -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) + target_alias=$ac_optarg ;; + + -v | -verbose | --verbose | --verbos | --verbo | --verb) + verbose=yes ;; + + -version | --version | --versio | --versi | --vers | -V) + ac_init_version=: ;; + + -with-* | --with-*) + ac_useropt=`expr "x$ac_option" : 'x-*with-\([^=]*\)'` + # Reject names that are not valid shell variable names. + expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && + as_fn_error $? "invalid package name: $ac_useropt" + ac_useropt_orig=$ac_useropt + ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` + case $ac_user_opts in + *" +"with_$ac_useropt" +"*) ;; + *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--with-$ac_useropt_orig" + ac_unrecognized_sep=', ';; + esac + eval with_$ac_useropt=\$ac_optarg ;; + + -without-* | --without-*) + ac_useropt=`expr "x$ac_option" : 'x-*without-\(.*\)'` + # Reject names that are not valid shell variable names. + expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && + as_fn_error $? "invalid package name: $ac_useropt" + ac_useropt_orig=$ac_useropt + ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` + case $ac_user_opts in + *" +"with_$ac_useropt" +"*) ;; + *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--without-$ac_useropt_orig" + ac_unrecognized_sep=', ';; + esac + eval with_$ac_useropt=no ;; + + --x) + # Obsolete; use --with-x. + with_x=yes ;; + + -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ + | --x-incl | --x-inc | --x-in | --x-i) + ac_prev=x_includes ;; + -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ + | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) + x_includes=$ac_optarg ;; + + -x-libraries | --x-libraries | --x-librarie | --x-librari \ + | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) + ac_prev=x_libraries ;; + -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ + | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) + x_libraries=$ac_optarg ;; + + -*) as_fn_error $? "unrecognized option: \`$ac_option' +Try \`$0 --help' for more information" + ;; + + *=*) + ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='` + # Reject names that are not valid shell variable names. + case $ac_envvar in #( + '' | [0-9]* | *[!_$as_cr_alnum]* ) + as_fn_error $? "invalid variable name: \`$ac_envvar'" ;; + esac + eval $ac_envvar=\$ac_optarg + export $ac_envvar ;; + + *) + # FIXME: should be removed in autoconf 3.0. + $as_echo "$as_me: WARNING: you should use --build, --host, --target" >&2 + expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null && + $as_echo "$as_me: WARNING: invalid host type: $ac_option" >&2 + : "${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option}" + ;; + + esac +done + +if test -n "$ac_prev"; then + ac_option=--`echo $ac_prev | sed 's/_/-/g'` + as_fn_error $? "missing argument to $ac_option" +fi + +if test -n "$ac_unrecognized_opts"; then + case $enable_option_checking in + no) ;; + fatal) as_fn_error $? "unrecognized options: $ac_unrecognized_opts" ;; + *) $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2 ;; + esac +fi + +# Check all directory arguments for consistency. +for ac_var in exec_prefix prefix bindir sbindir libexecdir datarootdir \ + datadir sysconfdir sharedstatedir localstatedir includedir \ + oldincludedir docdir infodir htmldir dvidir pdfdir psdir \ + libdir localedir mandir +do + eval ac_val=\$$ac_var + # Remove trailing slashes. + case $ac_val in + */ ) + ac_val=`expr "X$ac_val" : 'X\(.*[^/]\)' \| "X$ac_val" : 'X\(.*\)'` + eval $ac_var=\$ac_val;; + esac + # Be sure to have absolute directory names. + case $ac_val in + [\\/$]* | ?:[\\/]* ) continue;; + NONE | '' ) case $ac_var in *prefix ) continue;; esac;; + esac + as_fn_error $? "expected an absolute directory name for --$ac_var: $ac_val" +done + +# There might be people who depend on the old broken behavior: `$host' +# used to hold the argument of --host etc. +# FIXME: To remove some day. +build=$build_alias +host=$host_alias +target=$target_alias + +# FIXME: To remove some day. +if test "x$host_alias" != x; then + if test "x$build_alias" = x; then + cross_compiling=maybe + elif test "x$build_alias" != "x$host_alias"; then + cross_compiling=yes + fi +fi + +ac_tool_prefix= +test -n "$host_alias" && ac_tool_prefix=$host_alias- + +test "$silent" = yes && exec 6>/dev/null + + +ac_pwd=`pwd` && test -n "$ac_pwd" && +ac_ls_di=`ls -di .` && +ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` || + as_fn_error $? "working directory cannot be determined" +test "X$ac_ls_di" = "X$ac_pwd_ls_di" || + as_fn_error $? "pwd does not report name of working directory" + + +# Find the source files, if location was not specified. +if test -z "$srcdir"; then + ac_srcdir_defaulted=yes + # Try the directory containing this script, then the parent directory. + ac_confdir=`$as_dirname -- "$as_myself" || +$as_expr X"$as_myself" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_myself" : 'X\(//\)[^/]' \| \ + X"$as_myself" : 'X\(//\)$' \| \ + X"$as_myself" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_myself" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + srcdir=$ac_confdir + if test ! -r "$srcdir/$ac_unique_file"; then + srcdir=.. + fi +else + ac_srcdir_defaulted=no +fi +if test ! -r "$srcdir/$ac_unique_file"; then + test "$ac_srcdir_defaulted" = yes && srcdir="$ac_confdir or .." + as_fn_error $? "cannot find sources ($ac_unique_file) in $srcdir" +fi +ac_msg="sources are in $srcdir, but \`cd $srcdir' does not work" +ac_abs_confdir=`( + cd "$srcdir" && test -r "./$ac_unique_file" || as_fn_error $? "$ac_msg" + pwd)` +# When building in place, set srcdir=. +if test "$ac_abs_confdir" = "$ac_pwd"; then + srcdir=. +fi +# Remove unnecessary trailing slashes from srcdir. +# Double slashes in file names in object file debugging info +# mess up M-x gdb in Emacs. +case $srcdir in +*/) srcdir=`expr "X$srcdir" : 'X\(.*[^/]\)' \| "X$srcdir" : 'X\(.*\)'`;; +esac +for ac_var in $ac_precious_vars; do + eval ac_env_${ac_var}_set=\${${ac_var}+set} + eval ac_env_${ac_var}_value=\$${ac_var} + eval ac_cv_env_${ac_var}_set=\${${ac_var}+set} + eval ac_cv_env_${ac_var}_value=\$${ac_var} +done + +# +# Report the --help message. +# +if test "$ac_init_help" = "long"; then + # Omit some internal or obsolete options to make the list less imposing. + # This message is too long to be a string in the A/UX 3.1 sh. + cat <<_ACEOF +\`configure' configures GNU libffcall 2.2 to adapt to many kinds of systems. + +Usage: $0 [OPTION]... [VAR=VALUE]... + +To assign environment variables (e.g., CC, CFLAGS...), specify them as +VAR=VALUE. See below for descriptions of some of the useful variables. + +Defaults for the options are specified in brackets. + +Configuration: + -h, --help display this help and exit + --help=short display options specific to this package + --help=recursive display the short help of all the included packages + -V, --version display version information and exit + -q, --quiet, --silent do not print \`checking ...' messages + --cache-file=FILE cache test results in FILE [disabled] + -C, --config-cache alias for \`--cache-file=config.cache' + -n, --no-create do not create output files + --srcdir=DIR find the sources in DIR [configure dir or \`..'] + +Installation directories: + --prefix=PREFIX install architecture-independent files in PREFIX + [$ac_default_prefix] + --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX + [PREFIX] + +By default, \`make install' will install all the files in +\`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc. You can specify +an installation prefix other than \`$ac_default_prefix' using \`--prefix', +for instance \`--prefix=\$HOME'. + +For better control, use the options below. + +Fine tuning of the installation directories: + --bindir=DIR user executables [EPREFIX/bin] + --sbindir=DIR system admin executables [EPREFIX/sbin] + --libexecdir=DIR program executables [EPREFIX/libexec] + --sysconfdir=DIR read-only single-machine data [PREFIX/etc] + --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com] + --localstatedir=DIR modifiable single-machine data [PREFIX/var] + --libdir=DIR object code libraries [EPREFIX/lib] + --includedir=DIR C header files [PREFIX/include] + --oldincludedir=DIR C header files for non-gcc [/usr/include] + --datarootdir=DIR read-only arch.-independent data root [PREFIX/share] + --datadir=DIR read-only architecture-independent data [DATAROOTDIR] + --infodir=DIR info documentation [DATAROOTDIR/info] + --localedir=DIR locale-dependent data [DATAROOTDIR/locale] + --mandir=DIR man documentation [DATAROOTDIR/man] + --docdir=DIR documentation root [DATAROOTDIR/doc/libffcall] + --htmldir=DIR html documentation [DOCDIR] + --dvidir=DIR dvi documentation [DOCDIR] + --pdfdir=DIR pdf documentation [DOCDIR] + --psdir=DIR ps documentation [DOCDIR] +_ACEOF + + cat <<\_ACEOF + +Program names: + --program-prefix=PREFIX prepend PREFIX to installed program names + --program-suffix=SUFFIX append SUFFIX to installed program names + --program-transform-name=PROGRAM run sed PROGRAM on installed program names + +System types: + --build=BUILD configure for building on BUILD [guessed] + --host=HOST cross-compile to build programs to run on HOST [BUILD] +_ACEOF +fi + +if test -n "$ac_init_help"; then + case $ac_init_help in + short | recursive ) echo "Configuration of GNU libffcall 2.2:";; + esac + cat <<\_ACEOF + +Optional Features: + --disable-option-checking ignore unrecognized --enable/--with options + --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) + --enable-FEATURE[=ARG] include FEATURE [ARG=yes] + --enable-silent-rules less verbose build output (undo: "make V=1") + --disable-silent-rules verbose build output (undo: "make V=0") + --enable-dependency-tracking + do not reject slow dependency extractors + --disable-dependency-tracking + speeds up one-time build + --disable-c++ do not build C++ sources + --enable-threads={posix|windows} + specify multithreading API + --disable-threads build without multithread safety + --enable-shared[=PKGS] build shared libraries [default=yes] + --enable-static[=PKGS] build static libraries [default=yes] + --enable-fast-install[=PKGS] + optimize for fast installation [default=yes] + --disable-libtool-lock avoid locking (might break parallel builds) + +Optional Packages: + --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] + --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) + --with-pic[=PKGS] try to use only PIC/non-PIC objects [default=use + both] + --with-aix-soname=aix|svr4|both + shared library versioning (aka "SONAME") variant to + provide on AIX, [default=aix]. + --with-gnu-ld assume the C compiler uses GNU ld [default=no] + --with-sysroot[=DIR] Search for dependent libraries within DIR (or the + compiler's sysroot if not specified). + +Some influential environment variables: + CC C compiler command + CFLAGS C compiler flags + LDFLAGS linker flags, e.g. -L if you have libraries in a + nonstandard directory + LIBS libraries to pass to the linker, e.g. -l + CPPFLAGS (Objective) C/C++ preprocessor flags, e.g. -I if + you have headers in a nonstandard directory + CPP C preprocessor + CXX C++ compiler command + CXXFLAGS C++ compiler flags + LT_SYS_LIBRARY_PATH + User-defined run-time library search path. + +Use these variables to override the choices made by `configure' or to help +it to find libraries and programs with nonstandard names/locations. + +Report bugs to . +GNU libffcall home page: . +General help using GNU software: . +_ACEOF +ac_status=$? +fi + +if test "$ac_init_help" = "recursive"; then + # If there are subdirs, report their specific --help. + for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue + test -d "$ac_dir" || + { cd "$srcdir" && ac_pwd=`pwd` && srcdir=. && test -d "$ac_dir"; } || + continue + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + cd "$ac_dir" || { ac_status=$?; continue; } + # Check for guested configure. + if test -f "$ac_srcdir/configure.gnu"; then + echo && + $SHELL "$ac_srcdir/configure.gnu" --help=recursive + elif test -f "$ac_srcdir/configure"; then + echo && + $SHELL "$ac_srcdir/configure" --help=recursive + else + $as_echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2 + fi || ac_status=$? + cd "$ac_pwd" || { ac_status=$?; break; } + done +fi + +test -n "$ac_init_help" && exit $ac_status +if $ac_init_version; then + cat <<\_ACEOF +GNU libffcall configure 2.2 +generated by GNU Autoconf 2.69 + +Copyright (C) 2012 Free Software Foundation, Inc. +This configure script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it. +_ACEOF + exit +fi + +## ------------------------ ## +## Autoconf initialization. ## +## ------------------------ ## + +# ac_fn_c_try_compile LINENO +# -------------------------- +# Try to compile conftest.$ac_ext, and return whether this succeeded. +ac_fn_c_try_compile () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + rm -f conftest.$ac_objext + if { { ac_try="$ac_compile" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_compile") 2>conftest.err + ac_status=$? + if test -s conftest.err; then + grep -v '^ *+' conftest.err >conftest.er1 + cat conftest.er1 >&5 + mv -f conftest.er1 conftest.err + fi + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } && { + test -z "$ac_c_werror_flag" || + test ! -s conftest.err + } && test -s conftest.$ac_objext; then : + ac_retval=0 +else + $as_echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + ac_retval=1 +fi + eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno + as_fn_set_status $ac_retval + +} # ac_fn_c_try_compile + +# ac_fn_c_try_cpp LINENO +# ---------------------- +# Try to preprocess conftest.$ac_ext, and return whether this succeeded. +ac_fn_c_try_cpp () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + if { { ac_try="$ac_cpp conftest.$ac_ext" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_cpp conftest.$ac_ext") 2>conftest.err + ac_status=$? + if test -s conftest.err; then + grep -v '^ *+' conftest.err >conftest.er1 + cat conftest.er1 >&5 + mv -f conftest.er1 conftest.err + fi + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } > conftest.i && { + test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || + test ! -s conftest.err + }; then : + ac_retval=0 +else + $as_echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + ac_retval=1 +fi + eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno + as_fn_set_status $ac_retval + +} # ac_fn_c_try_cpp + +# ac_fn_c_check_header_mongrel LINENO HEADER VAR INCLUDES +# ------------------------------------------------------- +# Tests whether HEADER exists, giving a warning if it cannot be compiled using +# the include files in INCLUDES and setting the cache variable VAR +# accordingly. +ac_fn_c_check_header_mongrel () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + if eval \${$3+:} false; then : + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 +$as_echo_n "checking for $2... " >&6; } +if eval \${$3+:} false; then : + $as_echo_n "(cached) " >&6 +fi +eval ac_res=\$$3 + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +$as_echo "$ac_res" >&6; } +else + # Is the header compilable? +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 usability" >&5 +$as_echo_n "checking $2 usability... " >&6; } +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$4 +#include <$2> +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_header_compiler=yes +else + ac_header_compiler=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_compiler" >&5 +$as_echo "$ac_header_compiler" >&6; } + +# Is the header present? +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 presence" >&5 +$as_echo_n "checking $2 presence... " >&6; } +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include <$2> +_ACEOF +if ac_fn_c_try_cpp "$LINENO"; then : + ac_header_preproc=yes +else + ac_header_preproc=no +fi +rm -f conftest.err conftest.i conftest.$ac_ext +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_preproc" >&5 +$as_echo "$ac_header_preproc" >&6; } + +# So? What about this header? +case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in #(( + yes:no: ) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&5 +$as_echo "$as_me: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5 +$as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;} + ;; + no:yes:* ) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: present but cannot be compiled" >&5 +$as_echo "$as_me: WARNING: $2: present but cannot be compiled" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: check for missing prerequisite headers?" >&5 +$as_echo "$as_me: WARNING: $2: check for missing prerequisite headers?" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: see the Autoconf documentation" >&5 +$as_echo "$as_me: WARNING: $2: see the Autoconf documentation" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&5 +$as_echo "$as_me: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5 +$as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;} +( $as_echo "## ---------------------------------------------------------- ## +## Report this to https://savannah.gnu.org/projects/libffcall ## +## ---------------------------------------------------------- ##" + ) | sed "s/^/$as_me: WARNING: /" >&2 + ;; +esac + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 +$as_echo_n "checking for $2... " >&6; } +if eval \${$3+:} false; then : + $as_echo_n "(cached) " >&6 +else + eval "$3=\$ac_header_compiler" +fi +eval ac_res=\$$3 + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +$as_echo "$ac_res" >&6; } +fi + eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno + +} # ac_fn_c_check_header_mongrel + +# ac_fn_c_try_run LINENO +# ---------------------- +# Try to link conftest.$ac_ext, and return whether this succeeded. Assumes +# that executables *can* be run. +ac_fn_c_try_run () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + if { { ac_try="$ac_link" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_link") 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } && { ac_try='./conftest$ac_exeext' + { { case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_try") 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; }; then : + ac_retval=0 +else + $as_echo "$as_me: program exited with status $ac_status" >&5 + $as_echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + ac_retval=$ac_status +fi + rm -rf conftest.dSYM conftest_ipa8_conftest.oo + eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno + as_fn_set_status $ac_retval + +} # ac_fn_c_try_run + +# ac_fn_c_check_header_compile LINENO HEADER VAR INCLUDES +# ------------------------------------------------------- +# Tests whether HEADER exists and can be compiled using the include files in +# INCLUDES, setting the cache variable VAR accordingly. +ac_fn_c_check_header_compile () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 +$as_echo_n "checking for $2... " >&6; } +if eval \${$3+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$4 +#include <$2> +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + eval "$3=yes" +else + eval "$3=no" +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +fi +eval ac_res=\$$3 + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +$as_echo "$ac_res" >&6; } + eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno + +} # ac_fn_c_check_header_compile + +# ac_fn_c_try_link LINENO +# ----------------------- +# Try to link conftest.$ac_ext, and return whether this succeeded. +ac_fn_c_try_link () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + rm -f conftest.$ac_objext conftest$ac_exeext + if { { ac_try="$ac_link" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_link") 2>conftest.err + ac_status=$? + if test -s conftest.err; then + grep -v '^ *+' conftest.err >conftest.er1 + cat conftest.er1 >&5 + mv -f conftest.er1 conftest.err + fi + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } && { + test -z "$ac_c_werror_flag" || + test ! -s conftest.err + } && test -s conftest$ac_exeext && { + test "$cross_compiling" = yes || + test -x conftest$ac_exeext + }; then : + ac_retval=0 +else + $as_echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + ac_retval=1 +fi + # Delete the IPA/IPO (Inter Procedural Analysis/Optimization) information + # created by the PGI compiler (conftest_ipa8_conftest.oo), as it would + # interfere with the next link command; also delete a directory that is + # left behind by Apple's compiler. We do this before executing the actions. + rm -rf conftest.dSYM conftest_ipa8_conftest.oo + eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno + as_fn_set_status $ac_retval + +} # ac_fn_c_try_link + +# ac_fn_c_check_func LINENO FUNC VAR +# ---------------------------------- +# Tests whether FUNC exists, setting the cache variable VAR accordingly +ac_fn_c_check_func () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 +$as_echo_n "checking for $2... " >&6; } +if eval \${$3+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +/* Define $2 to an innocuous variant, in case declares $2. + For example, HP-UX 11i declares gettimeofday. */ +#define $2 innocuous_$2 + +/* System header to define __stub macros and hopefully few prototypes, + which can conflict with char $2 (); below. + Prefer to if __STDC__ is defined, since + exists even on freestanding compilers. */ + +#ifdef __STDC__ +# include +#else +# include +#endif + +#undef $2 + +/* Override any GCC internal prototype to avoid an error. + Use char because int might match the return type of a GCC + builtin and then its argument prototype would still apply. */ +#ifdef __cplusplus +extern "C" +#endif +char $2 (); +/* The GNU C library defines this for functions which it implements + to always fail with ENOSYS. Some functions are actually named + something starting with __ and the normal name is an alias. */ +#if defined __stub_$2 || defined __stub___$2 +choke me +#endif + +int +main () +{ +return $2 (); + ; + return 0; +} +_ACEOF +if ac_fn_c_try_link "$LINENO"; then : + eval "$3=yes" +else + eval "$3=no" +fi +rm -f core conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +fi +eval ac_res=\$$3 + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +$as_echo "$ac_res" >&6; } + eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno + +} # ac_fn_c_check_func + +# ac_fn_c_check_type LINENO TYPE VAR INCLUDES +# ------------------------------------------- +# Tests whether TYPE exists after having included INCLUDES, setting cache +# variable VAR accordingly. +ac_fn_c_check_type () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 +$as_echo_n "checking for $2... " >&6; } +if eval \${$3+:} false; then : + $as_echo_n "(cached) " >&6 +else + eval "$3=no" + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$4 +int +main () +{ +if (sizeof ($2)) + return 0; + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$4 +int +main () +{ +if (sizeof (($2))) + return 0; + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + +else + eval "$3=yes" +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +fi +eval ac_res=\$$3 + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +$as_echo "$ac_res" >&6; } + eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno + +} # ac_fn_c_check_type + +# ac_fn_c_compute_int LINENO EXPR VAR INCLUDES +# -------------------------------------------- +# Tries to find the compile-time value of EXPR in a program that includes +# INCLUDES, setting VAR accordingly. Returns whether the value could be +# computed +ac_fn_c_compute_int () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + if test "$cross_compiling" = yes; then + # Depending upon the size, compute the lo and hi bounds. +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$4 +int +main () +{ +static int test_array [1 - 2 * !(($2) >= 0)]; +test_array [0] = 0; +return test_array [0]; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_lo=0 ac_mid=0 + while :; do + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$4 +int +main () +{ +static int test_array [1 - 2 * !(($2) <= $ac_mid)]; +test_array [0] = 0; +return test_array [0]; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_hi=$ac_mid; break +else + as_fn_arith $ac_mid + 1 && ac_lo=$as_val + if test $ac_lo -le $ac_mid; then + ac_lo= ac_hi= + break + fi + as_fn_arith 2 '*' $ac_mid + 1 && ac_mid=$as_val +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + done +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$4 +int +main () +{ +static int test_array [1 - 2 * !(($2) < 0)]; +test_array [0] = 0; +return test_array [0]; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_hi=-1 ac_mid=-1 + while :; do + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$4 +int +main () +{ +static int test_array [1 - 2 * !(($2) >= $ac_mid)]; +test_array [0] = 0; +return test_array [0]; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_lo=$ac_mid; break +else + as_fn_arith '(' $ac_mid ')' - 1 && ac_hi=$as_val + if test $ac_mid -le $ac_hi; then + ac_lo= ac_hi= + break + fi + as_fn_arith 2 '*' $ac_mid && ac_mid=$as_val +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + done +else + ac_lo= ac_hi= +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +# Binary search between lo and hi bounds. +while test "x$ac_lo" != "x$ac_hi"; do + as_fn_arith '(' $ac_hi - $ac_lo ')' / 2 + $ac_lo && ac_mid=$as_val + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$4 +int +main () +{ +static int test_array [1 - 2 * !(($2) <= $ac_mid)]; +test_array [0] = 0; +return test_array [0]; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_hi=$ac_mid +else + as_fn_arith '(' $ac_mid ')' + 1 && ac_lo=$as_val +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +done +case $ac_lo in #(( +?*) eval "$3=\$ac_lo"; ac_retval=0 ;; +'') ac_retval=1 ;; +esac + else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$4 +static long int longval () { return $2; } +static unsigned long int ulongval () { return $2; } +#include +#include +int +main () +{ + + FILE *f = fopen ("conftest.val", "w"); + if (! f) + return 1; + if (($2) < 0) + { + long int i = longval (); + if (i != ($2)) + return 1; + fprintf (f, "%ld", i); + } + else + { + unsigned long int i = ulongval (); + if (i != ($2)) + return 1; + fprintf (f, "%lu", i); + } + /* Do not output a trailing newline, as this causes \r\n confusion + on some platforms. */ + return ferror (f) || fclose (f) != 0; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_run "$LINENO"; then : + echo >>conftest.val; read $3 config.log <<_ACEOF +This file contains any messages produced by compilers while +running configure, to aid debugging if configure makes a mistake. + +It was created by GNU libffcall $as_me 2.2, which was +generated by GNU Autoconf 2.69. Invocation command line was + + $ $0 $@ + +_ACEOF +exec 5>>config.log +{ +cat <<_ASUNAME +## --------- ## +## Platform. ## +## --------- ## + +hostname = `(hostname || uname -n) 2>/dev/null | sed 1q` +uname -m = `(uname -m) 2>/dev/null || echo unknown` +uname -r = `(uname -r) 2>/dev/null || echo unknown` +uname -s = `(uname -s) 2>/dev/null || echo unknown` +uname -v = `(uname -v) 2>/dev/null || echo unknown` + +/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown` +/bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown` + +/bin/arch = `(/bin/arch) 2>/dev/null || echo unknown` +/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown` +/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown` +/usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown` +/bin/machine = `(/bin/machine) 2>/dev/null || echo unknown` +/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown` +/bin/universe = `(/bin/universe) 2>/dev/null || echo unknown` + +_ASUNAME + +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + $as_echo "PATH: $as_dir" + done +IFS=$as_save_IFS + +} >&5 + +cat >&5 <<_ACEOF + + +## ----------- ## +## Core tests. ## +## ----------- ## + +_ACEOF + + +# Keep a trace of the command line. +# Strip out --no-create and --no-recursion so they do not pile up. +# Strip out --silent because we don't want to record it for future runs. +# Also quote any args containing shell meta-characters. +# Make two passes to allow for proper duplicate-argument suppression. +ac_configure_args= +ac_configure_args0= +ac_configure_args1= +ac_must_keep_next=false +for ac_pass in 1 2 +do + for ac_arg + do + case $ac_arg in + -no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil) + continue ;; + *\'*) + ac_arg=`$as_echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + case $ac_pass in + 1) as_fn_append ac_configure_args0 " '$ac_arg'" ;; + 2) + as_fn_append ac_configure_args1 " '$ac_arg'" + if test $ac_must_keep_next = true; then + ac_must_keep_next=false # Got value, back to normal. + else + case $ac_arg in + *=* | --config-cache | -C | -disable-* | --disable-* \ + | -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \ + | -q | -quiet | --q* | -silent | --sil* | -v | -verb* \ + | -with-* | --with-* | -without-* | --without-* | --x) + case "$ac_configure_args0 " in + "$ac_configure_args1"*" '$ac_arg' "* ) continue ;; + esac + ;; + -* ) ac_must_keep_next=true ;; + esac + fi + as_fn_append ac_configure_args " '$ac_arg'" + ;; + esac + done +done +{ ac_configure_args0=; unset ac_configure_args0;} +{ ac_configure_args1=; unset ac_configure_args1;} + +# When interrupted or exit'd, cleanup temporary files, and complete +# config.log. We remove comments because anyway the quotes in there +# would cause problems or look ugly. +# WARNING: Use '\'' to represent an apostrophe within the trap. +# WARNING: Do not start the trap code with a newline, due to a FreeBSD 4.0 bug. +trap 'exit_status=$? + # Save into config.log some information that might help in debugging. + { + echo + + $as_echo "## ---------------- ## +## Cache variables. ## +## ---------------- ##" + echo + # The following way of writing the cache mishandles newlines in values, +( + for ac_var in `(set) 2>&1 | sed -n '\''s/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'\''`; do + eval ac_val=\$$ac_var + case $ac_val in #( + *${as_nl}*) + case $ac_var in #( + *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 +$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; + esac + case $ac_var in #( + _ | IFS | as_nl) ;; #( + BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( + *) { eval $ac_var=; unset $ac_var;} ;; + esac ;; + esac + done + (set) 2>&1 | + case $as_nl`(ac_space='\'' '\''; set) 2>&1` in #( + *${as_nl}ac_space=\ *) + sed -n \ + "s/'\''/'\''\\\\'\'''\''/g; + s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\''\\2'\''/p" + ;; #( + *) + sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" + ;; + esac | + sort +) + echo + + $as_echo "## ----------------- ## +## Output variables. ## +## ----------------- ##" + echo + for ac_var in $ac_subst_vars + do + eval ac_val=\$$ac_var + case $ac_val in + *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; + esac + $as_echo "$ac_var='\''$ac_val'\''" + done | sort + echo + + if test -n "$ac_subst_files"; then + $as_echo "## ------------------- ## +## File substitutions. ## +## ------------------- ##" + echo + for ac_var in $ac_subst_files + do + eval ac_val=\$$ac_var + case $ac_val in + *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; + esac + $as_echo "$ac_var='\''$ac_val'\''" + done | sort + echo + fi + + if test -s confdefs.h; then + $as_echo "## ----------- ## +## confdefs.h. ## +## ----------- ##" + echo + cat confdefs.h + echo + fi + test "$ac_signal" != 0 && + $as_echo "$as_me: caught signal $ac_signal" + $as_echo "$as_me: exit $exit_status" + } >&5 + rm -f core *.core core.conftest.* && + rm -f -r conftest* confdefs* conf$$* $ac_clean_files && + exit $exit_status +' 0 +for ac_signal in 1 2 13 15; do + trap 'ac_signal='$ac_signal'; as_fn_exit 1' $ac_signal +done +ac_signal=0 + +# confdefs.h avoids OS command line length limits that DEFS can exceed. +rm -f -r conftest* confdefs.h + +$as_echo "/* confdefs.h */" > confdefs.h + +# Predefined preprocessor variables. + +cat >>confdefs.h <<_ACEOF +#define PACKAGE_NAME "$PACKAGE_NAME" +_ACEOF + +cat >>confdefs.h <<_ACEOF +#define PACKAGE_TARNAME "$PACKAGE_TARNAME" +_ACEOF + +cat >>confdefs.h <<_ACEOF +#define PACKAGE_VERSION "$PACKAGE_VERSION" +_ACEOF + +cat >>confdefs.h <<_ACEOF +#define PACKAGE_STRING "$PACKAGE_STRING" +_ACEOF + +cat >>confdefs.h <<_ACEOF +#define PACKAGE_BUGREPORT "$PACKAGE_BUGREPORT" +_ACEOF + +cat >>confdefs.h <<_ACEOF +#define PACKAGE_URL "$PACKAGE_URL" +_ACEOF + + +# Let the site file select an alternate cache file if it wants to. +# Prefer an explicitly selected file to automatically selected ones. +ac_site_file1=NONE +ac_site_file2=NONE +if test -n "$CONFIG_SITE"; then + # We do not want a PATH search for config.site. + case $CONFIG_SITE in #(( + -*) ac_site_file1=./$CONFIG_SITE;; + */*) ac_site_file1=$CONFIG_SITE;; + *) ac_site_file1=./$CONFIG_SITE;; + esac +elif test "x$prefix" != xNONE; then + ac_site_file1=$prefix/share/config.site + ac_site_file2=$prefix/etc/config.site +else + ac_site_file1=$ac_default_prefix/share/config.site + ac_site_file2=$ac_default_prefix/etc/config.site +fi +for ac_site_file in "$ac_site_file1" "$ac_site_file2" +do + test "x$ac_site_file" = xNONE && continue + if test /dev/null != "$ac_site_file" && test -r "$ac_site_file"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file" >&5 +$as_echo "$as_me: loading site script $ac_site_file" >&6;} + sed 's/^/| /' "$ac_site_file" >&5 + . "$ac_site_file" \ + || { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error $? "failed to load site script $ac_site_file +See \`config.log' for more details" "$LINENO" 5; } + fi +done + +if test -r "$cache_file"; then + # Some versions of bash will fail to source /dev/null (special files + # actually), so we avoid doing that. DJGPP emulates it as a regular file. + if test /dev/null != "$cache_file" && test -f "$cache_file"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: loading cache $cache_file" >&5 +$as_echo "$as_me: loading cache $cache_file" >&6;} + case $cache_file in + [\\/]* | ?:[\\/]* ) . "$cache_file";; + *) . "./$cache_file";; + esac + fi +else + { $as_echo "$as_me:${as_lineno-$LINENO}: creating cache $cache_file" >&5 +$as_echo "$as_me: creating cache $cache_file" >&6;} + >$cache_file +fi + +gl_header_list="$gl_header_list limits.h" +gl_header_list="$gl_header_list threads.h" +gl_header_list="$gl_header_list wchar.h" +gl_header_list="$gl_header_list stdint.h" +# Check that the precious variables saved in the cache have kept the same +# value. +ac_cache_corrupted=false +for ac_var in $ac_precious_vars; do + eval ac_old_set=\$ac_cv_env_${ac_var}_set + eval ac_new_set=\$ac_env_${ac_var}_set + eval ac_old_val=\$ac_cv_env_${ac_var}_value + eval ac_new_val=\$ac_env_${ac_var}_value + case $ac_old_set,$ac_new_set in + set,) + { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5 +$as_echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;} + ac_cache_corrupted=: ;; + ,set) + { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was not set in the previous run" >&5 +$as_echo "$as_me: error: \`$ac_var' was not set in the previous run" >&2;} + ac_cache_corrupted=: ;; + ,);; + *) + if test "x$ac_old_val" != "x$ac_new_val"; then + # differences in whitespace do not lead to failure. + ac_old_val_w=`echo x $ac_old_val` + ac_new_val_w=`echo x $ac_new_val` + if test "$ac_old_val_w" != "$ac_new_val_w"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' has changed since the previous run:" >&5 +$as_echo "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;} + ac_cache_corrupted=: + else + { $as_echo "$as_me:${as_lineno-$LINENO}: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&5 +$as_echo "$as_me: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&2;} + eval $ac_var=\$ac_old_val + fi + { $as_echo "$as_me:${as_lineno-$LINENO}: former value: \`$ac_old_val'" >&5 +$as_echo "$as_me: former value: \`$ac_old_val'" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: current value: \`$ac_new_val'" >&5 +$as_echo "$as_me: current value: \`$ac_new_val'" >&2;} + fi;; + esac + # Pass precious variables to config.status. + if test "$ac_new_set" = set; then + case $ac_new_val in + *\'*) ac_arg=$ac_var=`$as_echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;; + *) ac_arg=$ac_var=$ac_new_val ;; + esac + case " $ac_configure_args " in + *" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy. + *) as_fn_append ac_configure_args " '$ac_arg'" ;; + esac + fi +done +if $ac_cache_corrupted; then + { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build" >&5 +$as_echo "$as_me: error: changes in the environment can compromise the build" >&2;} + as_fn_error $? "run \`make distclean' and/or \`rm $cache_file' and start over" "$LINENO" 5 +fi +## -------------------- ## +## Main body of script. ## +## -------------------- ## + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + + +ac_aux_dir= +for ac_dir in build-aux "$srcdir"/build-aux; do + if test -f "$ac_dir/install-sh"; then + ac_aux_dir=$ac_dir + ac_install_sh="$ac_aux_dir/install-sh -c" + break + elif test -f "$ac_dir/install.sh"; then + ac_aux_dir=$ac_dir + ac_install_sh="$ac_aux_dir/install.sh -c" + break + elif test -f "$ac_dir/shtool"; then + ac_aux_dir=$ac_dir + ac_install_sh="$ac_aux_dir/shtool install -c" + break + fi +done +if test -z "$ac_aux_dir"; then + as_fn_error $? "cannot find install-sh, install.sh, or shtool in build-aux \"$srcdir\"/build-aux" "$LINENO" 5 +fi + +# These three variables are undocumented and unsupported, +# and are intended to be withdrawn in a future Autoconf release. +# They can cause serious problems if a builder's source tree is in a directory +# whose full name contains unusual characters. +ac_config_guess="$SHELL $ac_aux_dir/config.guess" # Please don't use this var. +ac_config_sub="$SHELL $ac_aux_dir/config.sub" # Please don't use this var. +ac_configure="$SHELL $ac_aux_dir/configure" # Please don't use this var. + + +am__api_version='1.15' + +# Find a good install program. We prefer a C program (faster), +# so one script is as good as another. But avoid the broken or +# incompatible versions: +# SysV /etc/install, /usr/sbin/install +# SunOS /usr/etc/install +# IRIX /sbin/install +# AIX /bin/install +# AmigaOS /C/install, which installs bootblocks on floppy discs +# AIX 4 /usr/bin/installbsd, which doesn't work without a -g flag +# AFS /usr/afsws/bin/install, which mishandles nonexistent args +# SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff" +# OS/2's system install, which has a completely different semantic +# ./install, which can be erroneously created by make from ./install.sh. +# Reject install programs that cannot install multiple files. +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for a BSD-compatible install" >&5 +$as_echo_n "checking for a BSD-compatible install... " >&6; } +if test -z "$INSTALL"; then +if ${ac_cv_path_install+:} false; then : + $as_echo_n "(cached) " >&6 +else + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + # Account for people who put trailing slashes in PATH elements. +case $as_dir/ in #(( + ./ | .// | /[cC]/* | \ + /etc/* | /usr/sbin/* | /usr/etc/* | /sbin/* | /usr/afsws/bin/* | \ + ?:[\\/]os2[\\/]install[\\/]* | ?:[\\/]OS2[\\/]INSTALL[\\/]* | \ + /usr/ucb/* ) ;; + *) + # OSF1 and SCO ODT 3.0 have their own names for install. + # Don't use installbsd from OSF since it installs stuff as root + # by default. + for ac_prog in ginstall scoinst install; do + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_prog$ac_exec_ext"; then + if test $ac_prog = install && + grep dspmsg "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then + # AIX install. It has an incompatible calling convention. + : + elif test $ac_prog = install && + grep pwplus "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then + # program-specific install script used by HP pwplus--don't use. + : + else + rm -rf conftest.one conftest.two conftest.dir + echo one > conftest.one + echo two > conftest.two + mkdir conftest.dir + if "$as_dir/$ac_prog$ac_exec_ext" -c conftest.one conftest.two "`pwd`/conftest.dir" && + test -s conftest.one && test -s conftest.two && + test -s conftest.dir/conftest.one && + test -s conftest.dir/conftest.two + then + ac_cv_path_install="$as_dir/$ac_prog$ac_exec_ext -c" + break 3 + fi + fi + fi + done + done + ;; +esac + + done +IFS=$as_save_IFS + +rm -rf conftest.one conftest.two conftest.dir + +fi + if test "${ac_cv_path_install+set}" = set; then + INSTALL=$ac_cv_path_install + else + # As a last resort, use the slow shell script. Don't cache a + # value for INSTALL within a source directory, because that will + # break other packages using the cache if that directory is + # removed, or if the value is a relative name. + INSTALL=$ac_install_sh + fi +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $INSTALL" >&5 +$as_echo "$INSTALL" >&6; } + +# Use test -z because SunOS4 sh mishandles braces in ${var-val}. +# It thinks the first close brace ends the variable substitution. +test -z "$INSTALL_PROGRAM" && INSTALL_PROGRAM='${INSTALL}' + +test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL}' + +test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644' + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether build environment is sane" >&5 +$as_echo_n "checking whether build environment is sane... " >&6; } +# Reject unsafe characters in $srcdir or the absolute working directory +# name. Accept space and tab only in the latter. +am_lf=' +' +case `pwd` in + *[\\\"\#\$\&\'\`$am_lf]*) + as_fn_error $? "unsafe absolute working directory name" "$LINENO" 5;; +esac +case $srcdir in + *[\\\"\#\$\&\'\`$am_lf\ \ ]*) + as_fn_error $? "unsafe srcdir value: '$srcdir'" "$LINENO" 5;; +esac + +# Do 'set' in a subshell so we don't clobber the current shell's +# arguments. Must try -L first in case configure is actually a +# symlink; some systems play weird games with the mod time of symlinks +# (eg FreeBSD returns the mod time of the symlink's containing +# directory). +if ( + am_has_slept=no + for am_try in 1 2; do + echo "timestamp, slept: $am_has_slept" > conftest.file + set X `ls -Lt "$srcdir/configure" conftest.file 2> /dev/null` + if test "$*" = "X"; then + # -L didn't work. + set X `ls -t "$srcdir/configure" conftest.file` + fi + if test "$*" != "X $srcdir/configure conftest.file" \ + && test "$*" != "X conftest.file $srcdir/configure"; then + + # If neither matched, then we have a broken ls. This can happen + # if, for instance, CONFIG_SHELL is bash and it inherits a + # broken ls alias from the environment. This has actually + # happened. Such a system could not be considered "sane". + as_fn_error $? "ls -t appears to fail. Make sure there is not a broken + alias in your environment" "$LINENO" 5 + fi + if test "$2" = conftest.file || test $am_try -eq 2; then + break + fi + # Just in case. + sleep 1 + am_has_slept=yes + done + test "$2" = conftest.file + ) +then + # Ok. + : +else + as_fn_error $? "newly created file is older than distributed files! +Check your system clock" "$LINENO" 5 +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +$as_echo "yes" >&6; } +# If we didn't sleep, we still need to ensure time stamps of config.status and +# generated files are strictly newer. +am_sleep_pid= +if grep 'slept: no' conftest.file >/dev/null 2>&1; then + ( sleep 1 ) & + am_sleep_pid=$! +fi + +rm -f conftest.file + +test "$program_prefix" != NONE && + program_transform_name="s&^&$program_prefix&;$program_transform_name" +# Use a double $ so make ignores it. +test "$program_suffix" != NONE && + program_transform_name="s&\$&$program_suffix&;$program_transform_name" +# Double any \ or $. +# By default was `s,x,x', remove it if useless. +ac_script='s/[\\$]/&&/g;s/;s,x,x,$//' +program_transform_name=`$as_echo "$program_transform_name" | sed "$ac_script"` + +# Expand $ac_aux_dir to an absolute path. +am_aux_dir=`cd "$ac_aux_dir" && pwd` + +if test x"${MISSING+set}" != xset; then + case $am_aux_dir in + *\ * | *\ *) + MISSING="\${SHELL} \"$am_aux_dir/missing\"" ;; + *) + MISSING="\${SHELL} $am_aux_dir/missing" ;; + esac +fi +# Use eval to expand $SHELL +if eval "$MISSING --is-lightweight"; then + am_missing_run="$MISSING " +else + am_missing_run= + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: 'missing' script is too old or missing" >&5 +$as_echo "$as_me: WARNING: 'missing' script is too old or missing" >&2;} +fi + +if test x"${install_sh+set}" != xset; then + case $am_aux_dir in + *\ * | *\ *) + install_sh="\${SHELL} '$am_aux_dir/install-sh'" ;; + *) + install_sh="\${SHELL} $am_aux_dir/install-sh" + esac +fi + +# Installed binaries are usually stripped using 'strip' when the user +# run "make install-strip". However 'strip' might not be the right +# tool to use in cross-compilation environments, therefore Automake +# will honor the 'STRIP' environment variable to overrule this program. +if test "$cross_compiling" != no; then + if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args. +set dummy ${ac_tool_prefix}strip; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_STRIP+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$STRIP"; then + ac_cv_prog_STRIP="$STRIP" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_STRIP="${ac_tool_prefix}strip" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +STRIP=$ac_cv_prog_STRIP +if test -n "$STRIP"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $STRIP" >&5 +$as_echo "$STRIP" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + +fi +if test -z "$ac_cv_prog_STRIP"; then + ac_ct_STRIP=$STRIP + # Extract the first word of "strip", so it can be a program name with args. +set dummy strip; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_ac_ct_STRIP+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$ac_ct_STRIP"; then + ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_STRIP="strip" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +ac_ct_STRIP=$ac_cv_prog_ac_ct_STRIP +if test -n "$ac_ct_STRIP"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_STRIP" >&5 +$as_echo "$ac_ct_STRIP" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + if test "x$ac_ct_STRIP" = x; then + STRIP=":" + else + case $cross_compiling:$ac_tool_warned in +yes:) +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +ac_tool_warned=yes ;; +esac + STRIP=$ac_ct_STRIP + fi +else + STRIP="$ac_cv_prog_STRIP" +fi + +fi +INSTALL_STRIP_PROGRAM="\$(install_sh) -c -s" + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for a thread-safe mkdir -p" >&5 +$as_echo_n "checking for a thread-safe mkdir -p... " >&6; } +if test -z "$MKDIR_P"; then + if ${ac_cv_path_mkdir+:} false; then : + $as_echo_n "(cached) " >&6 +else + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH$PATH_SEPARATOR/opt/sfw/bin +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_prog in mkdir gmkdir; do + for ac_exec_ext in '' $ac_executable_extensions; do + as_fn_executable_p "$as_dir/$ac_prog$ac_exec_ext" || continue + case `"$as_dir/$ac_prog$ac_exec_ext" --version 2>&1` in #( + 'mkdir (GNU coreutils) '* | \ + 'mkdir (coreutils) '* | \ + 'mkdir (fileutils) '4.1*) + ac_cv_path_mkdir=$as_dir/$ac_prog$ac_exec_ext + break 3;; + esac + done + done + done +IFS=$as_save_IFS + +fi + + test -d ./--version && rmdir ./--version + if test "${ac_cv_path_mkdir+set}" = set; then + MKDIR_P="$ac_cv_path_mkdir -p" + else + # As a last resort, use the slow shell script. Don't cache a + # value for MKDIR_P within a source directory, because that will + # break other packages using the cache if that directory is + # removed, or if the value is a relative name. + MKDIR_P="$ac_install_sh -d" + fi +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $MKDIR_P" >&5 +$as_echo "$MKDIR_P" >&6; } + +for ac_prog in gawk mawk nawk awk +do + # Extract the first word of "$ac_prog", so it can be a program name with args. +set dummy $ac_prog; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_AWK+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$AWK"; then + ac_cv_prog_AWK="$AWK" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_AWK="$ac_prog" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +AWK=$ac_cv_prog_AWK +if test -n "$AWK"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AWK" >&5 +$as_echo "$AWK" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + + test -n "$AWK" && break +done + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} sets \$(MAKE)" >&5 +$as_echo_n "checking whether ${MAKE-make} sets \$(MAKE)... " >&6; } +set x ${MAKE-make} +ac_make=`$as_echo "$2" | sed 's/+/p/g; s/[^a-zA-Z0-9_]/_/g'` +if eval \${ac_cv_prog_make_${ac_make}_set+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat >conftest.make <<\_ACEOF +SHELL = /bin/sh +all: + @echo '@@@%%%=$(MAKE)=@@@%%%' +_ACEOF +# GNU make sometimes prints "make[1]: Entering ...", which would confuse us. +case `${MAKE-make} -f conftest.make 2>/dev/null` in + *@@@%%%=?*=@@@%%%*) + eval ac_cv_prog_make_${ac_make}_set=yes;; + *) + eval ac_cv_prog_make_${ac_make}_set=no;; +esac +rm -f conftest.make +fi +if eval test \$ac_cv_prog_make_${ac_make}_set = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +$as_echo "yes" >&6; } + SET_MAKE= +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } + SET_MAKE="MAKE=${MAKE-make}" +fi + +rm -rf .tst 2>/dev/null +mkdir .tst 2>/dev/null +if test -d .tst; then + am__leading_dot=. +else + am__leading_dot=_ +fi +rmdir .tst 2>/dev/null + +# Check whether --enable-silent-rules was given. +if test "${enable_silent_rules+set}" = set; then : + enableval=$enable_silent_rules; +fi + +case $enable_silent_rules in # ((( + yes) AM_DEFAULT_VERBOSITY=0;; + no) AM_DEFAULT_VERBOSITY=1;; + *) AM_DEFAULT_VERBOSITY=1;; +esac +am_make=${MAKE-make} +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $am_make supports nested variables" >&5 +$as_echo_n "checking whether $am_make supports nested variables... " >&6; } +if ${am_cv_make_support_nested_variables+:} false; then : + $as_echo_n "(cached) " >&6 +else + if $as_echo 'TRUE=$(BAR$(V)) +BAR0=false +BAR1=true +V=1 +am__doit: + @$(TRUE) +.PHONY: am__doit' | $am_make -f - >/dev/null 2>&1; then + am_cv_make_support_nested_variables=yes +else + am_cv_make_support_nested_variables=no +fi +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_make_support_nested_variables" >&5 +$as_echo "$am_cv_make_support_nested_variables" >&6; } +if test $am_cv_make_support_nested_variables = yes; then + AM_V='$(V)' + AM_DEFAULT_V='$(AM_DEFAULT_VERBOSITY)' +else + AM_V=$AM_DEFAULT_VERBOSITY + AM_DEFAULT_V=$AM_DEFAULT_VERBOSITY +fi +AM_BACKSLASH='\' + +if test "`cd $srcdir && pwd`" != "`pwd`"; then + # Use -I$(srcdir) only when $(srcdir) != ., so that make's output + # is not polluted with repeated "-I." + am__isrc=' -I$(srcdir)' + # test to see if srcdir already configured + if test -f $srcdir/config.status; then + as_fn_error $? "source directory already configured; run \"make distclean\" there first" "$LINENO" 5 + fi +fi + +# test whether we have cygpath +if test -z "$CYGPATH_W"; then + if (cygpath --version) >/dev/null 2>/dev/null; then + CYGPATH_W='cygpath -w' + else + CYGPATH_W=echo + fi +fi + + +# Define the identity of the package. + PACKAGE='libffcall' + VERSION='2.2' + + +cat >>confdefs.h <<_ACEOF +#define PACKAGE "$PACKAGE" +_ACEOF + + +cat >>confdefs.h <<_ACEOF +#define VERSION "$VERSION" +_ACEOF + +# Some tools Automake needs. + +ACLOCAL=${ACLOCAL-"${am_missing_run}aclocal-${am__api_version}"} + + +AUTOCONF=${AUTOCONF-"${am_missing_run}autoconf"} + + +AUTOMAKE=${AUTOMAKE-"${am_missing_run}automake-${am__api_version}"} + + +AUTOHEADER=${AUTOHEADER-"${am_missing_run}autoheader"} + + +MAKEINFO=${MAKEINFO-"${am_missing_run}makeinfo"} + +# For better backward compatibility. To be removed once Automake 1.9.x +# dies out for good. For more background, see: +# +# +mkdir_p='$(MKDIR_P)' + +# We need awk for the "check" target (and possibly the TAP driver). The +# system "awk" is bad on some platforms. +# Always define AMTAR for backward compatibility. Yes, it's still used +# in the wild :-( We should find a proper way to deprecate it ... +AMTAR='$${TAR-tar}' + + +# We'll loop over all known methods to create a tar archive until one works. +_am_tools='gnutar pax cpio none' + +am__tar='$${TAR-tar} chof - "$$tardir"' am__untar='$${TAR-tar} xf -' + + + + + + +# POSIX will say in a future version that running "rm -f" with no argument +# is OK; and we want to be able to make that assumption in our Makefile +# recipes. So use an aggressive probe to check that the usage we want is +# actually supported "in the wild" to an acceptable degree. +# See automake bug#10828. +# To make any issue more visible, cause the running configure to be aborted +# by default if the 'rm' program in use doesn't match our expectations; the +# user can still override this though. +if rm -f && rm -fr && rm -rf; then : OK; else + cat >&2 <<'END' +Oops! + +Your 'rm' program seems unable to run without file operands specified +on the command line, even when the '-f' option is present. This is contrary +to the behaviour of most rm programs out there, and not conforming with +the upcoming POSIX standard: + +Please tell bug-automake@gnu.org about your system, including the value +of your $PATH and any error possibly output before this message. This +can help us improve future automake versions. + +END + if test x"$ACCEPT_INFERIOR_RM_PROGRAM" = x"yes"; then + echo 'Configuration will proceed anyway, since you have set the' >&2 + echo 'ACCEPT_INFERIOR_RM_PROGRAM variable to "yes"' >&2 + echo >&2 + else + cat >&2 <<'END' +Aborting the configuration process, to ensure you take notice of the issue. + +You can download and install GNU coreutils to get an 'rm' implementation +that behaves properly: . + +If you want to complete the configuration process using your problematic +'rm' anyway, export the environment variable ACCEPT_INFERIOR_RM_PROGRAM +to "yes", and re-run configure. + +END + as_fn_error $? "Your 'rm' program is bad, sorry." "$LINENO" 5 + fi +fi + + + + +ac_config_headers="$ac_config_headers config.h" + +ac_config_headers="$ac_config_headers ffcall-version.h:ffcall-version.in.h" + + +ac_config_files="$ac_config_files Makefile" + +ac_config_files="$ac_config_files gnulib-lib/Makefile" + +ac_config_files="$ac_config_files avcall/Makefile" + +ac_config_files="$ac_config_files vacall/Makefile" + +ac_config_files="$ac_config_files trampoline/Makefile" + +ac_config_files="$ac_config_files callback/Makefile" + +ac_config_files="$ac_config_files callback/vacall_r/Makefile" + +ac_config_files="$ac_config_files callback/trampoline_r/Makefile" + + + +sed_extract_major='/^[0-9]/{s/^\([0-9]*\).*/\1/p;q;} +i\ +0 +q +' +sed_extract_minor='/^[0-9][0-9]*[.][0-9]/{s/^[0-9]*[.]\([0-9]*\).*/\1/p;q;} +i\ +0 +q +' + +version_major=`echo "${PACKAGE_VERSION}" | sed -n -e "$sed_extract_major"` +version_minor=`echo "${PACKAGE_VERSION}" | sed -n -e "$sed_extract_minor"` +HEXVERSION=`printf '0x%02X%02X' $version_major $version_minor` + +cat >>confdefs.h <<_ACEOF +#define LIBFFCALL_VERSION $HEXVERSION +_ACEOF + + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} sets \$(MAKE)" >&5 +$as_echo_n "checking whether ${MAKE-make} sets \$(MAKE)... " >&6; } +set x ${MAKE-make} +ac_make=`$as_echo "$2" | sed 's/+/p/g; s/[^a-zA-Z0-9_]/_/g'` +if eval \${ac_cv_prog_make_${ac_make}_set+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat >conftest.make <<\_ACEOF +SHELL = /bin/sh +all: + @echo '@@@%%%=$(MAKE)=@@@%%%' +_ACEOF +# GNU make sometimes prints "make[1]: Entering ...", which would confuse us. +case `${MAKE-make} -f conftest.make 2>/dev/null` in + *@@@%%%=?*=@@@%%%*) + eval ac_cv_prog_make_${ac_make}_set=yes;; + *) + eval ac_cv_prog_make_${ac_make}_set=no;; +esac +rm -f conftest.make +fi +if eval test \$ac_cv_prog_make_${ac_make}_set = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +$as_echo "yes" >&6; } + SET_MAKE= +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } + SET_MAKE="MAKE=${MAKE-make}" +fi + + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu +if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args. +set dummy ${ac_tool_prefix}gcc; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_CC+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$CC"; then + ac_cv_prog_CC="$CC" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_CC="${ac_tool_prefix}gcc" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +CC=$ac_cv_prog_CC +if test -n "$CC"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 +$as_echo "$CC" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + +fi +if test -z "$ac_cv_prog_CC"; then + ac_ct_CC=$CC + # Extract the first word of "gcc", so it can be a program name with args. +set dummy gcc; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_ac_ct_CC+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$ac_ct_CC"; then + ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_CC="gcc" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +ac_ct_CC=$ac_cv_prog_ac_ct_CC +if test -n "$ac_ct_CC"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 +$as_echo "$ac_ct_CC" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + if test "x$ac_ct_CC" = x; then + CC="" + else + case $cross_compiling:$ac_tool_warned in +yes:) +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +ac_tool_warned=yes ;; +esac + CC=$ac_ct_CC + fi +else + CC="$ac_cv_prog_CC" +fi + +if test -z "$CC"; then + if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args. +set dummy ${ac_tool_prefix}cc; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_CC+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$CC"; then + ac_cv_prog_CC="$CC" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_CC="${ac_tool_prefix}cc" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +CC=$ac_cv_prog_CC +if test -n "$CC"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 +$as_echo "$CC" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + + fi +fi +if test -z "$CC"; then + # Extract the first word of "cc", so it can be a program name with args. +set dummy cc; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_CC+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$CC"; then + ac_cv_prog_CC="$CC" # Let the user override the test. +else + ac_prog_rejected=no +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then + ac_prog_rejected=yes + continue + fi + ac_cv_prog_CC="cc" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +if test $ac_prog_rejected = yes; then + # We found a bogon in the path, so make sure we never use it. + set dummy $ac_cv_prog_CC + shift + if test $# != 0; then + # We chose a different compiler from the bogus one. + # However, it has the same basename, so the bogon will be chosen + # first if we set CC to just the basename; use the full file name. + shift + ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@" + fi +fi +fi +fi +CC=$ac_cv_prog_CC +if test -n "$CC"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 +$as_echo "$CC" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + +fi +if test -z "$CC"; then + if test -n "$ac_tool_prefix"; then + for ac_prog in cl.exe + do + # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. +set dummy $ac_tool_prefix$ac_prog; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_CC+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$CC"; then + ac_cv_prog_CC="$CC" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_CC="$ac_tool_prefix$ac_prog" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +CC=$ac_cv_prog_CC +if test -n "$CC"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 +$as_echo "$CC" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + + test -n "$CC" && break + done +fi +if test -z "$CC"; then + ac_ct_CC=$CC + for ac_prog in cl.exe +do + # Extract the first word of "$ac_prog", so it can be a program name with args. +set dummy $ac_prog; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_ac_ct_CC+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$ac_ct_CC"; then + ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_CC="$ac_prog" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +ac_ct_CC=$ac_cv_prog_ac_ct_CC +if test -n "$ac_ct_CC"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 +$as_echo "$ac_ct_CC" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + + test -n "$ac_ct_CC" && break +done + + if test "x$ac_ct_CC" = x; then + CC="" + else + case $cross_compiling:$ac_tool_warned in +yes:) +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +ac_tool_warned=yes ;; +esac + CC=$ac_ct_CC + fi +fi + +fi + + +test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error $? "no acceptable C compiler found in \$PATH +See \`config.log' for more details" "$LINENO" 5; } + +# Provide some information about the compiler. +$as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5 +set X $ac_compile +ac_compiler=$2 +for ac_option in --version -v -V -qversion; do + { { ac_try="$ac_compiler $ac_option >&5" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_compiler $ac_option >&5") 2>conftest.err + ac_status=$? + if test -s conftest.err; then + sed '10a\ +... rest of stderr output deleted ... + 10q' conftest.err >conftest.er1 + cat conftest.er1 >&5 + fi + rm -f conftest.er1 conftest.err + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } +done + +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +ac_clean_files_save=$ac_clean_files +ac_clean_files="$ac_clean_files a.out a.out.dSYM a.exe b.out" +# Try to create an executable without -o first, disregard a.out. +# It will help us diagnose broken compilers, and finding out an intuition +# of exeext. +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler works" >&5 +$as_echo_n "checking whether the C compiler works... " >&6; } +ac_link_default=`$as_echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'` + +# The possible output files: +ac_files="a.out conftest.exe conftest a.exe a_out.exe b.out conftest.*" + +ac_rmfiles= +for ac_file in $ac_files +do + case $ac_file in + *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; + * ) ac_rmfiles="$ac_rmfiles $ac_file";; + esac +done +rm -f $ac_rmfiles + +if { { ac_try="$ac_link_default" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_link_default") 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; then : + # Autoconf-2.13 could set the ac_cv_exeext variable to `no'. +# So ignore a value of `no', otherwise this would lead to `EXEEXT = no' +# in a Makefile. We should not override ac_cv_exeext if it was cached, +# so that the user can short-circuit this test for compilers unknown to +# Autoconf. +for ac_file in $ac_files '' +do + test -f "$ac_file" || continue + case $ac_file in + *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) + ;; + [ab].out ) + # We found the default executable, but exeext='' is most + # certainly right. + break;; + *.* ) + if test "${ac_cv_exeext+set}" = set && test "$ac_cv_exeext" != no; + then :; else + ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` + fi + # We set ac_cv_exeext here because the later test for it is not + # safe: cross compilers may not add the suffix if given an `-o' + # argument, so we may need to know it at that point already. + # Even if this section looks crufty: it has the advantage of + # actually working. + break;; + * ) + break;; + esac +done +test "$ac_cv_exeext" = no && ac_cv_exeext= + +else + ac_file='' +fi +if test -z "$ac_file"; then : + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +$as_echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error 77 "C compiler cannot create executables +See \`config.log' for more details" "$LINENO" 5; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +$as_echo "yes" >&6; } +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler default output file name" >&5 +$as_echo_n "checking for C compiler default output file name... " >&6; } +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_file" >&5 +$as_echo "$ac_file" >&6; } +ac_exeext=$ac_cv_exeext + +rm -f -r a.out a.out.dSYM a.exe conftest$ac_cv_exeext b.out +ac_clean_files=$ac_clean_files_save +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of executables" >&5 +$as_echo_n "checking for suffix of executables... " >&6; } +if { { ac_try="$ac_link" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_link") 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; then : + # If both `conftest.exe' and `conftest' are `present' (well, observable) +# catch `conftest.exe'. For instance with Cygwin, `ls conftest' will +# work properly (i.e., refer to `conftest.exe'), while it won't with +# `rm'. +for ac_file in conftest.exe conftest conftest.*; do + test -f "$ac_file" || continue + case $ac_file in + *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; + *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` + break;; + * ) break;; + esac +done +else + { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error $? "cannot compute suffix of executables: cannot compile and link +See \`config.log' for more details" "$LINENO" 5; } +fi +rm -f conftest conftest$ac_cv_exeext +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5 +$as_echo "$ac_cv_exeext" >&6; } + +rm -f conftest.$ac_ext +EXEEXT=$ac_cv_exeext +ac_exeext=$EXEEXT +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +int +main () +{ +FILE *f = fopen ("conftest.out", "w"); + return ferror (f) || fclose (f) != 0; + + ; + return 0; +} +_ACEOF +ac_clean_files="$ac_clean_files conftest.out" +# Check that the compiler produces executables we can run. If not, either +# the compiler is broken, or we cross compile. +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are cross compiling" >&5 +$as_echo_n "checking whether we are cross compiling... " >&6; } +if test "$cross_compiling" != yes; then + { { ac_try="$ac_link" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_link") 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } + if { ac_try='./conftest$ac_cv_exeext' + { { case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_try") 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; }; then + cross_compiling=no + else + if test "$cross_compiling" = maybe; then + cross_compiling=yes + else + { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error $? "cannot run C compiled programs. +If you meant to cross compile, use \`--host'. +See \`config.log' for more details" "$LINENO" 5; } + fi + fi +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $cross_compiling" >&5 +$as_echo "$cross_compiling" >&6; } + +rm -f conftest.$ac_ext conftest$ac_cv_exeext conftest.out +ac_clean_files=$ac_clean_files_save +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of object files" >&5 +$as_echo_n "checking for suffix of object files... " >&6; } +if ${ac_cv_objext+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +rm -f conftest.o conftest.obj +if { { ac_try="$ac_compile" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_compile") 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; then : + for ac_file in conftest.o conftest.obj conftest.*; do + test -f "$ac_file" || continue; + case $ac_file in + *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM ) ;; + *) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'` + break;; + esac +done +else + $as_echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error $? "cannot compute suffix of object files: cannot compile +See \`config.log' for more details" "$LINENO" 5; } +fi +rm -f conftest.$ac_cv_objext conftest.$ac_ext +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_objext" >&5 +$as_echo "$ac_cv_objext" >&6; } +OBJEXT=$ac_cv_objext +ac_objext=$OBJEXT +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C compiler" >&5 +$as_echo_n "checking whether we are using the GNU C compiler... " >&6; } +if ${ac_cv_c_compiler_gnu+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main () +{ +#ifndef __GNUC__ + choke me +#endif + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_compiler_gnu=yes +else + ac_compiler_gnu=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +ac_cv_c_compiler_gnu=$ac_compiler_gnu + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5 +$as_echo "$ac_cv_c_compiler_gnu" >&6; } +if test $ac_compiler_gnu = yes; then + GCC=yes +else + GCC= +fi +ac_test_CFLAGS=${CFLAGS+set} +ac_save_CFLAGS=$CFLAGS +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5 +$as_echo_n "checking whether $CC accepts -g... " >&6; } +if ${ac_cv_prog_cc_g+:} false; then : + $as_echo_n "(cached) " >&6 +else + ac_save_c_werror_flag=$ac_c_werror_flag + ac_c_werror_flag=yes + ac_cv_prog_cc_g=no + CFLAGS="-g" + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_cv_prog_cc_g=yes +else + CFLAGS="" + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + +else + ac_c_werror_flag=$ac_save_c_werror_flag + CFLAGS="-g" + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_cv_prog_cc_g=yes +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + ac_c_werror_flag=$ac_save_c_werror_flag +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5 +$as_echo "$ac_cv_prog_cc_g" >&6; } +if test "$ac_test_CFLAGS" = set; then + CFLAGS=$ac_save_CFLAGS +elif test $ac_cv_prog_cc_g = yes; then + if test "$GCC" = yes; then + CFLAGS="-g -O2" + else + CFLAGS="-g" + fi +else + if test "$GCC" = yes; then + CFLAGS="-O2" + else + CFLAGS= + fi +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C89" >&5 +$as_echo_n "checking for $CC option to accept ISO C89... " >&6; } +if ${ac_cv_prog_cc_c89+:} false; then : + $as_echo_n "(cached) " >&6 +else + ac_cv_prog_cc_c89=no +ac_save_CC=$CC +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +#include +struct stat; +/* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */ +struct buf { int x; }; +FILE * (*rcsopen) (struct buf *, struct stat *, int); +static char *e (p, i) + char **p; + int i; +{ + return p[i]; +} +static char *f (char * (*g) (char **, int), char **p, ...) +{ + char *s; + va_list v; + va_start (v,p); + s = g (p, va_arg (v,int)); + va_end (v); + return s; +} + +/* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has + function prototypes and stuff, but not '\xHH' hex character constants. + These don't provoke an error unfortunately, instead are silently treated + as 'x'. The following induces an error, until -std is added to get + proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an + array size at least. It's necessary to write '\x00'==0 to get something + that's true only with -std. */ +int osf4_cc_array ['\x00' == 0 ? 1 : -1]; + +/* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters + inside strings and character constants. */ +#define FOO(x) 'x' +int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1]; + +int test (int i, double x); +struct s1 {int (*f) (int a);}; +struct s2 {int (*f) (double a);}; +int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int); +int argc; +char **argv; +int +main () +{ +return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]; + ; + return 0; +} +_ACEOF +for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \ + -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" +do + CC="$ac_save_CC $ac_arg" + if ac_fn_c_try_compile "$LINENO"; then : + ac_cv_prog_cc_c89=$ac_arg +fi +rm -f core conftest.err conftest.$ac_objext + test "x$ac_cv_prog_cc_c89" != "xno" && break +done +rm -f conftest.$ac_ext +CC=$ac_save_CC + +fi +# AC_CACHE_VAL +case "x$ac_cv_prog_cc_c89" in + x) + { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 +$as_echo "none needed" >&6; } ;; + xno) + { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 +$as_echo "unsupported" >&6; } ;; + *) + CC="$CC $ac_cv_prog_cc_c89" + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5 +$as_echo "$ac_cv_prog_cc_c89" >&6; } ;; +esac +if test "x$ac_cv_prog_cc_c89" != xno; then : + +fi + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC understands -c and -o together" >&5 +$as_echo_n "checking whether $CC understands -c and -o together... " >&6; } +if ${am_cv_prog_cc_c_o+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF + # Make sure it works both with $CC and with simple cc. + # Following AC_PROG_CC_C_O, we do the test twice because some + # compilers refuse to overwrite an existing .o file with -o, + # though they will create one. + am_cv_prog_cc_c_o=yes + for am_i in 1 2; do + if { echo "$as_me:$LINENO: $CC -c conftest.$ac_ext -o conftest2.$ac_objext" >&5 + ($CC -c conftest.$ac_ext -o conftest2.$ac_objext) >&5 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } \ + && test -f conftest2.$ac_objext; then + : OK + else + am_cv_prog_cc_c_o=no + break + fi + done + rm -f core conftest* + unset am_i +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_prog_cc_c_o" >&5 +$as_echo "$am_cv_prog_cc_c_o" >&6; } +if test "$am_cv_prog_cc_c_o" != yes; then + # Losing compiler, so override with the script. + # FIXME: It is wrong to rewrite CC. + # But if we don't then we get into trouble of one sort or another. + # A longer-term fix would be to have automake use am__CC in this case, + # and then we could set am__CC="\$(top_srcdir)/compile \$(CC)" + CC="$am_aux_dir/compile $CC" +fi +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + +DEPDIR="${am__leading_dot}deps" + +ac_config_commands="$ac_config_commands depfiles" + + +am_make=${MAKE-make} +cat > confinc << 'END' +am__doit: + @echo this is the am__doit target +.PHONY: am__doit +END +# If we don't find an include directive, just comment out the code. +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for style of include used by $am_make" >&5 +$as_echo_n "checking for style of include used by $am_make... " >&6; } +am__include="#" +am__quote= +_am_result=none +# First try GNU make style include. +echo "include confinc" > confmf +# Ignore all kinds of additional output from 'make'. +case `$am_make -s -f confmf 2> /dev/null` in #( +*the\ am__doit\ target*) + am__include=include + am__quote= + _am_result=GNU + ;; +esac +# Now try BSD make style include. +if test "$am__include" = "#"; then + echo '.include "confinc"' > confmf + case `$am_make -s -f confmf 2> /dev/null` in #( + *the\ am__doit\ target*) + am__include=.include + am__quote="\"" + _am_result=BSD + ;; + esac +fi + + +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $_am_result" >&5 +$as_echo "$_am_result" >&6; } +rm -f confinc confmf + +# Check whether --enable-dependency-tracking was given. +if test "${enable_dependency_tracking+set}" = set; then : + enableval=$enable_dependency_tracking; +fi + +if test "x$enable_dependency_tracking" != xno; then + am_depcomp="$ac_aux_dir/depcomp" + AMDEPBACKSLASH='\' + am__nodep='_no' +fi + if test "x$enable_dependency_tracking" != xno; then + AMDEP_TRUE= + AMDEP_FALSE='#' +else + AMDEP_TRUE='#' + AMDEP_FALSE= +fi + + + +depcc="$CC" am_compiler_list= + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5 +$as_echo_n "checking dependency style of $depcc... " >&6; } +if ${am_cv_CC_dependencies_compiler_type+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then + # We make a subdir and do the tests there. Otherwise we can end up + # making bogus files that we don't know about and never remove. For + # instance it was reported that on HP-UX the gcc test will end up + # making a dummy file named 'D' -- because '-MD' means "put the output + # in D". + rm -rf conftest.dir + mkdir conftest.dir + # Copy depcomp to subdir because otherwise we won't find it if we're + # using a relative directory. + cp "$am_depcomp" conftest.dir + cd conftest.dir + # We will build objects and dependencies in a subdirectory because + # it helps to detect inapplicable dependency modes. For instance + # both Tru64's cc and ICC support -MD to output dependencies as a + # side effect of compilation, but ICC will put the dependencies in + # the current directory while Tru64 will put them in the object + # directory. + mkdir sub + + am_cv_CC_dependencies_compiler_type=none + if test "$am_compiler_list" = ""; then + am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp` + fi + am__universal=false + case " $depcc " in #( + *\ -arch\ *\ -arch\ *) am__universal=true ;; + esac + + for depmode in $am_compiler_list; do + # Setup a source with many dependencies, because some compilers + # like to wrap large dependency lists on column 80 (with \), and + # we should not choose a depcomp mode which is confused by this. + # + # We need to recreate these files for each test, as the compiler may + # overwrite some of them when testing with obscure command lines. + # This happens at least with the AIX C compiler. + : > sub/conftest.c + for i in 1 2 3 4 5 6; do + echo '#include "conftst'$i'.h"' >> sub/conftest.c + # Using ": > sub/conftst$i.h" creates only sub/conftst1.h with + # Solaris 10 /bin/sh. + echo '/* dummy */' > sub/conftst$i.h + done + echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf + + # We check with '-c' and '-o' for the sake of the "dashmstdout" + # mode. It turns out that the SunPro C++ compiler does not properly + # handle '-M -o', and we need to detect this. Also, some Intel + # versions had trouble with output in subdirs. + am__obj=sub/conftest.${OBJEXT-o} + am__minus_obj="-o $am__obj" + case $depmode in + gcc) + # This depmode causes a compiler race in universal mode. + test "$am__universal" = false || continue + ;; + nosideeffect) + # After this tag, mechanisms are not by side-effect, so they'll + # only be used when explicitly requested. + if test "x$enable_dependency_tracking" = xyes; then + continue + else + break + fi + ;; + msvc7 | msvc7msys | msvisualcpp | msvcmsys) + # This compiler won't grok '-c -o', but also, the minuso test has + # not run yet. These depmodes are late enough in the game, and + # so weak that their functioning should not be impacted. + am__obj=conftest.${OBJEXT-o} + am__minus_obj= + ;; + none) break ;; + esac + if depmode=$depmode \ + source=sub/conftest.c object=$am__obj \ + depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ + $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \ + >/dev/null 2>conftest.err && + grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 && + grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && + grep $am__obj sub/conftest.Po > /dev/null 2>&1 && + ${MAKE-make} -s -f confmf > /dev/null 2>&1; then + # icc doesn't choke on unknown options, it will just issue warnings + # or remarks (even with -Werror). So we grep stderr for any message + # that says an option was ignored or not supported. + # When given -MP, icc 7.0 and 7.1 complain thusly: + # icc: Command line warning: ignoring option '-M'; no argument required + # The diagnosis changed in icc 8.0: + # icc: Command line remark: option '-MP' not supported + if (grep 'ignoring option' conftest.err || + grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else + am_cv_CC_dependencies_compiler_type=$depmode + break + fi + fi + done + + cd .. + rm -rf conftest.dir +else + am_cv_CC_dependencies_compiler_type=none +fi + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_CC_dependencies_compiler_type" >&5 +$as_echo "$am_cv_CC_dependencies_compiler_type" >&6; } +CCDEPMODE=depmode=$am_cv_CC_dependencies_compiler_type + + if + test "x$enable_dependency_tracking" != xno \ + && test "$am_cv_CC_dependencies_compiler_type" = gcc3; then + am__fastdepCC_TRUE= + am__fastdepCC_FALSE='#' +else + am__fastdepCC_TRUE='#' + am__fastdepCC_FALSE= +fi + + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to run the C preprocessor" >&5 +$as_echo_n "checking how to run the C preprocessor... " >&6; } +# On Suns, sometimes $CPP names a directory. +if test -n "$CPP" && test -d "$CPP"; then + CPP= +fi +if test -z "$CPP"; then + if ${ac_cv_prog_CPP+:} false; then : + $as_echo_n "(cached) " >&6 +else + # Double quotes because CPP needs to be expanded + for CPP in "$CC -E" "$CC -E -traditional-cpp" "/lib/cpp" + do + ac_preproc_ok=false +for ac_c_preproc_warn_flag in '' yes +do + # Use a header file that comes with gcc, so configuring glibc + # with a fresh cross-compiler works. + # Prefer to if __STDC__ is defined, since + # exists even on freestanding compilers. + # On the NeXT, cc -E runs the code through the compiler's parser, + # not just through cpp. "Syntax error" is here to catch this case. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#ifdef __STDC__ +# include +#else +# include +#endif + Syntax error +_ACEOF +if ac_fn_c_try_cpp "$LINENO"; then : + +else + # Broken: fails on valid input. +continue +fi +rm -f conftest.err conftest.i conftest.$ac_ext + + # OK, works on sane cases. Now check whether nonexistent headers + # can be detected and how. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +_ACEOF +if ac_fn_c_try_cpp "$LINENO"; then : + # Broken: success on invalid input. +continue +else + # Passes both tests. +ac_preproc_ok=: +break +fi +rm -f conftest.err conftest.i conftest.$ac_ext + +done +# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. +rm -f conftest.i conftest.err conftest.$ac_ext +if $ac_preproc_ok; then : + break +fi + + done + ac_cv_prog_CPP=$CPP + +fi + CPP=$ac_cv_prog_CPP +else + ac_cv_prog_CPP=$CPP +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $CPP" >&5 +$as_echo "$CPP" >&6; } +ac_preproc_ok=false +for ac_c_preproc_warn_flag in '' yes +do + # Use a header file that comes with gcc, so configuring glibc + # with a fresh cross-compiler works. + # Prefer to if __STDC__ is defined, since + # exists even on freestanding compilers. + # On the NeXT, cc -E runs the code through the compiler's parser, + # not just through cpp. "Syntax error" is here to catch this case. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#ifdef __STDC__ +# include +#else +# include +#endif + Syntax error +_ACEOF +if ac_fn_c_try_cpp "$LINENO"; then : + +else + # Broken: fails on valid input. +continue +fi +rm -f conftest.err conftest.i conftest.$ac_ext + + # OK, works on sane cases. Now check whether nonexistent headers + # can be detected and how. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +_ACEOF +if ac_fn_c_try_cpp "$LINENO"; then : + # Broken: success on invalid input. +continue +else + # Passes both tests. +ac_preproc_ok=: +break +fi +rm -f conftest.err conftest.i conftest.$ac_ext + +done +# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. +rm -f conftest.i conftest.err conftest.$ac_ext +if $ac_preproc_ok; then : + +else + { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error $? "C preprocessor \"$CPP\" fails sanity check +See \`config.log' for more details" "$LINENO" 5; } +fi + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + + + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for grep that handles long lines and -e" >&5 +$as_echo_n "checking for grep that handles long lines and -e... " >&6; } +if ${ac_cv_path_GREP+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -z "$GREP"; then + ac_path_GREP_found=false + # Loop through the user's path and test for each of PROGNAME-LIST + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_prog in grep ggrep; do + for ac_exec_ext in '' $ac_executable_extensions; do + ac_path_GREP="$as_dir/$ac_prog$ac_exec_ext" + as_fn_executable_p "$ac_path_GREP" || continue +# Check for GNU ac_path_GREP and select it if it is found. + # Check for GNU $ac_path_GREP +case `"$ac_path_GREP" --version 2>&1` in +*GNU*) + ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_found=:;; +*) + ac_count=0 + $as_echo_n 0123456789 >"conftest.in" + while : + do + cat "conftest.in" "conftest.in" >"conftest.tmp" + mv "conftest.tmp" "conftest.in" + cp "conftest.in" "conftest.nl" + $as_echo 'GREP' >> "conftest.nl" + "$ac_path_GREP" -e 'GREP$' -e '-(cannot match)-' < "conftest.nl" >"conftest.out" 2>/dev/null || break + diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break + as_fn_arith $ac_count + 1 && ac_count=$as_val + if test $ac_count -gt ${ac_path_GREP_max-0}; then + # Best one so far, save it but keep looking for a better one + ac_cv_path_GREP="$ac_path_GREP" + ac_path_GREP_max=$ac_count + fi + # 10*(2^10) chars as input seems more than enough + test $ac_count -gt 10 && break + done + rm -f conftest.in conftest.tmp conftest.nl conftest.out;; +esac + + $ac_path_GREP_found && break 3 + done + done + done +IFS=$as_save_IFS + if test -z "$ac_cv_path_GREP"; then + as_fn_error $? "no acceptable grep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 + fi +else + ac_cv_path_GREP=$GREP +fi + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_GREP" >&5 +$as_echo "$ac_cv_path_GREP" >&6; } + GREP="$ac_cv_path_GREP" + + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for egrep" >&5 +$as_echo_n "checking for egrep... " >&6; } +if ${ac_cv_path_EGREP+:} false; then : + $as_echo_n "(cached) " >&6 +else + if echo a | $GREP -E '(a|b)' >/dev/null 2>&1 + then ac_cv_path_EGREP="$GREP -E" + else + if test -z "$EGREP"; then + ac_path_EGREP_found=false + # Loop through the user's path and test for each of PROGNAME-LIST + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_prog in egrep; do + for ac_exec_ext in '' $ac_executable_extensions; do + ac_path_EGREP="$as_dir/$ac_prog$ac_exec_ext" + as_fn_executable_p "$ac_path_EGREP" || continue +# Check for GNU ac_path_EGREP and select it if it is found. + # Check for GNU $ac_path_EGREP +case `"$ac_path_EGREP" --version 2>&1` in +*GNU*) + ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_found=:;; +*) + ac_count=0 + $as_echo_n 0123456789 >"conftest.in" + while : + do + cat "conftest.in" "conftest.in" >"conftest.tmp" + mv "conftest.tmp" "conftest.in" + cp "conftest.in" "conftest.nl" + $as_echo 'EGREP' >> "conftest.nl" + "$ac_path_EGREP" 'EGREP$' < "conftest.nl" >"conftest.out" 2>/dev/null || break + diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break + as_fn_arith $ac_count + 1 && ac_count=$as_val + if test $ac_count -gt ${ac_path_EGREP_max-0}; then + # Best one so far, save it but keep looking for a better one + ac_cv_path_EGREP="$ac_path_EGREP" + ac_path_EGREP_max=$ac_count + fi + # 10*(2^10) chars as input seems more than enough + test $ac_count -gt 10 && break + done + rm -f conftest.in conftest.tmp conftest.nl conftest.out;; +esac + + $ac_path_EGREP_found && break 3 + done + done + done +IFS=$as_save_IFS + if test -z "$ac_cv_path_EGREP"; then + as_fn_error $? "no acceptable egrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 + fi +else + ac_cv_path_EGREP=$EGREP +fi + + fi +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_EGREP" >&5 +$as_echo "$ac_cv_path_EGREP" >&6; } + EGREP="$ac_cv_path_EGREP" + + +if test $ac_cv_c_compiler_gnu = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC needs -traditional" >&5 +$as_echo_n "checking whether $CC needs -traditional... " >&6; } +if ${ac_cv_prog_gcc_traditional+:} false; then : + $as_echo_n "(cached) " >&6 +else + ac_pattern="Autoconf.*'x'" + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +Autoconf TIOCGETP +_ACEOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + $EGREP "$ac_pattern" >/dev/null 2>&1; then : + ac_cv_prog_gcc_traditional=yes +else + ac_cv_prog_gcc_traditional=no +fi +rm -f conftest* + + + if test $ac_cv_prog_gcc_traditional = no; then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +Autoconf TCGETA +_ACEOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + $EGREP "$ac_pattern" >/dev/null 2>&1; then : + ac_cv_prog_gcc_traditional=yes +fi +rm -f conftest* + + fi +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_gcc_traditional" >&5 +$as_echo "$ac_cv_prog_gcc_traditional" >&6; } + if test $ac_cv_prog_gcc_traditional = yes; then + CC="$CC -traditional" + fi +fi + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether using GNU C" >&5 +$as_echo_n "checking whether using GNU C... " >&6; } +if ${cl_cv_prog_cc_gcc+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#ifdef __GNUC__ + yes + #endif + +_ACEOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + $EGREP "yes" >/dev/null 2>&1; then : + cl_cv_prog_cc_gcc=yes +else + cl_cv_prog_cc_gcc=no +fi +rm -f conftest* + + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $cl_cv_prog_cc_gcc" >&5 +$as_echo "$cl_cv_prog_cc_gcc" >&6; } + if test $cl_cv_prog_cc_gcc = yes; then + CC_GCC=true + GCC_X_NONE='-x none' + else + CC_GCC=false + GCC_X_NONE='' + fi + + + + + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#ifdef _MSC_VER +MicrosoftCompiler +#endif + +_ACEOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + $EGREP "MicrosoftCompiler" >/dev/null 2>&1; then : + gl_asmext='asm' + gl_c_asm_opt='-c -Fa' + +else + gl_asmext='s' + gl_c_asm_opt='-S' + +fi +rm -f conftest* + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether C symbols are prefixed with underscore at the linker level" >&5 +$as_echo_n "checking whether C symbols are prefixed with underscore at the linker level... " >&6; } +if ${gl_cv_prog_as_underscore+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat > conftest.c <&5 + (eval $ac_try) 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; } >/dev/null 2>&1 + if LC_ALL=C $EGREP '(^|[^a-zA-Z0-9_])_foo([^a-zA-Z0-9_]|$)' conftest.$gl_asmext >/dev/null; then + gl_cv_prog_as_underscore=yes + else + gl_cv_prog_as_underscore=no + fi + rm -f conftest* + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_prog_as_underscore" >&5 +$as_echo "$gl_cv_prog_as_underscore" >&6; } + if test $gl_cv_prog_as_underscore = yes; then + USER_LABEL_PREFIX=_ + else + USER_LABEL_PREFIX= + fi + +cat >>confdefs.h <<_ACEOF +#define USER_LABEL_PREFIX $USER_LABEL_PREFIX +_ACEOF + + ASM_SYMBOL_PREFIX='"'${USER_LABEL_PREFIX}'"' + + + + + if test "$USER_LABEL_PREFIX" = '_'; then + AS_UNDERSCORE=true + else + AS_UNDERSCORE=false + fi + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to use C++" >&5 +$as_echo_n "checking whether to use C++... " >&6; } + # Check whether --enable-c++ was given. +if test "${enable_c__+set}" = set; then : + enableval=$enable_c__; CXX_CHOICE="$enableval" +else + CXX_CHOICE=yes +fi + + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CXX_CHOICE" >&5 +$as_echo "$CXX_CHOICE" >&6; } + + + + + + if test "$CXX_CHOICE" = no; then + CXX=no + fi + if test -z "$CXX"; then + if test -n "$CCC"; then + CXX="$CCC" + else + if test -n "$ac_tool_prefix"; then + for ac_prog in g++ c++ gpp aCC CC cxx cc++ cl FCC KCC RCC xlC_r xlC + do + # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. +set dummy $ac_tool_prefix$ac_prog; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_CXX+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$CXX"; then + ac_cv_prog_CXX="$CXX" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_CXX="$ac_tool_prefix$ac_prog" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +CXX=$ac_cv_prog_CXX +if test -n "$CXX"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CXX" >&5 +$as_echo "$CXX" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + + test -n "$CXX" && break + done +fi +if test -z "$CXX"; then + ac_ct_CXX=$CXX + for ac_prog in g++ c++ gpp aCC CC cxx cc++ cl FCC KCC RCC xlC_r xlC +do + # Extract the first word of "$ac_prog", so it can be a program name with args. +set dummy $ac_prog; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_ac_ct_CXX+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$ac_ct_CXX"; then + ac_cv_prog_ac_ct_CXX="$ac_ct_CXX" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_CXX="$ac_prog" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +ac_ct_CXX=$ac_cv_prog_ac_ct_CXX +if test -n "$ac_ct_CXX"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CXX" >&5 +$as_echo "$ac_ct_CXX" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + + test -n "$ac_ct_CXX" && break +done + + if test "x$ac_ct_CXX" = x; then + CXX=":" + else + case $cross_compiling:$ac_tool_warned in +yes:) +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +ac_tool_warned=yes ;; +esac + CXX=$ac_ct_CXX + fi +fi + + fi + fi + if test "$CXX" != no; then + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C++ compiler ($CXX $CXXFLAGS $LDFLAGS) works" >&5 +$as_echo_n "checking whether the C++ compiler ($CXX $CXXFLAGS $LDFLAGS) works... " >&6; } + ac_ext=cpp +ac_cpp='$CXXCPP $CPPFLAGS' +ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_cxx_compiler_gnu + + + + echo 'int main () { return 0; }' > conftest.$ac_ext + if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 + (eval $ac_link) 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } && test -s conftest$ac_exeext; then + gl_cv_prog_ansicxx_works=yes + if (./conftest; exit) 2>/dev/null; then + gl_cv_prog_ansicxx_cross=no + else + gl_cv_prog_ansicxx_cross=yes + fi + else + gl_cv_prog_ansicxx_works=no + fi + rm -fr conftest* + ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_prog_ansicxx_works" >&5 +$as_echo "$gl_cv_prog_ansicxx_works" >&6; } + if test $gl_cv_prog_ansicxx_works = no; then + CXX=no + else + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C++ compiler supports namespaces" >&5 +$as_echo_n "checking whether the C++ compiler supports namespaces... " >&6; } + ac_ext=cpp +ac_cpp='$CXXCPP $CPPFLAGS' +ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_cxx_compiler_gnu + + cat < conftest.$ac_ext +#include +namespace test { using namespace std; } +std::ostream* ptr; +int main () { return 0; } +EOF + if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 + (eval $ac_link) 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } && test -s conftest$ac_exeext; then + gl_cv_prog_ansicxx_namespaces=yes + else + gl_cv_prog_ansicxx_namespaces=no + fi + rm -fr conftest* + ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_prog_ansicxx_namespaces" >&5 +$as_echo "$gl_cv_prog_ansicxx_namespaces" >&6; } + if test $gl_cv_prog_ansicxx_namespaces = no; then + CXX=no + fi + fi + fi + + + + if test "$CXX" != no; then + ANSICXX_TRUE= + ANSICXX_FALSE='#' +else + ANSICXX_TRUE='#' + ANSICXX_FALSE= +fi + + + if test "$CXX" != no; then + +depcc="$CXX" am_compiler_list= + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5 +$as_echo_n "checking dependency style of $depcc... " >&6; } +if ${am_cv_CXX_dependencies_compiler_type+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then + # We make a subdir and do the tests there. Otherwise we can end up + # making bogus files that we don't know about and never remove. For + # instance it was reported that on HP-UX the gcc test will end up + # making a dummy file named 'D' -- because '-MD' means "put the output + # in D". + rm -rf conftest.dir + mkdir conftest.dir + # Copy depcomp to subdir because otherwise we won't find it if we're + # using a relative directory. + cp "$am_depcomp" conftest.dir + cd conftest.dir + # We will build objects and dependencies in a subdirectory because + # it helps to detect inapplicable dependency modes. For instance + # both Tru64's cc and ICC support -MD to output dependencies as a + # side effect of compilation, but ICC will put the dependencies in + # the current directory while Tru64 will put them in the object + # directory. + mkdir sub + + am_cv_CXX_dependencies_compiler_type=none + if test "$am_compiler_list" = ""; then + am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp` + fi + am__universal=false + case " $depcc " in #( + *\ -arch\ *\ -arch\ *) am__universal=true ;; + esac + + for depmode in $am_compiler_list; do + # Setup a source with many dependencies, because some compilers + # like to wrap large dependency lists on column 80 (with \), and + # we should not choose a depcomp mode which is confused by this. + # + # We need to recreate these files for each test, as the compiler may + # overwrite some of them when testing with obscure command lines. + # This happens at least with the AIX C compiler. + : > sub/conftest.c + for i in 1 2 3 4 5 6; do + echo '#include "conftst'$i'.h"' >> sub/conftest.c + # Using ": > sub/conftst$i.h" creates only sub/conftst1.h with + # Solaris 10 /bin/sh. + echo '/* dummy */' > sub/conftst$i.h + done + echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf + + # We check with '-c' and '-o' for the sake of the "dashmstdout" + # mode. It turns out that the SunPro C++ compiler does not properly + # handle '-M -o', and we need to detect this. Also, some Intel + # versions had trouble with output in subdirs. + am__obj=sub/conftest.${OBJEXT-o} + am__minus_obj="-o $am__obj" + case $depmode in + gcc) + # This depmode causes a compiler race in universal mode. + test "$am__universal" = false || continue + ;; + nosideeffect) + # After this tag, mechanisms are not by side-effect, so they'll + # only be used when explicitly requested. + if test "x$enable_dependency_tracking" = xyes; then + continue + else + break + fi + ;; + msvc7 | msvc7msys | msvisualcpp | msvcmsys) + # This compiler won't grok '-c -o', but also, the minuso test has + # not run yet. These depmodes are late enough in the game, and + # so weak that their functioning should not be impacted. + am__obj=conftest.${OBJEXT-o} + am__minus_obj= + ;; + none) break ;; + esac + if depmode=$depmode \ + source=sub/conftest.c object=$am__obj \ + depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ + $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \ + >/dev/null 2>conftest.err && + grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 && + grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && + grep $am__obj sub/conftest.Po > /dev/null 2>&1 && + ${MAKE-make} -s -f confmf > /dev/null 2>&1; then + # icc doesn't choke on unknown options, it will just issue warnings + # or remarks (even with -Werror). So we grep stderr for any message + # that says an option was ignored or not supported. + # When given -MP, icc 7.0 and 7.1 complain thusly: + # icc: Command line warning: ignoring option '-M'; no argument required + # The diagnosis changed in icc 8.0: + # icc: Command line remark: option '-MP' not supported + if (grep 'ignoring option' conftest.err || + grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else + am_cv_CXX_dependencies_compiler_type=$depmode + break + fi + fi + done + + cd .. + rm -rf conftest.dir +else + am_cv_CXX_dependencies_compiler_type=none +fi + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_CXX_dependencies_compiler_type" >&5 +$as_echo "$am_cv_CXX_dependencies_compiler_type" >&6; } +CXXDEPMODE=depmode=$am_cv_CXX_dependencies_compiler_type + + if + test "x$enable_dependency_tracking" != xno \ + && test "$am_cv_CXX_dependencies_compiler_type" = gcc3; then + am__fastdepCXX_TRUE= + am__fastdepCXX_FALSE='#' +else + am__fastdepCXX_TRUE='#' + am__fastdepCXX_FALSE= +fi + + + else + if false; then + am__fastdepCXX_TRUE= + am__fastdepCXX_FALSE='#' +else + am__fastdepCXX_TRUE='#' + am__fastdepCXX_FALSE= +fi + + fi + +if test "$CXX" != no; then + IF_CXX='' +else + IF_CXX='# ' +fi + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for Minix Amsterdam compiler" >&5 +$as_echo_n "checking for Minix Amsterdam compiler... " >&6; } +if ${gl_cv_c_amsterdam_compiler+:} false; then : + $as_echo_n "(cached) " >&6 +else + + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#ifdef __ACK__ +Amsterdam +#endif + +_ACEOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + $EGREP "Amsterdam" >/dev/null 2>&1; then : + gl_cv_c_amsterdam_compiler=yes +else + gl_cv_c_amsterdam_compiler=no +fi +rm -f conftest* + + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_c_amsterdam_compiler" >&5 +$as_echo "$gl_cv_c_amsterdam_compiler" >&6; } + + if test $gl_cv_c_amsterdam_compiler = yes; then + if test -z "$AR"; then + AR='cc -c.a' + fi + if test -z "$ARFLAGS"; then + ARFLAGS='-o' + fi + else + : + fi + + if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}ar", so it can be a program name with args. +set dummy ${ac_tool_prefix}ar; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_AR+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$AR"; then + ac_cv_prog_AR="$AR" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_AR="${ac_tool_prefix}ar" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +AR=$ac_cv_prog_AR +if test -n "$AR"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AR" >&5 +$as_echo "$AR" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + +fi +if test -z "$ac_cv_prog_AR"; then + ac_ct_AR=$AR + # Extract the first word of "ar", so it can be a program name with args. +set dummy ar; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_ac_ct_AR+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$ac_ct_AR"; then + ac_cv_prog_ac_ct_AR="$ac_ct_AR" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_AR="ar" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +ac_ct_AR=$ac_cv_prog_ac_ct_AR +if test -n "$ac_ct_AR"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_AR" >&5 +$as_echo "$ac_ct_AR" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + if test "x$ac_ct_AR" = x; then + AR="ar" + else + case $cross_compiling:$ac_tool_warned in +yes:) +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +ac_tool_warned=yes ;; +esac + AR=$ac_ct_AR + fi +else + AR="$ac_cv_prog_AR" +fi + + if test -z "$ARFLAGS"; then + ARFLAGS='cr' + fi + + + + if test -z "$RANLIB"; then + if test $gl_cv_c_amsterdam_compiler = yes; then + RANLIB=':' + else + if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}ranlib", so it can be a program name with args. +set dummy ${ac_tool_prefix}ranlib; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_RANLIB+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$RANLIB"; then + ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_RANLIB="${ac_tool_prefix}ranlib" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +RANLIB=$ac_cv_prog_RANLIB +if test -n "$RANLIB"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $RANLIB" >&5 +$as_echo "$RANLIB" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + +fi +if test -z "$ac_cv_prog_RANLIB"; then + ac_ct_RANLIB=$RANLIB + # Extract the first word of "ranlib", so it can be a program name with args. +set dummy ranlib; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_ac_ct_RANLIB+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$ac_ct_RANLIB"; then + ac_cv_prog_ac_ct_RANLIB="$ac_ct_RANLIB" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_RANLIB="ranlib" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +ac_ct_RANLIB=$ac_cv_prog_ac_ct_RANLIB +if test -n "$ac_ct_RANLIB"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_RANLIB" >&5 +$as_echo "$ac_ct_RANLIB" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + if test "x$ac_ct_RANLIB" = x; then + RANLIB=":" + else + case $cross_compiling:$ac_tool_warned in +yes:) +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +ac_tool_warned=yes ;; +esac + RANLIB=$ac_ct_RANLIB + fi +else + RANLIB="$ac_cv_prog_RANLIB" +fi + + fi + fi + + + +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#ifdef _MSC_VER +MicrosoftCompiler +#endif + +_ACEOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + $EGREP "MicrosoftCompiler" >/dev/null 2>&1; then : + IF_MSVC='' + IFNOT_MSVC='# ' + +else + IF_MSVC='# ' + IFNOT_MSVC='' + +fi +rm -f conftest* + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to make hard links" >&5 +$as_echo_n "checking how to make hard links... " >&6; } +if ${cl_cv_prog_LN+:} false; then : + $as_echo_n "(cached) " >&6 +else + rm -f conftestdata conftestfile + echo data > conftestfile + if ln conftestfile conftestdata 2>/dev/null; then + cl_cv_prog_LN=ln + else + cl_cv_prog_LN="cp -p" + fi + rm -f conftestdata conftestfile + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $cl_cv_prog_LN" >&5 +$as_echo "$cl_cv_prog_LN" >&6; } + LN="$cl_cv_prog_LN" + + + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for ANSI C header files" >&5 +$as_echo_n "checking for ANSI C header files... " >&6; } +if ${ac_cv_header_stdc+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +#include +#include +#include + +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_cv_header_stdc=yes +else + ac_cv_header_stdc=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + +if test $ac_cv_header_stdc = yes; then + # SunOS 4.x string.h does not declare mem*, contrary to ANSI. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include + +_ACEOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + $EGREP "memchr" >/dev/null 2>&1; then : + +else + ac_cv_header_stdc=no +fi +rm -f conftest* + +fi + +if test $ac_cv_header_stdc = yes; then + # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include + +_ACEOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + $EGREP "free" >/dev/null 2>&1; then : + +else + ac_cv_header_stdc=no +fi +rm -f conftest* + +fi + +if test $ac_cv_header_stdc = yes; then + # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. + if test "$cross_compiling" = yes; then : + : +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +#include +#if ((' ' & 0x0FF) == 0x020) +# define ISLOWER(c) ('a' <= (c) && (c) <= 'z') +# define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) +#else +# define ISLOWER(c) \ + (('a' <= (c) && (c) <= 'i') \ + || ('j' <= (c) && (c) <= 'r') \ + || ('s' <= (c) && (c) <= 'z')) +# define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c)) +#endif + +#define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) +int +main () +{ + int i; + for (i = 0; i < 256; i++) + if (XOR (islower (i), ISLOWER (i)) + || toupper (i) != TOUPPER (i)) + return 2; + return 0; +} +_ACEOF +if ac_fn_c_try_run "$LINENO"; then : + +else + ac_cv_header_stdc=no +fi +rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ + conftest.$ac_objext conftest.beam conftest.$ac_ext +fi + +fi +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stdc" >&5 +$as_echo "$ac_cv_header_stdc" >&6; } +if test $ac_cv_header_stdc = yes; then + +$as_echo "#define STDC_HEADERS 1" >>confdefs.h + +fi + +# On IRIX 5.3, sys/types and inttypes.h are conflicting. +for ac_header in sys/types.h sys/stat.h stdlib.h string.h memory.h strings.h \ + inttypes.h stdint.h unistd.h +do : + as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh` +ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default +" +if eval test \"x\$"$as_ac_Header"\" = x"yes"; then : + cat >>confdefs.h <<_ACEOF +#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1 +_ACEOF + +fi + +done + + + + ac_fn_c_check_header_mongrel "$LINENO" "minix/config.h" "ac_cv_header_minix_config_h" "$ac_includes_default" +if test "x$ac_cv_header_minix_config_h" = xyes; then : + MINIX=yes +else + MINIX= +fi + + + if test "$MINIX" = yes; then + +$as_echo "#define _POSIX_SOURCE 1" >>confdefs.h + + +$as_echo "#define _POSIX_1_SOURCE 2" >>confdefs.h + + +$as_echo "#define _MINIX 1" >>confdefs.h + + +$as_echo "#define _NETBSD_SOURCE 1" >>confdefs.h + + fi + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether it is safe to define __EXTENSIONS__" >&5 +$as_echo_n "checking whether it is safe to define __EXTENSIONS__... " >&6; } +if ${ac_cv_safe_to_define___extensions__+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +# define __EXTENSIONS__ 1 + $ac_includes_default +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_cv_safe_to_define___extensions__=yes +else + ac_cv_safe_to_define___extensions__=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_safe_to_define___extensions__" >&5 +$as_echo "$ac_cv_safe_to_define___extensions__" >&6; } + test $ac_cv_safe_to_define___extensions__ = yes && + $as_echo "#define __EXTENSIONS__ 1" >>confdefs.h + + $as_echo "#define _ALL_SOURCE 1" >>confdefs.h + + $as_echo "#define _DARWIN_C_SOURCE 1" >>confdefs.h + + $as_echo "#define _GNU_SOURCE 1" >>confdefs.h + + $as_echo "#define _NETBSD_SOURCE 1" >>confdefs.h + + $as_echo "#define _OPENBSD_SOURCE 1" >>confdefs.h + + $as_echo "#define _POSIX_PTHREAD_SEMANTICS 1" >>confdefs.h + + $as_echo "#define __STDC_WANT_IEC_60559_ATTRIBS_EXT__ 1" >>confdefs.h + + $as_echo "#define __STDC_WANT_IEC_60559_BFP_EXT__ 1" >>confdefs.h + + $as_echo "#define __STDC_WANT_IEC_60559_DFP_EXT__ 1" >>confdefs.h + + $as_echo "#define __STDC_WANT_IEC_60559_FUNCS_EXT__ 1" >>confdefs.h + + $as_echo "#define __STDC_WANT_IEC_60559_TYPES_EXT__ 1" >>confdefs.h + + $as_echo "#define __STDC_WANT_LIB_EXT2__ 1" >>confdefs.h + + $as_echo "#define __STDC_WANT_MATH_SPEC_FUNCS__ 1" >>confdefs.h + + $as_echo "#define _TANDEM_SOURCE 1" >>confdefs.h + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether _XOPEN_SOURCE should be defined" >&5 +$as_echo_n "checking whether _XOPEN_SOURCE should be defined... " >&6; } +if ${ac_cv_should_define__xopen_source+:} false; then : + $as_echo_n "(cached) " >&6 +else + ac_cv_should_define__xopen_source=no + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + + #include + mbstate_t x; +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + + #define _XOPEN_SOURCE 500 + #include + mbstate_t x; +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_cv_should_define__xopen_source=yes +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_should_define__xopen_source" >&5 +$as_echo "$ac_cv_should_define__xopen_source" >&6; } + test $ac_cv_should_define__xopen_source = yes && + $as_echo "#define _XOPEN_SOURCE 500" >>confdefs.h + + $as_echo "#define _HPUX_ALT_XOPEN_SOCKET_API 1" >>confdefs.h + + + + + + + + + +# Make sure we can run config.sub. +$SHELL "$ac_aux_dir/config.sub" sun4 >/dev/null 2>&1 || + as_fn_error $? "cannot run $SHELL $ac_aux_dir/config.sub" "$LINENO" 5 + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking build system type" >&5 +$as_echo_n "checking build system type... " >&6; } +if ${ac_cv_build+:} false; then : + $as_echo_n "(cached) " >&6 +else + ac_build_alias=$build_alias +test "x$ac_build_alias" = x && + ac_build_alias=`$SHELL "$ac_aux_dir/config.guess"` +test "x$ac_build_alias" = x && + as_fn_error $? "cannot guess build type; you must specify one" "$LINENO" 5 +ac_cv_build=`$SHELL "$ac_aux_dir/config.sub" $ac_build_alias` || + as_fn_error $? "$SHELL $ac_aux_dir/config.sub $ac_build_alias failed" "$LINENO" 5 + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_build" >&5 +$as_echo "$ac_cv_build" >&6; } +case $ac_cv_build in +*-*-*) ;; +*) as_fn_error $? "invalid value of canonical build" "$LINENO" 5;; +esac +build=$ac_cv_build +ac_save_IFS=$IFS; IFS='-' +set x $ac_cv_build +shift +build_cpu=$1 +build_vendor=$2 +shift; shift +# Remember, the first character of IFS is used to create $*, +# except with old shells: +build_os=$* +IFS=$ac_save_IFS +case $build_os in *\ *) build_os=`echo "$build_os" | sed 's/ /-/g'`;; esac + + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking host system type" >&5 +$as_echo_n "checking host system type... " >&6; } +if ${ac_cv_host+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test "x$host_alias" = x; then + ac_cv_host=$ac_cv_build +else + ac_cv_host=`$SHELL "$ac_aux_dir/config.sub" $host_alias` || + as_fn_error $? "$SHELL $ac_aux_dir/config.sub $host_alias failed" "$LINENO" 5 +fi + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_host" >&5 +$as_echo "$ac_cv_host" >&6; } +case $ac_cv_host in +*-*-*) ;; +*) as_fn_error $? "invalid value of canonical host" "$LINENO" 5;; +esac +host=$ac_cv_host +ac_save_IFS=$IFS; IFS='-' +set x $ac_cv_host +shift +host_cpu=$1 +host_vendor=$2 +shift; shift +# Remember, the first character of IFS is used to create $*, +# except with old shells: +host_os=$* +IFS=$ac_save_IFS +case $host_os in *\ *) host_os=`echo "$host_os" | sed 's/ /-/g'`;; esac + + + + + + + + + # Check whether --enable-threads was given. +if test "${enable_threads+set}" = set; then : + enableval=$enable_threads; gl_use_threads=$enableval +else + if test -n "$gl_use_threads_default"; then + gl_use_threads="$gl_use_threads_default" + else + case "$host_os" in + osf*) gl_use_threads=no ;; + cygwin*) + case `uname -r` in + 1.[0-5].*) gl_use_threads=no ;; + *) gl_use_threads=yes ;; + esac + ;; + mingw*) + case "$gl_use_winpthreads_default" in + yes) gl_use_threads=posix ;; + no) gl_use_threads=windows ;; + *) gl_use_threads=yes ;; + esac + ;; + *) gl_use_threads=yes ;; + esac + fi + +fi + + if test "$gl_use_threads" = yes || test "$gl_use_threads" = posix; then + # For using : + case "$host_os" in + osf*) + # On OSF/1, the compiler needs the flag -D_REENTRANT so that it + # groks . cc also understands the flag -pthread, but + # we don't use it because 1. gcc-2.95 doesn't understand -pthread, + # 2. putting a flag into CPPFLAGS that has an effect on the linker + # causes the AC_LINK_IFELSE test below to succeed unexpectedly, + # leading to wrong values of LIBTHREAD and LTLIBTHREAD. + CPPFLAGS="$CPPFLAGS -D_REENTRANT" + ;; + esac + # Some systems optimize for single-threaded programs by default, and + # need special flags to disable these optimizations. For example, the + # definition of 'errno' in . + case "$host_os" in + aix* | freebsd*) CPPFLAGS="$CPPFLAGS -D_THREAD_SAFE" ;; + solaris*) CPPFLAGS="$CPPFLAGS -D_REENTRANT" ;; + esac + fi + + + + # Pre-early section. + + + + + # Code from module absolute-header: + # Code from module ansi-c++-opt: + # Code from module extensions: + # Code from module havelib: + # Code from module host-cpu-c-abi: + # Code from module include_next: + # Code from module limits-h: + # Code from module lock: + # Code from module longlong: + # Code from module multiarch: + # Code from module nocrash: + # Code from module snippet/_Noreturn: + # Code from module ssize_t: + # Code from module stdint: + # Code from module stdnoreturn: + # Code from module sys_types: + # Code from module threadlib: + + + + # Code from module windows-mutex: + # Code from module windows-once: + # Code from module windows-recmutex: + # Code from module windows-rwlock: + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking host CPU and C ABI" >&5 +$as_echo_n "checking host CPU and C ABI... " >&6; } +if ${gl_cv_host_cpu_c_abi+:} false; then : + $as_echo_n "(cached) " >&6 +else + case "$host_cpu" in + + i[4567]86 ) + gl_cv_host_cpu_c_abi=i386 + ;; + + x86_64 ) + # On x86_64 systems, the C compiler may be generating code in one of + # these ABIs: + # - 64-bit instruction set, 64-bit pointers, 64-bit 'long': x86_64. + # - 64-bit instruction set, 64-bit pointers, 32-bit 'long': x86_64 + # with native Windows (mingw, MSVC). + # - 64-bit instruction set, 32-bit pointers, 32-bit 'long': x86_64-x32. + # - 32-bit instruction set, 32-bit pointers, 32-bit 'long': i386. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#if (defined __x86_64__ || defined __amd64__ \ + || defined _M_X64 || defined _M_AMD64) + int ok; + #else + error fail + #endif + +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#if defined __ILP32__ || defined _ILP32 + int ok; + #else + error fail + #endif + +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + gl_cv_host_cpu_c_abi=x86_64-x32 +else + gl_cv_host_cpu_c_abi=x86_64 +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +else + gl_cv_host_cpu_c_abi=i386 +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + ;; + + alphaev[4-8] | alphaev56 | alphapca5[67] | alphaev6[78] ) + gl_cv_host_cpu_c_abi=alpha + ;; + + arm* | aarch64 ) + # Assume arm with EABI. + # On arm64 systems, the C compiler may be generating code in one of + # these ABIs: + # - aarch64 instruction set, 64-bit pointers, 64-bit 'long': arm64. + # - aarch64 instruction set, 32-bit pointers, 32-bit 'long': arm64-ilp32. + # - 32-bit instruction set, 32-bit pointers, 32-bit 'long': arm or armhf. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#ifdef __aarch64__ + int ok; + #else + error fail + #endif + +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#if defined __ILP32__ || defined _ILP32 + int ok; + #else + error fail + #endif + +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + gl_cv_host_cpu_c_abi=arm64-ilp32 +else + gl_cv_host_cpu_c_abi=arm64 +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +else + # Don't distinguish little-endian and big-endian arm, since they + # don't require different machine code for simple operations and + # since the user can distinguish them through the preprocessor + # defines __ARMEL__ vs. __ARMEB__. + # But distinguish arm which passes floating-point arguments and + # return values in integer registers (r0, r1, ...) - this is + # gcc -mfloat-abi=soft or gcc -mfloat-abi=softfp - from arm which + # passes them in float registers (s0, s1, ...) and double registers + # (d0, d1, ...) - this is gcc -mfloat-abi=hard. GCC 4.6 or newer + # sets the preprocessor defines __ARM_PCS (for the first case) and + # __ARM_PCS_VFP (for the second case), but older GCC does not. + echo 'double ddd; void func (double dd) { ddd = dd; }' > conftest.c + # Look for a reference to the register d0 in the .s file. + { ac_try='${CC-cc} $CFLAGS $CPPFLAGS $gl_c_asm_opt conftest.c' + { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_try\""; } >&5 + (eval $ac_try) 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; } >/dev/null 2>&1 + if LC_ALL=C grep 'd0,' conftest.$gl_asmext >/dev/null; then + gl_cv_host_cpu_c_abi=armhf + else + gl_cv_host_cpu_c_abi=arm + fi + rm -f conftest* + +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + ;; + + hppa1.0 | hppa1.1 | hppa2.0* | hppa64 ) + # On hppa, the C compiler may be generating 32-bit code or 64-bit + # code. In the latter case, it defines _LP64 and __LP64__. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#ifdef __LP64__ + int ok; + #else + error fail + #endif + +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + gl_cv_host_cpu_c_abi=hppa64 +else + gl_cv_host_cpu_c_abi=hppa +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + ;; + + ia64* ) + # On ia64 on HP-UX, the C compiler may be generating 64-bit code or + # 32-bit code. In the latter case, it defines _ILP32. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#ifdef _ILP32 + int ok; + #else + error fail + #endif + +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + gl_cv_host_cpu_c_abi=ia64-ilp32 +else + gl_cv_host_cpu_c_abi=ia64 +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + ;; + + mips* ) + # We should also check for (_MIPS_SZPTR == 64), but gcc keeps this + # at 32. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#if defined _MIPS_SZLONG && (_MIPS_SZLONG == 64) + int ok; + #else + error fail + #endif + +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + gl_cv_host_cpu_c_abi=mips64 +else + # In the n32 ABI, _ABIN32 is defined, _ABIO32 is not defined (but + # may later get defined by ), and _MIPS_SIM == _ABIN32. + # In the 32 ABI, _ABIO32 is defined, _ABIN32 is not defined (but + # may later get defined by ), and _MIPS_SIM == _ABIO32. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#if (_MIPS_SIM == _ABIN32) + int ok; + #else + error fail + #endif + +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + gl_cv_host_cpu_c_abi=mipsn32 +else + gl_cv_host_cpu_c_abi=mips +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + ;; + + powerpc* ) + # Different ABIs are in use on AIX vs. Mac OS X vs. Linux,*BSD. + # No need to distinguish them here; the caller may distinguish + # them based on the OS. + # On powerpc64 systems, the C compiler may still be generating + # 32-bit code. And on powerpc-ibm-aix systems, the C compiler may + # be generating 64-bit code. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#if defined __powerpc64__ || defined _ARCH_PPC64 + int ok; + #else + error fail + #endif + +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + # On powerpc64, there are two ABIs on Linux: The AIX compatible + # one and the ELFv2 one. The latter defines _CALL_ELF=2. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#if defined _CALL_ELF && _CALL_ELF == 2 + int ok; + #else + error fail + #endif + +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + gl_cv_host_cpu_c_abi=powerpc64-elfv2 +else + gl_cv_host_cpu_c_abi=powerpc64 +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + +else + gl_cv_host_cpu_c_abi=powerpc +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + ;; + + rs6000 ) + gl_cv_host_cpu_c_abi=powerpc + ;; + + riscv32 | riscv64 ) + # There are 2 architectures (with variants): rv32* and rv64*. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#if __riscv_xlen == 64 + int ok; + #else + error fail + #endif + +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + cpu=riscv64 +else + cpu=riscv32 +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + # There are 6 ABIs: ilp32, ilp32f, ilp32d, lp64, lp64f, lp64d. + # Size of 'long' and 'void *': + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#if defined __LP64__ + int ok; + #else + error fail + #endif + +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + main_abi=lp64 +else + main_abi=ilp32 +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + # Float ABIs: + # __riscv_float_abi_double: + # 'float' and 'double' are passed in floating-point registers. + # __riscv_float_abi_single: + # 'float' are passed in floating-point registers. + # __riscv_float_abi_soft: + # No values are passed in floating-point registers. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#if defined __riscv_float_abi_double + int ok; + #else + error fail + #endif + +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + float_abi=d +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#if defined __riscv_float_abi_single + int ok; + #else + error fail + #endif + +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + float_abi=f +else + float_abi='' +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + gl_cv_host_cpu_c_abi="${cpu}-${main_abi}${float_abi}" + ;; + + s390* ) + # On s390x, the C compiler may be generating 64-bit (= s390x) code + # or 31-bit (= s390) code. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#if defined __LP64__ || defined __s390x__ + int ok; + #else + error fail + #endif + +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + gl_cv_host_cpu_c_abi=s390x +else + gl_cv_host_cpu_c_abi=s390 +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + ;; + + sparc | sparc64 ) + # UltraSPARCs running Linux have `uname -m` = "sparc64", but the + # C compiler still generates 32-bit code. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#if defined __sparcv9 || defined __arch64__ + int ok; + #else + error fail + #endif + +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + gl_cv_host_cpu_c_abi=sparc64 +else + gl_cv_host_cpu_c_abi=sparc +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + ;; + + *) + gl_cv_host_cpu_c_abi="$host_cpu" + ;; + esac + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_host_cpu_c_abi" >&5 +$as_echo "$gl_cv_host_cpu_c_abi" >&6; } + + HOST_CPU=`echo "$gl_cv_host_cpu_c_abi" | sed -e 's/-.*//'` + HOST_CPU_C_ABI="$gl_cv_host_cpu_c_abi" + + + + # This was + # AC_DEFINE_UNQUOTED([__${HOST_CPU}__]) + # AC_DEFINE_UNQUOTED([__${HOST_CPU_C_ABI}__]) + # earlier, but KAI C++ 3.2d doesn't like this. + sed -e 's/-/_/g' >> confdefs.h <&5 +$as_echo_n "checking endianness... " >&6; } +if ${ffcall_cv_endianness+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#if defined __ARMEL__ + yes + #endif +_ACEOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + $EGREP "yes" >/dev/null 2>&1; then : + ffcall_cv_endianness=little +else + ffcall_cv_endianness=big +fi +rm -f conftest* + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ffcall_cv_endianness" >&5 +$as_echo "$ffcall_cv_endianness" >&6; } + ;; + mips* ) + { $as_echo "$as_me:${as_lineno-$LINENO}: checking endianness" >&5 +$as_echo_n "checking endianness... " >&6; } +if ${ffcall_cv_endianness+:} false; then : + $as_echo_n "(cached) " >&6 +else + # Compilers on IRIX define only _MIPSEB as indicator. + # Compilers on Linux define _MIPSEB, __MIPSEB__, __MIPSEB or - in + # the opposite case - _MIPSEL, __MIPSEL__, __MIPSEL. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#if defined _MIPSEB + yes + #endif +_ACEOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + $EGREP "yes" >/dev/null 2>&1; then : + ffcall_cv_endianness=big +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#if defined _MIPSEL + yes + #endif +_ACEOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + $EGREP "yes" >/dev/null 2>&1; then : + ffcall_cv_endianness=little +else + ffcall_cv_endianness=unknown +fi +rm -f conftest* + +fi +rm -f conftest* + + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ffcall_cv_endianness" >&5 +$as_echo "$ffcall_cv_endianness" >&6; } + ;; + powerpc*) + { $as_echo "$as_me:${as_lineno-$LINENO}: checking endianness" >&5 +$as_echo_n "checking endianness... " >&6; } +if ${ffcall_cv_endianness+:} false; then : + $as_echo_n "(cached) " >&6 +else + # Compilers on AIX and Linux define _BIG_ENDIAN, __BIG_ENDIAN__ or + # - in the opposite case - _LITTLE_ENDIAN, __LITTLE_ENDIAN__. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#if defined _BIG_ENDIAN + yes + #endif +_ACEOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + $EGREP "yes" >/dev/null 2>&1; then : + ffcall_cv_endianness=big +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#if defined _LITTLE_ENDIAN + yes + #endif +_ACEOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + $EGREP "yes" >/dev/null 2>&1; then : + ffcall_cv_endianness=little +else + ffcall_cv_endianness=unknown +fi +rm -f conftest* + +fi +rm -f conftest* + + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ffcall_cv_endianness" >&5 +$as_echo "$ffcall_cv_endianness" >&6; } + ;; + *) ffcall_cv_endianness=known ;; + esac + case "$ffcall_cv_endianness" in + big) ENDIANNESS='eb' ;; + little) ENDIANNESS='el' ;; + *) ENDIANNESS='' ;; + esac + + + +PACKAGE=libffcall +case `pwd` in + *\ * | *\ *) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Libtool does not cope well with whitespace in \`pwd\`" >&5 +$as_echo "$as_me: WARNING: Libtool does not cope well with whitespace in \`pwd\`" >&2;} ;; +esac + + + +macro_version='2.4.6' +macro_revision='2.4.6' + + + + + + + + + + + + + +ltmain=$ac_aux_dir/ltmain.sh + +# Backslashify metacharacters that are still active within +# double-quoted strings. +sed_quote_subst='s/\(["`$\\]\)/\\\1/g' + +# Same as above, but do not quote variable references. +double_quote_subst='s/\(["`\\]\)/\\\1/g' + +# Sed substitution to delay expansion of an escaped shell variable in a +# double_quote_subst'ed string. +delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' + +# Sed substitution to delay expansion of an escaped single quote. +delay_single_quote_subst='s/'\''/'\'\\\\\\\'\''/g' + +# Sed substitution to avoid accidental globbing in evaled expressions +no_glob_subst='s/\*/\\\*/g' + +ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO +ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO$ECHO + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to print strings" >&5 +$as_echo_n "checking how to print strings... " >&6; } +# Test print first, because it will be a builtin if present. +if test "X`( print -r -- -n ) 2>/dev/null`" = X-n && \ + test "X`print -r -- $ECHO 2>/dev/null`" = "X$ECHO"; then + ECHO='print -r --' +elif test "X`printf %s $ECHO 2>/dev/null`" = "X$ECHO"; then + ECHO='printf %s\n' +else + # Use this function as a fallback that always works. + func_fallback_echo () + { + eval 'cat <<_LTECHO_EOF +$1 +_LTECHO_EOF' + } + ECHO='func_fallback_echo' +fi + +# func_echo_all arg... +# Invoke $ECHO with all args, space-separated. +func_echo_all () +{ + $ECHO "" +} + +case $ECHO in + printf*) { $as_echo "$as_me:${as_lineno-$LINENO}: result: printf" >&5 +$as_echo "printf" >&6; } ;; + print*) { $as_echo "$as_me:${as_lineno-$LINENO}: result: print -r" >&5 +$as_echo "print -r" >&6; } ;; + *) { $as_echo "$as_me:${as_lineno-$LINENO}: result: cat" >&5 +$as_echo "cat" >&6; } ;; +esac + + + + + + + + + + + + + + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for a sed that does not truncate output" >&5 +$as_echo_n "checking for a sed that does not truncate output... " >&6; } +if ${ac_cv_path_SED+:} false; then : + $as_echo_n "(cached) " >&6 +else + ac_script=s/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb/ + for ac_i in 1 2 3 4 5 6 7; do + ac_script="$ac_script$as_nl$ac_script" + done + echo "$ac_script" 2>/dev/null | sed 99q >conftest.sed + { ac_script=; unset ac_script;} + if test -z "$SED"; then + ac_path_SED_found=false + # Loop through the user's path and test for each of PROGNAME-LIST + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_prog in sed gsed; do + for ac_exec_ext in '' $ac_executable_extensions; do + ac_path_SED="$as_dir/$ac_prog$ac_exec_ext" + as_fn_executable_p "$ac_path_SED" || continue +# Check for GNU ac_path_SED and select it if it is found. + # Check for GNU $ac_path_SED +case `"$ac_path_SED" --version 2>&1` in +*GNU*) + ac_cv_path_SED="$ac_path_SED" ac_path_SED_found=:;; +*) + ac_count=0 + $as_echo_n 0123456789 >"conftest.in" + while : + do + cat "conftest.in" "conftest.in" >"conftest.tmp" + mv "conftest.tmp" "conftest.in" + cp "conftest.in" "conftest.nl" + $as_echo '' >> "conftest.nl" + "$ac_path_SED" -f conftest.sed < "conftest.nl" >"conftest.out" 2>/dev/null || break + diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break + as_fn_arith $ac_count + 1 && ac_count=$as_val + if test $ac_count -gt ${ac_path_SED_max-0}; then + # Best one so far, save it but keep looking for a better one + ac_cv_path_SED="$ac_path_SED" + ac_path_SED_max=$ac_count + fi + # 10*(2^10) chars as input seems more than enough + test $ac_count -gt 10 && break + done + rm -f conftest.in conftest.tmp conftest.nl conftest.out;; +esac + + $ac_path_SED_found && break 3 + done + done + done +IFS=$as_save_IFS + if test -z "$ac_cv_path_SED"; then + as_fn_error $? "no acceptable sed could be found in \$PATH" "$LINENO" 5 + fi +else + ac_cv_path_SED=$SED +fi + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_SED" >&5 +$as_echo "$ac_cv_path_SED" >&6; } + SED="$ac_cv_path_SED" + rm -f conftest.sed + +test -z "$SED" && SED=sed +Xsed="$SED -e 1s/^X//" + + + + + + + + + + + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for fgrep" >&5 +$as_echo_n "checking for fgrep... " >&6; } +if ${ac_cv_path_FGREP+:} false; then : + $as_echo_n "(cached) " >&6 +else + if echo 'ab*c' | $GREP -F 'ab*c' >/dev/null 2>&1 + then ac_cv_path_FGREP="$GREP -F" + else + if test -z "$FGREP"; then + ac_path_FGREP_found=false + # Loop through the user's path and test for each of PROGNAME-LIST + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_prog in fgrep; do + for ac_exec_ext in '' $ac_executable_extensions; do + ac_path_FGREP="$as_dir/$ac_prog$ac_exec_ext" + as_fn_executable_p "$ac_path_FGREP" || continue +# Check for GNU ac_path_FGREP and select it if it is found. + # Check for GNU $ac_path_FGREP +case `"$ac_path_FGREP" --version 2>&1` in +*GNU*) + ac_cv_path_FGREP="$ac_path_FGREP" ac_path_FGREP_found=:;; +*) + ac_count=0 + $as_echo_n 0123456789 >"conftest.in" + while : + do + cat "conftest.in" "conftest.in" >"conftest.tmp" + mv "conftest.tmp" "conftest.in" + cp "conftest.in" "conftest.nl" + $as_echo 'FGREP' >> "conftest.nl" + "$ac_path_FGREP" FGREP < "conftest.nl" >"conftest.out" 2>/dev/null || break + diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break + as_fn_arith $ac_count + 1 && ac_count=$as_val + if test $ac_count -gt ${ac_path_FGREP_max-0}; then + # Best one so far, save it but keep looking for a better one + ac_cv_path_FGREP="$ac_path_FGREP" + ac_path_FGREP_max=$ac_count + fi + # 10*(2^10) chars as input seems more than enough + test $ac_count -gt 10 && break + done + rm -f conftest.in conftest.tmp conftest.nl conftest.out;; +esac + + $ac_path_FGREP_found && break 3 + done + done + done +IFS=$as_save_IFS + if test -z "$ac_cv_path_FGREP"; then + as_fn_error $? "no acceptable fgrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 + fi +else + ac_cv_path_FGREP=$FGREP +fi + + fi +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_FGREP" >&5 +$as_echo "$ac_cv_path_FGREP" >&6; } + FGREP="$ac_cv_path_FGREP" + + +test -z "$GREP" && GREP=grep + + + + + + + + + + + + + + + + + + + +# Check whether --with-gnu-ld was given. +if test "${with_gnu_ld+set}" = set; then : + withval=$with_gnu_ld; test no = "$withval" || with_gnu_ld=yes +else + with_gnu_ld=no +fi + +ac_prog=ld +if test yes = "$GCC"; then + # Check if gcc -print-prog-name=ld gives a path. + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ld used by $CC" >&5 +$as_echo_n "checking for ld used by $CC... " >&6; } + case $host in + *-*-mingw*) + # gcc leaves a trailing carriage return, which upsets mingw + ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;; + *) + ac_prog=`($CC -print-prog-name=ld) 2>&5` ;; + esac + case $ac_prog in + # Accept absolute paths. + [\\/]* | ?:[\\/]*) + re_direlt='/[^/][^/]*/\.\./' + # Canonicalize the pathname of ld + ac_prog=`$ECHO "$ac_prog"| $SED 's%\\\\%/%g'` + while $ECHO "$ac_prog" | $GREP "$re_direlt" > /dev/null 2>&1; do + ac_prog=`$ECHO $ac_prog| $SED "s%$re_direlt%/%"` + done + test -z "$LD" && LD=$ac_prog + ;; + "") + # If it fails, then pretend we aren't using GCC. + ac_prog=ld + ;; + *) + # If it is relative, then search for the first ld in PATH. + with_gnu_ld=unknown + ;; + esac +elif test yes = "$with_gnu_ld"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GNU ld" >&5 +$as_echo_n "checking for GNU ld... " >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for non-GNU ld" >&5 +$as_echo_n "checking for non-GNU ld... " >&6; } +fi +if ${lt_cv_path_LD+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -z "$LD"; then + lt_save_ifs=$IFS; IFS=$PATH_SEPARATOR + for ac_dir in $PATH; do + IFS=$lt_save_ifs + test -z "$ac_dir" && ac_dir=. + if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then + lt_cv_path_LD=$ac_dir/$ac_prog + # Check to see if the program is GNU ld. I'd rather use --version, + # but apparently some variants of GNU ld only accept -v. + # Break only if it was the GNU/non-GNU ld that we prefer. + case `"$lt_cv_path_LD" -v 2>&1 &5 +$as_echo "$LD" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi +test -z "$LD" && as_fn_error $? "no acceptable ld found in \$PATH" "$LINENO" 5 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if the linker ($LD) is GNU ld" >&5 +$as_echo_n "checking if the linker ($LD) is GNU ld... " >&6; } +if ${lt_cv_prog_gnu_ld+:} false; then : + $as_echo_n "(cached) " >&6 +else + # I'd rather use --version here, but apparently some GNU lds only accept -v. +case `$LD -v 2>&1 &5 +$as_echo "$lt_cv_prog_gnu_ld" >&6; } +with_gnu_ld=$lt_cv_prog_gnu_ld + + + + + + + + + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for BSD- or MS-compatible name lister (nm)" >&5 +$as_echo_n "checking for BSD- or MS-compatible name lister (nm)... " >&6; } +if ${lt_cv_path_NM+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$NM"; then + # Let the user override the test. + lt_cv_path_NM=$NM +else + lt_nm_to_check=${ac_tool_prefix}nm + if test -n "$ac_tool_prefix" && test "$build" = "$host"; then + lt_nm_to_check="$lt_nm_to_check nm" + fi + for lt_tmp_nm in $lt_nm_to_check; do + lt_save_ifs=$IFS; IFS=$PATH_SEPARATOR + for ac_dir in $PATH /usr/ccs/bin/elf /usr/ccs/bin /usr/ucb /bin; do + IFS=$lt_save_ifs + test -z "$ac_dir" && ac_dir=. + tmp_nm=$ac_dir/$lt_tmp_nm + if test -f "$tmp_nm" || test -f "$tmp_nm$ac_exeext"; then + # Check to see if the nm accepts a BSD-compat flag. + # Adding the 'sed 1q' prevents false positives on HP-UX, which says: + # nm: unknown option "B" ignored + # Tru64's nm complains that /dev/null is an invalid object file + # MSYS converts /dev/null to NUL, MinGW nm treats NUL as empty + case $build_os in + mingw*) lt_bad_file=conftest.nm/nofile ;; + *) lt_bad_file=/dev/null ;; + esac + case `"$tmp_nm" -B $lt_bad_file 2>&1 | sed '1q'` in + *$lt_bad_file* | *'Invalid file or object type'*) + lt_cv_path_NM="$tmp_nm -B" + break 2 + ;; + *) + case `"$tmp_nm" -p /dev/null 2>&1 | sed '1q'` in + */dev/null*) + lt_cv_path_NM="$tmp_nm -p" + break 2 + ;; + *) + lt_cv_path_NM=${lt_cv_path_NM="$tmp_nm"} # keep the first match, but + continue # so that we can try to find one that supports BSD flags + ;; + esac + ;; + esac + fi + done + IFS=$lt_save_ifs + done + : ${lt_cv_path_NM=no} +fi +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_path_NM" >&5 +$as_echo "$lt_cv_path_NM" >&6; } +if test no != "$lt_cv_path_NM"; then + NM=$lt_cv_path_NM +else + # Didn't find any BSD compatible name lister, look for dumpbin. + if test -n "$DUMPBIN"; then : + # Let the user override the test. + else + if test -n "$ac_tool_prefix"; then + for ac_prog in dumpbin "link -dump" + do + # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. +set dummy $ac_tool_prefix$ac_prog; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_DUMPBIN+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$DUMPBIN"; then + ac_cv_prog_DUMPBIN="$DUMPBIN" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_DUMPBIN="$ac_tool_prefix$ac_prog" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +DUMPBIN=$ac_cv_prog_DUMPBIN +if test -n "$DUMPBIN"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DUMPBIN" >&5 +$as_echo "$DUMPBIN" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + + test -n "$DUMPBIN" && break + done +fi +if test -z "$DUMPBIN"; then + ac_ct_DUMPBIN=$DUMPBIN + for ac_prog in dumpbin "link -dump" +do + # Extract the first word of "$ac_prog", so it can be a program name with args. +set dummy $ac_prog; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_ac_ct_DUMPBIN+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$ac_ct_DUMPBIN"; then + ac_cv_prog_ac_ct_DUMPBIN="$ac_ct_DUMPBIN" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_DUMPBIN="$ac_prog" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +ac_ct_DUMPBIN=$ac_cv_prog_ac_ct_DUMPBIN +if test -n "$ac_ct_DUMPBIN"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DUMPBIN" >&5 +$as_echo "$ac_ct_DUMPBIN" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + + test -n "$ac_ct_DUMPBIN" && break +done + + if test "x$ac_ct_DUMPBIN" = x; then + DUMPBIN=":" + else + case $cross_compiling:$ac_tool_warned in +yes:) +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +ac_tool_warned=yes ;; +esac + DUMPBIN=$ac_ct_DUMPBIN + fi +fi + + case `$DUMPBIN -symbols -headers /dev/null 2>&1 | sed '1q'` in + *COFF*) + DUMPBIN="$DUMPBIN -symbols -headers" + ;; + *) + DUMPBIN=: + ;; + esac + fi + + if test : != "$DUMPBIN"; then + NM=$DUMPBIN + fi +fi +test -z "$NM" && NM=nm + + + + + + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking the name lister ($NM) interface" >&5 +$as_echo_n "checking the name lister ($NM) interface... " >&6; } +if ${lt_cv_nm_interface+:} false; then : + $as_echo_n "(cached) " >&6 +else + lt_cv_nm_interface="BSD nm" + echo "int some_variable = 0;" > conftest.$ac_ext + (eval echo "\"\$as_me:$LINENO: $ac_compile\"" >&5) + (eval "$ac_compile" 2>conftest.err) + cat conftest.err >&5 + (eval echo "\"\$as_me:$LINENO: $NM \\\"conftest.$ac_objext\\\"\"" >&5) + (eval "$NM \"conftest.$ac_objext\"" 2>conftest.err > conftest.out) + cat conftest.err >&5 + (eval echo "\"\$as_me:$LINENO: output\"" >&5) + cat conftest.out >&5 + if $GREP 'External.*some_variable' conftest.out > /dev/null; then + lt_cv_nm_interface="MS dumpbin" + fi + rm -f conftest* +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_nm_interface" >&5 +$as_echo "$lt_cv_nm_interface" >&6; } + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ln -s works" >&5 +$as_echo_n "checking whether ln -s works... " >&6; } +LN_S=$as_ln_s +if test "$LN_S" = "ln -s"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +$as_echo "yes" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no, using $LN_S" >&5 +$as_echo "no, using $LN_S" >&6; } +fi + +# find the maximum length of command line arguments +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking the maximum length of command line arguments" >&5 +$as_echo_n "checking the maximum length of command line arguments... " >&6; } +if ${lt_cv_sys_max_cmd_len+:} false; then : + $as_echo_n "(cached) " >&6 +else + i=0 + teststring=ABCD + + case $build_os in + msdosdjgpp*) + # On DJGPP, this test can blow up pretty badly due to problems in libc + # (any single argument exceeding 2000 bytes causes a buffer overrun + # during glob expansion). Even if it were fixed, the result of this + # check would be larger than it should be. + lt_cv_sys_max_cmd_len=12288; # 12K is about right + ;; + + gnu*) + # Under GNU Hurd, this test is not required because there is + # no limit to the length of command line arguments. + # Libtool will interpret -1 as no limit whatsoever + lt_cv_sys_max_cmd_len=-1; + ;; + + cygwin* | mingw* | cegcc*) + # On Win9x/ME, this test blows up -- it succeeds, but takes + # about 5 minutes as the teststring grows exponentially. + # Worse, since 9x/ME are not pre-emptively multitasking, + # you end up with a "frozen" computer, even though with patience + # the test eventually succeeds (with a max line length of 256k). + # Instead, let's just punt: use the minimum linelength reported by + # all of the supported platforms: 8192 (on NT/2K/XP). + lt_cv_sys_max_cmd_len=8192; + ;; + + mint*) + # On MiNT this can take a long time and run out of memory. + lt_cv_sys_max_cmd_len=8192; + ;; + + amigaos*) + # On AmigaOS with pdksh, this test takes hours, literally. + # So we just punt and use a minimum line length of 8192. + lt_cv_sys_max_cmd_len=8192; + ;; + + bitrig* | darwin* | dragonfly* | freebsd* | netbsd* | openbsd*) + # This has been around since 386BSD, at least. Likely further. + if test -x /sbin/sysctl; then + lt_cv_sys_max_cmd_len=`/sbin/sysctl -n kern.argmax` + elif test -x /usr/sbin/sysctl; then + lt_cv_sys_max_cmd_len=`/usr/sbin/sysctl -n kern.argmax` + else + lt_cv_sys_max_cmd_len=65536 # usable default for all BSDs + fi + # And add a safety zone + lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` + lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` + ;; + + interix*) + # We know the value 262144 and hardcode it with a safety zone (like BSD) + lt_cv_sys_max_cmd_len=196608 + ;; + + os2*) + # The test takes a long time on OS/2. + lt_cv_sys_max_cmd_len=8192 + ;; + + osf*) + # Dr. Hans Ekkehard Plesser reports seeing a kernel panic running configure + # due to this test when exec_disable_arg_limit is 1 on Tru64. It is not + # nice to cause kernel panics so lets avoid the loop below. + # First set a reasonable default. + lt_cv_sys_max_cmd_len=16384 + # + if test -x /sbin/sysconfig; then + case `/sbin/sysconfig -q proc exec_disable_arg_limit` in + *1*) lt_cv_sys_max_cmd_len=-1 ;; + esac + fi + ;; + sco3.2v5*) + lt_cv_sys_max_cmd_len=102400 + ;; + sysv5* | sco5v6* | sysv4.2uw2*) + kargmax=`grep ARG_MAX /etc/conf/cf.d/stune 2>/dev/null` + if test -n "$kargmax"; then + lt_cv_sys_max_cmd_len=`echo $kargmax | sed 's/.*[ ]//'` + else + lt_cv_sys_max_cmd_len=32768 + fi + ;; + *) + lt_cv_sys_max_cmd_len=`(getconf ARG_MAX) 2> /dev/null` + if test -n "$lt_cv_sys_max_cmd_len" && \ + test undefined != "$lt_cv_sys_max_cmd_len"; then + lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` + lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` + else + # Make teststring a little bigger before we do anything with it. + # a 1K string should be a reasonable start. + for i in 1 2 3 4 5 6 7 8; do + teststring=$teststring$teststring + done + SHELL=${SHELL-${CONFIG_SHELL-/bin/sh}} + # If test is not a shell built-in, we'll probably end up computing a + # maximum length that is only half of the actual maximum length, but + # we can't tell. + while { test X`env echo "$teststring$teststring" 2>/dev/null` \ + = "X$teststring$teststring"; } >/dev/null 2>&1 && + test 17 != "$i" # 1/2 MB should be enough + do + i=`expr $i + 1` + teststring=$teststring$teststring + done + # Only check the string length outside the loop. + lt_cv_sys_max_cmd_len=`expr "X$teststring" : ".*" 2>&1` + teststring= + # Add a significant safety factor because C++ compilers can tack on + # massive amounts of additional arguments before passing them to the + # linker. It appears as though 1/2 is a usable value. + lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 2` + fi + ;; + esac + +fi + +if test -n "$lt_cv_sys_max_cmd_len"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_sys_max_cmd_len" >&5 +$as_echo "$lt_cv_sys_max_cmd_len" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: none" >&5 +$as_echo "none" >&6; } +fi +max_cmd_len=$lt_cv_sys_max_cmd_len + + + + + + +: ${CP="cp -f"} +: ${MV="mv -f"} +: ${RM="rm -f"} + +if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then + lt_unset=unset +else + lt_unset=false +fi + + + + + +# test EBCDIC or ASCII +case `echo X|tr X '\101'` in + A) # ASCII based system + # \n is not interpreted correctly by Solaris 8 /usr/ucb/tr + lt_SP2NL='tr \040 \012' + lt_NL2SP='tr \015\012 \040\040' + ;; + *) # EBCDIC based system + lt_SP2NL='tr \100 \n' + lt_NL2SP='tr \r\n \100\100' + ;; +esac + + + + + + + + + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to convert $build file names to $host format" >&5 +$as_echo_n "checking how to convert $build file names to $host format... " >&6; } +if ${lt_cv_to_host_file_cmd+:} false; then : + $as_echo_n "(cached) " >&6 +else + case $host in + *-*-mingw* ) + case $build in + *-*-mingw* ) # actually msys + lt_cv_to_host_file_cmd=func_convert_file_msys_to_w32 + ;; + *-*-cygwin* ) + lt_cv_to_host_file_cmd=func_convert_file_cygwin_to_w32 + ;; + * ) # otherwise, assume *nix + lt_cv_to_host_file_cmd=func_convert_file_nix_to_w32 + ;; + esac + ;; + *-*-cygwin* ) + case $build in + *-*-mingw* ) # actually msys + lt_cv_to_host_file_cmd=func_convert_file_msys_to_cygwin + ;; + *-*-cygwin* ) + lt_cv_to_host_file_cmd=func_convert_file_noop + ;; + * ) # otherwise, assume *nix + lt_cv_to_host_file_cmd=func_convert_file_nix_to_cygwin + ;; + esac + ;; + * ) # unhandled hosts (and "normal" native builds) + lt_cv_to_host_file_cmd=func_convert_file_noop + ;; +esac + +fi + +to_host_file_cmd=$lt_cv_to_host_file_cmd +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_to_host_file_cmd" >&5 +$as_echo "$lt_cv_to_host_file_cmd" >&6; } + + + + + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to convert $build file names to toolchain format" >&5 +$as_echo_n "checking how to convert $build file names to toolchain format... " >&6; } +if ${lt_cv_to_tool_file_cmd+:} false; then : + $as_echo_n "(cached) " >&6 +else + #assume ordinary cross tools, or native build. +lt_cv_to_tool_file_cmd=func_convert_file_noop +case $host in + *-*-mingw* ) + case $build in + *-*-mingw* ) # actually msys + lt_cv_to_tool_file_cmd=func_convert_file_msys_to_w32 + ;; + esac + ;; +esac + +fi + +to_tool_file_cmd=$lt_cv_to_tool_file_cmd +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_to_tool_file_cmd" >&5 +$as_echo "$lt_cv_to_tool_file_cmd" >&6; } + + + + + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $LD option to reload object files" >&5 +$as_echo_n "checking for $LD option to reload object files... " >&6; } +if ${lt_cv_ld_reload_flag+:} false; then : + $as_echo_n "(cached) " >&6 +else + lt_cv_ld_reload_flag='-r' +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_reload_flag" >&5 +$as_echo "$lt_cv_ld_reload_flag" >&6; } +reload_flag=$lt_cv_ld_reload_flag +case $reload_flag in +"" | " "*) ;; +*) reload_flag=" $reload_flag" ;; +esac +reload_cmds='$LD$reload_flag -o $output$reload_objs' +case $host_os in + cygwin* | mingw* | pw32* | cegcc*) + if test yes != "$GCC"; then + reload_cmds=false + fi + ;; + darwin*) + if test yes = "$GCC"; then + reload_cmds='$LTCC $LTCFLAGS -nostdlib $wl-r -o $output$reload_objs' + else + reload_cmds='$LD$reload_flag -o $output$reload_objs' + fi + ;; +esac + + + + + + + + + +if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}objdump", so it can be a program name with args. +set dummy ${ac_tool_prefix}objdump; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_OBJDUMP+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$OBJDUMP"; then + ac_cv_prog_OBJDUMP="$OBJDUMP" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_OBJDUMP="${ac_tool_prefix}objdump" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +OBJDUMP=$ac_cv_prog_OBJDUMP +if test -n "$OBJDUMP"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OBJDUMP" >&5 +$as_echo "$OBJDUMP" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + +fi +if test -z "$ac_cv_prog_OBJDUMP"; then + ac_ct_OBJDUMP=$OBJDUMP + # Extract the first word of "objdump", so it can be a program name with args. +set dummy objdump; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_ac_ct_OBJDUMP+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$ac_ct_OBJDUMP"; then + ac_cv_prog_ac_ct_OBJDUMP="$ac_ct_OBJDUMP" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_OBJDUMP="objdump" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +ac_ct_OBJDUMP=$ac_cv_prog_ac_ct_OBJDUMP +if test -n "$ac_ct_OBJDUMP"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OBJDUMP" >&5 +$as_echo "$ac_ct_OBJDUMP" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + if test "x$ac_ct_OBJDUMP" = x; then + OBJDUMP="false" + else + case $cross_compiling:$ac_tool_warned in +yes:) +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +ac_tool_warned=yes ;; +esac + OBJDUMP=$ac_ct_OBJDUMP + fi +else + OBJDUMP="$ac_cv_prog_OBJDUMP" +fi + +test -z "$OBJDUMP" && OBJDUMP=objdump + + + + + + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to recognize dependent libraries" >&5 +$as_echo_n "checking how to recognize dependent libraries... " >&6; } +if ${lt_cv_deplibs_check_method+:} false; then : + $as_echo_n "(cached) " >&6 +else + lt_cv_file_magic_cmd='$MAGIC_CMD' +lt_cv_file_magic_test_file= +lt_cv_deplibs_check_method='unknown' +# Need to set the preceding variable on all platforms that support +# interlibrary dependencies. +# 'none' -- dependencies not supported. +# 'unknown' -- same as none, but documents that we really don't know. +# 'pass_all' -- all dependencies passed with no checks. +# 'test_compile' -- check by making test program. +# 'file_magic [[regex]]' -- check by looking for files in library path +# that responds to the $file_magic_cmd with a given extended regex. +# If you have 'file' or equivalent on your system and you're not sure +# whether 'pass_all' will *always* work, you probably want this one. + +case $host_os in +aix[4-9]*) + lt_cv_deplibs_check_method=pass_all + ;; + +beos*) + lt_cv_deplibs_check_method=pass_all + ;; + +bsdi[45]*) + lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (shared object|dynamic lib)' + lt_cv_file_magic_cmd='/usr/bin/file -L' + lt_cv_file_magic_test_file=/shlib/libc.so + ;; + +cygwin*) + # func_win32_libid is a shell function defined in ltmain.sh + lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL' + lt_cv_file_magic_cmd='func_win32_libid' + ;; + +mingw* | pw32*) + # Base MSYS/MinGW do not provide the 'file' command needed by + # func_win32_libid shell function, so use a weaker test based on 'objdump', + # unless we find 'file', for example because we are cross-compiling. + if ( file / ) >/dev/null 2>&1; then + lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL' + lt_cv_file_magic_cmd='func_win32_libid' + else + # Keep this pattern in sync with the one in func_win32_libid. + lt_cv_deplibs_check_method='file_magic file format (pei*-i386(.*architecture: i386)?|pe-arm-wince|pe-x86-64)' + lt_cv_file_magic_cmd='$OBJDUMP -f' + fi + ;; + +cegcc*) + # use the weaker test based on 'objdump'. See mingw*. + lt_cv_deplibs_check_method='file_magic file format pe-arm-.*little(.*architecture: arm)?' + lt_cv_file_magic_cmd='$OBJDUMP -f' + ;; + +darwin* | rhapsody*) + lt_cv_deplibs_check_method=pass_all + ;; + +freebsd* | dragonfly*) + if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then + case $host_cpu in + i*86 ) + # Not sure whether the presence of OpenBSD here was a mistake. + # Let's accept both of them until this is cleared up. + lt_cv_deplibs_check_method='file_magic (FreeBSD|OpenBSD|DragonFly)/i[3-9]86 (compact )?demand paged shared library' + lt_cv_file_magic_cmd=/usr/bin/file + lt_cv_file_magic_test_file=`echo /usr/lib/libc.so.*` + ;; + esac + else + lt_cv_deplibs_check_method=pass_all + fi + ;; + +haiku*) + lt_cv_deplibs_check_method=pass_all + ;; + +hpux10.20* | hpux11*) + lt_cv_file_magic_cmd=/usr/bin/file + case $host_cpu in + ia64*) + lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF-[0-9][0-9]) shared object file - IA64' + lt_cv_file_magic_test_file=/usr/lib/hpux32/libc.so + ;; + hppa*64*) + lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF[ -][0-9][0-9])(-bit)?( [LM]SB)? shared object( file)?[, -]* PA-RISC [0-9]\.[0-9]' + lt_cv_file_magic_test_file=/usr/lib/pa20_64/libc.sl + ;; + *) + lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|PA-RISC[0-9]\.[0-9]) shared library' + lt_cv_file_magic_test_file=/usr/lib/libc.sl + ;; + esac + ;; + +interix[3-9]*) + # PIC code is broken on Interix 3.x, that's why |\.a not |_pic\.a here + lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so|\.a)$' + ;; + +irix5* | irix6* | nonstopux*) + case $LD in + *-32|*"-32 ") libmagic=32-bit;; + *-n32|*"-n32 ") libmagic=N32;; + *-64|*"-64 ") libmagic=64-bit;; + *) libmagic=never-match;; + esac + lt_cv_deplibs_check_method=pass_all + ;; + +# This must be glibc/ELF. +linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*) + lt_cv_deplibs_check_method=pass_all + ;; + +netbsd*) + if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then + lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|_pic\.a)$' + else + lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so|_pic\.a)$' + fi + ;; + +newos6*) + lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (executable|dynamic lib)' + lt_cv_file_magic_cmd=/usr/bin/file + lt_cv_file_magic_test_file=/usr/lib/libnls.so + ;; + +*nto* | *qnx*) + lt_cv_deplibs_check_method=pass_all + ;; + +openbsd* | bitrig*) + if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`"; then + lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|\.so|_pic\.a)$' + else + lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|_pic\.a)$' + fi + ;; + +osf3* | osf4* | osf5*) + lt_cv_deplibs_check_method=pass_all + ;; + +rdos*) + lt_cv_deplibs_check_method=pass_all + ;; + +solaris*) + lt_cv_deplibs_check_method=pass_all + ;; + +sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) + lt_cv_deplibs_check_method=pass_all + ;; + +sysv4 | sysv4.3*) + case $host_vendor in + motorola) + lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (shared object|dynamic lib) M[0-9][0-9]* Version [0-9]' + lt_cv_file_magic_test_file=`echo /usr/lib/libc.so*` + ;; + ncr) + lt_cv_deplibs_check_method=pass_all + ;; + sequent) + lt_cv_file_magic_cmd='/bin/file' + lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [LM]SB (shared object|dynamic lib )' + ;; + sni) + lt_cv_file_magic_cmd='/bin/file' + lt_cv_deplibs_check_method="file_magic ELF [0-9][0-9]*-bit [LM]SB dynamic lib" + lt_cv_file_magic_test_file=/lib/libc.so + ;; + siemens) + lt_cv_deplibs_check_method=pass_all + ;; + pc) + lt_cv_deplibs_check_method=pass_all + ;; + esac + ;; + +tpf*) + lt_cv_deplibs_check_method=pass_all + ;; +os2*) + lt_cv_deplibs_check_method=pass_all + ;; +esac + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_deplibs_check_method" >&5 +$as_echo "$lt_cv_deplibs_check_method" >&6; } + +file_magic_glob= +want_nocaseglob=no +if test "$build" = "$host"; then + case $host_os in + mingw* | pw32*) + if ( shopt | grep nocaseglob ) >/dev/null 2>&1; then + want_nocaseglob=yes + else + file_magic_glob=`echo aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ | $SED -e "s/\(..\)/s\/[\1]\/[\1]\/g;/g"` + fi + ;; + esac +fi + +file_magic_cmd=$lt_cv_file_magic_cmd +deplibs_check_method=$lt_cv_deplibs_check_method +test -z "$deplibs_check_method" && deplibs_check_method=unknown + + + + + + + + + + + + + + + + + + + + + + +if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}dlltool", so it can be a program name with args. +set dummy ${ac_tool_prefix}dlltool; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_DLLTOOL+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$DLLTOOL"; then + ac_cv_prog_DLLTOOL="$DLLTOOL" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_DLLTOOL="${ac_tool_prefix}dlltool" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +DLLTOOL=$ac_cv_prog_DLLTOOL +if test -n "$DLLTOOL"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DLLTOOL" >&5 +$as_echo "$DLLTOOL" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + +fi +if test -z "$ac_cv_prog_DLLTOOL"; then + ac_ct_DLLTOOL=$DLLTOOL + # Extract the first word of "dlltool", so it can be a program name with args. +set dummy dlltool; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_ac_ct_DLLTOOL+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$ac_ct_DLLTOOL"; then + ac_cv_prog_ac_ct_DLLTOOL="$ac_ct_DLLTOOL" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_DLLTOOL="dlltool" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +ac_ct_DLLTOOL=$ac_cv_prog_ac_ct_DLLTOOL +if test -n "$ac_ct_DLLTOOL"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DLLTOOL" >&5 +$as_echo "$ac_ct_DLLTOOL" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + if test "x$ac_ct_DLLTOOL" = x; then + DLLTOOL="false" + else + case $cross_compiling:$ac_tool_warned in +yes:) +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +ac_tool_warned=yes ;; +esac + DLLTOOL=$ac_ct_DLLTOOL + fi +else + DLLTOOL="$ac_cv_prog_DLLTOOL" +fi + +test -z "$DLLTOOL" && DLLTOOL=dlltool + + + + + + + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to associate runtime and link libraries" >&5 +$as_echo_n "checking how to associate runtime and link libraries... " >&6; } +if ${lt_cv_sharedlib_from_linklib_cmd+:} false; then : + $as_echo_n "(cached) " >&6 +else + lt_cv_sharedlib_from_linklib_cmd='unknown' + +case $host_os in +cygwin* | mingw* | pw32* | cegcc*) + # two different shell functions defined in ltmain.sh; + # decide which one to use based on capabilities of $DLLTOOL + case `$DLLTOOL --help 2>&1` in + *--identify-strict*) + lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib + ;; + *) + lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib_fallback + ;; + esac + ;; +*) + # fallback: assume linklib IS sharedlib + lt_cv_sharedlib_from_linklib_cmd=$ECHO + ;; +esac + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_sharedlib_from_linklib_cmd" >&5 +$as_echo "$lt_cv_sharedlib_from_linklib_cmd" >&6; } +sharedlib_from_linklib_cmd=$lt_cv_sharedlib_from_linklib_cmd +test -z "$sharedlib_from_linklib_cmd" && sharedlib_from_linklib_cmd=$ECHO + + + + + + + +if test -n "$ac_tool_prefix"; then + for ac_prog in ar + do + # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. +set dummy $ac_tool_prefix$ac_prog; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_AR+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$AR"; then + ac_cv_prog_AR="$AR" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_AR="$ac_tool_prefix$ac_prog" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +AR=$ac_cv_prog_AR +if test -n "$AR"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AR" >&5 +$as_echo "$AR" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + + test -n "$AR" && break + done +fi +if test -z "$AR"; then + ac_ct_AR=$AR + for ac_prog in ar +do + # Extract the first word of "$ac_prog", so it can be a program name with args. +set dummy $ac_prog; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_ac_ct_AR+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$ac_ct_AR"; then + ac_cv_prog_ac_ct_AR="$ac_ct_AR" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_AR="$ac_prog" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +ac_ct_AR=$ac_cv_prog_ac_ct_AR +if test -n "$ac_ct_AR"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_AR" >&5 +$as_echo "$ac_ct_AR" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + + test -n "$ac_ct_AR" && break +done + + if test "x$ac_ct_AR" = x; then + AR="false" + else + case $cross_compiling:$ac_tool_warned in +yes:) +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +ac_tool_warned=yes ;; +esac + AR=$ac_ct_AR + fi +fi + +: ${AR=ar} +: ${AR_FLAGS=cru} + + + + + + + + + + + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for archiver @FILE support" >&5 +$as_echo_n "checking for archiver @FILE support... " >&6; } +if ${lt_cv_ar_at_file+:} false; then : + $as_echo_n "(cached) " >&6 +else + lt_cv_ar_at_file=no + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + echo conftest.$ac_objext > conftest.lst + lt_ar_try='$AR $AR_FLAGS libconftest.a @conftest.lst >&5' + { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$lt_ar_try\""; } >&5 + (eval $lt_ar_try) 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } + if test 0 -eq "$ac_status"; then + # Ensure the archiver fails upon bogus file names. + rm -f conftest.$ac_objext libconftest.a + { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$lt_ar_try\""; } >&5 + (eval $lt_ar_try) 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } + if test 0 -ne "$ac_status"; then + lt_cv_ar_at_file=@ + fi + fi + rm -f conftest.* libconftest.a + +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ar_at_file" >&5 +$as_echo "$lt_cv_ar_at_file" >&6; } + +if test no = "$lt_cv_ar_at_file"; then + archiver_list_spec= +else + archiver_list_spec=$lt_cv_ar_at_file +fi + + + + + + + +if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args. +set dummy ${ac_tool_prefix}strip; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_STRIP+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$STRIP"; then + ac_cv_prog_STRIP="$STRIP" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_STRIP="${ac_tool_prefix}strip" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +STRIP=$ac_cv_prog_STRIP +if test -n "$STRIP"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $STRIP" >&5 +$as_echo "$STRIP" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + +fi +if test -z "$ac_cv_prog_STRIP"; then + ac_ct_STRIP=$STRIP + # Extract the first word of "strip", so it can be a program name with args. +set dummy strip; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_ac_ct_STRIP+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$ac_ct_STRIP"; then + ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_STRIP="strip" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +ac_ct_STRIP=$ac_cv_prog_ac_ct_STRIP +if test -n "$ac_ct_STRIP"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_STRIP" >&5 +$as_echo "$ac_ct_STRIP" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + if test "x$ac_ct_STRIP" = x; then + STRIP=":" + else + case $cross_compiling:$ac_tool_warned in +yes:) +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +ac_tool_warned=yes ;; +esac + STRIP=$ac_ct_STRIP + fi +else + STRIP="$ac_cv_prog_STRIP" +fi + +test -z "$STRIP" && STRIP=: + + + + + + +if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}ranlib", so it can be a program name with args. +set dummy ${ac_tool_prefix}ranlib; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_RANLIB+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$RANLIB"; then + ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_RANLIB="${ac_tool_prefix}ranlib" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +RANLIB=$ac_cv_prog_RANLIB +if test -n "$RANLIB"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $RANLIB" >&5 +$as_echo "$RANLIB" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + +fi +if test -z "$ac_cv_prog_RANLIB"; then + ac_ct_RANLIB=$RANLIB + # Extract the first word of "ranlib", so it can be a program name with args. +set dummy ranlib; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_ac_ct_RANLIB+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$ac_ct_RANLIB"; then + ac_cv_prog_ac_ct_RANLIB="$ac_ct_RANLIB" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_RANLIB="ranlib" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +ac_ct_RANLIB=$ac_cv_prog_ac_ct_RANLIB +if test -n "$ac_ct_RANLIB"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_RANLIB" >&5 +$as_echo "$ac_ct_RANLIB" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + if test "x$ac_ct_RANLIB" = x; then + RANLIB=":" + else + case $cross_compiling:$ac_tool_warned in +yes:) +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +ac_tool_warned=yes ;; +esac + RANLIB=$ac_ct_RANLIB + fi +else + RANLIB="$ac_cv_prog_RANLIB" +fi + +test -z "$RANLIB" && RANLIB=: + + + + + + +# Determine commands to create old-style static archives. +old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs' +old_postinstall_cmds='chmod 644 $oldlib' +old_postuninstall_cmds= + +if test -n "$RANLIB"; then + case $host_os in + bitrig* | openbsd*) + old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB -t \$tool_oldlib" + ;; + *) + old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB \$tool_oldlib" + ;; + esac + old_archive_cmds="$old_archive_cmds~\$RANLIB \$tool_oldlib" +fi + +case $host_os in + darwin*) + lock_old_archive_extraction=yes ;; + *) + lock_old_archive_extraction=no ;; +esac + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +# If no C compiler was specified, use CC. +LTCC=${LTCC-"$CC"} + +# If no C compiler flags were specified, use CFLAGS. +LTCFLAGS=${LTCFLAGS-"$CFLAGS"} + +# Allow CC to be a program name with arguments. +compiler=$CC + + +# Check for command to grab the raw symbol name followed by C symbol from nm. +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking command to parse $NM output from $compiler object" >&5 +$as_echo_n "checking command to parse $NM output from $compiler object... " >&6; } +if ${lt_cv_sys_global_symbol_pipe+:} false; then : + $as_echo_n "(cached) " >&6 +else + +# These are sane defaults that work on at least a few old systems. +# [They come from Ultrix. What could be older than Ultrix?!! ;)] + +# Character class describing NM global symbol codes. +symcode='[BCDEGRST]' + +# Regexp to match symbols that can be accessed directly from C. +sympat='\([_A-Za-z][_A-Za-z0-9]*\)' + +# Define system-specific variables. +case $host_os in +aix*) + symcode='[BCDT]' + ;; +cygwin* | mingw* | pw32* | cegcc*) + symcode='[ABCDGISTW]' + ;; +hpux*) + if test ia64 = "$host_cpu"; then + symcode='[ABCDEGRST]' + fi + ;; +irix* | nonstopux*) + symcode='[BCDEGRST]' + ;; +osf*) + symcode='[BCDEGQRST]' + ;; +solaris*) + symcode='[BCDRT]' + ;; +sco3.2v5*) + symcode='[DT]' + ;; +sysv4.2uw2*) + symcode='[DT]' + ;; +sysv5* | sco5v6* | unixware* | OpenUNIX*) + symcode='[ABDT]' + ;; +sysv4) + symcode='[DFNSTU]' + ;; +esac + +# If we're using GNU nm, then use its standard symbol codes. +case `$NM -V 2>&1` in +*GNU* | *'with BFD'*) + symcode='[ABCDGIRSTW]' ;; +esac + +if test "$lt_cv_nm_interface" = "MS dumpbin"; then + # Gets list of data symbols to import. + lt_cv_sys_global_symbol_to_import="sed -n -e 's/^I .* \(.*\)$/\1/p'" + # Adjust the below global symbol transforms to fixup imported variables. + lt_cdecl_hook=" -e 's/^I .* \(.*\)$/extern __declspec(dllimport) char \1;/p'" + lt_c_name_hook=" -e 's/^I .* \(.*\)$/ {\"\1\", (void *) 0},/p'" + lt_c_name_lib_hook="\ + -e 's/^I .* \(lib.*\)$/ {\"\1\", (void *) 0},/p'\ + -e 's/^I .* \(.*\)$/ {\"lib\1\", (void *) 0},/p'" +else + # Disable hooks by default. + lt_cv_sys_global_symbol_to_import= + lt_cdecl_hook= + lt_c_name_hook= + lt_c_name_lib_hook= +fi + +# Transform an extracted symbol line into a proper C declaration. +# Some systems (esp. on ia64) link data and code symbols differently, +# so use this general approach. +lt_cv_sys_global_symbol_to_cdecl="sed -n"\ +$lt_cdecl_hook\ +" -e 's/^T .* \(.*\)$/extern int \1();/p'"\ +" -e 's/^$symcode$symcode* .* \(.*\)$/extern char \1;/p'" + +# Transform an extracted symbol line into symbol name and symbol address +lt_cv_sys_global_symbol_to_c_name_address="sed -n"\ +$lt_c_name_hook\ +" -e 's/^: \(.*\) .*$/ {\"\1\", (void *) 0},/p'"\ +" -e 's/^$symcode$symcode* .* \(.*\)$/ {\"\1\", (void *) \&\1},/p'" + +# Transform an extracted symbol line into symbol name with lib prefix and +# symbol address. +lt_cv_sys_global_symbol_to_c_name_address_lib_prefix="sed -n"\ +$lt_c_name_lib_hook\ +" -e 's/^: \(.*\) .*$/ {\"\1\", (void *) 0},/p'"\ +" -e 's/^$symcode$symcode* .* \(lib.*\)$/ {\"\1\", (void *) \&\1},/p'"\ +" -e 's/^$symcode$symcode* .* \(.*\)$/ {\"lib\1\", (void *) \&\1},/p'" + +# Handle CRLF in mingw tool chain +opt_cr= +case $build_os in +mingw*) + opt_cr=`$ECHO 'x\{0,1\}' | tr x '\015'` # option cr in regexp + ;; +esac + +# Try without a prefix underscore, then with it. +for ac_symprfx in "" "_"; do + + # Transform symcode, sympat, and symprfx into a raw symbol and a C symbol. + symxfrm="\\1 $ac_symprfx\\2 \\2" + + # Write the raw and C identifiers. + if test "$lt_cv_nm_interface" = "MS dumpbin"; then + # Fake it for dumpbin and say T for any non-static function, + # D for any global variable and I for any imported variable. + # Also find C++ and __fastcall symbols from MSVC++, + # which start with @ or ?. + lt_cv_sys_global_symbol_pipe="$AWK '"\ +" {last_section=section; section=\$ 3};"\ +" /^COFF SYMBOL TABLE/{for(i in hide) delete hide[i]};"\ +" /Section length .*#relocs.*(pick any)/{hide[last_section]=1};"\ +" /^ *Symbol name *: /{split(\$ 0,sn,\":\"); si=substr(sn[2],2)};"\ +" /^ *Type *: code/{print \"T\",si,substr(si,length(prfx))};"\ +" /^ *Type *: data/{print \"I\",si,substr(si,length(prfx))};"\ +" \$ 0!~/External *\|/{next};"\ +" / 0+ UNDEF /{next}; / UNDEF \([^|]\)*()/{next};"\ +" {if(hide[section]) next};"\ +" {f=\"D\"}; \$ 0~/\(\).*\|/{f=\"T\"};"\ +" {split(\$ 0,a,/\||\r/); split(a[2],s)};"\ +" s[1]~/^[@?]/{print f,s[1],s[1]; next};"\ +" s[1]~prfx {split(s[1],t,\"@\"); print f,t[1],substr(t[1],length(prfx))}"\ +" ' prfx=^$ac_symprfx" + else + lt_cv_sys_global_symbol_pipe="sed -n -e 's/^.*[ ]\($symcode$symcode*\)[ ][ ]*$ac_symprfx$sympat$opt_cr$/$symxfrm/p'" + fi + lt_cv_sys_global_symbol_pipe="$lt_cv_sys_global_symbol_pipe | sed '/ __gnu_lto/d'" + + # Check to see that the pipe works correctly. + pipe_works=no + + rm -f conftest* + cat > conftest.$ac_ext <<_LT_EOF +#ifdef __cplusplus +extern "C" { +#endif +char nm_test_var; +void nm_test_func(void); +void nm_test_func(void){} +#ifdef __cplusplus +} +#endif +int main(){nm_test_var='a';nm_test_func();return(0);} +_LT_EOF + + if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 + (eval $ac_compile) 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; then + # Now try to grab the symbols. + nlist=conftest.nm + if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$NM conftest.$ac_objext \| "$lt_cv_sys_global_symbol_pipe" \> $nlist\""; } >&5 + (eval $NM conftest.$ac_objext \| "$lt_cv_sys_global_symbol_pipe" \> $nlist) 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } && test -s "$nlist"; then + # Try sorting and uniquifying the output. + if sort "$nlist" | uniq > "$nlist"T; then + mv -f "$nlist"T "$nlist" + else + rm -f "$nlist"T + fi + + # Make sure that we snagged all the symbols we need. + if $GREP ' nm_test_var$' "$nlist" >/dev/null; then + if $GREP ' nm_test_func$' "$nlist" >/dev/null; then + cat <<_LT_EOF > conftest.$ac_ext +/* Keep this code in sync between libtool.m4, ltmain, lt_system.h, and tests. */ +#if defined _WIN32 || defined __CYGWIN__ || defined _WIN32_WCE +/* DATA imports from DLLs on WIN32 can't be const, because runtime + relocations are performed -- see ld's documentation on pseudo-relocs. */ +# define LT_DLSYM_CONST +#elif defined __osf__ +/* This system does not cope well with relocations in const data. */ +# define LT_DLSYM_CONST +#else +# define LT_DLSYM_CONST const +#endif + +#ifdef __cplusplus +extern "C" { +#endif + +_LT_EOF + # Now generate the symbol file. + eval "$lt_cv_sys_global_symbol_to_cdecl"' < "$nlist" | $GREP -v main >> conftest.$ac_ext' + + cat <<_LT_EOF >> conftest.$ac_ext + +/* The mapping between symbol names and symbols. */ +LT_DLSYM_CONST struct { + const char *name; + void *address; +} +lt__PROGRAM__LTX_preloaded_symbols[] = +{ + { "@PROGRAM@", (void *) 0 }, +_LT_EOF + $SED "s/^$symcode$symcode* .* \(.*\)$/ {\"\1\", (void *) \&\1},/" < "$nlist" | $GREP -v main >> conftest.$ac_ext + cat <<\_LT_EOF >> conftest.$ac_ext + {0, (void *) 0} +}; + +/* This works around a problem in FreeBSD linker */ +#ifdef FREEBSD_WORKAROUND +static const void *lt_preloaded_setup() { + return lt__PROGRAM__LTX_preloaded_symbols; +} +#endif + +#ifdef __cplusplus +} +#endif +_LT_EOF + # Now try linking the two files. + mv conftest.$ac_objext conftstm.$ac_objext + lt_globsym_save_LIBS=$LIBS + lt_globsym_save_CFLAGS=$CFLAGS + LIBS=conftstm.$ac_objext + CFLAGS="$CFLAGS$lt_prog_compiler_no_builtin_flag" + if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 + (eval $ac_link) 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } && test -s conftest$ac_exeext; then + pipe_works=yes + fi + LIBS=$lt_globsym_save_LIBS + CFLAGS=$lt_globsym_save_CFLAGS + else + echo "cannot find nm_test_func in $nlist" >&5 + fi + else + echo "cannot find nm_test_var in $nlist" >&5 + fi + else + echo "cannot run $lt_cv_sys_global_symbol_pipe" >&5 + fi + else + echo "$progname: failed program was:" >&5 + cat conftest.$ac_ext >&5 + fi + rm -rf conftest* conftst* + + # Do not use the global_symbol_pipe unless it works. + if test yes = "$pipe_works"; then + break + else + lt_cv_sys_global_symbol_pipe= + fi +done + +fi + +if test -z "$lt_cv_sys_global_symbol_pipe"; then + lt_cv_sys_global_symbol_to_cdecl= +fi +if test -z "$lt_cv_sys_global_symbol_pipe$lt_cv_sys_global_symbol_to_cdecl"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: failed" >&5 +$as_echo "failed" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: ok" >&5 +$as_echo "ok" >&6; } +fi + +# Response file support. +if test "$lt_cv_nm_interface" = "MS dumpbin"; then + nm_file_list_spec='@' +elif $NM --help 2>/dev/null | grep '[@]FILE' >/dev/null; then + nm_file_list_spec='@' +fi + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for sysroot" >&5 +$as_echo_n "checking for sysroot... " >&6; } + +# Check whether --with-sysroot was given. +if test "${with_sysroot+set}" = set; then : + withval=$with_sysroot; +else + with_sysroot=no +fi + + +lt_sysroot= +case $with_sysroot in #( + yes) + if test yes = "$GCC"; then + lt_sysroot=`$CC --print-sysroot 2>/dev/null` + fi + ;; #( + /*) + lt_sysroot=`echo "$with_sysroot" | sed -e "$sed_quote_subst"` + ;; #( + no|'') + ;; #( + *) + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $with_sysroot" >&5 +$as_echo "$with_sysroot" >&6; } + as_fn_error $? "The sysroot must be an absolute path." "$LINENO" 5 + ;; +esac + + { $as_echo "$as_me:${as_lineno-$LINENO}: result: ${lt_sysroot:-no}" >&5 +$as_echo "${lt_sysroot:-no}" >&6; } + + + + + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for a working dd" >&5 +$as_echo_n "checking for a working dd... " >&6; } +if ${ac_cv_path_lt_DD+:} false; then : + $as_echo_n "(cached) " >&6 +else + printf 0123456789abcdef0123456789abcdef >conftest.i +cat conftest.i conftest.i >conftest2.i +: ${lt_DD:=$DD} +if test -z "$lt_DD"; then + ac_path_lt_DD_found=false + # Loop through the user's path and test for each of PROGNAME-LIST + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_prog in dd; do + for ac_exec_ext in '' $ac_executable_extensions; do + ac_path_lt_DD="$as_dir/$ac_prog$ac_exec_ext" + as_fn_executable_p "$ac_path_lt_DD" || continue +if "$ac_path_lt_DD" bs=32 count=1 conftest.out 2>/dev/null; then + cmp -s conftest.i conftest.out \ + && ac_cv_path_lt_DD="$ac_path_lt_DD" ac_path_lt_DD_found=: +fi + $ac_path_lt_DD_found && break 3 + done + done + done +IFS=$as_save_IFS + if test -z "$ac_cv_path_lt_DD"; then + : + fi +else + ac_cv_path_lt_DD=$lt_DD +fi + +rm -f conftest.i conftest2.i conftest.out +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_lt_DD" >&5 +$as_echo "$ac_cv_path_lt_DD" >&6; } + + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to truncate binary pipes" >&5 +$as_echo_n "checking how to truncate binary pipes... " >&6; } +if ${lt_cv_truncate_bin+:} false; then : + $as_echo_n "(cached) " >&6 +else + printf 0123456789abcdef0123456789abcdef >conftest.i +cat conftest.i conftest.i >conftest2.i +lt_cv_truncate_bin= +if "$ac_cv_path_lt_DD" bs=32 count=1 conftest.out 2>/dev/null; then + cmp -s conftest.i conftest.out \ + && lt_cv_truncate_bin="$ac_cv_path_lt_DD bs=4096 count=1" +fi +rm -f conftest.i conftest2.i conftest.out +test -z "$lt_cv_truncate_bin" && lt_cv_truncate_bin="$SED -e 4q" +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_truncate_bin" >&5 +$as_echo "$lt_cv_truncate_bin" >&6; } + + + + + + + +# Calculate cc_basename. Skip known compiler wrappers and cross-prefix. +func_cc_basename () +{ + for cc_temp in $*""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac + done + func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` +} + +# Check whether --enable-libtool-lock was given. +if test "${enable_libtool_lock+set}" = set; then : + enableval=$enable_libtool_lock; +fi + +test no = "$enable_libtool_lock" || enable_libtool_lock=yes + +# Some flags need to be propagated to the compiler or linker for good +# libtool support. +case $host in +ia64-*-hpux*) + # Find out what ABI is being produced by ac_compile, and set mode + # options accordingly. + echo 'int i;' > conftest.$ac_ext + if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 + (eval $ac_compile) 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; then + case `/usr/bin/file conftest.$ac_objext` in + *ELF-32*) + HPUX_IA64_MODE=32 + ;; + *ELF-64*) + HPUX_IA64_MODE=64 + ;; + esac + fi + rm -rf conftest* + ;; +*-*-irix6*) + # Find out what ABI is being produced by ac_compile, and set linker + # options accordingly. + echo '#line '$LINENO' "configure"' > conftest.$ac_ext + if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 + (eval $ac_compile) 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; then + if test yes = "$lt_cv_prog_gnu_ld"; then + case `/usr/bin/file conftest.$ac_objext` in + *32-bit*) + LD="${LD-ld} -melf32bsmip" + ;; + *N32*) + LD="${LD-ld} -melf32bmipn32" + ;; + *64-bit*) + LD="${LD-ld} -melf64bmip" + ;; + esac + else + case `/usr/bin/file conftest.$ac_objext` in + *32-bit*) + LD="${LD-ld} -32" + ;; + *N32*) + LD="${LD-ld} -n32" + ;; + *64-bit*) + LD="${LD-ld} -64" + ;; + esac + fi + fi + rm -rf conftest* + ;; + +mips64*-*linux*) + # Find out what ABI is being produced by ac_compile, and set linker + # options accordingly. + echo '#line '$LINENO' "configure"' > conftest.$ac_ext + if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 + (eval $ac_compile) 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; then + emul=elf + case `/usr/bin/file conftest.$ac_objext` in + *32-bit*) + emul="${emul}32" + ;; + *64-bit*) + emul="${emul}64" + ;; + esac + case `/usr/bin/file conftest.$ac_objext` in + *MSB*) + emul="${emul}btsmip" + ;; + *LSB*) + emul="${emul}ltsmip" + ;; + esac + case `/usr/bin/file conftest.$ac_objext` in + *N32*) + emul="${emul}n32" + ;; + esac + LD="${LD-ld} -m $emul" + fi + rm -rf conftest* + ;; + +x86_64-*kfreebsd*-gnu|x86_64-*linux*|powerpc*-*linux*| \ +s390*-*linux*|s390*-*tpf*|sparc*-*linux*) + # Find out what ABI is being produced by ac_compile, and set linker + # options accordingly. Note that the listed cases only cover the + # situations where additional linker options are needed (such as when + # doing 32-bit compilation for a host where ld defaults to 64-bit, or + # vice versa); the common cases where no linker options are needed do + # not appear in the list. + echo 'int i;' > conftest.$ac_ext + if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 + (eval $ac_compile) 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; then + case `/usr/bin/file conftest.o` in + *32-bit*) + case $host in + x86_64-*kfreebsd*-gnu) + LD="${LD-ld} -m elf_i386_fbsd" + ;; + x86_64-*linux*) + case `/usr/bin/file conftest.o` in + *x86-64*) + LD="${LD-ld} -m elf32_x86_64" + ;; + *) + LD="${LD-ld} -m elf_i386" + ;; + esac + ;; + powerpc64le-*linux*) + LD="${LD-ld} -m elf32lppclinux" + ;; + powerpc64-*linux*) + LD="${LD-ld} -m elf32ppclinux" + ;; + s390x-*linux*) + LD="${LD-ld} -m elf_s390" + ;; + sparc64-*linux*) + LD="${LD-ld} -m elf32_sparc" + ;; + esac + ;; + *64-bit*) + case $host in + x86_64-*kfreebsd*-gnu) + LD="${LD-ld} -m elf_x86_64_fbsd" + ;; + x86_64-*linux*) + LD="${LD-ld} -m elf_x86_64" + ;; + powerpcle-*linux*) + LD="${LD-ld} -m elf64lppc" + ;; + powerpc-*linux*) + LD="${LD-ld} -m elf64ppc" + ;; + s390*-*linux*|s390*-*tpf*) + LD="${LD-ld} -m elf64_s390" + ;; + sparc*-*linux*) + LD="${LD-ld} -m elf64_sparc" + ;; + esac + ;; + esac + fi + rm -rf conftest* + ;; + +*-*-sco3.2v5*) + # On SCO OpenServer 5, we need -belf to get full-featured binaries. + SAVE_CFLAGS=$CFLAGS + CFLAGS="$CFLAGS -belf" + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler needs -belf" >&5 +$as_echo_n "checking whether the C compiler needs -belf... " >&6; } +if ${lt_cv_cc_needs_belf+:} false; then : + $as_echo_n "(cached) " >&6 +else + ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_link "$LINENO"; then : + lt_cv_cc_needs_belf=yes +else + lt_cv_cc_needs_belf=no +fi +rm -f core conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext + ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_cc_needs_belf" >&5 +$as_echo "$lt_cv_cc_needs_belf" >&6; } + if test yes != "$lt_cv_cc_needs_belf"; then + # this is probably gcc 2.8.0, egcs 1.0 or newer; no need for -belf + CFLAGS=$SAVE_CFLAGS + fi + ;; +*-*solaris*) + # Find out what ABI is being produced by ac_compile, and set linker + # options accordingly. + echo 'int i;' > conftest.$ac_ext + if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 + (eval $ac_compile) 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; then + case `/usr/bin/file conftest.o` in + *64-bit*) + case $lt_cv_prog_gnu_ld in + yes*) + case $host in + i?86-*-solaris*|x86_64-*-solaris*) + LD="${LD-ld} -m elf_x86_64" + ;; + sparc*-*-solaris*) + LD="${LD-ld} -m elf64_sparc" + ;; + esac + # GNU ld 2.21 introduced _sol2 emulations. Use them if available. + if ${LD-ld} -V | grep _sol2 >/dev/null 2>&1; then + LD=${LD-ld}_sol2 + fi + ;; + *) + if ${LD-ld} -64 -r -o conftest2.o conftest.o >/dev/null 2>&1; then + LD="${LD-ld} -64" + fi + ;; + esac + ;; + esac + fi + rm -rf conftest* + ;; +esac + +need_locks=$enable_libtool_lock + +if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}mt", so it can be a program name with args. +set dummy ${ac_tool_prefix}mt; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_MANIFEST_TOOL+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$MANIFEST_TOOL"; then + ac_cv_prog_MANIFEST_TOOL="$MANIFEST_TOOL" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_MANIFEST_TOOL="${ac_tool_prefix}mt" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +MANIFEST_TOOL=$ac_cv_prog_MANIFEST_TOOL +if test -n "$MANIFEST_TOOL"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MANIFEST_TOOL" >&5 +$as_echo "$MANIFEST_TOOL" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + +fi +if test -z "$ac_cv_prog_MANIFEST_TOOL"; then + ac_ct_MANIFEST_TOOL=$MANIFEST_TOOL + # Extract the first word of "mt", so it can be a program name with args. +set dummy mt; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_ac_ct_MANIFEST_TOOL+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$ac_ct_MANIFEST_TOOL"; then + ac_cv_prog_ac_ct_MANIFEST_TOOL="$ac_ct_MANIFEST_TOOL" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_MANIFEST_TOOL="mt" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +ac_ct_MANIFEST_TOOL=$ac_cv_prog_ac_ct_MANIFEST_TOOL +if test -n "$ac_ct_MANIFEST_TOOL"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_MANIFEST_TOOL" >&5 +$as_echo "$ac_ct_MANIFEST_TOOL" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + if test "x$ac_ct_MANIFEST_TOOL" = x; then + MANIFEST_TOOL=":" + else + case $cross_compiling:$ac_tool_warned in +yes:) +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +ac_tool_warned=yes ;; +esac + MANIFEST_TOOL=$ac_ct_MANIFEST_TOOL + fi +else + MANIFEST_TOOL="$ac_cv_prog_MANIFEST_TOOL" +fi + +test -z "$MANIFEST_TOOL" && MANIFEST_TOOL=mt +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if $MANIFEST_TOOL is a manifest tool" >&5 +$as_echo_n "checking if $MANIFEST_TOOL is a manifest tool... " >&6; } +if ${lt_cv_path_mainfest_tool+:} false; then : + $as_echo_n "(cached) " >&6 +else + lt_cv_path_mainfest_tool=no + echo "$as_me:$LINENO: $MANIFEST_TOOL '-?'" >&5 + $MANIFEST_TOOL '-?' 2>conftest.err > conftest.out + cat conftest.err >&5 + if $GREP 'Manifest Tool' conftest.out > /dev/null; then + lt_cv_path_mainfest_tool=yes + fi + rm -f conftest* +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_path_mainfest_tool" >&5 +$as_echo "$lt_cv_path_mainfest_tool" >&6; } +if test yes != "$lt_cv_path_mainfest_tool"; then + MANIFEST_TOOL=: +fi + + + + + + + case $host_os in + rhapsody* | darwin*) + if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}dsymutil", so it can be a program name with args. +set dummy ${ac_tool_prefix}dsymutil; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_DSYMUTIL+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$DSYMUTIL"; then + ac_cv_prog_DSYMUTIL="$DSYMUTIL" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_DSYMUTIL="${ac_tool_prefix}dsymutil" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +DSYMUTIL=$ac_cv_prog_DSYMUTIL +if test -n "$DSYMUTIL"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DSYMUTIL" >&5 +$as_echo "$DSYMUTIL" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + +fi +if test -z "$ac_cv_prog_DSYMUTIL"; then + ac_ct_DSYMUTIL=$DSYMUTIL + # Extract the first word of "dsymutil", so it can be a program name with args. +set dummy dsymutil; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_ac_ct_DSYMUTIL+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$ac_ct_DSYMUTIL"; then + ac_cv_prog_ac_ct_DSYMUTIL="$ac_ct_DSYMUTIL" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_DSYMUTIL="dsymutil" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +ac_ct_DSYMUTIL=$ac_cv_prog_ac_ct_DSYMUTIL +if test -n "$ac_ct_DSYMUTIL"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DSYMUTIL" >&5 +$as_echo "$ac_ct_DSYMUTIL" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + if test "x$ac_ct_DSYMUTIL" = x; then + DSYMUTIL=":" + else + case $cross_compiling:$ac_tool_warned in +yes:) +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +ac_tool_warned=yes ;; +esac + DSYMUTIL=$ac_ct_DSYMUTIL + fi +else + DSYMUTIL="$ac_cv_prog_DSYMUTIL" +fi + + if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}nmedit", so it can be a program name with args. +set dummy ${ac_tool_prefix}nmedit; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_NMEDIT+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$NMEDIT"; then + ac_cv_prog_NMEDIT="$NMEDIT" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_NMEDIT="${ac_tool_prefix}nmedit" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +NMEDIT=$ac_cv_prog_NMEDIT +if test -n "$NMEDIT"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $NMEDIT" >&5 +$as_echo "$NMEDIT" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + +fi +if test -z "$ac_cv_prog_NMEDIT"; then + ac_ct_NMEDIT=$NMEDIT + # Extract the first word of "nmedit", so it can be a program name with args. +set dummy nmedit; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_ac_ct_NMEDIT+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$ac_ct_NMEDIT"; then + ac_cv_prog_ac_ct_NMEDIT="$ac_ct_NMEDIT" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_NMEDIT="nmedit" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +ac_ct_NMEDIT=$ac_cv_prog_ac_ct_NMEDIT +if test -n "$ac_ct_NMEDIT"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_NMEDIT" >&5 +$as_echo "$ac_ct_NMEDIT" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + if test "x$ac_ct_NMEDIT" = x; then + NMEDIT=":" + else + case $cross_compiling:$ac_tool_warned in +yes:) +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +ac_tool_warned=yes ;; +esac + NMEDIT=$ac_ct_NMEDIT + fi +else + NMEDIT="$ac_cv_prog_NMEDIT" +fi + + if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}lipo", so it can be a program name with args. +set dummy ${ac_tool_prefix}lipo; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_LIPO+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$LIPO"; then + ac_cv_prog_LIPO="$LIPO" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_LIPO="${ac_tool_prefix}lipo" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +LIPO=$ac_cv_prog_LIPO +if test -n "$LIPO"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $LIPO" >&5 +$as_echo "$LIPO" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + +fi +if test -z "$ac_cv_prog_LIPO"; then + ac_ct_LIPO=$LIPO + # Extract the first word of "lipo", so it can be a program name with args. +set dummy lipo; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_ac_ct_LIPO+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$ac_ct_LIPO"; then + ac_cv_prog_ac_ct_LIPO="$ac_ct_LIPO" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_LIPO="lipo" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +ac_ct_LIPO=$ac_cv_prog_ac_ct_LIPO +if test -n "$ac_ct_LIPO"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_LIPO" >&5 +$as_echo "$ac_ct_LIPO" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + if test "x$ac_ct_LIPO" = x; then + LIPO=":" + else + case $cross_compiling:$ac_tool_warned in +yes:) +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +ac_tool_warned=yes ;; +esac + LIPO=$ac_ct_LIPO + fi +else + LIPO="$ac_cv_prog_LIPO" +fi + + if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}otool", so it can be a program name with args. +set dummy ${ac_tool_prefix}otool; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_OTOOL+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$OTOOL"; then + ac_cv_prog_OTOOL="$OTOOL" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_OTOOL="${ac_tool_prefix}otool" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +OTOOL=$ac_cv_prog_OTOOL +if test -n "$OTOOL"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OTOOL" >&5 +$as_echo "$OTOOL" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + +fi +if test -z "$ac_cv_prog_OTOOL"; then + ac_ct_OTOOL=$OTOOL + # Extract the first word of "otool", so it can be a program name with args. +set dummy otool; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_ac_ct_OTOOL+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$ac_ct_OTOOL"; then + ac_cv_prog_ac_ct_OTOOL="$ac_ct_OTOOL" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_OTOOL="otool" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +ac_ct_OTOOL=$ac_cv_prog_ac_ct_OTOOL +if test -n "$ac_ct_OTOOL"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OTOOL" >&5 +$as_echo "$ac_ct_OTOOL" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + if test "x$ac_ct_OTOOL" = x; then + OTOOL=":" + else + case $cross_compiling:$ac_tool_warned in +yes:) +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +ac_tool_warned=yes ;; +esac + OTOOL=$ac_ct_OTOOL + fi +else + OTOOL="$ac_cv_prog_OTOOL" +fi + + if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}otool64", so it can be a program name with args. +set dummy ${ac_tool_prefix}otool64; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_OTOOL64+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$OTOOL64"; then + ac_cv_prog_OTOOL64="$OTOOL64" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_OTOOL64="${ac_tool_prefix}otool64" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +OTOOL64=$ac_cv_prog_OTOOL64 +if test -n "$OTOOL64"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OTOOL64" >&5 +$as_echo "$OTOOL64" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + +fi +if test -z "$ac_cv_prog_OTOOL64"; then + ac_ct_OTOOL64=$OTOOL64 + # Extract the first word of "otool64", so it can be a program name with args. +set dummy otool64; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_ac_ct_OTOOL64+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$ac_ct_OTOOL64"; then + ac_cv_prog_ac_ct_OTOOL64="$ac_ct_OTOOL64" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_OTOOL64="otool64" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +ac_ct_OTOOL64=$ac_cv_prog_ac_ct_OTOOL64 +if test -n "$ac_ct_OTOOL64"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OTOOL64" >&5 +$as_echo "$ac_ct_OTOOL64" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + if test "x$ac_ct_OTOOL64" = x; then + OTOOL64=":" + else + case $cross_compiling:$ac_tool_warned in +yes:) +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +ac_tool_warned=yes ;; +esac + OTOOL64=$ac_ct_OTOOL64 + fi +else + OTOOL64="$ac_cv_prog_OTOOL64" +fi + + + + + + + + + + + + + + + + + + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -single_module linker flag" >&5 +$as_echo_n "checking for -single_module linker flag... " >&6; } +if ${lt_cv_apple_cc_single_mod+:} false; then : + $as_echo_n "(cached) " >&6 +else + lt_cv_apple_cc_single_mod=no + if test -z "$LT_MULTI_MODULE"; then + # By default we will add the -single_module flag. You can override + # by either setting the environment variable LT_MULTI_MODULE + # non-empty at configure time, or by adding -multi_module to the + # link flags. + rm -rf libconftest.dylib* + echo "int foo(void){return 1;}" > conftest.c + echo "$LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \ +-dynamiclib -Wl,-single_module conftest.c" >&5 + $LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \ + -dynamiclib -Wl,-single_module conftest.c 2>conftest.err + _lt_result=$? + # If there is a non-empty error log, and "single_module" + # appears in it, assume the flag caused a linker warning + if test -s conftest.err && $GREP single_module conftest.err; then + cat conftest.err >&5 + # Otherwise, if the output was created with a 0 exit code from + # the compiler, it worked. + elif test -f libconftest.dylib && test 0 = "$_lt_result"; then + lt_cv_apple_cc_single_mod=yes + else + cat conftest.err >&5 + fi + rm -rf libconftest.dylib* + rm -f conftest.* + fi +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_apple_cc_single_mod" >&5 +$as_echo "$lt_cv_apple_cc_single_mod" >&6; } + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -exported_symbols_list linker flag" >&5 +$as_echo_n "checking for -exported_symbols_list linker flag... " >&6; } +if ${lt_cv_ld_exported_symbols_list+:} false; then : + $as_echo_n "(cached) " >&6 +else + lt_cv_ld_exported_symbols_list=no + save_LDFLAGS=$LDFLAGS + echo "_main" > conftest.sym + LDFLAGS="$LDFLAGS -Wl,-exported_symbols_list,conftest.sym" + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_link "$LINENO"; then : + lt_cv_ld_exported_symbols_list=yes +else + lt_cv_ld_exported_symbols_list=no +fi +rm -f core conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext + LDFLAGS=$save_LDFLAGS + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_exported_symbols_list" >&5 +$as_echo "$lt_cv_ld_exported_symbols_list" >&6; } + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -force_load linker flag" >&5 +$as_echo_n "checking for -force_load linker flag... " >&6; } +if ${lt_cv_ld_force_load+:} false; then : + $as_echo_n "(cached) " >&6 +else + lt_cv_ld_force_load=no + cat > conftest.c << _LT_EOF +int forced_loaded() { return 2;} +_LT_EOF + echo "$LTCC $LTCFLAGS -c -o conftest.o conftest.c" >&5 + $LTCC $LTCFLAGS -c -o conftest.o conftest.c 2>&5 + echo "$AR cru libconftest.a conftest.o" >&5 + $AR cru libconftest.a conftest.o 2>&5 + echo "$RANLIB libconftest.a" >&5 + $RANLIB libconftest.a 2>&5 + cat > conftest.c << _LT_EOF +int main() { return 0;} +_LT_EOF + echo "$LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a" >&5 + $LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a 2>conftest.err + _lt_result=$? + if test -s conftest.err && $GREP force_load conftest.err; then + cat conftest.err >&5 + elif test -f conftest && test 0 = "$_lt_result" && $GREP forced_load conftest >/dev/null 2>&1; then + lt_cv_ld_force_load=yes + else + cat conftest.err >&5 + fi + rm -f conftest.err libconftest.a conftest conftest.c + rm -rf conftest.dSYM + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_force_load" >&5 +$as_echo "$lt_cv_ld_force_load" >&6; } + case $host_os in + rhapsody* | darwin1.[012]) + _lt_dar_allow_undefined='$wl-undefined ${wl}suppress' ;; + darwin1.*) + _lt_dar_allow_undefined='$wl-flat_namespace $wl-undefined ${wl}suppress' ;; + darwin*) # darwin 5.x on + # if running on 10.5 or later, the deployment target defaults + # to the OS version, if on x86, and 10.4, the deployment + # target defaults to 10.4. Don't you love it? + case ${MACOSX_DEPLOYMENT_TARGET-10.0},$host in + 10.0,*86*-darwin8*|10.0,*-darwin[91]*) + _lt_dar_allow_undefined='$wl-undefined ${wl}dynamic_lookup' ;; + 10.[012][,.]*) + _lt_dar_allow_undefined='$wl-flat_namespace $wl-undefined ${wl}suppress' ;; + 10.*) + _lt_dar_allow_undefined='$wl-undefined ${wl}dynamic_lookup' ;; + esac + ;; + esac + if test yes = "$lt_cv_apple_cc_single_mod"; then + _lt_dar_single_mod='$single_module' + fi + if test yes = "$lt_cv_ld_exported_symbols_list"; then + _lt_dar_export_syms=' $wl-exported_symbols_list,$output_objdir/$libname-symbols.expsym' + else + _lt_dar_export_syms='~$NMEDIT -s $output_objdir/$libname-symbols.expsym $lib' + fi + if test : != "$DSYMUTIL" && test no = "$lt_cv_ld_force_load"; then + _lt_dsymutil='~$DSYMUTIL $lib || :' + else + _lt_dsymutil= + fi + ;; + esac + +# func_munge_path_list VARIABLE PATH +# ----------------------------------- +# VARIABLE is name of variable containing _space_ separated list of +# directories to be munged by the contents of PATH, which is string +# having a format: +# "DIR[:DIR]:" +# string "DIR[ DIR]" will be prepended to VARIABLE +# ":DIR[:DIR]" +# string "DIR[ DIR]" will be appended to VARIABLE +# "DIRP[:DIRP]::[DIRA:]DIRA" +# string "DIRP[ DIRP]" will be prepended to VARIABLE and string +# "DIRA[ DIRA]" will be appended to VARIABLE +# "DIR[:DIR]" +# VARIABLE will be replaced by "DIR[ DIR]" +func_munge_path_list () +{ + case x$2 in + x) + ;; + *:) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\" + ;; + x:*) + eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\" + ;; + *::*) + eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" + eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\" + ;; + *) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\" + ;; + esac +} + +for ac_header in dlfcn.h +do : + ac_fn_c_check_header_compile "$LINENO" "dlfcn.h" "ac_cv_header_dlfcn_h" "$ac_includes_default +" +if test "x$ac_cv_header_dlfcn_h" = xyes; then : + cat >>confdefs.h <<_ACEOF +#define HAVE_DLFCN_H 1 +_ACEOF + +fi + +done + + + + + +# Set options +enable_win32_dll=yes + +case $host in +*-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-cegcc*) + if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}as", so it can be a program name with args. +set dummy ${ac_tool_prefix}as; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_AS+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$AS"; then + ac_cv_prog_AS="$AS" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_AS="${ac_tool_prefix}as" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +AS=$ac_cv_prog_AS +if test -n "$AS"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AS" >&5 +$as_echo "$AS" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + +fi +if test -z "$ac_cv_prog_AS"; then + ac_ct_AS=$AS + # Extract the first word of "as", so it can be a program name with args. +set dummy as; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_ac_ct_AS+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$ac_ct_AS"; then + ac_cv_prog_ac_ct_AS="$ac_ct_AS" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_AS="as" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +ac_ct_AS=$ac_cv_prog_ac_ct_AS +if test -n "$ac_ct_AS"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_AS" >&5 +$as_echo "$ac_ct_AS" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + if test "x$ac_ct_AS" = x; then + AS="false" + else + case $cross_compiling:$ac_tool_warned in +yes:) +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +ac_tool_warned=yes ;; +esac + AS=$ac_ct_AS + fi +else + AS="$ac_cv_prog_AS" +fi + + if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}dlltool", so it can be a program name with args. +set dummy ${ac_tool_prefix}dlltool; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_DLLTOOL+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$DLLTOOL"; then + ac_cv_prog_DLLTOOL="$DLLTOOL" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_DLLTOOL="${ac_tool_prefix}dlltool" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +DLLTOOL=$ac_cv_prog_DLLTOOL +if test -n "$DLLTOOL"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DLLTOOL" >&5 +$as_echo "$DLLTOOL" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + +fi +if test -z "$ac_cv_prog_DLLTOOL"; then + ac_ct_DLLTOOL=$DLLTOOL + # Extract the first word of "dlltool", so it can be a program name with args. +set dummy dlltool; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_ac_ct_DLLTOOL+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$ac_ct_DLLTOOL"; then + ac_cv_prog_ac_ct_DLLTOOL="$ac_ct_DLLTOOL" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_DLLTOOL="dlltool" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +ac_ct_DLLTOOL=$ac_cv_prog_ac_ct_DLLTOOL +if test -n "$ac_ct_DLLTOOL"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DLLTOOL" >&5 +$as_echo "$ac_ct_DLLTOOL" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + if test "x$ac_ct_DLLTOOL" = x; then + DLLTOOL="false" + else + case $cross_compiling:$ac_tool_warned in +yes:) +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +ac_tool_warned=yes ;; +esac + DLLTOOL=$ac_ct_DLLTOOL + fi +else + DLLTOOL="$ac_cv_prog_DLLTOOL" +fi + + if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}objdump", so it can be a program name with args. +set dummy ${ac_tool_prefix}objdump; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_OBJDUMP+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$OBJDUMP"; then + ac_cv_prog_OBJDUMP="$OBJDUMP" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_OBJDUMP="${ac_tool_prefix}objdump" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +OBJDUMP=$ac_cv_prog_OBJDUMP +if test -n "$OBJDUMP"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OBJDUMP" >&5 +$as_echo "$OBJDUMP" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + +fi +if test -z "$ac_cv_prog_OBJDUMP"; then + ac_ct_OBJDUMP=$OBJDUMP + # Extract the first word of "objdump", so it can be a program name with args. +set dummy objdump; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_ac_ct_OBJDUMP+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$ac_ct_OBJDUMP"; then + ac_cv_prog_ac_ct_OBJDUMP="$ac_ct_OBJDUMP" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_OBJDUMP="objdump" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +ac_ct_OBJDUMP=$ac_cv_prog_ac_ct_OBJDUMP +if test -n "$ac_ct_OBJDUMP"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OBJDUMP" >&5 +$as_echo "$ac_ct_OBJDUMP" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + if test "x$ac_ct_OBJDUMP" = x; then + OBJDUMP="false" + else + case $cross_compiling:$ac_tool_warned in +yes:) +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +ac_tool_warned=yes ;; +esac + OBJDUMP=$ac_ct_OBJDUMP + fi +else + OBJDUMP="$ac_cv_prog_OBJDUMP" +fi + + ;; +esac + +test -z "$AS" && AS=as + + + + + +test -z "$DLLTOOL" && DLLTOOL=dlltool + + + + + +test -z "$OBJDUMP" && OBJDUMP=objdump + + + + + + + + enable_dlopen=no + + + + # Check whether --enable-shared was given. +if test "${enable_shared+set}" = set; then : + enableval=$enable_shared; p=${PACKAGE-default} + case $enableval in + yes) enable_shared=yes ;; + no) enable_shared=no ;; + *) + enable_shared=no + # Look at the argument we got. We use all the common list separators. + lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR, + for pkg in $enableval; do + IFS=$lt_save_ifs + if test "X$pkg" = "X$p"; then + enable_shared=yes + fi + done + IFS=$lt_save_ifs + ;; + esac +else + enable_shared=yes +fi + + + + + + + + + + # Check whether --enable-static was given. +if test "${enable_static+set}" = set; then : + enableval=$enable_static; p=${PACKAGE-default} + case $enableval in + yes) enable_static=yes ;; + no) enable_static=no ;; + *) + enable_static=no + # Look at the argument we got. We use all the common list separators. + lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR, + for pkg in $enableval; do + IFS=$lt_save_ifs + if test "X$pkg" = "X$p"; then + enable_static=yes + fi + done + IFS=$lt_save_ifs + ;; + esac +else + enable_static=yes +fi + + + + + + + + + + +# Check whether --with-pic was given. +if test "${with_pic+set}" = set; then : + withval=$with_pic; lt_p=${PACKAGE-default} + case $withval in + yes|no) pic_mode=$withval ;; + *) + pic_mode=default + # Look at the argument we got. We use all the common list separators. + lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR, + for lt_pkg in $withval; do + IFS=$lt_save_ifs + if test "X$lt_pkg" = "X$lt_p"; then + pic_mode=yes + fi + done + IFS=$lt_save_ifs + ;; + esac +else + pic_mode=default +fi + + + + + + + + + # Check whether --enable-fast-install was given. +if test "${enable_fast_install+set}" = set; then : + enableval=$enable_fast_install; p=${PACKAGE-default} + case $enableval in + yes) enable_fast_install=yes ;; + no) enable_fast_install=no ;; + *) + enable_fast_install=no + # Look at the argument we got. We use all the common list separators. + lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR, + for pkg in $enableval; do + IFS=$lt_save_ifs + if test "X$pkg" = "X$p"; then + enable_fast_install=yes + fi + done + IFS=$lt_save_ifs + ;; + esac +else + enable_fast_install=yes +fi + + + + + + + + + shared_archive_member_spec= +case $host,$enable_shared in +power*-*-aix[5-9]*,yes) + { $as_echo "$as_me:${as_lineno-$LINENO}: checking which variant of shared library versioning to provide" >&5 +$as_echo_n "checking which variant of shared library versioning to provide... " >&6; } + +# Check whether --with-aix-soname was given. +if test "${with_aix_soname+set}" = set; then : + withval=$with_aix_soname; case $withval in + aix|svr4|both) + ;; + *) + as_fn_error $? "Unknown argument to --with-aix-soname" "$LINENO" 5 + ;; + esac + lt_cv_with_aix_soname=$with_aix_soname +else + if ${lt_cv_with_aix_soname+:} false; then : + $as_echo_n "(cached) " >&6 +else + lt_cv_with_aix_soname=aix +fi + + with_aix_soname=$lt_cv_with_aix_soname +fi + + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $with_aix_soname" >&5 +$as_echo "$with_aix_soname" >&6; } + if test aix != "$with_aix_soname"; then + # For the AIX way of multilib, we name the shared archive member + # based on the bitwidth used, traditionally 'shr.o' or 'shr_64.o', + # and 'shr.imp' or 'shr_64.imp', respectively, for the Import File. + # Even when GNU compilers ignore OBJECT_MODE but need '-maix64' flag, + # the AIX toolchain works better with OBJECT_MODE set (default 32). + if test 64 = "${OBJECT_MODE-32}"; then + shared_archive_member_spec=shr_64 + else + shared_archive_member_spec=shr + fi + fi + ;; +*) + with_aix_soname=aix + ;; +esac + + + + + + + + + + +# This can be used to rebuild libtool when needed +LIBTOOL_DEPS=$ltmain + +# Always use our own libtool. +LIBTOOL='$(SHELL) $(top_builddir)/libtool' + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +test -z "$LN_S" && LN_S="ln -s" + + + + + + + + + + + + + + +if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST +fi + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for objdir" >&5 +$as_echo_n "checking for objdir... " >&6; } +if ${lt_cv_objdir+:} false; then : + $as_echo_n "(cached) " >&6 +else + rm -f .libs 2>/dev/null +mkdir .libs 2>/dev/null +if test -d .libs; then + lt_cv_objdir=.libs +else + # MS-DOS does not allow filenames that begin with a dot. + lt_cv_objdir=_libs +fi +rmdir .libs 2>/dev/null +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_objdir" >&5 +$as_echo "$lt_cv_objdir" >&6; } +objdir=$lt_cv_objdir + + + + + +cat >>confdefs.h <<_ACEOF +#define LT_OBJDIR "$lt_cv_objdir/" +_ACEOF + + + + +case $host_os in +aix3*) + # AIX sometimes has problems with the GCC collect2 program. For some + # reason, if we set the COLLECT_NAMES environment variable, the problems + # vanish in a puff of smoke. + if test set != "${COLLECT_NAMES+set}"; then + COLLECT_NAMES= + export COLLECT_NAMES + fi + ;; +esac + +# Global variables: +ofile=libtool +can_build_shared=yes + +# All known linkers require a '.a' archive for static linking (except MSVC, +# which needs '.lib'). +libext=a + +with_gnu_ld=$lt_cv_prog_gnu_ld + +old_CC=$CC +old_CFLAGS=$CFLAGS + +# Set sane defaults for various variables +test -z "$CC" && CC=cc +test -z "$LTCC" && LTCC=$CC +test -z "$LTCFLAGS" && LTCFLAGS=$CFLAGS +test -z "$LD" && LD=ld +test -z "$ac_objext" && ac_objext=o + +func_cc_basename $compiler +cc_basename=$func_cc_basename_result + + +# Only perform the check for file, if the check method requires it +test -z "$MAGIC_CMD" && MAGIC_CMD=file +case $deplibs_check_method in +file_magic*) + if test "$file_magic_cmd" = '$MAGIC_CMD'; then + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ${ac_tool_prefix}file" >&5 +$as_echo_n "checking for ${ac_tool_prefix}file... " >&6; } +if ${lt_cv_path_MAGIC_CMD+:} false; then : + $as_echo_n "(cached) " >&6 +else + case $MAGIC_CMD in +[\\/*] | ?:[\\/]*) + lt_cv_path_MAGIC_CMD=$MAGIC_CMD # Let the user override the test with a path. + ;; +*) + lt_save_MAGIC_CMD=$MAGIC_CMD + lt_save_ifs=$IFS; IFS=$PATH_SEPARATOR + ac_dummy="/usr/bin$PATH_SEPARATOR$PATH" + for ac_dir in $ac_dummy; do + IFS=$lt_save_ifs + test -z "$ac_dir" && ac_dir=. + if test -f "$ac_dir/${ac_tool_prefix}file"; then + lt_cv_path_MAGIC_CMD=$ac_dir/"${ac_tool_prefix}file" + if test -n "$file_magic_test_file"; then + case $deplibs_check_method in + "file_magic "*) + file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"` + MAGIC_CMD=$lt_cv_path_MAGIC_CMD + if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null | + $EGREP "$file_magic_regex" > /dev/null; then + : + else + cat <<_LT_EOF 1>&2 + +*** Warning: the command libtool uses to detect shared libraries, +*** $file_magic_cmd, produces output that libtool cannot recognize. +*** The result is that libtool may fail to recognize shared libraries +*** as such. This will affect the creation of libtool libraries that +*** depend on shared libraries, but programs linked with such libtool +*** libraries will work regardless of this problem. Nevertheless, you +*** may want to report the problem to your system manager and/or to +*** bug-libtool@gnu.org + +_LT_EOF + fi ;; + esac + fi + break + fi + done + IFS=$lt_save_ifs + MAGIC_CMD=$lt_save_MAGIC_CMD + ;; +esac +fi + +MAGIC_CMD=$lt_cv_path_MAGIC_CMD +if test -n "$MAGIC_CMD"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MAGIC_CMD" >&5 +$as_echo "$MAGIC_CMD" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + + + + +if test -z "$lt_cv_path_MAGIC_CMD"; then + if test -n "$ac_tool_prefix"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for file" >&5 +$as_echo_n "checking for file... " >&6; } +if ${lt_cv_path_MAGIC_CMD+:} false; then : + $as_echo_n "(cached) " >&6 +else + case $MAGIC_CMD in +[\\/*] | ?:[\\/]*) + lt_cv_path_MAGIC_CMD=$MAGIC_CMD # Let the user override the test with a path. + ;; +*) + lt_save_MAGIC_CMD=$MAGIC_CMD + lt_save_ifs=$IFS; IFS=$PATH_SEPARATOR + ac_dummy="/usr/bin$PATH_SEPARATOR$PATH" + for ac_dir in $ac_dummy; do + IFS=$lt_save_ifs + test -z "$ac_dir" && ac_dir=. + if test -f "$ac_dir/file"; then + lt_cv_path_MAGIC_CMD=$ac_dir/"file" + if test -n "$file_magic_test_file"; then + case $deplibs_check_method in + "file_magic "*) + file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"` + MAGIC_CMD=$lt_cv_path_MAGIC_CMD + if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null | + $EGREP "$file_magic_regex" > /dev/null; then + : + else + cat <<_LT_EOF 1>&2 + +*** Warning: the command libtool uses to detect shared libraries, +*** $file_magic_cmd, produces output that libtool cannot recognize. +*** The result is that libtool may fail to recognize shared libraries +*** as such. This will affect the creation of libtool libraries that +*** depend on shared libraries, but programs linked with such libtool +*** libraries will work regardless of this problem. Nevertheless, you +*** may want to report the problem to your system manager and/or to +*** bug-libtool@gnu.org + +_LT_EOF + fi ;; + esac + fi + break + fi + done + IFS=$lt_save_ifs + MAGIC_CMD=$lt_save_MAGIC_CMD + ;; +esac +fi + +MAGIC_CMD=$lt_cv_path_MAGIC_CMD +if test -n "$MAGIC_CMD"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MAGIC_CMD" >&5 +$as_echo "$MAGIC_CMD" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + + else + MAGIC_CMD=: + fi +fi + + fi + ;; +esac + +# Use C for the default configuration in the libtool script + +lt_save_CC=$CC +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + + +# Source file extension for C test sources. +ac_ext=c + +# Object file extension for compiled C test sources. +objext=o +objext=$objext + +# Code to be used in simple compile tests +lt_simple_compile_test_code="int some_variable = 0;" + +# Code to be used in simple link tests +lt_simple_link_test_code='int main(){return(0);}' + + + + + + + +# If no C compiler was specified, use CC. +LTCC=${LTCC-"$CC"} + +# If no C compiler flags were specified, use CFLAGS. +LTCFLAGS=${LTCFLAGS-"$CFLAGS"} + +# Allow CC to be a program name with arguments. +compiler=$CC + +# Save the default compiler, since it gets overwritten when the other +# tags are being tested, and _LT_TAGVAR(compiler, []) is a NOP. +compiler_DEFAULT=$CC + +# save warnings/boilerplate of simple test code +ac_outfile=conftest.$ac_objext +echo "$lt_simple_compile_test_code" >conftest.$ac_ext +eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err +_lt_compiler_boilerplate=`cat conftest.err` +$RM conftest* + +ac_outfile=conftest.$ac_objext +echo "$lt_simple_link_test_code" >conftest.$ac_ext +eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err +_lt_linker_boilerplate=`cat conftest.err` +$RM -r conftest* + + +## CAVEAT EMPTOR: +## There is no encapsulation within the following macros, do not change +## the running order or otherwise move them around unless you know exactly +## what you are doing... +if test -n "$compiler"; then + +lt_prog_compiler_no_builtin_flag= + +if test yes = "$GCC"; then + case $cc_basename in + nvcc*) + lt_prog_compiler_no_builtin_flag=' -Xcompiler -fno-builtin' ;; + *) + lt_prog_compiler_no_builtin_flag=' -fno-builtin' ;; + esac + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -fno-rtti -fno-exceptions" >&5 +$as_echo_n "checking if $compiler supports -fno-rtti -fno-exceptions... " >&6; } +if ${lt_cv_prog_compiler_rtti_exceptions+:} false; then : + $as_echo_n "(cached) " >&6 +else + lt_cv_prog_compiler_rtti_exceptions=no + ac_outfile=conftest.$ac_objext + echo "$lt_simple_compile_test_code" > conftest.$ac_ext + lt_compiler_flag="-fno-rtti -fno-exceptions" ## exclude from sc_useless_quotes_in_assignment + # Insert the option either (1) after the last *FLAGS variable, or + # (2) before a word containing "conftest.", or (3) at the end. + # Note that $ac_compile itself does not contain backslashes and begins + # with a dollar sign (not a hyphen), so the echo should work correctly. + # The option is referenced via a variable to avoid confusing sed. + lt_compile=`echo "$ac_compile" | $SED \ + -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ + -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ + -e 's:$: $lt_compiler_flag:'` + (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) + (eval "$lt_compile" 2>conftest.err) + ac_status=$? + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + if (exit $ac_status) && test -s "$ac_outfile"; then + # The compiler can only warn and ignore the option if not recognized + # So say no if there are warnings other than the usual output. + $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp + $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 + if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then + lt_cv_prog_compiler_rtti_exceptions=yes + fi + fi + $RM conftest* + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_rtti_exceptions" >&5 +$as_echo "$lt_cv_prog_compiler_rtti_exceptions" >&6; } + +if test yes = "$lt_cv_prog_compiler_rtti_exceptions"; then + lt_prog_compiler_no_builtin_flag="$lt_prog_compiler_no_builtin_flag -fno-rtti -fno-exceptions" +else + : +fi + +fi + + + + + + + lt_prog_compiler_wl= +lt_prog_compiler_pic= +lt_prog_compiler_static= + + + if test yes = "$GCC"; then + lt_prog_compiler_wl='-Wl,' + lt_prog_compiler_static='-static' + + case $host_os in + aix*) + # All AIX code is PIC. + if test ia64 = "$host_cpu"; then + # AIX 5 now supports IA64 processor + lt_prog_compiler_static='-Bstatic' + fi + lt_prog_compiler_pic='-fPIC' + ;; + + amigaos*) + case $host_cpu in + powerpc) + # see comment about AmigaOS4 .so support + lt_prog_compiler_pic='-fPIC' + ;; + m68k) + # FIXME: we need at least 68020 code to build shared libraries, but + # adding the '-m68020' flag to GCC prevents building anything better, + # like '-m68040'. + lt_prog_compiler_pic='-m68020 -resident32 -malways-restore-a4' + ;; + esac + ;; + + beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) + # PIC is the default for these OSes. + ;; + + mingw* | cygwin* | pw32* | os2* | cegcc*) + # This hack is so that the source file can tell whether it is being + # built for inclusion in a dll (and should export symbols for example). + # Although the cygwin gcc ignores -fPIC, still need this for old-style + # (--disable-auto-import) libraries + lt_prog_compiler_pic='-DDLL_EXPORT' + case $host_os in + os2*) + lt_prog_compiler_static='$wl-static' + ;; + esac + ;; + + darwin* | rhapsody*) + # PIC is the default on this platform + # Common symbols not allowed in MH_DYLIB files + lt_prog_compiler_pic='-fno-common' + ;; + + haiku*) + # PIC is the default for Haiku. + # The "-static" flag exists, but is broken. + lt_prog_compiler_static= + ;; + + hpux*) + # PIC is the default for 64-bit PA HP-UX, but not for 32-bit + # PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag + # sets the default TLS model and affects inlining. + case $host_cpu in + hppa*64*) + # +Z the default + ;; + *) + lt_prog_compiler_pic='-fPIC' + ;; + esac + ;; + + interix[3-9]*) + # Interix 3.x gcc -fpic/-fPIC options generate broken code. + # Instead, we relocate shared libraries at runtime. + ;; + + msdosdjgpp*) + # Just because we use GCC doesn't mean we suddenly get shared libraries + # on systems that don't support them. + lt_prog_compiler_can_build_shared=no + enable_shared=no + ;; + + *nto* | *qnx*) + # QNX uses GNU C++, but need to define -shared option too, otherwise + # it will coredump. + lt_prog_compiler_pic='-fPIC -shared' + ;; + + sysv4*MP*) + if test -d /usr/nec; then + lt_prog_compiler_pic=-Kconform_pic + fi + ;; + + *) + lt_prog_compiler_pic='-fPIC' + ;; + esac + + case $cc_basename in + nvcc*) # Cuda Compiler Driver 2.2 + lt_prog_compiler_wl='-Xlinker ' + if test -n "$lt_prog_compiler_pic"; then + lt_prog_compiler_pic="-Xcompiler $lt_prog_compiler_pic" + fi + ;; + esac + else + # PORTME Check for flag to pass linker flags through the system compiler. + case $host_os in + aix*) + lt_prog_compiler_wl='-Wl,' + if test ia64 = "$host_cpu"; then + # AIX 5 now supports IA64 processor + lt_prog_compiler_static='-Bstatic' + else + lt_prog_compiler_static='-bnso -bI:/lib/syscalls.exp' + fi + ;; + + darwin* | rhapsody*) + # PIC is the default on this platform + # Common symbols not allowed in MH_DYLIB files + lt_prog_compiler_pic='-fno-common' + case $cc_basename in + nagfor*) + # NAG Fortran compiler + lt_prog_compiler_wl='-Wl,-Wl,,' + lt_prog_compiler_pic='-PIC' + lt_prog_compiler_static='-Bstatic' + ;; + esac + ;; + + mingw* | cygwin* | pw32* | os2* | cegcc*) + # This hack is so that the source file can tell whether it is being + # built for inclusion in a dll (and should export symbols for example). + lt_prog_compiler_pic='-DDLL_EXPORT' + case $host_os in + os2*) + lt_prog_compiler_static='$wl-static' + ;; + esac + ;; + + hpux9* | hpux10* | hpux11*) + lt_prog_compiler_wl='-Wl,' + # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but + # not for PA HP-UX. + case $host_cpu in + hppa*64*|ia64*) + # +Z the default + ;; + *) + lt_prog_compiler_pic='+Z' + ;; + esac + # Is there a better lt_prog_compiler_static that works with the bundled CC? + lt_prog_compiler_static='$wl-a ${wl}archive' + ;; + + irix5* | irix6* | nonstopux*) + lt_prog_compiler_wl='-Wl,' + # PIC (with -KPIC) is the default. + lt_prog_compiler_static='-non_shared' + ;; + + linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*) + case $cc_basename in + # old Intel for x86_64, which still supported -KPIC. + ecc*) + lt_prog_compiler_wl='-Wl,' + lt_prog_compiler_pic='-KPIC' + lt_prog_compiler_static='-static' + ;; + # icc used to be incompatible with GCC. + # ICC 10 doesn't accept -KPIC any more. + icc* | ifort*) + lt_prog_compiler_wl='-Wl,' + lt_prog_compiler_pic='-fPIC' + lt_prog_compiler_static='-static' + ;; + # Lahey Fortran 8.1. + lf95*) + lt_prog_compiler_wl='-Wl,' + lt_prog_compiler_pic='--shared' + lt_prog_compiler_static='--static' + ;; + nagfor*) + # NAG Fortran compiler + lt_prog_compiler_wl='-Wl,-Wl,,' + lt_prog_compiler_pic='-PIC' + lt_prog_compiler_static='-Bstatic' + ;; + tcc*) + # Fabrice Bellard et al's Tiny C Compiler + lt_prog_compiler_wl='-Wl,' + lt_prog_compiler_pic='-fPIC' + lt_prog_compiler_static='-static' + ;; + pgcc* | pgf77* | pgf90* | pgf95* | pgfortran*) + # Portland Group compilers (*not* the Pentium gcc compiler, + # which looks to be a dead project) + lt_prog_compiler_wl='-Wl,' + lt_prog_compiler_pic='-fpic' + lt_prog_compiler_static='-Bstatic' + ;; + ccc*) + lt_prog_compiler_wl='-Wl,' + # All Alpha code is PIC. + lt_prog_compiler_static='-non_shared' + ;; + xl* | bgxl* | bgf* | mpixl*) + # IBM XL C 8.0/Fortran 10.1, 11.1 on PPC and BlueGene + lt_prog_compiler_wl='-Wl,' + lt_prog_compiler_pic='-qpic' + lt_prog_compiler_static='-qstaticlink' + ;; + *) + case `$CC -V 2>&1 | sed 5q` in + *Sun\ Ceres\ Fortran* | *Sun*Fortran*\ [1-7].* | *Sun*Fortran*\ 8.[0-3]*) + # Sun Fortran 8.3 passes all unrecognized flags to the linker + lt_prog_compiler_pic='-KPIC' + lt_prog_compiler_static='-Bstatic' + lt_prog_compiler_wl='' + ;; + *Sun\ F* | *Sun*Fortran*) + lt_prog_compiler_pic='-KPIC' + lt_prog_compiler_static='-Bstatic' + lt_prog_compiler_wl='-Qoption ld ' + ;; + *Sun\ C*) + # Sun C 5.9 + lt_prog_compiler_pic='-KPIC' + lt_prog_compiler_static='-Bstatic' + lt_prog_compiler_wl='-Wl,' + ;; + *Intel*\ [CF]*Compiler*) + lt_prog_compiler_wl='-Wl,' + lt_prog_compiler_pic='-fPIC' + lt_prog_compiler_static='-static' + ;; + *Portland\ Group*) + lt_prog_compiler_wl='-Wl,' + lt_prog_compiler_pic='-fpic' + lt_prog_compiler_static='-Bstatic' + ;; + esac + ;; + esac + ;; + + newsos6) + lt_prog_compiler_pic='-KPIC' + lt_prog_compiler_static='-Bstatic' + ;; + + *nto* | *qnx*) + # QNX uses GNU C++, but need to define -shared option too, otherwise + # it will coredump. + lt_prog_compiler_pic='-fPIC -shared' + ;; + + osf3* | osf4* | osf5*) + lt_prog_compiler_wl='-Wl,' + # All OSF/1 code is PIC. + lt_prog_compiler_static='-non_shared' + ;; + + rdos*) + lt_prog_compiler_static='-non_shared' + ;; + + solaris*) + lt_prog_compiler_pic='-KPIC' + lt_prog_compiler_static='-Bstatic' + case $cc_basename in + f77* | f90* | f95* | sunf77* | sunf90* | sunf95*) + lt_prog_compiler_wl='-Qoption ld ';; + *) + lt_prog_compiler_wl='-Wl,';; + esac + ;; + + sunos4*) + lt_prog_compiler_wl='-Qoption ld ' + lt_prog_compiler_pic='-PIC' + lt_prog_compiler_static='-Bstatic' + ;; + + sysv4 | sysv4.2uw2* | sysv4.3*) + lt_prog_compiler_wl='-Wl,' + lt_prog_compiler_pic='-KPIC' + lt_prog_compiler_static='-Bstatic' + ;; + + sysv4*MP*) + if test -d /usr/nec; then + lt_prog_compiler_pic='-Kconform_pic' + lt_prog_compiler_static='-Bstatic' + fi + ;; + + sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) + lt_prog_compiler_wl='-Wl,' + lt_prog_compiler_pic='-KPIC' + lt_prog_compiler_static='-Bstatic' + ;; + + unicos*) + lt_prog_compiler_wl='-Wl,' + lt_prog_compiler_can_build_shared=no + ;; + + uts4*) + lt_prog_compiler_pic='-pic' + lt_prog_compiler_static='-Bstatic' + ;; + + *) + lt_prog_compiler_can_build_shared=no + ;; + esac + fi + +case $host_os in + # For platforms that do not support PIC, -DPIC is meaningless: + *djgpp*) + lt_prog_compiler_pic= + ;; + *) + lt_prog_compiler_pic="$lt_prog_compiler_pic -DPIC" + ;; +esac + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $compiler option to produce PIC" >&5 +$as_echo_n "checking for $compiler option to produce PIC... " >&6; } +if ${lt_cv_prog_compiler_pic+:} false; then : + $as_echo_n "(cached) " >&6 +else + lt_cv_prog_compiler_pic=$lt_prog_compiler_pic +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic" >&5 +$as_echo "$lt_cv_prog_compiler_pic" >&6; } +lt_prog_compiler_pic=$lt_cv_prog_compiler_pic + +# +# Check to make sure the PIC flag actually works. +# +if test -n "$lt_prog_compiler_pic"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler PIC flag $lt_prog_compiler_pic works" >&5 +$as_echo_n "checking if $compiler PIC flag $lt_prog_compiler_pic works... " >&6; } +if ${lt_cv_prog_compiler_pic_works+:} false; then : + $as_echo_n "(cached) " >&6 +else + lt_cv_prog_compiler_pic_works=no + ac_outfile=conftest.$ac_objext + echo "$lt_simple_compile_test_code" > conftest.$ac_ext + lt_compiler_flag="$lt_prog_compiler_pic -DPIC" ## exclude from sc_useless_quotes_in_assignment + # Insert the option either (1) after the last *FLAGS variable, or + # (2) before a word containing "conftest.", or (3) at the end. + # Note that $ac_compile itself does not contain backslashes and begins + # with a dollar sign (not a hyphen), so the echo should work correctly. + # The option is referenced via a variable to avoid confusing sed. + lt_compile=`echo "$ac_compile" | $SED \ + -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ + -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ + -e 's:$: $lt_compiler_flag:'` + (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) + (eval "$lt_compile" 2>conftest.err) + ac_status=$? + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + if (exit $ac_status) && test -s "$ac_outfile"; then + # The compiler can only warn and ignore the option if not recognized + # So say no if there are warnings other than the usual output. + $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp + $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 + if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then + lt_cv_prog_compiler_pic_works=yes + fi + fi + $RM conftest* + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic_works" >&5 +$as_echo "$lt_cv_prog_compiler_pic_works" >&6; } + +if test yes = "$lt_cv_prog_compiler_pic_works"; then + case $lt_prog_compiler_pic in + "" | " "*) ;; + *) lt_prog_compiler_pic=" $lt_prog_compiler_pic" ;; + esac +else + lt_prog_compiler_pic= + lt_prog_compiler_can_build_shared=no +fi + +fi + + + + + + + + + + + +# +# Check to make sure the static flag actually works. +# +wl=$lt_prog_compiler_wl eval lt_tmp_static_flag=\"$lt_prog_compiler_static\" +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler static flag $lt_tmp_static_flag works" >&5 +$as_echo_n "checking if $compiler static flag $lt_tmp_static_flag works... " >&6; } +if ${lt_cv_prog_compiler_static_works+:} false; then : + $as_echo_n "(cached) " >&6 +else + lt_cv_prog_compiler_static_works=no + save_LDFLAGS=$LDFLAGS + LDFLAGS="$LDFLAGS $lt_tmp_static_flag" + echo "$lt_simple_link_test_code" > conftest.$ac_ext + if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then + # The linker can only warn and ignore the option if not recognized + # So say no if there are warnings + if test -s conftest.err; then + # Append any errors to the config.log. + cat conftest.err 1>&5 + $ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp + $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 + if diff conftest.exp conftest.er2 >/dev/null; then + lt_cv_prog_compiler_static_works=yes + fi + else + lt_cv_prog_compiler_static_works=yes + fi + fi + $RM -r conftest* + LDFLAGS=$save_LDFLAGS + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_static_works" >&5 +$as_echo "$lt_cv_prog_compiler_static_works" >&6; } + +if test yes = "$lt_cv_prog_compiler_static_works"; then + : +else + lt_prog_compiler_static= +fi + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5 +$as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; } +if ${lt_cv_prog_compiler_c_o+:} false; then : + $as_echo_n "(cached) " >&6 +else + lt_cv_prog_compiler_c_o=no + $RM -r conftest 2>/dev/null + mkdir conftest + cd conftest + mkdir out + echo "$lt_simple_compile_test_code" > conftest.$ac_ext + + lt_compiler_flag="-o out/conftest2.$ac_objext" + # Insert the option either (1) after the last *FLAGS variable, or + # (2) before a word containing "conftest.", or (3) at the end. + # Note that $ac_compile itself does not contain backslashes and begins + # with a dollar sign (not a hyphen), so the echo should work correctly. + lt_compile=`echo "$ac_compile" | $SED \ + -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ + -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ + -e 's:$: $lt_compiler_flag:'` + (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) + (eval "$lt_compile" 2>out/conftest.err) + ac_status=$? + cat out/conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + if (exit $ac_status) && test -s out/conftest2.$ac_objext + then + # The compiler can only warn and ignore the option if not recognized + # So say no if there are warnings + $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp + $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2 + if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then + lt_cv_prog_compiler_c_o=yes + fi + fi + chmod u+w . 2>&5 + $RM conftest* + # SGI C++ compiler will create directory out/ii_files/ for + # template instantiation + test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files + $RM out/* && rmdir out + cd .. + $RM -r conftest + $RM conftest* + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o" >&5 +$as_echo "$lt_cv_prog_compiler_c_o" >&6; } + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5 +$as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; } +if ${lt_cv_prog_compiler_c_o+:} false; then : + $as_echo_n "(cached) " >&6 +else + lt_cv_prog_compiler_c_o=no + $RM -r conftest 2>/dev/null + mkdir conftest + cd conftest + mkdir out + echo "$lt_simple_compile_test_code" > conftest.$ac_ext + + lt_compiler_flag="-o out/conftest2.$ac_objext" + # Insert the option either (1) after the last *FLAGS variable, or + # (2) before a word containing "conftest.", or (3) at the end. + # Note that $ac_compile itself does not contain backslashes and begins + # with a dollar sign (not a hyphen), so the echo should work correctly. + lt_compile=`echo "$ac_compile" | $SED \ + -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ + -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ + -e 's:$: $lt_compiler_flag:'` + (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) + (eval "$lt_compile" 2>out/conftest.err) + ac_status=$? + cat out/conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + if (exit $ac_status) && test -s out/conftest2.$ac_objext + then + # The compiler can only warn and ignore the option if not recognized + # So say no if there are warnings + $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp + $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2 + if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then + lt_cv_prog_compiler_c_o=yes + fi + fi + chmod u+w . 2>&5 + $RM conftest* + # SGI C++ compiler will create directory out/ii_files/ for + # template instantiation + test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files + $RM out/* && rmdir out + cd .. + $RM -r conftest + $RM conftest* + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o" >&5 +$as_echo "$lt_cv_prog_compiler_c_o" >&6; } + + + + +hard_links=nottested +if test no = "$lt_cv_prog_compiler_c_o" && test no != "$need_locks"; then + # do not overwrite the value of need_locks provided by the user + { $as_echo "$as_me:${as_lineno-$LINENO}: checking if we can lock with hard links" >&5 +$as_echo_n "checking if we can lock with hard links... " >&6; } + hard_links=yes + $RM conftest* + ln conftest.a conftest.b 2>/dev/null && hard_links=no + touch conftest.a + ln conftest.a conftest.b 2>&5 || hard_links=no + ln conftest.a conftest.b 2>/dev/null && hard_links=no + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $hard_links" >&5 +$as_echo "$hard_links" >&6; } + if test no = "$hard_links"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: '$CC' does not support '-c -o', so 'make -j' may be unsafe" >&5 +$as_echo "$as_me: WARNING: '$CC' does not support '-c -o', so 'make -j' may be unsafe" >&2;} + need_locks=warn + fi +else + need_locks=no +fi + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $compiler linker ($LD) supports shared libraries" >&5 +$as_echo_n "checking whether the $compiler linker ($LD) supports shared libraries... " >&6; } + + runpath_var= + allow_undefined_flag= + always_export_symbols=no + archive_cmds= + archive_expsym_cmds= + compiler_needs_object=no + enable_shared_with_static_runtimes=no + export_dynamic_flag_spec= + export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' + hardcode_automatic=no + hardcode_direct=no + hardcode_direct_absolute=no + hardcode_libdir_flag_spec= + hardcode_libdir_separator= + hardcode_minus_L=no + hardcode_shlibpath_var=unsupported + inherit_rpath=no + link_all_deplibs=unknown + module_cmds= + module_expsym_cmds= + old_archive_from_new_cmds= + old_archive_from_expsyms_cmds= + thread_safe_flag_spec= + whole_archive_flag_spec= + # include_expsyms should be a list of space-separated symbols to be *always* + # included in the symbol list + include_expsyms= + # exclude_expsyms can be an extended regexp of symbols to exclude + # it will be wrapped by ' (' and ')$', so one must not match beginning or + # end of line. Example: 'a|bc|.*d.*' will exclude the symbols 'a' and 'bc', + # as well as any symbol that contains 'd'. + exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' + # Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out + # platforms (ab)use it in PIC code, but their linkers get confused if + # the symbol is explicitly referenced. Since portable code cannot + # rely on this symbol name, it's probably fine to never include it in + # preloaded symbol tables. + # Exclude shared library initialization/finalization symbols. + extract_expsyms_cmds= + + case $host_os in + cygwin* | mingw* | pw32* | cegcc*) + # FIXME: the MSVC++ port hasn't been tested in a loooong time + # When not using gcc, we currently assume that we are using + # Microsoft Visual C++. + if test yes != "$GCC"; then + with_gnu_ld=no + fi + ;; + interix*) + # we just hope/assume this is gcc and not c89 (= MSVC++) + with_gnu_ld=yes + ;; + openbsd* | bitrig*) + with_gnu_ld=no + ;; + esac + + ld_shlibs=yes + + # On some targets, GNU ld is compatible enough with the native linker + # that we're better off using the native interface for both. + lt_use_gnu_ld_interface=no + if test yes = "$with_gnu_ld"; then + case $host_os in + aix*) + # The AIX port of GNU ld has always aspired to compatibility + # with the native linker. However, as the warning in the GNU ld + # block says, versions before 2.19.5* couldn't really create working + # shared libraries, regardless of the interface used. + case `$LD -v 2>&1` in + *\ \(GNU\ Binutils\)\ 2.19.5*) ;; + *\ \(GNU\ Binutils\)\ 2.[2-9]*) ;; + *\ \(GNU\ Binutils\)\ [3-9]*) ;; + *) + lt_use_gnu_ld_interface=yes + ;; + esac + ;; + *) + lt_use_gnu_ld_interface=yes + ;; + esac + fi + + if test yes = "$lt_use_gnu_ld_interface"; then + # If archive_cmds runs LD, not CC, wlarc should be empty + wlarc='$wl' + + # Set some defaults for GNU ld with shared library support. These + # are reset later if shared libraries are not supported. Putting them + # here allows them to be overridden if necessary. + runpath_var=LD_RUN_PATH + hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' + export_dynamic_flag_spec='$wl--export-dynamic' + # ancient GNU ld didn't support --whole-archive et. al. + if $LD --help 2>&1 | $GREP 'no-whole-archive' > /dev/null; then + whole_archive_flag_spec=$wlarc'--whole-archive$convenience '$wlarc'--no-whole-archive' + else + whole_archive_flag_spec= + fi + supports_anon_versioning=no + case `$LD -v | $SED -e 's/(^)\+)\s\+//' 2>&1` in + *GNU\ gold*) supports_anon_versioning=yes ;; + *\ [01].* | *\ 2.[0-9].* | *\ 2.10.*) ;; # catch versions < 2.11 + *\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ... + *\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ... + *\ 2.11.*) ;; # other 2.11 versions + *) supports_anon_versioning=yes ;; + esac + + # See if GNU ld supports shared libraries. + case $host_os in + aix[3-9]*) + # On AIX/PPC, the GNU linker is very broken + if test ia64 != "$host_cpu"; then + ld_shlibs=no + cat <<_LT_EOF 1>&2 + +*** Warning: the GNU linker, at least up to release 2.19, is reported +*** to be unable to reliably create shared libraries on AIX. +*** Therefore, libtool is disabling shared libraries support. If you +*** really care for shared libraries, you may want to install binutils +*** 2.20 or above, or modify your PATH so that a non-GNU linker is found. +*** You will then need to restart the configuration process. + +_LT_EOF + fi + ;; + + amigaos*) + case $host_cpu in + powerpc) + # see comment about AmigaOS4 .so support + archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' + archive_expsym_cmds='' + ;; + m68k) + archive_cmds='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' + hardcode_libdir_flag_spec='-L$libdir' + hardcode_minus_L=yes + ;; + esac + ;; + + beos*) + if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then + allow_undefined_flag=unsupported + # Joseph Beckenbach says some releases of gcc + # support --undefined. This deserves some investigation. FIXME + archive_cmds='$CC -nostart $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' + else + ld_shlibs=no + fi + ;; + + cygwin* | mingw* | pw32* | cegcc*) + # _LT_TAGVAR(hardcode_libdir_flag_spec, ) is actually meaningless, + # as there is no search path for DLLs. + hardcode_libdir_flag_spec='-L$libdir' + export_dynamic_flag_spec='$wl--export-all-symbols' + allow_undefined_flag=unsupported + always_export_symbols=no + enable_shared_with_static_runtimes=yes + export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1 DATA/;s/^.*[ ]__nm__\([^ ]*\)[ ][^ ]*/\1 DATA/;/^I[ ]/d;/^[AITW][ ]/s/.* //'\'' | sort | uniq > $export_symbols' + exclude_expsyms='[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname' + + if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then + archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' + # If the export-symbols file already is a .def file, use it as + # is; otherwise, prepend EXPORTS... + archive_expsym_cmds='if test DEF = "`$SED -n -e '\''s/^[ ]*//'\'' -e '\''/^\(;.*\)*$/d'\'' -e '\''s/^\(EXPORTS\|LIBRARY\)\([ ].*\)*$/DEF/p'\'' -e q $export_symbols`" ; then + cp $export_symbols $output_objdir/$soname.def; + else + echo EXPORTS > $output_objdir/$soname.def; + cat $export_symbols >> $output_objdir/$soname.def; + fi~ + $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' + else + ld_shlibs=no + fi + ;; + + haiku*) + archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' + link_all_deplibs=yes + ;; + + os2*) + hardcode_libdir_flag_spec='-L$libdir' + hardcode_minus_L=yes + allow_undefined_flag=unsupported + shrext_cmds=.dll + archive_cmds='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~ + $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~ + $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~ + $ECHO EXPORTS >> $output_objdir/$libname.def~ + emxexp $libobjs | $SED /"_DLL_InitTerm"/d >> $output_objdir/$libname.def~ + $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~ + emximp -o $lib $output_objdir/$libname.def' + archive_expsym_cmds='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~ + $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~ + $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~ + $ECHO EXPORTS >> $output_objdir/$libname.def~ + prefix_cmds="$SED"~ + if test EXPORTS = "`$SED 1q $export_symbols`"; then + prefix_cmds="$prefix_cmds -e 1d"; + fi~ + prefix_cmds="$prefix_cmds -e \"s/^\(.*\)$/_\1/g\""~ + cat $export_symbols | $prefix_cmds >> $output_objdir/$libname.def~ + $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~ + emximp -o $lib $output_objdir/$libname.def' + old_archive_From_new_cmds='emximp -o $output_objdir/${libname}_dll.a $output_objdir/$libname.def' + enable_shared_with_static_runtimes=yes + ;; + + interix[3-9]*) + hardcode_direct=no + hardcode_shlibpath_var=no + hardcode_libdir_flag_spec='$wl-rpath,$libdir' + export_dynamic_flag_spec='$wl-E' + # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc. + # Instead, shared libraries are loaded at an image base (0x10000000 by + # default) and relocated if they conflict, which is a slow very memory + # consuming and fragmenting process. To avoid this, we pick a random, + # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link + # time. Moving up from 0x10000000 also allows more sbrk(2) space. + archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-h,$soname $wl--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' + archive_expsym_cmds='sed "s|^|_|" $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-h,$soname $wl--retain-symbols-file,$output_objdir/$soname.expsym $wl--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' + ;; + + gnu* | linux* | tpf* | k*bsd*-gnu | kopensolaris*-gnu) + tmp_diet=no + if test linux-dietlibc = "$host_os"; then + case $cc_basename in + diet\ *) tmp_diet=yes;; # linux-dietlibc with static linking (!diet-dyn) + esac + fi + if $LD --help 2>&1 | $EGREP ': supported targets:.* elf' > /dev/null \ + && test no = "$tmp_diet" + then + tmp_addflag=' $pic_flag' + tmp_sharedflag='-shared' + case $cc_basename,$host_cpu in + pgcc*) # Portland Group C compiler + whole_archive_flag_spec='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive' + tmp_addflag=' $pic_flag' + ;; + pgf77* | pgf90* | pgf95* | pgfortran*) + # Portland Group f77 and f90 compilers + whole_archive_flag_spec='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive' + tmp_addflag=' $pic_flag -Mnomain' ;; + ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64 + tmp_addflag=' -i_dynamic' ;; + efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64 + tmp_addflag=' -i_dynamic -nofor_main' ;; + ifc* | ifort*) # Intel Fortran compiler + tmp_addflag=' -nofor_main' ;; + lf95*) # Lahey Fortran 8.1 + whole_archive_flag_spec= + tmp_sharedflag='--shared' ;; + nagfor*) # NAGFOR 5.3 + tmp_sharedflag='-Wl,-shared' ;; + xl[cC]* | bgxl[cC]* | mpixl[cC]*) # IBM XL C 8.0 on PPC (deal with xlf below) + tmp_sharedflag='-qmkshrobj' + tmp_addflag= ;; + nvcc*) # Cuda Compiler Driver 2.2 + whole_archive_flag_spec='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive' + compiler_needs_object=yes + ;; + esac + case `$CC -V 2>&1 | sed 5q` in + *Sun\ C*) # Sun C 5.9 + whole_archive_flag_spec='$wl--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive' + compiler_needs_object=yes + tmp_sharedflag='-G' ;; + *Sun\ F*) # Sun Fortran 8.3 + tmp_sharedflag='-G' ;; + esac + archive_cmds='$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' + + if test yes = "$supports_anon_versioning"; then + archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' + fi + + case $cc_basename in + tcc*) + export_dynamic_flag_spec='-rdynamic' + ;; + xlf* | bgf* | bgxlf* | mpixlf*) + # IBM XL Fortran 10.1 on PPC cannot create shared libs itself + whole_archive_flag_spec='--whole-archive$convenience --no-whole-archive' + hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' + archive_cmds='$LD -shared $libobjs $deplibs $linker_flags -soname $soname -o $lib' + if test yes = "$supports_anon_versioning"; then + archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $LD -shared $libobjs $deplibs $linker_flags -soname $soname -version-script $output_objdir/$libname.ver -o $lib' + fi + ;; + esac + else + ld_shlibs=no + fi + ;; + + netbsd*) + if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then + archive_cmds='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib' + wlarc= + else + archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' + archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' + fi + ;; + + solaris*) + if $LD -v 2>&1 | $GREP 'BFD 2\.8' > /dev/null; then + ld_shlibs=no + cat <<_LT_EOF 1>&2 + +*** Warning: The releases 2.8.* of the GNU linker cannot reliably +*** create shared libraries on Solaris systems. Therefore, libtool +*** is disabling shared libraries support. We urge you to upgrade GNU +*** binutils to release 2.9.1 or newer. Another option is to modify +*** your PATH or compiler configuration so that the native linker is +*** used, and then restart. + +_LT_EOF + elif $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then + archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' + archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' + else + ld_shlibs=no + fi + ;; + + sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*) + case `$LD -v 2>&1` in + *\ [01].* | *\ 2.[0-9].* | *\ 2.1[0-5].*) + ld_shlibs=no + cat <<_LT_EOF 1>&2 + +*** Warning: Releases of the GNU linker prior to 2.16.91.0.3 cannot +*** reliably create shared libraries on SCO systems. Therefore, libtool +*** is disabling shared libraries support. We urge you to upgrade GNU +*** binutils to release 2.16.91.0.3 or newer. Another option is to modify +*** your PATH or compiler configuration so that the native linker is +*** used, and then restart. + +_LT_EOF + ;; + *) + # For security reasons, it is highly recommended that you always + # use absolute paths for naming shared libraries, and exclude the + # DT_RUNPATH tag from executables and libraries. But doing so + # requires that you compile everything twice, which is a pain. + if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then + hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' + archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' + archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' + else + ld_shlibs=no + fi + ;; + esac + ;; + + sunos4*) + archive_cmds='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags' + wlarc= + hardcode_direct=yes + hardcode_shlibpath_var=no + ;; + + *) + if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then + archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' + archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' + else + ld_shlibs=no + fi + ;; + esac + + if test no = "$ld_shlibs"; then + runpath_var= + hardcode_libdir_flag_spec= + export_dynamic_flag_spec= + whole_archive_flag_spec= + fi + else + # PORTME fill in a description of your system's linker (not GNU ld) + case $host_os in + aix3*) + allow_undefined_flag=unsupported + always_export_symbols=yes + archive_expsym_cmds='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname' + # Note: this linker hardcodes the directories in LIBPATH if there + # are no directories specified by -L. + hardcode_minus_L=yes + if test yes = "$GCC" && test -z "$lt_prog_compiler_static"; then + # Neither direct hardcoding nor static linking is supported with a + # broken collect2. + hardcode_direct=unsupported + fi + ;; + + aix[4-9]*) + if test ia64 = "$host_cpu"; then + # On IA64, the linker does run time linking by default, so we don't + # have to do anything special. + aix_use_runtimelinking=no + exp_sym_flag='-Bexport' + no_entry_flag= + else + # If we're using GNU nm, then we don't want the "-C" option. + # -C means demangle to GNU nm, but means don't demangle to AIX nm. + # Without the "-l" option, or with the "-B" option, AIX nm treats + # weak defined symbols like other global defined symbols, whereas + # GNU nm marks them as "W". + # While the 'weak' keyword is ignored in the Export File, we need + # it in the Import File for the 'aix-soname' feature, so we have + # to replace the "-B" option with "-P" for AIX nm. + if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then + export_symbols_cmds='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && (substr(\$ 3,1,1) != ".")) { if (\$ 2 == "W") { print \$ 3 " weak" } else { print \$ 3 } } }'\'' | sort -u > $export_symbols' + else + export_symbols_cmds='`func_echo_all $NM | $SED -e '\''s/B\([^B]*\)$/P\1/'\''` -PCpgl $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W") || (\$ 2 == "V") || (\$ 2 == "Z")) && (substr(\$ 1,1,1) != ".")) { if ((\$ 2 == "W") || (\$ 2 == "V") || (\$ 2 == "Z")) { print \$ 1 " weak" } else { print \$ 1 } } }'\'' | sort -u > $export_symbols' + fi + aix_use_runtimelinking=no + + # Test if we are trying to use run time linking or normal + # AIX style linking. If -brtl is somewhere in LDFLAGS, we + # have runtime linking enabled, and use it for executables. + # For shared libraries, we enable/disable runtime linking + # depending on the kind of the shared library created - + # when "with_aix_soname,aix_use_runtimelinking" is: + # "aix,no" lib.a(lib.so.V) shared, rtl:no, for executables + # "aix,yes" lib.so shared, rtl:yes, for executables + # lib.a static archive + # "both,no" lib.so.V(shr.o) shared, rtl:yes + # lib.a(lib.so.V) shared, rtl:no, for executables + # "both,yes" lib.so.V(shr.o) shared, rtl:yes, for executables + # lib.a(lib.so.V) shared, rtl:no + # "svr4,*" lib.so.V(shr.o) shared, rtl:yes, for executables + # lib.a static archive + case $host_os in aix4.[23]|aix4.[23].*|aix[5-9]*) + for ld_flag in $LDFLAGS; do + if (test x-brtl = "x$ld_flag" || test x-Wl,-brtl = "x$ld_flag"); then + aix_use_runtimelinking=yes + break + fi + done + if test svr4,no = "$with_aix_soname,$aix_use_runtimelinking"; then + # With aix-soname=svr4, we create the lib.so.V shared archives only, + # so we don't have lib.a shared libs to link our executables. + # We have to force runtime linking in this case. + aix_use_runtimelinking=yes + LDFLAGS="$LDFLAGS -Wl,-brtl" + fi + ;; + esac + + exp_sym_flag='-bexport' + no_entry_flag='-bnoentry' + fi + + # When large executables or shared objects are built, AIX ld can + # have problems creating the table of contents. If linking a library + # or program results in "error TOC overflow" add -mminimal-toc to + # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not + # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. + + archive_cmds='' + hardcode_direct=yes + hardcode_direct_absolute=yes + hardcode_libdir_separator=':' + link_all_deplibs=yes + file_list_spec='$wl-f,' + case $with_aix_soname,$aix_use_runtimelinking in + aix,*) ;; # traditional, no import file + svr4,* | *,yes) # use import file + # The Import File defines what to hardcode. + hardcode_direct=no + hardcode_direct_absolute=no + ;; + esac + + if test yes = "$GCC"; then + case $host_os in aix4.[012]|aix4.[012].*) + # We only want to do this on AIX 4.2 and lower, the check + # below for broken collect2 doesn't work under 4.3+ + collect2name=`$CC -print-prog-name=collect2` + if test -f "$collect2name" && + strings "$collect2name" | $GREP resolve_lib_name >/dev/null + then + # We have reworked collect2 + : + else + # We have old collect2 + hardcode_direct=unsupported + # It fails to find uninstalled libraries when the uninstalled + # path is not listed in the libpath. Setting hardcode_minus_L + # to unsupported forces relinking + hardcode_minus_L=yes + hardcode_libdir_flag_spec='-L$libdir' + hardcode_libdir_separator= + fi + ;; + esac + shared_flag='-shared' + if test yes = "$aix_use_runtimelinking"; then + shared_flag="$shared_flag "'$wl-G' + fi + # Need to ensure runtime linking is disabled for the traditional + # shared library, or the linker may eventually find shared libraries + # /with/ Import File - we do not want to mix them. + shared_flag_aix='-shared' + shared_flag_svr4='-shared $wl-G' + else + # not using gcc + if test ia64 = "$host_cpu"; then + # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release + # chokes on -Wl,-G. The following line is correct: + shared_flag='-G' + else + if test yes = "$aix_use_runtimelinking"; then + shared_flag='$wl-G' + else + shared_flag='$wl-bM:SRE' + fi + shared_flag_aix='$wl-bM:SRE' + shared_flag_svr4='$wl-G' + fi + fi + + export_dynamic_flag_spec='$wl-bexpall' + # It seems that -bexpall does not export symbols beginning with + # underscore (_), so it is better to generate a list of symbols to export. + always_export_symbols=yes + if test aix,yes = "$with_aix_soname,$aix_use_runtimelinking"; then + # Warning - without using the other runtime loading flags (-brtl), + # -berok will link without error, but may produce a broken library. + allow_undefined_flag='-berok' + # Determine the default libpath from the value encoded in an + # empty executable. + if test set = "${lt_cv_aix_libpath+set}"; then + aix_libpath=$lt_cv_aix_libpath +else + if ${lt_cv_aix_libpath_+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_link "$LINENO"; then : + + lt_aix_libpath_sed=' + /Import File Strings/,/^$/ { + /^0/ { + s/^0 *\([^ ]*\) *$/\1/ + p + } + }' + lt_cv_aix_libpath_=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` + # Check for a 64-bit object if we didn't find anything. + if test -z "$lt_cv_aix_libpath_"; then + lt_cv_aix_libpath_=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` + fi +fi +rm -f core conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext + if test -z "$lt_cv_aix_libpath_"; then + lt_cv_aix_libpath_=/usr/lib:/lib + fi + +fi + + aix_libpath=$lt_cv_aix_libpath_ +fi + + hardcode_libdir_flag_spec='$wl-blibpath:$libdir:'"$aix_libpath" + archive_expsym_cmds='$CC -o $output_objdir/$soname $libobjs $deplibs $wl'$no_entry_flag' $compiler_flags `if test -n "$allow_undefined_flag"; then func_echo_all "$wl$allow_undefined_flag"; else :; fi` $wl'$exp_sym_flag:\$export_symbols' '$shared_flag + else + if test ia64 = "$host_cpu"; then + hardcode_libdir_flag_spec='$wl-R $libdir:/usr/lib:/lib' + allow_undefined_flag="-z nodefs" + archive_expsym_cmds="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\$wl$no_entry_flag"' $compiler_flags $wl$allow_undefined_flag '"\$wl$exp_sym_flag:\$export_symbols" + else + # Determine the default libpath from the value encoded in an + # empty executable. + if test set = "${lt_cv_aix_libpath+set}"; then + aix_libpath=$lt_cv_aix_libpath +else + if ${lt_cv_aix_libpath_+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_link "$LINENO"; then : + + lt_aix_libpath_sed=' + /Import File Strings/,/^$/ { + /^0/ { + s/^0 *\([^ ]*\) *$/\1/ + p + } + }' + lt_cv_aix_libpath_=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` + # Check for a 64-bit object if we didn't find anything. + if test -z "$lt_cv_aix_libpath_"; then + lt_cv_aix_libpath_=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` + fi +fi +rm -f core conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext + if test -z "$lt_cv_aix_libpath_"; then + lt_cv_aix_libpath_=/usr/lib:/lib + fi + +fi + + aix_libpath=$lt_cv_aix_libpath_ +fi + + hardcode_libdir_flag_spec='$wl-blibpath:$libdir:'"$aix_libpath" + # Warning - without using the other run time loading flags, + # -berok will link without error, but may produce a broken library. + no_undefined_flag=' $wl-bernotok' + allow_undefined_flag=' $wl-berok' + if test yes = "$with_gnu_ld"; then + # We only use this code for GNU lds that support --whole-archive. + whole_archive_flag_spec='$wl--whole-archive$convenience $wl--no-whole-archive' + else + # Exported symbols can be pulled into shared objects from archives + whole_archive_flag_spec='$convenience' + fi + archive_cmds_need_lc=yes + archive_expsym_cmds='$RM -r $output_objdir/$realname.d~$MKDIR $output_objdir/$realname.d' + # -brtl affects multiple linker settings, -berok does not and is overridden later + compiler_flags_filtered='`func_echo_all "$compiler_flags " | $SED -e "s%-brtl\\([, ]\\)%-berok\\1%g"`' + if test svr4 != "$with_aix_soname"; then + # This is similar to how AIX traditionally builds its shared libraries. + archive_expsym_cmds="$archive_expsym_cmds"'~$CC '$shared_flag_aix' -o $output_objdir/$realname.d/$soname $libobjs $deplibs $wl-bnoentry '$compiler_flags_filtered'$wl-bE:$export_symbols$allow_undefined_flag~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$realname.d/$soname' + fi + if test aix != "$with_aix_soname"; then + archive_expsym_cmds="$archive_expsym_cmds"'~$CC '$shared_flag_svr4' -o $output_objdir/$realname.d/$shared_archive_member_spec.o $libobjs $deplibs $wl-bnoentry '$compiler_flags_filtered'$wl-bE:$export_symbols$allow_undefined_flag~$STRIP -e $output_objdir/$realname.d/$shared_archive_member_spec.o~( func_echo_all "#! $soname($shared_archive_member_spec.o)"; if test shr_64 = "$shared_archive_member_spec"; then func_echo_all "# 64"; else func_echo_all "# 32"; fi; cat $export_symbols ) > $output_objdir/$realname.d/$shared_archive_member_spec.imp~$AR $AR_FLAGS $output_objdir/$soname $output_objdir/$realname.d/$shared_archive_member_spec.o $output_objdir/$realname.d/$shared_archive_member_spec.imp' + else + # used by -dlpreopen to get the symbols + archive_expsym_cmds="$archive_expsym_cmds"'~$MV $output_objdir/$realname.d/$soname $output_objdir' + fi + archive_expsym_cmds="$archive_expsym_cmds"'~$RM -r $output_objdir/$realname.d' + fi + fi + ;; + + amigaos*) + case $host_cpu in + powerpc) + # see comment about AmigaOS4 .so support + archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' + archive_expsym_cmds='' + ;; + m68k) + archive_cmds='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' + hardcode_libdir_flag_spec='-L$libdir' + hardcode_minus_L=yes + ;; + esac + ;; + + bsdi[45]*) + export_dynamic_flag_spec=-rdynamic + ;; + + cygwin* | mingw* | pw32* | cegcc*) + # When not using gcc, we currently assume that we are using + # Microsoft Visual C++. + # hardcode_libdir_flag_spec is actually meaningless, as there is + # no search path for DLLs. + case $cc_basename in + cl*) + # Native MSVC + hardcode_libdir_flag_spec=' ' + allow_undefined_flag=unsupported + always_export_symbols=yes + file_list_spec='@' + # Tell ltmain to make .lib files, not .a files. + libext=lib + # Tell ltmain to make .dll files, not .so files. + shrext_cmds=.dll + # FIXME: Setting linknames here is a bad hack. + archive_cmds='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~linknames=' + archive_expsym_cmds='if test DEF = "`$SED -n -e '\''s/^[ ]*//'\'' -e '\''/^\(;.*\)*$/d'\'' -e '\''s/^\(EXPORTS\|LIBRARY\)\([ ].*\)*$/DEF/p'\'' -e q $export_symbols`" ; then + cp "$export_symbols" "$output_objdir/$soname.def"; + echo "$tool_output_objdir$soname.def" > "$output_objdir/$soname.exp"; + else + $SED -e '\''s/^/-link -EXPORT:/'\'' < $export_symbols > $output_objdir/$soname.exp; + fi~ + $CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~ + linknames=' + # The linker will not automatically build a static lib if we build a DLL. + # _LT_TAGVAR(old_archive_from_new_cmds, )='true' + enable_shared_with_static_runtimes=yes + exclude_expsyms='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*' + export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1,DATA/'\'' | $SED -e '\''/^[AITW][ ]/s/.*[ ]//'\'' | sort | uniq > $export_symbols' + # Don't use ranlib + old_postinstall_cmds='chmod 644 $oldlib' + postlink_cmds='lt_outputfile="@OUTPUT@"~ + lt_tool_outputfile="@TOOL_OUTPUT@"~ + case $lt_outputfile in + *.exe|*.EXE) ;; + *) + lt_outputfile=$lt_outputfile.exe + lt_tool_outputfile=$lt_tool_outputfile.exe + ;; + esac~ + if test : != "$MANIFEST_TOOL" && test -f "$lt_outputfile.manifest"; then + $MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1; + $RM "$lt_outputfile.manifest"; + fi' + ;; + *) + # Assume MSVC wrapper + hardcode_libdir_flag_spec=' ' + allow_undefined_flag=unsupported + # Tell ltmain to make .lib files, not .a files. + libext=lib + # Tell ltmain to make .dll files, not .so files. + shrext_cmds=.dll + # FIXME: Setting linknames here is a bad hack. + archive_cmds='$CC -o $lib $libobjs $compiler_flags `func_echo_all "$deplibs" | $SED '\''s/ -lc$//'\''` -link -dll~linknames=' + # The linker will automatically build a .lib file if we build a DLL. + old_archive_from_new_cmds='true' + # FIXME: Should let the user specify the lib program. + old_archive_cmds='lib -OUT:$oldlib$oldobjs$old_deplibs' + enable_shared_with_static_runtimes=yes + ;; + esac + ;; + + darwin* | rhapsody*) + + + archive_cmds_need_lc=no + hardcode_direct=no + hardcode_automatic=yes + hardcode_shlibpath_var=unsupported + if test yes = "$lt_cv_ld_force_load"; then + whole_archive_flag_spec='`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience $wl-force_load,$conv\"; done; func_echo_all \"$new_convenience\"`' + + else + whole_archive_flag_spec='' + fi + link_all_deplibs=yes + allow_undefined_flag=$_lt_dar_allow_undefined + case $cc_basename in + ifort*|nagfor*) _lt_dar_can_shared=yes ;; + *) _lt_dar_can_shared=$GCC ;; + esac + if test yes = "$_lt_dar_can_shared"; then + output_verbose_link_cmd=func_echo_all + archive_cmds="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod$_lt_dsymutil" + module_cmds="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags$_lt_dsymutil" + archive_expsym_cmds="sed 's|^|_|' < \$export_symbols > \$output_objdir/\$libname-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod$_lt_dar_export_syms$_lt_dsymutil" + module_expsym_cmds="sed -e 's|^|_|' < \$export_symbols > \$output_objdir/\$libname-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags$_lt_dar_export_syms$_lt_dsymutil" + + else + ld_shlibs=no + fi + + ;; + + dgux*) + archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_libdir_flag_spec='-L$libdir' + hardcode_shlibpath_var=no + ;; + + # FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor + # support. Future versions do this automatically, but an explicit c++rt0.o + # does not break anything, and helps significantly (at the cost of a little + # extra space). + freebsd2.2*) + archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o' + hardcode_libdir_flag_spec='-R$libdir' + hardcode_direct=yes + hardcode_shlibpath_var=no + ;; + + # Unfortunately, older versions of FreeBSD 2 do not have this feature. + freebsd2.*) + archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' + hardcode_direct=yes + hardcode_minus_L=yes + hardcode_shlibpath_var=no + ;; + + # FreeBSD 3 and greater uses gcc -shared to do shared libraries. + freebsd* | dragonfly*) + archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' + hardcode_libdir_flag_spec='-R$libdir' + hardcode_direct=yes + hardcode_shlibpath_var=no + ;; + + hpux9*) + if test yes = "$GCC"; then + archive_cmds='$RM $output_objdir/$soname~$CC -shared $pic_flag $wl+b $wl$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test "x$output_objdir/$soname" = "x$lib" || mv $output_objdir/$soname $lib' + else + archive_cmds='$RM $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test "x$output_objdir/$soname" = "x$lib" || mv $output_objdir/$soname $lib' + fi + hardcode_libdir_flag_spec='$wl+b $wl$libdir' + hardcode_libdir_separator=: + hardcode_direct=yes + + # hardcode_minus_L: Not really in the search PATH, + # but as the default location of the library. + hardcode_minus_L=yes + export_dynamic_flag_spec='$wl-E' + ;; + + hpux10*) + if test yes,no = "$GCC,$with_gnu_ld"; then + archive_cmds='$CC -shared $pic_flag $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags' + else + archive_cmds='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags' + fi + if test no = "$with_gnu_ld"; then + hardcode_libdir_flag_spec='$wl+b $wl$libdir' + hardcode_libdir_separator=: + hardcode_direct=yes + hardcode_direct_absolute=yes + export_dynamic_flag_spec='$wl-E' + # hardcode_minus_L: Not really in the search PATH, + # but as the default location of the library. + hardcode_minus_L=yes + fi + ;; + + hpux11*) + if test yes,no = "$GCC,$with_gnu_ld"; then + case $host_cpu in + hppa*64*) + archive_cmds='$CC -shared $wl+h $wl$soname -o $lib $libobjs $deplibs $compiler_flags' + ;; + ia64*) + archive_cmds='$CC -shared $pic_flag $wl+h $wl$soname $wl+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' + ;; + *) + archive_cmds='$CC -shared $pic_flag $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags' + ;; + esac + else + case $host_cpu in + hppa*64*) + archive_cmds='$CC -b $wl+h $wl$soname -o $lib $libobjs $deplibs $compiler_flags' + ;; + ia64*) + archive_cmds='$CC -b $wl+h $wl$soname $wl+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' + ;; + *) + + # Older versions of the 11.00 compiler do not understand -b yet + # (HP92453-01 A.11.01.20 doesn't, HP92453-01 B.11.X.35175-35176.GP does) + { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $CC understands -b" >&5 +$as_echo_n "checking if $CC understands -b... " >&6; } +if ${lt_cv_prog_compiler__b+:} false; then : + $as_echo_n "(cached) " >&6 +else + lt_cv_prog_compiler__b=no + save_LDFLAGS=$LDFLAGS + LDFLAGS="$LDFLAGS -b" + echo "$lt_simple_link_test_code" > conftest.$ac_ext + if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then + # The linker can only warn and ignore the option if not recognized + # So say no if there are warnings + if test -s conftest.err; then + # Append any errors to the config.log. + cat conftest.err 1>&5 + $ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp + $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 + if diff conftest.exp conftest.er2 >/dev/null; then + lt_cv_prog_compiler__b=yes + fi + else + lt_cv_prog_compiler__b=yes + fi + fi + $RM -r conftest* + LDFLAGS=$save_LDFLAGS + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler__b" >&5 +$as_echo "$lt_cv_prog_compiler__b" >&6; } + +if test yes = "$lt_cv_prog_compiler__b"; then + archive_cmds='$CC -b $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags' +else + archive_cmds='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags' +fi + + ;; + esac + fi + if test no = "$with_gnu_ld"; then + hardcode_libdir_flag_spec='$wl+b $wl$libdir' + hardcode_libdir_separator=: + + case $host_cpu in + hppa*64*|ia64*) + hardcode_direct=no + hardcode_shlibpath_var=no + ;; + *) + hardcode_direct=yes + hardcode_direct_absolute=yes + export_dynamic_flag_spec='$wl-E' + + # hardcode_minus_L: Not really in the search PATH, + # but as the default location of the library. + hardcode_minus_L=yes + ;; + esac + fi + ;; + + irix5* | irix6* | nonstopux*) + if test yes = "$GCC"; then + archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib' + # Try to use the -exported_symbol ld option, if it does not + # work, assume that -exports_file does not work either and + # implicitly export all symbols. + # This should be the same for all languages, so no per-tag cache variable. + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $host_os linker accepts -exported_symbol" >&5 +$as_echo_n "checking whether the $host_os linker accepts -exported_symbol... " >&6; } +if ${lt_cv_irix_exported_symbol+:} false; then : + $as_echo_n "(cached) " >&6 +else + save_LDFLAGS=$LDFLAGS + LDFLAGS="$LDFLAGS -shared $wl-exported_symbol ${wl}foo $wl-update_registry $wl/dev/null" + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +int foo (void) { return 0; } +_ACEOF +if ac_fn_c_try_link "$LINENO"; then : + lt_cv_irix_exported_symbol=yes +else + lt_cv_irix_exported_symbol=no +fi +rm -f core conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext + LDFLAGS=$save_LDFLAGS +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_irix_exported_symbol" >&5 +$as_echo "$lt_cv_irix_exported_symbol" >&6; } + if test yes = "$lt_cv_irix_exported_symbol"; then + archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations $wl-exports_file $wl$export_symbols -o $lib' + fi + else + archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib' + archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -exports_file $export_symbols -o $lib' + fi + archive_cmds_need_lc='no' + hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' + hardcode_libdir_separator=: + inherit_rpath=yes + link_all_deplibs=yes + ;; + + linux*) + case $cc_basename in + tcc*) + # Fabrice Bellard et al's Tiny C Compiler + ld_shlibs=yes + archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' + ;; + esac + ;; + + netbsd*) + if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then + archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out + else + archive_cmds='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF + fi + hardcode_libdir_flag_spec='-R$libdir' + hardcode_direct=yes + hardcode_shlibpath_var=no + ;; + + newsos6) + archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_direct=yes + hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' + hardcode_libdir_separator=: + hardcode_shlibpath_var=no + ;; + + *nto* | *qnx*) + ;; + + openbsd* | bitrig*) + if test -f /usr/libexec/ld.so; then + hardcode_direct=yes + hardcode_shlibpath_var=no + hardcode_direct_absolute=yes + if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`"; then + archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' + archive_expsym_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags $wl-retain-symbols-file,$export_symbols' + hardcode_libdir_flag_spec='$wl-rpath,$libdir' + export_dynamic_flag_spec='$wl-E' + else + archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' + hardcode_libdir_flag_spec='$wl-rpath,$libdir' + fi + else + ld_shlibs=no + fi + ;; + + os2*) + hardcode_libdir_flag_spec='-L$libdir' + hardcode_minus_L=yes + allow_undefined_flag=unsupported + shrext_cmds=.dll + archive_cmds='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~ + $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~ + $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~ + $ECHO EXPORTS >> $output_objdir/$libname.def~ + emxexp $libobjs | $SED /"_DLL_InitTerm"/d >> $output_objdir/$libname.def~ + $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~ + emximp -o $lib $output_objdir/$libname.def' + archive_expsym_cmds='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~ + $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~ + $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~ + $ECHO EXPORTS >> $output_objdir/$libname.def~ + prefix_cmds="$SED"~ + if test EXPORTS = "`$SED 1q $export_symbols`"; then + prefix_cmds="$prefix_cmds -e 1d"; + fi~ + prefix_cmds="$prefix_cmds -e \"s/^\(.*\)$/_\1/g\""~ + cat $export_symbols | $prefix_cmds >> $output_objdir/$libname.def~ + $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~ + emximp -o $lib $output_objdir/$libname.def' + old_archive_From_new_cmds='emximp -o $output_objdir/${libname}_dll.a $output_objdir/$libname.def' + enable_shared_with_static_runtimes=yes + ;; + + osf3*) + if test yes = "$GCC"; then + allow_undefined_flag=' $wl-expect_unresolved $wl\*' + archive_cmds='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib' + else + allow_undefined_flag=' -expect_unresolved \*' + archive_cmds='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib' + fi + archive_cmds_need_lc='no' + hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' + hardcode_libdir_separator=: + ;; + + osf4* | osf5*) # as osf3* with the addition of -msym flag + if test yes = "$GCC"; then + allow_undefined_flag=' $wl-expect_unresolved $wl\*' + archive_cmds='$CC -shared$allow_undefined_flag $pic_flag $libobjs $deplibs $compiler_flags $wl-msym $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib' + hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' + else + allow_undefined_flag=' -expect_unresolved \*' + archive_cmds='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib' + archive_expsym_cmds='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; printf "%s\\n" "-hidden">> $lib.exp~ + $CC -shared$allow_undefined_flag $wl-input $wl$lib.exp $compiler_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib~$RM $lib.exp' + + # Both c and cxx compiler support -rpath directly + hardcode_libdir_flag_spec='-rpath $libdir' + fi + archive_cmds_need_lc='no' + hardcode_libdir_separator=: + ;; + + solaris*) + no_undefined_flag=' -z defs' + if test yes = "$GCC"; then + wlarc='$wl' + archive_cmds='$CC -shared $pic_flag $wl-z ${wl}text $wl-h $wl$soname -o $lib $libobjs $deplibs $compiler_flags' + archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ + $CC -shared $pic_flag $wl-z ${wl}text $wl-M $wl$lib.exp $wl-h $wl$soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp' + else + case `$CC -V 2>&1` in + *"Compilers 5.0"*) + wlarc='' + archive_cmds='$LD -G$allow_undefined_flag -h $soname -o $lib $libobjs $deplibs $linker_flags' + archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ + $LD -G$allow_undefined_flag -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$RM $lib.exp' + ;; + *) + wlarc='$wl' + archive_cmds='$CC -G$allow_undefined_flag -h $soname -o $lib $libobjs $deplibs $compiler_flags' + archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ + $CC -G$allow_undefined_flag -M $lib.exp -h $soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp' + ;; + esac + fi + hardcode_libdir_flag_spec='-R$libdir' + hardcode_shlibpath_var=no + case $host_os in + solaris2.[0-5] | solaris2.[0-5].*) ;; + *) + # The compiler driver will combine and reorder linker options, + # but understands '-z linker_flag'. GCC discards it without '$wl', + # but is careful enough not to reorder. + # Supported since Solaris 2.6 (maybe 2.5.1?) + if test yes = "$GCC"; then + whole_archive_flag_spec='$wl-z ${wl}allextract$convenience $wl-z ${wl}defaultextract' + else + whole_archive_flag_spec='-z allextract$convenience -z defaultextract' + fi + ;; + esac + link_all_deplibs=yes + ;; + + sunos4*) + if test sequent = "$host_vendor"; then + # Use $CC to link under sequent, because it throws in some extra .o + # files that make .init and .fini sections work. + archive_cmds='$CC -G $wl-h $soname -o $lib $libobjs $deplibs $compiler_flags' + else + archive_cmds='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags' + fi + hardcode_libdir_flag_spec='-L$libdir' + hardcode_direct=yes + hardcode_minus_L=yes + hardcode_shlibpath_var=no + ;; + + sysv4) + case $host_vendor in + sni) + archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_direct=yes # is this really true??? + ;; + siemens) + ## LD is ld it makes a PLAMLIB + ## CC just makes a GrossModule. + archive_cmds='$LD -G -o $lib $libobjs $deplibs $linker_flags' + reload_cmds='$CC -r -o $output$reload_objs' + hardcode_direct=no + ;; + motorola) + archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_direct=no #Motorola manual says yes, but my tests say they lie + ;; + esac + runpath_var='LD_RUN_PATH' + hardcode_shlibpath_var=no + ;; + + sysv4.3*) + archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_shlibpath_var=no + export_dynamic_flag_spec='-Bexport' + ;; + + sysv4*MP*) + if test -d /usr/nec; then + archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_shlibpath_var=no + runpath_var=LD_RUN_PATH + hardcode_runpath_var=yes + ld_shlibs=yes + fi + ;; + + sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[01].[10]* | unixware7* | sco3.2v5.0.[024]*) + no_undefined_flag='$wl-z,text' + archive_cmds_need_lc=no + hardcode_shlibpath_var=no + runpath_var='LD_RUN_PATH' + + if test yes = "$GCC"; then + archive_cmds='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' + archive_expsym_cmds='$CC -shared $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' + else + archive_cmds='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' + archive_expsym_cmds='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' + fi + ;; + + sysv5* | sco3.2v5* | sco5v6*) + # Note: We CANNOT use -z defs as we might desire, because we do not + # link with -lc, and that would cause any symbols used from libc to + # always be unresolved, which means just about no library would + # ever link correctly. If we're not using GNU ld we use -z text + # though, which does catch some bad symbols but isn't as heavy-handed + # as -z defs. + no_undefined_flag='$wl-z,text' + allow_undefined_flag='$wl-z,nodefs' + archive_cmds_need_lc=no + hardcode_shlibpath_var=no + hardcode_libdir_flag_spec='$wl-R,$libdir' + hardcode_libdir_separator=':' + link_all_deplibs=yes + export_dynamic_flag_spec='$wl-Bexport' + runpath_var='LD_RUN_PATH' + + if test yes = "$GCC"; then + archive_cmds='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' + archive_expsym_cmds='$CC -shared $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' + else + archive_cmds='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' + archive_expsym_cmds='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' + fi + ;; + + uts4*) + archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_libdir_flag_spec='-L$libdir' + hardcode_shlibpath_var=no + ;; + + *) + ld_shlibs=no + ;; + esac + + if test sni = "$host_vendor"; then + case $host in + sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*) + export_dynamic_flag_spec='$wl-Blargedynsym' + ;; + esac + fi + fi + +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ld_shlibs" >&5 +$as_echo "$ld_shlibs" >&6; } +test no = "$ld_shlibs" && can_build_shared=no + +with_gnu_ld=$with_gnu_ld + + + + + + + + + + + + + + + +# +# Do we need to explicitly link libc? +# +case "x$archive_cmds_need_lc" in +x|xyes) + # Assume -lc should be added + archive_cmds_need_lc=yes + + if test yes,yes = "$GCC,$enable_shared"; then + case $archive_cmds in + *'~'*) + # FIXME: we may have to deal with multi-command sequences. + ;; + '$CC '*) + # Test whether the compiler implicitly links with -lc since on some + # systems, -lgcc has to come before -lc. If gcc already passes -lc + # to ld, don't add -lc before -lgcc. + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether -lc should be explicitly linked in" >&5 +$as_echo_n "checking whether -lc should be explicitly linked in... " >&6; } +if ${lt_cv_archive_cmds_need_lc+:} false; then : + $as_echo_n "(cached) " >&6 +else + $RM conftest* + echo "$lt_simple_compile_test_code" > conftest.$ac_ext + + if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 + (eval $ac_compile) 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } 2>conftest.err; then + soname=conftest + lib=conftest + libobjs=conftest.$ac_objext + deplibs= + wl=$lt_prog_compiler_wl + pic_flag=$lt_prog_compiler_pic + compiler_flags=-v + linker_flags=-v + verstring= + output_objdir=. + libname=conftest + lt_save_allow_undefined_flag=$allow_undefined_flag + allow_undefined_flag= + if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$archive_cmds 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1\""; } >&5 + (eval $archive_cmds 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1) 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } + then + lt_cv_archive_cmds_need_lc=no + else + lt_cv_archive_cmds_need_lc=yes + fi + allow_undefined_flag=$lt_save_allow_undefined_flag + else + cat conftest.err 1>&5 + fi + $RM conftest* + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_archive_cmds_need_lc" >&5 +$as_echo "$lt_cv_archive_cmds_need_lc" >&6; } + archive_cmds_need_lc=$lt_cv_archive_cmds_need_lc + ;; + esac + fi + ;; +esac + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking dynamic linker characteristics" >&5 +$as_echo_n "checking dynamic linker characteristics... " >&6; } + +if test yes = "$GCC"; then + case $host_os in + darwin*) lt_awk_arg='/^libraries:/,/LR/' ;; + *) lt_awk_arg='/^libraries:/' ;; + esac + case $host_os in + mingw* | cegcc*) lt_sed_strip_eq='s|=\([A-Za-z]:\)|\1|g' ;; + *) lt_sed_strip_eq='s|=/|/|g' ;; + esac + lt_search_path_spec=`$CC -print-search-dirs | awk $lt_awk_arg | $SED -e "s/^libraries://" -e $lt_sed_strip_eq` + case $lt_search_path_spec in + *\;*) + # if the path contains ";" then we assume it to be the separator + # otherwise default to the standard path separator (i.e. ":") - it is + # assumed that no part of a normal pathname contains ";" but that should + # okay in the real world where ";" in dirpaths is itself problematic. + lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED 's/;/ /g'` + ;; + *) + lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED "s/$PATH_SEPARATOR/ /g"` + ;; + esac + # Ok, now we have the path, separated by spaces, we can step through it + # and add multilib dir if necessary... + lt_tmp_lt_search_path_spec= + lt_multi_os_dir=/`$CC $CPPFLAGS $CFLAGS $LDFLAGS -print-multi-os-directory 2>/dev/null` + # ...but if some path component already ends with the multilib dir we assume + # that all is fine and trust -print-search-dirs as is (GCC 4.2? or newer). + case "$lt_multi_os_dir; $lt_search_path_spec " in + "/; "* | "/.; "* | "/./; "* | *"$lt_multi_os_dir "* | *"$lt_multi_os_dir/ "*) + lt_multi_os_dir= + ;; + esac + for lt_sys_path in $lt_search_path_spec; do + if test -d "$lt_sys_path$lt_multi_os_dir"; then + lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path$lt_multi_os_dir" + elif test -n "$lt_multi_os_dir"; then + test -d "$lt_sys_path" && \ + lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path" + fi + done + lt_search_path_spec=`$ECHO "$lt_tmp_lt_search_path_spec" | awk ' +BEGIN {RS = " "; FS = "/|\n";} { + lt_foo = ""; + lt_count = 0; + for (lt_i = NF; lt_i > 0; lt_i--) { + if ($lt_i != "" && $lt_i != ".") { + if ($lt_i == "..") { + lt_count++; + } else { + if (lt_count == 0) { + lt_foo = "/" $lt_i lt_foo; + } else { + lt_count--; + } + } + } + } + if (lt_foo != "") { lt_freq[lt_foo]++; } + if (lt_freq[lt_foo] == 1) { print lt_foo; } +}'` + # AWK program above erroneously prepends '/' to C:/dos/paths + # for these hosts. + case $host_os in + mingw* | cegcc*) lt_search_path_spec=`$ECHO "$lt_search_path_spec" |\ + $SED 's|/\([A-Za-z]:\)|\1|g'` ;; + esac + sys_lib_search_path_spec=`$ECHO "$lt_search_path_spec" | $lt_NL2SP` +else + sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" +fi +library_names_spec= +libname_spec='lib$name' +soname_spec= +shrext_cmds=.so +postinstall_cmds= +postuninstall_cmds= +finish_cmds= +finish_eval= +shlibpath_var= +shlibpath_overrides_runpath=unknown +version_type=none +dynamic_linker="$host_os ld.so" +sys_lib_dlsearch_path_spec="/lib /usr/lib" +need_lib_prefix=unknown +hardcode_into_libs=no + +# when you set need_version to no, make sure it does not cause -set_version +# flags to be left without arguments +need_version=unknown + + + +case $host_os in +aix3*) + version_type=linux # correct to gnu/linux during the next big refactor + library_names_spec='$libname$release$shared_ext$versuffix $libname.a' + shlibpath_var=LIBPATH + + # AIX 3 has no versioning support, so we append a major version to the name. + soname_spec='$libname$release$shared_ext$major' + ;; + +aix[4-9]*) + version_type=linux # correct to gnu/linux during the next big refactor + need_lib_prefix=no + need_version=no + hardcode_into_libs=yes + if test ia64 = "$host_cpu"; then + # AIX 5 supports IA64 + library_names_spec='$libname$release$shared_ext$major $libname$release$shared_ext$versuffix $libname$shared_ext' + shlibpath_var=LD_LIBRARY_PATH + else + # With GCC up to 2.95.x, collect2 would create an import file + # for dependence libraries. The import file would start with + # the line '#! .'. This would cause the generated library to + # depend on '.', always an invalid library. This was fixed in + # development snapshots of GCC prior to 3.0. + case $host_os in + aix4 | aix4.[01] | aix4.[01].*) + if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)' + echo ' yes ' + echo '#endif'; } | $CC -E - | $GREP yes > /dev/null; then + : + else + can_build_shared=no + fi + ;; + esac + # Using Import Files as archive members, it is possible to support + # filename-based versioning of shared library archives on AIX. While + # this would work for both with and without runtime linking, it will + # prevent static linking of such archives. So we do filename-based + # shared library versioning with .so extension only, which is used + # when both runtime linking and shared linking is enabled. + # Unfortunately, runtime linking may impact performance, so we do + # not want this to be the default eventually. Also, we use the + # versioned .so libs for executables only if there is the -brtl + # linker flag in LDFLAGS as well, or --with-aix-soname=svr4 only. + # To allow for filename-based versioning support, we need to create + # libNAME.so.V as an archive file, containing: + # *) an Import File, referring to the versioned filename of the + # archive as well as the shared archive member, telling the + # bitwidth (32 or 64) of that shared object, and providing the + # list of exported symbols of that shared object, eventually + # decorated with the 'weak' keyword + # *) the shared object with the F_LOADONLY flag set, to really avoid + # it being seen by the linker. + # At run time we better use the real file rather than another symlink, + # but for link time we create the symlink libNAME.so -> libNAME.so.V + + case $with_aix_soname,$aix_use_runtimelinking in + # AIX (on Power*) has no versioning support, so currently we cannot hardcode correct + # soname into executable. Probably we can add versioning support to + # collect2, so additional links can be useful in future. + aix,yes) # traditional libtool + dynamic_linker='AIX unversionable lib.so' + # If using run time linking (on AIX 4.2 or later) use lib.so + # instead of lib.a to let people know that these are not + # typical AIX shared libraries. + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + ;; + aix,no) # traditional AIX only + dynamic_linker='AIX lib.a(lib.so.V)' + # We preserve .a as extension for shared libraries through AIX4.2 + # and later when we are not doing run time linking. + library_names_spec='$libname$release.a $libname.a' + soname_spec='$libname$release$shared_ext$major' + ;; + svr4,*) # full svr4 only + dynamic_linker="AIX lib.so.V($shared_archive_member_spec.o)" + library_names_spec='$libname$release$shared_ext$major $libname$shared_ext' + # We do not specify a path in Import Files, so LIBPATH fires. + shlibpath_overrides_runpath=yes + ;; + *,yes) # both, prefer svr4 + dynamic_linker="AIX lib.so.V($shared_archive_member_spec.o), lib.a(lib.so.V)" + library_names_spec='$libname$release$shared_ext$major $libname$shared_ext' + # unpreferred sharedlib libNAME.a needs extra handling + postinstall_cmds='test -n "$linkname" || linkname="$realname"~func_stripname "" ".so" "$linkname"~$install_shared_prog "$dir/$func_stripname_result.$libext" "$destdir/$func_stripname_result.$libext"~test -z "$tstripme" || test -z "$striplib" || $striplib "$destdir/$func_stripname_result.$libext"' + postuninstall_cmds='for n in $library_names $old_library; do :; done~func_stripname "" ".so" "$n"~test "$func_stripname_result" = "$n" || func_append rmfiles " $odir/$func_stripname_result.$libext"' + # We do not specify a path in Import Files, so LIBPATH fires. + shlibpath_overrides_runpath=yes + ;; + *,no) # both, prefer aix + dynamic_linker="AIX lib.a(lib.so.V), lib.so.V($shared_archive_member_spec.o)" + library_names_spec='$libname$release.a $libname.a' + soname_spec='$libname$release$shared_ext$major' + # unpreferred sharedlib libNAME.so.V and symlink libNAME.so need extra handling + postinstall_cmds='test -z "$dlname" || $install_shared_prog $dir/$dlname $destdir/$dlname~test -z "$tstripme" || test -z "$striplib" || $striplib $destdir/$dlname~test -n "$linkname" || linkname=$realname~func_stripname "" ".a" "$linkname"~(cd "$destdir" && $LN_S -f $dlname $func_stripname_result.so)' + postuninstall_cmds='test -z "$dlname" || func_append rmfiles " $odir/$dlname"~for n in $old_library $library_names; do :; done~func_stripname "" ".a" "$n"~func_append rmfiles " $odir/$func_stripname_result.so"' + ;; + esac + shlibpath_var=LIBPATH + fi + ;; + +amigaos*) + case $host_cpu in + powerpc) + # Since July 2007 AmigaOS4 officially supports .so libraries. + # When compiling the executable, add -use-dynld -Lsobjs: to the compileline. + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + ;; + m68k) + library_names_spec='$libname.ixlibrary $libname.a' + # Create ${libname}_ixlibrary.a entries in /sys/libs. + finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`func_echo_all "$lib" | $SED '\''s%^.*/\([^/]*\)\.ixlibrary$%\1%'\''`; $RM /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done' + ;; + esac + ;; + +beos*) + library_names_spec='$libname$shared_ext' + dynamic_linker="$host_os ld.so" + shlibpath_var=LIBRARY_PATH + ;; + +bsdi[45]*) + version_type=linux # correct to gnu/linux during the next big refactor + need_version=no + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir' + shlibpath_var=LD_LIBRARY_PATH + sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib" + sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib" + # the default ld.so.conf also contains /usr/contrib/lib and + # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow + # libtool to hard-code these into programs + ;; + +cygwin* | mingw* | pw32* | cegcc*) + version_type=windows + shrext_cmds=.dll + need_version=no + need_lib_prefix=no + + case $GCC,$cc_basename in + yes,*) + # gcc + library_names_spec='$libname.dll.a' + # DLL is installed to $(libdir)/../bin by postinstall_cmds + postinstall_cmds='base_file=`basename \$file`~ + dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; echo \$dlname'\''`~ + dldir=$destdir/`dirname \$dlpath`~ + test -d \$dldir || mkdir -p \$dldir~ + $install_prog $dir/$dlname \$dldir/$dlname~ + chmod a+x \$dldir/$dlname~ + if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then + eval '\''$striplib \$dldir/$dlname'\'' || exit \$?; + fi' + postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ + dlpath=$dir/\$dldll~ + $RM \$dlpath' + shlibpath_overrides_runpath=yes + + case $host_os in + cygwin*) + # Cygwin DLLs use 'cyg' prefix rather than 'lib' + soname_spec='`echo $libname | sed -e 's/^lib/cyg/'``echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext' + + sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/lib/w32api" + ;; + mingw* | cegcc*) + # MinGW DLLs use traditional 'lib' prefix + soname_spec='$libname`echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext' + ;; + pw32*) + # pw32 DLLs use 'pw' prefix rather than 'lib' + library_names_spec='`echo $libname | sed -e 's/^lib/pw/'``echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext' + ;; + esac + dynamic_linker='Win32 ld.exe' + ;; + + *,cl*) + # Native MSVC + libname_spec='$name' + soname_spec='$libname`echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext' + library_names_spec='$libname.dll.lib' + + case $build_os in + mingw*) + sys_lib_search_path_spec= + lt_save_ifs=$IFS + IFS=';' + for lt_path in $LIB + do + IFS=$lt_save_ifs + # Let DOS variable expansion print the short 8.3 style file name. + lt_path=`cd "$lt_path" 2>/dev/null && cmd //C "for %i in (".") do @echo %~si"` + sys_lib_search_path_spec="$sys_lib_search_path_spec $lt_path" + done + IFS=$lt_save_ifs + # Convert to MSYS style. + sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | sed -e 's|\\\\|/|g' -e 's| \\([a-zA-Z]\\):| /\\1|g' -e 's|^ ||'` + ;; + cygwin*) + # Convert to unix form, then to dos form, then back to unix form + # but this time dos style (no spaces!) so that the unix form looks + # like /cygdrive/c/PROGRA~1:/cygdr... + sys_lib_search_path_spec=`cygpath --path --unix "$LIB"` + sys_lib_search_path_spec=`cygpath --path --dos "$sys_lib_search_path_spec" 2>/dev/null` + sys_lib_search_path_spec=`cygpath --path --unix "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` + ;; + *) + sys_lib_search_path_spec=$LIB + if $ECHO "$sys_lib_search_path_spec" | $GREP ';[c-zC-Z]:/' >/dev/null; then + # It is most probably a Windows format PATH. + sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'` + else + sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` + fi + # FIXME: find the short name or the path components, as spaces are + # common. (e.g. "Program Files" -> "PROGRA~1") + ;; + esac + + # DLL is installed to $(libdir)/../bin by postinstall_cmds + postinstall_cmds='base_file=`basename \$file`~ + dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; echo \$dlname'\''`~ + dldir=$destdir/`dirname \$dlpath`~ + test -d \$dldir || mkdir -p \$dldir~ + $install_prog $dir/$dlname \$dldir/$dlname' + postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ + dlpath=$dir/\$dldll~ + $RM \$dlpath' + shlibpath_overrides_runpath=yes + dynamic_linker='Win32 link.exe' + ;; + + *) + # Assume MSVC wrapper + library_names_spec='$libname`echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext $libname.lib' + dynamic_linker='Win32 ld.exe' + ;; + esac + # FIXME: first we should search . and the directory the executable is in + shlibpath_var=PATH + ;; + +darwin* | rhapsody*) + dynamic_linker="$host_os dyld" + version_type=darwin + need_lib_prefix=no + need_version=no + library_names_spec='$libname$release$major$shared_ext $libname$shared_ext' + soname_spec='$libname$release$major$shared_ext' + shlibpath_overrides_runpath=yes + shlibpath_var=DYLD_LIBRARY_PATH + shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`' + + sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/local/lib" + sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib' + ;; + +dgux*) + version_type=linux # correct to gnu/linux during the next big refactor + need_lib_prefix=no + need_version=no + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + shlibpath_var=LD_LIBRARY_PATH + ;; + +freebsd* | dragonfly*) + # DragonFly does not have aout. When/if they implement a new + # versioning mechanism, adjust this. + if test -x /usr/bin/objformat; then + objformat=`/usr/bin/objformat` + else + case $host_os in + freebsd[23].*) objformat=aout ;; + *) objformat=elf ;; + esac + fi + version_type=freebsd-$objformat + case $version_type in + freebsd-elf*) + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + need_version=no + need_lib_prefix=no + ;; + freebsd-*) + library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix' + need_version=yes + ;; + esac + shlibpath_var=LD_LIBRARY_PATH + case $host_os in + freebsd2.*) + shlibpath_overrides_runpath=yes + ;; + freebsd3.[01]* | freebsdelf3.[01]*) + shlibpath_overrides_runpath=yes + hardcode_into_libs=yes + ;; + freebsd3.[2-9]* | freebsdelf3.[2-9]* | \ + freebsd4.[0-5] | freebsdelf4.[0-5] | freebsd4.1.1 | freebsdelf4.1.1) + shlibpath_overrides_runpath=no + hardcode_into_libs=yes + ;; + *) # from 4.6 on, and DragonFly + shlibpath_overrides_runpath=yes + hardcode_into_libs=yes + ;; + esac + ;; + +haiku*) + version_type=linux # correct to gnu/linux during the next big refactor + need_lib_prefix=no + need_version=no + dynamic_linker="$host_os runtime_loader" + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + shlibpath_var=LIBRARY_PATH + shlibpath_overrides_runpath=no + sys_lib_dlsearch_path_spec='/boot/home/config/lib /boot/common/lib /boot/system/lib' + hardcode_into_libs=yes + ;; + +hpux9* | hpux10* | hpux11*) + # Give a soname corresponding to the major version so that dld.sl refuses to + # link against other versions. + version_type=sunos + need_lib_prefix=no + need_version=no + case $host_cpu in + ia64*) + shrext_cmds='.so' + hardcode_into_libs=yes + dynamic_linker="$host_os dld.so" + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + if test 32 = "$HPUX_IA64_MODE"; then + sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib" + sys_lib_dlsearch_path_spec=/usr/lib/hpux32 + else + sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64" + sys_lib_dlsearch_path_spec=/usr/lib/hpux64 + fi + ;; + hppa*64*) + shrext_cmds='.sl' + hardcode_into_libs=yes + dynamic_linker="$host_os dld.sl" + shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH + shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64" + sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec + ;; + *) + shrext_cmds='.sl' + dynamic_linker="$host_os dld.sl" + shlibpath_var=SHLIB_PATH + shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + ;; + esac + # HP-UX runs *really* slowly unless shared libraries are mode 555, ... + postinstall_cmds='chmod 555 $lib' + # or fails outright, so override atomically: + install_override_mode=555 + ;; + +interix[3-9]*) + version_type=linux # correct to gnu/linux during the next big refactor + need_lib_prefix=no + need_version=no + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=no + hardcode_into_libs=yes + ;; + +irix5* | irix6* | nonstopux*) + case $host_os in + nonstopux*) version_type=nonstopux ;; + *) + if test yes = "$lt_cv_prog_gnu_ld"; then + version_type=linux # correct to gnu/linux during the next big refactor + else + version_type=irix + fi ;; + esac + need_lib_prefix=no + need_version=no + soname_spec='$libname$release$shared_ext$major' + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$release$shared_ext $libname$shared_ext' + case $host_os in + irix5* | nonstopux*) + libsuff= shlibsuff= + ;; + *) + case $LD in # libtool.m4 will add one of these switches to LD + *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ") + libsuff= shlibsuff= libmagic=32-bit;; + *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ") + libsuff=32 shlibsuff=N32 libmagic=N32;; + *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ") + libsuff=64 shlibsuff=64 libmagic=64-bit;; + *) libsuff= shlibsuff= libmagic=never-match;; + esac + ;; + esac + shlibpath_var=LD_LIBRARY${shlibsuff}_PATH + shlibpath_overrides_runpath=no + sys_lib_search_path_spec="/usr/lib$libsuff /lib$libsuff /usr/local/lib$libsuff" + sys_lib_dlsearch_path_spec="/usr/lib$libsuff /lib$libsuff" + hardcode_into_libs=yes + ;; + +# No shared lib support for Linux oldld, aout, or coff. +linux*oldld* | linux*aout* | linux*coff*) + dynamic_linker=no + ;; + +linux*android*) + version_type=none # Android doesn't support versioned libraries. + need_lib_prefix=no + need_version=no + library_names_spec='$libname$release$shared_ext' + soname_spec='$libname$release$shared_ext' + finish_cmds= + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + + # This implies no fast_install, which is unacceptable. + # Some rework will be needed to allow for fast_install + # before this can be enabled. + hardcode_into_libs=yes + + dynamic_linker='Android linker' + # Don't embed -rpath directories since the linker doesn't support them. + hardcode_libdir_flag_spec='-L$libdir' + ;; + +# This must be glibc/ELF. +linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*) + version_type=linux # correct to gnu/linux during the next big refactor + need_lib_prefix=no + need_version=no + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=no + + # Some binutils ld are patched to set DT_RUNPATH + if ${lt_cv_shlibpath_overrides_runpath+:} false; then : + $as_echo_n "(cached) " >&6 +else + lt_cv_shlibpath_overrides_runpath=no + save_LDFLAGS=$LDFLAGS + save_libdir=$libdir + eval "libdir=/foo; wl=\"$lt_prog_compiler_wl\"; \ + LDFLAGS=\"\$LDFLAGS $hardcode_libdir_flag_spec\"" + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_link "$LINENO"; then : + if ($OBJDUMP -p conftest$ac_exeext) 2>/dev/null | grep "RUNPATH.*$libdir" >/dev/null; then : + lt_cv_shlibpath_overrides_runpath=yes +fi +fi +rm -f core conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext + LDFLAGS=$save_LDFLAGS + libdir=$save_libdir + +fi + + shlibpath_overrides_runpath=$lt_cv_shlibpath_overrides_runpath + + # This implies no fast_install, which is unacceptable. + # Some rework will be needed to allow for fast_install + # before this can be enabled. + hardcode_into_libs=yes + + # Ideally, we could use ldconfig to report *all* directores which are + # searched for libraries, however this is still not possible. Aside from not + # being certain /sbin/ldconfig is available, command + # 'ldconfig -N -X -v | grep ^/' on 64bit Fedora does not report /usr/lib64, + # even though it is searched at run-time. Try to do the best guess by + # appending ld.so.conf contents (and includes) to the search path. + if test -f /etc/ld.so.conf; then + lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \$2)); skip = 1; } { if (!skip) print \$0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;s/"//g;/^$/d' | tr '\n' ' '` + sys_lib_dlsearch_path_spec="/lib /usr/lib $lt_ld_extra" + fi + + # We used to test for /lib/ld.so.1 and disable shared libraries on + # powerpc, because MkLinux only supported shared libraries with the + # GNU dynamic linker. Since this was broken with cross compilers, + # most powerpc-linux boxes support dynamic linking these days and + # people can always --disable-shared, the test was removed, and we + # assume the GNU/Linux dynamic linker is in use. + dynamic_linker='GNU/Linux ld.so' + ;; + +netbsd*) + version_type=sunos + need_lib_prefix=no + need_version=no + if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then + library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix' + finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' + dynamic_linker='NetBSD (a.out) ld.so' + else + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + dynamic_linker='NetBSD ld.elf_so' + fi + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + hardcode_into_libs=yes + ;; + +newsos6) + version_type=linux # correct to gnu/linux during the next big refactor + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + ;; + +*nto* | *qnx*) + version_type=qnx + need_lib_prefix=no + need_version=no + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=no + hardcode_into_libs=yes + dynamic_linker='ldqnx.so' + ;; + +openbsd* | bitrig*) + version_type=sunos + sys_lib_dlsearch_path_spec=/usr/lib + need_lib_prefix=no + if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`"; then + need_version=no + else + need_version=yes + fi + library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix' + finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + ;; + +os2*) + libname_spec='$name' + version_type=windows + shrext_cmds=.dll + need_version=no + need_lib_prefix=no + # OS/2 can only load a DLL with a base name of 8 characters or less. + soname_spec='`test -n "$os2dllname" && libname="$os2dllname"; + v=$($ECHO $release$versuffix | tr -d .-); + n=$($ECHO $libname | cut -b -$((8 - ${#v})) | tr . _); + $ECHO $n$v`$shared_ext' + library_names_spec='${libname}_dll.$libext' + dynamic_linker='OS/2 ld.exe' + shlibpath_var=BEGINLIBPATH + sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" + sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec + postinstall_cmds='base_file=`basename \$file`~ + dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; $ECHO \$dlname'\''`~ + dldir=$destdir/`dirname \$dlpath`~ + test -d \$dldir || mkdir -p \$dldir~ + $install_prog $dir/$dlname \$dldir/$dlname~ + chmod a+x \$dldir/$dlname~ + if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then + eval '\''$striplib \$dldir/$dlname'\'' || exit \$?; + fi' + postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; $ECHO \$dlname'\''`~ + dlpath=$dir/\$dldll~ + $RM \$dlpath' + ;; + +osf3* | osf4* | osf5*) + version_type=osf + need_lib_prefix=no + need_version=no + soname_spec='$libname$release$shared_ext$major' + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + shlibpath_var=LD_LIBRARY_PATH + sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib" + sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec + ;; + +rdos*) + dynamic_linker=no + ;; + +solaris*) + version_type=linux # correct to gnu/linux during the next big refactor + need_lib_prefix=no + need_version=no + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + hardcode_into_libs=yes + # ldd complains unless libraries are executable + postinstall_cmds='chmod +x $lib' + ;; + +sunos4*) + version_type=sunos + library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix' + finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + if test yes = "$with_gnu_ld"; then + need_lib_prefix=no + fi + need_version=yes + ;; + +sysv4 | sysv4.3*) + version_type=linux # correct to gnu/linux during the next big refactor + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + shlibpath_var=LD_LIBRARY_PATH + case $host_vendor in + sni) + shlibpath_overrides_runpath=no + need_lib_prefix=no + runpath_var=LD_RUN_PATH + ;; + siemens) + need_lib_prefix=no + ;; + motorola) + need_lib_prefix=no + need_version=no + shlibpath_overrides_runpath=no + sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib' + ;; + esac + ;; + +sysv4*MP*) + if test -d /usr/nec; then + version_type=linux # correct to gnu/linux during the next big refactor + library_names_spec='$libname$shared_ext.$versuffix $libname$shared_ext.$major $libname$shared_ext' + soname_spec='$libname$shared_ext.$major' + shlibpath_var=LD_LIBRARY_PATH + fi + ;; + +sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) + version_type=sco + need_lib_prefix=no + need_version=no + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + hardcode_into_libs=yes + if test yes = "$with_gnu_ld"; then + sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib' + else + sys_lib_search_path_spec='/usr/ccs/lib /usr/lib' + case $host_os in + sco3.2v5*) + sys_lib_search_path_spec="$sys_lib_search_path_spec /lib" + ;; + esac + fi + sys_lib_dlsearch_path_spec='/usr/lib' + ;; + +tpf*) + # TPF is a cross-target only. Preferred cross-host = GNU/Linux. + version_type=linux # correct to gnu/linux during the next big refactor + need_lib_prefix=no + need_version=no + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=no + hardcode_into_libs=yes + ;; + +uts4*) + version_type=linux # correct to gnu/linux during the next big refactor + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + shlibpath_var=LD_LIBRARY_PATH + ;; + +*) + dynamic_linker=no + ;; +esac +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $dynamic_linker" >&5 +$as_echo "$dynamic_linker" >&6; } +test no = "$dynamic_linker" && can_build_shared=no + +variables_saved_for_relink="PATH $shlibpath_var $runpath_var" +if test yes = "$GCC"; then + variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH" +fi + +if test set = "${lt_cv_sys_lib_search_path_spec+set}"; then + sys_lib_search_path_spec=$lt_cv_sys_lib_search_path_spec +fi + +if test set = "${lt_cv_sys_lib_dlsearch_path_spec+set}"; then + sys_lib_dlsearch_path_spec=$lt_cv_sys_lib_dlsearch_path_spec +fi + +# remember unaugmented sys_lib_dlsearch_path content for libtool script decls... +configure_time_dlsearch_path=$sys_lib_dlsearch_path_spec + +# ... but it needs LT_SYS_LIBRARY_PATH munging for other configure-time code +func_munge_path_list sys_lib_dlsearch_path_spec "$LT_SYS_LIBRARY_PATH" + +# to be used as default LT_SYS_LIBRARY_PATH value in generated libtool +configure_time_lt_sys_library_path=$LT_SYS_LIBRARY_PATH + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to hardcode library paths into programs" >&5 +$as_echo_n "checking how to hardcode library paths into programs... " >&6; } +hardcode_action= +if test -n "$hardcode_libdir_flag_spec" || + test -n "$runpath_var" || + test yes = "$hardcode_automatic"; then + + # We can hardcode non-existent directories. + if test no != "$hardcode_direct" && + # If the only mechanism to avoid hardcoding is shlibpath_var, we + # have to relink, otherwise we might link with an installed library + # when we should be linking with a yet-to-be-installed one + ## test no != "$_LT_TAGVAR(hardcode_shlibpath_var, )" && + test no != "$hardcode_minus_L"; then + # Linking always hardcodes the temporary library directory. + hardcode_action=relink + else + # We can link without hardcoding, and we can hardcode nonexisting dirs. + hardcode_action=immediate + fi +else + # We cannot hardcode anything, or else we can only hardcode existing + # directories. + hardcode_action=unsupported +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $hardcode_action" >&5 +$as_echo "$hardcode_action" >&6; } + +if test relink = "$hardcode_action" || + test yes = "$inherit_rpath"; then + # Fast installation is not supported + enable_fast_install=no +elif test yes = "$shlibpath_overrides_runpath" || + test no = "$enable_shared"; then + # Fast installation is not necessary + enable_fast_install=needless +fi + + + + + + + if test yes != "$enable_dlopen"; then + enable_dlopen=unknown + enable_dlopen_self=unknown + enable_dlopen_self_static=unknown +else + lt_cv_dlopen=no + lt_cv_dlopen_libs= + + case $host_os in + beos*) + lt_cv_dlopen=load_add_on + lt_cv_dlopen_libs= + lt_cv_dlopen_self=yes + ;; + + mingw* | pw32* | cegcc*) + lt_cv_dlopen=LoadLibrary + lt_cv_dlopen_libs= + ;; + + cygwin*) + lt_cv_dlopen=dlopen + lt_cv_dlopen_libs= + ;; + + darwin*) + # if libdl is installed we need to link against it + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldl" >&5 +$as_echo_n "checking for dlopen in -ldl... " >&6; } +if ${ac_cv_lib_dl_dlopen+:} false; then : + $as_echo_n "(cached) " >&6 +else + ac_check_lib_save_LIBS=$LIBS +LIBS="-ldl $LIBS" +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +/* Override any GCC internal prototype to avoid an error. + Use char because int might match the return type of a GCC + builtin and then its argument prototype would still apply. */ +#ifdef __cplusplus +extern "C" +#endif +char dlopen (); +int +main () +{ +return dlopen (); + ; + return 0; +} +_ACEOF +if ac_fn_c_try_link "$LINENO"; then : + ac_cv_lib_dl_dlopen=yes +else + ac_cv_lib_dl_dlopen=no +fi +rm -f core conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +LIBS=$ac_check_lib_save_LIBS +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dl_dlopen" >&5 +$as_echo "$ac_cv_lib_dl_dlopen" >&6; } +if test "x$ac_cv_lib_dl_dlopen" = xyes; then : + lt_cv_dlopen=dlopen lt_cv_dlopen_libs=-ldl +else + + lt_cv_dlopen=dyld + lt_cv_dlopen_libs= + lt_cv_dlopen_self=yes + +fi + + ;; + + tpf*) + # Don't try to run any link tests for TPF. We know it's impossible + # because TPF is a cross-compiler, and we know how we open DSOs. + lt_cv_dlopen=dlopen + lt_cv_dlopen_libs= + lt_cv_dlopen_self=no + ;; + + *) + ac_fn_c_check_func "$LINENO" "shl_load" "ac_cv_func_shl_load" +if test "x$ac_cv_func_shl_load" = xyes; then : + lt_cv_dlopen=shl_load +else + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for shl_load in -ldld" >&5 +$as_echo_n "checking for shl_load in -ldld... " >&6; } +if ${ac_cv_lib_dld_shl_load+:} false; then : + $as_echo_n "(cached) " >&6 +else + ac_check_lib_save_LIBS=$LIBS +LIBS="-ldld $LIBS" +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +/* Override any GCC internal prototype to avoid an error. + Use char because int might match the return type of a GCC + builtin and then its argument prototype would still apply. */ +#ifdef __cplusplus +extern "C" +#endif +char shl_load (); +int +main () +{ +return shl_load (); + ; + return 0; +} +_ACEOF +if ac_fn_c_try_link "$LINENO"; then : + ac_cv_lib_dld_shl_load=yes +else + ac_cv_lib_dld_shl_load=no +fi +rm -f core conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +LIBS=$ac_check_lib_save_LIBS +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dld_shl_load" >&5 +$as_echo "$ac_cv_lib_dld_shl_load" >&6; } +if test "x$ac_cv_lib_dld_shl_load" = xyes; then : + lt_cv_dlopen=shl_load lt_cv_dlopen_libs=-ldld +else + ac_fn_c_check_func "$LINENO" "dlopen" "ac_cv_func_dlopen" +if test "x$ac_cv_func_dlopen" = xyes; then : + lt_cv_dlopen=dlopen +else + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldl" >&5 +$as_echo_n "checking for dlopen in -ldl... " >&6; } +if ${ac_cv_lib_dl_dlopen+:} false; then : + $as_echo_n "(cached) " >&6 +else + ac_check_lib_save_LIBS=$LIBS +LIBS="-ldl $LIBS" +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +/* Override any GCC internal prototype to avoid an error. + Use char because int might match the return type of a GCC + builtin and then its argument prototype would still apply. */ +#ifdef __cplusplus +extern "C" +#endif +char dlopen (); +int +main () +{ +return dlopen (); + ; + return 0; +} +_ACEOF +if ac_fn_c_try_link "$LINENO"; then : + ac_cv_lib_dl_dlopen=yes +else + ac_cv_lib_dl_dlopen=no +fi +rm -f core conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +LIBS=$ac_check_lib_save_LIBS +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dl_dlopen" >&5 +$as_echo "$ac_cv_lib_dl_dlopen" >&6; } +if test "x$ac_cv_lib_dl_dlopen" = xyes; then : + lt_cv_dlopen=dlopen lt_cv_dlopen_libs=-ldl +else + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -lsvld" >&5 +$as_echo_n "checking for dlopen in -lsvld... " >&6; } +if ${ac_cv_lib_svld_dlopen+:} false; then : + $as_echo_n "(cached) " >&6 +else + ac_check_lib_save_LIBS=$LIBS +LIBS="-lsvld $LIBS" +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +/* Override any GCC internal prototype to avoid an error. + Use char because int might match the return type of a GCC + builtin and then its argument prototype would still apply. */ +#ifdef __cplusplus +extern "C" +#endif +char dlopen (); +int +main () +{ +return dlopen (); + ; + return 0; +} +_ACEOF +if ac_fn_c_try_link "$LINENO"; then : + ac_cv_lib_svld_dlopen=yes +else + ac_cv_lib_svld_dlopen=no +fi +rm -f core conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +LIBS=$ac_check_lib_save_LIBS +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_svld_dlopen" >&5 +$as_echo "$ac_cv_lib_svld_dlopen" >&6; } +if test "x$ac_cv_lib_svld_dlopen" = xyes; then : + lt_cv_dlopen=dlopen lt_cv_dlopen_libs=-lsvld +else + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dld_link in -ldld" >&5 +$as_echo_n "checking for dld_link in -ldld... " >&6; } +if ${ac_cv_lib_dld_dld_link+:} false; then : + $as_echo_n "(cached) " >&6 +else + ac_check_lib_save_LIBS=$LIBS +LIBS="-ldld $LIBS" +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +/* Override any GCC internal prototype to avoid an error. + Use char because int might match the return type of a GCC + builtin and then its argument prototype would still apply. */ +#ifdef __cplusplus +extern "C" +#endif +char dld_link (); +int +main () +{ +return dld_link (); + ; + return 0; +} +_ACEOF +if ac_fn_c_try_link "$LINENO"; then : + ac_cv_lib_dld_dld_link=yes +else + ac_cv_lib_dld_dld_link=no +fi +rm -f core conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +LIBS=$ac_check_lib_save_LIBS +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dld_dld_link" >&5 +$as_echo "$ac_cv_lib_dld_dld_link" >&6; } +if test "x$ac_cv_lib_dld_dld_link" = xyes; then : + lt_cv_dlopen=dld_link lt_cv_dlopen_libs=-ldld +fi + + +fi + + +fi + + +fi + + +fi + + +fi + + ;; + esac + + if test no = "$lt_cv_dlopen"; then + enable_dlopen=no + else + enable_dlopen=yes + fi + + case $lt_cv_dlopen in + dlopen) + save_CPPFLAGS=$CPPFLAGS + test yes = "$ac_cv_header_dlfcn_h" && CPPFLAGS="$CPPFLAGS -DHAVE_DLFCN_H" + + save_LDFLAGS=$LDFLAGS + wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $export_dynamic_flag_spec\" + + save_LIBS=$LIBS + LIBS="$lt_cv_dlopen_libs $LIBS" + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether a program can dlopen itself" >&5 +$as_echo_n "checking whether a program can dlopen itself... " >&6; } +if ${lt_cv_dlopen_self+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test yes = "$cross_compiling"; then : + lt_cv_dlopen_self=cross +else + lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 + lt_status=$lt_dlunknown + cat > conftest.$ac_ext <<_LT_EOF +#line $LINENO "configure" +#include "confdefs.h" + +#if HAVE_DLFCN_H +#include +#endif + +#include + +#ifdef RTLD_GLOBAL +# define LT_DLGLOBAL RTLD_GLOBAL +#else +# ifdef DL_GLOBAL +# define LT_DLGLOBAL DL_GLOBAL +# else +# define LT_DLGLOBAL 0 +# endif +#endif + +/* We may have to define LT_DLLAZY_OR_NOW in the command line if we + find out it does not work in some platform. */ +#ifndef LT_DLLAZY_OR_NOW +# ifdef RTLD_LAZY +# define LT_DLLAZY_OR_NOW RTLD_LAZY +# else +# ifdef DL_LAZY +# define LT_DLLAZY_OR_NOW DL_LAZY +# else +# ifdef RTLD_NOW +# define LT_DLLAZY_OR_NOW RTLD_NOW +# else +# ifdef DL_NOW +# define LT_DLLAZY_OR_NOW DL_NOW +# else +# define LT_DLLAZY_OR_NOW 0 +# endif +# endif +# endif +# endif +#endif + +/* When -fvisibility=hidden is used, assume the code has been annotated + correspondingly for the symbols needed. */ +#if defined __GNUC__ && (((__GNUC__ == 3) && (__GNUC_MINOR__ >= 3)) || (__GNUC__ > 3)) +int fnord () __attribute__((visibility("default"))); +#endif + +int fnord () { return 42; } +int main () +{ + void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW); + int status = $lt_dlunknown; + + if (self) + { + if (dlsym (self,"fnord")) status = $lt_dlno_uscore; + else + { + if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore; + else puts (dlerror ()); + } + /* dlclose (self); */ + } + else + puts (dlerror ()); + + return status; +} +_LT_EOF + if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 + (eval $ac_link) 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } && test -s "conftest$ac_exeext" 2>/dev/null; then + (./conftest; exit; ) >&5 2>/dev/null + lt_status=$? + case x$lt_status in + x$lt_dlno_uscore) lt_cv_dlopen_self=yes ;; + x$lt_dlneed_uscore) lt_cv_dlopen_self=yes ;; + x$lt_dlunknown|x*) lt_cv_dlopen_self=no ;; + esac + else : + # compilation failed + lt_cv_dlopen_self=no + fi +fi +rm -fr conftest* + + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_dlopen_self" >&5 +$as_echo "$lt_cv_dlopen_self" >&6; } + + if test yes = "$lt_cv_dlopen_self"; then + wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $lt_prog_compiler_static\" + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether a statically linked program can dlopen itself" >&5 +$as_echo_n "checking whether a statically linked program can dlopen itself... " >&6; } +if ${lt_cv_dlopen_self_static+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test yes = "$cross_compiling"; then : + lt_cv_dlopen_self_static=cross +else + lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 + lt_status=$lt_dlunknown + cat > conftest.$ac_ext <<_LT_EOF +#line $LINENO "configure" +#include "confdefs.h" + +#if HAVE_DLFCN_H +#include +#endif + +#include + +#ifdef RTLD_GLOBAL +# define LT_DLGLOBAL RTLD_GLOBAL +#else +# ifdef DL_GLOBAL +# define LT_DLGLOBAL DL_GLOBAL +# else +# define LT_DLGLOBAL 0 +# endif +#endif + +/* We may have to define LT_DLLAZY_OR_NOW in the command line if we + find out it does not work in some platform. */ +#ifndef LT_DLLAZY_OR_NOW +# ifdef RTLD_LAZY +# define LT_DLLAZY_OR_NOW RTLD_LAZY +# else +# ifdef DL_LAZY +# define LT_DLLAZY_OR_NOW DL_LAZY +# else +# ifdef RTLD_NOW +# define LT_DLLAZY_OR_NOW RTLD_NOW +# else +# ifdef DL_NOW +# define LT_DLLAZY_OR_NOW DL_NOW +# else +# define LT_DLLAZY_OR_NOW 0 +# endif +# endif +# endif +# endif +#endif + +/* When -fvisibility=hidden is used, assume the code has been annotated + correspondingly for the symbols needed. */ +#if defined __GNUC__ && (((__GNUC__ == 3) && (__GNUC_MINOR__ >= 3)) || (__GNUC__ > 3)) +int fnord () __attribute__((visibility("default"))); +#endif + +int fnord () { return 42; } +int main () +{ + void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW); + int status = $lt_dlunknown; + + if (self) + { + if (dlsym (self,"fnord")) status = $lt_dlno_uscore; + else + { + if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore; + else puts (dlerror ()); + } + /* dlclose (self); */ + } + else + puts (dlerror ()); + + return status; +} +_LT_EOF + if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 + (eval $ac_link) 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } && test -s "conftest$ac_exeext" 2>/dev/null; then + (./conftest; exit; ) >&5 2>/dev/null + lt_status=$? + case x$lt_status in + x$lt_dlno_uscore) lt_cv_dlopen_self_static=yes ;; + x$lt_dlneed_uscore) lt_cv_dlopen_self_static=yes ;; + x$lt_dlunknown|x*) lt_cv_dlopen_self_static=no ;; + esac + else : + # compilation failed + lt_cv_dlopen_self_static=no + fi +fi +rm -fr conftest* + + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_dlopen_self_static" >&5 +$as_echo "$lt_cv_dlopen_self_static" >&6; } + fi + + CPPFLAGS=$save_CPPFLAGS + LDFLAGS=$save_LDFLAGS + LIBS=$save_LIBS + ;; + esac + + case $lt_cv_dlopen_self in + yes|no) enable_dlopen_self=$lt_cv_dlopen_self ;; + *) enable_dlopen_self=unknown ;; + esac + + case $lt_cv_dlopen_self_static in + yes|no) enable_dlopen_self_static=$lt_cv_dlopen_self_static ;; + *) enable_dlopen_self_static=unknown ;; + esac +fi + + + + + + + + + + + + + + + + + +striplib= +old_striplib= +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether stripping libraries is possible" >&5 +$as_echo_n "checking whether stripping libraries is possible... " >&6; } +if test -n "$STRIP" && $STRIP -V 2>&1 | $GREP "GNU strip" >/dev/null; then + test -z "$old_striplib" && old_striplib="$STRIP --strip-debug" + test -z "$striplib" && striplib="$STRIP --strip-unneeded" + { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +$as_echo "yes" >&6; } +else +# FIXME - insert some real tests, host_os isn't really good enough + case $host_os in + darwin*) + if test -n "$STRIP"; then + striplib="$STRIP -x" + old_striplib="$STRIP -S" + { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +$as_echo "yes" >&6; } + else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } + fi + ;; + *) + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } + ;; + esac +fi + + + + + + + + + + + + + # Report what library types will actually be built + { $as_echo "$as_me:${as_lineno-$LINENO}: checking if libtool supports shared libraries" >&5 +$as_echo_n "checking if libtool supports shared libraries... " >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $can_build_shared" >&5 +$as_echo "$can_build_shared" >&6; } + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build shared libraries" >&5 +$as_echo_n "checking whether to build shared libraries... " >&6; } + test no = "$can_build_shared" && enable_shared=no + + # On AIX, shared libraries and static libraries use the same namespace, and + # are all built from PIC. + case $host_os in + aix3*) + test yes = "$enable_shared" && enable_static=no + if test -n "$RANLIB"; then + archive_cmds="$archive_cmds~\$RANLIB \$lib" + postinstall_cmds='$RANLIB $lib' + fi + ;; + + aix[4-9]*) + if test ia64 != "$host_cpu"; then + case $enable_shared,$with_aix_soname,$aix_use_runtimelinking in + yes,aix,yes) ;; # shared object as lib.so file only + yes,svr4,*) ;; # shared object as lib.so archive member only + yes,*) enable_static=no ;; # shared object in lib.a archive as well + esac + fi + ;; + esac + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_shared" >&5 +$as_echo "$enable_shared" >&6; } + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build static libraries" >&5 +$as_echo_n "checking whether to build static libraries... " >&6; } + # Make sure either enable_shared or enable_static is yes. + test yes = "$enable_shared" || enable_static=yes + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_static" >&5 +$as_echo "$enable_static" >&6; } + + + + +fi +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + +CC=$lt_save_CC + + + + + + + + + + + + + + + + ac_config_commands="$ac_config_commands libtool" + + + + +# Only expand once: + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether small structs are returned in registers" >&5 +$as_echo_n "checking whether small structs are returned in registers... " >&6; } +if ${ffcall_cv_c_struct_return_small+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test "$cross_compiling" = yes; then : + case "$HOST_CPU_C_ABI" in + alpha) ffcall_cv_c_struct_return_small="guessing no" ;; + arm | armhf | arm64) ffcall_cv_c_struct_return_small="guessing yes" ;; + hppa | hppa64) ffcall_cv_c_struct_return_small="guessing yes" ;; + i386) + case "$host_os" in + cygwin* | darwin* | mingw*) ffcall_cv_c_struct_return_small="guessing yes" ;; + linux* | solaris*) ffcall_cv_c_struct_return_small="guessing no" ;; + *) ffcall_cv_c_struct_return_small="guessing no" ;; + esac + ;; + ia64) ffcall_cv_c_struct_return_small="guessing yes" ;; + mips | mipsn32) ffcall_cv_c_struct_return_small="guessing no" ;; + mips64) ffcall_cv_c_struct_return_small="guessing yes" ;; + powerpc | powerpc64) ffcall_cv_c_struct_return_small="guessing no" ;; + powerpc64-elfv2) ffcall_cv_c_struct_return_small="guessing yes" ;; + s390 | s390x) ffcall_cv_c_struct_return_small="guessing no" ;; + sparc) ffcall_cv_c_struct_return_small="guessing no" ;; + sparc64) ffcall_cv_c_struct_return_small="guessing yes" ;; + x86_64) ffcall_cv_c_struct_return_small="guessing yes" ;; + *) ffcall_cv_c_struct_return_small="guessing no" ;; + esac + +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#if defined __MACH__ && defined __APPLE__ +/* Avoid a crash on Mac OS X. */ +#include +#include +#include +#include +#include +#include +/* The exception port on which our thread listens. */ +static mach_port_t our_exception_port; +/* The main function of the thread listening for exceptions of type + EXC_BAD_ACCESS. */ +static void * +mach_exception_thread (void *arg) +{ + /* Buffer for a message to be received. */ + struct { + mach_msg_header_t head; + mach_msg_body_t msgh_body; + char data[1024]; + } msg; + mach_msg_return_t retval; + /* Wait for a message on the exception port. */ + retval = mach_msg (&msg.head, MACH_RCV_MSG | MACH_RCV_LARGE, 0, sizeof (msg), + our_exception_port, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); + if (retval != MACH_MSG_SUCCESS) + abort (); + exit (1); +} +static void +nocrash_init (void) +{ + mach_port_t self = mach_task_self (); + /* Allocate a port on which the thread shall listen for exceptions. */ + if (mach_port_allocate (self, MACH_PORT_RIGHT_RECEIVE, &our_exception_port) + == KERN_SUCCESS) { + /* See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/mach_port_insert_right.html. */ + if (mach_port_insert_right (self, our_exception_port, our_exception_port, + MACH_MSG_TYPE_MAKE_SEND) + == KERN_SUCCESS) { + /* The exceptions we want to catch. Only EXC_BAD_ACCESS is interesting + for us. */ + exception_mask_t mask = EXC_MASK_BAD_ACCESS; + /* Create the thread listening on the exception port. */ + pthread_attr_t attr; + pthread_t thread; + if (pthread_attr_init (&attr) == 0 + && pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED) == 0 + && pthread_create (&thread, &attr, mach_exception_thread, NULL) == 0) { + pthread_attr_destroy (&attr); + /* Replace the exception port info for these exceptions with our own. + Note that we replace the exception port for the entire task, not only + for a particular thread. This has the effect that when our exception + port gets the message, the thread specific exception port has already + been asked, and we don't need to bother about it. + See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/task_set_exception_ports.html. */ + task_set_exception_ports (self, mask, our_exception_port, + EXCEPTION_DEFAULT, MACHINE_THREAD_STATE); + } + } + } +} +#elif defined _WIN32 && ! defined __CYGWIN__ +/* Avoid a crash on native Windows. */ +#define WIN32_LEAN_AND_MEAN +#include +#include +static LONG WINAPI +exception_filter (EXCEPTION_POINTERS *ExceptionInfo) +{ + switch (ExceptionInfo->ExceptionRecord->ExceptionCode) + { + case EXCEPTION_ACCESS_VIOLATION: + case EXCEPTION_IN_PAGE_ERROR: + case EXCEPTION_STACK_OVERFLOW: + case EXCEPTION_GUARD_PAGE: + case EXCEPTION_PRIV_INSTRUCTION: + case EXCEPTION_ILLEGAL_INSTRUCTION: + case EXCEPTION_DATATYPE_MISALIGNMENT: + case EXCEPTION_ARRAY_BOUNDS_EXCEEDED: + case EXCEPTION_NONCONTINUABLE_EXCEPTION: + exit (1); + } + return EXCEPTION_CONTINUE_SEARCH; +} +static void +nocrash_init (void) +{ + SetUnhandledExceptionFilter ((LPTOP_LEVEL_EXCEPTION_FILTER) exception_filter); +} +#else +/* Avoid a crash on POSIX systems. */ +#include +#include +/* A POSIX signal handler. */ +static void +exception_handler (int sig) +{ + _exit (1); +} +static void +nocrash_init (void) +{ +#ifdef SIGSEGV + signal (SIGSEGV, exception_handler); +#endif +#ifdef SIGBUS + signal (SIGBUS, exception_handler); +#endif +} +#endif + + typedef struct { long x; } foo; + long y; + foo foofun () { foo f; f.x = y; return f; } + long (*fun) () = (long (*) ()) foofun; + int main() + { nocrash_init(); + y = 37; if ((*fun)() != 37) return 1; + y = 55; if ((*fun)() != 55) return 1; + return 0; + } + +_ACEOF +if ac_fn_c_try_run "$LINENO"; then : + ffcall_cv_c_struct_return_small=yes +else + ffcall_cv_c_struct_return_small=no +fi +rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ + conftest.$ac_objext conftest.beam conftest.$ac_ext +fi + + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ffcall_cv_c_struct_return_small" >&5 +$as_echo "$ffcall_cv_c_struct_return_small" >&6; } + case "$ffcall_cv_c_struct_return_small" in + *yes) +$as_echo "#define __SMALL_STRUCT_RETURN__ /**/" >>confdefs.h + ;; + *no) ;; + esac + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether floats are returned in integer registers" >&5 +$as_echo_n "checking whether floats are returned in integer registers... " >&6; } +if ${ffcall_cv_c_float_return_ireg+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test "$cross_compiling" = yes; then : + ffcall_cv_c_float_return_ireg="guessing no" + +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#if defined __MACH__ && defined __APPLE__ +/* Avoid a crash on Mac OS X. */ +#include +#include +#include +#include +#include +#include +/* The exception port on which our thread listens. */ +static mach_port_t our_exception_port; +/* The main function of the thread listening for exceptions of type + EXC_BAD_ACCESS. */ +static void * +mach_exception_thread (void *arg) +{ + /* Buffer for a message to be received. */ + struct { + mach_msg_header_t head; + mach_msg_body_t msgh_body; + char data[1024]; + } msg; + mach_msg_return_t retval; + /* Wait for a message on the exception port. */ + retval = mach_msg (&msg.head, MACH_RCV_MSG | MACH_RCV_LARGE, 0, sizeof (msg), + our_exception_port, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); + if (retval != MACH_MSG_SUCCESS) + abort (); + exit (1); +} +static void +nocrash_init (void) +{ + mach_port_t self = mach_task_self (); + /* Allocate a port on which the thread shall listen for exceptions. */ + if (mach_port_allocate (self, MACH_PORT_RIGHT_RECEIVE, &our_exception_port) + == KERN_SUCCESS) { + /* See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/mach_port_insert_right.html. */ + if (mach_port_insert_right (self, our_exception_port, our_exception_port, + MACH_MSG_TYPE_MAKE_SEND) + == KERN_SUCCESS) { + /* The exceptions we want to catch. Only EXC_BAD_ACCESS is interesting + for us. */ + exception_mask_t mask = EXC_MASK_BAD_ACCESS; + /* Create the thread listening on the exception port. */ + pthread_attr_t attr; + pthread_t thread; + if (pthread_attr_init (&attr) == 0 + && pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED) == 0 + && pthread_create (&thread, &attr, mach_exception_thread, NULL) == 0) { + pthread_attr_destroy (&attr); + /* Replace the exception port info for these exceptions with our own. + Note that we replace the exception port for the entire task, not only + for a particular thread. This has the effect that when our exception + port gets the message, the thread specific exception port has already + been asked, and we don't need to bother about it. + See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/task_set_exception_ports.html. */ + task_set_exception_ports (self, mask, our_exception_port, + EXCEPTION_DEFAULT, MACHINE_THREAD_STATE); + } + } + } +} +#elif defined _WIN32 && ! defined __CYGWIN__ +/* Avoid a crash on native Windows. */ +#define WIN32_LEAN_AND_MEAN +#include +#include +static LONG WINAPI +exception_filter (EXCEPTION_POINTERS *ExceptionInfo) +{ + switch (ExceptionInfo->ExceptionRecord->ExceptionCode) + { + case EXCEPTION_ACCESS_VIOLATION: + case EXCEPTION_IN_PAGE_ERROR: + case EXCEPTION_STACK_OVERFLOW: + case EXCEPTION_GUARD_PAGE: + case EXCEPTION_PRIV_INSTRUCTION: + case EXCEPTION_ILLEGAL_INSTRUCTION: + case EXCEPTION_DATATYPE_MISALIGNMENT: + case EXCEPTION_ARRAY_BOUNDS_EXCEEDED: + case EXCEPTION_NONCONTINUABLE_EXCEPTION: + exit (1); + } + return EXCEPTION_CONTINUE_SEARCH; +} +static void +nocrash_init (void) +{ + SetUnhandledExceptionFilter ((LPTOP_LEVEL_EXCEPTION_FILTER) exception_filter); +} +#else +/* Avoid a crash on POSIX systems. */ +#include +#include +/* A POSIX signal handler. */ +static void +exception_handler (int sig) +{ + _exit (1); +} +static void +nocrash_init (void) +{ +#ifdef SIGSEGV + signal (SIGSEGV, exception_handler); +#endif +#ifdef SIGBUS + signal (SIGBUS, exception_handler); +#endif +} +#endif + + float x = (float)1.2; + float y = (float)1.3; + float fun () { return x*y; } + int main() + { nocrash_init(); + {int val = (* (int (*) ()) fun) (); + return !(val == 0x3FC7AE15 || val == 0x15AEC73F); + }} + +_ACEOF +if ac_fn_c_try_run "$LINENO"; then : + ffcall_cv_c_float_return_ireg=yes +else + ffcall_cv_c_float_return_ireg=no +fi +rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ + conftest.$ac_objext conftest.beam conftest.$ac_ext +fi + + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ffcall_cv_c_float_return_ireg" >&5 +$as_echo "$ffcall_cv_c_float_return_ireg" >&6; } + case "$ffcall_cv_c_float_return_ireg" in + *yes) +$as_echo "#define __IREG_FLOAT_RETURN__ /**/" >>confdefs.h + ;; + *no) ;; + esac + + +for ac_header in unistd_h +do : + ac_fn_c_check_header_mongrel "$LINENO" "unistd_h" "ac_cv_header_unistd_h" "$ac_includes_default" +if test "x$ac_cv_header_unistd_h" = xyes; then : + cat >>confdefs.h <<_ACEOF +#define HAVE_UNISTD_H 1 +_ACEOF + +fi + +done + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for ANSI C header files" >&5 +$as_echo_n "checking for ANSI C header files... " >&6; } +if ${ac_cv_header_stdc+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +#include +#include +#include + +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_cv_header_stdc=yes +else + ac_cv_header_stdc=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + +if test $ac_cv_header_stdc = yes; then + # SunOS 4.x string.h does not declare mem*, contrary to ANSI. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include + +_ACEOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + $EGREP "memchr" >/dev/null 2>&1; then : + +else + ac_cv_header_stdc=no +fi +rm -f conftest* + +fi + +if test $ac_cv_header_stdc = yes; then + # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include + +_ACEOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + $EGREP "free" >/dev/null 2>&1; then : + +else + ac_cv_header_stdc=no +fi +rm -f conftest* + +fi + +if test $ac_cv_header_stdc = yes; then + # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. + if test "$cross_compiling" = yes; then : + : +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +#include +#if ((' ' & 0x0FF) == 0x020) +# define ISLOWER(c) ('a' <= (c) && (c) <= 'z') +# define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) +#else +# define ISLOWER(c) \ + (('a' <= (c) && (c) <= 'i') \ + || ('j' <= (c) && (c) <= 'r') \ + || ('s' <= (c) && (c) <= 'z')) +# define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c)) +#endif + +#define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) +int +main () +{ + int i; + for (i = 0; i < 256; i++) + if (XOR (islower (i), ISLOWER (i)) + || toupper (i) != TOUPPER (i)) + return 2; + return 0; +} +_ACEOF +if ac_fn_c_try_run "$LINENO"; then : + +else + ac_cv_header_stdc=no +fi +rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ + conftest.$ac_objext conftest.beam conftest.$ac_ext +fi + +fi +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stdc" >&5 +$as_echo "$ac_cv_header_stdc" >&6; } +if test $ac_cv_header_stdc = yes; then + +$as_echo "#define STDC_HEADERS 1" >>confdefs.h + +fi + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for getpagesize" >&5 +$as_echo_n "checking for getpagesize... " >&6; } +if ${cl_cv_func_getpagesize+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#ifdef HAVE_UNISTD_H + #include + #include + #endif + +int +main () +{ +getpagesize(); + ; + return 0; +} +_ACEOF +if ac_fn_c_try_link "$LINENO"; then : + cl_cv_func_getpagesize=yes +else + cl_cv_func_getpagesize=no +fi +rm -f core conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $cl_cv_func_getpagesize" >&5 +$as_echo "$cl_cv_func_getpagesize" >&6; } + if test $cl_cv_func_getpagesize = yes; then : + + +$as_echo "#define HAVE_GETPAGESIZE /**/" >>confdefs.h + + have_getpagesize=1 + +fi + + + if test -n "$have_getpagesize"; then + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for getpagesize declaration" >&5 +$as_echo_n "checking for getpagesize declaration... " >&6; } + if ${cl_cv_proto_getpagesize+:} false; then : + $as_echo_n "(cached) " >&6 +else + + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include + #ifdef HAVE_UNISTD_H + #include + #endif + +extern +#ifdef __cplusplus +"C" +#endif + +int getpagesize(); + +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + cl_cv_proto_getpagesize_ret="int" +else + cl_cv_proto_getpagesize_ret="size_t" +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + + cl_cv_proto_getpagesize="extern $cl_cv_proto_getpagesize_ret getpagesize (void);" +fi + + cl_cv_proto_getpagesize=`echo "$cl_cv_proto_getpagesize" | tr -s ' ' | sed -e 's/( /(/'` + { $as_echo "$as_me:${as_lineno-$LINENO}: result: ${ac_t:- + }$cl_cv_proto_getpagesize" >&5 +$as_echo "${ac_t:- + }$cl_cv_proto_getpagesize" >&6; } + + +cat >>confdefs.h <<_ACEOF +#define RETGETPAGESIZETYPE $cl_cv_proto_getpagesize_ret +_ACEOF + + else + for ac_header in sys/param.h +do : + ac_fn_c_check_header_mongrel "$LINENO" "sys/param.h" "ac_cv_header_sys_param_h" "$ac_includes_default" +if test "x$ac_cv_header_sys_param_h" = xyes; then : + cat >>confdefs.h <<_ACEOF +#define HAVE_SYS_PARAM_H 1 +_ACEOF + +fi + +done + + fi + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for vm_allocate" >&5 +$as_echo_n "checking for vm_allocate... " >&6; } +if ${cl_cv_func_vm+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main () +{ +vm_allocate(); task_self(); + ; + return 0; +} +_ACEOF +if ac_fn_c_try_link "$LINENO"; then : + cl_cv_func_vm=yes +else + cl_cv_func_vm=no +fi +rm -f core conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $cl_cv_func_vm" >&5 +$as_echo "$cl_cv_func_vm" >&6; } + if test $cl_cv_func_vm = yes; then : + +$as_echo "#define HAVE_MACH_VM /**/" >>confdefs.h + +fi + + + + + + ac_fn_c_check_header_mongrel "$LINENO" "sys/mman.h" "ac_cv_header_sys_mman_h" "$ac_includes_default" +if test "x$ac_cv_header_sys_mman_h" = xyes; then : + +else + no_mmap=1 +fi + + + if test -z "$no_mmap"; then + ac_fn_c_check_func "$LINENO" "mmap" "ac_cv_func_mmap" +if test "x$ac_cv_func_mmap" = xyes; then : + +else + no_mmap=1 +fi + + if test -z "$no_mmap"; then + +$as_echo "#define HAVE_MMAP /**/" >>confdefs.h + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for working mmap" >&5 +$as_echo_n "checking for working mmap... " >&6; } +if ${ffcall_cv_func_mmap_works+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test $cross_compiling = no; then + mmap_prog_1=' + #include + #ifdef HAVE_UNISTD_H + #include + #endif + #include + #include + #include + int main () + { + ' + mmap_prog_2=' + if (mmap(NULL,0x100000,PROT_READ|PROT_WRITE,flags,fd,0) == (void*)-1) + exit(1); + exit(0); + } + ' + if test "$cross_compiling" = yes; then : + : + +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#if defined __MACH__ && defined __APPLE__ +/* Avoid a crash on Mac OS X. */ +#include +#include +#include +#include +#include +#include +/* The exception port on which our thread listens. */ +static mach_port_t our_exception_port; +/* The main function of the thread listening for exceptions of type + EXC_BAD_ACCESS. */ +static void * +mach_exception_thread (void *arg) +{ + /* Buffer for a message to be received. */ + struct { + mach_msg_header_t head; + mach_msg_body_t msgh_body; + char data[1024]; + } msg; + mach_msg_return_t retval; + /* Wait for a message on the exception port. */ + retval = mach_msg (&msg.head, MACH_RCV_MSG | MACH_RCV_LARGE, 0, sizeof (msg), + our_exception_port, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); + if (retval != MACH_MSG_SUCCESS) + abort (); + exit (1); +} +static void +nocrash_init (void) +{ + mach_port_t self = mach_task_self (); + /* Allocate a port on which the thread shall listen for exceptions. */ + if (mach_port_allocate (self, MACH_PORT_RIGHT_RECEIVE, &our_exception_port) + == KERN_SUCCESS) { + /* See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/mach_port_insert_right.html. */ + if (mach_port_insert_right (self, our_exception_port, our_exception_port, + MACH_MSG_TYPE_MAKE_SEND) + == KERN_SUCCESS) { + /* The exceptions we want to catch. Only EXC_BAD_ACCESS is interesting + for us. */ + exception_mask_t mask = EXC_MASK_BAD_ACCESS; + /* Create the thread listening on the exception port. */ + pthread_attr_t attr; + pthread_t thread; + if (pthread_attr_init (&attr) == 0 + && pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED) == 0 + && pthread_create (&thread, &attr, mach_exception_thread, NULL) == 0) { + pthread_attr_destroy (&attr); + /* Replace the exception port info for these exceptions with our own. + Note that we replace the exception port for the entire task, not only + for a particular thread. This has the effect that when our exception + port gets the message, the thread specific exception port has already + been asked, and we don't need to bother about it. + See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/task_set_exception_ports.html. */ + task_set_exception_ports (self, mask, our_exception_port, + EXCEPTION_DEFAULT, MACHINE_THREAD_STATE); + } + } + } +} +#elif defined _WIN32 && ! defined __CYGWIN__ +/* Avoid a crash on native Windows. */ +#define WIN32_LEAN_AND_MEAN +#include +#include +static LONG WINAPI +exception_filter (EXCEPTION_POINTERS *ExceptionInfo) +{ + switch (ExceptionInfo->ExceptionRecord->ExceptionCode) + { + case EXCEPTION_ACCESS_VIOLATION: + case EXCEPTION_IN_PAGE_ERROR: + case EXCEPTION_STACK_OVERFLOW: + case EXCEPTION_GUARD_PAGE: + case EXCEPTION_PRIV_INSTRUCTION: + case EXCEPTION_ILLEGAL_INSTRUCTION: + case EXCEPTION_DATATYPE_MISALIGNMENT: + case EXCEPTION_ARRAY_BOUNDS_EXCEEDED: + case EXCEPTION_NONCONTINUABLE_EXCEPTION: + exit (1); + } + return EXCEPTION_CONTINUE_SEARCH; +} +static void +nocrash_init (void) +{ + SetUnhandledExceptionFilter ((LPTOP_LEVEL_EXCEPTION_FILTER) exception_filter); +} +#else +/* Avoid a crash on POSIX systems. */ +#include +#include +/* A POSIX signal handler. */ +static void +exception_handler (int sig) +{ + _exit (1); +} +static void +nocrash_init (void) +{ +#ifdef SIGSEGV + signal (SIGSEGV, exception_handler); +#endif +#ifdef SIGBUS + signal (SIGBUS, exception_handler); +#endif +} +#endif + + $mmap_prog_1 + int flags = MAP_ANON | MAP_PRIVATE; + int fd = -1; + nocrash_init(); + $mmap_prog_2 + +_ACEOF +if ac_fn_c_try_run "$LINENO"; then : + have_mmap_anon=1 + ffcall_cv_func_mmap_anon=yes +fi +rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ + conftest.$ac_objext conftest.beam conftest.$ac_ext +fi + + if test "$cross_compiling" = yes; then : + : + +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#if defined __MACH__ && defined __APPLE__ +/* Avoid a crash on Mac OS X. */ +#include +#include +#include +#include +#include +#include +/* The exception port on which our thread listens. */ +static mach_port_t our_exception_port; +/* The main function of the thread listening for exceptions of type + EXC_BAD_ACCESS. */ +static void * +mach_exception_thread (void *arg) +{ + /* Buffer for a message to be received. */ + struct { + mach_msg_header_t head; + mach_msg_body_t msgh_body; + char data[1024]; + } msg; + mach_msg_return_t retval; + /* Wait for a message on the exception port. */ + retval = mach_msg (&msg.head, MACH_RCV_MSG | MACH_RCV_LARGE, 0, sizeof (msg), + our_exception_port, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); + if (retval != MACH_MSG_SUCCESS) + abort (); + exit (1); +} +static void +nocrash_init (void) +{ + mach_port_t self = mach_task_self (); + /* Allocate a port on which the thread shall listen for exceptions. */ + if (mach_port_allocate (self, MACH_PORT_RIGHT_RECEIVE, &our_exception_port) + == KERN_SUCCESS) { + /* See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/mach_port_insert_right.html. */ + if (mach_port_insert_right (self, our_exception_port, our_exception_port, + MACH_MSG_TYPE_MAKE_SEND) + == KERN_SUCCESS) { + /* The exceptions we want to catch. Only EXC_BAD_ACCESS is interesting + for us. */ + exception_mask_t mask = EXC_MASK_BAD_ACCESS; + /* Create the thread listening on the exception port. */ + pthread_attr_t attr; + pthread_t thread; + if (pthread_attr_init (&attr) == 0 + && pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED) == 0 + && pthread_create (&thread, &attr, mach_exception_thread, NULL) == 0) { + pthread_attr_destroy (&attr); + /* Replace the exception port info for these exceptions with our own. + Note that we replace the exception port for the entire task, not only + for a particular thread. This has the effect that when our exception + port gets the message, the thread specific exception port has already + been asked, and we don't need to bother about it. + See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/task_set_exception_ports.html. */ + task_set_exception_ports (self, mask, our_exception_port, + EXCEPTION_DEFAULT, MACHINE_THREAD_STATE); + } + } + } +} +#elif defined _WIN32 && ! defined __CYGWIN__ +/* Avoid a crash on native Windows. */ +#define WIN32_LEAN_AND_MEAN +#include +#include +static LONG WINAPI +exception_filter (EXCEPTION_POINTERS *ExceptionInfo) +{ + switch (ExceptionInfo->ExceptionRecord->ExceptionCode) + { + case EXCEPTION_ACCESS_VIOLATION: + case EXCEPTION_IN_PAGE_ERROR: + case EXCEPTION_STACK_OVERFLOW: + case EXCEPTION_GUARD_PAGE: + case EXCEPTION_PRIV_INSTRUCTION: + case EXCEPTION_ILLEGAL_INSTRUCTION: + case EXCEPTION_DATATYPE_MISALIGNMENT: + case EXCEPTION_ARRAY_BOUNDS_EXCEEDED: + case EXCEPTION_NONCONTINUABLE_EXCEPTION: + exit (1); + } + return EXCEPTION_CONTINUE_SEARCH; +} +static void +nocrash_init (void) +{ + SetUnhandledExceptionFilter ((LPTOP_LEVEL_EXCEPTION_FILTER) exception_filter); +} +#else +/* Avoid a crash on POSIX systems. */ +#include +#include +/* A POSIX signal handler. */ +static void +exception_handler (int sig) +{ + _exit (1); +} +static void +nocrash_init (void) +{ +#ifdef SIGSEGV + signal (SIGSEGV, exception_handler); +#endif +#ifdef SIGBUS + signal (SIGBUS, exception_handler); +#endif +} +#endif + + $mmap_prog_1 + int flags = MAP_ANONYMOUS | MAP_PRIVATE; + int fd = -1; + nocrash_init(); + $mmap_prog_2 + +_ACEOF +if ac_fn_c_try_run "$LINENO"; then : + have_mmap_anon=1 + ffcall_cv_func_mmap_anonymous=yes +fi +rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ + conftest.$ac_objext conftest.beam conftest.$ac_ext +fi + + if test "$cross_compiling" = yes; then : + : + +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#if defined __MACH__ && defined __APPLE__ +/* Avoid a crash on Mac OS X. */ +#include +#include +#include +#include +#include +#include +/* The exception port on which our thread listens. */ +static mach_port_t our_exception_port; +/* The main function of the thread listening for exceptions of type + EXC_BAD_ACCESS. */ +static void * +mach_exception_thread (void *arg) +{ + /* Buffer for a message to be received. */ + struct { + mach_msg_header_t head; + mach_msg_body_t msgh_body; + char data[1024]; + } msg; + mach_msg_return_t retval; + /* Wait for a message on the exception port. */ + retval = mach_msg (&msg.head, MACH_RCV_MSG | MACH_RCV_LARGE, 0, sizeof (msg), + our_exception_port, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); + if (retval != MACH_MSG_SUCCESS) + abort (); + exit (1); +} +static void +nocrash_init (void) +{ + mach_port_t self = mach_task_self (); + /* Allocate a port on which the thread shall listen for exceptions. */ + if (mach_port_allocate (self, MACH_PORT_RIGHT_RECEIVE, &our_exception_port) + == KERN_SUCCESS) { + /* See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/mach_port_insert_right.html. */ + if (mach_port_insert_right (self, our_exception_port, our_exception_port, + MACH_MSG_TYPE_MAKE_SEND) + == KERN_SUCCESS) { + /* The exceptions we want to catch. Only EXC_BAD_ACCESS is interesting + for us. */ + exception_mask_t mask = EXC_MASK_BAD_ACCESS; + /* Create the thread listening on the exception port. */ + pthread_attr_t attr; + pthread_t thread; + if (pthread_attr_init (&attr) == 0 + && pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED) == 0 + && pthread_create (&thread, &attr, mach_exception_thread, NULL) == 0) { + pthread_attr_destroy (&attr); + /* Replace the exception port info for these exceptions with our own. + Note that we replace the exception port for the entire task, not only + for a particular thread. This has the effect that when our exception + port gets the message, the thread specific exception port has already + been asked, and we don't need to bother about it. + See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/task_set_exception_ports.html. */ + task_set_exception_ports (self, mask, our_exception_port, + EXCEPTION_DEFAULT, MACHINE_THREAD_STATE); + } + } + } +} +#elif defined _WIN32 && ! defined __CYGWIN__ +/* Avoid a crash on native Windows. */ +#define WIN32_LEAN_AND_MEAN +#include +#include +static LONG WINAPI +exception_filter (EXCEPTION_POINTERS *ExceptionInfo) +{ + switch (ExceptionInfo->ExceptionRecord->ExceptionCode) + { + case EXCEPTION_ACCESS_VIOLATION: + case EXCEPTION_IN_PAGE_ERROR: + case EXCEPTION_STACK_OVERFLOW: + case EXCEPTION_GUARD_PAGE: + case EXCEPTION_PRIV_INSTRUCTION: + case EXCEPTION_ILLEGAL_INSTRUCTION: + case EXCEPTION_DATATYPE_MISALIGNMENT: + case EXCEPTION_ARRAY_BOUNDS_EXCEEDED: + case EXCEPTION_NONCONTINUABLE_EXCEPTION: + exit (1); + } + return EXCEPTION_CONTINUE_SEARCH; +} +static void +nocrash_init (void) +{ + SetUnhandledExceptionFilter ((LPTOP_LEVEL_EXCEPTION_FILTER) exception_filter); +} +#else +/* Avoid a crash on POSIX systems. */ +#include +#include +/* A POSIX signal handler. */ +static void +exception_handler (int sig) +{ + _exit (1); +} +static void +nocrash_init (void) +{ +#ifdef SIGSEGV + signal (SIGSEGV, exception_handler); +#endif +#ifdef SIGBUS + signal (SIGBUS, exception_handler); +#endif +} +#endif + + $mmap_prog_1 + #ifndef MAP_FILE + #define MAP_FILE 0 + #endif + int flags = MAP_FILE | MAP_PRIVATE; + int fd = open("/dev/zero",O_RDONLY,0666); + if (fd<0) + exit(1); + nocrash_init(); + $mmap_prog_2 + +_ACEOF +if ac_fn_c_try_run "$LINENO"; then : + have_mmap_devzero=1 + ffcall_cv_func_mmap_devzero=yes +fi +rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ + conftest.$ac_objext conftest.beam conftest.$ac_ext +fi + + if test -n "$have_mmap_anon" -o -n "$have_mmap_devzero"; then + ffcall_cv_func_mmap_works=yes + else + ffcall_cv_func_mmap_works=no + fi + else + case "$host_os" in + aix* | cygwin* | darwin* | hpux* | irix* | linux* | solaris*) + ffcall_cv_func_mmap_works="guessing yes" ;; + *) + ffcall_cv_func_mmap_works="guessing no" ;; + esac + case "$host_os" in + aix* | cygwin* | darwin* | linux* | solaris*) + ffcall_cv_func_mmap_anon="guessing yes" ;; + *) + ffcall_cv_func_mmap_anon="guessing no" ;; + esac + case "$host_os" in + aix* | cygwin* | hpux* | linux* | solaris*) + ffcall_cv_func_mmap_anonymous="guessing yes" ;; + *) + ffcall_cv_func_mmap_anonymous="guessing no" ;; + esac + case "$host_os" in + aix* | cygwin* | hpux* | irix* | linux* | solaris*) + ffcall_cv_func_mmap_devzero="guessing yes" ;; + *) + ffcall_cv_func_mmap_devzero="guessing no" ;; + esac + fi + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ffcall_cv_func_mmap_works" >&5 +$as_echo "$ffcall_cv_func_mmap_works" >&6; } + case "$ffcall_cv_func_mmap_anon" in + *yes) + +$as_echo "#define HAVE_MMAP_ANON /**/" >>confdefs.h + + ;; + esac + case "$ffcall_cv_func_mmap_anonymous" in + *yes) + +$as_echo "#define HAVE_MMAP_ANONYMOUS /**/" >>confdefs.h + + ;; + esac + case "$ffcall_cv_func_mmap_devzero" in + *yes) + +$as_echo "#define HAVE_MMAP_DEVZERO /**/" >>confdefs.h + + ;; + esac + fi + fi + + + + + + for ac_func in mprotect +do : + ac_fn_c_check_func "$LINENO" "mprotect" "ac_cv_func_mprotect" +if test "x$ac_cv_func_mprotect" = xyes; then : + cat >>confdefs.h <<_ACEOF +#define HAVE_MPROTECT 1 +_ACEOF + +fi +done + + if test $ac_cv_func_mprotect = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for working mprotect" >&5 +$as_echo_n "checking for working mprotect... " >&6; } +if ${cl_cv_func_mprotect_works+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test $cross_compiling = no; then + mprotect_prog=' + #include + /* declare malloc() */ + #include + #ifdef HAVE_UNISTD_H + #include + #endif + /* declare getpagesize() and mprotect() */ + #include + #ifndef HAVE_GETPAGESIZE + #include + #define getpagesize() PAGESIZE + #else + extern +#ifdef __cplusplus +"C" +#endif + + RETGETPAGESIZETYPE getpagesize (void); + #endif + char foo; + int main () + { + unsigned long pagesize = getpagesize(); + #define page_align(address) (char*)((unsigned long)(address) & -pagesize) + ' + if test "$cross_compiling" = yes; then : + no_mprotect=1 + +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$mprotect_prog + if ((pagesize-1) & pagesize) exit(1); + exit(0); + } + +_ACEOF +if ac_fn_c_try_run "$LINENO"; then : + +else + no_mprotect=1 +fi +rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ + conftest.$ac_objext conftest.beam conftest.$ac_ext +fi + + mprotect_prog="$mprotect_prog"' + char* area = (char*) malloc(6*pagesize); + char* fault_address = area + pagesize*7/2; + ' + if test -z "$no_mprotect"; then + if test "$cross_compiling" = yes; then : + : + +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#if defined __MACH__ && defined __APPLE__ +/* Avoid a crash on Mac OS X. */ +#include +#include +#include +#include +#include +#include +/* The exception port on which our thread listens. */ +static mach_port_t our_exception_port; +/* The main function of the thread listening for exceptions of type + EXC_BAD_ACCESS. */ +static void * +mach_exception_thread (void *arg) +{ + /* Buffer for a message to be received. */ + struct { + mach_msg_header_t head; + mach_msg_body_t msgh_body; + char data[1024]; + } msg; + mach_msg_return_t retval; + /* Wait for a message on the exception port. */ + retval = mach_msg (&msg.head, MACH_RCV_MSG | MACH_RCV_LARGE, 0, sizeof (msg), + our_exception_port, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); + if (retval != MACH_MSG_SUCCESS) + abort (); + exit (1); +} +static void +nocrash_init (void) +{ + mach_port_t self = mach_task_self (); + /* Allocate a port on which the thread shall listen for exceptions. */ + if (mach_port_allocate (self, MACH_PORT_RIGHT_RECEIVE, &our_exception_port) + == KERN_SUCCESS) { + /* See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/mach_port_insert_right.html. */ + if (mach_port_insert_right (self, our_exception_port, our_exception_port, + MACH_MSG_TYPE_MAKE_SEND) + == KERN_SUCCESS) { + /* The exceptions we want to catch. Only EXC_BAD_ACCESS is interesting + for us. */ + exception_mask_t mask = EXC_MASK_BAD_ACCESS; + /* Create the thread listening on the exception port. */ + pthread_attr_t attr; + pthread_t thread; + if (pthread_attr_init (&attr) == 0 + && pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED) == 0 + && pthread_create (&thread, &attr, mach_exception_thread, NULL) == 0) { + pthread_attr_destroy (&attr); + /* Replace the exception port info for these exceptions with our own. + Note that we replace the exception port for the entire task, not only + for a particular thread. This has the effect that when our exception + port gets the message, the thread specific exception port has already + been asked, and we don't need to bother about it. + See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/task_set_exception_ports.html. */ + task_set_exception_ports (self, mask, our_exception_port, + EXCEPTION_DEFAULT, MACHINE_THREAD_STATE); + } + } + } +} +#elif defined _WIN32 && ! defined __CYGWIN__ +/* Avoid a crash on native Windows. */ +#define WIN32_LEAN_AND_MEAN +#include +#include +static LONG WINAPI +exception_filter (EXCEPTION_POINTERS *ExceptionInfo) +{ + switch (ExceptionInfo->ExceptionRecord->ExceptionCode) + { + case EXCEPTION_ACCESS_VIOLATION: + case EXCEPTION_IN_PAGE_ERROR: + case EXCEPTION_STACK_OVERFLOW: + case EXCEPTION_GUARD_PAGE: + case EXCEPTION_PRIV_INSTRUCTION: + case EXCEPTION_ILLEGAL_INSTRUCTION: + case EXCEPTION_DATATYPE_MISALIGNMENT: + case EXCEPTION_ARRAY_BOUNDS_EXCEEDED: + case EXCEPTION_NONCONTINUABLE_EXCEPTION: + exit (1); + } + return EXCEPTION_CONTINUE_SEARCH; +} +static void +nocrash_init (void) +{ + SetUnhandledExceptionFilter ((LPTOP_LEVEL_EXCEPTION_FILTER) exception_filter); +} +#else +/* Avoid a crash on POSIX systems. */ +#include +#include +/* A POSIX signal handler. */ +static void +exception_handler (int sig) +{ + _exit (1); +} +static void +nocrash_init (void) +{ +#ifdef SIGSEGV + signal (SIGSEGV, exception_handler); +#endif +#ifdef SIGBUS + signal (SIGBUS, exception_handler); +#endif +} +#endif + + $mprotect_prog + nocrash_init(); + if (mprotect(page_align(fault_address),pagesize,PROT_NONE) < 0) + exit(0); + foo = *fault_address; /* this should cause an exception or signal */ + exit(0); + } + +_ACEOF +if ac_fn_c_try_run "$LINENO"; then : + no_mprotect=1 +fi +rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ + conftest.$ac_objext conftest.beam conftest.$ac_ext +fi + + fi + if test -z "$no_mprotect"; then + if test "$cross_compiling" = yes; then : + : + +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#if defined __MACH__ && defined __APPLE__ +/* Avoid a crash on Mac OS X. */ +#include +#include +#include +#include +#include +#include +/* The exception port on which our thread listens. */ +static mach_port_t our_exception_port; +/* The main function of the thread listening for exceptions of type + EXC_BAD_ACCESS. */ +static void * +mach_exception_thread (void *arg) +{ + /* Buffer for a message to be received. */ + struct { + mach_msg_header_t head; + mach_msg_body_t msgh_body; + char data[1024]; + } msg; + mach_msg_return_t retval; + /* Wait for a message on the exception port. */ + retval = mach_msg (&msg.head, MACH_RCV_MSG | MACH_RCV_LARGE, 0, sizeof (msg), + our_exception_port, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); + if (retval != MACH_MSG_SUCCESS) + abort (); + exit (1); +} +static void +nocrash_init (void) +{ + mach_port_t self = mach_task_self (); + /* Allocate a port on which the thread shall listen for exceptions. */ + if (mach_port_allocate (self, MACH_PORT_RIGHT_RECEIVE, &our_exception_port) + == KERN_SUCCESS) { + /* See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/mach_port_insert_right.html. */ + if (mach_port_insert_right (self, our_exception_port, our_exception_port, + MACH_MSG_TYPE_MAKE_SEND) + == KERN_SUCCESS) { + /* The exceptions we want to catch. Only EXC_BAD_ACCESS is interesting + for us. */ + exception_mask_t mask = EXC_MASK_BAD_ACCESS; + /* Create the thread listening on the exception port. */ + pthread_attr_t attr; + pthread_t thread; + if (pthread_attr_init (&attr) == 0 + && pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED) == 0 + && pthread_create (&thread, &attr, mach_exception_thread, NULL) == 0) { + pthread_attr_destroy (&attr); + /* Replace the exception port info for these exceptions with our own. + Note that we replace the exception port for the entire task, not only + for a particular thread. This has the effect that when our exception + port gets the message, the thread specific exception port has already + been asked, and we don't need to bother about it. + See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/task_set_exception_ports.html. */ + task_set_exception_ports (self, mask, our_exception_port, + EXCEPTION_DEFAULT, MACHINE_THREAD_STATE); + } + } + } +} +#elif defined _WIN32 && ! defined __CYGWIN__ +/* Avoid a crash on native Windows. */ +#define WIN32_LEAN_AND_MEAN +#include +#include +static LONG WINAPI +exception_filter (EXCEPTION_POINTERS *ExceptionInfo) +{ + switch (ExceptionInfo->ExceptionRecord->ExceptionCode) + { + case EXCEPTION_ACCESS_VIOLATION: + case EXCEPTION_IN_PAGE_ERROR: + case EXCEPTION_STACK_OVERFLOW: + case EXCEPTION_GUARD_PAGE: + case EXCEPTION_PRIV_INSTRUCTION: + case EXCEPTION_ILLEGAL_INSTRUCTION: + case EXCEPTION_DATATYPE_MISALIGNMENT: + case EXCEPTION_ARRAY_BOUNDS_EXCEEDED: + case EXCEPTION_NONCONTINUABLE_EXCEPTION: + exit (1); + } + return EXCEPTION_CONTINUE_SEARCH; +} +static void +nocrash_init (void) +{ + SetUnhandledExceptionFilter ((LPTOP_LEVEL_EXCEPTION_FILTER) exception_filter); +} +#else +/* Avoid a crash on POSIX systems. */ +#include +#include +/* A POSIX signal handler. */ +static void +exception_handler (int sig) +{ + _exit (1); +} +static void +nocrash_init (void) +{ +#ifdef SIGSEGV + signal (SIGSEGV, exception_handler); +#endif +#ifdef SIGBUS + signal (SIGBUS, exception_handler); +#endif +} +#endif + + $mprotect_prog + nocrash_init(); + if (mprotect(page_align(fault_address),pagesize,PROT_NONE) < 0) + exit(0); + *fault_address = 'z'; /* this should cause an exception or signal */ + exit(0); + } + +_ACEOF +if ac_fn_c_try_run "$LINENO"; then : + no_mprotect=1 +fi +rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ + conftest.$ac_objext conftest.beam conftest.$ac_ext +fi + + fi + if test -z "$no_mprotect"; then + if test "$cross_compiling" = yes; then : + : + +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#if defined __MACH__ && defined __APPLE__ +/* Avoid a crash on Mac OS X. */ +#include +#include +#include +#include +#include +#include +/* The exception port on which our thread listens. */ +static mach_port_t our_exception_port; +/* The main function of the thread listening for exceptions of type + EXC_BAD_ACCESS. */ +static void * +mach_exception_thread (void *arg) +{ + /* Buffer for a message to be received. */ + struct { + mach_msg_header_t head; + mach_msg_body_t msgh_body; + char data[1024]; + } msg; + mach_msg_return_t retval; + /* Wait for a message on the exception port. */ + retval = mach_msg (&msg.head, MACH_RCV_MSG | MACH_RCV_LARGE, 0, sizeof (msg), + our_exception_port, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); + if (retval != MACH_MSG_SUCCESS) + abort (); + exit (1); +} +static void +nocrash_init (void) +{ + mach_port_t self = mach_task_self (); + /* Allocate a port on which the thread shall listen for exceptions. */ + if (mach_port_allocate (self, MACH_PORT_RIGHT_RECEIVE, &our_exception_port) + == KERN_SUCCESS) { + /* See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/mach_port_insert_right.html. */ + if (mach_port_insert_right (self, our_exception_port, our_exception_port, + MACH_MSG_TYPE_MAKE_SEND) + == KERN_SUCCESS) { + /* The exceptions we want to catch. Only EXC_BAD_ACCESS is interesting + for us. */ + exception_mask_t mask = EXC_MASK_BAD_ACCESS; + /* Create the thread listening on the exception port. */ + pthread_attr_t attr; + pthread_t thread; + if (pthread_attr_init (&attr) == 0 + && pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED) == 0 + && pthread_create (&thread, &attr, mach_exception_thread, NULL) == 0) { + pthread_attr_destroy (&attr); + /* Replace the exception port info for these exceptions with our own. + Note that we replace the exception port for the entire task, not only + for a particular thread. This has the effect that when our exception + port gets the message, the thread specific exception port has already + been asked, and we don't need to bother about it. + See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/task_set_exception_ports.html. */ + task_set_exception_ports (self, mask, our_exception_port, + EXCEPTION_DEFAULT, MACHINE_THREAD_STATE); + } + } + } +} +#elif defined _WIN32 && ! defined __CYGWIN__ +/* Avoid a crash on native Windows. */ +#define WIN32_LEAN_AND_MEAN +#include +#include +static LONG WINAPI +exception_filter (EXCEPTION_POINTERS *ExceptionInfo) +{ + switch (ExceptionInfo->ExceptionRecord->ExceptionCode) + { + case EXCEPTION_ACCESS_VIOLATION: + case EXCEPTION_IN_PAGE_ERROR: + case EXCEPTION_STACK_OVERFLOW: + case EXCEPTION_GUARD_PAGE: + case EXCEPTION_PRIV_INSTRUCTION: + case EXCEPTION_ILLEGAL_INSTRUCTION: + case EXCEPTION_DATATYPE_MISALIGNMENT: + case EXCEPTION_ARRAY_BOUNDS_EXCEEDED: + case EXCEPTION_NONCONTINUABLE_EXCEPTION: + exit (1); + } + return EXCEPTION_CONTINUE_SEARCH; +} +static void +nocrash_init (void) +{ + SetUnhandledExceptionFilter ((LPTOP_LEVEL_EXCEPTION_FILTER) exception_filter); +} +#else +/* Avoid a crash on POSIX systems. */ +#include +#include +/* A POSIX signal handler. */ +static void +exception_handler (int sig) +{ + _exit (1); +} +static void +nocrash_init (void) +{ +#ifdef SIGSEGV + signal (SIGSEGV, exception_handler); +#endif +#ifdef SIGBUS + signal (SIGBUS, exception_handler); +#endif +} +#endif + + $mprotect_prog + nocrash_init(); + if (mprotect(page_align(fault_address),pagesize,PROT_READ) < 0) + exit(0); + *fault_address = 'z'; /* this should cause an exception or signal */ + exit(0); + } + +_ACEOF +if ac_fn_c_try_run "$LINENO"; then : + no_mprotect=1 +fi +rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ + conftest.$ac_objext conftest.beam conftest.$ac_ext +fi + + fi + if test -z "$no_mprotect"; then + if test "$cross_compiling" = yes; then : + : + +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#if defined __MACH__ && defined __APPLE__ +/* Avoid a crash on Mac OS X. */ +#include +#include +#include +#include +#include +#include +/* The exception port on which our thread listens. */ +static mach_port_t our_exception_port; +/* The main function of the thread listening for exceptions of type + EXC_BAD_ACCESS. */ +static void * +mach_exception_thread (void *arg) +{ + /* Buffer for a message to be received. */ + struct { + mach_msg_header_t head; + mach_msg_body_t msgh_body; + char data[1024]; + } msg; + mach_msg_return_t retval; + /* Wait for a message on the exception port. */ + retval = mach_msg (&msg.head, MACH_RCV_MSG | MACH_RCV_LARGE, 0, sizeof (msg), + our_exception_port, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); + if (retval != MACH_MSG_SUCCESS) + abort (); + exit (1); +} +static void +nocrash_init (void) +{ + mach_port_t self = mach_task_self (); + /* Allocate a port on which the thread shall listen for exceptions. */ + if (mach_port_allocate (self, MACH_PORT_RIGHT_RECEIVE, &our_exception_port) + == KERN_SUCCESS) { + /* See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/mach_port_insert_right.html. */ + if (mach_port_insert_right (self, our_exception_port, our_exception_port, + MACH_MSG_TYPE_MAKE_SEND) + == KERN_SUCCESS) { + /* The exceptions we want to catch. Only EXC_BAD_ACCESS is interesting + for us. */ + exception_mask_t mask = EXC_MASK_BAD_ACCESS; + /* Create the thread listening on the exception port. */ + pthread_attr_t attr; + pthread_t thread; + if (pthread_attr_init (&attr) == 0 + && pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED) == 0 + && pthread_create (&thread, &attr, mach_exception_thread, NULL) == 0) { + pthread_attr_destroy (&attr); + /* Replace the exception port info for these exceptions with our own. + Note that we replace the exception port for the entire task, not only + for a particular thread. This has the effect that when our exception + port gets the message, the thread specific exception port has already + been asked, and we don't need to bother about it. + See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/task_set_exception_ports.html. */ + task_set_exception_ports (self, mask, our_exception_port, + EXCEPTION_DEFAULT, MACHINE_THREAD_STATE); + } + } + } +} +#elif defined _WIN32 && ! defined __CYGWIN__ +/* Avoid a crash on native Windows. */ +#define WIN32_LEAN_AND_MEAN +#include +#include +static LONG WINAPI +exception_filter (EXCEPTION_POINTERS *ExceptionInfo) +{ + switch (ExceptionInfo->ExceptionRecord->ExceptionCode) + { + case EXCEPTION_ACCESS_VIOLATION: + case EXCEPTION_IN_PAGE_ERROR: + case EXCEPTION_STACK_OVERFLOW: + case EXCEPTION_GUARD_PAGE: + case EXCEPTION_PRIV_INSTRUCTION: + case EXCEPTION_ILLEGAL_INSTRUCTION: + case EXCEPTION_DATATYPE_MISALIGNMENT: + case EXCEPTION_ARRAY_BOUNDS_EXCEEDED: + case EXCEPTION_NONCONTINUABLE_EXCEPTION: + exit (1); + } + return EXCEPTION_CONTINUE_SEARCH; +} +static void +nocrash_init (void) +{ + SetUnhandledExceptionFilter ((LPTOP_LEVEL_EXCEPTION_FILTER) exception_filter); +} +#else +/* Avoid a crash on POSIX systems. */ +#include +#include +/* A POSIX signal handler. */ +static void +exception_handler (int sig) +{ + _exit (1); +} +static void +nocrash_init (void) +{ +#ifdef SIGSEGV + signal (SIGSEGV, exception_handler); +#endif +#ifdef SIGBUS + signal (SIGBUS, exception_handler); +#endif +} +#endif + + $mprotect_prog + nocrash_init(); + if (mprotect(page_align(fault_address),pagesize,PROT_READ) < 0) + exit(1); + if (mprotect(page_align(fault_address),pagesize,PROT_READ|PROT_WRITE) < 0) + exit(1); + *fault_address = 'z'; /* this should not cause an exception or signal */ + exit(0); + } + +_ACEOF +if ac_fn_c_try_run "$LINENO"; then : + +else + no_mprotect=1 +fi +rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ + conftest.$ac_objext conftest.beam conftest.$ac_ext +fi + + fi + if test -z "$no_mprotect"; then + cl_cv_func_mprotect_works=yes + else + cl_cv_func_mprotect_works=no + fi + else + case "$host_os" in + aix* | cygwin* | darwin* | hpux* | irix* | linux* | solaris*) + cl_cv_func_mprotect_works="guessing yes" ;; + mingw*) + cl_cv_func_mprotect_works="guessing no" ;; + *) + cl_cv_func_mprotect_works="guessing no" ;; + esac + fi + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $cl_cv_func_mprotect_works" >&5 +$as_echo "$cl_cv_func_mprotect_works" >&6; } + case "$cl_cv_func_mprotect_works" in + *yes) + +$as_echo "#define HAVE_WORKING_MPROTECT /**/" >>confdefs.h + + ;; + esac + fi + + + + for ac_header in sys/shm.h +do : + ac_fn_c_check_header_mongrel "$LINENO" "sys/shm.h" "ac_cv_header_sys_shm_h" "$ac_includes_default" +if test "x$ac_cv_header_sys_shm_h" = xyes; then : + cat >>confdefs.h <<_ACEOF +#define HAVE_SYS_SHM_H 1 +_ACEOF + +fi + +done + + if test $ac_cv_header_sys_shm_h = yes; then + for ac_header in sys/ipc.h +do : + ac_fn_c_check_header_mongrel "$LINENO" "sys/ipc.h" "ac_cv_header_sys_ipc_h" "$ac_includes_default" +if test "x$ac_cv_header_sys_ipc_h" = xyes; then : + cat >>confdefs.h <<_ACEOF +#define HAVE_SYS_IPC_H 1 +_ACEOF + +fi + +done + + fi + + + + + + if test $ac_cv_header_sys_shm_h = yes -a "$ac_cv_header_sys_ipc_h" = yes; then + # This test is from Marcus Daniels + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for working shared memory" >&5 +$as_echo_n "checking for working shared memory... " >&6; } +if ${cl_cv_sys_shm_works+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test "$cross_compiling" = yes; then : + case "$host" in + mips*-*-linux*) cl_cv_sys_shm_works="guessing no" ;; + *-*-linux*) cl_cv_sys_shm_works="guessing yes" ;; + *-*-solaris*) cl_cv_sys_shm_works="guessing yes" ;; + *-*-irix*) cl_cv_sys_shm_works="guessing yes" ;; + *) cl_cv_sys_shm_works="guessing no" ;; + esac + +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include + #include + #include + #include + /* try attaching a single segment to multiple addresses */ + #define segsize 0x10000 + #define attaches 128 + #define base_addr 0x01000000 + int main () + { + int shmid; + int i; + char* addr; + char* result; + if ((shmid = shmget(IPC_PRIVATE,segsize,0400)) < 0) + exit(1); + for (i=0, addr = (char*)0x01000000; i&5 +$as_echo "$cl_cv_sys_shm_works" >&6; } + fi + case "$cl_cv_sys_shm_works" in + *yes) + have_shm=1 + +$as_echo "#define HAVE_SHM /**/" >>confdefs.h + + for ac_header in sys/sysmacros.h +do : + ac_fn_c_check_header_mongrel "$LINENO" "sys/sysmacros.h" "ac_cv_header_sys_sysmacros_h" "$ac_includes_default" +if test "x$ac_cv_header_sys_sysmacros_h" = xyes; then : + cat >>confdefs.h <<_ACEOF +#define HAVE_SYS_SYSMACROS_H 1 +_ACEOF + +fi + +done + + ;; + *) ;; + esac + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether code in malloc()ed memory is executable" >&5 +$as_echo_n "checking whether code in malloc()ed memory is executable... " >&6; } +if ${ffcall_cv_codeexec+:} false; then : + $as_echo_n "(cached) " >&6 +else + case "$HOST_CPU_C_ABI--$host_os" in + hppa--* | hppa64--* | powerpc--aix* | powerpc64--* | ia64--*) + ffcall_cv_codeexec="irrelevant" + ;; + arm64--freebsd*) + ffcall_cv_codeexec=no + ;; + *) + if test "$cross_compiling" = yes; then : + case "$host_os" in + cygwin*) + case "$HOST_CPU_C_ABI" in + i386) + ffcall_cv_codeexec="guessing yes" ;; + x86_64) + ffcall_cv_codeexec="guessing no" ;; + *) + ffcall_cv_codeexec="guessing no" ;; + esac + ;; + darwin*) + case "$HOST_CPU_C_ABI" in + i386 | powerpc) + ffcall_cv_codeexec="guessing yes" ;; + x86_64) + ffcall_cv_codeexec="guessing no" ;; + *) + ffcall_cv_codeexec="guessing no" ;; + esac + ;; + irix*) + ffcall_cv_codeexec="guessing no" ;; + linux*) + case "$HOST_CPU_C_ABI" in + alpha | ia64) + ffcall_cv_codeexec="guessing yes" ;; + arm | armhf | arm64 | i386 | mips* | s390 | s390x | sparc | sparc64 | x86_64*) + ffcall_cv_codeexec="guessing no" ;; + *) + ffcall_cv_codeexec="guessing no" ;; + esac + ;; + solaris*) + case "$HOST_CPU_C_ABI" in + i386 | sparc | sparc64) + ffcall_cv_codeexec="guessing yes" ;; + x86_64) + ffcall_cv_codeexec="guessing no" ;; + *) + ffcall_cv_codeexec="guessing no" ;; + esac + ;; + *) + ffcall_cv_codeexec="guessing no" ;; + esac + +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#if defined __MACH__ && defined __APPLE__ +/* Avoid a crash on Mac OS X. */ +#include +#include +#include +#include +#include +#include +/* The exception port on which our thread listens. */ +static mach_port_t our_exception_port; +/* The main function of the thread listening for exceptions of type + EXC_BAD_ACCESS. */ +static void * +mach_exception_thread (void *arg) +{ + /* Buffer for a message to be received. */ + struct { + mach_msg_header_t head; + mach_msg_body_t msgh_body; + char data[1024]; + } msg; + mach_msg_return_t retval; + /* Wait for a message on the exception port. */ + retval = mach_msg (&msg.head, MACH_RCV_MSG | MACH_RCV_LARGE, 0, sizeof (msg), + our_exception_port, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); + if (retval != MACH_MSG_SUCCESS) + abort (); + exit (1); +} +static void +nocrash_init (void) +{ + mach_port_t self = mach_task_self (); + /* Allocate a port on which the thread shall listen for exceptions. */ + if (mach_port_allocate (self, MACH_PORT_RIGHT_RECEIVE, &our_exception_port) + == KERN_SUCCESS) { + /* See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/mach_port_insert_right.html. */ + if (mach_port_insert_right (self, our_exception_port, our_exception_port, + MACH_MSG_TYPE_MAKE_SEND) + == KERN_SUCCESS) { + /* The exceptions we want to catch. Only EXC_BAD_ACCESS is interesting + for us. */ + exception_mask_t mask = EXC_MASK_BAD_ACCESS; + /* Create the thread listening on the exception port. */ + pthread_attr_t attr; + pthread_t thread; + if (pthread_attr_init (&attr) == 0 + && pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED) == 0 + && pthread_create (&thread, &attr, mach_exception_thread, NULL) == 0) { + pthread_attr_destroy (&attr); + /* Replace the exception port info for these exceptions with our own. + Note that we replace the exception port for the entire task, not only + for a particular thread. This has the effect that when our exception + port gets the message, the thread specific exception port has already + been asked, and we don't need to bother about it. + See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/task_set_exception_ports.html. */ + task_set_exception_ports (self, mask, our_exception_port, + EXCEPTION_DEFAULT, MACHINE_THREAD_STATE); + } + } + } +} +#elif defined _WIN32 && ! defined __CYGWIN__ +/* Avoid a crash on native Windows. */ +#define WIN32_LEAN_AND_MEAN +#include +#include +static LONG WINAPI +exception_filter (EXCEPTION_POINTERS *ExceptionInfo) +{ + switch (ExceptionInfo->ExceptionRecord->ExceptionCode) + { + case EXCEPTION_ACCESS_VIOLATION: + case EXCEPTION_IN_PAGE_ERROR: + case EXCEPTION_STACK_OVERFLOW: + case EXCEPTION_GUARD_PAGE: + case EXCEPTION_PRIV_INSTRUCTION: + case EXCEPTION_ILLEGAL_INSTRUCTION: + case EXCEPTION_DATATYPE_MISALIGNMENT: + case EXCEPTION_ARRAY_BOUNDS_EXCEEDED: + case EXCEPTION_NONCONTINUABLE_EXCEPTION: + exit (1); + } + return EXCEPTION_CONTINUE_SEARCH; +} +static void +nocrash_init (void) +{ + SetUnhandledExceptionFilter ((LPTOP_LEVEL_EXCEPTION_FILTER) exception_filter); +} +#else +/* Avoid a crash on POSIX systems. */ +#include +#include +/* A POSIX signal handler. */ +static void +exception_handler (int sig) +{ + _exit (1); +} +static void +nocrash_init (void) +{ +#ifdef SIGSEGV + signal (SIGSEGV, exception_handler); +#endif +#ifdef SIGBUS + signal (SIGBUS, exception_handler); +#endif +} +#endif + + #include + /* declare malloc() */ + #include + int fun () { return 31415926; } + int main () + { nocrash_init(); + {long size = (char*)&main - (char*)&fun; + char* funcopy = (char*) malloc(size); + int i; + for (i = 0; i < size; i++) { funcopy[i] = ((char*)&fun)[i]; } + return !((*(int(*)())funcopy)() == 31415926); + }} + +_ACEOF +if ac_fn_c_try_run "$LINENO"; then : + ffcall_cv_codeexec=yes +else + ffcall_cv_codeexec=no +fi +rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ + conftest.$ac_objext conftest.beam conftest.$ac_ext +fi + + ;; + esac + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ffcall_cv_codeexec" >&5 +$as_echo "$ffcall_cv_codeexec" >&6; } + case "$ffcall_cv_codeexec" in + *yes | irrelevant) +$as_echo "#define CODE_EXECUTABLE /**/" >>confdefs.h + ;; + *no) ;; + esac + + + + + + + case "$ffcall_cv_codeexec" in + *yes | irrelevant) ;; + *) + case "$ac_cv_func_mprotect--$cl_cv_func_mprotect_works" in + yes--*yes) + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether mprotect can make malloc()ed memory executable" >&5 +$as_echo_n "checking whether mprotect can make malloc()ed memory executable... " >&6; } +if ${ffcall_cv_malloc_mprotect_can_exec+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test "$cross_compiling" != yes -a -d /etc/selinux; then + ffcall_cv_malloc_mprotect_can_exec='determined by SELinux at runtime' + else + if test "$cross_compiling" = yes; then : + { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error $? "cannot run test program while cross compiling +See \`config.log' for more details" "$LINENO" 5; } +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include + #include + #ifdef HAVE_UNISTD_H + #include + #endif + #include + /* declare getpagesize() and mprotect() */ + #include + #ifndef HAVE_GETPAGESIZE + #include + #define getpagesize() PAGESIZE + #else + extern +#ifdef __cplusplus +"C" +#endif + + RETGETPAGESIZETYPE getpagesize (void); + #endif + int + main () + { + unsigned int pagesize = getpagesize (); + char *p = (char *) malloc (50); + int ret; + if (p == (char*) -1) + /* malloc is not working as expected. */ + return 1; + p[5] = 0x77; + ret = mprotect (p - ((unsigned int) p & (pagesize - 1)), pagesize, PROT_READ | PROT_WRITE | PROT_EXEC); + if (ret < 0 + && (errno == EACCES || errno == ENOMEM + #ifdef ENOTSUP + || errno == ENOTSUP + #endif + ) ) + /* mprotect is forbidden to make malloc()ed pages executable that were writable earlier. */ + return 2; + return 0; + } + +_ACEOF +if ac_fn_c_try_run "$LINENO"; then : + ffcall_cv_malloc_mprotect_can_exec=yes +else + case "$host_os" in + linux*) + ffcall_cv_malloc_mprotect_can_exec='determined by SELinux at runtime' ;; + aix* | cygwin* | darwin* | irix* | solaris*) + ffcall_cv_malloc_mprotect_can_exec="guessing yes" ;; + *) + ffcall_cv_malloc_mprotect_can_exec="guessing no" ;; + esac + +fi +rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ + conftest.$ac_objext conftest.beam conftest.$ac_ext +fi + + fi + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ffcall_cv_malloc_mprotect_can_exec" >&5 +$as_echo "$ffcall_cv_malloc_mprotect_can_exec" >&6; } + case "$ffcall_cv_malloc_mprotect_can_exec" in + *yes) MPROTECT_AFTER_MALLOC_CAN_EXEC=1 ;; + *no) MPROTECT_AFTER_MALLOC_CAN_EXEC=0 ;; + *runtime*) MPROTECT_AFTER_MALLOC_CAN_EXEC='-1' ;; + esac + +cat >>confdefs.h <<_ACEOF +#define HAVE_MPROTECT_AFTER_MALLOC_CAN_EXEC $MPROTECT_AFTER_MALLOC_CAN_EXEC +_ACEOF + + case "$ffcall_cv_malloc_mprotect_can_exec" in + *yes) ;; + *) + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether mprotect can make mmap()ed memory executable" >&5 +$as_echo_n "checking whether mprotect can make mmap()ed memory executable... " >&6; } +if ${ffcall_cv_mmap_mprotect_can_exec+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test "$cross_compiling" != yes -a -d /etc/selinux; then + ffcall_cv_mmap_mprotect_can_exec='determined by SELinux at runtime' + else + if test "$cross_compiling" = yes; then : + { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error $? "cannot run test program while cross compiling +See \`config.log' for more details" "$LINENO" 5; } +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include + #include + #ifdef HAVE_UNISTD_H + #include + #endif + #include + /* declare getpagesize() and mprotect() */ + #include + #ifndef HAVE_GETPAGESIZE + #include + #define getpagesize() PAGESIZE + #else + extern +#ifdef __cplusplus +"C" +#endif + + RETGETPAGESIZETYPE getpagesize (void); + #endif + #ifndef MAP_FILE + #define MAP_FILE 0 + #endif + #ifndef MAP_VARIABLE + #define MAP_VARIABLE 0 + #endif + int + main () + { + unsigned int pagesize = getpagesize (); + char *p; + int ret; + #if defined HAVE_MMAP_ANON + p = (char *) mmap (NULL, pagesize, PROT_READ | PROT_WRITE, MAP_PRIVATE | MAP_ANON | MAP_VARIABLE, -1, 0); + #elif defined HAVE_MMAP_ANONYMOUS + p = (char *) mmap (NULL, pagesize, PROT_READ | PROT_WRITE, MAP_PRIVATE | MAP_ANONYMOUS | MAP_VARIABLE, -1, 0); + #elif defined HAVE_MMAP_DEVZERO + int zero_fd = open("/dev/zero", O_RDONLY, 0666); + if (zero_fd < 0) + return 1; + p = (char *) mmap (NULL, pagesize, PROT_READ | PROT_WRITE, MAP_PRIVATE | MAP_FILE | MAP_VARIABLE, zero_fd, 0); + #else + ?? + #endif + if (p == (char*) -1) + /* mmap is not working as expected. */ + return 1; + p[5] = 0x77; + ret = mprotect (p, pagesize, PROT_READ | PROT_WRITE | PROT_EXEC); + if (ret < 0 + && (errno == EACCES || errno == ENOMEM + #ifdef ENOTSUP + || errno == ENOTSUP + #endif + ) ) + /* mprotect is forbidden to make mmap()ed pages executable that were writable earlier. */ + return 2; + return 0; + } + +_ACEOF +if ac_fn_c_try_run "$LINENO"; then : + ffcall_cv_mmap_mprotect_can_exec=yes +else + case "$host_os" in + linux*) ffcall_cv_mmap_mprotect_can_exec='determined by SELinux at runtime' ;; + *) ffcall_cv_mmap_mprotect_can_exec="guessing no" ;; + esac + +fi +rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ + conftest.$ac_objext conftest.beam conftest.$ac_ext +fi + + fi + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ffcall_cv_mmap_mprotect_can_exec" >&5 +$as_echo "$ffcall_cv_mmap_mprotect_can_exec" >&6; } + case "$ffcall_cv_mmap_mprotect_can_exec" in + *yes) MPROTECT_AFTER_MMAP_CAN_EXEC=1 ;; + *no) MPROTECT_AFTER_MMAP_CAN_EXEC=0 ;; + *runtime*) MPROTECT_AFTER_MMAP_CAN_EXEC='-1' ;; + esac + +cat >>confdefs.h <<_ACEOF +#define HAVE_MPROTECT_AFTER_MMAP_CAN_EXEC $MPROTECT_AFTER_MMAP_CAN_EXEC +_ACEOF + + case "$ffcall_cv_mmap_mprotect_can_exec" in + *yes) ;; + *) + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether a shared mmap can make memory pages executable" >&5 +$as_echo_n "checking whether a shared mmap can make memory pages executable... " >&6; } +if ${ffcall_cv_mmap_shared_can_exec+:} false; then : + $as_echo_n "(cached) " >&6 +else + filename="/tmp/trampdata$$.data" + if test "$cross_compiling" = yes; then : + { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error $? "cannot run test program while cross compiling +See \`config.log' for more details" "$LINENO" 5; } +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include + #include + #ifdef HAVE_UNISTD_H + #include + #endif + /* declare getpagesize() and mmap() */ + #include + #ifndef HAVE_GETPAGESIZE + #include + #define getpagesize() PAGESIZE + #else + extern +#ifdef __cplusplus +"C" +#endif + + RETGETPAGESIZETYPE getpagesize (void); + #endif + #ifndef MAP_FILE + #define MAP_FILE 0 + #endif + #ifndef MAP_VARIABLE + #define MAP_VARIABLE 0 + #endif + int + main () + { + unsigned int pagesize = getpagesize (); + int fd; + char *pw; + char *px; + fd = open ("$filename", O_CREAT | O_RDWR | O_TRUNC, 0700); + if (fd < 0) + return 1; + if (ftruncate (fd, pagesize) < 0) + return 2; + pw = (char *) mmap (NULL, pagesize, PROT_READ | PROT_WRITE, MAP_SHARED | MAP_FILE | MAP_VARIABLE, fd, 0); + if (pw == (char*) -1) + return 3; + pw[5] = 0xc3; + px = (char *) mmap (NULL, pagesize, PROT_READ | PROT_EXEC, MAP_SHARED | MAP_FILE | MAP_VARIABLE, fd, 0); + if (px == (char*) -1) + return 4; + if ((char)px[5] != (char)0xc3) + return 5; + /* On i386 and x86_64 this is a 'ret' instruction that we can invoke. */ + #if (defined __i386 || defined __i386__ || defined _I386 || defined _M_IX86 || defined _X86_) || (defined __x86_64__ || defined __amd64__) + ((void (*) (void)) (px + 5)) (); + #endif + return 0; + } + +_ACEOF +if ac_fn_c_try_run "$LINENO"; then : + ffcall_cv_mmap_shared_can_exec=yes +else + ffcall_cv_mmap_shared_can_exec="guessing yes" + +fi +rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ + conftest.$ac_objext conftest.beam conftest.$ac_ext +fi + + rm -f "$filename" + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ffcall_cv_mmap_shared_can_exec" >&5 +$as_echo "$ffcall_cv_mmap_shared_can_exec" >&6; } + case "$ffcall_cv_mmap_shared_can_exec" in + *yes) + +$as_echo "#define HAVE_MMAP_SHARED_CAN_EXEC /**/" >>confdefs.h + + ;; + esac + ;; + esac + ;; + esac + ;; + esac + ;; + esac + + +CPU_OBJECTS='' +if test ${HOST_CPU_C_ABI} = hppa -o ${HOST_CPU_C_ABI} = hppa64 -o ${HOST_CPU_C_ABI} = powerpc64 -o ${HOST_CPU_C_ABI} = ia64; then + CPU_OBJECTS="$CPU_OBJECTS "'tramp-$(CPU).lo' +fi +if test ${HOST_CPU_C_ABI} = powerpc; then + case "${host_os}" in + aix*) CPU_OBJECTS="$CPU_OBJECTS "'tramp-$(CPU).lo' ;; + *) ;; + esac +fi +if test ${HOST_CPU_C_ABI} = sparc -o ${HOST_CPU_C_ABI} = sparc64 -o ${HOST_CPU_C_ABI} = alpha -o ${HOST_CPU_C_ABI} = hppa -o ${HOST_CPU_C_ABI} = hppa64 -o ${HOST_CPU_C_ABI} = powerpc64-elfv2; then + CPU_OBJECTS="$CPU_OBJECTS "'cache-$(CPU).lo' +fi +if test ${HOST_CPU_C_ABI} = powerpc; then + case "${host_os}" in + aix*) ;; + *) CPU_OBJECTS="$CPU_OBJECTS "'cache-$(CPU).lo' ;; + esac +fi + +case "${HOST_CPU_C_ABI}" in + mips* | riscv*) + for ac_header in sys/cachectl.h +do : + ac_fn_c_check_header_mongrel "$LINENO" "sys/cachectl.h" "ac_cv_header_sys_cachectl_h" "$ac_includes_default" +if test "x$ac_cv_header_sys_cachectl_h" = xyes; then : + cat >>confdefs.h <<_ACEOF +#define HAVE_SYS_CACHECTL_H 1 +_ACEOF + +fi + +done + + ;; +esac + +WORKAROUND_BUG_81653='' +if test ${HOST_CPU_C_ABI} = sparc && test -n "$GCC"; then + gcc_version=`LC_ALL=C ${CC} -v 2>&1 | grep version | sed -n -e '$p' | sed -e 's/.*version //g' -e 's/gcc //'` + case "$gcc_version" in + 2.* | 3.0-3*) ;; + *) WORKAROUND_BUG_81653='-fno-pie' ;; + esac +fi + + +if test -n "$GCC"; then + DISABLE_TYPE_BASED_ALIASING='-fno-strict-aliasing' +else + case "$host_os" in + aix*) DISABLE_TYPE_BASED_ALIASING='-qalias=noansi' + ;; + *) + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#ifdef __SUNPRO_C + yes + #endif + +_ACEOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + $EGREP "yes" >/dev/null 2>&1; then : + DISABLE_TYPE_BASED_ALIASING='-xalias_level=weak' + +else + DISABLE_TYPE_BASED_ALIASING='' +fi +rm -f conftest* + + ;; + esac +fi + + + + + + + + + LIBC_FATAL_STDERR_=1 + export LIBC_FATAL_STDERR_ + + + + + + if test "$CXX_CHOICE" = no; then + CXX=no + fi + if test -z "$CXX"; then + if test -n "$CCC"; then + CXX="$CCC" + else + if test -n "$ac_tool_prefix"; then + for ac_prog in g++ c++ gpp aCC CC cxx cc++ cl FCC KCC RCC xlC_r xlC + do + # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. +set dummy $ac_tool_prefix$ac_prog; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_CXX+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$CXX"; then + ac_cv_prog_CXX="$CXX" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_CXX="$ac_tool_prefix$ac_prog" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +CXX=$ac_cv_prog_CXX +if test -n "$CXX"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CXX" >&5 +$as_echo "$CXX" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + + test -n "$CXX" && break + done +fi +if test -z "$CXX"; then + ac_ct_CXX=$CXX + for ac_prog in g++ c++ gpp aCC CC cxx cc++ cl FCC KCC RCC xlC_r xlC +do + # Extract the first word of "$ac_prog", so it can be a program name with args. +set dummy $ac_prog; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_ac_ct_CXX+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$ac_ct_CXX"; then + ac_cv_prog_ac_ct_CXX="$ac_ct_CXX" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_CXX="$ac_prog" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +ac_ct_CXX=$ac_cv_prog_ac_ct_CXX +if test -n "$ac_ct_CXX"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CXX" >&5 +$as_echo "$ac_ct_CXX" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + + test -n "$ac_ct_CXX" && break +done + + if test "x$ac_ct_CXX" = x; then + CXX=":" + else + case $cross_compiling:$ac_tool_warned in +yes:) +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +ac_tool_warned=yes ;; +esac + CXX=$ac_ct_CXX + fi +fi + + fi + fi + if test "$CXX" != no; then + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C++ compiler ($CXX $CXXFLAGS $LDFLAGS) works" >&5 +$as_echo_n "checking whether the C++ compiler ($CXX $CXXFLAGS $LDFLAGS) works... " >&6; } + ac_ext=cpp +ac_cpp='$CXXCPP $CPPFLAGS' +ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_cxx_compiler_gnu + + + + echo 'int main () { return 0; }' > conftest.$ac_ext + if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 + (eval $ac_link) 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } && test -s conftest$ac_exeext; then + gl_cv_prog_ansicxx_works=yes + if (./conftest; exit) 2>/dev/null; then + gl_cv_prog_ansicxx_cross=no + else + gl_cv_prog_ansicxx_cross=yes + fi + else + gl_cv_prog_ansicxx_works=no + fi + rm -fr conftest* + ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_prog_ansicxx_works" >&5 +$as_echo "$gl_cv_prog_ansicxx_works" >&6; } + if test $gl_cv_prog_ansicxx_works = no; then + CXX=no + else + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C++ compiler supports namespaces" >&5 +$as_echo_n "checking whether the C++ compiler supports namespaces... " >&6; } + ac_ext=cpp +ac_cpp='$CXXCPP $CPPFLAGS' +ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_cxx_compiler_gnu + + cat < conftest.$ac_ext +#include +namespace test { using namespace std; } +std::ostream* ptr; +int main () { return 0; } +EOF + if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 + (eval $ac_link) 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } && test -s conftest$ac_exeext; then + gl_cv_prog_ansicxx_namespaces=yes + else + gl_cv_prog_ansicxx_namespaces=no + fi + rm -fr conftest* + ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_prog_ansicxx_namespaces" >&5 +$as_echo "$gl_cv_prog_ansicxx_namespaces" >&6; } + if test $gl_cv_prog_ansicxx_namespaces = no; then + CXX=no + fi + fi + fi + + + + if test "$CXX" != no; then + ANSICXX_TRUE= + ANSICXX_FALSE='#' +else + ANSICXX_TRUE='#' + ANSICXX_FALSE= +fi + + + if test "$CXX" != no; then + +depcc="$CXX" am_compiler_list= + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5 +$as_echo_n "checking dependency style of $depcc... " >&6; } +if ${am_cv_CXX_dependencies_compiler_type+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then + # We make a subdir and do the tests there. Otherwise we can end up + # making bogus files that we don't know about and never remove. For + # instance it was reported that on HP-UX the gcc test will end up + # making a dummy file named 'D' -- because '-MD' means "put the output + # in D". + rm -rf conftest.dir + mkdir conftest.dir + # Copy depcomp to subdir because otherwise we won't find it if we're + # using a relative directory. + cp "$am_depcomp" conftest.dir + cd conftest.dir + # We will build objects and dependencies in a subdirectory because + # it helps to detect inapplicable dependency modes. For instance + # both Tru64's cc and ICC support -MD to output dependencies as a + # side effect of compilation, but ICC will put the dependencies in + # the current directory while Tru64 will put them in the object + # directory. + mkdir sub + + am_cv_CXX_dependencies_compiler_type=none + if test "$am_compiler_list" = ""; then + am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp` + fi + am__universal=false + case " $depcc " in #( + *\ -arch\ *\ -arch\ *) am__universal=true ;; + esac + + for depmode in $am_compiler_list; do + # Setup a source with many dependencies, because some compilers + # like to wrap large dependency lists on column 80 (with \), and + # we should not choose a depcomp mode which is confused by this. + # + # We need to recreate these files for each test, as the compiler may + # overwrite some of them when testing with obscure command lines. + # This happens at least with the AIX C compiler. + : > sub/conftest.c + for i in 1 2 3 4 5 6; do + echo '#include "conftst'$i'.h"' >> sub/conftest.c + # Using ": > sub/conftst$i.h" creates only sub/conftst1.h with + # Solaris 10 /bin/sh. + echo '/* dummy */' > sub/conftst$i.h + done + echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf + + # We check with '-c' and '-o' for the sake of the "dashmstdout" + # mode. It turns out that the SunPro C++ compiler does not properly + # handle '-M -o', and we need to detect this. Also, some Intel + # versions had trouble with output in subdirs. + am__obj=sub/conftest.${OBJEXT-o} + am__minus_obj="-o $am__obj" + case $depmode in + gcc) + # This depmode causes a compiler race in universal mode. + test "$am__universal" = false || continue + ;; + nosideeffect) + # After this tag, mechanisms are not by side-effect, so they'll + # only be used when explicitly requested. + if test "x$enable_dependency_tracking" = xyes; then + continue + else + break + fi + ;; + msvc7 | msvc7msys | msvisualcpp | msvcmsys) + # This compiler won't grok '-c -o', but also, the minuso test has + # not run yet. These depmodes are late enough in the game, and + # so weak that their functioning should not be impacted. + am__obj=conftest.${OBJEXT-o} + am__minus_obj= + ;; + none) break ;; + esac + if depmode=$depmode \ + source=sub/conftest.c object=$am__obj \ + depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ + $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \ + >/dev/null 2>conftest.err && + grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 && + grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && + grep $am__obj sub/conftest.Po > /dev/null 2>&1 && + ${MAKE-make} -s -f confmf > /dev/null 2>&1; then + # icc doesn't choke on unknown options, it will just issue warnings + # or remarks (even with -Werror). So we grep stderr for any message + # that says an option was ignored or not supported. + # When given -MP, icc 7.0 and 7.1 complain thusly: + # icc: Command line warning: ignoring option '-M'; no argument required + # The diagnosis changed in icc 8.0: + # icc: Command line remark: option '-MP' not supported + if (grep 'ignoring option' conftest.err || + grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else + am_cv_CXX_dependencies_compiler_type=$depmode + break + fi + fi + done + + cd .. + rm -rf conftest.dir +else + am_cv_CXX_dependencies_compiler_type=none +fi + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_CXX_dependencies_compiler_type" >&5 +$as_echo "$am_cv_CXX_dependencies_compiler_type" >&6; } +CXXDEPMODE=depmode=$am_cv_CXX_dependencies_compiler_type + + if + test "x$enable_dependency_tracking" != xno \ + && test "$am_cv_CXX_dependencies_compiler_type" = gcc3; then + am__fastdepCXX_TRUE= + am__fastdepCXX_FALSE='#' +else + am__fastdepCXX_TRUE='#' + am__fastdepCXX_FALSE= +fi + + + else + if false; then + am__fastdepCXX_TRUE= + am__fastdepCXX_FALSE='#' +else + am__fastdepCXX_TRUE='#' + am__fastdepCXX_FALSE= +fi + + fi + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the preprocessor supports include_next" >&5 +$as_echo_n "checking whether the preprocessor supports include_next... " >&6; } +if ${gl_cv_have_include_next+:} false; then : + $as_echo_n "(cached) " >&6 +else + rm -rf conftestd1a conftestd1b conftestd2 + mkdir conftestd1a conftestd1b conftestd2 + cat < conftestd1a/conftest.h +#define DEFINED_IN_CONFTESTD1 +#include_next +#ifdef DEFINED_IN_CONFTESTD2 +int foo; +#else +#error "include_next doesn't work" +#endif +EOF + cat < conftestd1b/conftest.h +#define DEFINED_IN_CONFTESTD1 +#include +#include_next +#ifdef DEFINED_IN_CONFTESTD2 +int foo; +#else +#error "include_next doesn't work" +#endif +EOF + cat < conftestd2/conftest.h +#ifndef DEFINED_IN_CONFTESTD1 +#error "include_next test doesn't work" +#endif +#define DEFINED_IN_CONFTESTD2 +EOF + gl_save_CPPFLAGS="$CPPFLAGS" + CPPFLAGS="$gl_save_CPPFLAGS -Iconftestd1b -Iconftestd2" + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + gl_cv_have_include_next=yes +else + CPPFLAGS="$gl_save_CPPFLAGS -Iconftestd1a -Iconftestd2" + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + gl_cv_have_include_next=buggy +else + gl_cv_have_include_next=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + CPPFLAGS="$gl_save_CPPFLAGS" + rm -rf conftestd1a conftestd1b conftestd2 + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_have_include_next" >&5 +$as_echo "$gl_cv_have_include_next" >&6; } + PRAGMA_SYSTEM_HEADER= + if test $gl_cv_have_include_next = yes; then + INCLUDE_NEXT=include_next + INCLUDE_NEXT_AS_FIRST_DIRECTIVE=include_next + if test -n "$GCC"; then + PRAGMA_SYSTEM_HEADER='#pragma GCC system_header' + fi + else + if test $gl_cv_have_include_next = buggy; then + INCLUDE_NEXT=include + INCLUDE_NEXT_AS_FIRST_DIRECTIVE=include_next + else + INCLUDE_NEXT=include + INCLUDE_NEXT_AS_FIRST_DIRECTIVE=include + fi + fi + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether system header files limit the line length" >&5 +$as_echo_n "checking whether system header files limit the line length... " >&6; } +if ${gl_cv_pragma_columns+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#ifdef __TANDEM +choke me +#endif + +_ACEOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + $EGREP "choke me" >/dev/null 2>&1; then : + gl_cv_pragma_columns=yes +else + gl_cv_pragma_columns=no +fi +rm -f conftest* + + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_pragma_columns" >&5 +$as_echo "$gl_cv_pragma_columns" >&6; } + if test $gl_cv_pragma_columns = yes; then + PRAGMA_COLUMNS="#pragma COLUMNS 10000" + else + PRAGMA_COLUMNS= + fi + + + + + + + for ac_header in $gl_header_list +do : + as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh` +ac_fn_c_check_header_mongrel "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default" +if eval test \"x\$"$as_ac_Header"\" = x"yes"; then : + cat >>confdefs.h <<_ACEOF +#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1 +_ACEOF + +fi + +done + + + + + + + + + + + + + : + + + + + + + + + if test $gl_cv_have_include_next = yes; then + gl_cv_next_limits_h='<'limits.h'>' + else + { $as_echo "$as_me:${as_lineno-$LINENO}: checking absolute name of " >&5 +$as_echo_n "checking absolute name of ... " >&6; } +if ${gl_cv_next_limits_h+:} false; then : + $as_echo_n "(cached) " >&6 +else + + if test $ac_cv_header_limits_h = yes; then + + + + + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +_ACEOF + case "$host_os" in + aix*) gl_absname_cpp="$ac_cpp -C" ;; + *) gl_absname_cpp="$ac_cpp" ;; + esac + + case "$host_os" in + mingw*) + gl_dirsep_regex='[/\\]' + ;; + *) + gl_dirsep_regex='\/' + ;; + esac + gl_make_literal_regex_sed='s,[]$^\\.*/[],\\&,g' + gl_header_literal_regex=`echo 'limits.h' \ + | sed -e "$gl_make_literal_regex_sed"` + gl_absolute_header_sed="/${gl_dirsep_regex}${gl_header_literal_regex}/"'{ + s/.*"\(.*'"${gl_dirsep_regex}${gl_header_literal_regex}"'\)".*/\1/ + s|^/[^/]|//&| + p + q + }' + + gl_cv_absolute_limits_h=`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&5 | + sed -n "$gl_absolute_header_sed"` + + gl_header=$gl_cv_absolute_limits_h + gl_cv_next_limits_h='"'$gl_header'"' + else + gl_cv_next_limits_h='<'limits.h'>' + fi + + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_limits_h" >&5 +$as_echo "$gl_cv_next_limits_h" >&6; } + fi + NEXT_LIMITS_H=$gl_cv_next_limits_h + + if test $gl_cv_have_include_next = yes || test $gl_cv_have_include_next = buggy; then + # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include_next' + gl_next_as_first_directive='<'limits.h'>' + else + # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include' + gl_next_as_first_directive=$gl_cv_next_limits_h + fi + NEXT_AS_FIRST_DIRECTIVE_LIMITS_H=$gl_next_as_first_directive + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether limits.h has LLONG_MAX, WORD_BIT, ULLONG_WIDTH etc." >&5 +$as_echo_n "checking whether limits.h has LLONG_MAX, WORD_BIT, ULLONG_WIDTH etc.... " >&6; } +if ${gl_cv_header_limits_width+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#ifndef __STDC_WANT_IEC_60559_BFP_EXT__ + #define __STDC_WANT_IEC_60559_BFP_EXT__ 1 + #endif + #include + long long llm = LLONG_MAX; + int wb = WORD_BIT; + int ullw = ULLONG_WIDTH; + +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + gl_cv_header_limits_width=yes +else + gl_cv_header_limits_width=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_header_limits_width" >&5 +$as_echo "$gl_cv_header_limits_width" >&6; } + if test "$gl_cv_header_limits_width" = yes; then + LIMITS_H= + else + LIMITS_H=limits.h + fi + + if test -n "$LIMITS_H"; then + GL_GENERATE_LIMITS_H_TRUE= + GL_GENERATE_LIMITS_H_FALSE='#' +else + GL_GENERATE_LIMITS_H_TRUE='#' + GL_GENERATE_LIMITS_H_FALSE= +fi + + + + + + + + + + gl_threads_api=none + LIBTHREAD= + LTLIBTHREAD= + LIBMULTITHREAD= + LTLIBMULTITHREAD= + if test "$gl_use_threads" != no; then + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether imported symbols can be declared weak" >&5 +$as_echo_n "checking whether imported symbols can be declared weak... " >&6; } +if ${gl_cv_have_weak+:} false; then : + $as_echo_n "(cached) " >&6 +else + gl_cv_have_weak=no + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +extern void xyzzy (); +#pragma weak xyzzy +int +main () +{ +xyzzy(); + ; + return 0; +} +_ACEOF +if ac_fn_c_try_link "$LINENO"; then : + gl_cv_have_weak=maybe +fi +rm -f core conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext + if test $gl_cv_have_weak = maybe; then + if test "$cross_compiling" = yes; then : + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#ifdef __ELF__ + Extensible Linking Format + #endif + +_ACEOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + $EGREP "Extensible Linking Format" >/dev/null 2>&1; then : + gl_cv_have_weak="guessing yes" +else + gl_cv_have_weak="guessing no" +fi +rm -f conftest* + + +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#pragma weak fputs +int main () +{ + return (fputs == NULL); +} +_ACEOF +if ac_fn_c_try_run "$LINENO"; then : + gl_cv_have_weak=yes +else + gl_cv_have_weak=no +fi +rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ + conftest.$ac_objext conftest.beam conftest.$ac_ext +fi + + fi + case " $LDFLAGS " in + *" -static "*) gl_cv_have_weak=no ;; + esac + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_have_weak" >&5 +$as_echo "$gl_cv_have_weak" >&6; } + if case "$gl_cv_have_weak" in *yes) true;; *) false;; esac; then + + : + + + + + + : + fi + if test "$gl_use_threads" = yes || test "$gl_use_threads" = posix; then + # On OSF/1, the compiler needs the flag -pthread or -D_REENTRANT so that + # it groks . It's added above, in gl_THREADLIB_EARLY_BODY. + ac_fn_c_check_header_mongrel "$LINENO" "pthread.h" "ac_cv_header_pthread_h" "$ac_includes_default" +if test "x$ac_cv_header_pthread_h" = xyes; then : + gl_have_pthread_h=yes +else + gl_have_pthread_h=no +fi + + + if test "$gl_have_pthread_h" = yes; then + # Other possible tests: + # -lpthreads (FSU threads, PCthreads) + # -lgthreads + gl_have_pthread= + # Test whether both pthread_mutex_lock and pthread_mutexattr_init exist + # in libc. IRIX 6.5 has the first one in both libc and libpthread, but + # the second one only in libpthread, and lock.c needs it. + # + # If -pthread works, prefer it to -lpthread, since Ubuntu 14.04 + # needs -pthread for some reason. See: + # https://lists.gnu.org/r/bug-gnulib/2014-09/msg00023.html + save_LIBS=$LIBS + for gl_pthread in '' '-pthread'; do + LIBS="$LIBS $gl_pthread" + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include + pthread_mutex_t m; + pthread_mutexattr_t ma; + +int +main () +{ +pthread_mutex_lock (&m); + pthread_mutexattr_init (&ma); + ; + return 0; +} +_ACEOF +if ac_fn_c_try_link "$LINENO"; then : + gl_have_pthread=yes + LIBTHREAD=$gl_pthread LTLIBTHREAD=$gl_pthread + LIBMULTITHREAD=$gl_pthread LTLIBMULTITHREAD=$gl_pthread +fi +rm -f core conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext + LIBS=$save_LIBS + test -n "$gl_have_pthread" && break + done + + # Test for libpthread by looking for pthread_kill. (Not pthread_self, + # since it is defined as a macro on OSF/1.) + if test -n "$gl_have_pthread" && test -z "$LIBTHREAD"; then + # The program links fine without libpthread. But it may actually + # need to link with libpthread in order to create multiple threads. + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for pthread_kill in -lpthread" >&5 +$as_echo_n "checking for pthread_kill in -lpthread... " >&6; } +if ${ac_cv_lib_pthread_pthread_kill+:} false; then : + $as_echo_n "(cached) " >&6 +else + ac_check_lib_save_LIBS=$LIBS +LIBS="-lpthread $LIBS" +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +/* Override any GCC internal prototype to avoid an error. + Use char because int might match the return type of a GCC + builtin and then its argument prototype would still apply. */ +#ifdef __cplusplus +extern "C" +#endif +char pthread_kill (); +int +main () +{ +return pthread_kill (); + ; + return 0; +} +_ACEOF +if ac_fn_c_try_link "$LINENO"; then : + ac_cv_lib_pthread_pthread_kill=yes +else + ac_cv_lib_pthread_pthread_kill=no +fi +rm -f core conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +LIBS=$ac_check_lib_save_LIBS +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_pthread_pthread_kill" >&5 +$as_echo "$ac_cv_lib_pthread_pthread_kill" >&6; } +if test "x$ac_cv_lib_pthread_pthread_kill" = xyes; then : + LIBMULTITHREAD=-lpthread LTLIBMULTITHREAD=-lpthread + # On Solaris and HP-UX, most pthread functions exist also in libc. + # Therefore pthread_in_use() needs to actually try to create a + # thread: pthread_create from libc will fail, whereas + # pthread_create will actually create a thread. + # On Solaris 10 or newer, this test is no longer needed, because + # libc contains the fully functional pthread functions. + case "$host_os" in + solaris | solaris2.1-9 | solaris2.1-9.* | hpux*) + +$as_echo "#define PTHREAD_IN_USE_DETECTION_HARD 1" >>confdefs.h + + esac + +fi + + elif test -z "$gl_have_pthread"; then + # Some library is needed. Try libpthread and libc_r. + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for pthread_kill in -lpthread" >&5 +$as_echo_n "checking for pthread_kill in -lpthread... " >&6; } +if ${ac_cv_lib_pthread_pthread_kill+:} false; then : + $as_echo_n "(cached) " >&6 +else + ac_check_lib_save_LIBS=$LIBS +LIBS="-lpthread $LIBS" +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +/* Override any GCC internal prototype to avoid an error. + Use char because int might match the return type of a GCC + builtin and then its argument prototype would still apply. */ +#ifdef __cplusplus +extern "C" +#endif +char pthread_kill (); +int +main () +{ +return pthread_kill (); + ; + return 0; +} +_ACEOF +if ac_fn_c_try_link "$LINENO"; then : + ac_cv_lib_pthread_pthread_kill=yes +else + ac_cv_lib_pthread_pthread_kill=no +fi +rm -f core conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +LIBS=$ac_check_lib_save_LIBS +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_pthread_pthread_kill" >&5 +$as_echo "$ac_cv_lib_pthread_pthread_kill" >&6; } +if test "x$ac_cv_lib_pthread_pthread_kill" = xyes; then : + gl_have_pthread=yes + LIBTHREAD=-lpthread LTLIBTHREAD=-lpthread + LIBMULTITHREAD=-lpthread LTLIBMULTITHREAD=-lpthread +fi + + if test -z "$gl_have_pthread"; then + # For FreeBSD 4. + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for pthread_kill in -lc_r" >&5 +$as_echo_n "checking for pthread_kill in -lc_r... " >&6; } +if ${ac_cv_lib_c_r_pthread_kill+:} false; then : + $as_echo_n "(cached) " >&6 +else + ac_check_lib_save_LIBS=$LIBS +LIBS="-lc_r $LIBS" +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +/* Override any GCC internal prototype to avoid an error. + Use char because int might match the return type of a GCC + builtin and then its argument prototype would still apply. */ +#ifdef __cplusplus +extern "C" +#endif +char pthread_kill (); +int +main () +{ +return pthread_kill (); + ; + return 0; +} +_ACEOF +if ac_fn_c_try_link "$LINENO"; then : + ac_cv_lib_c_r_pthread_kill=yes +else + ac_cv_lib_c_r_pthread_kill=no +fi +rm -f core conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +LIBS=$ac_check_lib_save_LIBS +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_c_r_pthread_kill" >&5 +$as_echo "$ac_cv_lib_c_r_pthread_kill" >&6; } +if test "x$ac_cv_lib_c_r_pthread_kill" = xyes; then : + gl_have_pthread=yes + LIBTHREAD=-lc_r LTLIBTHREAD=-lc_r + LIBMULTITHREAD=-lc_r LTLIBMULTITHREAD=-lc_r +fi + + fi + fi + if test -n "$gl_have_pthread"; then + gl_threads_api=posix + +$as_echo "#define USE_POSIX_THREADS 1" >>confdefs.h + + if test -n "$LIBMULTITHREAD" || test -n "$LTLIBMULTITHREAD"; then + if case "$gl_cv_have_weak" in *yes) true;; *) false;; esac; then + +$as_echo "#define USE_POSIX_THREADS_WEAK 1" >>confdefs.h + + LIBTHREAD= + LTLIBTHREAD= + fi + fi + fi + fi + fi + if test -z "$gl_have_pthread"; then + case "$gl_use_threads" in + yes | windows | win32) # The 'win32' is for backward compatibility. + if { case "$host_os" in + mingw*) true;; + *) false;; + esac + }; then + gl_threads_api=windows + +$as_echo "#define USE_WINDOWS_THREADS 1" >>confdefs.h + + fi + ;; + esac + fi + fi + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for multithread API to use" >&5 +$as_echo_n "checking for multithread API to use... " >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_threads_api" >&5 +$as_echo "$gl_threads_api" >&6; } + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for unsigned long long int" >&5 +$as_echo_n "checking for unsigned long long int... " >&6; } +if ${ac_cv_type_unsigned_long_long_int+:} false; then : + $as_echo_n "(cached) " >&6 +else + ac_cv_type_unsigned_long_long_int=yes + if test "x${ac_cv_prog_cc_c99-no}" = xno; then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + + /* For now, do not test the preprocessor; as of 2007 there are too many + implementations with broken preprocessors. Perhaps this can + be revisited in 2012. In the meantime, code should not expect + #if to work with literals wider than 32 bits. */ + /* Test literals. */ + long long int ll = 9223372036854775807ll; + long long int nll = -9223372036854775807LL; + unsigned long long int ull = 18446744073709551615ULL; + /* Test constant expressions. */ + typedef int a[((-9223372036854775807LL < 0 && 0 < 9223372036854775807ll) + ? 1 : -1)]; + typedef int b[(18446744073709551615ULL <= (unsigned long long int) -1 + ? 1 : -1)]; + int i = 63; +int +main () +{ +/* Test availability of runtime routines for shift and division. */ + long long int llmax = 9223372036854775807ll; + unsigned long long int ullmax = 18446744073709551615ull; + return ((ll << 63) | (ll >> 63) | (ll < i) | (ll > i) + | (llmax / ll) | (llmax % ll) + | (ull << 63) | (ull >> 63) | (ull << i) | (ull >> i) + | (ullmax / ull) | (ullmax % ull)); + ; + return 0; +} + +_ACEOF +if ac_fn_c_try_link "$LINENO"; then : + +else + ac_cv_type_unsigned_long_long_int=no +fi +rm -f core conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext + fi +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_type_unsigned_long_long_int" >&5 +$as_echo "$ac_cv_type_unsigned_long_long_int" >&6; } + if test $ac_cv_type_unsigned_long_long_int = yes; then + +$as_echo "#define HAVE_UNSIGNED_LONG_LONG_INT 1" >>confdefs.h + + fi + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for long long int" >&5 +$as_echo_n "checking for long long int... " >&6; } +if ${ac_cv_type_long_long_int+:} false; then : + $as_echo_n "(cached) " >&6 +else + ac_cv_type_long_long_int=yes + if test "x${ac_cv_prog_cc_c99-no}" = xno; then + ac_cv_type_long_long_int=$ac_cv_type_unsigned_long_long_int + if test $ac_cv_type_long_long_int = yes; then + if test "$cross_compiling" = yes; then : + : +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include + #ifndef LLONG_MAX + # define HALF \ + (1LL << (sizeof (long long int) * CHAR_BIT - 2)) + # define LLONG_MAX (HALF - 1 + HALF) + #endif +int +main () +{ +long long int n = 1; + int i; + for (i = 0; ; i++) + { + long long int m = n << i; + if (m >> i != n) + return 1; + if (LLONG_MAX / 2 < m) + break; + } + return 0; + ; + return 0; +} +_ACEOF +if ac_fn_c_try_run "$LINENO"; then : + +else + ac_cv_type_long_long_int=no +fi +rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ + conftest.$ac_objext conftest.beam conftest.$ac_ext +fi + + fi + fi +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_type_long_long_int" >&5 +$as_echo "$ac_cv_type_long_long_int" >&6; } + if test $ac_cv_type_long_long_int = yes; then + +$as_echo "#define HAVE_LONG_LONG_INT 1" >>confdefs.h + + fi + + + gl_cv_c_multiarch=no + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#ifndef __APPLE_CC__ + not a universal capable compiler + #endif + typedef int dummy; + +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + + arch= + prev= + for word in ${CC} ${CFLAGS} ${CPPFLAGS} ${LDFLAGS}; do + if test -n "$prev"; then + case $word in + i?86 | x86_64 | ppc | ppc64) + if test -z "$arch" || test "$arch" = "$word"; then + arch="$word" + else + gl_cv_c_multiarch=yes + fi + ;; + esac + prev= + else + if test "x$word" = "x-arch"; then + prev=arch + fi + fi + done + +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + if test $gl_cv_c_multiarch = yes; then + APPLE_UNIVERSAL_BUILD=1 + else + APPLE_UNIVERSAL_BUILD=0 + fi + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for wint_t" >&5 +$as_echo_n "checking for wint_t... " >&6; } +if ${gt_cv_c_wint_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +/* Tru64 with Desktop Toolkit C has a bug: must be included before + . + BSD/OS 4.0.1 has a bug: , and must be included + before . */ +#include +#include +#include +#include + wint_t foo = (wchar_t)'\0'; +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + gt_cv_c_wint_t=yes +else + gt_cv_c_wint_t=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gt_cv_c_wint_t" >&5 +$as_echo "$gt_cv_c_wint_t" >&6; } + if test $gt_cv_c_wint_t = yes; then + +$as_echo "#define HAVE_WINT_T 1" >>confdefs.h + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether wint_t is too small" >&5 +$as_echo_n "checking whether wint_t is too small... " >&6; } +if ${gl_cv_type_wint_t_too_small+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +/* Tru64 with Desktop Toolkit C has a bug: must be included before + . + BSD/OS 4.0.1 has a bug: , and must be + included before . */ +#if !(defined __GLIBC__ && !defined __UCLIBC__) +# include +# include +# include +#endif +#include + int verify[sizeof (wint_t) < sizeof (int) ? -1 : 1]; + +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + gl_cv_type_wint_t_too_small=no +else + gl_cv_type_wint_t_too_small=yes +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_type_wint_t_too_small" >&5 +$as_echo "$gl_cv_type_wint_t_too_small" >&6; } + if test $gl_cv_type_wint_t_too_small = yes; then + GNULIB_OVERRIDES_WINT_T=1 + else + GNULIB_OVERRIDES_WINT_T=0 + fi + else + GNULIB_OVERRIDES_WINT_T=0 + fi + + + + + + + + + + + + + + + + + + + if test $ac_cv_type_long_long_int = yes; then + HAVE_LONG_LONG_INT=1 + else + HAVE_LONG_LONG_INT=0 + fi + + + if test $ac_cv_type_unsigned_long_long_int = yes; then + HAVE_UNSIGNED_LONG_LONG_INT=1 + else + HAVE_UNSIGNED_LONG_LONG_INT=0 + fi + + + + : + + + + + + if test $ac_cv_header_wchar_h = yes; then + HAVE_WCHAR_H=1 + else + HAVE_WCHAR_H=0 + fi + + + if test $ac_cv_header_inttypes_h = yes; then + HAVE_INTTYPES_H=1 + else + HAVE_INTTYPES_H=0 + fi + + + if test $ac_cv_header_sys_types_h = yes; then + HAVE_SYS_TYPES_H=1 + else + HAVE_SYS_TYPES_H=0 + fi + + + + + + + + + : + + + + + + + + + if test $gl_cv_have_include_next = yes; then + gl_cv_next_stdint_h='<'stdint.h'>' + else + { $as_echo "$as_me:${as_lineno-$LINENO}: checking absolute name of " >&5 +$as_echo_n "checking absolute name of ... " >&6; } +if ${gl_cv_next_stdint_h+:} false; then : + $as_echo_n "(cached) " >&6 +else + + if test $ac_cv_header_stdint_h = yes; then + + + + + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +_ACEOF + case "$host_os" in + aix*) gl_absname_cpp="$ac_cpp -C" ;; + *) gl_absname_cpp="$ac_cpp" ;; + esac + + case "$host_os" in + mingw*) + gl_dirsep_regex='[/\\]' + ;; + *) + gl_dirsep_regex='\/' + ;; + esac + gl_make_literal_regex_sed='s,[]$^\\.*/[],\\&,g' + gl_header_literal_regex=`echo 'stdint.h' \ + | sed -e "$gl_make_literal_regex_sed"` + gl_absolute_header_sed="/${gl_dirsep_regex}${gl_header_literal_regex}/"'{ + s/.*"\(.*'"${gl_dirsep_regex}${gl_header_literal_regex}"'\)".*/\1/ + s|^/[^/]|//&| + p + q + }' + + gl_cv_absolute_stdint_h=`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&5 | + sed -n "$gl_absolute_header_sed"` + + gl_header=$gl_cv_absolute_stdint_h + gl_cv_next_stdint_h='"'$gl_header'"' + else + gl_cv_next_stdint_h='<'stdint.h'>' + fi + + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_stdint_h" >&5 +$as_echo "$gl_cv_next_stdint_h" >&6; } + fi + NEXT_STDINT_H=$gl_cv_next_stdint_h + + if test $gl_cv_have_include_next = yes || test $gl_cv_have_include_next = buggy; then + # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include_next' + gl_next_as_first_directive='<'stdint.h'>' + else + # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include' + gl_next_as_first_directive=$gl_cv_next_stdint_h + fi + NEXT_AS_FIRST_DIRECTIVE_STDINT_H=$gl_next_as_first_directive + + + + + if test $ac_cv_header_stdint_h = yes; then + HAVE_STDINT_H=1 + else + HAVE_STDINT_H=0 + fi + + + if test $ac_cv_header_stdint_h = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether stdint.h conforms to C99" >&5 +$as_echo_n "checking whether stdint.h conforms to C99... " >&6; } +if ${gl_cv_header_working_stdint_h+:} false; then : + $as_echo_n "(cached) " >&6 +else + gl_cv_header_working_stdint_h=no + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + + +#define _GL_JUST_INCLUDE_SYSTEM_STDINT_H 1 /* work if build isn't clean */ +#define __STDC_CONSTANT_MACROS 1 +#define __STDC_LIMIT_MACROS 1 +#include +/* Dragonfly defines WCHAR_MIN, WCHAR_MAX only in . */ +#if !(defined WCHAR_MIN && defined WCHAR_MAX) +#error "WCHAR_MIN, WCHAR_MAX not defined in " +#endif + + + /* BSD/OS 4.0.1 has a bug: , and must be + included before . */ + #include + #include + #if HAVE_WCHAR_H + # include + # include + # include + #endif + + +#ifdef INT8_MAX +int8_t a1 = INT8_MAX; +int8_t a1min = INT8_MIN; +#endif +#ifdef INT16_MAX +int16_t a2 = INT16_MAX; +int16_t a2min = INT16_MIN; +#endif +#ifdef INT32_MAX +int32_t a3 = INT32_MAX; +int32_t a3min = INT32_MIN; +#endif +#ifdef INT64_MAX +int64_t a4 = INT64_MAX; +int64_t a4min = INT64_MIN; +#endif +#ifdef UINT8_MAX +uint8_t b1 = UINT8_MAX; +#else +typedef int b1[(unsigned char) -1 != 255 ? 1 : -1]; +#endif +#ifdef UINT16_MAX +uint16_t b2 = UINT16_MAX; +#endif +#ifdef UINT32_MAX +uint32_t b3 = UINT32_MAX; +#endif +#ifdef UINT64_MAX +uint64_t b4 = UINT64_MAX; +#endif +int_least8_t c1 = INT8_C (0x7f); +int_least8_t c1max = INT_LEAST8_MAX; +int_least8_t c1min = INT_LEAST8_MIN; +int_least16_t c2 = INT16_C (0x7fff); +int_least16_t c2max = INT_LEAST16_MAX; +int_least16_t c2min = INT_LEAST16_MIN; +int_least32_t c3 = INT32_C (0x7fffffff); +int_least32_t c3max = INT_LEAST32_MAX; +int_least32_t c3min = INT_LEAST32_MIN; +int_least64_t c4 = INT64_C (0x7fffffffffffffff); +int_least64_t c4max = INT_LEAST64_MAX; +int_least64_t c4min = INT_LEAST64_MIN; +uint_least8_t d1 = UINT8_C (0xff); +uint_least8_t d1max = UINT_LEAST8_MAX; +uint_least16_t d2 = UINT16_C (0xffff); +uint_least16_t d2max = UINT_LEAST16_MAX; +uint_least32_t d3 = UINT32_C (0xffffffff); +uint_least32_t d3max = UINT_LEAST32_MAX; +uint_least64_t d4 = UINT64_C (0xffffffffffffffff); +uint_least64_t d4max = UINT_LEAST64_MAX; +int_fast8_t e1 = INT_FAST8_MAX; +int_fast8_t e1min = INT_FAST8_MIN; +int_fast16_t e2 = INT_FAST16_MAX; +int_fast16_t e2min = INT_FAST16_MIN; +int_fast32_t e3 = INT_FAST32_MAX; +int_fast32_t e3min = INT_FAST32_MIN; +int_fast64_t e4 = INT_FAST64_MAX; +int_fast64_t e4min = INT_FAST64_MIN; +uint_fast8_t f1 = UINT_FAST8_MAX; +uint_fast16_t f2 = UINT_FAST16_MAX; +uint_fast32_t f3 = UINT_FAST32_MAX; +uint_fast64_t f4 = UINT_FAST64_MAX; +#ifdef INTPTR_MAX +intptr_t g = INTPTR_MAX; +intptr_t gmin = INTPTR_MIN; +#endif +#ifdef UINTPTR_MAX +uintptr_t h = UINTPTR_MAX; +#endif +intmax_t i = INTMAX_MAX; +uintmax_t j = UINTMAX_MAX; + +/* Check that SIZE_MAX has the correct type, if possible. */ +#if 201112 <= __STDC_VERSION__ +int k = _Generic (SIZE_MAX, size_t: 0); +#elif (2 <= __GNUC__ || defined __IBM__TYPEOF__ \ + || (0x5110 <= __SUNPRO_C && !__STDC__)) +extern size_t k; +extern __typeof__ (SIZE_MAX) k; +#endif + +#include /* for CHAR_BIT */ +#define TYPE_MINIMUM(t) \ + ((t) ((t) 0 < (t) -1 ? (t) 0 : ~ TYPE_MAXIMUM (t))) +#define TYPE_MAXIMUM(t) \ + ((t) ((t) 0 < (t) -1 \ + ? (t) -1 \ + : ((((t) 1 << (sizeof (t) * CHAR_BIT - 2)) - 1) * 2 + 1))) +struct s { + int check_PTRDIFF: + PTRDIFF_MIN == TYPE_MINIMUM (ptrdiff_t) + && PTRDIFF_MAX == TYPE_MAXIMUM (ptrdiff_t) + ? 1 : -1; + /* Detect bug in FreeBSD 6.0 / ia64. */ + int check_SIG_ATOMIC: + SIG_ATOMIC_MIN == TYPE_MINIMUM (sig_atomic_t) + && SIG_ATOMIC_MAX == TYPE_MAXIMUM (sig_atomic_t) + ? 1 : -1; + int check_SIZE: SIZE_MAX == TYPE_MAXIMUM (size_t) ? 1 : -1; + int check_WCHAR: + WCHAR_MIN == TYPE_MINIMUM (wchar_t) + && WCHAR_MAX == TYPE_MAXIMUM (wchar_t) + ? 1 : -1; + /* Detect bug in mingw. */ + int check_WINT: + WINT_MIN == TYPE_MINIMUM (wint_t) + && WINT_MAX == TYPE_MAXIMUM (wint_t) + ? 1 : -1; + + /* Detect bugs in glibc 2.4 and Solaris 10 stdint.h, among others. */ + int check_UINT8_C: + (-1 < UINT8_C (0)) == (-1 < (uint_least8_t) 0) ? 1 : -1; + int check_UINT16_C: + (-1 < UINT16_C (0)) == (-1 < (uint_least16_t) 0) ? 1 : -1; + + /* Detect bugs in OpenBSD 3.9 stdint.h. */ +#ifdef UINT8_MAX + int check_uint8: (uint8_t) -1 == UINT8_MAX ? 1 : -1; +#endif +#ifdef UINT16_MAX + int check_uint16: (uint16_t) -1 == UINT16_MAX ? 1 : -1; +#endif +#ifdef UINT32_MAX + int check_uint32: (uint32_t) -1 == UINT32_MAX ? 1 : -1; +#endif +#ifdef UINT64_MAX + int check_uint64: (uint64_t) -1 == UINT64_MAX ? 1 : -1; +#endif + int check_uint_least8: (uint_least8_t) -1 == UINT_LEAST8_MAX ? 1 : -1; + int check_uint_least16: (uint_least16_t) -1 == UINT_LEAST16_MAX ? 1 : -1; + int check_uint_least32: (uint_least32_t) -1 == UINT_LEAST32_MAX ? 1 : -1; + int check_uint_least64: (uint_least64_t) -1 == UINT_LEAST64_MAX ? 1 : -1; + int check_uint_fast8: (uint_fast8_t) -1 == UINT_FAST8_MAX ? 1 : -1; + int check_uint_fast16: (uint_fast16_t) -1 == UINT_FAST16_MAX ? 1 : -1; + int check_uint_fast32: (uint_fast32_t) -1 == UINT_FAST32_MAX ? 1 : -1; + int check_uint_fast64: (uint_fast64_t) -1 == UINT_FAST64_MAX ? 1 : -1; + int check_uintptr: (uintptr_t) -1 == UINTPTR_MAX ? 1 : -1; + int check_uintmax: (uintmax_t) -1 == UINTMAX_MAX ? 1 : -1; + int check_size: (size_t) -1 == SIZE_MAX ? 1 : -1; +}; + +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + if test "$cross_compiling" = yes; then : + case "$host_os" in + # Guess yes on native Windows. + mingw*) gl_cv_header_working_stdint_h="guessing yes" ;; + # In general, assume it works. + *) gl_cv_header_working_stdint_h="guessing yes" ;; + esac + +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + + +#define _GL_JUST_INCLUDE_SYSTEM_STDINT_H 1 /* work if build isn't clean */ +#define __STDC_CONSTANT_MACROS 1 +#define __STDC_LIMIT_MACROS 1 +#include + + + /* BSD/OS 4.0.1 has a bug: , and must be + included before . */ + #include + #include + #if HAVE_WCHAR_H + # include + # include + # include + #endif + + +#include +#include +#define MVAL(macro) MVAL1(macro) +#define MVAL1(expression) #expression +static const char *macro_values[] = + { +#ifdef INT8_MAX + MVAL (INT8_MAX), +#endif +#ifdef INT16_MAX + MVAL (INT16_MAX), +#endif +#ifdef INT32_MAX + MVAL (INT32_MAX), +#endif +#ifdef INT64_MAX + MVAL (INT64_MAX), +#endif +#ifdef UINT8_MAX + MVAL (UINT8_MAX), +#endif +#ifdef UINT16_MAX + MVAL (UINT16_MAX), +#endif +#ifdef UINT32_MAX + MVAL (UINT32_MAX), +#endif +#ifdef UINT64_MAX + MVAL (UINT64_MAX), +#endif + NULL + }; + +int +main () +{ + + const char **mv; + for (mv = macro_values; *mv != NULL; mv++) + { + const char *value = *mv; + /* Test whether it looks like a cast expression. */ + if (strncmp (value, "((unsigned int)"/*)*/, 15) == 0 + || strncmp (value, "((unsigned short)"/*)*/, 17) == 0 + || strncmp (value, "((unsigned char)"/*)*/, 16) == 0 + || strncmp (value, "((int)"/*)*/, 6) == 0 + || strncmp (value, "((signed short)"/*)*/, 15) == 0 + || strncmp (value, "((signed char)"/*)*/, 14) == 0) + return mv - macro_values + 1; + } + return 0; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_run "$LINENO"; then : + gl_cv_header_working_stdint_h=yes +fi +rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ + conftest.$ac_objext conftest.beam conftest.$ac_ext +fi + + +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_header_working_stdint_h" >&5 +$as_echo "$gl_cv_header_working_stdint_h" >&6; } + fi + + HAVE_C99_STDINT_H=0 + HAVE_SYS_BITYPES_H=0 + HAVE_SYS_INTTYPES_H=0 + STDINT_H=stdint.h + case "$gl_cv_header_working_stdint_h" in + *yes) + HAVE_C99_STDINT_H=1 + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether stdint.h predates C++11" >&5 +$as_echo_n "checking whether stdint.h predates C++11... " >&6; } +if ${gl_cv_header_stdint_predates_cxx11_h+:} false; then : + $as_echo_n "(cached) " >&6 +else + gl_cv_header_stdint_predates_cxx11_h=yes + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + + +#define _GL_JUST_INCLUDE_SYSTEM_STDINT_H 1 /* work if build isn't clean */ +#include + + + /* BSD/OS 4.0.1 has a bug: , and must be + included before . */ + #include + #include + #if HAVE_WCHAR_H + # include + # include + # include + #endif + + +intmax_t im = INTMAX_MAX; +int32_t i32 = INT32_C (0x7fffffff); + +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + gl_cv_header_stdint_predates_cxx11_h=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_header_stdint_predates_cxx11_h" >&5 +$as_echo "$gl_cv_header_stdint_predates_cxx11_h" >&6; } + + if test "$gl_cv_header_stdint_predates_cxx11_h" = yes; then + +$as_echo "#define __STDC_CONSTANT_MACROS 1" >>confdefs.h + + +$as_echo "#define __STDC_LIMIT_MACROS 1" >>confdefs.h + + fi + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether stdint.h has UINTMAX_WIDTH etc." >&5 +$as_echo_n "checking whether stdint.h has UINTMAX_WIDTH etc.... " >&6; } +if ${gl_cv_header_stdint_width+:} false; then : + $as_echo_n "(cached) " >&6 +else + gl_cv_header_stdint_width=no + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + + /* Work if build is not clean. */ + #define _GL_JUST_INCLUDE_SYSTEM_STDINT_H 1 + #ifndef __STDC_WANT_IEC_60559_BFP_EXT__ + #define __STDC_WANT_IEC_60559_BFP_EXT__ 1 + #endif + #include + + /* BSD/OS 4.0.1 has a bug: , and must be + included before . */ + #include + #include + #if HAVE_WCHAR_H + # include + # include + # include + #endif + + int iw = UINTMAX_WIDTH; + +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + gl_cv_header_stdint_width=yes +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_header_stdint_width" >&5 +$as_echo "$gl_cv_header_stdint_width" >&6; } + if test "$gl_cv_header_stdint_width" = yes; then + STDINT_H= + fi + ;; + *) + for ac_header in sys/inttypes.h sys/bitypes.h +do : + as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh` +ac_fn_c_check_header_mongrel "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default" +if eval test \"x\$"$as_ac_Header"\" = x"yes"; then : + cat >>confdefs.h <<_ACEOF +#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1 +_ACEOF + +fi + +done + + if test $ac_cv_header_sys_inttypes_h = yes; then + HAVE_SYS_INTTYPES_H=1 + fi + if test $ac_cv_header_sys_bitypes_h = yes; then + HAVE_SYS_BITYPES_H=1 + fi + + + if test $APPLE_UNIVERSAL_BUILD = 0; then + + + for gltype in ptrdiff_t size_t ; do + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for bit size of $gltype" >&5 +$as_echo_n "checking for bit size of $gltype... " >&6; } +if eval \${gl_cv_bitsizeof_${gltype}+:} false; then : + $as_echo_n "(cached) " >&6 +else + if ac_fn_c_compute_int "$LINENO" "sizeof ($gltype) * CHAR_BIT" "result" " + /* BSD/OS 4.0.1 has a bug: , and must be + included before . */ + #include + #include + #if HAVE_WCHAR_H + # include + # include + # include + #endif + +#include "; then : + +else + result=unknown +fi + + eval gl_cv_bitsizeof_${gltype}=\$result + +fi +eval ac_res=\$gl_cv_bitsizeof_${gltype} + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +$as_echo "$ac_res" >&6; } + eval result=\$gl_cv_bitsizeof_${gltype} + if test $result = unknown; then + result=0 + fi + GLTYPE=`echo "$gltype" | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'` + cat >>confdefs.h <<_ACEOF +#define BITSIZEOF_${GLTYPE} $result +_ACEOF + + eval BITSIZEOF_${GLTYPE}=\$result + done + + + fi + + + for gltype in sig_atomic_t wchar_t wint_t ; do + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for bit size of $gltype" >&5 +$as_echo_n "checking for bit size of $gltype... " >&6; } +if eval \${gl_cv_bitsizeof_${gltype}+:} false; then : + $as_echo_n "(cached) " >&6 +else + if ac_fn_c_compute_int "$LINENO" "sizeof ($gltype) * CHAR_BIT" "result" " + /* BSD/OS 4.0.1 has a bug: , and must be + included before . */ + #include + #include + #if HAVE_WCHAR_H + # include + # include + # include + #endif + +#include "; then : + +else + result=unknown +fi + + eval gl_cv_bitsizeof_${gltype}=\$result + +fi +eval ac_res=\$gl_cv_bitsizeof_${gltype} + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +$as_echo "$ac_res" >&6; } + eval result=\$gl_cv_bitsizeof_${gltype} + if test $result = unknown; then + result=0 + fi + GLTYPE=`echo "$gltype" | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'` + cat >>confdefs.h <<_ACEOF +#define BITSIZEOF_${GLTYPE} $result +_ACEOF + + eval BITSIZEOF_${GLTYPE}=\$result + done + + + + + for gltype in sig_atomic_t wchar_t wint_t ; do + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $gltype is signed" >&5 +$as_echo_n "checking whether $gltype is signed... " >&6; } +if eval \${gl_cv_type_${gltype}_signed+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + + /* BSD/OS 4.0.1 has a bug: , and must be + included before . */ + #include + #include + #if HAVE_WCHAR_H + # include + # include + # include + #endif + + int verify[2 * (($gltype) -1 < ($gltype) 0) - 1]; +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + result=yes +else + result=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + eval gl_cv_type_${gltype}_signed=\$result + +fi +eval ac_res=\$gl_cv_type_${gltype}_signed + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +$as_echo "$ac_res" >&6; } + eval result=\$gl_cv_type_${gltype}_signed + GLTYPE=`echo $gltype | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'` + if test "$result" = yes; then + cat >>confdefs.h <<_ACEOF +#define HAVE_SIGNED_${GLTYPE} 1 +_ACEOF + + eval HAVE_SIGNED_${GLTYPE}=1 + else + eval HAVE_SIGNED_${GLTYPE}=0 + fi + done + + + gl_cv_type_ptrdiff_t_signed=yes + gl_cv_type_size_t_signed=no + if test $APPLE_UNIVERSAL_BUILD = 0; then + + + for gltype in ptrdiff_t size_t ; do + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $gltype integer literal suffix" >&5 +$as_echo_n "checking for $gltype integer literal suffix... " >&6; } +if eval \${gl_cv_type_${gltype}_suffix+:} false; then : + $as_echo_n "(cached) " >&6 +else + eval gl_cv_type_${gltype}_suffix=no + eval result=\$gl_cv_type_${gltype}_signed + if test "$result" = yes; then + glsufu= + else + glsufu=u + fi + for glsuf in "$glsufu" ${glsufu}l ${glsufu}ll ${glsufu}i64; do + case $glsuf in + '') gltype1='int';; + l) gltype1='long int';; + ll) gltype1='long long int';; + i64) gltype1='__int64';; + u) gltype1='unsigned int';; + ul) gltype1='unsigned long int';; + ull) gltype1='unsigned long long int';; + ui64)gltype1='unsigned __int64';; + esac + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + + /* BSD/OS 4.0.1 has a bug: , and must be + included before . */ + #include + #include + #if HAVE_WCHAR_H + # include + # include + # include + #endif + + extern $gltype foo; + extern $gltype1 foo; +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + eval gl_cv_type_${gltype}_suffix=\$glsuf +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + eval result=\$gl_cv_type_${gltype}_suffix + test "$result" != no && break + done +fi +eval ac_res=\$gl_cv_type_${gltype}_suffix + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +$as_echo "$ac_res" >&6; } + GLTYPE=`echo $gltype | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'` + eval result=\$gl_cv_type_${gltype}_suffix + test "$result" = no && result= + eval ${GLTYPE}_SUFFIX=\$result + cat >>confdefs.h <<_ACEOF +#define ${GLTYPE}_SUFFIX $result +_ACEOF + + done + + + fi + + + for gltype in sig_atomic_t wchar_t wint_t ; do + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $gltype integer literal suffix" >&5 +$as_echo_n "checking for $gltype integer literal suffix... " >&6; } +if eval \${gl_cv_type_${gltype}_suffix+:} false; then : + $as_echo_n "(cached) " >&6 +else + eval gl_cv_type_${gltype}_suffix=no + eval result=\$gl_cv_type_${gltype}_signed + if test "$result" = yes; then + glsufu= + else + glsufu=u + fi + for glsuf in "$glsufu" ${glsufu}l ${glsufu}ll ${glsufu}i64; do + case $glsuf in + '') gltype1='int';; + l) gltype1='long int';; + ll) gltype1='long long int';; + i64) gltype1='__int64';; + u) gltype1='unsigned int';; + ul) gltype1='unsigned long int';; + ull) gltype1='unsigned long long int';; + ui64)gltype1='unsigned __int64';; + esac + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + + /* BSD/OS 4.0.1 has a bug: , and must be + included before . */ + #include + #include + #if HAVE_WCHAR_H + # include + # include + # include + #endif + + extern $gltype foo; + extern $gltype1 foo; +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + eval gl_cv_type_${gltype}_suffix=\$glsuf +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + eval result=\$gl_cv_type_${gltype}_suffix + test "$result" != no && break + done +fi +eval ac_res=\$gl_cv_type_${gltype}_suffix + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +$as_echo "$ac_res" >&6; } + GLTYPE=`echo $gltype | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'` + eval result=\$gl_cv_type_${gltype}_suffix + test "$result" = no && result= + eval ${GLTYPE}_SUFFIX=\$result + cat >>confdefs.h <<_ACEOF +#define ${GLTYPE}_SUFFIX $result +_ACEOF + + done + + + + if test $GNULIB_OVERRIDES_WINT_T = 1; then + BITSIZEOF_WINT_T=32 + fi + + ;; + esac + + + + LIMITS_H='limits.h' + if test -n "$LIMITS_H"; then + GL_GENERATE_LIMITS_H_TRUE= + GL_GENERATE_LIMITS_H_FALSE='#' +else + GL_GENERATE_LIMITS_H_TRUE='#' + GL_GENERATE_LIMITS_H_FALSE= +fi + + + + + + + + if test -n "$STDINT_H"; then + GL_GENERATE_STDINT_H_TRUE= + GL_GENERATE_STDINT_H_FALSE='#' +else + GL_GENERATE_STDINT_H_TRUE='#' + GL_GENERATE_STDINT_H_FALSE= +fi + + + + +ac_fn_c_check_type "$LINENO" "pid_t" "ac_cv_type_pid_t" "$ac_includes_default" +if test "x$ac_cv_type_pid_t" = xyes; then : + +else + +cat >>confdefs.h <<_ACEOF +#define pid_t int +_ACEOF + +fi + +ac_fn_c_check_type "$LINENO" "mode_t" "ac_cv_type_mode_t" "$ac_includes_default" +if test "x$ac_cv_type_mode_t" = xyes; then : + +else + +cat >>confdefs.h <<_ACEOF +#define mode_t int +_ACEOF + +fi + + + + WINDOWS_64_BIT_OFF_T=0 + + + + + +$as_echo "#define _USE_STD_STAT 1" >>confdefs.h + + + + + + + + + + + + if test $gl_cv_have_include_next = yes; then + gl_cv_next_sys_types_h='<'sys/types.h'>' + else + { $as_echo "$as_me:${as_lineno-$LINENO}: checking absolute name of " >&5 +$as_echo_n "checking absolute name of ... " >&6; } +if ${gl_cv_next_sys_types_h+:} false; then : + $as_echo_n "(cached) " >&6 +else + + + + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +_ACEOF + case "$host_os" in + aix*) gl_absname_cpp="$ac_cpp -C" ;; + *) gl_absname_cpp="$ac_cpp" ;; + esac + + case "$host_os" in + mingw*) + gl_dirsep_regex='[/\\]' + ;; + *) + gl_dirsep_regex='\/' + ;; + esac + gl_make_literal_regex_sed='s,[]$^\\.*/[],\\&,g' + gl_header_literal_regex=`echo 'sys/types.h' \ + | sed -e "$gl_make_literal_regex_sed"` + gl_absolute_header_sed="/${gl_dirsep_regex}${gl_header_literal_regex}/"'{ + s/.*"\(.*'"${gl_dirsep_regex}${gl_header_literal_regex}"'\)".*/\1/ + s|^/[^/]|//&| + p + q + }' + + gl_cv_absolute_sys_types_h=`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&5 | + sed -n "$gl_absolute_header_sed"` + + gl_header=$gl_cv_absolute_sys_types_h + gl_cv_next_sys_types_h='"'$gl_header'"' + + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_sys_types_h" >&5 +$as_echo "$gl_cv_next_sys_types_h" >&6; } + fi + NEXT_SYS_TYPES_H=$gl_cv_next_sys_types_h + + if test $gl_cv_have_include_next = yes || test $gl_cv_have_include_next = buggy; then + # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include_next' + gl_next_as_first_directive='<'sys/types.h'>' + else + # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include' + gl_next_as_first_directive=$gl_cv_next_sys_types_h + fi + NEXT_AS_FIRST_DIRECTIVE_SYS_TYPES_H=$gl_next_as_first_directive + + + + + + + + + + + + + WINDOWS_STAT_INODES=0 + + + + + if true; then + GL_COND_LIBTOOL_TRUE= + GL_COND_LIBTOOL_FALSE='#' +else + GL_COND_LIBTOOL_TRUE='#' + GL_COND_LIBTOOL_FALSE= +fi + + gl_cond_libtool=true + gl_m4_base='gnulib-m4' + + + + + + + + + + gl_source_base='gnulib-lib' + + + + + + if test "$gl_threads_api" = posix; then + # OSF/1 4.0 and Mac OS X 10.1 lack the pthread_rwlock_t type and the + # pthread_rwlock_* functions. + has_rwlock=false + ac_fn_c_check_type "$LINENO" "pthread_rwlock_t" "ac_cv_type_pthread_rwlock_t" "#include +" +if test "x$ac_cv_type_pthread_rwlock_t" = xyes; then : + has_rwlock=true + +$as_echo "#define HAVE_PTHREAD_RWLOCK 1" >>confdefs.h + +fi + + if $has_rwlock; then + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether pthread_rwlock_rdlock prefers a writer to a reader" >&5 +$as_echo_n "checking whether pthread_rwlock_rdlock prefers a writer to a reader... " >&6; } +if ${gl_cv_pthread_rwlock_rdlock_prefer_writer+:} false; then : + $as_echo_n "(cached) " >&6 +else + save_LIBS="$LIBS" + LIBS="$LIBS $LIBMULTITHREAD" + if test "$cross_compiling" = yes; then : + gl_cv_pthread_rwlock_rdlock_prefer_writer="guessing yes" +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include +#include + +#define SUCCEED() exit (0) +#define FAILURE() exit (1) +#define UNEXPECTED(n) (exit (10 + (n))) + +/* The main thread creates the waiting writer and the requesting reader threads + in the default way; this guarantees that they have the same priority. + We can reuse the main thread as first reader thread. */ + +static pthread_rwlock_t lock; +static pthread_t reader1; +static pthread_t writer; +static pthread_t reader2; +static pthread_t timer; +/* Used to pass control from writer to reader2 and from reader2 to timer, + as in a relay race. + Passing control from one running thread to another running thread + is most likely faster than to create the second thread. */ +static pthread_mutex_t baton; + +static void * +timer_func (void *ignored) +{ + /* Step 13 (can be before or after step 12): + The timer thread takes the baton, then waits a moment to make sure + it can tell whether the second reader thread is blocked at step 12. */ + if (pthread_mutex_lock (&baton)) + UNEXPECTED (13); + usleep (100000); + /* By the time we get here, it's clear that the second reader thread is + blocked at step 12. This is the desired behaviour. */ + SUCCEED (); +} + +static void * +reader2_func (void *ignored) +{ + int err; + + /* Step 8 (can be before or after step 7): + The second reader thread takes the baton, then waits a moment to make sure + the writer thread has reached step 7. */ + if (pthread_mutex_lock (&baton)) + UNEXPECTED (8); + usleep (100000); + /* Step 9: The second reader thread requests the lock. */ + err = pthread_rwlock_tryrdlock (&lock); + if (err == 0) + FAILURE (); + else if (err != EBUSY) + UNEXPECTED (9); + /* Step 10: Launch a timer, to test whether the next call blocks. */ + if (pthread_create (&timer, NULL, timer_func, NULL)) + UNEXPECTED (10); + /* Step 11: Release the baton. */ + if (pthread_mutex_unlock (&baton)) + UNEXPECTED (11); + /* Step 12: The second reader thread requests the lock. */ + err = pthread_rwlock_rdlock (&lock); + if (err == 0) + FAILURE (); + else + UNEXPECTED (12); +} + +static void * +writer_func (void *ignored) +{ + /* Step 4: Take the baton, so that the second reader thread does not go ahead + too early. */ + if (pthread_mutex_lock (&baton)) + UNEXPECTED (4); + /* Step 5: Create the second reader thread. */ + if (pthread_create (&reader2, NULL, reader2_func, NULL)) + UNEXPECTED (5); + /* Step 6: Release the baton. */ + if (pthread_mutex_unlock (&baton)) + UNEXPECTED (6); + /* Step 7: The writer thread requests the lock. */ + if (pthread_rwlock_wrlock (&lock)) + UNEXPECTED (7); + return NULL; +} + +int +main () +{ + reader1 = pthread_self (); + + /* Step 1: The main thread initializes the lock and the baton. */ + if (pthread_rwlock_init (&lock, NULL)) + UNEXPECTED (1); + if (pthread_mutex_init (&baton, NULL)) + UNEXPECTED (1); + /* Step 2: The main thread acquires the lock as a reader. */ + if (pthread_rwlock_rdlock (&lock)) + UNEXPECTED (2); + /* Step 3: Create the writer thread. */ + if (pthread_create (&writer, NULL, writer_func, NULL)) + UNEXPECTED (3); + /* Job done. Go to sleep. */ + for (;;) + { + sleep (1); + } +} + +_ACEOF +if ac_fn_c_try_run "$LINENO"; then : + gl_cv_pthread_rwlock_rdlock_prefer_writer=yes +else + gl_cv_pthread_rwlock_rdlock_prefer_writer=no +fi +rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ + conftest.$ac_objext conftest.beam conftest.$ac_ext +fi + + LIBS="$save_LIBS" + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_pthread_rwlock_rdlock_prefer_writer" >&5 +$as_echo "$gl_cv_pthread_rwlock_rdlock_prefer_writer" >&6; } + case "$gl_cv_pthread_rwlock_rdlock_prefer_writer" in + *yes) + +$as_echo "#define HAVE_PTHREAD_RWLOCK_RDLOCK_PREFER_WRITER 1" >>confdefs.h + + ;; + esac + + fi + # glibc defines PTHREAD_MUTEX_RECURSIVE as enum, not as a macro. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + + #include +int +main () +{ + +#if __FreeBSD__ == 4 +error "No, in FreeBSD 4.0 recursive mutexes actually don't work." +#elif (defined __ENVIRONMENT_MAC_OS_X_VERSION_MIN_REQUIRED__ \ + && __ENVIRONMENT_MAC_OS_X_VERSION_MIN_REQUIRED__ < 1070) +error "No, in Mac OS X < 10.7 recursive mutexes actually don't work." +#else +int x = (int)PTHREAD_MUTEX_RECURSIVE; +return !x; +#endif + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + +$as_echo "#define HAVE_PTHREAD_MUTEX_RECURSIVE 1" >>confdefs.h + +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + fi + : + + + +cat >>confdefs.h <<_ACEOF +#define GNULIB_LOCK 1 +_ACEOF + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ssize_t" >&5 +$as_echo_n "checking for ssize_t... " >&6; } +if ${gt_cv_ssize_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +int +main () +{ +int x = sizeof (ssize_t *) + sizeof (ssize_t); + return !x; + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + gt_cv_ssize_t=yes +else + gt_cv_ssize_t=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gt_cv_ssize_t" >&5 +$as_echo "$gt_cv_ssize_t" >&6; } + if test $gt_cv_ssize_t = no; then + +$as_echo "#define ssize_t int" >>confdefs.h + + fi + + + + + case "$host_os" in + cygwin*) + STDNORETURN_H='stdnoreturn.h' + ;; + *) + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for working stdnoreturn.h" >&5 +$as_echo_n "checking for working stdnoreturn.h... " >&6; } +if ${gl_cv_header_working_stdnoreturn_h+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include + #include + /* Do not check for 'noreturn' after the return type. + C11 allows it, but it's rarely done that way + and circa-2012 bleeding-edge GCC rejects it when given + -Werror=old-style-declaration. */ + noreturn void foo1 (void) { exit (0); } + _Noreturn void foo2 (void) { exit (0); } + int testit (int argc, char **argv) + { + if (argc & 1) + return 0; + (argv[0][0] ? foo1 : foo2) (); + } + +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + gl_cv_header_working_stdnoreturn_h=yes +else + gl_cv_header_working_stdnoreturn_h=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_header_working_stdnoreturn_h" >&5 +$as_echo "$gl_cv_header_working_stdnoreturn_h" >&6; } + if test $gl_cv_header_working_stdnoreturn_h = yes; then + STDNORETURN_H='' + else + STDNORETURN_H='stdnoreturn.h' + fi + ;; + esac + + if test -n "$STDNORETURN_H"; then + GL_GENERATE_STDNORETURN_H_TRUE= + GL_GENERATE_STDNORETURN_H_FALSE='#' +else + GL_GENERATE_STDNORETURN_H_TRUE='#' + GL_GENERATE_STDNORETURN_H_FALSE= +fi + + + + + + + case "$host_os" in + mingw*) + + + + + + + + + gl_LIBOBJS="$gl_LIBOBJS windows-mutex.$ac_objext" + + ;; + esac + + case "$host_os" in + mingw*) + + + + + + + + + gl_LIBOBJS="$gl_LIBOBJS windows-once.$ac_objext" + + ;; + esac + + case "$host_os" in + mingw*) + + + + + + + + + gl_LIBOBJS="$gl_LIBOBJS windows-recmutex.$ac_objext" + + ;; + esac + + case "$host_os" in + mingw*) + + + + + + + + + gl_LIBOBJS="$gl_LIBOBJS windows-rwlock.$ac_objext" + + ;; + esac + # End of code from modules + + + + + + + + + + gltests_libdeps= + gltests_ltlibdeps= + + + + + + + + + + gl_source_base='tests' + gltests_WITNESS=IN_`echo "${PACKAGE-$PACKAGE_TARNAME}" | LC_ALL=C tr abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ | LC_ALL=C sed -e 's/[^A-Z0-9_]/_/g'`_GNULIB_TESTS + + gl_module_indicator_condition=$gltests_WITNESS + + + + + + + + + + + +extrasub="$extrasub"' +/@subdir@/{ +h +g +s/@subdir@/gnulib-lib/g +p +g +s/@subdir@/avcall/g +p +g +s/@subdir@/vacall/g +p +g +s/@subdir@/trampoline/g +p +g +s/@subdir@/callback/g +p +d +} +' +extrasub="$extrasub"' +/@callback_subdir@/{ +h +g +s/@callback_subdir@/vacall_r/g +p +g +s/@callback_subdir@/trampoline_r/g +p +d +} +' + +cat >confcache <<\_ACEOF +# This file is a shell script that caches the results of configure +# tests run on this system so they can be shared between configure +# scripts and configure runs, see configure's option --config-cache. +# It is not useful on other systems. If it contains results you don't +# want to keep, you may remove or edit it. +# +# config.status only pays attention to the cache file if you give it +# the --recheck option to rerun configure. +# +# `ac_cv_env_foo' variables (set or unset) will be overridden when +# loading this file, other *unset* `ac_cv_foo' will be assigned the +# following values. + +_ACEOF + +# The following way of writing the cache mishandles newlines in values, +# but we know of no workaround that is simple, portable, and efficient. +# So, we kill variables containing newlines. +# Ultrix sh set writes to stderr and can't be redirected directly, +# and sets the high bit in the cache file unless we assign to the vars. +( + for ac_var in `(set) 2>&1 | sed -n 's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`; do + eval ac_val=\$$ac_var + case $ac_val in #( + *${as_nl}*) + case $ac_var in #( + *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 +$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; + esac + case $ac_var in #( + _ | IFS | as_nl) ;; #( + BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( + *) { eval $ac_var=; unset $ac_var;} ;; + esac ;; + esac + done + + (set) 2>&1 | + case $as_nl`(ac_space=' '; set) 2>&1` in #( + *${as_nl}ac_space=\ *) + # `set' does not quote correctly, so add quotes: double-quote + # substitution turns \\\\ into \\, and sed turns \\ into \. + sed -n \ + "s/'/'\\\\''/g; + s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p" + ;; #( + *) + # `set' quotes correctly as required by POSIX, so do not add quotes. + sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" + ;; + esac | + sort +) | + sed ' + /^ac_cv_env_/b end + t clear + :clear + s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/ + t end + s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/ + :end' >>confcache +if diff "$cache_file" confcache >/dev/null 2>&1; then :; else + if test -w "$cache_file"; then + if test "x$cache_file" != "x/dev/null"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5 +$as_echo "$as_me: updating cache $cache_file" >&6;} + if test ! -f "$cache_file" || test -h "$cache_file"; then + cat confcache >"$cache_file" + else + case $cache_file in #( + */* | ?:*) + mv -f confcache "$cache_file"$$ && + mv -f "$cache_file"$$ "$cache_file" ;; #( + *) + mv -f confcache "$cache_file" ;; + esac + fi + fi + else + { $as_echo "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5 +$as_echo "$as_me: not updating unwritable cache $cache_file" >&6;} + fi +fi +rm -f confcache + +test "x$prefix" = xNONE && prefix=$ac_default_prefix +# Let make expand exec_prefix. +test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' + +DEFS=-DHAVE_CONFIG_H + +ac_libobjs= +ac_ltlibobjs= +U= +for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue + # 1. Remove the extension, and $U if already installed. + ac_script='s/\$U\././;s/\.o$//;s/\.obj$//' + ac_i=`$as_echo "$ac_i" | sed "$ac_script"` + # 2. Prepend LIBOBJDIR. When used with automake>=1.10 LIBOBJDIR + # will be set to the directory where LIBOBJS objects are built. + as_fn_append ac_libobjs " \${LIBOBJDIR}$ac_i\$U.$ac_objext" + as_fn_append ac_ltlibobjs " \${LIBOBJDIR}$ac_i"'$U.lo' +done +LIBOBJS=$ac_libobjs + +LTLIBOBJS=$ac_ltlibobjs + + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking that generated files are newer than configure" >&5 +$as_echo_n "checking that generated files are newer than configure... " >&6; } + if test -n "$am_sleep_pid"; then + # Hide warnings about reused PIDs. + wait $am_sleep_pid 2>/dev/null + fi + { $as_echo "$as_me:${as_lineno-$LINENO}: result: done" >&5 +$as_echo "done" >&6; } + if test -n "$EXEEXT"; then + am__EXEEXT_TRUE= + am__EXEEXT_FALSE='#' +else + am__EXEEXT_TRUE='#' + am__EXEEXT_FALSE= +fi + +if test -z "${AMDEP_TRUE}" && test -z "${AMDEP_FALSE}"; then + as_fn_error $? "conditional \"AMDEP\" was never defined. +Usually this means the macro was only invoked conditionally." "$LINENO" 5 +fi +if test -z "${am__fastdepCC_TRUE}" && test -z "${am__fastdepCC_FALSE}"; then + as_fn_error $? "conditional \"am__fastdepCC\" was never defined. +Usually this means the macro was only invoked conditionally." "$LINENO" 5 +fi +if test -z "${ANSICXX_TRUE}" && test -z "${ANSICXX_FALSE}"; then + as_fn_error $? "conditional \"ANSICXX\" was never defined. +Usually this means the macro was only invoked conditionally." "$LINENO" 5 +fi +if test -z "${am__fastdepCXX_TRUE}" && test -z "${am__fastdepCXX_FALSE}"; then + as_fn_error $? "conditional \"am__fastdepCXX\" was never defined. +Usually this means the macro was only invoked conditionally." "$LINENO" 5 +fi +if test -z "${am__fastdepCXX_TRUE}" && test -z "${am__fastdepCXX_FALSE}"; then + as_fn_error $? "conditional \"am__fastdepCXX\" was never defined. +Usually this means the macro was only invoked conditionally." "$LINENO" 5 +fi +if test -z "${GL_COND_LIBTOOL_TRUE}" && test -z "${GL_COND_LIBTOOL_FALSE}"; then + as_fn_error $? "conditional \"GL_COND_LIBTOOL\" was never defined. +Usually this means the macro was only invoked conditionally." "$LINENO" 5 +fi +if test -z "${ANSICXX_TRUE}" && test -z "${ANSICXX_FALSE}"; then + as_fn_error $? "conditional \"ANSICXX\" was never defined. +Usually this means the macro was only invoked conditionally." "$LINENO" 5 +fi +if test -z "${am__fastdepCXX_TRUE}" && test -z "${am__fastdepCXX_FALSE}"; then + as_fn_error $? "conditional \"am__fastdepCXX\" was never defined. +Usually this means the macro was only invoked conditionally." "$LINENO" 5 +fi +if test -z "${am__fastdepCXX_TRUE}" && test -z "${am__fastdepCXX_FALSE}"; then + as_fn_error $? "conditional \"am__fastdepCXX\" was never defined. +Usually this means the macro was only invoked conditionally." "$LINENO" 5 +fi +if test -z "${GL_GENERATE_LIMITS_H_TRUE}" && test -z "${GL_GENERATE_LIMITS_H_FALSE}"; then + as_fn_error $? "conditional \"GL_GENERATE_LIMITS_H\" was never defined. +Usually this means the macro was only invoked conditionally." "$LINENO" 5 +fi +if test -z "${GL_GENERATE_LIMITS_H_TRUE}" && test -z "${GL_GENERATE_LIMITS_H_FALSE}"; then + as_fn_error $? "conditional \"GL_GENERATE_LIMITS_H\" was never defined. +Usually this means the macro was only invoked conditionally." "$LINENO" 5 +fi +if test -z "${GL_GENERATE_STDINT_H_TRUE}" && test -z "${GL_GENERATE_STDINT_H_FALSE}"; then + as_fn_error $? "conditional \"GL_GENERATE_STDINT_H\" was never defined. +Usually this means the macro was only invoked conditionally." "$LINENO" 5 +fi +if test -z "${GL_GENERATE_STDNORETURN_H_TRUE}" && test -z "${GL_GENERATE_STDNORETURN_H_FALSE}"; then + as_fn_error $? "conditional \"GL_GENERATE_STDNORETURN_H\" was never defined. +Usually this means the macro was only invoked conditionally." "$LINENO" 5 +fi + + gl_libobjs= + gl_ltlibobjs= + if test -n "$gl_LIBOBJS"; then + # Remove the extension. + sed_drop_objext='s/\.o$//;s/\.obj$//' + for i in `for i in $gl_LIBOBJS; do echo "$i"; done | sed -e "$sed_drop_objext" | sort | uniq`; do + gl_libobjs="$gl_libobjs $i.$ac_objext" + gl_ltlibobjs="$gl_ltlibobjs $i.lo" + done + fi + gl_LIBOBJS=$gl_libobjs + + gl_LTLIBOBJS=$gl_ltlibobjs + + + + gltests_libobjs= + gltests_ltlibobjs= + if test -n "$gltests_LIBOBJS"; then + # Remove the extension. + sed_drop_objext='s/\.o$//;s/\.obj$//' + for i in `for i in $gltests_LIBOBJS; do echo "$i"; done | sed -e "$sed_drop_objext" | sort | uniq`; do + gltests_libobjs="$gltests_libobjs $i.$ac_objext" + gltests_ltlibobjs="$gltests_ltlibobjs $i.lo" + done + fi + gltests_LIBOBJS=$gltests_libobjs + + gltests_LTLIBOBJS=$gltests_ltlibobjs + + + +: "${CONFIG_STATUS=./config.status}" +ac_write_fail=0 +ac_clean_files_save=$ac_clean_files +ac_clean_files="$ac_clean_files $CONFIG_STATUS" +{ $as_echo "$as_me:${as_lineno-$LINENO}: creating $CONFIG_STATUS" >&5 +$as_echo "$as_me: creating $CONFIG_STATUS" >&6;} +as_write_fail=0 +cat >$CONFIG_STATUS <<_ASEOF || as_write_fail=1 +#! $SHELL +# Generated by $as_me. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false + +SHELL=\${CONFIG_SHELL-$SHELL} +export SHELL +_ASEOF +cat >>$CONFIG_STATUS <<\_ASEOF || as_write_fail=1 +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +_ASEOF +test $as_write_fail = 0 && chmod +x $CONFIG_STATUS || ac_write_fail=1 + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +# Save the log message, to keep $0 and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. +ac_log=" +This file was extended by GNU libffcall $as_me 2.2, which was +generated by GNU Autoconf 2.69. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +on `(hostname || uname -n) 2>/dev/null | sed 1q` +" + +_ACEOF + +case $ac_config_files in *" +"*) set x $ac_config_files; shift; ac_config_files=$*;; +esac + +case $ac_config_headers in *" +"*) set x $ac_config_headers; shift; ac_config_headers=$*;; +esac + + +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +# Files that config.status was made for. +config_files="$ac_config_files" +config_headers="$ac_config_headers" +config_commands="$ac_config_commands" + +_ACEOF + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +ac_cs_usage="\ +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. + +Usage: $0 [OPTION]... [TAG]... + + -h, --help print this help, then exit + -V, --version print version number and configuration settings, then exit + --config print configuration, then exit + -q, --quiet, --silent + do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + --header=FILE[:TEMPLATE] + instantiate the configuration header FILE + +Configuration files: +$config_files + +Configuration headers: +$config_headers + +Configuration commands: +$config_commands + +Report bugs to . +GNU libffcall home page: . +General help using GNU software: ." + +_ACEOF +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`" +ac_cs_version="\\ +GNU libffcall config.status 2.2 +configured by $0, generated by GNU Autoconf 2.69, + with options \\"\$ac_cs_config\\" + +Copyright (C) 2012 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." + +ac_pwd='$ac_pwd' +srcdir='$srcdir' +INSTALL='$INSTALL' +MKDIR_P='$MKDIR_P' +AWK='$AWK' +test -n "\$AWK" || AWK=awk +_ACEOF + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +# The default lists apply if the user does not specify any file. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=?*) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` + ac_shift=: + ;; + --*=) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg= + ac_shift=: + ;; + *) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + esac + + case $ac_option in + # Handling of the options. + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) + $as_echo "$ac_cs_version"; exit ;; + --config | --confi | --conf | --con | --co | --c ) + $as_echo "$ac_cs_config"; exit ;; + --debug | --debu | --deb | --de | --d | -d ) + debug=: ;; + --file | --fil | --fi | --f ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + '') as_fn_error $? "missing file argument" ;; + esac + as_fn_append CONFIG_FILES " '$ac_optarg'" + ac_need_defaults=false;; + --header | --heade | --head | --hea ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append CONFIG_HEADERS " '$ac_optarg'" + ac_need_defaults=false;; + --he | --h) + # Conflict between --help and --header + as_fn_error $? "ambiguous option: \`$1' +Try \`$0 --help' for more information.";; + --help | --hel | -h ) + $as_echo "$ac_cs_usage"; exit ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) as_fn_error $? "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; + + *) as_fn_append ac_config_targets " $1" + ac_need_defaults=false ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +_ACEOF +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +if \$ac_cs_recheck; then + set X $SHELL '$0' $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion + shift + \$as_echo "running CONFIG_SHELL=$SHELL \$*" >&6 + CONFIG_SHELL='$SHELL' + export CONFIG_SHELL + exec "\$@" +fi + +_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX + $as_echo "$ac_log" +} >&5 + +_ACEOF +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +# +# INIT-COMMANDS +# +AMDEP_TRUE="$AMDEP_TRUE" ac_aux_dir="$ac_aux_dir" + + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +sed_quote_subst='$sed_quote_subst' +double_quote_subst='$double_quote_subst' +delay_variable_subst='$delay_variable_subst' +macro_version='`$ECHO "$macro_version" | $SED "$delay_single_quote_subst"`' +macro_revision='`$ECHO "$macro_revision" | $SED "$delay_single_quote_subst"`' +AS='`$ECHO "$AS" | $SED "$delay_single_quote_subst"`' +DLLTOOL='`$ECHO "$DLLTOOL" | $SED "$delay_single_quote_subst"`' +OBJDUMP='`$ECHO "$OBJDUMP" | $SED "$delay_single_quote_subst"`' +enable_shared='`$ECHO "$enable_shared" | $SED "$delay_single_quote_subst"`' +enable_static='`$ECHO "$enable_static" | $SED "$delay_single_quote_subst"`' +pic_mode='`$ECHO "$pic_mode" | $SED "$delay_single_quote_subst"`' +enable_fast_install='`$ECHO "$enable_fast_install" | $SED "$delay_single_quote_subst"`' +shared_archive_member_spec='`$ECHO "$shared_archive_member_spec" | $SED "$delay_single_quote_subst"`' +SHELL='`$ECHO "$SHELL" | $SED "$delay_single_quote_subst"`' +ECHO='`$ECHO "$ECHO" | $SED "$delay_single_quote_subst"`' +PATH_SEPARATOR='`$ECHO "$PATH_SEPARATOR" | $SED "$delay_single_quote_subst"`' +host_alias='`$ECHO "$host_alias" | $SED "$delay_single_quote_subst"`' +host='`$ECHO "$host" | $SED "$delay_single_quote_subst"`' +host_os='`$ECHO "$host_os" | $SED "$delay_single_quote_subst"`' +build_alias='`$ECHO "$build_alias" | $SED "$delay_single_quote_subst"`' +build='`$ECHO "$build" | $SED "$delay_single_quote_subst"`' +build_os='`$ECHO "$build_os" | $SED "$delay_single_quote_subst"`' +SED='`$ECHO "$SED" | $SED "$delay_single_quote_subst"`' +Xsed='`$ECHO "$Xsed" | $SED "$delay_single_quote_subst"`' +GREP='`$ECHO "$GREP" | $SED "$delay_single_quote_subst"`' +EGREP='`$ECHO "$EGREP" | $SED "$delay_single_quote_subst"`' +FGREP='`$ECHO "$FGREP" | $SED "$delay_single_quote_subst"`' +LD='`$ECHO "$LD" | $SED "$delay_single_quote_subst"`' +NM='`$ECHO "$NM" | $SED "$delay_single_quote_subst"`' +LN_S='`$ECHO "$LN_S" | $SED "$delay_single_quote_subst"`' +max_cmd_len='`$ECHO "$max_cmd_len" | $SED "$delay_single_quote_subst"`' +ac_objext='`$ECHO "$ac_objext" | $SED "$delay_single_quote_subst"`' +exeext='`$ECHO "$exeext" | $SED "$delay_single_quote_subst"`' +lt_unset='`$ECHO "$lt_unset" | $SED "$delay_single_quote_subst"`' +lt_SP2NL='`$ECHO "$lt_SP2NL" | $SED "$delay_single_quote_subst"`' +lt_NL2SP='`$ECHO "$lt_NL2SP" | $SED "$delay_single_quote_subst"`' +lt_cv_to_host_file_cmd='`$ECHO "$lt_cv_to_host_file_cmd" | $SED "$delay_single_quote_subst"`' +lt_cv_to_tool_file_cmd='`$ECHO "$lt_cv_to_tool_file_cmd" | $SED "$delay_single_quote_subst"`' +reload_flag='`$ECHO "$reload_flag" | $SED "$delay_single_quote_subst"`' +reload_cmds='`$ECHO "$reload_cmds" | $SED "$delay_single_quote_subst"`' +deplibs_check_method='`$ECHO "$deplibs_check_method" | $SED "$delay_single_quote_subst"`' +file_magic_cmd='`$ECHO "$file_magic_cmd" | $SED "$delay_single_quote_subst"`' +file_magic_glob='`$ECHO "$file_magic_glob" | $SED "$delay_single_quote_subst"`' +want_nocaseglob='`$ECHO "$want_nocaseglob" | $SED "$delay_single_quote_subst"`' +sharedlib_from_linklib_cmd='`$ECHO "$sharedlib_from_linklib_cmd" | $SED "$delay_single_quote_subst"`' +AR='`$ECHO "$AR" | $SED "$delay_single_quote_subst"`' +AR_FLAGS='`$ECHO "$AR_FLAGS" | $SED "$delay_single_quote_subst"`' +archiver_list_spec='`$ECHO "$archiver_list_spec" | $SED "$delay_single_quote_subst"`' +STRIP='`$ECHO "$STRIP" | $SED "$delay_single_quote_subst"`' +RANLIB='`$ECHO "$RANLIB" | $SED "$delay_single_quote_subst"`' +old_postinstall_cmds='`$ECHO "$old_postinstall_cmds" | $SED "$delay_single_quote_subst"`' +old_postuninstall_cmds='`$ECHO "$old_postuninstall_cmds" | $SED "$delay_single_quote_subst"`' +old_archive_cmds='`$ECHO "$old_archive_cmds" | $SED "$delay_single_quote_subst"`' +lock_old_archive_extraction='`$ECHO "$lock_old_archive_extraction" | $SED "$delay_single_quote_subst"`' +CC='`$ECHO "$CC" | $SED "$delay_single_quote_subst"`' +CFLAGS='`$ECHO "$CFLAGS" | $SED "$delay_single_quote_subst"`' +compiler='`$ECHO "$compiler" | $SED "$delay_single_quote_subst"`' +GCC='`$ECHO "$GCC" | $SED "$delay_single_quote_subst"`' +lt_cv_sys_global_symbol_pipe='`$ECHO "$lt_cv_sys_global_symbol_pipe" | $SED "$delay_single_quote_subst"`' +lt_cv_sys_global_symbol_to_cdecl='`$ECHO "$lt_cv_sys_global_symbol_to_cdecl" | $SED "$delay_single_quote_subst"`' +lt_cv_sys_global_symbol_to_import='`$ECHO "$lt_cv_sys_global_symbol_to_import" | $SED "$delay_single_quote_subst"`' +lt_cv_sys_global_symbol_to_c_name_address='`$ECHO "$lt_cv_sys_global_symbol_to_c_name_address" | $SED "$delay_single_quote_subst"`' +lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='`$ECHO "$lt_cv_sys_global_symbol_to_c_name_address_lib_prefix" | $SED "$delay_single_quote_subst"`' +lt_cv_nm_interface='`$ECHO "$lt_cv_nm_interface" | $SED "$delay_single_quote_subst"`' +nm_file_list_spec='`$ECHO "$nm_file_list_spec" | $SED "$delay_single_quote_subst"`' +lt_sysroot='`$ECHO "$lt_sysroot" | $SED "$delay_single_quote_subst"`' +lt_cv_truncate_bin='`$ECHO "$lt_cv_truncate_bin" | $SED "$delay_single_quote_subst"`' +objdir='`$ECHO "$objdir" | $SED "$delay_single_quote_subst"`' +MAGIC_CMD='`$ECHO "$MAGIC_CMD" | $SED "$delay_single_quote_subst"`' +lt_prog_compiler_no_builtin_flag='`$ECHO "$lt_prog_compiler_no_builtin_flag" | $SED "$delay_single_quote_subst"`' +lt_prog_compiler_pic='`$ECHO "$lt_prog_compiler_pic" | $SED "$delay_single_quote_subst"`' +lt_prog_compiler_wl='`$ECHO "$lt_prog_compiler_wl" | $SED "$delay_single_quote_subst"`' +lt_prog_compiler_static='`$ECHO "$lt_prog_compiler_static" | $SED "$delay_single_quote_subst"`' +lt_cv_prog_compiler_c_o='`$ECHO "$lt_cv_prog_compiler_c_o" | $SED "$delay_single_quote_subst"`' +need_locks='`$ECHO "$need_locks" | $SED "$delay_single_quote_subst"`' +MANIFEST_TOOL='`$ECHO "$MANIFEST_TOOL" | $SED "$delay_single_quote_subst"`' +DSYMUTIL='`$ECHO "$DSYMUTIL" | $SED "$delay_single_quote_subst"`' +NMEDIT='`$ECHO "$NMEDIT" | $SED "$delay_single_quote_subst"`' +LIPO='`$ECHO "$LIPO" | $SED "$delay_single_quote_subst"`' +OTOOL='`$ECHO "$OTOOL" | $SED "$delay_single_quote_subst"`' +OTOOL64='`$ECHO "$OTOOL64" | $SED "$delay_single_quote_subst"`' +libext='`$ECHO "$libext" | $SED "$delay_single_quote_subst"`' +shrext_cmds='`$ECHO "$shrext_cmds" | $SED "$delay_single_quote_subst"`' +extract_expsyms_cmds='`$ECHO "$extract_expsyms_cmds" | $SED "$delay_single_quote_subst"`' +archive_cmds_need_lc='`$ECHO "$archive_cmds_need_lc" | $SED "$delay_single_quote_subst"`' +enable_shared_with_static_runtimes='`$ECHO "$enable_shared_with_static_runtimes" | $SED "$delay_single_quote_subst"`' +export_dynamic_flag_spec='`$ECHO "$export_dynamic_flag_spec" | $SED "$delay_single_quote_subst"`' +whole_archive_flag_spec='`$ECHO "$whole_archive_flag_spec" | $SED "$delay_single_quote_subst"`' +compiler_needs_object='`$ECHO "$compiler_needs_object" | $SED "$delay_single_quote_subst"`' +old_archive_from_new_cmds='`$ECHO "$old_archive_from_new_cmds" | $SED "$delay_single_quote_subst"`' +old_archive_from_expsyms_cmds='`$ECHO "$old_archive_from_expsyms_cmds" | $SED "$delay_single_quote_subst"`' +archive_cmds='`$ECHO "$archive_cmds" | $SED "$delay_single_quote_subst"`' +archive_expsym_cmds='`$ECHO "$archive_expsym_cmds" | $SED "$delay_single_quote_subst"`' +module_cmds='`$ECHO "$module_cmds" | $SED "$delay_single_quote_subst"`' +module_expsym_cmds='`$ECHO "$module_expsym_cmds" | $SED "$delay_single_quote_subst"`' +with_gnu_ld='`$ECHO "$with_gnu_ld" | $SED "$delay_single_quote_subst"`' +allow_undefined_flag='`$ECHO "$allow_undefined_flag" | $SED "$delay_single_quote_subst"`' +no_undefined_flag='`$ECHO "$no_undefined_flag" | $SED "$delay_single_quote_subst"`' +hardcode_libdir_flag_spec='`$ECHO "$hardcode_libdir_flag_spec" | $SED "$delay_single_quote_subst"`' +hardcode_libdir_separator='`$ECHO "$hardcode_libdir_separator" | $SED "$delay_single_quote_subst"`' +hardcode_direct='`$ECHO "$hardcode_direct" | $SED "$delay_single_quote_subst"`' +hardcode_direct_absolute='`$ECHO "$hardcode_direct_absolute" | $SED "$delay_single_quote_subst"`' +hardcode_minus_L='`$ECHO "$hardcode_minus_L" | $SED "$delay_single_quote_subst"`' +hardcode_shlibpath_var='`$ECHO "$hardcode_shlibpath_var" | $SED "$delay_single_quote_subst"`' +hardcode_automatic='`$ECHO "$hardcode_automatic" | $SED "$delay_single_quote_subst"`' +inherit_rpath='`$ECHO "$inherit_rpath" | $SED "$delay_single_quote_subst"`' +link_all_deplibs='`$ECHO "$link_all_deplibs" | $SED "$delay_single_quote_subst"`' +always_export_symbols='`$ECHO "$always_export_symbols" | $SED "$delay_single_quote_subst"`' +export_symbols_cmds='`$ECHO "$export_symbols_cmds" | $SED "$delay_single_quote_subst"`' +exclude_expsyms='`$ECHO "$exclude_expsyms" | $SED "$delay_single_quote_subst"`' +include_expsyms='`$ECHO "$include_expsyms" | $SED "$delay_single_quote_subst"`' +prelink_cmds='`$ECHO "$prelink_cmds" | $SED "$delay_single_quote_subst"`' +postlink_cmds='`$ECHO "$postlink_cmds" | $SED "$delay_single_quote_subst"`' +file_list_spec='`$ECHO "$file_list_spec" | $SED "$delay_single_quote_subst"`' +variables_saved_for_relink='`$ECHO "$variables_saved_for_relink" | $SED "$delay_single_quote_subst"`' +need_lib_prefix='`$ECHO "$need_lib_prefix" | $SED "$delay_single_quote_subst"`' +need_version='`$ECHO "$need_version" | $SED "$delay_single_quote_subst"`' +version_type='`$ECHO "$version_type" | $SED "$delay_single_quote_subst"`' +runpath_var='`$ECHO "$runpath_var" | $SED "$delay_single_quote_subst"`' +shlibpath_var='`$ECHO "$shlibpath_var" | $SED "$delay_single_quote_subst"`' +shlibpath_overrides_runpath='`$ECHO "$shlibpath_overrides_runpath" | $SED "$delay_single_quote_subst"`' +libname_spec='`$ECHO "$libname_spec" | $SED "$delay_single_quote_subst"`' +library_names_spec='`$ECHO "$library_names_spec" | $SED "$delay_single_quote_subst"`' +soname_spec='`$ECHO "$soname_spec" | $SED "$delay_single_quote_subst"`' +install_override_mode='`$ECHO "$install_override_mode" | $SED "$delay_single_quote_subst"`' +postinstall_cmds='`$ECHO "$postinstall_cmds" | $SED "$delay_single_quote_subst"`' +postuninstall_cmds='`$ECHO "$postuninstall_cmds" | $SED "$delay_single_quote_subst"`' +finish_cmds='`$ECHO "$finish_cmds" | $SED "$delay_single_quote_subst"`' +finish_eval='`$ECHO "$finish_eval" | $SED "$delay_single_quote_subst"`' +hardcode_into_libs='`$ECHO "$hardcode_into_libs" | $SED "$delay_single_quote_subst"`' +sys_lib_search_path_spec='`$ECHO "$sys_lib_search_path_spec" | $SED "$delay_single_quote_subst"`' +configure_time_dlsearch_path='`$ECHO "$configure_time_dlsearch_path" | $SED "$delay_single_quote_subst"`' +configure_time_lt_sys_library_path='`$ECHO "$configure_time_lt_sys_library_path" | $SED "$delay_single_quote_subst"`' +hardcode_action='`$ECHO "$hardcode_action" | $SED "$delay_single_quote_subst"`' +enable_dlopen='`$ECHO "$enable_dlopen" | $SED "$delay_single_quote_subst"`' +enable_dlopen_self='`$ECHO "$enable_dlopen_self" | $SED "$delay_single_quote_subst"`' +enable_dlopen_self_static='`$ECHO "$enable_dlopen_self_static" | $SED "$delay_single_quote_subst"`' +old_striplib='`$ECHO "$old_striplib" | $SED "$delay_single_quote_subst"`' +striplib='`$ECHO "$striplib" | $SED "$delay_single_quote_subst"`' + +LTCC='$LTCC' +LTCFLAGS='$LTCFLAGS' +compiler='$compiler_DEFAULT' + +# A function that is used when there is no print builtin or printf. +func_fallback_echo () +{ + eval 'cat <<_LTECHO_EOF +\$1 +_LTECHO_EOF' +} + +# Quote evaled strings. +for var in AS \ +DLLTOOL \ +OBJDUMP \ +SHELL \ +ECHO \ +PATH_SEPARATOR \ +SED \ +GREP \ +EGREP \ +FGREP \ +LD \ +NM \ +LN_S \ +lt_SP2NL \ +lt_NL2SP \ +reload_flag \ +deplibs_check_method \ +file_magic_cmd \ +file_magic_glob \ +want_nocaseglob \ +sharedlib_from_linklib_cmd \ +AR \ +AR_FLAGS \ +archiver_list_spec \ +STRIP \ +RANLIB \ +CC \ +CFLAGS \ +compiler \ +lt_cv_sys_global_symbol_pipe \ +lt_cv_sys_global_symbol_to_cdecl \ +lt_cv_sys_global_symbol_to_import \ +lt_cv_sys_global_symbol_to_c_name_address \ +lt_cv_sys_global_symbol_to_c_name_address_lib_prefix \ +lt_cv_nm_interface \ +nm_file_list_spec \ +lt_cv_truncate_bin \ +lt_prog_compiler_no_builtin_flag \ +lt_prog_compiler_pic \ +lt_prog_compiler_wl \ +lt_prog_compiler_static \ +lt_cv_prog_compiler_c_o \ +need_locks \ +MANIFEST_TOOL \ +DSYMUTIL \ +NMEDIT \ +LIPO \ +OTOOL \ +OTOOL64 \ +shrext_cmds \ +export_dynamic_flag_spec \ +whole_archive_flag_spec \ +compiler_needs_object \ +with_gnu_ld \ +allow_undefined_flag \ +no_undefined_flag \ +hardcode_libdir_flag_spec \ +hardcode_libdir_separator \ +exclude_expsyms \ +include_expsyms \ +file_list_spec \ +variables_saved_for_relink \ +libname_spec \ +library_names_spec \ +soname_spec \ +install_override_mode \ +finish_eval \ +old_striplib \ +striplib; do + case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in + *[\\\\\\\`\\"\\\$]*) + eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED \\"\\\$sed_quote_subst\\"\\\`\\\\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\"" + ;; + esac +done + +# Double-quote double-evaled strings. +for var in reload_cmds \ +old_postinstall_cmds \ +old_postuninstall_cmds \ +old_archive_cmds \ +extract_expsyms_cmds \ +old_archive_from_new_cmds \ +old_archive_from_expsyms_cmds \ +archive_cmds \ +archive_expsym_cmds \ +module_cmds \ +module_expsym_cmds \ +export_symbols_cmds \ +prelink_cmds \ +postlink_cmds \ +postinstall_cmds \ +postuninstall_cmds \ +finish_cmds \ +sys_lib_search_path_spec \ +configure_time_dlsearch_path \ +configure_time_lt_sys_library_path; do + case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in + *[\\\\\\\`\\"\\\$]*) + eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED -e \\"\\\$double_quote_subst\\" -e \\"\\\$sed_quote_subst\\" -e \\"\\\$delay_variable_subst\\"\\\`\\\\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\"" + ;; + esac +done + +ac_aux_dir='$ac_aux_dir' + +# See if we are running on zsh, and set the options that allow our +# commands through without removal of \ escapes INIT. +if test -n "\${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST +fi + + + PACKAGE='$PACKAGE' + VERSION='$VERSION' + RM='$RM' + ofile='$ofile' + + + + +_ACEOF + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 + +# Handling of arguments. +for ac_config_target in $ac_config_targets +do + case $ac_config_target in + "config.h") CONFIG_HEADERS="$CONFIG_HEADERS config.h" ;; + "ffcall-version.h") CONFIG_HEADERS="$CONFIG_HEADERS ffcall-version.h:ffcall-version.in.h" ;; + "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; + "gnulib-lib/Makefile") CONFIG_FILES="$CONFIG_FILES gnulib-lib/Makefile" ;; + "avcall/Makefile") CONFIG_FILES="$CONFIG_FILES avcall/Makefile" ;; + "vacall/Makefile") CONFIG_FILES="$CONFIG_FILES vacall/Makefile" ;; + "trampoline/Makefile") CONFIG_FILES="$CONFIG_FILES trampoline/Makefile" ;; + "callback/Makefile") CONFIG_FILES="$CONFIG_FILES callback/Makefile" ;; + "callback/vacall_r/Makefile") CONFIG_FILES="$CONFIG_FILES callback/vacall_r/Makefile" ;; + "callback/trampoline_r/Makefile") CONFIG_FILES="$CONFIG_FILES callback/trampoline_r/Makefile" ;; + "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; + "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; + + *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; + esac +done + + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files + test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers + test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason against having it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Hook for its removal unless debugging. +# Note that there is a small window in which the directory will not be cleaned: +# after its creation but before its name has been assigned to `$tmp'. +$debug || +{ + tmp= ac_tmp= + trap 'exit_status=$? + : "${ac_tmp:=$tmp}" + { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status +' 0 + trap 'as_fn_exit 1' 1 2 13 15 +} +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && + test -d "$tmp" +} || +{ + tmp=./conf$$-$RANDOM + (umask 077 && mkdir "$tmp") +} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 +ac_tmp=$tmp + +# Set up the scripts for CONFIG_FILES section. +# No need to generate them if there are no CONFIG_FILES. +# This happens for instance with `./config.status config.h'. +if test -n "$CONFIG_FILES"; then + + +ac_cr=`echo X | tr X '\015'` +# On cygwin, bash can eat \r inside `` if the user requested igncr. +# But we know of no other shell where ac_cr would be empty at this +# point, so we can use a bashism as a fallback. +if test "x$ac_cr" = x; then + eval ac_cr=\$\'\\r\' +fi +ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` +if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then + ac_cs_awk_cr='\\r' +else + ac_cs_awk_cr=$ac_cr +fi + +echo 'BEGIN {' >"$ac_tmp/subs1.awk" && +_ACEOF + + +{ + echo "cat >conf$$subs.awk <<_ACEOF" && + echo "$ac_subst_vars" | sed 's/.*/&!$&$ac_delim/' && + echo "_ACEOF" +} >conf$$subs.sh || + as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 +ac_delim_num=`echo "$ac_subst_vars" | grep -c '^'` +ac_delim='%!_!# ' +for ac_last_try in false false false false false :; do + . ./conf$$subs.sh || + as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 + + ac_delim_n=`sed -n "s/.*$ac_delim\$/X/p" conf$$subs.awk | grep -c X` + if test $ac_delim_n = $ac_delim_num; then + break + elif $ac_last_try; then + as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 + else + ac_delim="$ac_delim!$ac_delim _$ac_delim!! " + fi +done +rm -f conf$$subs.sh + +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +cat >>"\$ac_tmp/subs1.awk" <<\\_ACAWK && +_ACEOF +sed -n ' +h +s/^/S["/; s/!.*/"]=/ +p +g +s/^[^!]*!// +:repl +t repl +s/'"$ac_delim"'$// +t delim +:nl +h +s/\(.\{148\}\)..*/\1/ +t more1 +s/["\\]/\\&/g; s/^/"/; s/$/\\n"\\/ +p +n +b repl +:more1 +s/["\\]/\\&/g; s/^/"/; s/$/"\\/ +p +g +s/.\{148\}// +t nl +:delim +h +s/\(.\{148\}\)..*/\1/ +t more2 +s/["\\]/\\&/g; s/^/"/; s/$/"/ +p +b +:more2 +s/["\\]/\\&/g; s/^/"/; s/$/"\\/ +p +g +s/.\{148\}// +t delim +' >$CONFIG_STATUS || ac_write_fail=1 +rm -f conf$$subs.awk +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +_ACAWK +cat >>"\$ac_tmp/subs1.awk" <<_ACAWK && + for (key in S) S_is_set[key] = 1 + FS = "" + +} +{ + line = $ 0 + nfields = split(line, field, "@") + substed = 0 + len = length(field[1]) + for (i = 2; i < nfields; i++) { + key = field[i] + keylen = length(key) + if (S_is_set[key]) { + value = S[key] + line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) + len += length(value) + length(field[++i]) + substed = 1 + } else + len += 1 + keylen + } + + print line +} + +_ACAWK +_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then + sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" +else + cat +fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ + || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 +_ACEOF + +# VPATH may cause trouble with some makes, so we remove sole $(srcdir), +# ${srcdir} and @srcdir@ entries from VPATH if srcdir is ".", strip leading and +# trailing colons and then remove the whole line if VPATH becomes empty +# (actually we leave an empty line to preserve line numbers). +if test "x$srcdir" = x.; then + ac_vpsub='/^[ ]*VPATH[ ]*=[ ]*/{ +h +s/// +s/^/:/ +s/[ ]*$/:/ +s/:\$(srcdir):/:/g +s/:\${srcdir}:/:/g +s/:@srcdir@:/:/g +s/^:*// +s/:*$// +x +s/\(=[ ]*\).*/\1/ +G +s/\n// +s/^[^=]*=[ ]*$// +}' +fi + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +fi # test -n "$CONFIG_FILES" + +# Set up the scripts for CONFIG_HEADERS section. +# No need to generate them if there are no CONFIG_HEADERS. +# This happens for instance with `./config.status Makefile'. +if test -n "$CONFIG_HEADERS"; then +cat >"$ac_tmp/defines.awk" <<\_ACAWK || +BEGIN { +_ACEOF + +# Transform confdefs.h into an awk script `defines.awk', embedded as +# here-document in config.status, that substitutes the proper values into +# config.h.in to produce config.h. + +# Create a delimiter string that does not exist in confdefs.h, to ease +# handling of long lines. +ac_delim='%!_!# ' +for ac_last_try in false false :; do + ac_tt=`sed -n "/$ac_delim/p" confdefs.h` + if test -z "$ac_tt"; then + break + elif $ac_last_try; then + as_fn_error $? "could not make $CONFIG_HEADERS" "$LINENO" 5 + else + ac_delim="$ac_delim!$ac_delim _$ac_delim!! " + fi +done + +# For the awk script, D is an array of macro values keyed by name, +# likewise P contains macro parameters if any. Preserve backslash +# newline sequences. + +ac_word_re=[_$as_cr_Letters][_$as_cr_alnum]* +sed -n ' +s/.\{148\}/&'"$ac_delim"'/g +t rset +:rset +s/^[ ]*#[ ]*define[ ][ ]*/ / +t def +d +:def +s/\\$// +t bsnl +s/["\\]/\\&/g +s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\ +D["\1"]=" \3"/p +s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2"/p +d +:bsnl +s/["\\]/\\&/g +s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\ +D["\1"]=" \3\\\\\\n"\\/p +t cont +s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2\\\\\\n"\\/p +t cont +d +:cont +n +s/.\{148\}/&'"$ac_delim"'/g +t clear +:clear +s/\\$// +t bsnlc +s/["\\]/\\&/g; s/^/"/; s/$/"/p +d +:bsnlc +s/["\\]/\\&/g; s/^/"/; s/$/\\\\\\n"\\/p +b cont +' >$CONFIG_STATUS || ac_write_fail=1 + +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 + for (key in D) D_is_set[key] = 1 + FS = "" +} +/^[\t ]*#[\t ]*(define|undef)[\t ]+$ac_word_re([\t (]|\$)/ { + line = \$ 0 + split(line, arg, " ") + if (arg[1] == "#") { + defundef = arg[2] + mac1 = arg[3] + } else { + defundef = substr(arg[1], 2) + mac1 = arg[2] + } + split(mac1, mac2, "(") #) + macro = mac2[1] + prefix = substr(line, 1, index(line, defundef) - 1) + if (D_is_set[macro]) { + # Preserve the white space surrounding the "#". + print prefix "define", macro P[macro] D[macro] + next + } else { + # Replace #undef with comments. This is necessary, for example, + # in the case of _POSIX_SOURCE, which is predefined and required + # on some systems where configure will not decide to define it. + if (defundef == "undef") { + print "/*", prefix defundef, macro, "*/" + next + } + } +} +{ print } +_ACAWK +_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 + as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 +fi # test -n "$CONFIG_HEADERS" + + +eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" +shift +for ac_tag +do + case $ac_tag in + :[FHLC]) ac_mode=$ac_tag; continue;; + esac + case $ac_mode$ac_tag in + :[FHL]*:*);; + :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; + :[FH]-) ac_tag=-:-;; + :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; + esac + ac_save_IFS=$IFS + IFS=: + set x $ac_tag + IFS=$ac_save_IFS + shift + ac_file=$1 + shift + + case $ac_mode in + :L) ac_source=$1;; + :[FH]) + ac_file_inputs= + for ac_f + do + case $ac_f in + -) ac_f="$ac_tmp/stdin";; + *) # Look for the file first in the build tree, then in the source tree + # (if the path is not absolute). The absolute path cannot be DOS-style, + # because $ac_f cannot contain `:'. + test -f "$ac_f" || + case $ac_f in + [\\/$]*) false;; + *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; + esac || + as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; + esac + case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" + done + + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + configure_input='Generated from '` + $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' + if test x"$ac_file" != x-; then + configure_input="$ac_file. $configure_input" + { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +$as_echo "$as_me: creating $ac_file" >&6;} + fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`$as_echo "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac + + case $ac_tag in + *:-:* | *:-) cat >"$ac_tmp/stdin" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; + esac + ;; + esac + + ac_dir=`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir="$ac_dir"; as_fn_mkdir_p + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + + case $ac_mode in + :F) + # + # CONFIG_FILE + # + + case $INSTALL in + [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; + *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; + esac + ac_MKDIR_P=$MKDIR_P + case $MKDIR_P in + [\\/$]* | ?:[\\/]* ) ;; + */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;; + esac +_ACEOF + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +# If the template does not know about datarootdir, expand it. +# FIXME: This hack should be removed a few years after 2.60. +ac_datarootdir_hack=; ac_datarootdir_seen= +ac_sed_dataroot=' +/datarootdir/ { + p + q +} +/@datadir@/p +/@docdir@/p +/@infodir@/p +/@localedir@/p +/@mandir@/p' +case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in +*datarootdir*) ac_datarootdir_seen=yes;; +*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} +_ACEOF +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 + ac_datarootdir_hack=' + s&@datadir@&$datadir&g + s&@docdir@&$docdir&g + s&@infodir@&$infodir&g + s&@localedir@&$localedir&g + s&@mandir@&$mandir&g + s&\\\${datarootdir}&$datarootdir&g' ;; +esac +_ACEOF + +# Neutralize VPATH when `$srcdir' = `.'. +# Shell code in configure.ac might set extrasub. +# FIXME: do we really want to maintain this feature? +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +ac_sed_extra="$ac_vpsub +$extrasub +_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +:t +/@[a-zA-Z_][a-zA-Z_0-9]*@/!b +s|@configure_input@|$ac_sed_conf_input|;t t +s&@top_builddir@&$ac_top_builddir_sub&;t t +s&@top_build_prefix@&$ac_top_build_prefix&;t t +s&@srcdir@&$ac_srcdir&;t t +s&@abs_srcdir@&$ac_abs_srcdir&;t t +s&@top_srcdir@&$ac_top_srcdir&;t t +s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t +s&@builddir@&$ac_builddir&;t t +s&@abs_builddir@&$ac_abs_builddir&;t t +s&@abs_top_builddir@&$ac_abs_top_builddir&;t t +s&@INSTALL@&$ac_INSTALL&;t t +s&@MKDIR_P@&$ac_MKDIR_P&;t t +$ac_datarootdir_hack +" +eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ + >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + +test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && + { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && + { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ + "$ac_tmp/out"`; test -z "$ac_out"; } && + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&5 +$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&2;} + + rm -f "$ac_tmp/stdin" + case $ac_file in + -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; + *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; + esac \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + ;; + :H) + # + # CONFIG_HEADER + # + if test x"$ac_file" != x-; then + { + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" + } >"$ac_tmp/config.h" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then + { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 +$as_echo "$as_me: $ac_file is unchanged" >&6;} + else + rm -f "$ac_file" + mv "$ac_tmp/config.h" "$ac_file" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + fi + else + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ + || as_fn_error $? "could not create -" "$LINENO" 5 + fi +# Compute "$ac_file"'s index in $config_headers. +_am_arg="$ac_file" +_am_stamp_count=1 +for _am_header in $config_headers :; do + case $_am_header in + $_am_arg | $_am_arg:* ) + break ;; + * ) + _am_stamp_count=`expr $_am_stamp_count + 1` ;; + esac +done +echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" || +$as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$_am_arg" : 'X\(//\)[^/]' \| \ + X"$_am_arg" : 'X\(//\)$' \| \ + X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$_am_arg" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'`/stamp-h$_am_stamp_count + ;; + + :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 +$as_echo "$as_me: executing $ac_file commands" >&6;} + ;; + esac + + + case $ac_file$ac_mode in + "depfiles":C) test x"$AMDEP_TRUE" != x"" || { + # Older Autoconf quotes --file arguments for eval, but not when files + # are listed without --file. Let's play safe and only enable the eval + # if we detect the quoting. + case $CONFIG_FILES in + *\'*) eval set x "$CONFIG_FILES" ;; + *) set x $CONFIG_FILES ;; + esac + shift + for mf + do + # Strip MF so we end up with the name of the file. + mf=`echo "$mf" | sed -e 's/:.*$//'` + # Check whether this is an Automake generated Makefile or not. + # We used to match only the files named 'Makefile.in', but + # some people rename them; so instead we look at the file content. + # Grep'ing the first line is not enough: some people post-process + # each Makefile.in and add a new line on top of each file to say so. + # Grep'ing the whole file is not good either: AIX grep has a line + # limit of 2048, but all sed's we know have understand at least 4000. + if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then + dirpart=`$as_dirname -- "$mf" || +$as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$mf" : 'X\(//\)[^/]' \| \ + X"$mf" : 'X\(//\)$' \| \ + X"$mf" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$mf" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + else + continue + fi + # Extract the definition of DEPDIR, am__include, and am__quote + # from the Makefile without running 'make'. + DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` + test -z "$DEPDIR" && continue + am__include=`sed -n 's/^am__include = //p' < "$mf"` + test -z "$am__include" && continue + am__quote=`sed -n 's/^am__quote = //p' < "$mf"` + # Find all dependency output files, they are included files with + # $(DEPDIR) in their names. We invoke sed twice because it is the + # simplest approach to changing $(DEPDIR) to its actual value in the + # expansion. + for file in `sed -n " + s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ + sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do + # Make sure the directory exists. + test -f "$dirpart/$file" && continue + fdir=`$as_dirname -- "$file" || +$as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$file" : 'X\(//\)[^/]' \| \ + X"$file" : 'X\(//\)$' \| \ + X"$file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir=$dirpart/$fdir; as_fn_mkdir_p + # echo "creating $dirpart/$file" + echo '# dummy' > "$dirpart/$file" + done + done +} + ;; + "libtool":C) + + # See if we are running on zsh, and set the options that allow our + # commands through without removal of \ escapes. + if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST + fi + + cfgfile=${ofile}T + trap "$RM \"$cfgfile\"; exit 1" 1 2 15 + $RM "$cfgfile" + + cat <<_LT_EOF >> "$cfgfile" +#! $SHELL +# Generated automatically by $as_me ($PACKAGE) $VERSION +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: +# NOTE: Changes made to this file will be lost: look at ltmain.sh. + +# Provide generalized library-building support services. +# Written by Gordon Matzigkeit, 1996 + +# Copyright (C) 2014 Free Software Foundation, Inc. +# This is free software; see the source for copying conditions. There is NO +# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +# GNU Libtool is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of of the License, or +# (at your option) any later version. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program or library that is built +# using GNU Libtool, you may include this file under the same +# distribution terms that you use for the rest of that program. +# +# GNU Libtool is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + + +# The names of the tagged configurations supported by this script. +available_tags='' + +# Configured defaults for sys_lib_dlsearch_path munging. +: \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"} + +# ### BEGIN LIBTOOL CONFIG + +# Which release of libtool.m4 was used? +macro_version=$macro_version +macro_revision=$macro_revision + +# Assembler program. +AS=$lt_AS + +# DLL creation program. +DLLTOOL=$lt_DLLTOOL + +# Object dumper program. +OBJDUMP=$lt_OBJDUMP + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# What type of objects to build. +pic_mode=$pic_mode + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# Shared archive member basename,for filename based shared library versioning on AIX. +shared_archive_member_spec=$shared_archive_member_spec + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# An echo program that protects backslashes. +ECHO=$lt_ECHO + +# The PATH separator for the build system. +PATH_SEPARATOR=$lt_PATH_SEPARATOR + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# A sed program that does not truncate output. +SED=$lt_SED + +# Sed that helps us avoid accidentally triggering echo(1) options like -n. +Xsed="\$SED -e 1s/^X//" + +# A grep program that handles long lines. +GREP=$lt_GREP + +# An ERE matcher. +EGREP=$lt_EGREP + +# A literal string matcher. +FGREP=$lt_FGREP + +# A BSD- or MS-compatible name lister. +NM=$lt_NM + +# Whether we need soft or hard links. +LN_S=$lt_LN_S + +# What is the maximum length of a command? +max_cmd_len=$max_cmd_len + +# Object file suffix (normally "o"). +objext=$ac_objext + +# Executable file suffix (normally ""). +exeext=$exeext + +# whether the shell understands "unset". +lt_unset=$lt_unset + +# turn spaces into newlines. +SP2NL=$lt_lt_SP2NL + +# turn newlines into spaces. +NL2SP=$lt_lt_NL2SP + +# convert \$build file names to \$host format. +to_host_file_cmd=$lt_cv_to_host_file_cmd + +# convert \$build files to toolchain format. +to_tool_file_cmd=$lt_cv_to_tool_file_cmd + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method = "file_magic". +file_magic_cmd=$lt_file_magic_cmd + +# How to find potential files when deplibs_check_method = "file_magic". +file_magic_glob=$lt_file_magic_glob + +# Find potential files using nocaseglob when deplibs_check_method = "file_magic". +want_nocaseglob=$lt_want_nocaseglob + +# Command to associate shared and link libraries. +sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd + +# The archiver. +AR=$lt_AR + +# Flags to create an archive. +AR_FLAGS=$lt_AR_FLAGS + +# How to feed a file listing to the archiver. +archiver_list_spec=$lt_archiver_list_spec + +# A symbol stripping program. +STRIP=$lt_STRIP + +# Commands used to install an old-style archive. +RANLIB=$lt_RANLIB +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Whether to use a lock for old archive extraction. +lock_old_archive_extraction=$lock_old_archive_extraction + +# A C compiler. +LTCC=$lt_CC + +# LTCC compiler flags. +LTCFLAGS=$lt_CFLAGS + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration. +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm into a list of symbols to manually relocate. +global_symbol_to_import=$lt_lt_cv_sys_global_symbol_to_import + +# Transform the output of nm in a C name address pair. +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# Transform the output of nm in a C name address pair when lib prefix is needed. +global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix + +# The name lister interface. +nm_interface=$lt_lt_cv_nm_interface + +# Specify filename containing input files for \$NM. +nm_file_list_spec=$lt_nm_file_list_spec + +# The root where to search for dependent libraries,and where our libraries should be installed. +lt_sysroot=$lt_sysroot + +# Command to truncate a binary pipe. +lt_truncate_bin=$lt_lt_cv_truncate_bin + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# Used to examine libraries when file_magic_cmd begins with "file". +MAGIC_CMD=$MAGIC_CMD + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Manifest tool. +MANIFEST_TOOL=$lt_MANIFEST_TOOL + +# Tool to manipulate archived DWARF debug symbol files on Mac OS X. +DSYMUTIL=$lt_DSYMUTIL + +# Tool to change global to local symbols on Mac OS X. +NMEDIT=$lt_NMEDIT + +# Tool to manipulate fat objects and archives on Mac OS X. +LIPO=$lt_LIPO + +# ldd/readelf like tool for Mach-O binaries on Mac OS X. +OTOOL=$lt_OTOOL + +# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. +OTOOL64=$lt_OTOOL64 + +# Old archive suffix (normally "a"). +libext=$libext + +# Shared library suffix (normally ".so"). +shrext_cmds=$lt_shrext_cmds + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at link time. +variables_saved_for_relink=$lt_variables_saved_for_relink + +# Do we need the "lib" prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Library versioning type. +version_type=$version_type + +# Shared library runtime path variable. +runpath_var=$runpath_var + +# Shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Permission mode override for installation of shared libraries. +install_override_mode=$lt_install_override_mode + +# Command to use after installation of a shared archive. +postinstall_cmds=$lt_postinstall_cmds + +# Command to use after uninstallation of a shared archive. +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# As "finish_cmds", except a single script fragment to be evaled but +# not shown. +finish_eval=$lt_finish_eval + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Compile-time system search path for libraries. +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Detected run-time system search path for libraries. +sys_lib_dlsearch_path_spec=$lt_configure_time_dlsearch_path + +# Explicit LT_SYS_LIBRARY_PATH set during ./configure time. +configure_time_lt_sys_library_path=$lt_configure_time_lt_sys_library_path + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + + +# The linker used to build libraries. +LD=$lt_LD + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds + +# A language specific compiler. +CC=$lt_compiler + +# Is the compiler the GNU compiler? +with_gcc=$GCC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds +archive_expsym_cmds=$lt_archive_expsym_cmds + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds +module_expsym_cmds=$lt_module_expsym_cmds + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action + +# ### END LIBTOOL CONFIG + +_LT_EOF + + cat <<'_LT_EOF' >> "$cfgfile" + +# ### BEGIN FUNCTIONS SHARED WITH CONFIGURE + +# func_munge_path_list VARIABLE PATH +# ----------------------------------- +# VARIABLE is name of variable containing _space_ separated list of +# directories to be munged by the contents of PATH, which is string +# having a format: +# "DIR[:DIR]:" +# string "DIR[ DIR]" will be prepended to VARIABLE +# ":DIR[:DIR]" +# string "DIR[ DIR]" will be appended to VARIABLE +# "DIRP[:DIRP]::[DIRA:]DIRA" +# string "DIRP[ DIRP]" will be prepended to VARIABLE and string +# "DIRA[ DIRA]" will be appended to VARIABLE +# "DIR[:DIR]" +# VARIABLE will be replaced by "DIR[ DIR]" +func_munge_path_list () +{ + case x$2 in + x) + ;; + *:) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\" + ;; + x:*) + eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\" + ;; + *::*) + eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" + eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\" + ;; + *) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\" + ;; + esac +} + + +# Calculate cc_basename. Skip known compiler wrappers and cross-prefix. +func_cc_basename () +{ + for cc_temp in $*""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac + done + func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` +} + + +# ### END FUNCTIONS SHARED WITH CONFIGURE + +_LT_EOF + + case $host_os in + aix3*) + cat <<\_LT_EOF >> "$cfgfile" +# AIX sometimes has problems with the GCC collect2 program. For some +# reason, if we set the COLLECT_NAMES environment variable, the problems +# vanish in a puff of smoke. +if test set != "${COLLECT_NAMES+set}"; then + COLLECT_NAMES= + export COLLECT_NAMES +fi +_LT_EOF + ;; + esac + + +ltmain=$ac_aux_dir/ltmain.sh + + + # We use sed instead of cat because bash on DJGPP gets confused if + # if finds mixed CR/LF and LF-only lines. Since sed operates in + # text mode, it properly converts lines to CR/LF. This bash problem + # is reportedly fixed, but why not run on old versions too? + sed '$q' "$ltmain" >> "$cfgfile" \ + || (rm -f "$cfgfile"; exit 1) + + mv -f "$cfgfile" "$ofile" || + (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") + chmod +x "$ofile" + + ;; + + esac +done # for ac_tag + + +as_fn_exit 0 +_ACEOF +ac_clean_files=$ac_clean_files_save + +test $ac_write_fail = 0 || + as_fn_error $? "write failure creating $CONFIG_STATUS" "$LINENO" 5 + + +# configure is writing to config.log, and then calls config.status. +# config.status does its own redirection, appending to config.log. +# Unfortunately, on DOS this fails, as config.log is still kept open +# by configure, so config.status won't be able to write to it; its +# output is simply discarded. So we exec the FD to /dev/null, +# effectively closing config.log, so it can be properly (re)opened and +# appended to by config.status. When coming back to configure, we +# need to make the FD available again. +if test "$no_create" != yes; then + ac_cs_success=: + ac_config_status_args= + test "$silent" = yes && + ac_config_status_args="$ac_config_status_args --quiet" + exec 5>/dev/null + $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false + exec 5>>config.log + # Use ||, not &&, to avoid exiting from the if with $? = 1, which + # would make configure fail if this is the last instruction. + $ac_cs_success || as_fn_exit 1 +fi +if test -n "$ac_unrecognized_opts" && test "$enable_option_checking" != no; then + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5 +$as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2;} +fi + diff --git a/configure.ac b/configure.ac new file mode 100644 index 0000000..dc10be1 --- /dev/null +++ b/configure.ac @@ -0,0 +1,229 @@ +dnl AUTOCONF configuration for LIBFFCALL +dnl Copyright 1995-2019 Bruno Haible +dnl Copyright 2003-2010 Sam Steingold +dnl +dnl This program is free software: you can redistribute it and/or modify +dnl it under the terms of the GNU General Public License as published by +dnl the Free Software Foundation; either version 2 of the License, or +dnl (at your option) any later version. +dnl +dnl This program is distributed in the hope that it will be useful, +dnl but WITHOUT ANY WARRANTY; without even the implied warranty of +dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +dnl GNU General Public License for more details. +dnl +dnl You should have received a copy of the GNU General Public License +dnl along with this program. If not, see . +dnl + +AC_INIT([GNU libffcall],m4_normalize(m4_esyscmd([cat VERSION])),[https://savannah.gnu.org/projects/libffcall],[libffcall]) +AC_CONFIG_AUX_DIR([build-aux]) +AM_INIT_AUTOMAKE([]) + +AC_CONFIG_SRCDIR([trampoline/trampoline.h]) + +AC_CONFIG_HEADERS([config.h]) +AC_CONFIG_HEADERS([ffcall-version.h:ffcall-version.in.h]) + +AC_CONFIG_FILES([Makefile]) +AC_CONFIG_FILES([gnulib-lib/Makefile]) +AC_CONFIG_FILES([avcall/Makefile]) +AC_CONFIG_FILES([vacall/Makefile]) +AC_CONFIG_FILES([trampoline/Makefile]) +AC_CONFIG_FILES([callback/Makefile]) +AC_CONFIG_FILES([callback/vacall_r/Makefile]) +AC_CONFIG_FILES([callback/trampoline_r/Makefile]) + +dnl Substitutable version number. +changequote(,) +sed_extract_major='/^[0-9]/{s/^\([0-9]*\).*/\1/p;q;} +i\ +0 +q +' +sed_extract_minor='/^[0-9][0-9]*[.][0-9]/{s/^[0-9]*[.]\([0-9]*\).*/\1/p;q;} +i\ +0 +q +' +changequote([,]) +version_major=`echo "${PACKAGE_VERSION}" | sed -n -e "$sed_extract_major"` +version_minor=`echo "${PACKAGE_VERSION}" | sed -n -e "$sed_extract_minor"` +HEXVERSION=`printf '0x%02X%02X' $version_major $version_minor` +AC_DEFINE_UNQUOTED([LIBFFCALL_VERSION], [$HEXVERSION], [Version number: (major<<8) + minor]) + +AC_PROG_MAKE_SET + +dnl The libraries are built in C. +AC_PROG_CC +AC_PROG_CPP +AC_PROG_GCC_TRADITIONAL +CL_CC_GCC +CL_AS_UNDERSCORE +dnl But some tests use C++. +gl_PROG_ANSI_CXX([CXX], [ANSICXX]) +if test "$CXX" != no; then + IF_CXX='' +else + IF_CXX='# ' +fi +AC_SUBST([IF_CXX]) + +dnl For a 64-bit build on AIX, AC_PROG_RANLIB is not sufficient. +gl_PROG_AR_RANLIB + +dnl The Makefiles have a few special rules for MSVC. +AC_EGREP_CPP([MicrosoftCompiler], + [ +#ifdef _MSC_VER +MicrosoftCompiler +#endif + ], + [IF_MSVC='' + IFNOT_MSVC='# ' + ], + [IF_MSVC='# ' + IFNOT_MSVC='' + ]) +AC_SUBST([IF_MSVC]) +AC_SUBST([IFNOT_MSVC]) + +AC_PROG_INSTALL +CL_PROG_LN + +gl_EARLY + +gl_HOST_CPU_C_ABI +FFCALL_ENDIANNESS + +PACKAGE=libffcall +LT_INIT([win32-dll]) + +dnl Checks for avcall, vacall, vacall_r. +FFCALL_SMALL_STRUCT_RETURN +FFCALL_IREG_FLOAT_RETURN + +dnl Checks for trampoline, trampoline_r. +AC_CHECK_HEADERS([unistd_h]) +AC_HEADER_STDC +CL_GETPAGESIZE +CL_MACH_VM +FFCALL_MMAP +FFCALL_MPROTECT +CL_SHM_H +CL_SHM +FFCALL_CODEEXEC +FFCALL_CODEEXEC_PAX + +dnl List of object files for trampoline, trampoline_r. +CPU_OBJECTS='' +if test ${HOST_CPU_C_ABI} = hppa -o ${HOST_CPU_C_ABI} = hppa64 -o ${HOST_CPU_C_ABI} = powerpc64 -o ${HOST_CPU_C_ABI} = ia64; then + CPU_OBJECTS="$CPU_OBJECTS "'tramp-$(CPU).lo' +fi +if test ${HOST_CPU_C_ABI} = powerpc; then + case "${host_os}" in + aix*) CPU_OBJECTS="$CPU_OBJECTS "'tramp-$(CPU).lo' ;; + *) ;; + esac +fi +if test ${HOST_CPU_C_ABI} = sparc -o ${HOST_CPU_C_ABI} = sparc64 -o ${HOST_CPU_C_ABI} = alpha -o ${HOST_CPU_C_ABI} = hppa -o ${HOST_CPU_C_ABI} = hppa64 -o ${HOST_CPU_C_ABI} = powerpc64-elfv2; then + CPU_OBJECTS="$CPU_OBJECTS "'cache-$(CPU).lo' +fi +if test ${HOST_CPU_C_ABI} = powerpc; then + case "${host_os}" in + aix*) ;; + *) CPU_OBJECTS="$CPU_OBJECTS "'cache-$(CPU).lo' ;; + esac +fi +AC_SUBST([CPU_OBJECTS]) +case "${HOST_CPU_C_ABI}" in + mips* | riscv*) + AC_CHECK_HEADERS([sys/cachectl.h]) + ;; +esac + +dnl Work around GCC bug : +dnl GCC, configured with --enable-default-pie on SPARC, miscompiles hand-written +dnl .s files that happen to access global variables. The recommended workaround +dnl is to use '#ifdef __PIC__' in the .s file; this works fine on 64-bit SPARC. +dnl On 32-bit SPARC, however, the resulting executable is still broken. The +dnl workaround here is to use -fno-pie. This option is available in gcc >= 3.4. +WORKAROUND_BUG_81653='' +if test ${HOST_CPU_C_ABI} = sparc && test -n "$GCC"; then + gcc_version=`LC_ALL=C ${CC} -v 2>&1 | grep version | sed -n -e '$p' | sed -e 's/.*version //g' -e 's/gcc //'` + case "$gcc_version" in + 2.* | 3.[0-3]*) ;; + *) WORKAROUND_BUG_81653='-fno-pie' ;; + esac +fi +AC_SUBST([WORKAROUND_BUG_81653]) + +dnl Some parts of avcall and vacall need to interpret memory words as 'float' +dnl or 'double' entities. This violates the strict type-based aliasing rules +dnl of C. In other words, we still use C as a portable assembler, but now the +dnl compilers want to outsmart us. There are two ways to tell them not to do +dnl this: to use union types, or specific compiler options. I prefer to do it +dnl through compiler options, because union types produce trouble with +dnl alignments. +if test -n "$GCC"; then + DISABLE_TYPE_BASED_ALIASING='-fno-strict-aliasing' +else + case "$host_os" in + aix*) dnl for xlc + DISABLE_TYPE_BASED_ALIASING='-qalias=noansi' + ;; + *) + AC_EGREP_CPP([yes], + [#ifdef __SUNPRO_C + yes + #endif + ], + [dnl for SUNWspro cc + DISABLE_TYPE_BASED_ALIASING='-xalias_level=weak' + ], + [DISABLE_TYPE_BASED_ALIASING='']) + ;; + esac +fi +AC_SUBST([DISABLE_TYPE_BASED_ALIASING]) + +gl_INIT + +dnl This piece of sed script replaces every line containing '@subdir@' +dnl by several consecutive lines, each referencing one subdir. +extrasub="$extrasub"' +/@subdir@/{ +h +g +s/@subdir@/gnulib-lib/g +p +g +s/@subdir@/avcall/g +p +g +s/@subdir@/vacall/g +p +g +s/@subdir@/trampoline/g +p +g +s/@subdir@/callback/g +p +d +} +' +dnl Likewise for the callback subdirectory. +extrasub="$extrasub"' +/@callback_subdir@/{ +h +g +s/@callback_subdir@/vacall_r/g +p +g +s/@callback_subdir@/trampoline_r/g +p +d +} +' + +AC_OUTPUT diff --git a/dummy/ffcall-version.h b/dummy/ffcall-version.h new file mode 100644 index 0000000..1635283 --- /dev/null +++ b/dummy/ffcall-version.h @@ -0,0 +1 @@ +/* This file is intentionally empty. */ diff --git a/ffcall-abi.h b/ffcall-abi.h new file mode 100644 index 0000000..117fd65 --- /dev/null +++ b/ffcall-abi.h @@ -0,0 +1,251 @@ +/* + * Copyright 2017-2019 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +/* Define some canonical CPU and ABI indicators. + References: + - host-cpu-c-abi.m4 from gnulib + - https://sourceforge.net/p/predef/wiki/Architectures/ + - GCC source code: definitions of macro TARGET_CPU_CPP_BUILTINS + - clang source code: defineMacro invocations in Basic/Targets.cpp, + especially in getTargetDefines methods. + Limitation: Unlike host-cpu-c-abi.m4, this preprocessor-based approach + can not reliably distinguish __arm__ and __armhf__. + */ + +#ifndef __i386__ +#if defined(__i386__) /* GCC, clang */ || defined(__i386) /* Sun C */ || defined(_M_IX86) /* MSVC */ +#define __i386__ 1 +#endif +#endif + +#ifndef __m68k__ +#if defined(__m68k__) /* GCC */ +#define __m68k__ 1 +#endif +#endif + +/* On mips, there are three ABIs: + - 32 or o32: It defines _MIPS_SIM == _ABIO32 and _MIPS_SZLONG == 32. + - n32: It defines _MIPS_SIM == _ABIN32 and _MIPS_SZLONG == 32. + - 64: It defines _MIPS_SZLONG == 64. + */ +/* Note: When __mipsn32__ or __mips64__ is defined, __mips__ may or may not be + defined as well. To test for the MIPS o32 ABI, use + #if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) + */ +/* To distinguish little-endian and big-endian arm, use the preprocessor + defines _MIPSEB vs. _MIPSEL. */ +#ifndef __mips__ +#if defined(__mips) /* GCC, clang, IRIX cc */ /* Note: GCC, clang also define __mips__. */ +#define __mips__ 1 +#endif +#endif +#ifndef __mipsn32__ +#if defined(__mips__) && (_MIPS_SIM == _ABIN32) +#define __mipsn32__ 1 +#endif +#endif +#ifndef __mips64__ +#if defined(__mips__) && defined(_MIPS_SZLONG) && (_MIPS_SZLONG == 64) +#define __mips64__ 1 +#endif +#endif + +/* Note: When __sparc64__ is defined, __sparc__ may or may not be defined as + well. To test for the SPARC 32-bit ABI, use + #if defined(__sparc__) && !defined(__sparc64__) + */ +#ifndef __sparc__ +#if defined(__sparc) /* GCC, clang, Sun C */ /* Note: GCC, clang also define __sparc__. */ +#define __sparc__ 1 +#endif +#endif +#ifndef __sparc64__ +#if defined(__sparcv9) /* GCC/Solaris, Sun C */ || defined(__arch64__) /* GCC/Linux */ +#define __sparc64__ 1 +#endif +#endif + +#ifndef __alpha__ +#if defined(__alpha) /* GCC, DEC C */ /* Note: GCC also defines __alpha__. */ +#define __alpha__ 1 +#endif +#endif + +/* On hppa, the C compiler may be generating 32-bit code or 64-bit code. + In the latter case, it defines _LP64 and __LP64__. + */ +/* Note: When __hppa64__ is defined, __hppa__ may or may not be defined as well. + To test for the HP-PA 32-bit ABI, use + #if defined(__hppa__) && !defined(__hppa64__) + */ +#ifndef __hppa__ +#if defined(__hppa) /* GCC, HP C */ /* Note: GCC also defines __hppa__. */ +#define __hppa__ 1 +#endif +#endif +#ifndef __hppa64__ +#if defined(__hppa__) && defined(__LP64__) +#define __hppa64__ 1 +#endif +#endif + +/* Distinguish arm which passes floating-point arguments and return values + in integer registers (r0, r1, ...) - this is gcc -mfloat-abi=soft or + gcc -mfloat-abi=softfp - from arm which passes them in float registers + (s0, s1, ...) and double registers (d0, d1, ...) - this is + gcc -mfloat-abi=hard. GCC 4.6 or newer sets the preprocessor defines + __ARM_PCS (for the first case) and __ARM_PCS_VFP (for the second case), + but older GCC does not. */ +/* Note: When __armhf__ is defined, __arm__ may or may not be defined as well. + To test for the ARM ABI that does not use floating-point registers for + parameter passing, use + #if defined(__arm__) && !defined(__armhf__) + */ +/* To distinguish little-endian and big-endian arm, use the preprocessor + defines __ARMEL__ vs. __ARMEB__. */ +#ifndef __arm__ +#if defined(__arm__) /* GCC, clang */ || defined(_M_ARM) /* MSVC */ +#define __arm__ 1 +#endif +#endif +#ifndef __armhf__ +#if defined(__arm__) && defined(__ARM_PCS_VFP) /* GCC */ +#define __armhf__ 1 +#endif +#endif + +/* On arm64 systems, the C compiler may be generating code in one of these ABIs: + - aarch64 instruction set, 64-bit pointers, 64-bit 'long': arm64. + - aarch64 instruction set, 32-bit pointers, 32-bit 'long': arm64-ilp32. + - 32-bit instruction set, 32-bit pointers, 32-bit 'long': arm or armhf + (see above). + */ +/* Note: When __arm64_ilp32__ is defined, __arm64__ may or may not be defined as + well. To test for the arm64 64-bit ABI, use + #if defined(__arm64__) && !defined(__arm64_ilp32__) + */ +/* To distinguish little-endian and big-endian arm64, use the preprocessor + defines __AARCH64EL__ vs. __AARCH64EB__. */ +#ifndef __arm64__ +#if defined(__aarch64__) /* GCC, clang */ || defined(_M_ARM64) /* MSVC */ +#define __arm64__ 1 +#endif +#endif +#ifndef __arm64_ilp32__ +#if defined(__arm64__) && (defined(__ILP32__) || defined (_ILP32)) +#define __arm64_ilp32__ 1 +#endif +#endif + +/* On powerpc and powerpc64, different ABIs are in use on AIX vs. Mac OS X vs. + Linux,*BSD. To distinguish them, use the OS dependent defines + #if defined(_AIX) + #if (defined(__MACH__) && defined(__APPLE__)) + #if !(defined(_AIX) || (defined(__MACH__) && defined(__APPLE__))) + */ +/* On powerpc64, there are two ABIs on Linux: The AIX compatible one and the + ELFv2 one. The latter defines _CALL_ELF=2. + */ +/* Note: When __powerpc64__ is defined, __powerpc__ may or may not be defined as + well. To test for the SPARC 32-bit ABI, use + #if defined(__powerpc__) && !defined(__powerpc64__) + Note: When __powerpc64_elfv2__ is defined, __powerpc64__ may or may not be + defined as well. To test for the SPARC 32-bit ABI, use + #if defined(__powerpc64__) && !defined(__powerpc64_elfv2__) + */ +#ifndef __powerpc__ +#if defined(_ARCH_PPC) /* GCC, XLC */ /* Note: On AIX, Linux also __powerpc__ is defined; whereas on Mac OS X also __ppc__ is defined. On AIX also _IBMR2 is defined. */ +#define __powerpc__ 1 +#endif +#endif +#ifndef __powerpc64__ +#if defined(_ARCH_PPC64) /* GCC, XLC */ /* Note: On Linux, also __powerpc64__ is defined. */ +#define __powerpc64__ 1 +#endif +#endif +#ifndef __powerpc64_elfv2__ +#if defined(__powerpc64__) && defined(_CALL_ELF) && _CALL_ELF == 2 +#define __powerpc64_elfv2__ 1 +#endif +#endif + +/* On ia64 on HP-UX, the C compiler may be generating 64-bit code or 32-bit + code. In the latter case, it defines _ILP32. + */ +/* Note: When __ia64_ilp32__ is defined, __ia64__ may or may not be defined as + well. To test for the ia64 64-bit ABI, use + #if defined(__ia64__) && !defined(__ia64_ilp32__) + */ +#ifndef __ia64__ +#if defined(__ia64__) /* GCC, HP C */ /* Note: GCC, HP C also define __ia64. */ +#define __ia64__ 1 +#endif +#endif +#ifndef __ia64_ilp32__ +#if defined(__ia64__) && defined(_ILP32) +#define __ia64_ilp32__ 1 +#endif +#endif + +/* On x86_64 systems, the C compiler may be generating code in one of these ABIs: + - 64-bit instruction set, 64-bit pointers, 64-bit 'long': x86_64. + - 64-bit instruction set, 64-bit pointers, 32-bit 'long': x86_64 + with native Windows (mingw, MSVC). + - 64-bit instruction set, 32-bit pointers, 32-bit 'long': x86_64-x32. + - 32-bit instruction set, 32-bit pointers, 32-bit 'long': i386 (see above). */ +/* Note: When __x86_64_x32__ is defined, __x86_64__ may or may not be defined as + well. To test for the x86_64 64-bit ABI, use + #if defined(__x86_64__) && !defined(__x86_64_x32__) + */ +#ifndef __x86_64__ +#if (defined(__x86_64__) || defined(__amd64__)) /* GCC, clang, Sun C */ || (defined(_M_X64) || defined(_M_AMD64)) /* MSVC */ +#define __x86_64__ 1 +#endif +#endif +#ifndef __x86_64_x32__ +#if defined(__x86_64__) && (defined(__ILP32__) || defined(_ILP32)) +#define __x86_64_x32__ 1 +#endif +#endif + +/* Note: When __s390x__ is defined, __s390__ may or may not be defined as well. + To test for the S/390 31-bit ABI, use + #if defined(__s390__) && !defined(__s390x__) + */ +#ifndef __s390__ +#if defined(__s390__) /* GCC, clang */ +#define __s390__ 1 +#endif +#endif +#ifndef __s390x__ +#if defined(__s390x__) /* GCC, clang */ +#define __s390x__ 1 +#endif +#endif + +#ifndef __riscv32__ +#if defined(__riscv) && __riscv_xlen == 32 && !defined(__LP64__) /* GCC */ +#define __riscv32__ 1 +#endif +#endif + +#ifndef __riscv64__ +#if defined(__riscv) && __riscv_xlen == 64 && defined(__LP64__) /* GCC */ +#define __riscv64__ 1 +#endif +#endif diff --git a/ffcall-stdint.h b/ffcall-stdint.h new file mode 100644 index 0000000..125815c --- /dev/null +++ b/ffcall-stdint.h @@ -0,0 +1,40 @@ +/* + * Copyright 2017-2018 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +/* Replacement for a subset of . + We cannot use gnulib's portable replacement, because when + cross-compiling the various avcall-$(CPU).c and vacall-$(CPU).c files, + gnulib-generated files are not available. And the cross-compilers of + GCC version < 4.5 don't provide . */ + +/* Define integer types that are as large as a pointer, */ + +#if defined(__x86_64__) && defined(_WIN32) && !defined(__CYGWIN__) +/* An LLP64 platform. */ +typedef long long ff_intptr_t; +typedef unsigned long long ff_uintptr_t; +#else +/* An ILP32 or LP64 platform. */ +typedef long ff_intptr_t; +typedef unsigned long ff_uintptr_t; +#endif +#define intptr_t ff_intptr_t +#define uintptr_t ff_uintptr_t + +/* Verify at compile time that sizeof([u]intptr_t) == sizeof(void*). */ +typedef int intptr_verify[2*(sizeof(intptr_t) == sizeof(void*))-1]; +typedef int uintptr_verify[2*(sizeof(uintptr_t) == sizeof(void*))-1]; diff --git a/ffcall-version.c b/ffcall-version.c new file mode 100644 index 0000000..97484be --- /dev/null +++ b/ffcall-version.c @@ -0,0 +1,26 @@ +/* + * Copyright 2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "config.h" + +/* Specification. */ +#include "ffcall-version.h" + +int ffcall_get_version (void) +{ + return LIBFFCALL_VERSION; +} diff --git a/ffcall-version.in.h b/ffcall-version.in.h new file mode 100644 index 0000000..494ec15 --- /dev/null +++ b/ffcall-version.in.h @@ -0,0 +1,34 @@ +/* + * Copyright 2009-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#if !defined(FFCALL_VERSION_H) + +/* Version number of libffcall (include files): (major<<8) + minor. */ +#define LIBFFCALL_VERSION 0 + +#ifdef __cplusplus +extern "C" { +#endif + +/* Version number of libffcall (library): (major<<8) + minor. */ +extern int ffcall_get_version (void); + +#ifdef __cplusplus +} +#endif + +#endif /* FFCALL_VERSION_H */ diff --git a/gnulib-lib/Makefile.am b/gnulib-lib/Makefile.am new file mode 100644 index 0000000..2ecab06 --- /dev/null +++ b/gnulib-lib/Makefile.am @@ -0,0 +1,287 @@ +## DO NOT EDIT! GENERATED AUTOMATICALLY! +## Process this file with automake to produce Makefile.in. +# Copyright (C) 2002-2019 Free Software Foundation, Inc. +# +# This file is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# This file is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this file. If not, see . +# +# As a special exception to the GNU General Public License, +# this file may be distributed as part of a program that +# contains a configuration script generated by Autoconf, under +# the same distribution terms as the rest of that program. +# +# Generated by gnulib-tool. +# Reproduce by: +# gnulib-tool --import \ +# --lib=libgnu \ +# --source-base=gnulib-lib \ +# --m4-base=gnulib-m4 \ +# --doc-base=doc \ +# --tests-base=tests \ +# --aux-dir=build-aux \ +# --no-conditional-dependencies \ +# --libtool \ +# --macro-prefix=gl \ +# ansi-c++-opt \ +# host-cpu-c-abi \ +# lock \ +# longlong \ +# nocrash \ +# stdint \ +# stdnoreturn + +AUTOMAKE_OPTIONS = 1.11 gnits subdir-objects + +SUBDIRS = +noinst_HEADERS = +noinst_LIBRARIES = +noinst_LTLIBRARIES = +EXTRA_DIST = +BUILT_SOURCES = +SUFFIXES = +MOSTLYCLEANFILES = core *.stackdump +MOSTLYCLEANDIRS = +CLEANFILES = +DISTCLEANFILES = +MAINTAINERCLEANFILES = +# No GNU Make output. + +AM_CPPFLAGS = +AM_CFLAGS = + +noinst_LTLIBRARIES += libgnu.la + +libgnu_la_SOURCES = +libgnu_la_LIBADD = $(gl_LTLIBOBJS) +libgnu_la_DEPENDENCIES = $(gl_LTLIBOBJS) +EXTRA_libgnu_la_SOURCES = +libgnu_la_LDFLAGS = $(AM_LDFLAGS) +libgnu_la_LDFLAGS += -no-undefined +libgnu_la_LDFLAGS += $(LTLIBTHREAD) + +## begin gnulib module absolute-header + +# Use this preprocessor expression to decide whether #include_next works. +# Do not rely on a 'configure'-time test for this, since the expression +# might appear in an installed header, which is used by some other compiler. +HAVE_INCLUDE_NEXT = (__GNUC__ || 60000000 <= __DECC_VER) + +## end gnulib module absolute-header + +## begin gnulib module havelib + + +EXTRA_DIST += $(top_srcdir)/build-aux/config.rpath + +## end gnulib module havelib + +## begin gnulib module limits-h + +BUILT_SOURCES += $(LIMITS_H) + +# We need the following in order to create when the system +# doesn't have one that is compatible with GNU. +if GL_GENERATE_LIMITS_H +limits.h: limits.in.h $(top_builddir)/config.status + $(AM_V_GEN)rm -f $@-t $@ && \ + { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \ + sed -e 's|@''GUARD_PREFIX''@|GL|g' \ + -e 's|@''INCLUDE_NEXT''@|$(INCLUDE_NEXT)|g' \ + -e 's|@''PRAGMA_SYSTEM_HEADER''@|@PRAGMA_SYSTEM_HEADER@|g' \ + -e 's|@''PRAGMA_COLUMNS''@|@PRAGMA_COLUMNS@|g' \ + -e 's|@''NEXT_LIMITS_H''@|$(NEXT_LIMITS_H)|g' \ + < $(srcdir)/limits.in.h; \ + } > $@-t && \ + mv $@-t $@ +else +limits.h: $(top_builddir)/config.status + rm -f $@ +endif +MOSTLYCLEANFILES += limits.h limits.h-t + +EXTRA_DIST += limits.in.h + +## end gnulib module limits-h + +## begin gnulib module lock + +libgnu_la_SOURCES += glthread/lock.h glthread/lock.c + +## end gnulib module lock + +## begin gnulib module snippet/_Noreturn + +# Because this Makefile snippet defines a variable used by other +# gnulib Makefile snippets, it must be present in all makefiles that +# need it. This is ensured by the applicability 'all' defined above. + +_NORETURN_H=$(srcdir)/_Noreturn.h + +EXTRA_DIST += _Noreturn.h + +## end gnulib module snippet/_Noreturn + +## begin gnulib module stdint + +BUILT_SOURCES += $(STDINT_H) + +# We need the following in order to create when the system +# doesn't have one that works with the given compiler. +if GL_GENERATE_STDINT_H +stdint.h: stdint.in.h $(top_builddir)/config.status + $(AM_V_GEN)rm -f $@-t $@ && \ + { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ + sed -e 's|@''GUARD_PREFIX''@|GL|g' \ + -e 's/@''HAVE_STDINT_H''@/$(HAVE_STDINT_H)/g' \ + -e 's|@''INCLUDE_NEXT''@|$(INCLUDE_NEXT)|g' \ + -e 's|@''PRAGMA_SYSTEM_HEADER''@|@PRAGMA_SYSTEM_HEADER@|g' \ + -e 's|@''PRAGMA_COLUMNS''@|@PRAGMA_COLUMNS@|g' \ + -e 's|@''NEXT_STDINT_H''@|$(NEXT_STDINT_H)|g' \ + -e 's/@''HAVE_C99_STDINT_H''@/$(HAVE_C99_STDINT_H)/g' \ + -e 's/@''HAVE_SYS_TYPES_H''@/$(HAVE_SYS_TYPES_H)/g' \ + -e 's/@''HAVE_INTTYPES_H''@/$(HAVE_INTTYPES_H)/g' \ + -e 's/@''HAVE_SYS_INTTYPES_H''@/$(HAVE_SYS_INTTYPES_H)/g' \ + -e 's/@''HAVE_SYS_BITYPES_H''@/$(HAVE_SYS_BITYPES_H)/g' \ + -e 's/@''HAVE_WCHAR_H''@/$(HAVE_WCHAR_H)/g' \ + -e 's/@''HAVE_LONG_LONG_INT''@/$(HAVE_LONG_LONG_INT)/g' \ + -e 's/@''HAVE_UNSIGNED_LONG_LONG_INT''@/$(HAVE_UNSIGNED_LONG_LONG_INT)/g' \ + -e 's/@''APPLE_UNIVERSAL_BUILD''@/$(APPLE_UNIVERSAL_BUILD)/g' \ + -e 's/@''BITSIZEOF_PTRDIFF_T''@/$(BITSIZEOF_PTRDIFF_T)/g' \ + -e 's/@''PTRDIFF_T_SUFFIX''@/$(PTRDIFF_T_SUFFIX)/g' \ + -e 's/@''BITSIZEOF_SIG_ATOMIC_T''@/$(BITSIZEOF_SIG_ATOMIC_T)/g' \ + -e 's/@''HAVE_SIGNED_SIG_ATOMIC_T''@/$(HAVE_SIGNED_SIG_ATOMIC_T)/g' \ + -e 's/@''SIG_ATOMIC_T_SUFFIX''@/$(SIG_ATOMIC_T_SUFFIX)/g' \ + -e 's/@''BITSIZEOF_SIZE_T''@/$(BITSIZEOF_SIZE_T)/g' \ + -e 's/@''SIZE_T_SUFFIX''@/$(SIZE_T_SUFFIX)/g' \ + -e 's/@''BITSIZEOF_WCHAR_T''@/$(BITSIZEOF_WCHAR_T)/g' \ + -e 's/@''HAVE_SIGNED_WCHAR_T''@/$(HAVE_SIGNED_WCHAR_T)/g' \ + -e 's/@''WCHAR_T_SUFFIX''@/$(WCHAR_T_SUFFIX)/g' \ + -e 's/@''BITSIZEOF_WINT_T''@/$(BITSIZEOF_WINT_T)/g' \ + -e 's/@''HAVE_SIGNED_WINT_T''@/$(HAVE_SIGNED_WINT_T)/g' \ + -e 's/@''WINT_T_SUFFIX''@/$(WINT_T_SUFFIX)/g' \ + -e 's/@''GNULIB_OVERRIDES_WINT_T''@/$(GNULIB_OVERRIDES_WINT_T)/g' \ + < $(srcdir)/stdint.in.h; \ + } > $@-t && \ + mv $@-t $@ +else +stdint.h: $(top_builddir)/config.status + rm -f $@ +endif +MOSTLYCLEANFILES += stdint.h stdint.h-t + +EXTRA_DIST += stdint.in.h + +## end gnulib module stdint + +## begin gnulib module stdnoreturn + +BUILT_SOURCES += $(STDNORETURN_H) + +# We need the following in order to create when the system +# doesn't have one that works. +if GL_GENERATE_STDNORETURN_H +stdnoreturn.h: stdnoreturn.in.h $(top_builddir)/config.status $(_NORETURN_H) + $(AM_V_GEN)rm -f $@-t $@ && \ + { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \ + sed -e '/definition of _Noreturn/r $(_NORETURN_H)' \ + < $(srcdir)/stdnoreturn.in.h; \ + } > $@-t && \ + mv $@-t $@ +else +stdnoreturn.h: $(top_builddir)/config.status + rm -f $@ +endif +MOSTLYCLEANFILES += stdnoreturn.h stdnoreturn.h-t + +EXTRA_DIST += stdnoreturn.in.h + +## end gnulib module stdnoreturn + +## begin gnulib module sys_types + +BUILT_SOURCES += sys/types.h + +# We need the following in order to create when the system +# doesn't have one that works with the given compiler. +sys/types.h: sys_types.in.h $(top_builddir)/config.status + $(AM_V_at)$(MKDIR_P) sys + $(AM_V_GEN)rm -f $@-t $@ && \ + { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ + sed -e 's|@''GUARD_PREFIX''@|GL|g' \ + -e 's|@''INCLUDE_NEXT''@|$(INCLUDE_NEXT)|g' \ + -e 's|@''PRAGMA_SYSTEM_HEADER''@|@PRAGMA_SYSTEM_HEADER@|g' \ + -e 's|@''PRAGMA_COLUMNS''@|@PRAGMA_COLUMNS@|g' \ + -e 's|@''NEXT_SYS_TYPES_H''@|$(NEXT_SYS_TYPES_H)|g' \ + -e 's|@''WINDOWS_64_BIT_OFF_T''@|$(WINDOWS_64_BIT_OFF_T)|g' \ + -e 's|@''WINDOWS_STAT_INODES''@|$(WINDOWS_STAT_INODES)|g' \ + < $(srcdir)/sys_types.in.h; \ + } > $@-t && \ + mv $@-t $@ +MOSTLYCLEANFILES += sys/types.h sys/types.h-t + +EXTRA_DIST += sys_types.in.h + +## end gnulib module sys_types + +## begin gnulib module threadlib + +libgnu_la_SOURCES += glthread/threadlib.c + +EXTRA_DIST += $(top_srcdir)/build-aux/config.rpath + +## end gnulib module threadlib + +## begin gnulib module windows-mutex + + +EXTRA_DIST += windows-initguard.h windows-mutex.c windows-mutex.h + +EXTRA_libgnu_la_SOURCES += windows-mutex.c + +## end gnulib module windows-mutex + +## begin gnulib module windows-once + + +EXTRA_DIST += windows-once.c windows-once.h + +EXTRA_libgnu_la_SOURCES += windows-once.c + +## end gnulib module windows-once + +## begin gnulib module windows-recmutex + + +EXTRA_DIST += windows-initguard.h windows-recmutex.c windows-recmutex.h + +EXTRA_libgnu_la_SOURCES += windows-recmutex.c + +## end gnulib module windows-recmutex + +## begin gnulib module windows-rwlock + + +EXTRA_DIST += windows-initguard.h windows-rwlock.c windows-rwlock.h + +EXTRA_libgnu_la_SOURCES += windows-rwlock.c + +## end gnulib module windows-rwlock + + +mostlyclean-local: mostlyclean-generic + @for dir in '' $(MOSTLYCLEANDIRS); do \ + if test -n "$$dir" && test -d $$dir; then \ + echo "rmdir $$dir"; rmdir $$dir; \ + fi; \ + done; \ + : diff --git a/gnulib-lib/Makefile.in b/gnulib-lib/Makefile.in new file mode 100644 index 0000000..6482e98 --- /dev/null +++ b/gnulib-lib/Makefile.in @@ -0,0 +1,1013 @@ +# Makefile.in generated by automake 1.15.1 from Makefile.am. +# @configure_input@ + +# Copyright (C) 1994-2017 Free Software Foundation, Inc. + +# This Makefile.in is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY, to the extent permitted by law; without +# even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. + +@SET_MAKE@ + +# Copyright (C) 2002-2019 Free Software Foundation, Inc. +# +# This file is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# This file is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this file. If not, see . +# +# As a special exception to the GNU General Public License, +# this file may be distributed as part of a program that +# contains a configuration script generated by Autoconf, under +# the same distribution terms as the rest of that program. +# +# Generated by gnulib-tool. +# Reproduce by: +# gnulib-tool --import \ +# --lib=libgnu \ +# --source-base=gnulib-lib \ +# --m4-base=gnulib-m4 \ +# --doc-base=doc \ +# --tests-base=tests \ +# --aux-dir=build-aux \ +# --no-conditional-dependencies \ +# --libtool \ +# --macro-prefix=gl \ +# ansi-c++-opt \ +# host-cpu-c-abi \ +# lock \ +# longlong \ +# nocrash \ +# stdint \ +# stdnoreturn + + + +VPATH = @srcdir@ +am__is_gnu_make = { \ + if test -z '$(MAKELEVEL)'; then \ + false; \ + elif test -n '$(MAKE_HOST)'; then \ + true; \ + elif test -n '$(MAKE_VERSION)' && test -n '$(CURDIR)'; then \ + true; \ + else \ + false; \ + fi; \ +} +am__make_running_with_option = \ + case $${target_option-} in \ + ?) ;; \ + *) echo "am__make_running_with_option: internal error: invalid" \ + "target option '$${target_option-}' specified" >&2; \ + exit 1;; \ + esac; \ + has_opt=no; \ + sane_makeflags=$$MAKEFLAGS; \ + if $(am__is_gnu_make); then \ + sane_makeflags=$$MFLAGS; \ + else \ + case $$MAKEFLAGS in \ + *\\[\ \ ]*) \ + bs=\\; \ + sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ + | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ + esac; \ + fi; \ + skip_next=no; \ + strip_trailopt () \ + { \ + flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ + }; \ + for flg in $$sane_makeflags; do \ + test $$skip_next = yes && { skip_next=no; continue; }; \ + case $$flg in \ + *=*|--*) continue;; \ + -*I) strip_trailopt 'I'; skip_next=yes;; \ + -*I?*) strip_trailopt 'I';; \ + -*O) strip_trailopt 'O'; skip_next=yes;; \ + -*O?*) strip_trailopt 'O';; \ + -*l) strip_trailopt 'l'; skip_next=yes;; \ + -*l?*) strip_trailopt 'l';; \ + -[dEDm]) skip_next=yes;; \ + -[JT]) skip_next=yes;; \ + esac; \ + case $$flg in \ + *$$target_option*) has_opt=yes; break;; \ + esac; \ + done; \ + test $$has_opt = yes +am__make_dryrun = (target_option=n; $(am__make_running_with_option)) +am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) +pkgdatadir = $(datadir)/@PACKAGE@ +pkgincludedir = $(includedir)/@PACKAGE@ +pkglibdir = $(libdir)/@PACKAGE@ +pkglibexecdir = $(libexecdir)/@PACKAGE@ +am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd +install_sh_DATA = $(install_sh) -c -m 644 +install_sh_PROGRAM = $(install_sh) -c +install_sh_SCRIPT = $(install_sh) -c +INSTALL_HEADER = $(INSTALL_DATA) +transform = $(program_transform_name) +NORMAL_INSTALL = : +PRE_INSTALL = : +POST_INSTALL = : +NORMAL_UNINSTALL = : +PRE_UNINSTALL = : +POST_UNINSTALL = : +build_triplet = @build@ +host_triplet = @host@ +subdir = gnulib-lib +ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 +am__aclocal_m4_deps = $(top_srcdir)/gnulib-m4/00gnulib.m4 \ + $(top_srcdir)/gnulib-m4/absolute-header.m4 \ + $(top_srcdir)/gnulib-m4/ansi-c++.m4 \ + $(top_srcdir)/gnulib-m4/asm-underscore.m4 \ + $(top_srcdir)/gnulib-m4/extensions.m4 \ + $(top_srcdir)/gnulib-m4/gnulib-common.m4 \ + $(top_srcdir)/gnulib-m4/gnulib-comp.m4 \ + $(top_srcdir)/gnulib-m4/host-cpu-c-abi.m4 \ + $(top_srcdir)/gnulib-m4/include_next.m4 \ + $(top_srcdir)/gnulib-m4/limits-h.m4 \ + $(top_srcdir)/gnulib-m4/lock.m4 \ + $(top_srcdir)/gnulib-m4/longlong.m4 \ + $(top_srcdir)/gnulib-m4/multiarch.m4 \ + $(top_srcdir)/gnulib-m4/nocrash.m4 \ + $(top_srcdir)/gnulib-m4/off_t.m4 \ + $(top_srcdir)/gnulib-m4/onceonly.m4 \ + $(top_srcdir)/gnulib-m4/pthread_rwlock_rdlock.m4 \ + $(top_srcdir)/gnulib-m4/ssize_t.m4 \ + $(top_srcdir)/gnulib-m4/stdint.m4 \ + $(top_srcdir)/gnulib-m4/stdnoreturn.m4 \ + $(top_srcdir)/gnulib-m4/sys_types_h.m4 \ + $(top_srcdir)/gnulib-m4/threadlib.m4 \ + $(top_srcdir)/gnulib-m4/wint_t.m4 \ + $(top_srcdir)/m4/as-underscore.m4 $(top_srcdir)/m4/cc-gcc.m4 \ + $(top_srcdir)/m4/codeexec.m4 $(top_srcdir)/m4/endianness.m4 \ + $(top_srcdir)/m4/general.m4 $(top_srcdir)/m4/getpagesize.m4 \ + $(top_srcdir)/m4/ireg.m4 $(top_srcdir)/m4/libtool.m4 \ + $(top_srcdir)/m4/ln.m4 $(top_srcdir)/m4/ltoptions.m4 \ + $(top_srcdir)/m4/ltsugar.m4 $(top_srcdir)/m4/ltversion.m4 \ + $(top_srcdir)/m4/lt~obsolete.m4 $(top_srcdir)/m4/mach-vm.m4 \ + $(top_srcdir)/m4/mmap.m4 $(top_srcdir)/m4/mprotect.m4 \ + $(top_srcdir)/m4/proto.m4 $(top_srcdir)/m4/shm.m4 \ + $(top_srcdir)/m4/smallstruct.m4 $(top_srcdir)/configure.ac +am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ + $(ACLOCAL_M4) +DIST_COMMON = $(srcdir)/Makefile.am $(noinst_HEADERS) \ + $(am__DIST_COMMON) +mkinstalldirs = $(install_sh) -d +CONFIG_HEADER = $(top_builddir)/config.h \ + $(top_builddir)/ffcall-version.h +CONFIG_CLEAN_FILES = +CONFIG_CLEAN_VPATH_FILES = +LIBRARIES = $(noinst_LIBRARIES) +LTLIBRARIES = $(noinst_LTLIBRARIES) +am__DEPENDENCIES_1 = +am__dirstamp = $(am__leading_dot)dirstamp +am_libgnu_la_OBJECTS = glthread/lock.lo glthread/threadlib.lo +libgnu_la_OBJECTS = $(am_libgnu_la_OBJECTS) +AM_V_lt = $(am__v_lt_@AM_V@) +am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@) +am__v_lt_0 = --silent +am__v_lt_1 = +libgnu_la_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ + $(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ + $(libgnu_la_LDFLAGS) $(LDFLAGS) -o $@ +AM_V_P = $(am__v_P_@AM_V@) +am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) +am__v_P_0 = false +am__v_P_1 = : +AM_V_GEN = $(am__v_GEN_@AM_V@) +am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) +am__v_GEN_0 = @echo " GEN " $@; +am__v_GEN_1 = +AM_V_at = $(am__v_at_@AM_V@) +am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) +am__v_at_0 = @ +am__v_at_1 = +DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) +depcomp = $(SHELL) $(top_srcdir)/build-aux/depcomp +am__depfiles_maybe = depfiles +am__mv = mv -f +COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ + $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) +LTCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ + $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) \ + $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ + $(AM_CFLAGS) $(CFLAGS) +AM_V_CC = $(am__v_CC_@AM_V@) +am__v_CC_ = $(am__v_CC_@AM_DEFAULT_V@) +am__v_CC_0 = @echo " CC " $@; +am__v_CC_1 = +CCLD = $(CC) +LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ + $(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ + $(AM_LDFLAGS) $(LDFLAGS) -o $@ +AM_V_CCLD = $(am__v_CCLD_@AM_V@) +am__v_CCLD_ = $(am__v_CCLD_@AM_DEFAULT_V@) +am__v_CCLD_0 = @echo " CCLD " $@; +am__v_CCLD_1 = +SOURCES = $(libgnu_la_SOURCES) $(EXTRA_libgnu_la_SOURCES) +DIST_SOURCES = $(libgnu_la_SOURCES) $(EXTRA_libgnu_la_SOURCES) +RECURSIVE_TARGETS = all-recursive check-recursive cscopelist-recursive \ + ctags-recursive dvi-recursive html-recursive info-recursive \ + install-data-recursive install-dvi-recursive \ + install-exec-recursive install-html-recursive \ + install-info-recursive install-pdf-recursive \ + install-ps-recursive install-recursive installcheck-recursive \ + installdirs-recursive pdf-recursive ps-recursive \ + tags-recursive uninstall-recursive +am__can_run_installinfo = \ + case $$AM_UPDATE_INFO_DIR in \ + n|no|NO) false;; \ + *) (install-info --version) >/dev/null 2>&1;; \ + esac +HEADERS = $(noinst_HEADERS) +RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ + distclean-recursive maintainer-clean-recursive +am__recursive_targets = \ + $(RECURSIVE_TARGETS) \ + $(RECURSIVE_CLEAN_TARGETS) \ + $(am__extra_recursive_targets) +AM_RECURSIVE_TARGETS = $(am__recursive_targets:-recursive=) TAGS CTAGS \ + distdir +am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) +# Read a list of newline-separated strings from the standard input, +# and print each of them once, without duplicates. Input order is +# *not* preserved. +am__uniquify_input = $(AWK) '\ + BEGIN { nonempty = 0; } \ + { items[$$0] = 1; nonempty = 1; } \ + END { if (nonempty) { for (i in items) print i; }; } \ +' +# Make sure the list of sources is unique. This is necessary because, +# e.g., the same source file might be shared among _SOURCES variables +# for different programs/libraries. +am__define_uniq_tagged_files = \ + list='$(am__tagged_files)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | $(am__uniquify_input)` +ETAGS = etags +CTAGS = ctags +DIST_SUBDIRS = $(SUBDIRS) +am__DIST_COMMON = $(srcdir)/Makefile.in \ + $(top_srcdir)/build-aux/depcomp +DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) +am__relativize = \ + dir0=`pwd`; \ + sed_first='s,^\([^/]*\)/.*$$,\1,'; \ + sed_rest='s,^[^/]*/*,,'; \ + sed_last='s,^.*/\([^/]*\)$$,\1,'; \ + sed_butlast='s,/*[^/]*$$,,'; \ + while test -n "$$dir1"; do \ + first=`echo "$$dir1" | sed -e "$$sed_first"`; \ + if test "$$first" != "."; then \ + if test "$$first" = ".."; then \ + dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ + dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ + else \ + first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ + if test "$$first2" = "$$first"; then \ + dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ + else \ + dir2="../$$dir2"; \ + fi; \ + dir0="$$dir0"/"$$first"; \ + fi; \ + fi; \ + dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ + done; \ + reldir="$$dir2" +ACLOCAL = @ACLOCAL@ +AMTAR = @AMTAR@ +AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ +APPLE_UNIVERSAL_BUILD = @APPLE_UNIVERSAL_BUILD@ +AR = @AR@ +ARFLAGS = @ARFLAGS@ +AS = @AS@ +ASM_SYMBOL_PREFIX = @ASM_SYMBOL_PREFIX@ +AS_UNDERSCORE = @AS_UNDERSCORE@ +AUTOCONF = @AUTOCONF@ +AUTOHEADER = @AUTOHEADER@ +AUTOMAKE = @AUTOMAKE@ +AWK = @AWK@ +BITSIZEOF_PTRDIFF_T = @BITSIZEOF_PTRDIFF_T@ +BITSIZEOF_SIG_ATOMIC_T = @BITSIZEOF_SIG_ATOMIC_T@ +BITSIZEOF_SIZE_T = @BITSIZEOF_SIZE_T@ +BITSIZEOF_WCHAR_T = @BITSIZEOF_WCHAR_T@ +BITSIZEOF_WINT_T = @BITSIZEOF_WINT_T@ +CC = @CC@ +CCDEPMODE = @CCDEPMODE@ +CC_GCC = @CC_GCC@ +CFLAGS = @CFLAGS@ +CPP = @CPP@ +CPPFLAGS = @CPPFLAGS@ +CPU_OBJECTS = @CPU_OBJECTS@ +CXX = @CXX@ +CXXDEPMODE = @CXXDEPMODE@ +CXXFLAGS = @CXXFLAGS@ +CXX_CHOICE = @CXX_CHOICE@ +CYGPATH_W = @CYGPATH_W@ +DEFS = @DEFS@ +DEPDIR = @DEPDIR@ +DISABLE_TYPE_BASED_ALIASING = @DISABLE_TYPE_BASED_ALIASING@ +DLLTOOL = @DLLTOOL@ +DSYMUTIL = @DSYMUTIL@ +DUMPBIN = @DUMPBIN@ +ECHO_C = @ECHO_C@ +ECHO_N = @ECHO_N@ +ECHO_T = @ECHO_T@ +EGREP = @EGREP@ +ENDIANNESS = @ENDIANNESS@ +EXEEXT = @EXEEXT@ +FGREP = @FGREP@ +GCC_X_NONE = @GCC_X_NONE@ +GNULIB_OVERRIDES_WINT_T = @GNULIB_OVERRIDES_WINT_T@ +GREP = @GREP@ +HAVE_C99_STDINT_H = @HAVE_C99_STDINT_H@ +HAVE_INTTYPES_H = @HAVE_INTTYPES_H@ +HAVE_LONG_LONG_INT = @HAVE_LONG_LONG_INT@ +HAVE_SIGNED_SIG_ATOMIC_T = @HAVE_SIGNED_SIG_ATOMIC_T@ +HAVE_SIGNED_WCHAR_T = @HAVE_SIGNED_WCHAR_T@ +HAVE_SIGNED_WINT_T = @HAVE_SIGNED_WINT_T@ +HAVE_STDINT_H = @HAVE_STDINT_H@ +HAVE_SYS_BITYPES_H = @HAVE_SYS_BITYPES_H@ +HAVE_SYS_INTTYPES_H = @HAVE_SYS_INTTYPES_H@ +HAVE_SYS_TYPES_H = @HAVE_SYS_TYPES_H@ +HAVE_UNSIGNED_LONG_LONG_INT = @HAVE_UNSIGNED_LONG_LONG_INT@ +HAVE_WCHAR_H = @HAVE_WCHAR_H@ +HOST_CPU = @HOST_CPU@ +HOST_CPU_C_ABI = @HOST_CPU_C_ABI@ +IFNOT_MSVC = @IFNOT_MSVC@ +IF_CXX = @IF_CXX@ +IF_MSVC = @IF_MSVC@ +INCLUDE_NEXT = @INCLUDE_NEXT@ +INCLUDE_NEXT_AS_FIRST_DIRECTIVE = @INCLUDE_NEXT_AS_FIRST_DIRECTIVE@ +INSTALL = @INSTALL@ +INSTALL_DATA = @INSTALL_DATA@ +INSTALL_PROGRAM = @INSTALL_PROGRAM@ +INSTALL_SCRIPT = @INSTALL_SCRIPT@ +INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ +LD = @LD@ +LDFLAGS = @LDFLAGS@ +LIBMULTITHREAD = @LIBMULTITHREAD@ +LIBOBJS = @LIBOBJS@ +LIBS = @LIBS@ +LIBTHREAD = @LIBTHREAD@ +LIBTOOL = @LIBTOOL@ +LIMITS_H = @LIMITS_H@ +LIPO = @LIPO@ +LN = @LN@ +LN_S = @LN_S@ +LTLIBMULTITHREAD = @LTLIBMULTITHREAD@ +LTLIBOBJS = @LTLIBOBJS@ +LTLIBTHREAD = @LTLIBTHREAD@ +LT_SYS_LIBRARY_PATH = @LT_SYS_LIBRARY_PATH@ +MAKEINFO = @MAKEINFO@ +MANIFEST_TOOL = @MANIFEST_TOOL@ +MKDIR_P = @MKDIR_P@ +NEXT_AS_FIRST_DIRECTIVE_LIMITS_H = @NEXT_AS_FIRST_DIRECTIVE_LIMITS_H@ +NEXT_AS_FIRST_DIRECTIVE_STDINT_H = @NEXT_AS_FIRST_DIRECTIVE_STDINT_H@ +NEXT_AS_FIRST_DIRECTIVE_SYS_TYPES_H = @NEXT_AS_FIRST_DIRECTIVE_SYS_TYPES_H@ +NEXT_LIMITS_H = @NEXT_LIMITS_H@ +NEXT_STDINT_H = @NEXT_STDINT_H@ +NEXT_SYS_TYPES_H = @NEXT_SYS_TYPES_H@ +NM = @NM@ +NMEDIT = @NMEDIT@ +OBJDUMP = @OBJDUMP@ +OBJEXT = @OBJEXT@ +OTOOL = @OTOOL@ +OTOOL64 = @OTOOL64@ +PACKAGE = @PACKAGE@ +PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ +PACKAGE_NAME = @PACKAGE_NAME@ +PACKAGE_STRING = @PACKAGE_STRING@ +PACKAGE_TARNAME = @PACKAGE_TARNAME@ +PACKAGE_URL = @PACKAGE_URL@ +PACKAGE_VERSION = @PACKAGE_VERSION@ +PATH_SEPARATOR = @PATH_SEPARATOR@ +PRAGMA_COLUMNS = @PRAGMA_COLUMNS@ +PRAGMA_SYSTEM_HEADER = @PRAGMA_SYSTEM_HEADER@ +PTRDIFF_T_SUFFIX = @PTRDIFF_T_SUFFIX@ +RANLIB = @RANLIB@ +SED = @SED@ +SET_MAKE = @SET_MAKE@ +SHELL = @SHELL@ +SIG_ATOMIC_T_SUFFIX = @SIG_ATOMIC_T_SUFFIX@ +SIZE_T_SUFFIX = @SIZE_T_SUFFIX@ +STDINT_H = @STDINT_H@ +STDNORETURN_H = @STDNORETURN_H@ +STRIP = @STRIP@ +VERSION = @VERSION@ +WCHAR_T_SUFFIX = @WCHAR_T_SUFFIX@ +WINDOWS_64_BIT_OFF_T = @WINDOWS_64_BIT_OFF_T@ +WINDOWS_STAT_INODES = @WINDOWS_STAT_INODES@ +WINT_T_SUFFIX = @WINT_T_SUFFIX@ +WORKAROUND_BUG_81653 = @WORKAROUND_BUG_81653@ +abs_builddir = @abs_builddir@ +abs_srcdir = @abs_srcdir@ +abs_top_builddir = @abs_top_builddir@ +abs_top_srcdir = @abs_top_srcdir@ +ac_ct_AR = @ac_ct_AR@ +ac_ct_CC = @ac_ct_CC@ +ac_ct_CXX = @ac_ct_CXX@ +ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ +am__include = @am__include@ +am__leading_dot = @am__leading_dot@ +am__quote = @am__quote@ +am__tar = @am__tar@ +am__untar = @am__untar@ +bindir = @bindir@ +build = @build@ +build_alias = @build_alias@ +build_cpu = @build_cpu@ +build_os = @build_os@ +build_vendor = @build_vendor@ +builddir = @builddir@ +datadir = @datadir@ +datarootdir = @datarootdir@ +docdir = @docdir@ +dvidir = @dvidir@ +exec_prefix = @exec_prefix@ +gl_LIBOBJS = @gl_LIBOBJS@ +gl_LTLIBOBJS = @gl_LTLIBOBJS@ +gltests_LIBOBJS = @gltests_LIBOBJS@ +gltests_LTLIBOBJS = @gltests_LTLIBOBJS@ +gltests_WITNESS = @gltests_WITNESS@ +host = @host@ +host_alias = @host_alias@ +host_cpu = @host_cpu@ +host_os = @host_os@ +host_vendor = @host_vendor@ +htmldir = @htmldir@ +includedir = @includedir@ +infodir = @infodir@ +install_sh = @install_sh@ +libdir = @libdir@ +libexecdir = @libexecdir@ +localedir = @localedir@ +localstatedir = @localstatedir@ +mandir = @mandir@ +mkdir_p = @mkdir_p@ +oldincludedir = @oldincludedir@ +pdfdir = @pdfdir@ +prefix = @prefix@ +program_transform_name = @program_transform_name@ +psdir = @psdir@ +sbindir = @sbindir@ +sharedstatedir = @sharedstatedir@ +srcdir = @srcdir@ +sysconfdir = @sysconfdir@ +target_alias = @target_alias@ +top_build_prefix = @top_build_prefix@ +top_builddir = @top_builddir@ +top_srcdir = @top_srcdir@ +AUTOMAKE_OPTIONS = 1.11 gnits subdir-objects +SUBDIRS = +noinst_HEADERS = +noinst_LIBRARIES = +noinst_LTLIBRARIES = libgnu.la +EXTRA_DIST = $(top_srcdir)/build-aux/config.rpath limits.in.h \ + _Noreturn.h stdint.in.h stdnoreturn.in.h sys_types.in.h \ + $(top_srcdir)/build-aux/config.rpath windows-initguard.h \ + windows-mutex.c windows-mutex.h windows-once.c windows-once.h \ + windows-initguard.h windows-recmutex.c windows-recmutex.h \ + windows-initguard.h windows-rwlock.c windows-rwlock.h +BUILT_SOURCES = $(LIMITS_H) $(STDINT_H) $(STDNORETURN_H) sys/types.h +SUFFIXES = +MOSTLYCLEANFILES = core *.stackdump limits.h limits.h-t stdint.h \ + stdint.h-t stdnoreturn.h stdnoreturn.h-t sys/types.h \ + sys/types.h-t +MOSTLYCLEANDIRS = +CLEANFILES = +DISTCLEANFILES = +MAINTAINERCLEANFILES = +# No GNU Make output. +AM_CPPFLAGS = +AM_CFLAGS = +libgnu_la_SOURCES = glthread/lock.h glthread/lock.c \ + glthread/threadlib.c +libgnu_la_LIBADD = $(gl_LTLIBOBJS) +libgnu_la_DEPENDENCIES = $(gl_LTLIBOBJS) +EXTRA_libgnu_la_SOURCES = windows-mutex.c windows-once.c \ + windows-recmutex.c windows-rwlock.c +libgnu_la_LDFLAGS = $(AM_LDFLAGS) -no-undefined $(LTLIBTHREAD) + +# Use this preprocessor expression to decide whether #include_next works. +# Do not rely on a 'configure'-time test for this, since the expression +# might appear in an installed header, which is used by some other compiler. +HAVE_INCLUDE_NEXT = (__GNUC__ || 60000000 <= __DECC_VER) + +# Because this Makefile snippet defines a variable used by other +# gnulib Makefile snippets, it must be present in all makefiles that +# need it. This is ensured by the applicability 'all' defined above. +_NORETURN_H = $(srcdir)/_Noreturn.h +all: $(BUILT_SOURCES) + $(MAKE) $(AM_MAKEFLAGS) all-recursive + +.SUFFIXES: +.SUFFIXES: .c .lo .o .obj +$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) + @for dep in $?; do \ + case '$(am__configure_deps)' in \ + *$$dep*) \ + ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ + && { if test -f $@; then exit 0; else break; fi; }; \ + exit 1;; \ + esac; \ + done; \ + echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnits gnulib-lib/Makefile'; \ + $(am__cd) $(top_srcdir) && \ + $(AUTOMAKE) --gnits gnulib-lib/Makefile +Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status + @case '$?' in \ + *config.status*) \ + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ + *) \ + echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ + cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ + esac; + +$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh + +$(top_srcdir)/configure: $(am__configure_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +$(ACLOCAL_M4): $(am__aclocal_m4_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +$(am__aclocal_m4_deps): + +clean-noinstLIBRARIES: + -test -z "$(noinst_LIBRARIES)" || rm -f $(noinst_LIBRARIES) + +clean-noinstLTLIBRARIES: + -test -z "$(noinst_LTLIBRARIES)" || rm -f $(noinst_LTLIBRARIES) + @list='$(noinst_LTLIBRARIES)'; \ + locs=`for p in $$list; do echo $$p; done | \ + sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \ + sort -u`; \ + test -z "$$locs" || { \ + echo rm -f $${locs}; \ + rm -f $${locs}; \ + } +glthread/$(am__dirstamp): + @$(MKDIR_P) glthread + @: > glthread/$(am__dirstamp) +glthread/$(DEPDIR)/$(am__dirstamp): + @$(MKDIR_P) glthread/$(DEPDIR) + @: > glthread/$(DEPDIR)/$(am__dirstamp) +glthread/lock.lo: glthread/$(am__dirstamp) \ + glthread/$(DEPDIR)/$(am__dirstamp) +glthread/threadlib.lo: glthread/$(am__dirstamp) \ + glthread/$(DEPDIR)/$(am__dirstamp) + +libgnu.la: $(libgnu_la_OBJECTS) $(libgnu_la_DEPENDENCIES) $(EXTRA_libgnu_la_DEPENDENCIES) + $(AM_V_CCLD)$(libgnu_la_LINK) $(libgnu_la_OBJECTS) $(libgnu_la_LIBADD) $(LIBS) + +mostlyclean-compile: + -rm -f *.$(OBJEXT) + -rm -f glthread/*.$(OBJEXT) + -rm -f glthread/*.lo + +distclean-compile: + -rm -f *.tab.c + +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/windows-mutex.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/windows-once.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/windows-recmutex.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/windows-rwlock.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@glthread/$(DEPDIR)/lock.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@glthread/$(DEPDIR)/threadlib.Plo@am__quote@ + +.c.o: +@am__fastdepCC_TRUE@ $(AM_V_CC)depbase=`echo $@ | sed 's|[^/]*$$|$(DEPDIR)/&|;s|\.o$$||'`;\ +@am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $$depbase.Tpo -c -o $@ $< &&\ +@am__fastdepCC_TRUE@ $(am__mv) $$depbase.Tpo $$depbase.Po +@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ $< + +.c.obj: +@am__fastdepCC_TRUE@ $(AM_V_CC)depbase=`echo $@ | sed 's|[^/]*$$|$(DEPDIR)/&|;s|\.obj$$||'`;\ +@am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $$depbase.Tpo -c -o $@ `$(CYGPATH_W) '$<'` &&\ +@am__fastdepCC_TRUE@ $(am__mv) $$depbase.Tpo $$depbase.Po +@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ `$(CYGPATH_W) '$<'` + +.c.lo: +@am__fastdepCC_TRUE@ $(AM_V_CC)depbase=`echo $@ | sed 's|[^/]*$$|$(DEPDIR)/&|;s|\.lo$$||'`;\ +@am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $$depbase.Tpo -c -o $@ $< &&\ +@am__fastdepCC_TRUE@ $(am__mv) $$depbase.Tpo $$depbase.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LTCOMPILE) -c -o $@ $< + +mostlyclean-libtool: + -rm -f *.lo + +clean-libtool: + -rm -rf .libs _libs + -rm -rf glthread/.libs glthread/_libs + +# This directory's subdirectories are mostly independent; you can cd +# into them and run 'make' without going through this Makefile. +# To change the values of 'make' variables: instead of editing Makefiles, +# (1) if the variable is set in 'config.status', edit 'config.status' +# (which will cause the Makefiles to be regenerated when you run 'make'); +# (2) otherwise, pass the desired values on the 'make' command line. +$(am__recursive_targets): + @fail=; \ + if $(am__make_keepgoing); then \ + failcom='fail=yes'; \ + else \ + failcom='exit 1'; \ + fi; \ + dot_seen=no; \ + target=`echo $@ | sed s/-recursive//`; \ + case "$@" in \ + distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ + *) list='$(SUBDIRS)' ;; \ + esac; \ + for subdir in $$list; do \ + echo "Making $$target in $$subdir"; \ + if test "$$subdir" = "."; then \ + dot_seen=yes; \ + local_target="$$target-am"; \ + else \ + local_target="$$target"; \ + fi; \ + ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ + || eval $$failcom; \ + done; \ + if test "$$dot_seen" = "no"; then \ + $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ + fi; test -z "$$fail" + +ID: $(am__tagged_files) + $(am__define_uniq_tagged_files); mkid -fID $$unique +tags: tags-recursive +TAGS: tags + +tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) + set x; \ + here=`pwd`; \ + if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ + include_option=--etags-include; \ + empty_fix=.; \ + else \ + include_option=--include; \ + empty_fix=; \ + fi; \ + list='$(SUBDIRS)'; for subdir in $$list; do \ + if test "$$subdir" = .; then :; else \ + test ! -f $$subdir/TAGS || \ + set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ + fi; \ + done; \ + $(am__define_uniq_tagged_files); \ + shift; \ + if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ + test -n "$$unique" || unique=$$empty_fix; \ + if test $$# -gt 0; then \ + $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ + "$$@" $$unique; \ + else \ + $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ + $$unique; \ + fi; \ + fi +ctags: ctags-recursive + +CTAGS: ctags +ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) + $(am__define_uniq_tagged_files); \ + test -z "$(CTAGS_ARGS)$$unique" \ + || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ + $$unique + +GTAGS: + here=`$(am__cd) $(top_builddir) && pwd` \ + && $(am__cd) $(top_srcdir) \ + && gtags -i $(GTAGS_ARGS) "$$here" +cscopelist: cscopelist-recursive + +cscopelist-am: $(am__tagged_files) + list='$(am__tagged_files)'; \ + case "$(srcdir)" in \ + [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ + *) sdir=$(subdir)/$(srcdir) ;; \ + esac; \ + for i in $$list; do \ + if test -f "$$i"; then \ + echo "$(subdir)/$$i"; \ + else \ + echo "$$sdir/$$i"; \ + fi; \ + done >> $(top_builddir)/cscope.files + +distclean-tags: + -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags + +distdir: $(DISTFILES) + @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ + topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ + list='$(DISTFILES)'; \ + dist_files=`for file in $$list; do echo $$file; done | \ + sed -e "s|^$$srcdirstrip/||;t" \ + -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ + case $$dist_files in \ + */*) $(MKDIR_P) `echo "$$dist_files" | \ + sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ + sort -u` ;; \ + esac; \ + for file in $$dist_files; do \ + if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ + if test -d $$d/$$file; then \ + dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ + if test -d "$(distdir)/$$file"; then \ + find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ + fi; \ + if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ + cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ + find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ + fi; \ + cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ + else \ + test -f "$(distdir)/$$file" \ + || cp -p $$d/$$file "$(distdir)/$$file" \ + || exit 1; \ + fi; \ + done + @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ + if test "$$subdir" = .; then :; else \ + $(am__make_dryrun) \ + || test -d "$(distdir)/$$subdir" \ + || $(MKDIR_P) "$(distdir)/$$subdir" \ + || exit 1; \ + dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ + $(am__relativize); \ + new_distdir=$$reldir; \ + dir1=$$subdir; dir2="$(top_distdir)"; \ + $(am__relativize); \ + new_top_distdir=$$reldir; \ + echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ + echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ + ($(am__cd) $$subdir && \ + $(MAKE) $(AM_MAKEFLAGS) \ + top_distdir="$$new_top_distdir" \ + distdir="$$new_distdir" \ + am__remove_distdir=: \ + am__skip_length_check=: \ + am__skip_mode_fix=: \ + distdir) \ + || exit 1; \ + fi; \ + done +check-am: all-am +check: $(BUILT_SOURCES) + $(MAKE) $(AM_MAKEFLAGS) check-recursive +all-am: Makefile $(LIBRARIES) $(LTLIBRARIES) $(HEADERS) +installdirs: installdirs-recursive +installdirs-am: +install: $(BUILT_SOURCES) + $(MAKE) $(AM_MAKEFLAGS) install-recursive +install-exec: install-exec-recursive +install-data: install-data-recursive +uninstall: uninstall-recursive + +install-am: all-am + @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am + +installcheck: installcheck-recursive +install-strip: + if test -z '$(STRIP)'; then \ + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ + install; \ + else \ + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ + "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ + fi +mostlyclean-generic: + -test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES) + +clean-generic: + -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) + +distclean-generic: + -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) + -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) + -rm -f glthread/$(DEPDIR)/$(am__dirstamp) + -rm -f glthread/$(am__dirstamp) + -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES) + +maintainer-clean-generic: + @echo "This command is intended for maintainers to use" + @echo "it deletes files that may require special tools to rebuild." + -test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES) + -test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES) +clean: clean-recursive + +clean-am: clean-generic clean-libtool clean-noinstLIBRARIES \ + clean-noinstLTLIBRARIES mostlyclean-am + +distclean: distclean-recursive + -rm -rf ./$(DEPDIR) glthread/$(DEPDIR) + -rm -f Makefile +distclean-am: clean-am distclean-compile distclean-generic \ + distclean-tags + +dvi: dvi-recursive + +dvi-am: + +html: html-recursive + +html-am: + +info: info-recursive + +info-am: + +install-data-am: + +install-dvi: install-dvi-recursive + +install-dvi-am: + +install-exec-am: + +install-html: install-html-recursive + +install-html-am: + +install-info: install-info-recursive + +install-info-am: + +install-man: + +install-pdf: install-pdf-recursive + +install-pdf-am: + +install-ps: install-ps-recursive + +install-ps-am: + +installcheck-am: + +maintainer-clean: maintainer-clean-recursive + -rm -rf ./$(DEPDIR) glthread/$(DEPDIR) + -rm -f Makefile +maintainer-clean-am: distclean-am maintainer-clean-generic + +mostlyclean: mostlyclean-recursive + +mostlyclean-am: mostlyclean-compile mostlyclean-generic \ + mostlyclean-libtool mostlyclean-local + +pdf: pdf-recursive + +pdf-am: + +ps: ps-recursive + +ps-am: + +uninstall-am: + +.MAKE: $(am__recursive_targets) all check install install-am \ + install-strip + +.PHONY: $(am__recursive_targets) CTAGS GTAGS TAGS all all-am check \ + check-am clean clean-generic clean-libtool \ + clean-noinstLIBRARIES clean-noinstLTLIBRARIES cscopelist-am \ + ctags ctags-am distclean distclean-compile distclean-generic \ + distclean-libtool distclean-tags distdir dvi dvi-am html \ + html-am info info-am install install-am install-data \ + install-data-am install-dvi install-dvi-am install-exec \ + install-exec-am install-html install-html-am install-info \ + install-info-am install-man install-pdf install-pdf-am \ + install-ps install-ps-am install-strip installcheck \ + installcheck-am installdirs installdirs-am maintainer-clean \ + maintainer-clean-generic mostlyclean mostlyclean-compile \ + mostlyclean-generic mostlyclean-libtool mostlyclean-local pdf \ + pdf-am ps ps-am tags tags-am uninstall uninstall-am + +.PRECIOUS: Makefile + + +# We need the following in order to create when the system +# doesn't have one that is compatible with GNU. +@GL_GENERATE_LIMITS_H_TRUE@limits.h: limits.in.h $(top_builddir)/config.status +@GL_GENERATE_LIMITS_H_TRUE@ $(AM_V_GEN)rm -f $@-t $@ && \ +@GL_GENERATE_LIMITS_H_TRUE@ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \ +@GL_GENERATE_LIMITS_H_TRUE@ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ +@GL_GENERATE_LIMITS_H_TRUE@ -e 's|@''INCLUDE_NEXT''@|$(INCLUDE_NEXT)|g' \ +@GL_GENERATE_LIMITS_H_TRUE@ -e 's|@''PRAGMA_SYSTEM_HEADER''@|@PRAGMA_SYSTEM_HEADER@|g' \ +@GL_GENERATE_LIMITS_H_TRUE@ -e 's|@''PRAGMA_COLUMNS''@|@PRAGMA_COLUMNS@|g' \ +@GL_GENERATE_LIMITS_H_TRUE@ -e 's|@''NEXT_LIMITS_H''@|$(NEXT_LIMITS_H)|g' \ +@GL_GENERATE_LIMITS_H_TRUE@ < $(srcdir)/limits.in.h; \ +@GL_GENERATE_LIMITS_H_TRUE@ } > $@-t && \ +@GL_GENERATE_LIMITS_H_TRUE@ mv $@-t $@ +@GL_GENERATE_LIMITS_H_FALSE@limits.h: $(top_builddir)/config.status +@GL_GENERATE_LIMITS_H_FALSE@ rm -f $@ + +# We need the following in order to create when the system +# doesn't have one that works with the given compiler. +@GL_GENERATE_STDINT_H_TRUE@stdint.h: stdint.in.h $(top_builddir)/config.status +@GL_GENERATE_STDINT_H_TRUE@ $(AM_V_GEN)rm -f $@-t $@ && \ +@GL_GENERATE_STDINT_H_TRUE@ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ +@GL_GENERATE_STDINT_H_TRUE@ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ +@GL_GENERATE_STDINT_H_TRUE@ -e 's/@''HAVE_STDINT_H''@/$(HAVE_STDINT_H)/g' \ +@GL_GENERATE_STDINT_H_TRUE@ -e 's|@''INCLUDE_NEXT''@|$(INCLUDE_NEXT)|g' \ +@GL_GENERATE_STDINT_H_TRUE@ -e 's|@''PRAGMA_SYSTEM_HEADER''@|@PRAGMA_SYSTEM_HEADER@|g' \ +@GL_GENERATE_STDINT_H_TRUE@ -e 's|@''PRAGMA_COLUMNS''@|@PRAGMA_COLUMNS@|g' \ +@GL_GENERATE_STDINT_H_TRUE@ -e 's|@''NEXT_STDINT_H''@|$(NEXT_STDINT_H)|g' \ +@GL_GENERATE_STDINT_H_TRUE@ -e 's/@''HAVE_C99_STDINT_H''@/$(HAVE_C99_STDINT_H)/g' \ +@GL_GENERATE_STDINT_H_TRUE@ -e 's/@''HAVE_SYS_TYPES_H''@/$(HAVE_SYS_TYPES_H)/g' \ +@GL_GENERATE_STDINT_H_TRUE@ -e 's/@''HAVE_INTTYPES_H''@/$(HAVE_INTTYPES_H)/g' \ +@GL_GENERATE_STDINT_H_TRUE@ -e 's/@''HAVE_SYS_INTTYPES_H''@/$(HAVE_SYS_INTTYPES_H)/g' \ +@GL_GENERATE_STDINT_H_TRUE@ -e 's/@''HAVE_SYS_BITYPES_H''@/$(HAVE_SYS_BITYPES_H)/g' \ +@GL_GENERATE_STDINT_H_TRUE@ -e 's/@''HAVE_WCHAR_H''@/$(HAVE_WCHAR_H)/g' \ +@GL_GENERATE_STDINT_H_TRUE@ -e 's/@''HAVE_LONG_LONG_INT''@/$(HAVE_LONG_LONG_INT)/g' \ +@GL_GENERATE_STDINT_H_TRUE@ -e 's/@''HAVE_UNSIGNED_LONG_LONG_INT''@/$(HAVE_UNSIGNED_LONG_LONG_INT)/g' \ +@GL_GENERATE_STDINT_H_TRUE@ -e 's/@''APPLE_UNIVERSAL_BUILD''@/$(APPLE_UNIVERSAL_BUILD)/g' \ +@GL_GENERATE_STDINT_H_TRUE@ -e 's/@''BITSIZEOF_PTRDIFF_T''@/$(BITSIZEOF_PTRDIFF_T)/g' \ +@GL_GENERATE_STDINT_H_TRUE@ -e 's/@''PTRDIFF_T_SUFFIX''@/$(PTRDIFF_T_SUFFIX)/g' \ +@GL_GENERATE_STDINT_H_TRUE@ -e 's/@''BITSIZEOF_SIG_ATOMIC_T''@/$(BITSIZEOF_SIG_ATOMIC_T)/g' \ +@GL_GENERATE_STDINT_H_TRUE@ -e 's/@''HAVE_SIGNED_SIG_ATOMIC_T''@/$(HAVE_SIGNED_SIG_ATOMIC_T)/g' \ +@GL_GENERATE_STDINT_H_TRUE@ -e 's/@''SIG_ATOMIC_T_SUFFIX''@/$(SIG_ATOMIC_T_SUFFIX)/g' \ +@GL_GENERATE_STDINT_H_TRUE@ -e 's/@''BITSIZEOF_SIZE_T''@/$(BITSIZEOF_SIZE_T)/g' \ +@GL_GENERATE_STDINT_H_TRUE@ -e 's/@''SIZE_T_SUFFIX''@/$(SIZE_T_SUFFIX)/g' \ +@GL_GENERATE_STDINT_H_TRUE@ -e 's/@''BITSIZEOF_WCHAR_T''@/$(BITSIZEOF_WCHAR_T)/g' \ +@GL_GENERATE_STDINT_H_TRUE@ -e 's/@''HAVE_SIGNED_WCHAR_T''@/$(HAVE_SIGNED_WCHAR_T)/g' \ +@GL_GENERATE_STDINT_H_TRUE@ -e 's/@''WCHAR_T_SUFFIX''@/$(WCHAR_T_SUFFIX)/g' \ +@GL_GENERATE_STDINT_H_TRUE@ -e 's/@''BITSIZEOF_WINT_T''@/$(BITSIZEOF_WINT_T)/g' \ +@GL_GENERATE_STDINT_H_TRUE@ -e 's/@''HAVE_SIGNED_WINT_T''@/$(HAVE_SIGNED_WINT_T)/g' \ +@GL_GENERATE_STDINT_H_TRUE@ -e 's/@''WINT_T_SUFFIX''@/$(WINT_T_SUFFIX)/g' \ +@GL_GENERATE_STDINT_H_TRUE@ -e 's/@''GNULIB_OVERRIDES_WINT_T''@/$(GNULIB_OVERRIDES_WINT_T)/g' \ +@GL_GENERATE_STDINT_H_TRUE@ < $(srcdir)/stdint.in.h; \ +@GL_GENERATE_STDINT_H_TRUE@ } > $@-t && \ +@GL_GENERATE_STDINT_H_TRUE@ mv $@-t $@ +@GL_GENERATE_STDINT_H_FALSE@stdint.h: $(top_builddir)/config.status +@GL_GENERATE_STDINT_H_FALSE@ rm -f $@ + +# We need the following in order to create when the system +# doesn't have one that works. +@GL_GENERATE_STDNORETURN_H_TRUE@stdnoreturn.h: stdnoreturn.in.h $(top_builddir)/config.status $(_NORETURN_H) +@GL_GENERATE_STDNORETURN_H_TRUE@ $(AM_V_GEN)rm -f $@-t $@ && \ +@GL_GENERATE_STDNORETURN_H_TRUE@ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \ +@GL_GENERATE_STDNORETURN_H_TRUE@ sed -e '/definition of _Noreturn/r $(_NORETURN_H)' \ +@GL_GENERATE_STDNORETURN_H_TRUE@ < $(srcdir)/stdnoreturn.in.h; \ +@GL_GENERATE_STDNORETURN_H_TRUE@ } > $@-t && \ +@GL_GENERATE_STDNORETURN_H_TRUE@ mv $@-t $@ +@GL_GENERATE_STDNORETURN_H_FALSE@stdnoreturn.h: $(top_builddir)/config.status +@GL_GENERATE_STDNORETURN_H_FALSE@ rm -f $@ + +# We need the following in order to create when the system +# doesn't have one that works with the given compiler. +sys/types.h: sys_types.in.h $(top_builddir)/config.status + $(AM_V_at)$(MKDIR_P) sys + $(AM_V_GEN)rm -f $@-t $@ && \ + { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ + sed -e 's|@''GUARD_PREFIX''@|GL|g' \ + -e 's|@''INCLUDE_NEXT''@|$(INCLUDE_NEXT)|g' \ + -e 's|@''PRAGMA_SYSTEM_HEADER''@|@PRAGMA_SYSTEM_HEADER@|g' \ + -e 's|@''PRAGMA_COLUMNS''@|@PRAGMA_COLUMNS@|g' \ + -e 's|@''NEXT_SYS_TYPES_H''@|$(NEXT_SYS_TYPES_H)|g' \ + -e 's|@''WINDOWS_64_BIT_OFF_T''@|$(WINDOWS_64_BIT_OFF_T)|g' \ + -e 's|@''WINDOWS_STAT_INODES''@|$(WINDOWS_STAT_INODES)|g' \ + < $(srcdir)/sys_types.in.h; \ + } > $@-t && \ + mv $@-t $@ + +mostlyclean-local: mostlyclean-generic + @for dir in '' $(MOSTLYCLEANDIRS); do \ + if test -n "$$dir" && test -d $$dir; then \ + echo "rmdir $$dir"; rmdir $$dir; \ + fi; \ + done; \ + : + +# Tell versions [3.59,3.63) of GNU make to not export all variables. +# Otherwise a system limit (for SysV at least) may be exceeded. +.NOEXPORT: diff --git a/gnulib-lib/_Noreturn.h b/gnulib-lib/_Noreturn.h new file mode 100644 index 0000000..db9b455 --- /dev/null +++ b/gnulib-lib/_Noreturn.h @@ -0,0 +1,33 @@ +/* A C macro for declaring that a function does not return. + Copyright (C) 2011-2019 Free Software Foundation, Inc. + + This program is free software: you can redistribute it and/or modify it + under the terms of the GNU General Public License as published + by the Free Software Foundation; either version 3 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . */ + +#ifndef _Noreturn +# if (defined __cplusplus \ + && ((201103 <= __cplusplus && !(__GNUC__ == 4 && __GNUC_MINOR__ == 7)) \ + || (defined _MSC_VER && 1900 <= _MSC_VER))) +# define _Noreturn [[noreturn]] +# elif ((!defined __cplusplus || defined __clang__) \ + && (201112 <= (defined __STDC_VERSION__ ? __STDC_VERSION__ : 0) \ + || 4 < __GNUC__ + (7 <= __GNUC_MINOR__))) + /* _Noreturn works as-is. */ +# elif 2 < __GNUC__ + (8 <= __GNUC_MINOR__) || 0x5110 <= __SUNPRO_C +# define _Noreturn __attribute__ ((__noreturn__)) +# elif 1200 <= (defined _MSC_VER ? _MSC_VER : 0) +# define _Noreturn __declspec (noreturn) +# else +# define _Noreturn +# endif +#endif diff --git a/gnulib-lib/glthread/lock.c b/gnulib-lib/glthread/lock.c new file mode 100644 index 0000000..fefcd59 --- /dev/null +++ b/gnulib-lib/glthread/lock.c @@ -0,0 +1,506 @@ +/* Locking in multithreaded situations. + Copyright (C) 2005-2019 Free Software Foundation, Inc. + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 3, or (at your option) + any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, see . */ + +/* Written by Bruno Haible , 2005. + Based on GCC's gthr-posix.h, gthr-posix95.h. */ + +#include + +#include "glthread/lock.h" + +/* ========================================================================= */ + +#if USE_POSIX_THREADS + +/* -------------------------- gl_lock_t datatype -------------------------- */ + +/* ------------------------- gl_rwlock_t datatype ------------------------- */ + +# if HAVE_PTHREAD_RWLOCK && (HAVE_PTHREAD_RWLOCK_RDLOCK_PREFER_WRITER || (defined PTHREAD_RWLOCK_WRITER_NONRECURSIVE_INITIALIZER_NP && (__GNU_LIBRARY__ > 1))) + +# ifdef PTHREAD_RWLOCK_INITIALIZER + +# if !HAVE_PTHREAD_RWLOCK_RDLOCK_PREFER_WRITER + /* glibc with bug https://sourceware.org/bugzilla/show_bug.cgi?id=13701 */ + +int +glthread_rwlock_init_for_glibc (pthread_rwlock_t *lock) +{ + pthread_rwlockattr_t attributes; + int err; + + err = pthread_rwlockattr_init (&attributes); + if (err != 0) + return err; + /* Note: PTHREAD_RWLOCK_PREFER_WRITER_NONRECURSIVE_NP is the only value that + causes the writer to be preferred. PTHREAD_RWLOCK_PREFER_WRITER_NP does not + do this; see + http://man7.org/linux/man-pages/man3/pthread_rwlockattr_setkind_np.3.html */ + err = pthread_rwlockattr_setkind_np (&attributes, + PTHREAD_RWLOCK_PREFER_WRITER_NONRECURSIVE_NP); + if (err == 0) + err = pthread_rwlock_init(lock, &attributes); + /* pthread_rwlockattr_destroy always returns 0. It cannot influence the + return value. */ + pthread_rwlockattr_destroy (&attributes); + return err; +} + +# endif +# else + +int +glthread_rwlock_init_multithreaded (gl_rwlock_t *lock) +{ + int err; + + err = pthread_rwlock_init (&lock->rwlock, NULL); + if (err != 0) + return err; + lock->initialized = 1; + return 0; +} + +int +glthread_rwlock_rdlock_multithreaded (gl_rwlock_t *lock) +{ + if (!lock->initialized) + { + int err; + + err = pthread_mutex_lock (&lock->guard); + if (err != 0) + return err; + if (!lock->initialized) + { + err = glthread_rwlock_init_multithreaded (lock); + if (err != 0) + { + pthread_mutex_unlock (&lock->guard); + return err; + } + } + err = pthread_mutex_unlock (&lock->guard); + if (err != 0) + return err; + } + return pthread_rwlock_rdlock (&lock->rwlock); +} + +int +glthread_rwlock_wrlock_multithreaded (gl_rwlock_t *lock) +{ + if (!lock->initialized) + { + int err; + + err = pthread_mutex_lock (&lock->guard); + if (err != 0) + return err; + if (!lock->initialized) + { + err = glthread_rwlock_init_multithreaded (lock); + if (err != 0) + { + pthread_mutex_unlock (&lock->guard); + return err; + } + } + err = pthread_mutex_unlock (&lock->guard); + if (err != 0) + return err; + } + return pthread_rwlock_wrlock (&lock->rwlock); +} + +int +glthread_rwlock_unlock_multithreaded (gl_rwlock_t *lock) +{ + if (!lock->initialized) + return EINVAL; + return pthread_rwlock_unlock (&lock->rwlock); +} + +int +glthread_rwlock_destroy_multithreaded (gl_rwlock_t *lock) +{ + int err; + + if (!lock->initialized) + return EINVAL; + err = pthread_rwlock_destroy (&lock->rwlock); + if (err != 0) + return err; + lock->initialized = 0; + return 0; +} + +# endif + +# else + +int +glthread_rwlock_init_multithreaded (gl_rwlock_t *lock) +{ + int err; + + err = pthread_mutex_init (&lock->lock, NULL); + if (err != 0) + return err; + err = pthread_cond_init (&lock->waiting_readers, NULL); + if (err != 0) + return err; + err = pthread_cond_init (&lock->waiting_writers, NULL); + if (err != 0) + return err; + lock->waiting_writers_count = 0; + lock->runcount = 0; + return 0; +} + +int +glthread_rwlock_rdlock_multithreaded (gl_rwlock_t *lock) +{ + int err; + + err = pthread_mutex_lock (&lock->lock); + if (err != 0) + return err; + /* Test whether only readers are currently running, and whether the runcount + field will not overflow, and whether no writer is waiting. The latter + condition is because POSIX recommends that "write locks shall take + precedence over read locks", to avoid "writer starvation". */ + while (!(lock->runcount + 1 > 0 && lock->waiting_writers_count == 0)) + { + /* This thread has to wait for a while. Enqueue it among the + waiting_readers. */ + err = pthread_cond_wait (&lock->waiting_readers, &lock->lock); + if (err != 0) + { + pthread_mutex_unlock (&lock->lock); + return err; + } + } + lock->runcount++; + return pthread_mutex_unlock (&lock->lock); +} + +int +glthread_rwlock_wrlock_multithreaded (gl_rwlock_t *lock) +{ + int err; + + err = pthread_mutex_lock (&lock->lock); + if (err != 0) + return err; + /* Test whether no readers or writers are currently running. */ + while (!(lock->runcount == 0)) + { + /* This thread has to wait for a while. Enqueue it among the + waiting_writers. */ + lock->waiting_writers_count++; + err = pthread_cond_wait (&lock->waiting_writers, &lock->lock); + if (err != 0) + { + lock->waiting_writers_count--; + pthread_mutex_unlock (&lock->lock); + return err; + } + lock->waiting_writers_count--; + } + lock->runcount--; /* runcount becomes -1 */ + return pthread_mutex_unlock (&lock->lock); +} + +int +glthread_rwlock_unlock_multithreaded (gl_rwlock_t *lock) +{ + int err; + + err = pthread_mutex_lock (&lock->lock); + if (err != 0) + return err; + if (lock->runcount < 0) + { + /* Drop a writer lock. */ + if (!(lock->runcount == -1)) + { + pthread_mutex_unlock (&lock->lock); + return EINVAL; + } + lock->runcount = 0; + } + else + { + /* Drop a reader lock. */ + if (!(lock->runcount > 0)) + { + pthread_mutex_unlock (&lock->lock); + return EINVAL; + } + lock->runcount--; + } + if (lock->runcount == 0) + { + /* POSIX recommends that "write locks shall take precedence over read + locks", to avoid "writer starvation". */ + if (lock->waiting_writers_count > 0) + { + /* Wake up one of the waiting writers. */ + err = pthread_cond_signal (&lock->waiting_writers); + if (err != 0) + { + pthread_mutex_unlock (&lock->lock); + return err; + } + } + else + { + /* Wake up all waiting readers. */ + err = pthread_cond_broadcast (&lock->waiting_readers); + if (err != 0) + { + pthread_mutex_unlock (&lock->lock); + return err; + } + } + } + return pthread_mutex_unlock (&lock->lock); +} + +int +glthread_rwlock_destroy_multithreaded (gl_rwlock_t *lock) +{ + int err; + + err = pthread_mutex_destroy (&lock->lock); + if (err != 0) + return err; + err = pthread_cond_destroy (&lock->waiting_readers); + if (err != 0) + return err; + err = pthread_cond_destroy (&lock->waiting_writers); + if (err != 0) + return err; + return 0; +} + +# endif + +/* --------------------- gl_recursive_lock_t datatype --------------------- */ + +# if HAVE_PTHREAD_MUTEX_RECURSIVE + +# if defined PTHREAD_RECURSIVE_MUTEX_INITIALIZER || defined PTHREAD_RECURSIVE_MUTEX_INITIALIZER_NP + +int +glthread_recursive_lock_init_multithreaded (gl_recursive_lock_t *lock) +{ + pthread_mutexattr_t attributes; + int err; + + err = pthread_mutexattr_init (&attributes); + if (err != 0) + return err; + err = pthread_mutexattr_settype (&attributes, PTHREAD_MUTEX_RECURSIVE); + if (err != 0) + { + pthread_mutexattr_destroy (&attributes); + return err; + } + err = pthread_mutex_init (lock, &attributes); + if (err != 0) + { + pthread_mutexattr_destroy (&attributes); + return err; + } + err = pthread_mutexattr_destroy (&attributes); + if (err != 0) + return err; + return 0; +} + +# else + +int +glthread_recursive_lock_init_multithreaded (gl_recursive_lock_t *lock) +{ + pthread_mutexattr_t attributes; + int err; + + err = pthread_mutexattr_init (&attributes); + if (err != 0) + return err; + err = pthread_mutexattr_settype (&attributes, PTHREAD_MUTEX_RECURSIVE); + if (err != 0) + { + pthread_mutexattr_destroy (&attributes); + return err; + } + err = pthread_mutex_init (&lock->recmutex, &attributes); + if (err != 0) + { + pthread_mutexattr_destroy (&attributes); + return err; + } + err = pthread_mutexattr_destroy (&attributes); + if (err != 0) + return err; + lock->initialized = 1; + return 0; +} + +int +glthread_recursive_lock_lock_multithreaded (gl_recursive_lock_t *lock) +{ + if (!lock->initialized) + { + int err; + + err = pthread_mutex_lock (&lock->guard); + if (err != 0) + return err; + if (!lock->initialized) + { + err = glthread_recursive_lock_init_multithreaded (lock); + if (err != 0) + { + pthread_mutex_unlock (&lock->guard); + return err; + } + } + err = pthread_mutex_unlock (&lock->guard); + if (err != 0) + return err; + } + return pthread_mutex_lock (&lock->recmutex); +} + +int +glthread_recursive_lock_unlock_multithreaded (gl_recursive_lock_t *lock) +{ + if (!lock->initialized) + return EINVAL; + return pthread_mutex_unlock (&lock->recmutex); +} + +int +glthread_recursive_lock_destroy_multithreaded (gl_recursive_lock_t *lock) +{ + int err; + + if (!lock->initialized) + return EINVAL; + err = pthread_mutex_destroy (&lock->recmutex); + if (err != 0) + return err; + lock->initialized = 0; + return 0; +} + +# endif + +# else + +int +glthread_recursive_lock_init_multithreaded (gl_recursive_lock_t *lock) +{ + int err; + + err = pthread_mutex_init (&lock->mutex, NULL); + if (err != 0) + return err; + lock->owner = (pthread_t) 0; + lock->depth = 0; + return 0; +} + +int +glthread_recursive_lock_lock_multithreaded (gl_recursive_lock_t *lock) +{ + pthread_t self = pthread_self (); + if (lock->owner != self) + { + int err; + + err = pthread_mutex_lock (&lock->mutex); + if (err != 0) + return err; + lock->owner = self; + } + if (++(lock->depth) == 0) /* wraparound? */ + { + lock->depth--; + return EAGAIN; + } + return 0; +} + +int +glthread_recursive_lock_unlock_multithreaded (gl_recursive_lock_t *lock) +{ + if (lock->owner != pthread_self ()) + return EPERM; + if (lock->depth == 0) + return EINVAL; + if (--(lock->depth) == 0) + { + lock->owner = (pthread_t) 0; + return pthread_mutex_unlock (&lock->mutex); + } + else + return 0; +} + +int +glthread_recursive_lock_destroy_multithreaded (gl_recursive_lock_t *lock) +{ + if (lock->owner != (pthread_t) 0) + return EBUSY; + return pthread_mutex_destroy (&lock->mutex); +} + +# endif + +/* -------------------------- gl_once_t datatype -------------------------- */ + +static const pthread_once_t fresh_once = PTHREAD_ONCE_INIT; + +int +glthread_once_singlethreaded (pthread_once_t *once_control) +{ + /* We don't know whether pthread_once_t is an integer type, a floating-point + type, a pointer type, or a structure type. */ + char *firstbyte = (char *)once_control; + if (*firstbyte == *(const char *)&fresh_once) + { + /* First time use of once_control. Invert the first byte. */ + *firstbyte = ~ *(const char *)&fresh_once; + return 1; + } + else + return 0; +} + +#endif + +/* ========================================================================= */ + +#if USE_WINDOWS_THREADS + +#endif + +/* ========================================================================= */ diff --git a/gnulib-lib/glthread/lock.h b/gnulib-lib/glthread/lock.h new file mode 100644 index 0000000..a92c2a8 --- /dev/null +++ b/gnulib-lib/glthread/lock.h @@ -0,0 +1,666 @@ +/* Locking in multithreaded situations. + Copyright (C) 2005-2019 Free Software Foundation, Inc. + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 3, or (at your option) + any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, see . */ + +/* Written by Bruno Haible , 2005. + Based on GCC's gthr-posix.h, gthr-posix95.h, gthr-win32.h. */ + +/* This file contains locking primitives for use with a given thread library. + It does not contain primitives for creating threads or for other + synchronization primitives. + + Normal (non-recursive) locks: + Type: gl_lock_t + Declaration: gl_lock_define(extern, name) + Initializer: gl_lock_define_initialized(, name) + Initialization: gl_lock_init (name); + Taking the lock: gl_lock_lock (name); + Releasing the lock: gl_lock_unlock (name); + De-initialization: gl_lock_destroy (name); + Equivalent functions with control of error handling: + Initialization: err = glthread_lock_init (&name); + Taking the lock: err = glthread_lock_lock (&name); + Releasing the lock: err = glthread_lock_unlock (&name); + De-initialization: err = glthread_lock_destroy (&name); + + Read-Write (non-recursive) locks: + Type: gl_rwlock_t + Declaration: gl_rwlock_define(extern, name) + Initializer: gl_rwlock_define_initialized(, name) + Initialization: gl_rwlock_init (name); + Taking the lock: gl_rwlock_rdlock (name); + gl_rwlock_wrlock (name); + Releasing the lock: gl_rwlock_unlock (name); + De-initialization: gl_rwlock_destroy (name); + Equivalent functions with control of error handling: + Initialization: err = glthread_rwlock_init (&name); + Taking the lock: err = glthread_rwlock_rdlock (&name); + err = glthread_rwlock_wrlock (&name); + Releasing the lock: err = glthread_rwlock_unlock (&name); + De-initialization: err = glthread_rwlock_destroy (&name); + + Recursive locks: + Type: gl_recursive_lock_t + Declaration: gl_recursive_lock_define(extern, name) + Initializer: gl_recursive_lock_define_initialized(, name) + Initialization: gl_recursive_lock_init (name); + Taking the lock: gl_recursive_lock_lock (name); + Releasing the lock: gl_recursive_lock_unlock (name); + De-initialization: gl_recursive_lock_destroy (name); + Equivalent functions with control of error handling: + Initialization: err = glthread_recursive_lock_init (&name); + Taking the lock: err = glthread_recursive_lock_lock (&name); + Releasing the lock: err = glthread_recursive_lock_unlock (&name); + De-initialization: err = glthread_recursive_lock_destroy (&name); + + Once-only execution: + Type: gl_once_t + Initializer: gl_once_define(extern, name) + Execution: gl_once (name, initfunction); + Equivalent functions with control of error handling: + Execution: err = glthread_once (&name, initfunction); +*/ + + +#ifndef _LOCK_H +#define _LOCK_H + +#include +#include + +#if !defined c11_threads_in_use +# if HAVE_THREADS_H && USE_POSIX_THREADS_WEAK +# include +# pragma weak thrd_exit +# define c11_threads_in_use() (thrd_exit != NULL) +# else +# define c11_threads_in_use() 0 +# endif +#endif + +/* ========================================================================= */ + +#if USE_POSIX_THREADS + +/* Use the POSIX threads library. */ + +# include + +# ifdef __cplusplus +extern "C" { +# endif + +# if PTHREAD_IN_USE_DETECTION_HARD + +/* The pthread_in_use() detection needs to be done at runtime. */ +# define pthread_in_use() \ + glthread_in_use () +extern int glthread_in_use (void); + +# endif + +# if USE_POSIX_THREADS_WEAK + +/* Use weak references to the POSIX threads library. */ + +/* Weak references avoid dragging in external libraries if the other parts + of the program don't use them. Here we use them, because we don't want + every program that uses libintl to depend on libpthread. This assumes + that libpthread would not be loaded after libintl; i.e. if libintl is + loaded first, by an executable that does not depend on libpthread, and + then a module is dynamically loaded that depends on libpthread, libintl + will not be multithread-safe. */ + +/* The way to test at runtime whether libpthread is present is to test + whether a function pointer's value, such as &pthread_mutex_init, is + non-NULL. However, some versions of GCC have a bug through which, in + PIC mode, &foo != NULL always evaluates to true if there is a direct + call to foo(...) in the same function. To avoid this, we test the + address of a function in libpthread that we don't use. */ + +# pragma weak pthread_mutex_init +# pragma weak pthread_mutex_lock +# pragma weak pthread_mutex_unlock +# pragma weak pthread_mutex_destroy +# pragma weak pthread_rwlock_init +# pragma weak pthread_rwlock_rdlock +# pragma weak pthread_rwlock_wrlock +# pragma weak pthread_rwlock_unlock +# pragma weak pthread_rwlock_destroy +# pragma weak pthread_once +# pragma weak pthread_cond_init +# pragma weak pthread_cond_wait +# pragma weak pthread_cond_signal +# pragma weak pthread_cond_broadcast +# pragma weak pthread_cond_destroy +# pragma weak pthread_mutexattr_init +# pragma weak pthread_mutexattr_settype +# pragma weak pthread_mutexattr_destroy +# pragma weak pthread_rwlockattr_init +# if __GNU_LIBRARY__ > 1 +# pragma weak pthread_rwlockattr_setkind_np +# endif +# pragma weak pthread_rwlockattr_destroy +# ifndef pthread_self +# pragma weak pthread_self +# endif + +# if !PTHREAD_IN_USE_DETECTION_HARD + /* Considering all platforms with USE_POSIX_THREADS_WEAK, only few symbols + can be used to determine whether libpthread is in use. These are: + pthread_mutexattr_gettype + pthread_rwlockattr_destroy + pthread_rwlockattr_init + */ +# pragma weak pthread_mutexattr_gettype +# define pthread_in_use() \ + (pthread_mutexattr_gettype != NULL || c11_threads_in_use ()) +# endif + +# else + +# if !PTHREAD_IN_USE_DETECTION_HARD +# define pthread_in_use() 1 +# endif + +# endif + +/* -------------------------- gl_lock_t datatype -------------------------- */ + +typedef pthread_mutex_t gl_lock_t; +# define gl_lock_define(STORAGECLASS, NAME) \ + STORAGECLASS pthread_mutex_t NAME; +# define gl_lock_define_initialized(STORAGECLASS, NAME) \ + STORAGECLASS pthread_mutex_t NAME = gl_lock_initializer; +# define gl_lock_initializer \ + PTHREAD_MUTEX_INITIALIZER +# define glthread_lock_init(LOCK) \ + (pthread_in_use () ? pthread_mutex_init (LOCK, NULL) : 0) +# define glthread_lock_lock(LOCK) \ + (pthread_in_use () ? pthread_mutex_lock (LOCK) : 0) +# define glthread_lock_unlock(LOCK) \ + (pthread_in_use () ? pthread_mutex_unlock (LOCK) : 0) +# define glthread_lock_destroy(LOCK) \ + (pthread_in_use () ? pthread_mutex_destroy (LOCK) : 0) + +/* ------------------------- gl_rwlock_t datatype ------------------------- */ + +# if HAVE_PTHREAD_RWLOCK && (HAVE_PTHREAD_RWLOCK_RDLOCK_PREFER_WRITER || (defined PTHREAD_RWLOCK_WRITER_NONRECURSIVE_INITIALIZER_NP && (__GNU_LIBRARY__ > 1))) + +# ifdef PTHREAD_RWLOCK_INITIALIZER + +typedef pthread_rwlock_t gl_rwlock_t; +# define gl_rwlock_define(STORAGECLASS, NAME) \ + STORAGECLASS pthread_rwlock_t NAME; +# define gl_rwlock_define_initialized(STORAGECLASS, NAME) \ + STORAGECLASS pthread_rwlock_t NAME = gl_rwlock_initializer; +# if HAVE_PTHREAD_RWLOCK_RDLOCK_PREFER_WRITER +# define gl_rwlock_initializer \ + PTHREAD_RWLOCK_INITIALIZER +# define glthread_rwlock_init(LOCK) \ + (pthread_in_use () ? pthread_rwlock_init (LOCK, NULL) : 0) +# else /* glibc with bug https://sourceware.org/bugzilla/show_bug.cgi?id=13701 */ +# define gl_rwlock_initializer \ + PTHREAD_RWLOCK_WRITER_NONRECURSIVE_INITIALIZER_NP +# define glthread_rwlock_init(LOCK) \ + (pthread_in_use () ? glthread_rwlock_init_for_glibc (LOCK) : 0) +extern int glthread_rwlock_init_for_glibc (pthread_rwlock_t *lock); +# endif +# define glthread_rwlock_rdlock(LOCK) \ + (pthread_in_use () ? pthread_rwlock_rdlock (LOCK) : 0) +# define glthread_rwlock_wrlock(LOCK) \ + (pthread_in_use () ? pthread_rwlock_wrlock (LOCK) : 0) +# define glthread_rwlock_unlock(LOCK) \ + (pthread_in_use () ? pthread_rwlock_unlock (LOCK) : 0) +# define glthread_rwlock_destroy(LOCK) \ + (pthread_in_use () ? pthread_rwlock_destroy (LOCK) : 0) + +# else + +typedef struct + { + int initialized; + pthread_mutex_t guard; /* protects the initialization */ + pthread_rwlock_t rwlock; /* read-write lock */ + } + gl_rwlock_t; +# define gl_rwlock_define(STORAGECLASS, NAME) \ + STORAGECLASS gl_rwlock_t NAME; +# define gl_rwlock_define_initialized(STORAGECLASS, NAME) \ + STORAGECLASS gl_rwlock_t NAME = gl_rwlock_initializer; +# define gl_rwlock_initializer \ + { 0, PTHREAD_MUTEX_INITIALIZER } +# define glthread_rwlock_init(LOCK) \ + (pthread_in_use () ? glthread_rwlock_init_multithreaded (LOCK) : 0) +# define glthread_rwlock_rdlock(LOCK) \ + (pthread_in_use () ? glthread_rwlock_rdlock_multithreaded (LOCK) : 0) +# define glthread_rwlock_wrlock(LOCK) \ + (pthread_in_use () ? glthread_rwlock_wrlock_multithreaded (LOCK) : 0) +# define glthread_rwlock_unlock(LOCK) \ + (pthread_in_use () ? glthread_rwlock_unlock_multithreaded (LOCK) : 0) +# define glthread_rwlock_destroy(LOCK) \ + (pthread_in_use () ? glthread_rwlock_destroy_multithreaded (LOCK) : 0) +extern int glthread_rwlock_init_multithreaded (gl_rwlock_t *lock); +extern int glthread_rwlock_rdlock_multithreaded (gl_rwlock_t *lock); +extern int glthread_rwlock_wrlock_multithreaded (gl_rwlock_t *lock); +extern int glthread_rwlock_unlock_multithreaded (gl_rwlock_t *lock); +extern int glthread_rwlock_destroy_multithreaded (gl_rwlock_t *lock); + +# endif + +# else + +typedef struct + { + pthread_mutex_t lock; /* protects the remaining fields */ + pthread_cond_t waiting_readers; /* waiting readers */ + pthread_cond_t waiting_writers; /* waiting writers */ + unsigned int waiting_writers_count; /* number of waiting writers */ + int runcount; /* number of readers running, or -1 when a writer runs */ + } + gl_rwlock_t; +# define gl_rwlock_define(STORAGECLASS, NAME) \ + STORAGECLASS gl_rwlock_t NAME; +# define gl_rwlock_define_initialized(STORAGECLASS, NAME) \ + STORAGECLASS gl_rwlock_t NAME = gl_rwlock_initializer; +# define gl_rwlock_initializer \ + { PTHREAD_MUTEX_INITIALIZER, PTHREAD_COND_INITIALIZER, PTHREAD_COND_INITIALIZER, 0, 0 } +# define glthread_rwlock_init(LOCK) \ + (pthread_in_use () ? glthread_rwlock_init_multithreaded (LOCK) : 0) +# define glthread_rwlock_rdlock(LOCK) \ + (pthread_in_use () ? glthread_rwlock_rdlock_multithreaded (LOCK) : 0) +# define glthread_rwlock_wrlock(LOCK) \ + (pthread_in_use () ? glthread_rwlock_wrlock_multithreaded (LOCK) : 0) +# define glthread_rwlock_unlock(LOCK) \ + (pthread_in_use () ? glthread_rwlock_unlock_multithreaded (LOCK) : 0) +# define glthread_rwlock_destroy(LOCK) \ + (pthread_in_use () ? glthread_rwlock_destroy_multithreaded (LOCK) : 0) +extern int glthread_rwlock_init_multithreaded (gl_rwlock_t *lock); +extern int glthread_rwlock_rdlock_multithreaded (gl_rwlock_t *lock); +extern int glthread_rwlock_wrlock_multithreaded (gl_rwlock_t *lock); +extern int glthread_rwlock_unlock_multithreaded (gl_rwlock_t *lock); +extern int glthread_rwlock_destroy_multithreaded (gl_rwlock_t *lock); + +# endif + +/* --------------------- gl_recursive_lock_t datatype --------------------- */ + +# if HAVE_PTHREAD_MUTEX_RECURSIVE + +# if defined PTHREAD_RECURSIVE_MUTEX_INITIALIZER || defined PTHREAD_RECURSIVE_MUTEX_INITIALIZER_NP + +typedef pthread_mutex_t gl_recursive_lock_t; +# define gl_recursive_lock_define(STORAGECLASS, NAME) \ + STORAGECLASS pthread_mutex_t NAME; +# define gl_recursive_lock_define_initialized(STORAGECLASS, NAME) \ + STORAGECLASS pthread_mutex_t NAME = gl_recursive_lock_initializer; +# ifdef PTHREAD_RECURSIVE_MUTEX_INITIALIZER +# define gl_recursive_lock_initializer \ + PTHREAD_RECURSIVE_MUTEX_INITIALIZER +# else +# define gl_recursive_lock_initializer \ + PTHREAD_RECURSIVE_MUTEX_INITIALIZER_NP +# endif +# define glthread_recursive_lock_init(LOCK) \ + (pthread_in_use () ? glthread_recursive_lock_init_multithreaded (LOCK) : 0) +# define glthread_recursive_lock_lock(LOCK) \ + (pthread_in_use () ? pthread_mutex_lock (LOCK) : 0) +# define glthread_recursive_lock_unlock(LOCK) \ + (pthread_in_use () ? pthread_mutex_unlock (LOCK) : 0) +# define glthread_recursive_lock_destroy(LOCK) \ + (pthread_in_use () ? pthread_mutex_destroy (LOCK) : 0) +extern int glthread_recursive_lock_init_multithreaded (gl_recursive_lock_t *lock); + +# else + +typedef struct + { + pthread_mutex_t recmutex; /* recursive mutex */ + pthread_mutex_t guard; /* protects the initialization */ + int initialized; + } + gl_recursive_lock_t; +# define gl_recursive_lock_define(STORAGECLASS, NAME) \ + STORAGECLASS gl_recursive_lock_t NAME; +# define gl_recursive_lock_define_initialized(STORAGECLASS, NAME) \ + STORAGECLASS gl_recursive_lock_t NAME = gl_recursive_lock_initializer; +# define gl_recursive_lock_initializer \ + { PTHREAD_MUTEX_INITIALIZER, PTHREAD_MUTEX_INITIALIZER, 0 } +# define glthread_recursive_lock_init(LOCK) \ + (pthread_in_use () ? glthread_recursive_lock_init_multithreaded (LOCK) : 0) +# define glthread_recursive_lock_lock(LOCK) \ + (pthread_in_use () ? glthread_recursive_lock_lock_multithreaded (LOCK) : 0) +# define glthread_recursive_lock_unlock(LOCK) \ + (pthread_in_use () ? glthread_recursive_lock_unlock_multithreaded (LOCK) : 0) +# define glthread_recursive_lock_destroy(LOCK) \ + (pthread_in_use () ? glthread_recursive_lock_destroy_multithreaded (LOCK) : 0) +extern int glthread_recursive_lock_init_multithreaded (gl_recursive_lock_t *lock); +extern int glthread_recursive_lock_lock_multithreaded (gl_recursive_lock_t *lock); +extern int glthread_recursive_lock_unlock_multithreaded (gl_recursive_lock_t *lock); +extern int glthread_recursive_lock_destroy_multithreaded (gl_recursive_lock_t *lock); + +# endif + +# else + +/* Old versions of POSIX threads on Solaris did not have recursive locks. + We have to implement them ourselves. */ + +typedef struct + { + pthread_mutex_t mutex; + pthread_t owner; + unsigned long depth; + } + gl_recursive_lock_t; +# define gl_recursive_lock_define(STORAGECLASS, NAME) \ + STORAGECLASS gl_recursive_lock_t NAME; +# define gl_recursive_lock_define_initialized(STORAGECLASS, NAME) \ + STORAGECLASS gl_recursive_lock_t NAME = gl_recursive_lock_initializer; +# define gl_recursive_lock_initializer \ + { PTHREAD_MUTEX_INITIALIZER, (pthread_t) 0, 0 } +# define glthread_recursive_lock_init(LOCK) \ + (pthread_in_use () ? glthread_recursive_lock_init_multithreaded (LOCK) : 0) +# define glthread_recursive_lock_lock(LOCK) \ + (pthread_in_use () ? glthread_recursive_lock_lock_multithreaded (LOCK) : 0) +# define glthread_recursive_lock_unlock(LOCK) \ + (pthread_in_use () ? glthread_recursive_lock_unlock_multithreaded (LOCK) : 0) +# define glthread_recursive_lock_destroy(LOCK) \ + (pthread_in_use () ? glthread_recursive_lock_destroy_multithreaded (LOCK) : 0) +extern int glthread_recursive_lock_init_multithreaded (gl_recursive_lock_t *lock); +extern int glthread_recursive_lock_lock_multithreaded (gl_recursive_lock_t *lock); +extern int glthread_recursive_lock_unlock_multithreaded (gl_recursive_lock_t *lock); +extern int glthread_recursive_lock_destroy_multithreaded (gl_recursive_lock_t *lock); + +# endif + +/* -------------------------- gl_once_t datatype -------------------------- */ + +typedef pthread_once_t gl_once_t; +# define gl_once_define(STORAGECLASS, NAME) \ + STORAGECLASS pthread_once_t NAME = PTHREAD_ONCE_INIT; +# define glthread_once(ONCE_CONTROL, INITFUNCTION) \ + (pthread_in_use () \ + ? pthread_once (ONCE_CONTROL, INITFUNCTION) \ + : (glthread_once_singlethreaded (ONCE_CONTROL) ? (INITFUNCTION (), 0) : 0)) +extern int glthread_once_singlethreaded (pthread_once_t *once_control); + +# ifdef __cplusplus +} +# endif + +#endif + +/* ========================================================================= */ + +#if USE_WINDOWS_THREADS + +# define WIN32_LEAN_AND_MEAN /* avoid including junk */ +# include + +# include "windows-mutex.h" +# include "windows-rwlock.h" +# include "windows-recmutex.h" +# include "windows-once.h" + +# ifdef __cplusplus +extern "C" { +# endif + +/* We can use CRITICAL_SECTION directly, rather than the native Windows Event, + Mutex, Semaphore types, because + - we need only to synchronize inside a single process (address space), + not inter-process locking, + - we don't need to support trylock operations. (TryEnterCriticalSection + does not work on Windows 95/98/ME. Packages that need trylock usually + define their own mutex type.) */ + +/* There is no way to statically initialize a CRITICAL_SECTION. It needs + to be done lazily, once only. For this we need spinlocks. */ + +/* -------------------------- gl_lock_t datatype -------------------------- */ + +typedef glwthread_mutex_t gl_lock_t; +# define gl_lock_define(STORAGECLASS, NAME) \ + STORAGECLASS gl_lock_t NAME; +# define gl_lock_define_initialized(STORAGECLASS, NAME) \ + STORAGECLASS gl_lock_t NAME = gl_lock_initializer; +# define gl_lock_initializer \ + GLWTHREAD_MUTEX_INIT +# define glthread_lock_init(LOCK) \ + (glwthread_mutex_init (LOCK), 0) +# define glthread_lock_lock(LOCK) \ + glwthread_mutex_lock (LOCK) +# define glthread_lock_unlock(LOCK) \ + glwthread_mutex_unlock (LOCK) +# define glthread_lock_destroy(LOCK) \ + glwthread_mutex_destroy (LOCK) + +/* ------------------------- gl_rwlock_t datatype ------------------------- */ + +typedef glwthread_rwlock_t gl_rwlock_t; +# define gl_rwlock_define(STORAGECLASS, NAME) \ + STORAGECLASS gl_rwlock_t NAME; +# define gl_rwlock_define_initialized(STORAGECLASS, NAME) \ + STORAGECLASS gl_rwlock_t NAME = gl_rwlock_initializer; +# define gl_rwlock_initializer \ + GLWTHREAD_RWLOCK_INIT +# define glthread_rwlock_init(LOCK) \ + (glwthread_rwlock_init (LOCK), 0) +# define glthread_rwlock_rdlock(LOCK) \ + glwthread_rwlock_rdlock (LOCK) +# define glthread_rwlock_wrlock(LOCK) \ + glwthread_rwlock_wrlock (LOCK) +# define glthread_rwlock_unlock(LOCK) \ + glwthread_rwlock_unlock (LOCK) +# define glthread_rwlock_destroy(LOCK) \ + glwthread_rwlock_destroy (LOCK) + +/* --------------------- gl_recursive_lock_t datatype --------------------- */ + +typedef glwthread_recmutex_t gl_recursive_lock_t; +# define gl_recursive_lock_define(STORAGECLASS, NAME) \ + STORAGECLASS gl_recursive_lock_t NAME; +# define gl_recursive_lock_define_initialized(STORAGECLASS, NAME) \ + STORAGECLASS gl_recursive_lock_t NAME = gl_recursive_lock_initializer; +# define gl_recursive_lock_initializer \ + GLWTHREAD_RECMUTEX_INIT +# define glthread_recursive_lock_init(LOCK) \ + (glwthread_recmutex_init (LOCK), 0) +# define glthread_recursive_lock_lock(LOCK) \ + glwthread_recmutex_lock (LOCK) +# define glthread_recursive_lock_unlock(LOCK) \ + glwthread_recmutex_unlock (LOCK) +# define glthread_recursive_lock_destroy(LOCK) \ + glwthread_recmutex_destroy (LOCK) + +/* -------------------------- gl_once_t datatype -------------------------- */ + +typedef glwthread_once_t gl_once_t; +# define gl_once_define(STORAGECLASS, NAME) \ + STORAGECLASS gl_once_t NAME = GLWTHREAD_ONCE_INIT; +# define glthread_once(ONCE_CONTROL, INITFUNCTION) \ + (glwthread_once (ONCE_CONTROL, INITFUNCTION), 0) + +# ifdef __cplusplus +} +# endif + +#endif + +/* ========================================================================= */ + +#if !(USE_POSIX_THREADS || USE_WINDOWS_THREADS) + +/* Provide dummy implementation if threads are not supported. */ + +/* -------------------------- gl_lock_t datatype -------------------------- */ + +typedef int gl_lock_t; +# define gl_lock_define(STORAGECLASS, NAME) +# define gl_lock_define_initialized(STORAGECLASS, NAME) +# define glthread_lock_init(NAME) 0 +# define glthread_lock_lock(NAME) 0 +# define glthread_lock_unlock(NAME) 0 +# define glthread_lock_destroy(NAME) 0 + +/* ------------------------- gl_rwlock_t datatype ------------------------- */ + +typedef int gl_rwlock_t; +# define gl_rwlock_define(STORAGECLASS, NAME) +# define gl_rwlock_define_initialized(STORAGECLASS, NAME) +# define glthread_rwlock_init(NAME) 0 +# define glthread_rwlock_rdlock(NAME) 0 +# define glthread_rwlock_wrlock(NAME) 0 +# define glthread_rwlock_unlock(NAME) 0 +# define glthread_rwlock_destroy(NAME) 0 + +/* --------------------- gl_recursive_lock_t datatype --------------------- */ + +typedef int gl_recursive_lock_t; +# define gl_recursive_lock_define(STORAGECLASS, NAME) +# define gl_recursive_lock_define_initialized(STORAGECLASS, NAME) +# define glthread_recursive_lock_init(NAME) 0 +# define glthread_recursive_lock_lock(NAME) 0 +# define glthread_recursive_lock_unlock(NAME) 0 +# define glthread_recursive_lock_destroy(NAME) 0 + +/* -------------------------- gl_once_t datatype -------------------------- */ + +typedef int gl_once_t; +# define gl_once_define(STORAGECLASS, NAME) \ + STORAGECLASS gl_once_t NAME = 0; +# define glthread_once(ONCE_CONTROL, INITFUNCTION) \ + (*(ONCE_CONTROL) == 0 ? (*(ONCE_CONTROL) = ~ 0, INITFUNCTION (), 0) : 0) + +#endif + +/* ========================================================================= */ + +/* Macros with built-in error handling. */ + +/* -------------------------- gl_lock_t datatype -------------------------- */ + +#define gl_lock_init(NAME) \ + do \ + { \ + if (glthread_lock_init (&NAME)) \ + abort (); \ + } \ + while (0) +#define gl_lock_lock(NAME) \ + do \ + { \ + if (glthread_lock_lock (&NAME)) \ + abort (); \ + } \ + while (0) +#define gl_lock_unlock(NAME) \ + do \ + { \ + if (glthread_lock_unlock (&NAME)) \ + abort (); \ + } \ + while (0) +#define gl_lock_destroy(NAME) \ + do \ + { \ + if (glthread_lock_destroy (&NAME)) \ + abort (); \ + } \ + while (0) + +/* ------------------------- gl_rwlock_t datatype ------------------------- */ + +#define gl_rwlock_init(NAME) \ + do \ + { \ + if (glthread_rwlock_init (&NAME)) \ + abort (); \ + } \ + while (0) +#define gl_rwlock_rdlock(NAME) \ + do \ + { \ + if (glthread_rwlock_rdlock (&NAME)) \ + abort (); \ + } \ + while (0) +#define gl_rwlock_wrlock(NAME) \ + do \ + { \ + if (glthread_rwlock_wrlock (&NAME)) \ + abort (); \ + } \ + while (0) +#define gl_rwlock_unlock(NAME) \ + do \ + { \ + if (glthread_rwlock_unlock (&NAME)) \ + abort (); \ + } \ + while (0) +#define gl_rwlock_destroy(NAME) \ + do \ + { \ + if (glthread_rwlock_destroy (&NAME)) \ + abort (); \ + } \ + while (0) + +/* --------------------- gl_recursive_lock_t datatype --------------------- */ + +#define gl_recursive_lock_init(NAME) \ + do \ + { \ + if (glthread_recursive_lock_init (&NAME)) \ + abort (); \ + } \ + while (0) +#define gl_recursive_lock_lock(NAME) \ + do \ + { \ + if (glthread_recursive_lock_lock (&NAME)) \ + abort (); \ + } \ + while (0) +#define gl_recursive_lock_unlock(NAME) \ + do \ + { \ + if (glthread_recursive_lock_unlock (&NAME)) \ + abort (); \ + } \ + while (0) +#define gl_recursive_lock_destroy(NAME) \ + do \ + { \ + if (glthread_recursive_lock_destroy (&NAME)) \ + abort (); \ + } \ + while (0) + +/* -------------------------- gl_once_t datatype -------------------------- */ + +#define gl_once(NAME, INITFUNCTION) \ + do \ + { \ + if (glthread_once (&NAME, INITFUNCTION)) \ + abort (); \ + } \ + while (0) + +/* ========================================================================= */ + +#endif /* _LOCK_H */ diff --git a/gnulib-lib/glthread/threadlib.c b/gnulib-lib/glthread/threadlib.c new file mode 100644 index 0000000..a5ebd9b --- /dev/null +++ b/gnulib-lib/glthread/threadlib.c @@ -0,0 +1,73 @@ +/* Multithreading primitives. + Copyright (C) 2005-2019 Free Software Foundation, Inc. + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 3, or (at your option) + any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, see . */ + +/* Written by Bruno Haible , 2005. */ + +#include + +/* ========================================================================= */ + +#if USE_POSIX_THREADS + +/* Use the POSIX threads library. */ + +# include +# include + +# if PTHREAD_IN_USE_DETECTION_HARD + +/* The function to be executed by a dummy thread. */ +static void * +dummy_thread_func (void *arg) +{ + return arg; +} + +int +glthread_in_use (void) +{ + static int tested; + static int result; /* 1: linked with -lpthread, 0: only with libc */ + + if (!tested) + { + pthread_t thread; + + if (pthread_create (&thread, NULL, dummy_thread_func, NULL) != 0) + /* Thread creation failed. */ + result = 0; + else + { + /* Thread creation works. */ + void *retval; + if (pthread_join (thread, &retval) != 0) + abort (); + result = 1; + } + tested = 1; + } + return result; +} + +# endif + +#endif + +/* ========================================================================= */ + +/* This declaration is solely to ensure that after preprocessing + this file is never empty. */ +typedef int dummy; diff --git a/gnulib-lib/limits.in.h b/gnulib-lib/limits.in.h new file mode 100644 index 0000000..39750b3 --- /dev/null +++ b/gnulib-lib/limits.in.h @@ -0,0 +1,104 @@ +/* A GNU-like . + + Copyright 2016-2019 Free Software Foundation, Inc. + + This program is free software; you can redistribute it and/or + modify it under the terms of the GNU General Public License + as published by the Free Software Foundation; either version 3, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, see . */ + +#ifndef _@GUARD_PREFIX@_LIMITS_H + +#if __GNUC__ >= 3 +@PRAGMA_SYSTEM_HEADER@ +#endif +@PRAGMA_COLUMNS@ + +/* The include_next requires a split double-inclusion guard. */ +#@INCLUDE_NEXT@ @NEXT_LIMITS_H@ + +#ifndef _@GUARD_PREFIX@_LIMITS_H +#define _@GUARD_PREFIX@_LIMITS_H + +#ifndef LLONG_MIN +# if defined LONG_LONG_MIN /* HP-UX 11.31 */ +# define LLONG_MIN LONG_LONG_MIN +# elif defined LONGLONG_MIN /* IRIX 6.5 */ +# define LLONG_MIN LONGLONG_MIN +# elif defined __GNUC__ +# define LLONG_MIN (- __LONG_LONG_MAX__ - 1LL) +# endif +#endif +#ifndef LLONG_MAX +# if defined LONG_LONG_MAX /* HP-UX 11.31 */ +# define LLONG_MAX LONG_LONG_MAX +# elif defined LONGLONG_MAX /* IRIX 6.5 */ +# define LLONG_MAX LONGLONG_MAX +# elif defined __GNUC__ +# define LLONG_MAX __LONG_LONG_MAX__ +# endif +#endif +#ifndef ULLONG_MAX +# if defined ULONG_LONG_MAX /* HP-UX 11.31 */ +# define ULLONG_MAX ULONG_LONG_MAX +# elif defined ULONGLONG_MAX /* IRIX 6.5 */ +# define ULLONG_MAX ULONGLONG_MAX +# elif defined __GNUC__ +# define ULLONG_MAX (__LONG_LONG_MAX__ * 2ULL + 1ULL) +# endif +#endif + +/* The number of usable bits in an unsigned or signed integer type + with minimum value MIN and maximum value MAX, as an int expression + suitable in #if. Cover all known practical hosts. This + implementation exploits the fact that MAX is 1 less than a power of + 2, and merely counts the number of 1 bits in MAX; "COBn" means + "count the number of 1 bits in the low-order n bits"). */ +#define _GL_INTEGER_WIDTH(min, max) (((min) < 0) + _GL_COB128 (max)) +#define _GL_COB128(n) (_GL_COB64 ((n) >> 31 >> 31 >> 2) + _GL_COB64 (n)) +#define _GL_COB64(n) (_GL_COB32 ((n) >> 31 >> 1) + _GL_COB32 (n)) +#define _GL_COB32(n) (_GL_COB16 ((n) >> 16) + _GL_COB16 (n)) +#define _GL_COB16(n) (_GL_COB8 ((n) >> 8) + _GL_COB8 (n)) +#define _GL_COB8(n) (_GL_COB4 ((n) >> 4) + _GL_COB4 (n)) +#define _GL_COB4(n) (!!((n) & 8) + !!((n) & 4) + !!((n) & 2) + !!((n) & 1)) + +#ifndef WORD_BIT +/* Assume 'int' is 32 bits wide. */ +# define WORD_BIT 32 +#endif +#ifndef LONG_BIT +/* Assume 'long' is 32 or 64 bits wide. */ +# if LONG_MAX == INT_MAX +# define LONG_BIT 32 +# else +# define LONG_BIT 64 +# endif +#endif + +/* Macros specified by ISO/IEC TS 18661-1:2014. */ + +#if (! defined ULLONG_WIDTH \ + && (defined _GNU_SOURCE || defined __STDC_WANT_IEC_60559_BFP_EXT__)) +# define CHAR_WIDTH _GL_INTEGER_WIDTH (CHAR_MIN, CHAR_MAX) +# define SCHAR_WIDTH _GL_INTEGER_WIDTH (SCHAR_MIN, SCHAR_MAX) +# define UCHAR_WIDTH _GL_INTEGER_WIDTH (0, UCHAR_MAX) +# define SHRT_WIDTH _GL_INTEGER_WIDTH (SHRT_MIN, SHRT_MAX) +# define USHRT_WIDTH _GL_INTEGER_WIDTH (0, USHRT_MAX) +# define INT_WIDTH _GL_INTEGER_WIDTH (INT_MIN, INT_MAX) +# define UINT_WIDTH _GL_INTEGER_WIDTH (0, UINT_MAX) +# define LONG_WIDTH _GL_INTEGER_WIDTH (LONG_MIN, LONG_MAX) +# define ULONG_WIDTH _GL_INTEGER_WIDTH (0, ULONG_MAX) +# define LLONG_WIDTH _GL_INTEGER_WIDTH (LLONG_MIN, LLONG_MAX) +# define ULLONG_WIDTH _GL_INTEGER_WIDTH (0, ULLONG_MAX) +#endif /* !ULLONG_WIDTH && (_GNU_SOURCE || __STDC_WANT_IEC_60559_BFP_EXT__) */ + +#endif /* _@GUARD_PREFIX@_LIMITS_H */ +#endif /* _@GUARD_PREFIX@_LIMITS_H */ diff --git a/gnulib-lib/stdint.in.h b/gnulib-lib/stdint.in.h new file mode 100644 index 0000000..21dd8d2 --- /dev/null +++ b/gnulib-lib/stdint.in.h @@ -0,0 +1,726 @@ +/* Copyright (C) 2001-2002, 2004-2019 Free Software Foundation, Inc. + Written by Paul Eggert, Bruno Haible, Sam Steingold, Peter Burwood. + This file is part of gnulib. + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 3, or (at your option) + any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, see . */ + +/* + * ISO C 99 for platforms that lack it. + * + */ + +#ifndef _@GUARD_PREFIX@_STDINT_H + +#if __GNUC__ >= 3 +@PRAGMA_SYSTEM_HEADER@ +#endif +@PRAGMA_COLUMNS@ + +/* When including a system file that in turn includes , + use the system , not our substitute. This avoids + problems with (for example) VMS, whose includes + . */ +#define _GL_JUST_INCLUDE_SYSTEM_INTTYPES_H + +/* On Android (Bionic libc), includes this file before + having defined 'time_t'. Therefore in this case avoid including + other system header files; just include the system's . + Ideally we should test __BIONIC__ here, but it is only defined after + has been included; hence test __ANDROID__ instead. */ +#if defined __ANDROID__ && defined _GL_INCLUDING_SYS_TYPES_H +# @INCLUDE_NEXT@ @NEXT_STDINT_H@ +#else + +/* Get those types that are already defined in other system include + files, so that we can "#define int8_t signed char" below without + worrying about a later system include file containing a "typedef + signed char int8_t;" that will get messed up by our macro. Our + macros should all be consistent with the system versions, except + for the "fast" types and macros, which we recommend against using + in public interfaces due to compiler differences. */ + +#if @HAVE_STDINT_H@ +# if defined __sgi && ! defined __c99 + /* Bypass IRIX's if in C89 mode, since it merely annoys users + with "This header file is to be used only for c99 mode compilations" + diagnostics. */ +# define __STDINT_H__ +# endif + + /* Some pre-C++11 implementations need this. */ +# ifdef __cplusplus +# ifndef __STDC_CONSTANT_MACROS +# define __STDC_CONSTANT_MACROS 1 +# endif +# ifndef __STDC_LIMIT_MACROS +# define __STDC_LIMIT_MACROS 1 +# endif +# endif + + /* Other systems may have an incomplete or buggy . + Include it before , since any "#include " + in would reinclude us, skipping our contents because + _@GUARD_PREFIX@_STDINT_H is defined. + The include_next requires a split double-inclusion guard. */ +# @INCLUDE_NEXT@ @NEXT_STDINT_H@ +#endif + +#if ! defined _@GUARD_PREFIX@_STDINT_H && ! defined _GL_JUST_INCLUDE_SYSTEM_STDINT_H +#define _@GUARD_PREFIX@_STDINT_H + +/* Get SCHAR_MIN, SCHAR_MAX, UCHAR_MAX, INT_MIN, INT_MAX, + LONG_MIN, LONG_MAX, ULONG_MAX, _GL_INTEGER_WIDTH. */ +#include + +/* Override WINT_MIN and WINT_MAX if gnulib's or overrides + wint_t. */ +#if @GNULIB_OVERRIDES_WINT_T@ +# undef WINT_MIN +# undef WINT_MAX +# define WINT_MIN 0x0U +# define WINT_MAX 0xffffffffU +#endif + +#if ! @HAVE_C99_STDINT_H@ + +/* defines some of the stdint.h types as well, on glibc, + IRIX 6.5, and OpenBSD 3.8 (via ). + AIX 5.2 isn't needed and causes troubles. + Mac OS X 10.4.6 includes (which is us), but + relies on the system definitions, so include + after @NEXT_STDINT_H@. */ +# if @HAVE_SYS_TYPES_H@ && ! defined _AIX +# include +# endif + +# if @HAVE_INTTYPES_H@ + /* In OpenBSD 3.8, includes , which defines + int{8,16,32,64}_t, uint{8,16,32,64}_t and __BIT_TYPES_DEFINED__. + also defines intptr_t and uintptr_t. */ +# include +# elif @HAVE_SYS_INTTYPES_H@ + /* Solaris 7 has the types except the *_fast*_t types, and + the macros except for *_FAST*_*, INTPTR_MIN, PTRDIFF_MIN, PTRDIFF_MAX. */ +# include +# endif + +# if @HAVE_SYS_BITYPES_H@ && ! defined __BIT_TYPES_DEFINED__ + /* Linux libc4 >= 4.6.7 and libc5 have a that defines + int{8,16,32,64}_t and __BIT_TYPES_DEFINED__. In libc5 >= 5.2.2 it is + included by . */ +# include +# endif + +# undef _GL_JUST_INCLUDE_SYSTEM_INTTYPES_H + +/* Minimum and maximum values for an integer type under the usual assumption. + Return an unspecified value if BITS == 0, adding a check to pacify + picky compilers. */ + +/* These are separate macros, because if you try to merge these macros into + a single one, HP-UX cc rejects the resulting expression in constant + expressions. */ +# define _STDINT_UNSIGNED_MIN(bits, zero) \ + (zero) +# define _STDINT_SIGNED_MIN(bits, zero) \ + (~ _STDINT_MAX (1, bits, zero)) + +# define _STDINT_MAX(signed, bits, zero) \ + (((((zero) + 1) << ((bits) ? (bits) - 1 - (signed) : 0)) - 1) * 2 + 1) + +#if !GNULIB_defined_stdint_types + +/* 7.18.1.1. Exact-width integer types */ + +/* Here we assume a standard architecture where the hardware integer + types have 8, 16, 32, optionally 64 bits. */ + +# undef int8_t +# undef uint8_t +typedef signed char gl_int8_t; +typedef unsigned char gl_uint8_t; +# define int8_t gl_int8_t +# define uint8_t gl_uint8_t + +# undef int16_t +# undef uint16_t +typedef short int gl_int16_t; +typedef unsigned short int gl_uint16_t; +# define int16_t gl_int16_t +# define uint16_t gl_uint16_t + +# undef int32_t +# undef uint32_t +typedef int gl_int32_t; +typedef unsigned int gl_uint32_t; +# define int32_t gl_int32_t +# define uint32_t gl_uint32_t + +/* If the system defines INT64_MAX, assume int64_t works. That way, + if the underlying platform defines int64_t to be a 64-bit long long + int, the code below won't mistakenly define it to be a 64-bit long + int, which would mess up C++ name mangling. We must use #ifdef + rather than #if, to avoid an error with HP-UX 10.20 cc. */ + +# ifdef INT64_MAX +# define GL_INT64_T +# else +/* Do not undefine int64_t if gnulib is not being used with 64-bit + types, since otherwise it breaks platforms like Tandem/NSK. */ +# if LONG_MAX >> 31 >> 31 == 1 +# undef int64_t +typedef long int gl_int64_t; +# define int64_t gl_int64_t +# define GL_INT64_T +# elif defined _MSC_VER +# undef int64_t +typedef __int64 gl_int64_t; +# define int64_t gl_int64_t +# define GL_INT64_T +# elif @HAVE_LONG_LONG_INT@ +# undef int64_t +typedef long long int gl_int64_t; +# define int64_t gl_int64_t +# define GL_INT64_T +# endif +# endif + +# ifdef UINT64_MAX +# define GL_UINT64_T +# else +# if ULONG_MAX >> 31 >> 31 >> 1 == 1 +# undef uint64_t +typedef unsigned long int gl_uint64_t; +# define uint64_t gl_uint64_t +# define GL_UINT64_T +# elif defined _MSC_VER +# undef uint64_t +typedef unsigned __int64 gl_uint64_t; +# define uint64_t gl_uint64_t +# define GL_UINT64_T +# elif @HAVE_UNSIGNED_LONG_LONG_INT@ +# undef uint64_t +typedef unsigned long long int gl_uint64_t; +# define uint64_t gl_uint64_t +# define GL_UINT64_T +# endif +# endif + +/* Avoid collision with Solaris 2.5.1 etc. */ +# define _UINT8_T +# define _UINT32_T +# define _UINT64_T + + +/* 7.18.1.2. Minimum-width integer types */ + +/* Here we assume a standard architecture where the hardware integer + types have 8, 16, 32, optionally 64 bits. Therefore the leastN_t types + are the same as the corresponding N_t types. */ + +# undef int_least8_t +# undef uint_least8_t +# undef int_least16_t +# undef uint_least16_t +# undef int_least32_t +# undef uint_least32_t +# undef int_least64_t +# undef uint_least64_t +# define int_least8_t int8_t +# define uint_least8_t uint8_t +# define int_least16_t int16_t +# define uint_least16_t uint16_t +# define int_least32_t int32_t +# define uint_least32_t uint32_t +# ifdef GL_INT64_T +# define int_least64_t int64_t +# endif +# ifdef GL_UINT64_T +# define uint_least64_t uint64_t +# endif + +/* 7.18.1.3. Fastest minimum-width integer types */ + +/* Note: Other substitutes may define these types differently. + It is not recommended to use these types in public header files. */ + +/* Here we assume a standard architecture where the hardware integer + types have 8, 16, 32, optionally 64 bits. Therefore the fastN_t types + are taken from the same list of types. The following code normally + uses types consistent with glibc, as that lessens the chance of + incompatibility with older GNU hosts. */ + +# undef int_fast8_t +# undef uint_fast8_t +# undef int_fast16_t +# undef uint_fast16_t +# undef int_fast32_t +# undef uint_fast32_t +# undef int_fast64_t +# undef uint_fast64_t +typedef signed char gl_int_fast8_t; +typedef unsigned char gl_uint_fast8_t; + +# ifdef __sun +/* Define types compatible with SunOS 5.10, so that code compiled under + earlier SunOS versions works with code compiled under SunOS 5.10. */ +typedef int gl_int_fast32_t; +typedef unsigned int gl_uint_fast32_t; +# else +typedef long int gl_int_fast32_t; +typedef unsigned long int gl_uint_fast32_t; +# endif +typedef gl_int_fast32_t gl_int_fast16_t; +typedef gl_uint_fast32_t gl_uint_fast16_t; + +# define int_fast8_t gl_int_fast8_t +# define uint_fast8_t gl_uint_fast8_t +# define int_fast16_t gl_int_fast16_t +# define uint_fast16_t gl_uint_fast16_t +# define int_fast32_t gl_int_fast32_t +# define uint_fast32_t gl_uint_fast32_t +# ifdef GL_INT64_T +# define int_fast64_t int64_t +# endif +# ifdef GL_UINT64_T +# define uint_fast64_t uint64_t +# endif + +/* 7.18.1.4. Integer types capable of holding object pointers */ + +/* kLIBC's stdint.h defines _INTPTR_T_DECLARED and needs its own + definitions of intptr_t and uintptr_t (which use int and unsigned) + to avoid clashes with declarations of system functions like sbrk. */ +# ifndef _INTPTR_T_DECLARED +# undef intptr_t +# undef uintptr_t +typedef long int gl_intptr_t; +typedef unsigned long int gl_uintptr_t; +# define intptr_t gl_intptr_t +# define uintptr_t gl_uintptr_t +# endif + +/* 7.18.1.5. Greatest-width integer types */ + +/* Note: These types are compiler dependent. It may be unwise to use them in + public header files. */ + +/* If the system defines INTMAX_MAX, assume that intmax_t works, and + similarly for UINTMAX_MAX and uintmax_t. This avoids problems with + assuming one type where another is used by the system. */ + +# ifndef INTMAX_MAX +# undef INTMAX_C +# undef intmax_t +# if @HAVE_LONG_LONG_INT@ && LONG_MAX >> 30 == 1 +typedef long long int gl_intmax_t; +# define intmax_t gl_intmax_t +# elif defined GL_INT64_T +# define intmax_t int64_t +# else +typedef long int gl_intmax_t; +# define intmax_t gl_intmax_t +# endif +# endif + +# ifndef UINTMAX_MAX +# undef UINTMAX_C +# undef uintmax_t +# if @HAVE_UNSIGNED_LONG_LONG_INT@ && ULONG_MAX >> 31 == 1 +typedef unsigned long long int gl_uintmax_t; +# define uintmax_t gl_uintmax_t +# elif defined GL_UINT64_T +# define uintmax_t uint64_t +# else +typedef unsigned long int gl_uintmax_t; +# define uintmax_t gl_uintmax_t +# endif +# endif + +/* Verify that intmax_t and uintmax_t have the same size. Too much code + breaks if this is not the case. If this check fails, the reason is likely + to be found in the autoconf macros. */ +typedef int _verify_intmax_size[sizeof (intmax_t) == sizeof (uintmax_t) + ? 1 : -1]; + +# define GNULIB_defined_stdint_types 1 +# endif /* !GNULIB_defined_stdint_types */ + +/* 7.18.2. Limits of specified-width integer types */ + +/* 7.18.2.1. Limits of exact-width integer types */ + +/* Here we assume a standard architecture where the hardware integer + types have 8, 16, 32, optionally 64 bits. */ + +# undef INT8_MIN +# undef INT8_MAX +# undef UINT8_MAX +# define INT8_MIN (~ INT8_MAX) +# define INT8_MAX 127 +# define UINT8_MAX 255 + +# undef INT16_MIN +# undef INT16_MAX +# undef UINT16_MAX +# define INT16_MIN (~ INT16_MAX) +# define INT16_MAX 32767 +# define UINT16_MAX 65535 + +# undef INT32_MIN +# undef INT32_MAX +# undef UINT32_MAX +# define INT32_MIN (~ INT32_MAX) +# define INT32_MAX 2147483647 +# define UINT32_MAX 4294967295U + +# if defined GL_INT64_T && ! defined INT64_MAX +/* Prefer (- INTMAX_C (1) << 63) over (~ INT64_MAX) because SunPRO C 5.0 + evaluates the latter incorrectly in preprocessor expressions. */ +# define INT64_MIN (- INTMAX_C (1) << 63) +# define INT64_MAX INTMAX_C (9223372036854775807) +# endif + +# if defined GL_UINT64_T && ! defined UINT64_MAX +# define UINT64_MAX UINTMAX_C (18446744073709551615) +# endif + +/* 7.18.2.2. Limits of minimum-width integer types */ + +/* Here we assume a standard architecture where the hardware integer + types have 8, 16, 32, optionally 64 bits. Therefore the leastN_t types + are the same as the corresponding N_t types. */ + +# undef INT_LEAST8_MIN +# undef INT_LEAST8_MAX +# undef UINT_LEAST8_MAX +# define INT_LEAST8_MIN INT8_MIN +# define INT_LEAST8_MAX INT8_MAX +# define UINT_LEAST8_MAX UINT8_MAX + +# undef INT_LEAST16_MIN +# undef INT_LEAST16_MAX +# undef UINT_LEAST16_MAX +# define INT_LEAST16_MIN INT16_MIN +# define INT_LEAST16_MAX INT16_MAX +# define UINT_LEAST16_MAX UINT16_MAX + +# undef INT_LEAST32_MIN +# undef INT_LEAST32_MAX +# undef UINT_LEAST32_MAX +# define INT_LEAST32_MIN INT32_MIN +# define INT_LEAST32_MAX INT32_MAX +# define UINT_LEAST32_MAX UINT32_MAX + +# undef INT_LEAST64_MIN +# undef INT_LEAST64_MAX +# ifdef GL_INT64_T +# define INT_LEAST64_MIN INT64_MIN +# define INT_LEAST64_MAX INT64_MAX +# endif + +# undef UINT_LEAST64_MAX +# ifdef GL_UINT64_T +# define UINT_LEAST64_MAX UINT64_MAX +# endif + +/* 7.18.2.3. Limits of fastest minimum-width integer types */ + +/* Here we assume a standard architecture where the hardware integer + types have 8, 16, 32, optionally 64 bits. Therefore the fastN_t types + are taken from the same list of types. */ + +# undef INT_FAST8_MIN +# undef INT_FAST8_MAX +# undef UINT_FAST8_MAX +# define INT_FAST8_MIN SCHAR_MIN +# define INT_FAST8_MAX SCHAR_MAX +# define UINT_FAST8_MAX UCHAR_MAX + +# undef INT_FAST16_MIN +# undef INT_FAST16_MAX +# undef UINT_FAST16_MAX +# define INT_FAST16_MIN INT_FAST32_MIN +# define INT_FAST16_MAX INT_FAST32_MAX +# define UINT_FAST16_MAX UINT_FAST32_MAX + +# undef INT_FAST32_MIN +# undef INT_FAST32_MAX +# undef UINT_FAST32_MAX +# ifdef __sun +# define INT_FAST32_MIN INT_MIN +# define INT_FAST32_MAX INT_MAX +# define UINT_FAST32_MAX UINT_MAX +# else +# define INT_FAST32_MIN LONG_MIN +# define INT_FAST32_MAX LONG_MAX +# define UINT_FAST32_MAX ULONG_MAX +# endif + +# undef INT_FAST64_MIN +# undef INT_FAST64_MAX +# ifdef GL_INT64_T +# define INT_FAST64_MIN INT64_MIN +# define INT_FAST64_MAX INT64_MAX +# endif + +# undef UINT_FAST64_MAX +# ifdef GL_UINT64_T +# define UINT_FAST64_MAX UINT64_MAX +# endif + +/* 7.18.2.4. Limits of integer types capable of holding object pointers */ + +# undef INTPTR_MIN +# undef INTPTR_MAX +# undef UINTPTR_MAX +# define INTPTR_MIN LONG_MIN +# define INTPTR_MAX LONG_MAX +# define UINTPTR_MAX ULONG_MAX + +/* 7.18.2.5. Limits of greatest-width integer types */ + +# ifndef INTMAX_MAX +# undef INTMAX_MIN +# ifdef INT64_MAX +# define INTMAX_MIN INT64_MIN +# define INTMAX_MAX INT64_MAX +# else +# define INTMAX_MIN INT32_MIN +# define INTMAX_MAX INT32_MAX +# endif +# endif + +# ifndef UINTMAX_MAX +# ifdef UINT64_MAX +# define UINTMAX_MAX UINT64_MAX +# else +# define UINTMAX_MAX UINT32_MAX +# endif +# endif + +/* 7.18.3. Limits of other integer types */ + +/* ptrdiff_t limits */ +# undef PTRDIFF_MIN +# undef PTRDIFF_MAX +# if @APPLE_UNIVERSAL_BUILD@ +# ifdef _LP64 +# define PTRDIFF_MIN _STDINT_SIGNED_MIN (64, 0l) +# define PTRDIFF_MAX _STDINT_MAX (1, 64, 0l) +# else +# define PTRDIFF_MIN _STDINT_SIGNED_MIN (32, 0) +# define PTRDIFF_MAX _STDINT_MAX (1, 32, 0) +# endif +# else +# define PTRDIFF_MIN \ + _STDINT_SIGNED_MIN (@BITSIZEOF_PTRDIFF_T@, 0@PTRDIFF_T_SUFFIX@) +# define PTRDIFF_MAX \ + _STDINT_MAX (1, @BITSIZEOF_PTRDIFF_T@, 0@PTRDIFF_T_SUFFIX@) +# endif + +/* sig_atomic_t limits */ +# undef SIG_ATOMIC_MIN +# undef SIG_ATOMIC_MAX +# if @HAVE_SIGNED_SIG_ATOMIC_T@ +# define SIG_ATOMIC_MIN \ + _STDINT_SIGNED_MIN (@BITSIZEOF_SIG_ATOMIC_T@, 0@SIG_ATOMIC_T_SUFFIX@) +# else +# define SIG_ATOMIC_MIN \ + _STDINT_UNSIGNED_MIN (@BITSIZEOF_SIG_ATOMIC_T@, 0@SIG_ATOMIC_T_SUFFIX@) +# endif +# define SIG_ATOMIC_MAX \ + _STDINT_MAX (@HAVE_SIGNED_SIG_ATOMIC_T@, @BITSIZEOF_SIG_ATOMIC_T@, \ + 0@SIG_ATOMIC_T_SUFFIX@) + + +/* size_t limit */ +# undef SIZE_MAX +# if @APPLE_UNIVERSAL_BUILD@ +# ifdef _LP64 +# define SIZE_MAX _STDINT_MAX (0, 64, 0ul) +# else +# define SIZE_MAX _STDINT_MAX (0, 32, 0ul) +# endif +# else +# define SIZE_MAX _STDINT_MAX (0, @BITSIZEOF_SIZE_T@, 0@SIZE_T_SUFFIX@) +# endif + +/* wchar_t limits */ +/* Get WCHAR_MIN, WCHAR_MAX. + This include is not on the top, above, because on OSF/1 4.0 we have a + sequence of nested includes + -> -> -> , and the latter includes + and assumes its types are already defined. */ +# if @HAVE_WCHAR_H@ && ! (defined WCHAR_MIN && defined WCHAR_MAX) + /* BSD/OS 4.0.1 has a bug: , and must be + included before . */ +# include +# include +# include +# define _GL_JUST_INCLUDE_SYSTEM_WCHAR_H +# include +# undef _GL_JUST_INCLUDE_SYSTEM_WCHAR_H +# endif +# undef WCHAR_MIN +# undef WCHAR_MAX +# if @HAVE_SIGNED_WCHAR_T@ +# define WCHAR_MIN \ + _STDINT_SIGNED_MIN (@BITSIZEOF_WCHAR_T@, 0@WCHAR_T_SUFFIX@) +# else +# define WCHAR_MIN \ + _STDINT_UNSIGNED_MIN (@BITSIZEOF_WCHAR_T@, 0@WCHAR_T_SUFFIX@) +# endif +# define WCHAR_MAX \ + _STDINT_MAX (@HAVE_SIGNED_WCHAR_T@, @BITSIZEOF_WCHAR_T@, 0@WCHAR_T_SUFFIX@) + +/* wint_t limits */ +# undef WINT_MIN +# undef WINT_MAX +# if @HAVE_SIGNED_WINT_T@ +# define WINT_MIN \ + _STDINT_SIGNED_MIN (@BITSIZEOF_WINT_T@, 0@WINT_T_SUFFIX@) +# else +# define WINT_MIN \ + _STDINT_UNSIGNED_MIN (@BITSIZEOF_WINT_T@, 0@WINT_T_SUFFIX@) +# endif +# define WINT_MAX \ + _STDINT_MAX (@HAVE_SIGNED_WINT_T@, @BITSIZEOF_WINT_T@, 0@WINT_T_SUFFIX@) + +/* 7.18.4. Macros for integer constants */ + +/* 7.18.4.1. Macros for minimum-width integer constants */ +/* According to ISO C 99 Technical Corrigendum 1 */ + +/* Here we assume a standard architecture where the hardware integer + types have 8, 16, 32, optionally 64 bits, and int is 32 bits. */ + +# undef INT8_C +# undef UINT8_C +# define INT8_C(x) x +# define UINT8_C(x) x + +# undef INT16_C +# undef UINT16_C +# define INT16_C(x) x +# define UINT16_C(x) x + +# undef INT32_C +# undef UINT32_C +# define INT32_C(x) x +# define UINT32_C(x) x ## U + +# undef INT64_C +# undef UINT64_C +# if LONG_MAX >> 31 >> 31 == 1 +# define INT64_C(x) x##L +# elif defined _MSC_VER +# define INT64_C(x) x##i64 +# elif @HAVE_LONG_LONG_INT@ +# define INT64_C(x) x##LL +# endif +# if ULONG_MAX >> 31 >> 31 >> 1 == 1 +# define UINT64_C(x) x##UL +# elif defined _MSC_VER +# define UINT64_C(x) x##ui64 +# elif @HAVE_UNSIGNED_LONG_LONG_INT@ +# define UINT64_C(x) x##ULL +# endif + +/* 7.18.4.2. Macros for greatest-width integer constants */ + +# ifndef INTMAX_C +# if @HAVE_LONG_LONG_INT@ && LONG_MAX >> 30 == 1 +# define INTMAX_C(x) x##LL +# elif defined GL_INT64_T +# define INTMAX_C(x) INT64_C(x) +# else +# define INTMAX_C(x) x##L +# endif +# endif + +# ifndef UINTMAX_C +# if @HAVE_UNSIGNED_LONG_LONG_INT@ && ULONG_MAX >> 31 == 1 +# define UINTMAX_C(x) x##ULL +# elif defined GL_UINT64_T +# define UINTMAX_C(x) UINT64_C(x) +# else +# define UINTMAX_C(x) x##UL +# endif +# endif + +#endif /* !@HAVE_C99_STDINT_H@ */ + +/* Macros specified by ISO/IEC TS 18661-1:2014. */ + +#if (!defined UINTMAX_WIDTH \ + && (defined _GNU_SOURCE || defined __STDC_WANT_IEC_60559_BFP_EXT__)) +# ifdef INT8_MAX +# define INT8_WIDTH _GL_INTEGER_WIDTH (INT8_MIN, INT8_MAX) +# endif +# ifdef UINT8_MAX +# define UINT8_WIDTH _GL_INTEGER_WIDTH (0, UINT8_MAX) +# endif +# ifdef INT16_MAX +# define INT16_WIDTH _GL_INTEGER_WIDTH (INT16_MIN, INT16_MAX) +# endif +# ifdef UINT16_MAX +# define UINT16_WIDTH _GL_INTEGER_WIDTH (0, UINT16_MAX) +# endif +# ifdef INT32_MAX +# define INT32_WIDTH _GL_INTEGER_WIDTH (INT32_MIN, INT32_MAX) +# endif +# ifdef UINT32_MAX +# define UINT32_WIDTH _GL_INTEGER_WIDTH (0, UINT32_MAX) +# endif +# ifdef INT64_MAX +# define INT64_WIDTH _GL_INTEGER_WIDTH (INT64_MIN, INT64_MAX) +# endif +# ifdef UINT64_MAX +# define UINT64_WIDTH _GL_INTEGER_WIDTH (0, UINT64_MAX) +# endif +# define INT_LEAST8_WIDTH _GL_INTEGER_WIDTH (INT_LEAST8_MIN, INT_LEAST8_MAX) +# define UINT_LEAST8_WIDTH _GL_INTEGER_WIDTH (0, UINT_LEAST8_MAX) +# define INT_LEAST16_WIDTH _GL_INTEGER_WIDTH (INT_LEAST16_MIN, INT_LEAST16_MAX) +# define UINT_LEAST16_WIDTH _GL_INTEGER_WIDTH (0, UINT_LEAST16_MAX) +# define INT_LEAST32_WIDTH _GL_INTEGER_WIDTH (INT_LEAST32_MIN, INT_LEAST32_MAX) +# define UINT_LEAST32_WIDTH _GL_INTEGER_WIDTH (0, UINT_LEAST32_MAX) +# define INT_LEAST64_WIDTH _GL_INTEGER_WIDTH (INT_LEAST64_MIN, INT_LEAST64_MAX) +# define UINT_LEAST64_WIDTH _GL_INTEGER_WIDTH (0, UINT_LEAST64_MAX) +# define INT_FAST8_WIDTH _GL_INTEGER_WIDTH (INT_FAST8_MIN, INT_FAST8_MAX) +# define UINT_FAST8_WIDTH _GL_INTEGER_WIDTH (0, UINT_FAST8_MAX) +# define INT_FAST16_WIDTH _GL_INTEGER_WIDTH (INT_FAST16_MIN, INT_FAST16_MAX) +# define UINT_FAST16_WIDTH _GL_INTEGER_WIDTH (0, UINT_FAST16_MAX) +# define INT_FAST32_WIDTH _GL_INTEGER_WIDTH (INT_FAST32_MIN, INT_FAST32_MAX) +# define UINT_FAST32_WIDTH _GL_INTEGER_WIDTH (0, UINT_FAST32_MAX) +# define INT_FAST64_WIDTH _GL_INTEGER_WIDTH (INT_FAST64_MIN, INT_FAST64_MAX) +# define UINT_FAST64_WIDTH _GL_INTEGER_WIDTH (0, UINT_FAST64_MAX) +# define INTPTR_WIDTH _GL_INTEGER_WIDTH (INTPTR_MIN, INTPTR_MAX) +# define UINTPTR_WIDTH _GL_INTEGER_WIDTH (0, UINTPTR_MAX) +# define INTMAX_WIDTH _GL_INTEGER_WIDTH (INTMAX_MIN, INTMAX_MAX) +# define UINTMAX_WIDTH _GL_INTEGER_WIDTH (0, UINTMAX_MAX) +# define PTRDIFF_WIDTH _GL_INTEGER_WIDTH (PTRDIFF_MIN, PTRDIFF_MAX) +# define SIZE_WIDTH _GL_INTEGER_WIDTH (0, SIZE_MAX) +# define WCHAR_WIDTH _GL_INTEGER_WIDTH (WCHAR_MIN, WCHAR_MAX) +# ifdef WINT_MAX +# define WINT_WIDTH _GL_INTEGER_WIDTH (WINT_MIN, WINT_MAX) +# endif +# ifdef SIG_ATOMIC_MAX +# define SIG_ATOMIC_WIDTH _GL_INTEGER_WIDTH (SIG_ATOMIC_MIN, SIG_ATOMIC_MAX) +# endif +#endif /* !WINT_WIDTH && (_GNU_SOURCE || __STDC_WANT_IEC_60559_BFP_EXT__) */ + +#endif /* _@GUARD_PREFIX@_STDINT_H */ +#endif /* !(defined __ANDROID__ && ...) */ +#endif /* !defined _@GUARD_PREFIX@_STDINT_H && !defined _GL_JUST_INCLUDE_SYSTEM_STDINT_H */ diff --git a/gnulib-lib/stdnoreturn.in.h b/gnulib-lib/stdnoreturn.in.h new file mode 100644 index 0000000..dc77e3e --- /dev/null +++ b/gnulib-lib/stdnoreturn.in.h @@ -0,0 +1,60 @@ +/* A substitute for ISO C11 . + + Copyright 2012-2019 Free Software Foundation, Inc. + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 3, or (at your option) + any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, see . */ + +/* Written by Paul Eggert. */ + +#ifndef noreturn + +/* ISO C11 for platforms that lack it. + + References: + ISO C11 (latest free draft + ) + section 7.23 */ + +/* The definition of _Noreturn is copied here. */ + +#if 1200 <= _MSC_VER || defined __CYGWIN__ +/* On MSVC, standard include files contain declarations like + __declspec (noreturn) void abort (void); + "#define noreturn _Noreturn" would cause this declaration to be rewritten + to the invalid + __declspec (__declspec (noreturn)) void abort (void); + + Similarly, on Cygwin, standard include files contain declarations like + void __cdecl abort (void) __attribute__ ((noreturn)); + "#define noreturn _Noreturn" would cause this declaration to be rewritten + to the invalid + void __cdecl abort (void) __attribute__ ((__attribute__ ((__noreturn__)))); + + Instead, define noreturn to empty, so that such declarations are rewritten to + __declspec () void abort (void); + or + void __cdecl abort (void) __attribute__ (()); + respectively. This gives up on noreturn's advice to the compiler but at + least it is valid code. */ +# define noreturn /*empty*/ +#else +# define noreturn _Noreturn +#endif + +/* Did he ever return? + No he never returned + And his fate is still unlearn'd ... + -- Steiner J, Hawes BL. M.T.A. (1949) */ + +#endif /* noreturn */ diff --git a/gnulib-lib/sys_types.in.h b/gnulib-lib/sys_types.in.h new file mode 100644 index 0000000..237e206 --- /dev/null +++ b/gnulib-lib/sys_types.in.h @@ -0,0 +1,106 @@ +/* Provide a more complete sys/types.h. + + Copyright (C) 2011-2019 Free Software Foundation, Inc. + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 3, or (at your option) + any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, see . */ + +#if __GNUC__ >= 3 +@PRAGMA_SYSTEM_HEADER@ +#endif +@PRAGMA_COLUMNS@ + +#if defined _WIN32 && !defined __CYGWIN__ \ + && (defined __need_off_t || defined __need___off64_t \ + || defined __need_ssize_t || defined __need_time_t) + +/* Special invocation convention inside mingw header files. */ + +#@INCLUDE_NEXT@ @NEXT_SYS_TYPES_H@ + +#else +/* Normal invocation convention. */ + +#ifndef _@GUARD_PREFIX@_SYS_TYPES_H + +/* The include_next requires a split double-inclusion guard. */ +# define _GL_INCLUDING_SYS_TYPES_H +#@INCLUDE_NEXT@ @NEXT_SYS_TYPES_H@ +# undef _GL_INCLUDING_SYS_TYPES_H + +#ifndef _@GUARD_PREFIX@_SYS_TYPES_H +#define _@GUARD_PREFIX@_SYS_TYPES_H + +/* Override off_t if Large File Support is requested on native Windows. */ +#if @WINDOWS_64_BIT_OFF_T@ +/* Same as int64_t in . */ +# if defined _MSC_VER +# define off_t __int64 +# else +# define off_t long long int +# endif +/* Indicator, for gnulib internal purposes. */ +# define _GL_WINDOWS_64_BIT_OFF_T 1 +#endif + +/* Override dev_t and ino_t if distinguishable inodes support is requested + on native Windows. */ +#if @WINDOWS_STAT_INODES@ + +# if @WINDOWS_STAT_INODES@ == 2 +/* Experimental, not useful in Windows 10. */ + +/* Define dev_t to a 64-bit type. */ +# if !defined GNULIB_defined_dev_t +typedef unsigned long long int rpl_dev_t; +# undef dev_t +# define dev_t rpl_dev_t +# define GNULIB_defined_dev_t 1 +# endif + +/* Define ino_t to a 128-bit type. */ +# if !defined GNULIB_defined_ino_t +/* MSVC does not have a 128-bit integer type. + GCC has a 128-bit integer type __int128, but only on 64-bit targets. */ +typedef struct { unsigned long long int _gl_ino[2]; } rpl_ino_t; +# undef ino_t +# define ino_t rpl_ino_t +# define GNULIB_defined_ino_t 1 +# endif + +# else /* @WINDOWS_STAT_INODES@ == 1 */ + +/* Define ino_t to a 64-bit type. */ +# if !defined GNULIB_defined_ino_t +typedef unsigned long long int rpl_ino_t; +# undef ino_t +# define ino_t rpl_ino_t +# define GNULIB_defined_ino_t 1 +# endif + +# endif + +/* Indicator, for gnulib internal purposes. */ +# define _GL_WINDOWS_STAT_INODES @WINDOWS_STAT_INODES@ + +#endif + +/* MSVC 9 defines size_t in , not in . */ +/* But avoid namespace pollution on glibc systems. */ +#if (defined _WIN32 && ! defined __CYGWIN__) && ! defined __GLIBC__ +# include +#endif + +#endif /* _@GUARD_PREFIX@_SYS_TYPES_H */ +#endif /* _@GUARD_PREFIX@_SYS_TYPES_H */ +#endif /* __need_XXX */ diff --git a/gnulib-lib/windows-initguard.h b/gnulib-lib/windows-initguard.h new file mode 100644 index 0000000..8aefd0b --- /dev/null +++ b/gnulib-lib/windows-initguard.h @@ -0,0 +1,35 @@ +/* Init guards, somewhat like spinlocks (native Windows implementation). + Copyright (C) 2005-2019 Free Software Foundation, Inc. + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 3, or (at your option) + any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, see . */ + +/* Written by Bruno Haible , 2005. + Based on GCC's gthr-win32.h. */ + +#ifndef _WINDOWS_INITGUARD_H +#define _WINDOWS_INITGUARD_H + +#define WIN32_LEAN_AND_MEAN /* avoid including junk */ +#include + +typedef struct + { + volatile int done; + volatile LONG started; + } + glwthread_initguard_t; + +#define GLWTHREAD_INITGUARD_INIT { 0, -1 } + +#endif /* _WINDOWS_INITGUARD_H */ diff --git a/gnulib-lib/windows-mutex.c b/gnulib-lib/windows-mutex.c new file mode 100644 index 0000000..9433881 --- /dev/null +++ b/gnulib-lib/windows-mutex.c @@ -0,0 +1,95 @@ +/* Plain mutexes (native Windows implementation). + Copyright (C) 2005-2019 Free Software Foundation, Inc. + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 3, or (at your option) + any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, see . */ + +/* Written by Bruno Haible , 2005. + Based on GCC's gthr-win32.h. */ + +#include + +/* Specification. */ +#include "windows-mutex.h" + +#include + +void +glwthread_mutex_init (glwthread_mutex_t *mutex) +{ + InitializeCriticalSection (&mutex->lock); + mutex->guard.done = 1; +} + +int +glwthread_mutex_lock (glwthread_mutex_t *mutex) +{ + if (!mutex->guard.done) + { + if (InterlockedIncrement (&mutex->guard.started) == 0) + /* This thread is the first one to need this mutex. Initialize it. */ + glwthread_mutex_init (mutex); + else + { + /* Don't let mutex->guard.started grow and wrap around. */ + InterlockedDecrement (&mutex->guard.started); + /* Yield the CPU while waiting for another thread to finish + initializing this mutex. */ + while (!mutex->guard.done) + Sleep (0); + } + } + EnterCriticalSection (&mutex->lock); + return 0; +} + +int +glwthread_mutex_trylock (glwthread_mutex_t *mutex) +{ + if (!mutex->guard.done) + { + if (InterlockedIncrement (&mutex->guard.started) == 0) + /* This thread is the first one to need this mutex. Initialize it. */ + glwthread_mutex_init (mutex); + else + { + /* Don't let mutex->guard.started grow and wrap around. */ + InterlockedDecrement (&mutex->guard.started); + /* Let another thread finish initializing this mutex, and let it also + lock this mutex. */ + return EBUSY; + } + } + if (!TryEnterCriticalSection (&mutex->lock)) + return EBUSY; + return 0; +} + +int +glwthread_mutex_unlock (glwthread_mutex_t *mutex) +{ + if (!mutex->guard.done) + return EINVAL; + LeaveCriticalSection (&mutex->lock); + return 0; +} + +int +glwthread_mutex_destroy (glwthread_mutex_t *mutex) +{ + if (!mutex->guard.done) + return EINVAL; + DeleteCriticalSection (&mutex->lock); + mutex->guard.done = 0; + return 0; +} diff --git a/gnulib-lib/windows-mutex.h b/gnulib-lib/windows-mutex.h new file mode 100644 index 0000000..5364f92 --- /dev/null +++ b/gnulib-lib/windows-mutex.h @@ -0,0 +1,51 @@ +/* Plain mutexes (native Windows implementation). + Copyright (C) 2005-2019 Free Software Foundation, Inc. + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 3, or (at your option) + any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, see . */ + +/* Written by Bruno Haible , 2005. + Based on GCC's gthr-win32.h. */ + +#ifndef _WINDOWS_MUTEX_H +#define _WINDOWS_MUTEX_H + +#define WIN32_LEAN_AND_MEAN /* avoid including junk */ +#include + +#include "windows-initguard.h" + +typedef struct + { + glwthread_initguard_t guard; /* protects the initialization */ + CRITICAL_SECTION lock; + } + glwthread_mutex_t; + +#define GLWTHREAD_MUTEX_INIT { GLWTHREAD_INITGUARD_INIT } + +#ifdef __cplusplus +extern "C" { +#endif + +extern void glwthread_mutex_init (glwthread_mutex_t *mutex); +extern int glwthread_mutex_lock (glwthread_mutex_t *mutex); +extern int glwthread_mutex_trylock (glwthread_mutex_t *mutex); +extern int glwthread_mutex_unlock (glwthread_mutex_t *mutex); +extern int glwthread_mutex_destroy (glwthread_mutex_t *mutex); + +#ifdef __cplusplus +} +#endif + +#endif /* _WINDOWS_MUTEX_H */ diff --git a/gnulib-lib/windows-once.c b/gnulib-lib/windows-once.c new file mode 100644 index 0000000..455c50e --- /dev/null +++ b/gnulib-lib/windows-once.c @@ -0,0 +1,62 @@ +/* Once-only control (native Windows implementation). + Copyright (C) 2005-2019 Free Software Foundation, Inc. + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 3, or (at your option) + any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, see . */ + +/* Written by Bruno Haible , 2005. + Based on GCC's gthr-win32.h. */ + +#include + +/* Specification. */ +#include "windows-once.h" + +#include + +void +glwthread_once (glwthread_once_t *once_control, void (*initfunction) (void)) +{ + if (once_control->inited <= 0) + { + if (InterlockedIncrement (&once_control->started) == 0) + { + /* This thread is the first one to come to this once_control. */ + InitializeCriticalSection (&once_control->lock); + EnterCriticalSection (&once_control->lock); + once_control->inited = 0; + initfunction (); + once_control->inited = 1; + LeaveCriticalSection (&once_control->lock); + } + else + { + /* Don't let once_control->started grow and wrap around. */ + InterlockedDecrement (&once_control->started); + /* Some other thread has already started the initialization. + Yield the CPU while waiting for the other thread to finish + initializing and taking the lock. */ + while (once_control->inited < 0) + Sleep (0); + if (once_control->inited <= 0) + { + /* Take the lock. This blocks until the other thread has + finished calling the initfunction. */ + EnterCriticalSection (&once_control->lock); + LeaveCriticalSection (&once_control->lock); + if (!(once_control->inited > 0)) + abort (); + } + } + } +} diff --git a/gnulib-lib/windows-once.h b/gnulib-lib/windows-once.h new file mode 100644 index 0000000..1599983 --- /dev/null +++ b/gnulib-lib/windows-once.h @@ -0,0 +1,47 @@ +/* Once-only control (native Windows implementation). + Copyright (C) 2005-2019 Free Software Foundation, Inc. + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 3, or (at your option) + any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, see . */ + +/* Written by Bruno Haible , 2005. + Based on GCC's gthr-win32.h. */ + +#ifndef _WINDOWS_ONCE_H +#define _WINDOWS_ONCE_H + +#define WIN32_LEAN_AND_MEAN /* avoid including junk */ +#include + +typedef struct + { + volatile int inited; + volatile LONG started; + CRITICAL_SECTION lock; + } + glwthread_once_t; + +#define GLWTHREAD_ONCE_INIT { -1, -1 } + +#ifdef __cplusplus +extern "C" { +#endif + +extern void glwthread_once (glwthread_once_t *once_control, + void (*initfunction) (void)); + +#ifdef __cplusplus +} +#endif + +#endif /* _WINDOWS_ONCE_H */ diff --git a/gnulib-lib/windows-recmutex.c b/gnulib-lib/windows-recmutex.c new file mode 100644 index 0000000..7e6e446 --- /dev/null +++ b/gnulib-lib/windows-recmutex.c @@ -0,0 +1,127 @@ +/* Plain recursive mutexes (native Windows implementation). + Copyright (C) 2005-2019 Free Software Foundation, Inc. + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 3, or (at your option) + any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, see . */ + +/* Written by Bruno Haible , 2005. + Based on GCC's gthr-win32.h. */ + +#include + +/* Specification. */ +#include "windows-recmutex.h" + +#include + +void +glwthread_recmutex_init (glwthread_recmutex_t *mutex) +{ + mutex->owner = 0; + mutex->depth = 0; + InitializeCriticalSection (&mutex->lock); + mutex->guard.done = 1; +} + +int +glwthread_recmutex_lock (glwthread_recmutex_t *mutex) +{ + if (!mutex->guard.done) + { + if (InterlockedIncrement (&mutex->guard.started) == 0) + /* This thread is the first one to need this mutex. Initialize it. */ + glwthread_recmutex_init (mutex); + else + { + /* Don't let mutex->guard.started grow and wrap around. */ + InterlockedDecrement (&mutex->guard.started); + /* Yield the CPU while waiting for another thread to finish + initializing this mutex. */ + while (!mutex->guard.done) + Sleep (0); + } + } + { + DWORD self = GetCurrentThreadId (); + if (mutex->owner != self) + { + EnterCriticalSection (&mutex->lock); + mutex->owner = self; + } + if (++(mutex->depth) == 0) /* wraparound? */ + { + mutex->depth--; + return EAGAIN; + } + } + return 0; +} + +int +glwthread_recmutex_trylock (glwthread_recmutex_t *mutex) +{ + if (!mutex->guard.done) + { + if (InterlockedIncrement (&mutex->guard.started) == 0) + /* This thread is the first one to need this mutex. Initialize it. */ + glwthread_recmutex_init (mutex); + else + { + /* Don't let mutex->guard.started grow and wrap around. */ + InterlockedDecrement (&mutex->guard.started); + /* Let another thread finish initializing this mutex, and let it also + lock this mutex. */ + return EBUSY; + } + } + { + DWORD self = GetCurrentThreadId (); + if (mutex->owner != self) + { + if (!TryEnterCriticalSection (&mutex->lock)) + return EBUSY; + mutex->owner = self; + } + if (++(mutex->depth) == 0) /* wraparound? */ + { + mutex->depth--; + return EAGAIN; + } + } + return 0; +} + +int +glwthread_recmutex_unlock (glwthread_recmutex_t *mutex) +{ + if (mutex->owner != GetCurrentThreadId ()) + return EPERM; + if (mutex->depth == 0) + return EINVAL; + if (--(mutex->depth) == 0) + { + mutex->owner = 0; + LeaveCriticalSection (&mutex->lock); + } + return 0; +} + +int +glwthread_recmutex_destroy (glwthread_recmutex_t *mutex) +{ + if (mutex->owner != 0) + return EBUSY; + DeleteCriticalSection (&mutex->lock); + mutex->guard.done = 0; + return 0; +} diff --git a/gnulib-lib/windows-recmutex.h b/gnulib-lib/windows-recmutex.h new file mode 100644 index 0000000..d143108 --- /dev/null +++ b/gnulib-lib/windows-recmutex.h @@ -0,0 +1,57 @@ +/* Plain recursive mutexes (native Windows implementation). + Copyright (C) 2005-2019 Free Software Foundation, Inc. + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 3, or (at your option) + any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, see . */ + +/* Written by Bruno Haible , 2005. + Based on GCC's gthr-win32.h. */ + +#ifndef _WINDOWS_RECMUTEX_H +#define _WINDOWS_RECMUTEX_H + +#define WIN32_LEAN_AND_MEAN /* avoid including junk */ +#include + +#include "windows-initguard.h" + +/* The native Windows documentation says that CRITICAL_SECTION already + implements a recursive lock. But we need not rely on it: It's easy to + implement a recursive lock without this assumption. */ + +typedef struct + { + glwthread_initguard_t guard; /* protects the initialization */ + DWORD owner; + unsigned long depth; + CRITICAL_SECTION lock; + } + glwthread_recmutex_t; + +#define GLWTHREAD_RECMUTEX_INIT { GLWTHREAD_INITGUARD_INIT, 0, 0 } + +#ifdef __cplusplus +extern "C" { +#endif + +extern void glwthread_recmutex_init (glwthread_recmutex_t *mutex); +extern int glwthread_recmutex_lock (glwthread_recmutex_t *mutex); +extern int glwthread_recmutex_trylock (glwthread_recmutex_t *mutex); +extern int glwthread_recmutex_unlock (glwthread_recmutex_t *mutex); +extern int glwthread_recmutex_destroy (glwthread_recmutex_t *mutex); + +#ifdef __cplusplus +} +#endif + +#endif /* _WINDOWS_RECMUTEX_H */ diff --git a/gnulib-lib/windows-rwlock.c b/gnulib-lib/windows-rwlock.c new file mode 100644 index 0000000..9207d1b --- /dev/null +++ b/gnulib-lib/windows-rwlock.c @@ -0,0 +1,373 @@ +/* Read-write locks (native Windows implementation). + Copyright (C) 2005-2019 Free Software Foundation, Inc. + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 3, or (at your option) + any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, see . */ + +/* Written by Bruno Haible , 2005. + Based on GCC's gthr-win32.h. */ + +#include + +/* Specification. */ +#include "windows-rwlock.h" + +#include +#include + +/* In this file, the waitqueues are implemented as circular arrays. */ +#define glwthread_waitqueue_t glwthread_carray_waitqueue_t + +static void +glwthread_waitqueue_init (glwthread_waitqueue_t *wq) +{ + wq->array = NULL; + wq->count = 0; + wq->alloc = 0; + wq->offset = 0; +} + +/* Enqueues the current thread, represented by an event, in a wait queue. + Returns INVALID_HANDLE_VALUE if an allocation failure occurs. */ +static HANDLE +glwthread_waitqueue_add (glwthread_waitqueue_t *wq) +{ + HANDLE event; + unsigned int index; + + if (wq->count == wq->alloc) + { + unsigned int new_alloc = 2 * wq->alloc + 1; + HANDLE *new_array = + (HANDLE *) realloc (wq->array, new_alloc * sizeof (HANDLE)); + if (new_array == NULL) + /* No more memory. */ + return INVALID_HANDLE_VALUE; + /* Now is a good opportunity to rotate the array so that its contents + starts at offset 0. */ + if (wq->offset > 0) + { + unsigned int old_count = wq->count; + unsigned int old_alloc = wq->alloc; + unsigned int old_offset = wq->offset; + unsigned int i; + if (old_offset + old_count > old_alloc) + { + unsigned int limit = old_offset + old_count - old_alloc; + for (i = 0; i < limit; i++) + new_array[old_alloc + i] = new_array[i]; + } + for (i = 0; i < old_count; i++) + new_array[i] = new_array[old_offset + i]; + wq->offset = 0; + } + wq->array = new_array; + wq->alloc = new_alloc; + } + /* Whether the created event is a manual-reset one or an auto-reset one, + does not matter, since we will wait on it only once. */ + event = CreateEvent (NULL, TRUE, FALSE, NULL); + if (event == INVALID_HANDLE_VALUE) + /* No way to allocate an event. */ + return INVALID_HANDLE_VALUE; + index = wq->offset + wq->count; + if (index >= wq->alloc) + index -= wq->alloc; + wq->array[index] = event; + wq->count++; + return event; +} + +/* Notifies the first thread from a wait queue and dequeues it. */ +static void +glwthread_waitqueue_notify_first (glwthread_waitqueue_t *wq) +{ + SetEvent (wq->array[wq->offset + 0]); + wq->offset++; + wq->count--; + if (wq->count == 0 || wq->offset == wq->alloc) + wq->offset = 0; +} + +/* Notifies all threads from a wait queue and dequeues them all. */ +static void +glwthread_waitqueue_notify_all (glwthread_waitqueue_t *wq) +{ + unsigned int i; + + for (i = 0; i < wq->count; i++) + { + unsigned int index = wq->offset + i; + if (index >= wq->alloc) + index -= wq->alloc; + SetEvent (wq->array[index]); + } + wq->count = 0; + wq->offset = 0; +} + +void +glwthread_rwlock_init (glwthread_rwlock_t *lock) +{ + InitializeCriticalSection (&lock->lock); + glwthread_waitqueue_init (&lock->waiting_readers); + glwthread_waitqueue_init (&lock->waiting_writers); + lock->runcount = 0; + lock->guard.done = 1; +} + +int +glwthread_rwlock_rdlock (glwthread_rwlock_t *lock) +{ + if (!lock->guard.done) + { + if (InterlockedIncrement (&lock->guard.started) == 0) + /* This thread is the first one to need this lock. Initialize it. */ + glwthread_rwlock_init (lock); + else + { + /* Don't let lock->guard.started grow and wrap around. */ + InterlockedDecrement (&lock->guard.started); + /* Yield the CPU while waiting for another thread to finish + initializing this lock. */ + while (!lock->guard.done) + Sleep (0); + } + } + EnterCriticalSection (&lock->lock); + /* Test whether only readers are currently running, and whether the runcount + field will not overflow, and whether no writer is waiting. The latter + condition is because POSIX recommends that "write locks shall take + precedence over read locks", to avoid "writer starvation". */ + if (!(lock->runcount + 1 > 0 && lock->waiting_writers.count == 0)) + { + /* This thread has to wait for a while. Enqueue it among the + waiting_readers. */ + HANDLE event = glwthread_waitqueue_add (&lock->waiting_readers); + if (event != INVALID_HANDLE_VALUE) + { + DWORD result; + LeaveCriticalSection (&lock->lock); + /* Wait until another thread signals this event. */ + result = WaitForSingleObject (event, INFINITE); + if (result == WAIT_FAILED || result == WAIT_TIMEOUT) + abort (); + CloseHandle (event); + /* The thread which signalled the event already did the bookkeeping: + removed us from the waiting_readers, incremented lock->runcount. */ + if (!(lock->runcount > 0)) + abort (); + return 0; + } + else + { + /* Allocation failure. Weird. */ + do + { + LeaveCriticalSection (&lock->lock); + Sleep (1); + EnterCriticalSection (&lock->lock); + } + while (!(lock->runcount + 1 > 0)); + } + } + lock->runcount++; + LeaveCriticalSection (&lock->lock); + return 0; +} + +int +glwthread_rwlock_wrlock (glwthread_rwlock_t *lock) +{ + if (!lock->guard.done) + { + if (InterlockedIncrement (&lock->guard.started) == 0) + /* This thread is the first one to need this lock. Initialize it. */ + glwthread_rwlock_init (lock); + else + { + /* Don't let lock->guard.started grow and wrap around. */ + InterlockedDecrement (&lock->guard.started); + /* Yield the CPU while waiting for another thread to finish + initializing this lock. */ + while (!lock->guard.done) + Sleep (0); + } + } + EnterCriticalSection (&lock->lock); + /* Test whether no readers or writers are currently running. */ + if (!(lock->runcount == 0)) + { + /* This thread has to wait for a while. Enqueue it among the + waiting_writers. */ + HANDLE event = glwthread_waitqueue_add (&lock->waiting_writers); + if (event != INVALID_HANDLE_VALUE) + { + DWORD result; + LeaveCriticalSection (&lock->lock); + /* Wait until another thread signals this event. */ + result = WaitForSingleObject (event, INFINITE); + if (result == WAIT_FAILED || result == WAIT_TIMEOUT) + abort (); + CloseHandle (event); + /* The thread which signalled the event already did the bookkeeping: + removed us from the waiting_writers, set lock->runcount = -1. */ + if (!(lock->runcount == -1)) + abort (); + return 0; + } + else + { + /* Allocation failure. Weird. */ + do + { + LeaveCriticalSection (&lock->lock); + Sleep (1); + EnterCriticalSection (&lock->lock); + } + while (!(lock->runcount == 0)); + } + } + lock->runcount--; /* runcount becomes -1 */ + LeaveCriticalSection (&lock->lock); + return 0; +} + +int +glwthread_rwlock_tryrdlock (glwthread_rwlock_t *lock) +{ + if (!lock->guard.done) + { + if (InterlockedIncrement (&lock->guard.started) == 0) + /* This thread is the first one to need this lock. Initialize it. */ + glwthread_rwlock_init (lock); + else + { + /* Don't let lock->guard.started grow and wrap around. */ + InterlockedDecrement (&lock->guard.started); + /* Yield the CPU while waiting for another thread to finish + initializing this lock. */ + while (!lock->guard.done) + Sleep (0); + } + } + /* It's OK to wait for this critical section, because it is never taken for a + long time. */ + EnterCriticalSection (&lock->lock); + /* Test whether only readers are currently running, and whether the runcount + field will not overflow, and whether no writer is waiting. The latter + condition is because POSIX recommends that "write locks shall take + precedence over read locks", to avoid "writer starvation". */ + if (!(lock->runcount + 1 > 0 && lock->waiting_writers.count == 0)) + { + /* This thread would have to wait for a while. Return instead. */ + LeaveCriticalSection (&lock->lock); + return EBUSY; + } + lock->runcount++; + LeaveCriticalSection (&lock->lock); + return 0; +} + +int +glwthread_rwlock_trywrlock (glwthread_rwlock_t *lock) +{ + if (!lock->guard.done) + { + if (InterlockedIncrement (&lock->guard.started) == 0) + /* This thread is the first one to need this lock. Initialize it. */ + glwthread_rwlock_init (lock); + else + { + /* Don't let lock->guard.started grow and wrap around. */ + InterlockedDecrement (&lock->guard.started); + /* Yield the CPU while waiting for another thread to finish + initializing this lock. */ + while (!lock->guard.done) + Sleep (0); + } + } + /* It's OK to wait for this critical section, because it is never taken for a + long time. */ + EnterCriticalSection (&lock->lock); + /* Test whether no readers or writers are currently running. */ + if (!(lock->runcount == 0)) + { + /* This thread would have to wait for a while. Return instead. */ + LeaveCriticalSection (&lock->lock); + return EBUSY; + } + lock->runcount--; /* runcount becomes -1 */ + LeaveCriticalSection (&lock->lock); + return 0; +} + +int +glwthread_rwlock_unlock (glwthread_rwlock_t *lock) +{ + if (!lock->guard.done) + return EINVAL; + EnterCriticalSection (&lock->lock); + if (lock->runcount < 0) + { + /* Drop a writer lock. */ + if (!(lock->runcount == -1)) + abort (); + lock->runcount = 0; + } + else + { + /* Drop a reader lock. */ + if (!(lock->runcount > 0)) + { + LeaveCriticalSection (&lock->lock); + return EPERM; + } + lock->runcount--; + } + if (lock->runcount == 0) + { + /* POSIX recommends that "write locks shall take precedence over read + locks", to avoid "writer starvation". */ + if (lock->waiting_writers.count > 0) + { + /* Wake up one of the waiting writers. */ + lock->runcount--; + glwthread_waitqueue_notify_first (&lock->waiting_writers); + } + else + { + /* Wake up all waiting readers. */ + lock->runcount += lock->waiting_readers.count; + glwthread_waitqueue_notify_all (&lock->waiting_readers); + } + } + LeaveCriticalSection (&lock->lock); + return 0; +} + +int +glwthread_rwlock_destroy (glwthread_rwlock_t *lock) +{ + if (!lock->guard.done) + return EINVAL; + if (lock->runcount != 0) + return EBUSY; + DeleteCriticalSection (&lock->lock); + if (lock->waiting_readers.array != NULL) + free (lock->waiting_readers.array); + if (lock->waiting_writers.array != NULL) + free (lock->waiting_writers.array); + lock->guard.done = 0; + return 0; +} diff --git a/gnulib-lib/windows-rwlock.h b/gnulib-lib/windows-rwlock.h new file mode 100644 index 0000000..9002040 --- /dev/null +++ b/gnulib-lib/windows-rwlock.h @@ -0,0 +1,68 @@ +/* Read-write locks (native Windows implementation). + Copyright (C) 2005-2019 Free Software Foundation, Inc. + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 3, or (at your option) + any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, see . */ + +/* Written by Bruno Haible , 2005. + Based on GCC's gthr-win32.h. */ + +#ifndef _WINDOWS_RWLOCK_H +#define _WINDOWS_RWLOCK_H + +#define WIN32_LEAN_AND_MEAN /* avoid including junk */ +#include + +#include "windows-initguard.h" + +/* It is impossible to implement read-write locks using plain locks, without + introducing an extra thread dedicated to managing read-write locks. + Therefore here we need to use the low-level Event type. */ + +typedef struct + { + HANDLE *array; /* array of waiting threads, each represented by an event */ + unsigned int count; /* number of waiting threads */ + unsigned int alloc; /* length of allocated array */ + unsigned int offset; /* index of first waiting thread in array */ + } + glwthread_carray_waitqueue_t; +typedef struct + { + glwthread_initguard_t guard; /* protects the initialization */ + CRITICAL_SECTION lock; /* protects the remaining fields */ + glwthread_carray_waitqueue_t waiting_readers; /* waiting readers */ + glwthread_carray_waitqueue_t waiting_writers; /* waiting writers */ + int runcount; /* number of readers running, or -1 when a writer runs */ + } + glwthread_rwlock_t; + +#define GLWTHREAD_RWLOCK_INIT { GLWTHREAD_INITGUARD_INIT } + +#ifdef __cplusplus +extern "C" { +#endif + +extern void glwthread_rwlock_init (glwthread_rwlock_t *lock); +extern int glwthread_rwlock_rdlock (glwthread_rwlock_t *lock); +extern int glwthread_rwlock_wrlock (glwthread_rwlock_t *lock); +extern int glwthread_rwlock_tryrdlock (glwthread_rwlock_t *lock); +extern int glwthread_rwlock_trywrlock (glwthread_rwlock_t *lock); +extern int glwthread_rwlock_unlock (glwthread_rwlock_t *lock); +extern int glwthread_rwlock_destroy (glwthread_rwlock_t *lock); + +#ifdef __cplusplus +} +#endif + +#endif /* _WINDOWS_RWLOCK_H */ diff --git a/gnulib-m4/00gnulib.m4 b/gnulib-m4/00gnulib.m4 new file mode 100644 index 0000000..e3e0fb6 --- /dev/null +++ b/gnulib-m4/00gnulib.m4 @@ -0,0 +1,46 @@ +# 00gnulib.m4 serial 3 +dnl Copyright (C) 2009-2019 Free Software Foundation, Inc. +dnl This file is free software; the Free Software Foundation +dnl gives unlimited permission to copy and/or distribute it, +dnl with or without modifications, as long as this notice is preserved. + +dnl This file must be named something that sorts before all other +dnl gnulib-provided .m4 files. It is needed until such time as we can +dnl assume Autoconf 2.64, with its improved AC_DEFUN_ONCE and +dnl m4_divert semantics. + +# Until autoconf 2.63, handling of the diversion stack required m4_init +# to be called first; but this does not happen with aclocal. Wrapping +# the entire execution in another layer of the diversion stack fixes this. +# Worse, prior to autoconf 2.62, m4_wrap depended on the underlying m4 +# for whether it was FIFO or LIFO; in order to properly balance with +# m4_init, we need to undo our push just before anything wrapped within +# the m4_init body. The way to ensure this is to wrap both sides of +# m4_init with a one-shot macro that does the pop at the right time. +m4_ifndef([_m4_divert_diversion], +[m4_divert_push([KILL]) +m4_define([gl_divert_fixup], [m4_divert_pop()m4_define([$0])]) +m4_define([m4_init], + [gl_divert_fixup()]m4_defn([m4_init])[gl_divert_fixup()])]) + + +# AC_DEFUN_ONCE([NAME], VALUE) +# ---------------------------- +# Define NAME to expand to VALUE on the first use (whether by direct +# expansion, or by AC_REQUIRE), and to nothing on all subsequent uses. +# Avoid bugs in AC_REQUIRE in Autoconf 2.63 and earlier. This +# definition is slower than the version in Autoconf 2.64, because it +# can only use interfaces that existed since 2.59; but it achieves the +# same effect. Quoting is necessary to avoid confusing Automake. +m4_version_prereq([2.63.263], [], +[m4_define([AC][_DEFUN_ONCE], + [AC][_DEFUN([$1], + [AC_REQUIRE([_gl_DEFUN_ONCE([$1])], + [m4_indir([_gl_DEFUN_ONCE([$1])])])])]dnl +[AC][_DEFUN([_gl_DEFUN_ONCE([$1])], [$2])])]) + +# gl_00GNULIB +# ----------- +# Witness macro that this file has been included. Needed to force +# Automake to include this file prior to all other gnulib .m4 files. +AC_DEFUN([gl_00GNULIB]) diff --git a/gnulib-m4/absolute-header.m4 b/gnulib-m4/absolute-header.m4 new file mode 100644 index 0000000..a8f2cba --- /dev/null +++ b/gnulib-m4/absolute-header.m4 @@ -0,0 +1,102 @@ +# absolute-header.m4 serial 16 +dnl Copyright (C) 2006-2019 Free Software Foundation, Inc. +dnl This file is free software; the Free Software Foundation +dnl gives unlimited permission to copy and/or distribute it, +dnl with or without modifications, as long as this notice is preserved. + +dnl From Derek Price. + +# gl_ABSOLUTE_HEADER(HEADER1 HEADER2 ...) +# --------------------------------------- +# Find the absolute name of a header file, testing first if the header exists. +# If the header were sys/inttypes.h, this macro would define +# ABSOLUTE_SYS_INTTYPES_H to the '""' quoted absolute name of sys/inttypes.h +# in config.h +# (e.g. '#define ABSOLUTE_SYS_INTTYPES_H "///usr/include/sys/inttypes.h"'). +# The three "///" are to pacify Sun C 5.8, which otherwise would say +# "warning: #include of /usr/include/... may be non-portable". +# Use '""', not '<>', so that the /// cannot be confused with a C99 comment. +# Note: This macro assumes that the header file is not empty after +# preprocessing, i.e. it does not only define preprocessor macros but also +# provides some type/enum definitions or function/variable declarations. +AC_DEFUN([gl_ABSOLUTE_HEADER], +[AC_REQUIRE([AC_CANONICAL_HOST]) +AC_LANG_PREPROC_REQUIRE()dnl +dnl FIXME: gl_absolute_header and ac_header_exists must be used unquoted +dnl until we can assume autoconf 2.64 or newer. +m4_foreach_w([gl_HEADER_NAME], [$1], + [AS_VAR_PUSHDEF([gl_absolute_header], + [gl_cv_absolute_]m4_defn([gl_HEADER_NAME]))dnl + AC_CACHE_CHECK([absolute name of <]m4_defn([gl_HEADER_NAME])[>], + m4_defn([gl_absolute_header]), + [AS_VAR_PUSHDEF([ac_header_exists], + [ac_cv_header_]m4_defn([gl_HEADER_NAME]))dnl + AC_CHECK_HEADERS_ONCE(m4_defn([gl_HEADER_NAME]))dnl + if test AS_VAR_GET(ac_header_exists) = yes; then + gl_ABSOLUTE_HEADER_ONE(m4_defn([gl_HEADER_NAME])) + fi + AS_VAR_POPDEF([ac_header_exists])dnl + ])dnl + AC_DEFINE_UNQUOTED(AS_TR_CPP([ABSOLUTE_]m4_defn([gl_HEADER_NAME])), + ["AS_VAR_GET(gl_absolute_header)"], + [Define this to an absolute name of <]m4_defn([gl_HEADER_NAME])[>.]) + AS_VAR_POPDEF([gl_absolute_header])dnl +])dnl +])# gl_ABSOLUTE_HEADER + +# gl_ABSOLUTE_HEADER_ONE(HEADER) +# ------------------------------ +# Like gl_ABSOLUTE_HEADER, except that: +# - it assumes that the header exists, +# - it uses the current CPPFLAGS, +# - it does not cache the result, +# - it is silent. +AC_DEFUN([gl_ABSOLUTE_HEADER_ONE], +[ + AC_REQUIRE([AC_CANONICAL_HOST]) + AC_LANG_CONFTEST([AC_LANG_SOURCE([[#include <]]m4_dquote([$1])[[>]])]) + dnl AIX "xlc -E" and "cc -E" omit #line directives for header files + dnl that contain only a #include of other header files and no + dnl non-comment tokens of their own. This leads to a failure to + dnl detect the absolute name of , , + dnl and others. The workaround is to force preservation of comments + dnl through option -C. This ensures all necessary #line directives + dnl are present. GCC supports option -C as well. + case "$host_os" in + aix*) gl_absname_cpp="$ac_cpp -C" ;; + *) gl_absname_cpp="$ac_cpp" ;; + esac +changequote(,) + case "$host_os" in + mingw*) + dnl For the sake of native Windows compilers (excluding gcc), + dnl treat backslash as a directory separator, like /. + dnl Actually, these compilers use a double-backslash as + dnl directory separator, inside the + dnl # line "filename" + dnl directives. + gl_dirsep_regex='[/\\]' + ;; + *) + gl_dirsep_regex='\/' + ;; + esac + dnl A sed expression that turns a string into a basic regular + dnl expression, for use within "/.../". + gl_make_literal_regex_sed='s,[]$^\\.*/[],\\&,g' + gl_header_literal_regex=`echo '$1' \ + | sed -e "$gl_make_literal_regex_sed"` + gl_absolute_header_sed="/${gl_dirsep_regex}${gl_header_literal_regex}/"'{ + s/.*"\(.*'"${gl_dirsep_regex}${gl_header_literal_regex}"'\)".*/\1/ + s|^/[^/]|//&| + p + q + }' +changequote([,]) + dnl eval is necessary to expand gl_absname_cpp. + dnl Ultrix and Pyramid sh refuse to redirect output of eval, + dnl so use subshell. + AS_VAR_SET([gl_cv_absolute_]AS_TR_SH([[$1]]), +[`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&AS_MESSAGE_LOG_FD | + sed -n "$gl_absolute_header_sed"`]) +]) diff --git a/gnulib-m4/ansi-c++.m4 b/gnulib-m4/ansi-c++.m4 new file mode 100644 index 0000000..cc94dc6 --- /dev/null +++ b/gnulib-m4/ansi-c++.m4 @@ -0,0 +1,138 @@ +# ansi-c++.m4 serial 10 +dnl Copyright (C) 2002-2003, 2005, 2010-2019 Free Software Foundation, Inc. +dnl This file is free software; the Free Software Foundation +dnl gives unlimited permission to copy and/or distribute it, +dnl with or without modifications, as long as this notice is preserved. + +dnl From Bruno Haible. + +# Sets CXX_CHOICE to 'yes' or 'no', depending on the preferred use of C++. +# The default is 'yes'. If the configure.ac contains a definition of the +# macro gl_CXX_CHOICE_DEFAULT_NO, then the default is 'no'. In both cases, +# the user can change the value by passing the option --disable-cxx or +# --enable-cxx, respectively. + +AC_DEFUN([gl_CXX_CHOICE], +[ + AC_MSG_CHECKING([whether to use C++]) + dnl Plus signs are supported in AC_ARG_ENABLE starting with autoconf-2.66. + m4_version_prereq([2.66], + [m4_ifdef([gl_CXX_CHOICE_DEFAULT_NO], + [AC_ARG_ENABLE([c++], + [ --enable-c++ also build C++ sources], + [CXX_CHOICE="$enableval"], + [CXX_CHOICE=no])], + [AC_ARG_ENABLE([c++], + [ --disable-c++ do not build C++ sources], + [CXX_CHOICE="$enableval"], + [CXX_CHOICE=yes])])], + [m4_ifdef([gl_CXX_CHOICE_DEFAULT_NO], + [AC_ARG_ENABLE([cxx], + [ --enable-cxx also build C++ sources], + [CXX_CHOICE="$enableval"], + [CXX_CHOICE=no])], + [AC_ARG_ENABLE([cxx], + [ --disable-cxx do not build C++ sources], + [CXX_CHOICE="$enableval"], + [CXX_CHOICE=yes])])]) + AC_MSG_RESULT([$CXX_CHOICE]) + AC_SUBST([CXX_CHOICE]) +]) + +# gl_PROG_ANSI_CXX([ANSICXX_VARIABLE], [ANSICXX_CONDITIONAL]) +# Sets ANSICXX_VARIABLE to the name of a sufficiently ANSI C++ compliant +# compiler, or to "no" if none is found. +# Defines the Automake condition ANSICXX_CONDITIONAL to true if such a compiler +# was found, or to false if not. + +AC_DEFUN([gl_PROG_ANSI_CXX], +[ + AC_REQUIRE([gl_CXX_CHOICE]) + m4_if([$1], [CXX], [], + [gl_save_CXX="$CXX"]) + if test "$CXX_CHOICE" = no; then + CXX=no + fi + if test -z "$CXX"; then + if test -n "$CCC"; then + CXX="$CCC" + else + AC_CHECK_TOOLS([CXX], + [g++ c++ gpp aCC CC cxx cc++ cl FCC KCC RCC xlC_r xlC], + [:]) + fi + fi + if test "$CXX" != no; then + dnl Use a modified version of AC_PROG_CXX_WORKS that does not exit + dnl upon failure. + AC_MSG_CHECKING([whether the C++ compiler ($CXX $CXXFLAGS $LDFLAGS) works]) + AC_LANG_PUSH([C++]) + AC_ARG_VAR([CXX], [C++ compiler command]) + AC_ARG_VAR([CXXFLAGS], [C++ compiler flags]) + echo 'int main () { return 0; }' > conftest.$ac_ext + if AC_TRY_EVAL([ac_link]) && test -s conftest$ac_exeext; then + gl_cv_prog_ansicxx_works=yes + if (./conftest; exit) 2>/dev/null; then + gl_cv_prog_ansicxx_cross=no + else + gl_cv_prog_ansicxx_cross=yes + fi + else + gl_cv_prog_ansicxx_works=no + fi + rm -fr conftest* + AC_LANG_POP([C++]) + AC_MSG_RESULT([$gl_cv_prog_ansicxx_works]) + if test $gl_cv_prog_ansicxx_works = no; then + CXX=no + else + dnl Test for namespaces. + dnl We don't bother supporting pre-ANSI-C++ compilers. + AC_MSG_CHECKING([whether the C++ compiler supports namespaces]) + AC_LANG_PUSH([C++]) + cat < conftest.$ac_ext +#include +namespace test { using namespace std; } +std::ostream* ptr; +int main () { return 0; } +EOF + if AC_TRY_EVAL([ac_link]) && test -s conftest$ac_exeext; then + gl_cv_prog_ansicxx_namespaces=yes + else + gl_cv_prog_ansicxx_namespaces=no + fi + rm -fr conftest* + AC_LANG_POP([C++]) + AC_MSG_RESULT([$gl_cv_prog_ansicxx_namespaces]) + if test $gl_cv_prog_ansicxx_namespaces = no; then + CXX=no + fi + fi + fi + m4_if([$1], [CXX], [], + [$1="$CXX" + CXX="$gl_save_CXX"]) + AC_SUBST([$1]) + + AM_CONDITIONAL([$2], [test "$$1" != no]) + + if test "$$1" != no; then + dnl This macro invocation resolves an automake error: + dnl /usr/local/share/automake-1.11/am/depend2.am: am__fastdepCXX does not appear in AM_CONDITIONAL + dnl /usr/local/share/automake-1.11/am/depend2.am: The usual way to define 'am__fastdepCXX' is to add 'AC_PROG_CXX' + dnl /usr/local/share/automake-1.11/am/depend2.am: to 'configure.ac' and run 'aclocal' and 'autoconf' again. + _AM_DEPENDENCIES([CXX]) + else + AM_CONDITIONAL([am__fastdepCXX], [false]) + fi +]) + +# gl_ANSI_CXX +# Sets CXX to the name of a sufficiently ANSI C++ compliant compiler, or to +# "no" if none is found. +# Defines the Automake condition ANSICXX to true if such a compiler was found, +# or to false if not. +AC_DEFUN([gl_ANSI_CXX], +[ + gl_PROG_ANSI_CXX([CXX], [ANSICXX]) +]) diff --git a/gnulib-m4/asm-underscore.m4 b/gnulib-m4/asm-underscore.m4 new file mode 100644 index 0000000..0f6bee4 --- /dev/null +++ b/gnulib-m4/asm-underscore.m4 @@ -0,0 +1,72 @@ +# asm-underscore.m4 serial 4 +dnl Copyright (C) 2010-2019 Free Software Foundation, Inc. +dnl This file is free software; the Free Software Foundation +dnl gives unlimited permission to copy and/or distribute it, +dnl with or without modifications, as long as this notice is preserved. + +dnl From Bruno Haible. Based on as-underscore.m4 in GNU clisp. + +# gl_ASM_SYMBOL_PREFIX +# Tests for the prefix of C symbols at the assembly language level and the +# linker level. This prefix is either an underscore or empty. Defines the +# C macro USER_LABEL_PREFIX to this prefix, and sets ASM_SYMBOL_PREFIX to +# a stringified variant of this prefix. + +AC_DEFUN([gl_ASM_SYMBOL_PREFIX], +[ + AC_REQUIRE([AC_PROG_EGREP]) + dnl We don't use GCC's __USER_LABEL_PREFIX__ here, because + dnl 1. It works only for GCC. + dnl 2. It is incorrectly defined on some platforms, in some GCC versions. + AC_REQUIRE([gl_C_ASM]) + AC_CACHE_CHECK( + [whether C symbols are prefixed with underscore at the linker level], + [gl_cv_prog_as_underscore], + [cat > conftest.c </dev/null 2>&1 + if LC_ALL=C $EGREP '(^|[[^a-zA-Z0-9_]])_foo([[^a-zA-Z0-9_]]|$)' conftest.$gl_asmext >/dev/null; then + gl_cv_prog_as_underscore=yes + else + gl_cv_prog_as_underscore=no + fi + rm -f conftest* + ]) + if test $gl_cv_prog_as_underscore = yes; then + USER_LABEL_PREFIX=_ + else + USER_LABEL_PREFIX= + fi + AC_DEFINE_UNQUOTED([USER_LABEL_PREFIX], [$USER_LABEL_PREFIX], + [Define to the prefix of C symbols at the assembler and linker level, + either an underscore or empty.]) + ASM_SYMBOL_PREFIX='"'${USER_LABEL_PREFIX}'"' + AC_SUBST([ASM_SYMBOL_PREFIX]) +]) + +# gl_C_ASM +# Determines how to produce an assembly language file from C source code. +# Sets the variables: +# gl_asmext - the extension of assembly language output, +# gl_c_asm_opt - the C compiler option that produces assembly language output. + +AC_DEFUN([gl_C_ASM], +[ + AC_EGREP_CPP([MicrosoftCompiler], + [ +#ifdef _MSC_VER +MicrosoftCompiler +#endif + ], + [gl_asmext='asm' + gl_c_asm_opt='-c -Fa' + ], + [gl_asmext='s' + gl_c_asm_opt='-S' + ]) +]) diff --git a/gnulib-m4/extensions.m4 b/gnulib-m4/extensions.m4 new file mode 100644 index 0000000..fd1ce81 --- /dev/null +++ b/gnulib-m4/extensions.m4 @@ -0,0 +1,189 @@ +# serial 18 -*- Autoconf -*- +# Enable extensions on systems that normally disable them. + +# Copyright (C) 2003, 2006-2019 Free Software Foundation, Inc. +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# This definition of AC_USE_SYSTEM_EXTENSIONS is stolen from git +# Autoconf. Perhaps we can remove this once we can assume Autoconf +# 2.70 or later everywhere, but since Autoconf mutates rapidly +# enough in this area it's likely we'll need to redefine +# AC_USE_SYSTEM_EXTENSIONS for quite some time. + +# If autoconf reports a warning +# warning: AC_COMPILE_IFELSE was called before AC_USE_SYSTEM_EXTENSIONS +# or warning: AC_RUN_IFELSE was called before AC_USE_SYSTEM_EXTENSIONS +# the fix is +# 1) to ensure that AC_USE_SYSTEM_EXTENSIONS is never directly invoked +# but always AC_REQUIREd, +# 2) to ensure that for each occurrence of +# AC_REQUIRE([AC_USE_SYSTEM_EXTENSIONS]) +# or +# AC_REQUIRE([gl_USE_SYSTEM_EXTENSIONS]) +# the corresponding gnulib module description has 'extensions' among +# its dependencies. This will ensure that the gl_USE_SYSTEM_EXTENSIONS +# invocation occurs in gl_EARLY, not in gl_INIT. + +# AC_USE_SYSTEM_EXTENSIONS +# ------------------------ +# Enable extensions on systems that normally disable them, +# typically due to standards-conformance issues. +# +# Remember that #undef in AH_VERBATIM gets replaced with #define by +# AC_DEFINE. The goal here is to define all known feature-enabling +# macros, then, if reports of conflicts are made, disable macros that +# cause problems on some platforms (such as __EXTENSIONS__). +AC_DEFUN_ONCE([AC_USE_SYSTEM_EXTENSIONS], +[AC_BEFORE([$0], [AC_COMPILE_IFELSE])dnl +AC_BEFORE([$0], [AC_RUN_IFELSE])dnl + + AC_CHECK_HEADER([minix/config.h], [MINIX=yes], [MINIX=]) + if test "$MINIX" = yes; then + AC_DEFINE([_POSIX_SOURCE], [1], + [Define to 1 if you need to in order for 'stat' and other + things to work.]) + AC_DEFINE([_POSIX_1_SOURCE], [2], + [Define to 2 if the system does not provide POSIX.1 features + except with this defined.]) + AC_DEFINE([_MINIX], [1], + [Define to 1 if on MINIX.]) + AC_DEFINE([_NETBSD_SOURCE], [1], + [Define to 1 to make NetBSD features available. MINIX 3 needs this.]) + fi + +dnl Use a different key than __EXTENSIONS__, as that name broke existing +dnl configure.ac when using autoheader 2.62. + AH_VERBATIM([USE_SYSTEM_EXTENSIONS], +[/* Enable extensions on AIX 3, Interix. */ +#ifndef _ALL_SOURCE +# undef _ALL_SOURCE +#endif +/* Enable general extensions on macOS. */ +#ifndef _DARWIN_C_SOURCE +# undef _DARWIN_C_SOURCE +#endif +/* Enable GNU extensions on systems that have them. */ +#ifndef _GNU_SOURCE +# undef _GNU_SOURCE +#endif +/* Enable NetBSD extensions on NetBSD. */ +#ifndef _NETBSD_SOURCE +# undef _NETBSD_SOURCE +#endif +/* Enable OpenBSD extensions on NetBSD. */ +#ifndef _OPENBSD_SOURCE +# undef _OPENBSD_SOURCE +#endif +/* Enable threading extensions on Solaris. */ +#ifndef _POSIX_PTHREAD_SEMANTICS +# undef _POSIX_PTHREAD_SEMANTICS +#endif +/* Enable extensions specified by ISO/IEC TS 18661-5:2014. */ +#ifndef __STDC_WANT_IEC_60559_ATTRIBS_EXT__ +# undef __STDC_WANT_IEC_60559_ATTRIBS_EXT__ +#endif +/* Enable extensions specified by ISO/IEC TS 18661-1:2014. */ +#ifndef __STDC_WANT_IEC_60559_BFP_EXT__ +# undef __STDC_WANT_IEC_60559_BFP_EXT__ +#endif +/* Enable extensions specified by ISO/IEC TS 18661-2:2015. */ +#ifndef __STDC_WANT_IEC_60559_DFP_EXT__ +# undef __STDC_WANT_IEC_60559_DFP_EXT__ +#endif +/* Enable extensions specified by ISO/IEC TS 18661-4:2015. */ +#ifndef __STDC_WANT_IEC_60559_FUNCS_EXT__ +# undef __STDC_WANT_IEC_60559_FUNCS_EXT__ +#endif +/* Enable extensions specified by ISO/IEC TS 18661-3:2015. */ +#ifndef __STDC_WANT_IEC_60559_TYPES_EXT__ +# undef __STDC_WANT_IEC_60559_TYPES_EXT__ +#endif +/* Enable extensions specified by ISO/IEC TR 24731-2:2010. */ +#ifndef __STDC_WANT_LIB_EXT2__ +# undef __STDC_WANT_LIB_EXT2__ +#endif +/* Enable extensions specified by ISO/IEC 24747:2009. */ +#ifndef __STDC_WANT_MATH_SPEC_FUNCS__ +# undef __STDC_WANT_MATH_SPEC_FUNCS__ +#endif +/* Enable extensions on HP NonStop. */ +#ifndef _TANDEM_SOURCE +# undef _TANDEM_SOURCE +#endif +/* Enable X/Open extensions if necessary. HP-UX 11.11 defines + mbstate_t only if _XOPEN_SOURCE is defined to 500, regardless of + whether compiling with -Ae or -D_HPUX_SOURCE=1. */ +#ifndef _XOPEN_SOURCE +# undef _XOPEN_SOURCE +#endif +/* Enable X/Open compliant socket functions that do not require linking + with -lxnet on HP-UX 11.11. */ +#ifndef _HPUX_ALT_XOPEN_SOCKET_API +# undef _HPUX_ALT_XOPEN_SOCKET_API +#endif +/* Enable general extensions on Solaris. */ +#ifndef __EXTENSIONS__ +# undef __EXTENSIONS__ +#endif +]) + AC_CACHE_CHECK([whether it is safe to define __EXTENSIONS__], + [ac_cv_safe_to_define___extensions__], + [AC_COMPILE_IFELSE( + [AC_LANG_PROGRAM([[ +# define __EXTENSIONS__ 1 + ]AC_INCLUDES_DEFAULT])], + [ac_cv_safe_to_define___extensions__=yes], + [ac_cv_safe_to_define___extensions__=no])]) + test $ac_cv_safe_to_define___extensions__ = yes && + AC_DEFINE([__EXTENSIONS__]) + AC_DEFINE([_ALL_SOURCE]) + AC_DEFINE([_DARWIN_C_SOURCE]) + AC_DEFINE([_GNU_SOURCE]) + AC_DEFINE([_NETBSD_SOURCE]) + AC_DEFINE([_OPENBSD_SOURCE]) + AC_DEFINE([_POSIX_PTHREAD_SEMANTICS]) + AC_DEFINE([__STDC_WANT_IEC_60559_ATTRIBS_EXT__]) + AC_DEFINE([__STDC_WANT_IEC_60559_BFP_EXT__]) + AC_DEFINE([__STDC_WANT_IEC_60559_DFP_EXT__]) + AC_DEFINE([__STDC_WANT_IEC_60559_FUNCS_EXT__]) + AC_DEFINE([__STDC_WANT_IEC_60559_TYPES_EXT__]) + AC_DEFINE([__STDC_WANT_LIB_EXT2__]) + AC_DEFINE([__STDC_WANT_MATH_SPEC_FUNCS__]) + AC_DEFINE([_TANDEM_SOURCE]) + AC_CACHE_CHECK([whether _XOPEN_SOURCE should be defined], + [ac_cv_should_define__xopen_source], + [ac_cv_should_define__xopen_source=no + AC_COMPILE_IFELSE( + [AC_LANG_PROGRAM([[ + #include + mbstate_t x;]])], + [], + [AC_COMPILE_IFELSE( + [AC_LANG_PROGRAM([[ + #define _XOPEN_SOURCE 500 + #include + mbstate_t x;]])], + [ac_cv_should_define__xopen_source=yes])])]) + test $ac_cv_should_define__xopen_source = yes && + AC_DEFINE([_XOPEN_SOURCE], [500]) + AC_DEFINE([_HPUX_ALT_XOPEN_SOCKET_API]) +])# AC_USE_SYSTEM_EXTENSIONS + +# gl_USE_SYSTEM_EXTENSIONS +# ------------------------ +# Enable extensions on systems that normally disable them, +# typically due to standards-conformance issues. +AC_DEFUN_ONCE([gl_USE_SYSTEM_EXTENSIONS], +[ + dnl Require this macro before AC_USE_SYSTEM_EXTENSIONS. + dnl gnulib does not need it. But if it gets required by third-party macros + dnl after AC_USE_SYSTEM_EXTENSIONS is required, autoconf 2.62..2.63 emit a + dnl warning: "AC_COMPILE_IFELSE was called before AC_USE_SYSTEM_EXTENSIONS". + dnl Note: We can do this only for one of the macros AC_AIX, AC_GNU_SOURCE, + dnl AC_MINIX. If people still use AC_AIX or AC_MINIX, they are out of luck. + AC_REQUIRE([AC_GNU_SOURCE]) + + AC_REQUIRE([AC_USE_SYSTEM_EXTENSIONS]) +]) diff --git a/gnulib-m4/gnulib-cache.m4 b/gnulib-m4/gnulib-cache.m4 new file mode 100644 index 0000000..aab31ca --- /dev/null +++ b/gnulib-m4/gnulib-cache.m4 @@ -0,0 +1,70 @@ +# Copyright (C) 2002-2019 Free Software Foundation, Inc. +# +# This file is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# This file is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this file. If not, see . +# +# As a special exception to the GNU General Public License, +# this file may be distributed as part of a program that +# contains a configuration script generated by Autoconf, under +# the same distribution terms as the rest of that program. +# +# Generated by gnulib-tool. +# +# This file represents the specification of how gnulib-tool is used. +# It acts as a cache: It is written and read by gnulib-tool. +# In projects that use version control, this file is meant to be put under +# version control, like the configure.ac and various Makefile.am files. + + +# Specification in the form of a command-line invocation: +# gnulib-tool --import \ +# --lib=libgnu \ +# --source-base=gnulib-lib \ +# --m4-base=gnulib-m4 \ +# --doc-base=doc \ +# --tests-base=tests \ +# --aux-dir=build-aux \ +# --no-conditional-dependencies \ +# --libtool \ +# --macro-prefix=gl \ +# ansi-c++-opt \ +# host-cpu-c-abi \ +# lock \ +# longlong \ +# nocrash \ +# stdint \ +# stdnoreturn + +# Specification in the form of a few gnulib-tool.m4 macro invocations: +gl_LOCAL_DIR([]) +gl_MODULES([ + ansi-c++-opt + host-cpu-c-abi + lock + longlong + nocrash + stdint + stdnoreturn +]) +gl_AVOID([]) +gl_SOURCE_BASE([gnulib-lib]) +gl_M4_BASE([gnulib-m4]) +gl_PO_BASE([]) +gl_DOC_BASE([doc]) +gl_TESTS_BASE([tests]) +gl_LIB([libgnu]) +gl_MAKEFILE_NAME([]) +gl_LIBTOOL +gl_MACRO_PREFIX([gl]) +gl_PO_DOMAIN([]) +gl_WITNESS_C_MACRO([]) diff --git a/gnulib-m4/gnulib-common.m4 b/gnulib-m4/gnulib-common.m4 new file mode 100644 index 0000000..57b94ed --- /dev/null +++ b/gnulib-m4/gnulib-common.m4 @@ -0,0 +1,424 @@ +# gnulib-common.m4 serial 44 +dnl Copyright (C) 2007-2019 Free Software Foundation, Inc. +dnl This file is free software; the Free Software Foundation +dnl gives unlimited permission to copy and/or distribute it, +dnl with or without modifications, as long as this notice is preserved. + +AC_PREREQ([2.62]) + +# gl_COMMON +# is expanded unconditionally through gnulib-tool magic. +AC_DEFUN([gl_COMMON], [ + dnl Use AC_REQUIRE here, so that the code is expanded once only. + AC_REQUIRE([gl_00GNULIB]) + AC_REQUIRE([gl_COMMON_BODY]) +]) +AC_DEFUN([gl_COMMON_BODY], [ + AH_VERBATIM([_Noreturn], +[/* The _Noreturn keyword of C11. */ +#ifndef _Noreturn +# if (defined __cplusplus \ + && ((201103 <= __cplusplus && !(__GNUC__ == 4 && __GNUC_MINOR__ == 7)) \ + || (defined _MSC_VER && 1900 <= _MSC_VER))) +# define _Noreturn [[noreturn]] +# elif ((!defined __cplusplus || defined __clang__) \ + && (201112 <= (defined __STDC_VERSION__ ? __STDC_VERSION__ : 0) \ + || 4 < __GNUC__ + (7 <= __GNUC_MINOR__))) + /* _Noreturn works as-is. */ +# elif 2 < __GNUC__ + (8 <= __GNUC_MINOR__) || 0x5110 <= __SUNPRO_C +# define _Noreturn __attribute__ ((__noreturn__)) +# elif 1200 <= (defined _MSC_VER ? _MSC_VER : 0) +# define _Noreturn __declspec (noreturn) +# else +# define _Noreturn +# endif +#endif +]) + AH_VERBATIM([isoc99_inline], +[/* Work around a bug in Apple GCC 4.0.1 build 5465: In C99 mode, it supports + the ISO C 99 semantics of 'extern inline' (unlike the GNU C semantics of + earlier versions), but does not display it by setting __GNUC_STDC_INLINE__. + __APPLE__ && __MACH__ test for Mac OS X. + __APPLE_CC__ tests for the Apple compiler and its version. + __STDC_VERSION__ tests for the C99 mode. */ +#if defined __APPLE__ && defined __MACH__ && __APPLE_CC__ >= 5465 && !defined __cplusplus && __STDC_VERSION__ >= 199901L && !defined __GNUC_STDC_INLINE__ +# define __GNUC_STDC_INLINE__ 1 +#endif]) + AH_VERBATIM([unused_parameter], +[/* Define as a marker that can be attached to declarations that might not + be used. This helps to reduce warnings, such as from + GCC -Wunused-parameter. */ +#if __GNUC__ >= 3 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 7) +# define _GL_UNUSED __attribute__ ((__unused__)) +#else +# define _GL_UNUSED +#endif +/* The name _UNUSED_PARAMETER_ is an earlier spelling, although the name + is a misnomer outside of parameter lists. */ +#define _UNUSED_PARAMETER_ _GL_UNUSED + +/* gcc supports the "unused" attribute on possibly unused labels, and + g++ has since version 4.5. Note to support C++ as well as C, + _GL_UNUSED_LABEL should be used with a trailing ; */ +#if !defined __cplusplus || __GNUC__ > 4 \ + || (__GNUC__ == 4 && __GNUC_MINOR__ >= 5) +# define _GL_UNUSED_LABEL _GL_UNUSED +#else +# define _GL_UNUSED_LABEL +#endif + +/* The __pure__ attribute was added in gcc 2.96. */ +#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 96) +# define _GL_ATTRIBUTE_PURE __attribute__ ((__pure__)) +#else +# define _GL_ATTRIBUTE_PURE /* empty */ +#endif + +/* The __const__ attribute was added in gcc 2.95. */ +#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 95) +# define _GL_ATTRIBUTE_CONST __attribute__ ((__const__)) +#else +# define _GL_ATTRIBUTE_CONST /* empty */ +#endif + +/* The __malloc__ attribute was added in gcc 3. */ +#if 3 <= __GNUC__ +# define _GL_ATTRIBUTE_MALLOC __attribute__ ((__malloc__)) +#else +# define _GL_ATTRIBUTE_MALLOC /* empty */ +#endif +]) + AH_VERBATIM([async_safe], +[/* The _GL_ASYNC_SAFE marker should be attached to functions that are + signal handlers (for signals other than SIGABRT, SIGPIPE) or can be + invoked from such signal handlers. Such functions have some restrictions: + * All functions that it calls should be marked _GL_ASYNC_SAFE as well, + or should be listed as async-signal-safe in POSIX + + section 2.4.3. Note that malloc(), sprintf(), and fwrite(), in + particular, are NOT async-signal-safe. + * All memory locations (variables and struct fields) that these functions + access must be marked 'volatile'. This holds for both read and write + accesses. Otherwise the compiler might optimize away stores to and + reads from such locations that occur in the program, depending on its + data flow analysis. For example, when the program contains a loop + that is intended to inspect a variable set from within a signal handler + while (!signal_occurred) + ; + the compiler is allowed to transform this into an endless loop if the + variable 'signal_occurred' is not declared 'volatile'. + Additionally, recall that: + * A signal handler should not modify errno (except if it is a handler + for a fatal signal and ends by raising the same signal again, thus + provoking the termination of the process). If it invokes a function + that may clobber errno, it needs to save and restore the value of + errno. */ +#define _GL_ASYNC_SAFE +]) + dnl Preparation for running test programs: + dnl Tell glibc to write diagnostics from -D_FORTIFY_SOURCE=2 to stderr, not + dnl to /dev/tty, so they can be redirected to log files. Such diagnostics + dnl arise e.g., in the macros gl_PRINTF_DIRECTIVE_N, gl_SNPRINTF_DIRECTIVE_N. + LIBC_FATAL_STDERR_=1 + export LIBC_FATAL_STDERR_ +]) + +# gl_MODULE_INDICATOR_CONDITION +# expands to a C preprocessor expression that evaluates to 1 or 0, depending +# whether a gnulib module that has been requested shall be considered present +# or not. +m4_define([gl_MODULE_INDICATOR_CONDITION], [1]) + +# gl_MODULE_INDICATOR_SET_VARIABLE([modulename]) +# sets the shell variable that indicates the presence of the given module to +# a C preprocessor expression that will evaluate to 1. +AC_DEFUN([gl_MODULE_INDICATOR_SET_VARIABLE], +[ + gl_MODULE_INDICATOR_SET_VARIABLE_AUX( + [GNULIB_[]m4_translit([[$1]], + [abcdefghijklmnopqrstuvwxyz./-], + [ABCDEFGHIJKLMNOPQRSTUVWXYZ___])], + [gl_MODULE_INDICATOR_CONDITION]) +]) + +# gl_MODULE_INDICATOR_SET_VARIABLE_AUX([variable]) +# modifies the shell variable to include the gl_MODULE_INDICATOR_CONDITION. +# The shell variable's value is a C preprocessor expression that evaluates +# to 0 or 1. +AC_DEFUN([gl_MODULE_INDICATOR_SET_VARIABLE_AUX], +[ + m4_if(m4_defn([gl_MODULE_INDICATOR_CONDITION]), [1], + [ + dnl Simplify the expression VALUE || 1 to 1. + $1=1 + ], + [gl_MODULE_INDICATOR_SET_VARIABLE_AUX_OR([$1], + [gl_MODULE_INDICATOR_CONDITION])]) +]) + +# gl_MODULE_INDICATOR_SET_VARIABLE_AUX_OR([variable], [condition]) +# modifies the shell variable to include the given condition. The shell +# variable's value is a C preprocessor expression that evaluates to 0 or 1. +AC_DEFUN([gl_MODULE_INDICATOR_SET_VARIABLE_AUX_OR], +[ + dnl Simplify the expression 1 || CONDITION to 1. + if test "$[]$1" != 1; then + dnl Simplify the expression 0 || CONDITION to CONDITION. + if test "$[]$1" = 0; then + $1=$2 + else + $1="($[]$1 || $2)" + fi + fi +]) + +# gl_MODULE_INDICATOR([modulename]) +# defines a C macro indicating the presence of the given module +# in a location where it can be used. +# | Value | Value | +# | in lib/ | in tests/ | +# --------------------------------------------+---------+-----------+ +# Module present among main modules: | 1 | 1 | +# --------------------------------------------+---------+-----------+ +# Module present among tests-related modules: | 0 | 1 | +# --------------------------------------------+---------+-----------+ +# Module not present at all: | 0 | 0 | +# --------------------------------------------+---------+-----------+ +AC_DEFUN([gl_MODULE_INDICATOR], +[ + AC_DEFINE_UNQUOTED([GNULIB_]m4_translit([[$1]], + [abcdefghijklmnopqrstuvwxyz./-], + [ABCDEFGHIJKLMNOPQRSTUVWXYZ___]), + [gl_MODULE_INDICATOR_CONDITION], + [Define to a C preprocessor expression that evaluates to 1 or 0, + depending whether the gnulib module $1 shall be considered present.]) +]) + +# gl_MODULE_INDICATOR_FOR_TESTS([modulename]) +# defines a C macro indicating the presence of the given module +# in lib or tests. This is useful to determine whether the module +# should be tested. +# | Value | Value | +# | in lib/ | in tests/ | +# --------------------------------------------+---------+-----------+ +# Module present among main modules: | 1 | 1 | +# --------------------------------------------+---------+-----------+ +# Module present among tests-related modules: | 1 | 1 | +# --------------------------------------------+---------+-----------+ +# Module not present at all: | 0 | 0 | +# --------------------------------------------+---------+-----------+ +AC_DEFUN([gl_MODULE_INDICATOR_FOR_TESTS], +[ + AC_DEFINE([GNULIB_TEST_]m4_translit([[$1]], + [abcdefghijklmnopqrstuvwxyz./-], + [ABCDEFGHIJKLMNOPQRSTUVWXYZ___]), [1], + [Define to 1 when the gnulib module $1 should be tested.]) +]) + +# gl_ASSERT_NO_GNULIB_POSIXCHECK +# asserts that there will never be a need to #define GNULIB_POSIXCHECK. +# and thereby enables an optimization of configure and config.h. +# Used by Emacs. +AC_DEFUN([gl_ASSERT_NO_GNULIB_POSIXCHECK], +[ + dnl Override gl_WARN_ON_USE_PREPARE. + dnl But hide this definition from 'aclocal'. + AC_DEFUN([gl_W][ARN_ON_USE_PREPARE], []) +]) + +# gl_ASSERT_NO_GNULIB_TESTS +# asserts that there will be no gnulib tests in the scope of the configure.ac +# and thereby enables an optimization of config.h. +# Used by Emacs. +AC_DEFUN([gl_ASSERT_NO_GNULIB_TESTS], +[ + dnl Override gl_MODULE_INDICATOR_FOR_TESTS. + AC_DEFUN([gl_MODULE_INDICATOR_FOR_TESTS], []) +]) + +# Test whether exists. +# Set HAVE_FEATURES_H. +AC_DEFUN([gl_FEATURES_H], +[ + AC_CHECK_HEADERS_ONCE([features.h]) + if test $ac_cv_header_features_h = yes; then + HAVE_FEATURES_H=1 + else + HAVE_FEATURES_H=0 + fi + AC_SUBST([HAVE_FEATURES_H]) +]) + +# AS_VAR_IF(VAR, VALUE, [IF-MATCH], [IF-NOT-MATCH]) +# ---------------------------------------------------- +# Backport of autoconf-2.63b's macro. +# Remove this macro when we can assume autoconf >= 2.64. +m4_ifndef([AS_VAR_IF], +[m4_define([AS_VAR_IF], +[AS_IF([test x"AS_VAR_GET([$1])" = x""$2], [$3], [$4])])]) + +# gl_PROG_CC_C99 +# Modifies the value of the shell variable CC in an attempt to make $CC +# understand ISO C99 source code. +# This is like AC_PROG_CC_C99, except that +# - AC_PROG_CC_C99 does not mix well with AC_PROG_CC_STDC +# , +# but many more packages use AC_PROG_CC_STDC than AC_PROG_CC_C99 +# . +# Remaining problems: +# - When AC_PROG_CC_STDC is invoked twice, it adds the C99 enabling options +# to CC twice +# . +# - AC_PROG_CC_STDC is likely to change now that C11 is an ISO standard. +AC_DEFUN([gl_PROG_CC_C99], +[ + dnl Change that version number to the minimum Autoconf version that supports + dnl mixing AC_PROG_CC_C99 calls with AC_PROG_CC_STDC calls. + m4_version_prereq([9.0], + [AC_REQUIRE([AC_PROG_CC_C99])], + [AC_REQUIRE([AC_PROG_CC_STDC])]) +]) + +# gl_PROG_AR_RANLIB +# Determines the values for AR, ARFLAGS, RANLIB that fit with the compiler. +# The user can set the variables AR, ARFLAGS, RANLIB if he wants to override +# the values. +AC_DEFUN([gl_PROG_AR_RANLIB], +[ + dnl Minix 3 comes with two toolchains: The Amsterdam Compiler Kit compiler + dnl as "cc", and GCC as "gcc". They have different object file formats and + dnl library formats. In particular, the GNU binutils programs ar and ranlib + dnl produce libraries that work only with gcc, not with cc. + AC_REQUIRE([AC_PROG_CC]) + dnl The '][' hides this use from 'aclocal'. + AC_BEFORE([$0], [A][M_PROG_AR]) + AC_CACHE_CHECK([for Minix Amsterdam compiler], [gl_cv_c_amsterdam_compiler], + [ + AC_EGREP_CPP([Amsterdam], + [ +#ifdef __ACK__ +Amsterdam +#endif + ], + [gl_cv_c_amsterdam_compiler=yes], + [gl_cv_c_amsterdam_compiler=no]) + ]) + + dnl Don't compete with AM_PROG_AR's decision about AR/ARFLAGS if we are not + dnl building with __ACK__. + if test $gl_cv_c_amsterdam_compiler = yes; then + if test -z "$AR"; then + AR='cc -c.a' + fi + if test -z "$ARFLAGS"; then + ARFLAGS='-o' + fi + else + dnl AM_PROG_AR was added in automake v1.11.2. AM_PROG_AR does not AC_SUBST + dnl ARFLAGS variable (it is filed into Makefile.in directly by automake + dnl script on-demand, if not specified by ./configure of course). + dnl Don't AC_REQUIRE the AM_PROG_AR otherwise the code for __ACK__ above + dnl will be ignored. Also, pay attention to call AM_PROG_AR in else block + dnl because AM_PROG_AR is written so it could re-set AR variable even for + dnl __ACK__. It may seem like its easier to avoid calling the macro here, + dnl but we need to AC_SUBST both AR/ARFLAGS (thus those must have some good + dnl default value and automake should usually know them). + dnl + dnl The '][' hides this use from 'aclocal'. + m4_ifdef([A][M_PROG_AR], [A][M_PROG_AR], [:]) + fi + + dnl In case the code above has not helped with setting AR/ARFLAGS, use + dnl Automake-documented default values for AR and ARFLAGS, but prefer + dnl ${host}-ar over ar (useful for cross-compiling). + AC_CHECK_TOOL([AR], [ar], [ar]) + if test -z "$ARFLAGS"; then + ARFLAGS='cr' + fi + + AC_SUBST([AR]) + AC_SUBST([ARFLAGS]) + if test -z "$RANLIB"; then + if test $gl_cv_c_amsterdam_compiler = yes; then + RANLIB=':' + else + dnl Use the ranlib program if it is available. + AC_PROG_RANLIB + fi + fi + AC_SUBST([RANLIB]) +]) + +# AC_C_RESTRICT +# This definition is copied from post-2.69 Autoconf and overrides the +# AC_C_RESTRICT macro from autoconf 2.60..2.69. It can be removed +# once autoconf >= 2.70 can be assumed. It's painful to check version +# numbers, and in practice this macro is more up-to-date than Autoconf +# is, so override Autoconf unconditionally. +AC_DEFUN([AC_C_RESTRICT], +[AC_CACHE_CHECK([for C/C++ restrict keyword], [ac_cv_c_restrict], + [ac_cv_c_restrict=no + # The order here caters to the fact that C++ does not require restrict. + for ac_kw in __restrict __restrict__ _Restrict restrict; do + AC_COMPILE_IFELSE( + [AC_LANG_PROGRAM( + [[typedef int *int_ptr; + int foo (int_ptr $ac_kw ip) { return ip[0]; } + int bar (int [$ac_kw]); /* Catch GCC bug 14050. */ + int bar (int ip[$ac_kw]) { return ip[0]; } + ]], + [[int s[1]; + int *$ac_kw t = s; + t[0] = 0; + return foo (t) + bar (t); + ]])], + [ac_cv_c_restrict=$ac_kw]) + test "$ac_cv_c_restrict" != no && break + done + ]) + AH_VERBATIM([restrict], +[/* Define to the equivalent of the C99 'restrict' keyword, or to + nothing if this is not supported. Do not define if restrict is + supported directly. */ +#undef restrict +/* Work around a bug in Sun C++: it does not support _Restrict or + __restrict__, even though the corresponding Sun C compiler ends up with + "#define restrict _Restrict" or "#define restrict __restrict__" in the + previous line. Perhaps some future version of Sun C++ will work with + restrict; if so, hopefully it defines __RESTRICT like Sun C does. */ +#if defined __SUNPRO_CC && !defined __RESTRICT +# define _Restrict +# define __restrict__ +#endif]) + case $ac_cv_c_restrict in + restrict) ;; + no) AC_DEFINE([restrict], []) ;; + *) AC_DEFINE_UNQUOTED([restrict], [$ac_cv_c_restrict]) ;; + esac +])# AC_C_RESTRICT + +# gl_BIGENDIAN +# is like AC_C_BIGENDIAN, except that it can be AC_REQUIREd. +# Note that AC_REQUIRE([AC_C_BIGENDIAN]) does not work reliably because some +# macros invoke AC_C_BIGENDIAN with arguments. +AC_DEFUN([gl_BIGENDIAN], +[ + AC_C_BIGENDIAN +]) + +# gl_CACHE_VAL_SILENT(cache-id, command-to-set-it) +# is like AC_CACHE_VAL(cache-id, command-to-set-it), except that it does not +# output a spurious "(cached)" mark in the midst of other configure output. +# This macro should be used instead of AC_CACHE_VAL when it is not surrounded +# by an AC_MSG_CHECKING/AC_MSG_RESULT pair. +AC_DEFUN([gl_CACHE_VAL_SILENT], +[ + saved_as_echo_n="$as_echo_n" + as_echo_n=':' + AC_CACHE_VAL([$1], [$2]) + as_echo_n="$saved_as_echo_n" +]) + +# AS_VAR_COPY was added in autoconf 2.63b +m4_define_default([AS_VAR_COPY], +[AS_LITERAL_IF([$1[]$2], [$1=$$2], [eval $1=\$$2])]) diff --git a/gnulib-m4/gnulib-comp.m4 b/gnulib-m4/gnulib-comp.m4 new file mode 100644 index 0000000..bbcb959 --- /dev/null +++ b/gnulib-m4/gnulib-comp.m4 @@ -0,0 +1,300 @@ +# DO NOT EDIT! GENERATED AUTOMATICALLY! +# Copyright (C) 2002-2019 Free Software Foundation, Inc. +# +# This file is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# This file is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this file. If not, see . +# +# As a special exception to the GNU General Public License, +# this file may be distributed as part of a program that +# contains a configuration script generated by Autoconf, under +# the same distribution terms as the rest of that program. +# +# Generated by gnulib-tool. +# +# This file represents the compiled summary of the specification in +# gnulib-cache.m4. It lists the computed macro invocations that need +# to be invoked from configure.ac. +# In projects that use version control, this file can be treated like +# other built files. + + +# This macro should be invoked from ./configure.ac, in the section +# "Checks for programs", right after AC_PROG_CC, and certainly before +# any checks for libraries, header files, types and library functions. +AC_DEFUN([gl_EARLY], +[ + m4_pattern_forbid([^gl_[A-Z]])dnl the gnulib macro namespace + m4_pattern_allow([^gl_ES$])dnl a valid locale name + m4_pattern_allow([^gl_LIBOBJS$])dnl a variable + m4_pattern_allow([^gl_LTLIBOBJS$])dnl a variable + + # Pre-early section. + AC_REQUIRE([gl_USE_SYSTEM_EXTENSIONS]) + AC_REQUIRE([gl_PROG_AR_RANLIB]) + + AC_REQUIRE([AM_PROG_CC_C_O]) + # Code from module absolute-header: + # Code from module ansi-c++-opt: + # Code from module extensions: + # Code from module havelib: + # Code from module host-cpu-c-abi: + # Code from module include_next: + # Code from module limits-h: + # Code from module lock: + # Code from module longlong: + # Code from module multiarch: + # Code from module nocrash: + # Code from module snippet/_Noreturn: + # Code from module ssize_t: + # Code from module stdint: + # Code from module stdnoreturn: + # Code from module sys_types: + # Code from module threadlib: + gl_THREADLIB_EARLY + # Code from module windows-mutex: + # Code from module windows-once: + # Code from module windows-recmutex: + # Code from module windows-rwlock: +]) + +# This macro should be invoked from ./configure.ac, in the section +# "Check for header files, types and library functions". +AC_DEFUN([gl_INIT], +[ + AM_CONDITIONAL([GL_COND_LIBTOOL], [true]) + gl_cond_libtool=true + gl_m4_base='gnulib-m4' + m4_pushdef([AC_LIBOBJ], m4_defn([gl_LIBOBJ])) + m4_pushdef([AC_REPLACE_FUNCS], m4_defn([gl_REPLACE_FUNCS])) + m4_pushdef([AC_LIBSOURCES], m4_defn([gl_LIBSOURCES])) + m4_pushdef([gl_LIBSOURCES_LIST], []) + m4_pushdef([gl_LIBSOURCES_DIR], []) + gl_COMMON + gl_source_base='gnulib-lib' + AC_REQUIRE([gl_ANSI_CXX]) + AC_REQUIRE([gl_HOST_CPU_C_ABI]) + gl_LIMITS_H + gl_LOCK + gl_MODULE_INDICATOR([lock]) + AC_REQUIRE([AC_TYPE_LONG_LONG_INT]) + AC_REQUIRE([AC_TYPE_UNSIGNED_LONG_LONG_INT]) + gl_MULTIARCH + gt_TYPE_SSIZE_T + gl_STDINT_H + gl_STDNORETURN_H + gl_SYS_TYPES_H + AC_PROG_MKDIR_P + AC_REQUIRE([gl_THREADLIB]) + AC_REQUIRE([AC_CANONICAL_HOST]) + case "$host_os" in + mingw*) + AC_LIBOBJ([windows-mutex]) + ;; + esac + AC_REQUIRE([AC_CANONICAL_HOST]) + case "$host_os" in + mingw*) + AC_LIBOBJ([windows-once]) + ;; + esac + AC_REQUIRE([AC_CANONICAL_HOST]) + case "$host_os" in + mingw*) + AC_LIBOBJ([windows-recmutex]) + ;; + esac + AC_REQUIRE([AC_CANONICAL_HOST]) + case "$host_os" in + mingw*) + AC_LIBOBJ([windows-rwlock]) + ;; + esac + # End of code from modules + m4_ifval(gl_LIBSOURCES_LIST, [ + m4_syscmd([test ! -d ]m4_defn([gl_LIBSOURCES_DIR])[ || + for gl_file in ]gl_LIBSOURCES_LIST[ ; do + if test ! -r ]m4_defn([gl_LIBSOURCES_DIR])[/$gl_file ; then + echo "missing file ]m4_defn([gl_LIBSOURCES_DIR])[/$gl_file" >&2 + exit 1 + fi + done])dnl + m4_if(m4_sysval, [0], [], + [AC_FATAL([expected source file, required through AC_LIBSOURCES, not found])]) + ]) + m4_popdef([gl_LIBSOURCES_DIR]) + m4_popdef([gl_LIBSOURCES_LIST]) + m4_popdef([AC_LIBSOURCES]) + m4_popdef([AC_REPLACE_FUNCS]) + m4_popdef([AC_LIBOBJ]) + AC_CONFIG_COMMANDS_PRE([ + gl_libobjs= + gl_ltlibobjs= + if test -n "$gl_LIBOBJS"; then + # Remove the extension. + sed_drop_objext='s/\.o$//;s/\.obj$//' + for i in `for i in $gl_LIBOBJS; do echo "$i"; done | sed -e "$sed_drop_objext" | sort | uniq`; do + gl_libobjs="$gl_libobjs $i.$ac_objext" + gl_ltlibobjs="$gl_ltlibobjs $i.lo" + done + fi + AC_SUBST([gl_LIBOBJS], [$gl_libobjs]) + AC_SUBST([gl_LTLIBOBJS], [$gl_ltlibobjs]) + ]) + gltests_libdeps= + gltests_ltlibdeps= + m4_pushdef([AC_LIBOBJ], m4_defn([gltests_LIBOBJ])) + m4_pushdef([AC_REPLACE_FUNCS], m4_defn([gltests_REPLACE_FUNCS])) + m4_pushdef([AC_LIBSOURCES], m4_defn([gltests_LIBSOURCES])) + m4_pushdef([gltests_LIBSOURCES_LIST], []) + m4_pushdef([gltests_LIBSOURCES_DIR], []) + gl_COMMON + gl_source_base='tests' +changequote(,)dnl + gltests_WITNESS=IN_`echo "${PACKAGE-$PACKAGE_TARNAME}" | LC_ALL=C tr abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ | LC_ALL=C sed -e 's/[^A-Z0-9_]/_/g'`_GNULIB_TESTS +changequote([, ])dnl + AC_SUBST([gltests_WITNESS]) + gl_module_indicator_condition=$gltests_WITNESS + m4_pushdef([gl_MODULE_INDICATOR_CONDITION], [$gl_module_indicator_condition]) + m4_popdef([gl_MODULE_INDICATOR_CONDITION]) + m4_ifval(gltests_LIBSOURCES_LIST, [ + m4_syscmd([test ! -d ]m4_defn([gltests_LIBSOURCES_DIR])[ || + for gl_file in ]gltests_LIBSOURCES_LIST[ ; do + if test ! -r ]m4_defn([gltests_LIBSOURCES_DIR])[/$gl_file ; then + echo "missing file ]m4_defn([gltests_LIBSOURCES_DIR])[/$gl_file" >&2 + exit 1 + fi + done])dnl + m4_if(m4_sysval, [0], [], + [AC_FATAL([expected source file, required through AC_LIBSOURCES, not found])]) + ]) + m4_popdef([gltests_LIBSOURCES_DIR]) + m4_popdef([gltests_LIBSOURCES_LIST]) + m4_popdef([AC_LIBSOURCES]) + m4_popdef([AC_REPLACE_FUNCS]) + m4_popdef([AC_LIBOBJ]) + AC_CONFIG_COMMANDS_PRE([ + gltests_libobjs= + gltests_ltlibobjs= + if test -n "$gltests_LIBOBJS"; then + # Remove the extension. + sed_drop_objext='s/\.o$//;s/\.obj$//' + for i in `for i in $gltests_LIBOBJS; do echo "$i"; done | sed -e "$sed_drop_objext" | sort | uniq`; do + gltests_libobjs="$gltests_libobjs $i.$ac_objext" + gltests_ltlibobjs="$gltests_ltlibobjs $i.lo" + done + fi + AC_SUBST([gltests_LIBOBJS], [$gltests_libobjs]) + AC_SUBST([gltests_LTLIBOBJS], [$gltests_ltlibobjs]) + ]) +]) + +# Like AC_LIBOBJ, except that the module name goes +# into gl_LIBOBJS instead of into LIBOBJS. +AC_DEFUN([gl_LIBOBJ], [ + AS_LITERAL_IF([$1], [gl_LIBSOURCES([$1.c])])dnl + gl_LIBOBJS="$gl_LIBOBJS $1.$ac_objext" +]) + +# Like AC_REPLACE_FUNCS, except that the module name goes +# into gl_LIBOBJS instead of into LIBOBJS. +AC_DEFUN([gl_REPLACE_FUNCS], [ + m4_foreach_w([gl_NAME], [$1], [AC_LIBSOURCES(gl_NAME[.c])])dnl + AC_CHECK_FUNCS([$1], , [gl_LIBOBJ($ac_func)]) +]) + +# Like AC_LIBSOURCES, except the directory where the source file is +# expected is derived from the gnulib-tool parameterization, +# and alloca is special cased (for the alloca-opt module). +# We could also entirely rely on EXTRA_lib..._SOURCES. +AC_DEFUN([gl_LIBSOURCES], [ + m4_foreach([_gl_NAME], [$1], [ + m4_if(_gl_NAME, [alloca.c], [], [ + m4_define([gl_LIBSOURCES_DIR], [gnulib-lib]) + m4_append([gl_LIBSOURCES_LIST], _gl_NAME, [ ]) + ]) + ]) +]) + +# Like AC_LIBOBJ, except that the module name goes +# into gltests_LIBOBJS instead of into LIBOBJS. +AC_DEFUN([gltests_LIBOBJ], [ + AS_LITERAL_IF([$1], [gltests_LIBSOURCES([$1.c])])dnl + gltests_LIBOBJS="$gltests_LIBOBJS $1.$ac_objext" +]) + +# Like AC_REPLACE_FUNCS, except that the module name goes +# into gltests_LIBOBJS instead of into LIBOBJS. +AC_DEFUN([gltests_REPLACE_FUNCS], [ + m4_foreach_w([gl_NAME], [$1], [AC_LIBSOURCES(gl_NAME[.c])])dnl + AC_CHECK_FUNCS([$1], , [gltests_LIBOBJ($ac_func)]) +]) + +# Like AC_LIBSOURCES, except the directory where the source file is +# expected is derived from the gnulib-tool parameterization, +# and alloca is special cased (for the alloca-opt module). +# We could also entirely rely on EXTRA_lib..._SOURCES. +AC_DEFUN([gltests_LIBSOURCES], [ + m4_foreach([_gl_NAME], [$1], [ + m4_if(_gl_NAME, [alloca.c], [], [ + m4_define([gltests_LIBSOURCES_DIR], [tests]) + m4_append([gltests_LIBSOURCES_LIST], _gl_NAME, [ ]) + ]) + ]) +]) + +# This macro records the list of files which have been installed by +# gnulib-tool and may be removed by future gnulib-tool invocations. +AC_DEFUN([gl_FILE_LIST], [ + build-aux/config.rpath + lib/_Noreturn.h + lib/glthread/lock.c + lib/glthread/lock.h + lib/glthread/threadlib.c + lib/limits.in.h + lib/stdint.in.h + lib/stdnoreturn.in.h + lib/sys_types.in.h + lib/windows-initguard.h + lib/windows-mutex.c + lib/windows-mutex.h + lib/windows-once.c + lib/windows-once.h + lib/windows-recmutex.c + lib/windows-recmutex.h + lib/windows-rwlock.c + lib/windows-rwlock.h + m4/00gnulib.m4 + m4/absolute-header.m4 + m4/ansi-c++.m4 + m4/asm-underscore.m4 + m4/extensions.m4 + m4/gnulib-common.m4 + m4/host-cpu-c-abi.m4 + m4/include_next.m4 + m4/lib-ld.m4 + m4/lib-link.m4 + m4/lib-prefix.m4 + m4/limits-h.m4 + m4/lock.m4 + m4/longlong.m4 + m4/multiarch.m4 + m4/nocrash.m4 + m4/off_t.m4 + m4/pthread_rwlock_rdlock.m4 + m4/ssize_t.m4 + m4/stdint.m4 + m4/stdnoreturn.m4 + m4/sys_types_h.m4 + m4/threadlib.m4 + m4/wint_t.m4 +]) diff --git a/gnulib-m4/gnulib-tool.m4 b/gnulib-m4/gnulib-tool.m4 new file mode 100644 index 0000000..98e6ade --- /dev/null +++ b/gnulib-m4/gnulib-tool.m4 @@ -0,0 +1,57 @@ +# gnulib-tool.m4 serial 2 +dnl Copyright (C) 2004-2005, 2009-2019 Free Software Foundation, Inc. +dnl This file is free software; the Free Software Foundation +dnl gives unlimited permission to copy and/or distribute it, +dnl with or without modifications, as long as this notice is preserved. + +dnl The following macros need not be invoked explicitly. +dnl Invoking them does nothing except to declare default arguments +dnl for "gnulib-tool --import". + +dnl Usage: gl_LOCAL_DIR([DIR]) +AC_DEFUN([gl_LOCAL_DIR], []) + +dnl Usage: gl_MODULES([module1 module2 ...]) +AC_DEFUN([gl_MODULES], []) + +dnl Usage: gl_AVOID([module1 module2 ...]) +AC_DEFUN([gl_AVOID], []) + +dnl Usage: gl_SOURCE_BASE([DIR]) +AC_DEFUN([gl_SOURCE_BASE], []) + +dnl Usage: gl_M4_BASE([DIR]) +AC_DEFUN([gl_M4_BASE], []) + +dnl Usage: gl_PO_BASE([DIR]) +AC_DEFUN([gl_PO_BASE], []) + +dnl Usage: gl_DOC_BASE([DIR]) +AC_DEFUN([gl_DOC_BASE], []) + +dnl Usage: gl_TESTS_BASE([DIR]) +AC_DEFUN([gl_TESTS_BASE], []) + +dnl Usage: gl_WITH_TESTS +AC_DEFUN([gl_WITH_TESTS], []) + +dnl Usage: gl_LIB([LIBNAME]) +AC_DEFUN([gl_LIB], []) + +dnl Usage: gl_LGPL or gl_LGPL([VERSION]) +AC_DEFUN([gl_LGPL], []) + +dnl Usage: gl_MAKEFILE_NAME([FILENAME]) +AC_DEFUN([gl_MAKEFILE_NAME], []) + +dnl Usage: gl_LIBTOOL +AC_DEFUN([gl_LIBTOOL], []) + +dnl Usage: gl_MACRO_PREFIX([PREFIX]) +AC_DEFUN([gl_MACRO_PREFIX], []) + +dnl Usage: gl_PO_DOMAIN([DOMAIN]) +AC_DEFUN([gl_PO_DOMAIN], []) + +dnl Usage: gl_VC_FILES([BOOLEAN]) +AC_DEFUN([gl_VC_FILES], []) diff --git a/gnulib-m4/host-cpu-c-abi.m4 b/gnulib-m4/host-cpu-c-abi.m4 new file mode 100644 index 0000000..4407296 --- /dev/null +++ b/gnulib-m4/host-cpu-c-abi.m4 @@ -0,0 +1,644 @@ +# host-cpu-c-abi.m4 serial 11 +dnl Copyright (C) 2002-2019 Free Software Foundation, Inc. +dnl This file is free software; the Free Software Foundation +dnl gives unlimited permission to copy and/or distribute it, +dnl with or without modifications, as long as this notice is preserved. + +dnl From Bruno Haible and Sam Steingold. + +dnl Sets the HOST_CPU variable to the canonical name of the CPU. +dnl Sets the HOST_CPU_C_ABI variable to the canonical name of the CPU with its +dnl C language ABI (application binary interface). +dnl Also defines __${HOST_CPU}__ and __${HOST_CPU_C_ABI}__ as C macros in +dnl config.h. +dnl +dnl This canonical name can be used to select a particular assembly language +dnl source file that will interoperate with C code on the given host. +dnl +dnl For example: +dnl * 'i386' and 'sparc' are different canonical names, because code for i386 +dnl will not run on SPARC CPUs and vice versa. They have different +dnl instruction sets. +dnl * 'sparc' and 'sparc64' are different canonical names, because code for +dnl 'sparc' and code for 'sparc64' cannot be linked together: 'sparc' code +dnl contains 32-bit instructions, whereas 'sparc64' code contains 64-bit +dnl instructions. A process on a SPARC CPU can be in 32-bit mode or in 64-bit +dnl mode, but not both. +dnl * 'mips' and 'mipsn32' are different canonical names, because they use +dnl different argument passing and return conventions for C functions, and +dnl although the instruction set of 'mips' is a large subset of the +dnl instruction set of 'mipsn32'. +dnl * 'mipsn32' and 'mips64' are different canonical names, because they use +dnl different sizes for the C types like 'int' and 'void *', and although +dnl the instruction sets of 'mipsn32' and 'mips64' are the same. +dnl * The same canonical name is used for different endiannesses. You can +dnl determine the endianness through preprocessor symbols: +dnl - 'arm': test __ARMEL__. +dnl - 'mips', 'mipsn32', 'mips64': test _MIPSEB vs. _MIPSEL. +dnl - 'powerpc64': test _BIG_ENDIAN vs. _LITTLE_ENDIAN. +dnl * The same name 'i386' is used for CPUs of type i386, i486, i586 +dnl (Pentium), AMD K7, Pentium II, Pentium IV, etc., because +dnl - Instructions that do not exist on all of these CPUs (cmpxchg, +dnl MMX, SSE, SSE2, 3DNow! etc.) are not frequently used. If your +dnl assembly language source files use such instructions, you will +dnl need to make the distinction. +dnl - Speed of execution of the common instruction set is reasonable across +dnl the entire family of CPUs. If you have assembly language source files +dnl that are optimized for particular CPU types (like GNU gmp has), you +dnl will need to make the distinction. +dnl See . +AC_DEFUN([gl_HOST_CPU_C_ABI], +[ + AC_REQUIRE([AC_CANONICAL_HOST]) + AC_REQUIRE([gl_C_ASM]) + AC_CACHE_CHECK([host CPU and C ABI], [gl_cv_host_cpu_c_abi], + [case "$host_cpu" in + +changequote(,)dnl + i[4567]86 ) +changequote([,])dnl + gl_cv_host_cpu_c_abi=i386 + ;; + + x86_64 ) + # On x86_64 systems, the C compiler may be generating code in one of + # these ABIs: + # - 64-bit instruction set, 64-bit pointers, 64-bit 'long': x86_64. + # - 64-bit instruction set, 64-bit pointers, 32-bit 'long': x86_64 + # with native Windows (mingw, MSVC). + # - 64-bit instruction set, 32-bit pointers, 32-bit 'long': x86_64-x32. + # - 32-bit instruction set, 32-bit pointers, 32-bit 'long': i386. + AC_COMPILE_IFELSE( + [AC_LANG_SOURCE( + [[#if (defined __x86_64__ || defined __amd64__ \ + || defined _M_X64 || defined _M_AMD64) + int ok; + #else + error fail + #endif + ]])], + [AC_COMPILE_IFELSE( + [AC_LANG_SOURCE( + [[#if defined __ILP32__ || defined _ILP32 + int ok; + #else + error fail + #endif + ]])], + [gl_cv_host_cpu_c_abi=x86_64-x32], + [gl_cv_host_cpu_c_abi=x86_64])], + [gl_cv_host_cpu_c_abi=i386]) + ;; + +changequote(,)dnl + alphaev[4-8] | alphaev56 | alphapca5[67] | alphaev6[78] ) +changequote([,])dnl + gl_cv_host_cpu_c_abi=alpha + ;; + + arm* | aarch64 ) + # Assume arm with EABI. + # On arm64 systems, the C compiler may be generating code in one of + # these ABIs: + # - aarch64 instruction set, 64-bit pointers, 64-bit 'long': arm64. + # - aarch64 instruction set, 32-bit pointers, 32-bit 'long': arm64-ilp32. + # - 32-bit instruction set, 32-bit pointers, 32-bit 'long': arm or armhf. + AC_COMPILE_IFELSE( + [AC_LANG_SOURCE( + [[#ifdef __aarch64__ + int ok; + #else + error fail + #endif + ]])], + [AC_COMPILE_IFELSE( + [AC_LANG_SOURCE( + [[#if defined __ILP32__ || defined _ILP32 + int ok; + #else + error fail + #endif + ]])], + [gl_cv_host_cpu_c_abi=arm64-ilp32], + [gl_cv_host_cpu_c_abi=arm64])], + [# Don't distinguish little-endian and big-endian arm, since they + # don't require different machine code for simple operations and + # since the user can distinguish them through the preprocessor + # defines __ARMEL__ vs. __ARMEB__. + # But distinguish arm which passes floating-point arguments and + # return values in integer registers (r0, r1, ...) - this is + # gcc -mfloat-abi=soft or gcc -mfloat-abi=softfp - from arm which + # passes them in float registers (s0, s1, ...) and double registers + # (d0, d1, ...) - this is gcc -mfloat-abi=hard. GCC 4.6 or newer + # sets the preprocessor defines __ARM_PCS (for the first case) and + # __ARM_PCS_VFP (for the second case), but older GCC does not. + echo 'double ddd; void func (double dd) { ddd = dd; }' > conftest.c + # Look for a reference to the register d0 in the .s file. + AC_TRY_COMMAND(${CC-cc} $CFLAGS $CPPFLAGS $gl_c_asm_opt conftest.c) >/dev/null 2>&1 + if LC_ALL=C grep 'd0,' conftest.$gl_asmext >/dev/null; then + gl_cv_host_cpu_c_abi=armhf + else + gl_cv_host_cpu_c_abi=arm + fi + rm -f conftest* + ]) + ;; + + hppa1.0 | hppa1.1 | hppa2.0* | hppa64 ) + # On hppa, the C compiler may be generating 32-bit code or 64-bit + # code. In the latter case, it defines _LP64 and __LP64__. + AC_COMPILE_IFELSE( + [AC_LANG_SOURCE( + [[#ifdef __LP64__ + int ok; + #else + error fail + #endif + ]])], + [gl_cv_host_cpu_c_abi=hppa64], + [gl_cv_host_cpu_c_abi=hppa]) + ;; + + ia64* ) + # On ia64 on HP-UX, the C compiler may be generating 64-bit code or + # 32-bit code. In the latter case, it defines _ILP32. + AC_COMPILE_IFELSE( + [AC_LANG_SOURCE( + [[#ifdef _ILP32 + int ok; + #else + error fail + #endif + ]])], + [gl_cv_host_cpu_c_abi=ia64-ilp32], + [gl_cv_host_cpu_c_abi=ia64]) + ;; + + mips* ) + # We should also check for (_MIPS_SZPTR == 64), but gcc keeps this + # at 32. + AC_COMPILE_IFELSE( + [AC_LANG_SOURCE( + [[#if defined _MIPS_SZLONG && (_MIPS_SZLONG == 64) + int ok; + #else + error fail + #endif + ]])], + [gl_cv_host_cpu_c_abi=mips64], + [# In the n32 ABI, _ABIN32 is defined, _ABIO32 is not defined (but + # may later get defined by ), and _MIPS_SIM == _ABIN32. + # In the 32 ABI, _ABIO32 is defined, _ABIN32 is not defined (but + # may later get defined by ), and _MIPS_SIM == _ABIO32. + AC_COMPILE_IFELSE( + [AC_LANG_SOURCE( + [[#if (_MIPS_SIM == _ABIN32) + int ok; + #else + error fail + #endif + ]])], + [gl_cv_host_cpu_c_abi=mipsn32], + [gl_cv_host_cpu_c_abi=mips])]) + ;; + + powerpc* ) + # Different ABIs are in use on AIX vs. Mac OS X vs. Linux,*BSD. + # No need to distinguish them here; the caller may distinguish + # them based on the OS. + # On powerpc64 systems, the C compiler may still be generating + # 32-bit code. And on powerpc-ibm-aix systems, the C compiler may + # be generating 64-bit code. + AC_COMPILE_IFELSE( + [AC_LANG_SOURCE( + [[#if defined __powerpc64__ || defined _ARCH_PPC64 + int ok; + #else + error fail + #endif + ]])], + [# On powerpc64, there are two ABIs on Linux: The AIX compatible + # one and the ELFv2 one. The latter defines _CALL_ELF=2. + AC_COMPILE_IFELSE( + [AC_LANG_SOURCE( + [[#if defined _CALL_ELF && _CALL_ELF == 2 + int ok; + #else + error fail + #endif + ]])], + [gl_cv_host_cpu_c_abi=powerpc64-elfv2], + [gl_cv_host_cpu_c_abi=powerpc64]) + ], + [gl_cv_host_cpu_c_abi=powerpc]) + ;; + + rs6000 ) + gl_cv_host_cpu_c_abi=powerpc + ;; + + riscv32 | riscv64 ) + # There are 2 architectures (with variants): rv32* and rv64*. + AC_COMPILE_IFELSE( + [AC_LANG_SOURCE( + [[#if __riscv_xlen == 64 + int ok; + #else + error fail + #endif + ]])], + [cpu=riscv64], + [cpu=riscv32]) + # There are 6 ABIs: ilp32, ilp32f, ilp32d, lp64, lp64f, lp64d. + # Size of 'long' and 'void *': + AC_COMPILE_IFELSE( + [AC_LANG_SOURCE( + [[#if defined __LP64__ + int ok; + #else + error fail + #endif + ]])], + [main_abi=lp64], + [main_abi=ilp32]) + # Float ABIs: + # __riscv_float_abi_double: + # 'float' and 'double' are passed in floating-point registers. + # __riscv_float_abi_single: + # 'float' are passed in floating-point registers. + # __riscv_float_abi_soft: + # No values are passed in floating-point registers. + AC_COMPILE_IFELSE( + [AC_LANG_SOURCE( + [[#if defined __riscv_float_abi_double + int ok; + #else + error fail + #endif + ]])], + [float_abi=d], + [AC_COMPILE_IFELSE( + [AC_LANG_SOURCE( + [[#if defined __riscv_float_abi_single + int ok; + #else + error fail + #endif + ]])], + [float_abi=f], + [float_abi='']) + ]) + gl_cv_host_cpu_c_abi="${cpu}-${main_abi}${float_abi}" + ;; + + s390* ) + # On s390x, the C compiler may be generating 64-bit (= s390x) code + # or 31-bit (= s390) code. + AC_COMPILE_IFELSE( + [AC_LANG_SOURCE( + [[#if defined __LP64__ || defined __s390x__ + int ok; + #else + error fail + #endif + ]])], + [gl_cv_host_cpu_c_abi=s390x], + [gl_cv_host_cpu_c_abi=s390]) + ;; + + sparc | sparc64 ) + # UltraSPARCs running Linux have `uname -m` = "sparc64", but the + # C compiler still generates 32-bit code. + AC_COMPILE_IFELSE( + [AC_LANG_SOURCE( + [[#if defined __sparcv9 || defined __arch64__ + int ok; + #else + error fail + #endif + ]])], + [gl_cv_host_cpu_c_abi=sparc64], + [gl_cv_host_cpu_c_abi=sparc]) + ;; + + *) + gl_cv_host_cpu_c_abi="$host_cpu" + ;; + esac + ]) + + dnl In most cases, $HOST_CPU and $HOST_CPU_C_ABI are the same. + HOST_CPU=`echo "$gl_cv_host_cpu_c_abi" | sed -e 's/-.*//'` + HOST_CPU_C_ABI="$gl_cv_host_cpu_c_abi" + AC_SUBST([HOST_CPU]) + AC_SUBST([HOST_CPU_C_ABI]) + + # This was + # AC_DEFINE_UNQUOTED([__${HOST_CPU}__]) + # AC_DEFINE_UNQUOTED([__${HOST_CPU_C_ABI}__]) + # earlier, but KAI C++ 3.2d doesn't like this. + sed -e 's/-/_/g' >> confdefs.h <. + dnl Additionally, with this same compiler, include_next is a no-op when + dnl used in a header file that was included by specifying its absolute + dnl file name. Despite these two bugs, include_next is used in the + dnl compiler's . By virtue of the second bug, we need to use + dnl include_next as well in this case. + cat < conftestd1a/conftest.h +#define DEFINED_IN_CONFTESTD1 +#include_next +#ifdef DEFINED_IN_CONFTESTD2 +int foo; +#else +#error "include_next doesn't work" +#endif +EOF + cat < conftestd1b/conftest.h +#define DEFINED_IN_CONFTESTD1 +#include +#include_next +#ifdef DEFINED_IN_CONFTESTD2 +int foo; +#else +#error "include_next doesn't work" +#endif +EOF + cat < conftestd2/conftest.h +#ifndef DEFINED_IN_CONFTESTD1 +#error "include_next test doesn't work" +#endif +#define DEFINED_IN_CONFTESTD2 +EOF + gl_save_CPPFLAGS="$CPPFLAGS" + CPPFLAGS="$gl_save_CPPFLAGS -Iconftestd1b -Iconftestd2" +dnl We intentionally avoid using AC_LANG_SOURCE here. + AC_COMPILE_IFELSE([AC_LANG_DEFINES_PROVIDED[#include ]], + [gl_cv_have_include_next=yes], + [CPPFLAGS="$gl_save_CPPFLAGS -Iconftestd1a -Iconftestd2" + AC_COMPILE_IFELSE([AC_LANG_DEFINES_PROVIDED[#include ]], + [gl_cv_have_include_next=buggy], + [gl_cv_have_include_next=no]) + ]) + CPPFLAGS="$gl_save_CPPFLAGS" + rm -rf conftestd1a conftestd1b conftestd2 + ]) + PRAGMA_SYSTEM_HEADER= + if test $gl_cv_have_include_next = yes; then + INCLUDE_NEXT=include_next + INCLUDE_NEXT_AS_FIRST_DIRECTIVE=include_next + if test -n "$GCC"; then + PRAGMA_SYSTEM_HEADER='#pragma GCC system_header' + fi + else + if test $gl_cv_have_include_next = buggy; then + INCLUDE_NEXT=include + INCLUDE_NEXT_AS_FIRST_DIRECTIVE=include_next + else + INCLUDE_NEXT=include + INCLUDE_NEXT_AS_FIRST_DIRECTIVE=include + fi + fi + AC_SUBST([INCLUDE_NEXT]) + AC_SUBST([INCLUDE_NEXT_AS_FIRST_DIRECTIVE]) + AC_SUBST([PRAGMA_SYSTEM_HEADER]) + AC_CACHE_CHECK([whether system header files limit the line length], + [gl_cv_pragma_columns], + [dnl HP NonStop systems, which define __TANDEM, have this misfeature. + AC_EGREP_CPP([choke me], + [ +#ifdef __TANDEM +choke me +#endif + ], + [gl_cv_pragma_columns=yes], + [gl_cv_pragma_columns=no]) + ]) + if test $gl_cv_pragma_columns = yes; then + PRAGMA_COLUMNS="#pragma COLUMNS 10000" + else + PRAGMA_COLUMNS= + fi + AC_SUBST([PRAGMA_COLUMNS]) +]) + +# gl_CHECK_NEXT_HEADERS(HEADER1 HEADER2 ...) +# ------------------------------------------ +# For each arg foo.h, if #include_next works, define NEXT_FOO_H to be +# ''; otherwise define it to be +# '"///usr/include/foo.h"', or whatever other absolute file name is suitable. +# Also, if #include_next works as first preprocessing directive in a file, +# define NEXT_AS_FIRST_DIRECTIVE_FOO_H to be ''; otherwise define it to +# be +# '"///usr/include/foo.h"', or whatever other absolute file name is suitable. +# That way, a header file with the following line: +# #@INCLUDE_NEXT@ @NEXT_FOO_H@ +# or +# #@INCLUDE_NEXT_AS_FIRST_DIRECTIVE@ @NEXT_AS_FIRST_DIRECTIVE_FOO_H@ +# behaves (after sed substitution) as if it contained +# #include_next +# even if the compiler does not support include_next. +# The three "///" are to pacify Sun C 5.8, which otherwise would say +# "warning: #include of /usr/include/... may be non-portable". +# Use '""', not '<>', so that the /// cannot be confused with a C99 comment. +# Note: This macro assumes that the header file is not empty after +# preprocessing, i.e. it does not only define preprocessor macros but also +# provides some type/enum definitions or function/variable declarations. +# +# This macro also checks whether each header exists, by invoking +# AC_CHECK_HEADERS_ONCE or AC_CHECK_HEADERS on each argument. +AC_DEFUN([gl_CHECK_NEXT_HEADERS], +[ + gl_NEXT_HEADERS_INTERNAL([$1], [check]) +]) + +# gl_NEXT_HEADERS(HEADER1 HEADER2 ...) +# ------------------------------------ +# Like gl_CHECK_NEXT_HEADERS, except do not check whether the headers exist. +# This is suitable for headers like that are standardized by C89 +# and therefore can be assumed to exist. +AC_DEFUN([gl_NEXT_HEADERS], +[ + gl_NEXT_HEADERS_INTERNAL([$1], [assume]) +]) + +# The guts of gl_CHECK_NEXT_HEADERS and gl_NEXT_HEADERS. +AC_DEFUN([gl_NEXT_HEADERS_INTERNAL], +[ + AC_REQUIRE([gl_INCLUDE_NEXT]) + AC_REQUIRE([AC_CANONICAL_HOST]) + + m4_if([$2], [check], + [AC_CHECK_HEADERS_ONCE([$1]) + ]) + +dnl FIXME: gl_next_header and gl_header_exists must be used unquoted +dnl until we can assume autoconf 2.64 or newer. + m4_foreach_w([gl_HEADER_NAME], [$1], + [AS_VAR_PUSHDEF([gl_next_header], + [gl_cv_next_]m4_defn([gl_HEADER_NAME])) + if test $gl_cv_have_include_next = yes; then + AS_VAR_SET(gl_next_header, ['<'gl_HEADER_NAME'>']) + else + AC_CACHE_CHECK( + [absolute name of <]m4_defn([gl_HEADER_NAME])[>], + m4_defn([gl_next_header]), + [m4_if([$2], [check], + [AS_VAR_PUSHDEF([gl_header_exists], + [ac_cv_header_]m4_defn([gl_HEADER_NAME])) + if test AS_VAR_GET(gl_header_exists) = yes; then + AS_VAR_POPDEF([gl_header_exists]) + ]) + gl_ABSOLUTE_HEADER_ONE(gl_HEADER_NAME) + AS_VAR_COPY([gl_header], [gl_cv_absolute_]AS_TR_SH(gl_HEADER_NAME)) + AS_VAR_SET(gl_next_header, ['"'$gl_header'"']) + m4_if([$2], [check], + [else + AS_VAR_SET(gl_next_header, ['<'gl_HEADER_NAME'>']) + fi + ]) + ]) + fi + AC_SUBST( + AS_TR_CPP([NEXT_]m4_defn([gl_HEADER_NAME])), + [AS_VAR_GET(gl_next_header)]) + if test $gl_cv_have_include_next = yes || test $gl_cv_have_include_next = buggy; then + # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include_next' + gl_next_as_first_directive='<'gl_HEADER_NAME'>' + else + # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include' + gl_next_as_first_directive=AS_VAR_GET(gl_next_header) + fi + AC_SUBST( + AS_TR_CPP([NEXT_AS_FIRST_DIRECTIVE_]m4_defn([gl_HEADER_NAME])), + [$gl_next_as_first_directive]) + AS_VAR_POPDEF([gl_next_header])]) +]) + +# Autoconf 2.68 added warnings for our use of AC_COMPILE_IFELSE; +# this fallback is safe for all earlier autoconf versions. +m4_define_default([AC_LANG_DEFINES_PROVIDED]) diff --git a/gnulib-m4/lib-ld.m4 b/gnulib-m4/lib-ld.m4 new file mode 100644 index 0000000..a187196 --- /dev/null +++ b/gnulib-m4/lib-ld.m4 @@ -0,0 +1,168 @@ +# lib-ld.m4 serial 9 +dnl Copyright (C) 1996-2003, 2009-2019 Free Software Foundation, Inc. +dnl This file is free software; the Free Software Foundation +dnl gives unlimited permission to copy and/or distribute it, +dnl with or without modifications, as long as this notice is preserved. + +dnl Subroutines of libtool.m4, +dnl with replacements s/_*LT_PATH/AC_LIB_PROG/ and s/lt_/acl_/ to avoid +dnl collision with libtool.m4. + +dnl From libtool-2.4. Sets the variable with_gnu_ld to yes or no. +AC_DEFUN([AC_LIB_PROG_LD_GNU], +[AC_CACHE_CHECK([if the linker ($LD) is GNU ld], [acl_cv_prog_gnu_ld], +[# I'd rather use --version here, but apparently some GNU lds only accept -v. +case `$LD -v 2>&1 /dev/null 2>&1 \ + && { (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 \ + || PATH_SEPARATOR=';' + } +fi + +if test -n "$LD"; then + AC_MSG_CHECKING([for ld]) +elif test "$GCC" = yes; then + AC_MSG_CHECKING([for ld used by $CC]) +elif test "$with_gnu_ld" = yes; then + AC_MSG_CHECKING([for GNU ld]) +else + AC_MSG_CHECKING([for non-GNU ld]) +fi +if test -n "$LD"; then + # Let the user override the test with a path. + : +else + AC_CACHE_VAL([acl_cv_path_LD], + [ + acl_cv_path_LD= # Final result of this test + ac_prog=ld # Program to search in $PATH + if test "$GCC" = yes; then + # Check if gcc -print-prog-name=ld gives a path. + case $host in + *-*-mingw*) + # gcc leaves a trailing carriage return which upsets mingw + acl_output=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;; + *) + acl_output=`($CC -print-prog-name=ld) 2>&5` ;; + esac + case $acl_output in + # Accept absolute paths. + [[\\/]]* | ?:[[\\/]]*) + re_direlt='/[[^/]][[^/]]*/\.\./' + # Canonicalize the pathname of ld + acl_output=`echo "$acl_output" | sed 's%\\\\%/%g'` + while echo "$acl_output" | grep "$re_direlt" > /dev/null 2>&1; do + acl_output=`echo $acl_output | sed "s%$re_direlt%/%"` + done + # Got the pathname. No search in PATH is needed. + acl_cv_path_LD="$acl_output" + ac_prog= + ;; + "") + # If it fails, then pretend we aren't using GCC. + ;; + *) + # If it is relative, then search for the first ld in PATH. + with_gnu_ld=unknown + ;; + esac + fi + if test -n "$ac_prog"; then + # Search for $ac_prog in $PATH. + acl_save_ifs="$IFS"; IFS=$PATH_SEPARATOR + for ac_dir in $PATH; do + IFS="$acl_save_ifs" + test -z "$ac_dir" && ac_dir=. + if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then + acl_cv_path_LD="$ac_dir/$ac_prog" + # Check to see if the program is GNU ld. I'd rather use --version, + # but apparently some variants of GNU ld only accept -v. + # Break only if it was the GNU/non-GNU ld that we prefer. + case `"$acl_cv_path_LD" -v 2>&1 conftest.sh + . ./conftest.sh + rm -f ./conftest.sh + acl_cv_rpath=done + ]) + wl="$acl_cv_wl" + acl_libext="$acl_cv_libext" + acl_shlibext="$acl_cv_shlibext" + acl_libname_spec="$acl_cv_libname_spec" + acl_library_names_spec="$acl_cv_library_names_spec" + acl_hardcode_libdir_flag_spec="$acl_cv_hardcode_libdir_flag_spec" + acl_hardcode_libdir_separator="$acl_cv_hardcode_libdir_separator" + acl_hardcode_direct="$acl_cv_hardcode_direct" + acl_hardcode_minus_L="$acl_cv_hardcode_minus_L" + dnl Determine whether the user wants rpath handling at all. + AC_ARG_ENABLE([rpath], + [ --disable-rpath do not hardcode runtime library paths], + :, enable_rpath=yes) +]) + +dnl AC_LIB_FROMPACKAGE(name, package) +dnl declares that libname comes from the given package. The configure file +dnl will then not have a --with-libname-prefix option but a +dnl --with-package-prefix option. Several libraries can come from the same +dnl package. This declaration must occur before an AC_LIB_LINKFLAGS or similar +dnl macro call that searches for libname. +AC_DEFUN([AC_LIB_FROMPACKAGE], +[ + pushdef([NAME],[m4_translit([$1],[abcdefghijklmnopqrstuvwxyz./+-], + [ABCDEFGHIJKLMNOPQRSTUVWXYZ____])]) + define([acl_frompackage_]NAME, [$2]) + popdef([NAME]) + pushdef([PACK],[$2]) + pushdef([PACKUP],[m4_translit(PACK,[abcdefghijklmnopqrstuvwxyz./+-], + [ABCDEFGHIJKLMNOPQRSTUVWXYZ____])]) + define([acl_libsinpackage_]PACKUP, + m4_ifdef([acl_libsinpackage_]PACKUP, [m4_defn([acl_libsinpackage_]PACKUP)[, ]],)[lib$1]) + popdef([PACKUP]) + popdef([PACK]) +]) + +dnl AC_LIB_LINKFLAGS_BODY(name [, dependencies]) searches for libname and +dnl the libraries corresponding to explicit and implicit dependencies. +dnl Sets the LIB${NAME}, LTLIB${NAME} and INC${NAME} variables. +dnl Also, sets the LIB${NAME}_PREFIX variable to nonempty if libname was found +dnl in ${LIB${NAME}_PREFIX}/$acl_libdirstem. +AC_DEFUN([AC_LIB_LINKFLAGS_BODY], +[ + AC_REQUIRE([AC_LIB_PREPARE_MULTILIB]) + pushdef([NAME],[m4_translit([$1],[abcdefghijklmnopqrstuvwxyz./+-], + [ABCDEFGHIJKLMNOPQRSTUVWXYZ____])]) + pushdef([PACK],[m4_ifdef([acl_frompackage_]NAME, [acl_frompackage_]NAME, lib[$1])]) + pushdef([PACKUP],[m4_translit(PACK,[abcdefghijklmnopqrstuvwxyz./+-], + [ABCDEFGHIJKLMNOPQRSTUVWXYZ____])]) + pushdef([PACKLIBS],[m4_ifdef([acl_frompackage_]NAME, [acl_libsinpackage_]PACKUP, lib[$1])]) + dnl By default, look in $includedir and $libdir. + use_additional=yes + AC_LIB_WITH_FINAL_PREFIX([ + eval additional_includedir=\"$includedir\" + eval additional_libdir=\"$libdir\" + ]) + AC_ARG_WITH(PACK[-prefix], +[[ --with-]]PACK[[-prefix[=DIR] search for ]PACKLIBS[ in DIR/include and DIR/lib + --without-]]PACK[[-prefix don't search for ]PACKLIBS[ in includedir and libdir]], +[ + if test "X$withval" = "Xno"; then + use_additional=no + else + if test "X$withval" = "X"; then + AC_LIB_WITH_FINAL_PREFIX([ + eval additional_includedir=\"$includedir\" + eval additional_libdir=\"$libdir\" + ]) + else + additional_includedir="$withval/include" + additional_libdir="$withval/$acl_libdirstem" + if test "$acl_libdirstem2" != "$acl_libdirstem" \ + && test ! -d "$withval/$acl_libdirstem"; then + additional_libdir="$withval/$acl_libdirstem2" + fi + fi + fi +]) + dnl Search the library and its dependencies in $additional_libdir and + dnl $LDFLAGS. Using breadth-first-seach. + LIB[]NAME= + LTLIB[]NAME= + INC[]NAME= + LIB[]NAME[]_PREFIX= + dnl HAVE_LIB${NAME} is an indicator that LIB${NAME}, LTLIB${NAME} have been + dnl computed. So it has to be reset here. + HAVE_LIB[]NAME= + rpathdirs= + ltrpathdirs= + names_already_handled= + names_next_round='$1 $2' + while test -n "$names_next_round"; do + names_this_round="$names_next_round" + names_next_round= + for name in $names_this_round; do + already_handled= + for n in $names_already_handled; do + if test "$n" = "$name"; then + already_handled=yes + break + fi + done + if test -z "$already_handled"; then + names_already_handled="$names_already_handled $name" + dnl See if it was already located by an earlier AC_LIB_LINKFLAGS + dnl or AC_LIB_HAVE_LINKFLAGS call. + uppername=`echo "$name" | sed -e 'y|abcdefghijklmnopqrstuvwxyz./+-|ABCDEFGHIJKLMNOPQRSTUVWXYZ____|'` + eval value=\"\$HAVE_LIB$uppername\" + if test -n "$value"; then + if test "$value" = yes; then + eval value=\"\$LIB$uppername\" + test -z "$value" || LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }$value" + eval value=\"\$LTLIB$uppername\" + test -z "$value" || LTLIB[]NAME="${LTLIB[]NAME}${LTLIB[]NAME:+ }$value" + else + dnl An earlier call to AC_LIB_HAVE_LINKFLAGS has determined + dnl that this library doesn't exist. So just drop it. + : + fi + else + dnl Search the library lib$name in $additional_libdir and $LDFLAGS + dnl and the already constructed $LIBNAME/$LTLIBNAME. + found_dir= + found_la= + found_so= + found_a= + eval libname=\"$acl_libname_spec\" # typically: libname=lib$name + if test -n "$acl_shlibext"; then + shrext=".$acl_shlibext" # typically: shrext=.so + else + shrext= + fi + if test $use_additional = yes; then + dir="$additional_libdir" + dnl The same code as in the loop below: + dnl First look for a shared library. + if test -n "$acl_shlibext"; then + if test -f "$dir/$libname$shrext"; then + found_dir="$dir" + found_so="$dir/$libname$shrext" + else + if test "$acl_library_names_spec" = '$libname$shrext$versuffix'; then + ver=`(cd "$dir" && \ + for f in "$libname$shrext".*; do echo "$f"; done \ + | sed -e "s,^$libname$shrext\\\\.,," \ + | sort -t '.' -n -r -k1,1 -k2,2 -k3,3 -k4,4 -k5,5 \ + | sed 1q ) 2>/dev/null` + if test -n "$ver" && test -f "$dir/$libname$shrext.$ver"; then + found_dir="$dir" + found_so="$dir/$libname$shrext.$ver" + fi + else + eval library_names=\"$acl_library_names_spec\" + for f in $library_names; do + if test -f "$dir/$f"; then + found_dir="$dir" + found_so="$dir/$f" + break + fi + done + fi + fi + fi + dnl Then look for a static library. + if test "X$found_dir" = "X"; then + if test -f "$dir/$libname.$acl_libext"; then + found_dir="$dir" + found_a="$dir/$libname.$acl_libext" + fi + fi + if test "X$found_dir" != "X"; then + if test -f "$dir/$libname.la"; then + found_la="$dir/$libname.la" + fi + fi + fi + if test "X$found_dir" = "X"; then + for x in $LDFLAGS $LTLIB[]NAME; do + AC_LIB_WITH_FINAL_PREFIX([eval x=\"$x\"]) + case "$x" in + -L*) + dir=`echo "X$x" | sed -e 's/^X-L//'` + dnl First look for a shared library. + if test -n "$acl_shlibext"; then + if test -f "$dir/$libname$shrext"; then + found_dir="$dir" + found_so="$dir/$libname$shrext" + else + if test "$acl_library_names_spec" = '$libname$shrext$versuffix'; then + ver=`(cd "$dir" && \ + for f in "$libname$shrext".*; do echo "$f"; done \ + | sed -e "s,^$libname$shrext\\\\.,," \ + | sort -t '.' -n -r -k1,1 -k2,2 -k3,3 -k4,4 -k5,5 \ + | sed 1q ) 2>/dev/null` + if test -n "$ver" && test -f "$dir/$libname$shrext.$ver"; then + found_dir="$dir" + found_so="$dir/$libname$shrext.$ver" + fi + else + eval library_names=\"$acl_library_names_spec\" + for f in $library_names; do + if test -f "$dir/$f"; then + found_dir="$dir" + found_so="$dir/$f" + break + fi + done + fi + fi + fi + dnl Then look for a static library. + if test "X$found_dir" = "X"; then + if test -f "$dir/$libname.$acl_libext"; then + found_dir="$dir" + found_a="$dir/$libname.$acl_libext" + fi + fi + if test "X$found_dir" != "X"; then + if test -f "$dir/$libname.la"; then + found_la="$dir/$libname.la" + fi + fi + ;; + esac + if test "X$found_dir" != "X"; then + break + fi + done + fi + if test "X$found_dir" != "X"; then + dnl Found the library. + LTLIB[]NAME="${LTLIB[]NAME}${LTLIB[]NAME:+ }-L$found_dir -l$name" + if test "X$found_so" != "X"; then + dnl Linking with a shared library. We attempt to hardcode its + dnl directory into the executable's runpath, unless it's the + dnl standard /usr/lib. + if test "$enable_rpath" = no \ + || test "X$found_dir" = "X/usr/$acl_libdirstem" \ + || test "X$found_dir" = "X/usr/$acl_libdirstem2"; then + dnl No hardcoding is needed. + LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }$found_so" + else + dnl Use an explicit option to hardcode DIR into the resulting + dnl binary. + dnl Potentially add DIR to ltrpathdirs. + dnl The ltrpathdirs will be appended to $LTLIBNAME at the end. + haveit= + for x in $ltrpathdirs; do + if test "X$x" = "X$found_dir"; then + haveit=yes + break + fi + done + if test -z "$haveit"; then + ltrpathdirs="$ltrpathdirs $found_dir" + fi + dnl The hardcoding into $LIBNAME is system dependent. + if test "$acl_hardcode_direct" = yes; then + dnl Using DIR/libNAME.so during linking hardcodes DIR into the + dnl resulting binary. + LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }$found_so" + else + if test -n "$acl_hardcode_libdir_flag_spec" && test "$acl_hardcode_minus_L" = no; then + dnl Use an explicit option to hardcode DIR into the resulting + dnl binary. + LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }$found_so" + dnl Potentially add DIR to rpathdirs. + dnl The rpathdirs will be appended to $LIBNAME at the end. + haveit= + for x in $rpathdirs; do + if test "X$x" = "X$found_dir"; then + haveit=yes + break + fi + done + if test -z "$haveit"; then + rpathdirs="$rpathdirs $found_dir" + fi + else + dnl Rely on "-L$found_dir". + dnl But don't add it if it's already contained in the LDFLAGS + dnl or the already constructed $LIBNAME + haveit= + for x in $LDFLAGS $LIB[]NAME; do + AC_LIB_WITH_FINAL_PREFIX([eval x=\"$x\"]) + if test "X$x" = "X-L$found_dir"; then + haveit=yes + break + fi + done + if test -z "$haveit"; then + LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }-L$found_dir" + fi + if test "$acl_hardcode_minus_L" != no; then + dnl FIXME: Not sure whether we should use + dnl "-L$found_dir -l$name" or "-L$found_dir $found_so" + dnl here. + LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }$found_so" + else + dnl We cannot use $acl_hardcode_runpath_var and LD_RUN_PATH + dnl here, because this doesn't fit in flags passed to the + dnl compiler. So give up. No hardcoding. This affects only + dnl very old systems. + dnl FIXME: Not sure whether we should use + dnl "-L$found_dir -l$name" or "-L$found_dir $found_so" + dnl here. + LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }-l$name" + fi + fi + fi + fi + else + if test "X$found_a" != "X"; then + dnl Linking with a static library. + LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }$found_a" + else + dnl We shouldn't come here, but anyway it's good to have a + dnl fallback. + LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }-L$found_dir -l$name" + fi + fi + dnl Assume the include files are nearby. + additional_includedir= + case "$found_dir" in + */$acl_libdirstem | */$acl_libdirstem/) + basedir=`echo "X$found_dir" | sed -e 's,^X,,' -e "s,/$acl_libdirstem/"'*$,,'` + if test "$name" = '$1'; then + LIB[]NAME[]_PREFIX="$basedir" + fi + additional_includedir="$basedir/include" + ;; + */$acl_libdirstem2 | */$acl_libdirstem2/) + basedir=`echo "X$found_dir" | sed -e 's,^X,,' -e "s,/$acl_libdirstem2/"'*$,,'` + if test "$name" = '$1'; then + LIB[]NAME[]_PREFIX="$basedir" + fi + additional_includedir="$basedir/include" + ;; + esac + if test "X$additional_includedir" != "X"; then + dnl Potentially add $additional_includedir to $INCNAME. + dnl But don't add it + dnl 1. if it's the standard /usr/include, + dnl 2. if it's /usr/local/include and we are using GCC on Linux, + dnl 3. if it's already present in $CPPFLAGS or the already + dnl constructed $INCNAME, + dnl 4. if it doesn't exist as a directory. + if test "X$additional_includedir" != "X/usr/include"; then + haveit= + if test "X$additional_includedir" = "X/usr/local/include"; then + if test -n "$GCC"; then + case $host_os in + linux* | gnu* | k*bsd*-gnu) haveit=yes;; + esac + fi + fi + if test -z "$haveit"; then + for x in $CPPFLAGS $INC[]NAME; do + AC_LIB_WITH_FINAL_PREFIX([eval x=\"$x\"]) + if test "X$x" = "X-I$additional_includedir"; then + haveit=yes + break + fi + done + if test -z "$haveit"; then + if test -d "$additional_includedir"; then + dnl Really add $additional_includedir to $INCNAME. + INC[]NAME="${INC[]NAME}${INC[]NAME:+ }-I$additional_includedir" + fi + fi + fi + fi + fi + dnl Look for dependencies. + if test -n "$found_la"; then + dnl Read the .la file. It defines the variables + dnl dlname, library_names, old_library, dependency_libs, current, + dnl age, revision, installed, dlopen, dlpreopen, libdir. + save_libdir="$libdir" + case "$found_la" in + */* | *\\*) . "$found_la" ;; + *) . "./$found_la" ;; + esac + libdir="$save_libdir" + dnl We use only dependency_libs. + for dep in $dependency_libs; do + case "$dep" in + -L*) + additional_libdir=`echo "X$dep" | sed -e 's/^X-L//'` + dnl Potentially add $additional_libdir to $LIBNAME and $LTLIBNAME. + dnl But don't add it + dnl 1. if it's the standard /usr/lib, + dnl 2. if it's /usr/local/lib and we are using GCC on Linux, + dnl 3. if it's already present in $LDFLAGS or the already + dnl constructed $LIBNAME, + dnl 4. if it doesn't exist as a directory. + if test "X$additional_libdir" != "X/usr/$acl_libdirstem" \ + && test "X$additional_libdir" != "X/usr/$acl_libdirstem2"; then + haveit= + if test "X$additional_libdir" = "X/usr/local/$acl_libdirstem" \ + || test "X$additional_libdir" = "X/usr/local/$acl_libdirstem2"; then + if test -n "$GCC"; then + case $host_os in + linux* | gnu* | k*bsd*-gnu) haveit=yes;; + esac + fi + fi + if test -z "$haveit"; then + haveit= + for x in $LDFLAGS $LIB[]NAME; do + AC_LIB_WITH_FINAL_PREFIX([eval x=\"$x\"]) + if test "X$x" = "X-L$additional_libdir"; then + haveit=yes + break + fi + done + if test -z "$haveit"; then + if test -d "$additional_libdir"; then + dnl Really add $additional_libdir to $LIBNAME. + LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }-L$additional_libdir" + fi + fi + haveit= + for x in $LDFLAGS $LTLIB[]NAME; do + AC_LIB_WITH_FINAL_PREFIX([eval x=\"$x\"]) + if test "X$x" = "X-L$additional_libdir"; then + haveit=yes + break + fi + done + if test -z "$haveit"; then + if test -d "$additional_libdir"; then + dnl Really add $additional_libdir to $LTLIBNAME. + LTLIB[]NAME="${LTLIB[]NAME}${LTLIB[]NAME:+ }-L$additional_libdir" + fi + fi + fi + fi + ;; + -R*) + dir=`echo "X$dep" | sed -e 's/^X-R//'` + if test "$enable_rpath" != no; then + dnl Potentially add DIR to rpathdirs. + dnl The rpathdirs will be appended to $LIBNAME at the end. + haveit= + for x in $rpathdirs; do + if test "X$x" = "X$dir"; then + haveit=yes + break + fi + done + if test -z "$haveit"; then + rpathdirs="$rpathdirs $dir" + fi + dnl Potentially add DIR to ltrpathdirs. + dnl The ltrpathdirs will be appended to $LTLIBNAME at the end. + haveit= + for x in $ltrpathdirs; do + if test "X$x" = "X$dir"; then + haveit=yes + break + fi + done + if test -z "$haveit"; then + ltrpathdirs="$ltrpathdirs $dir" + fi + fi + ;; + -l*) + dnl Handle this in the next round. + names_next_round="$names_next_round "`echo "X$dep" | sed -e 's/^X-l//'` + ;; + *.la) + dnl Handle this in the next round. Throw away the .la's + dnl directory; it is already contained in a preceding -L + dnl option. + names_next_round="$names_next_round "`echo "X$dep" | sed -e 's,^X.*/,,' -e 's,^lib,,' -e 's,\.la$,,'` + ;; + *) + dnl Most likely an immediate library name. + LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }$dep" + LTLIB[]NAME="${LTLIB[]NAME}${LTLIB[]NAME:+ }$dep" + ;; + esac + done + fi + else + dnl Didn't find the library; assume it is in the system directories + dnl known to the linker and runtime loader. (All the system + dnl directories known to the linker should also be known to the + dnl runtime loader, otherwise the system is severely misconfigured.) + LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }-l$name" + LTLIB[]NAME="${LTLIB[]NAME}${LTLIB[]NAME:+ }-l$name" + fi + fi + fi + done + done + if test "X$rpathdirs" != "X"; then + if test -n "$acl_hardcode_libdir_separator"; then + dnl Weird platform: only the last -rpath option counts, the user must + dnl pass all path elements in one option. We can arrange that for a + dnl single library, but not when more than one $LIBNAMEs are used. + alldirs= + for found_dir in $rpathdirs; do + alldirs="${alldirs}${alldirs:+$acl_hardcode_libdir_separator}$found_dir" + done + dnl Note: acl_hardcode_libdir_flag_spec uses $libdir and $wl. + acl_save_libdir="$libdir" + libdir="$alldirs" + eval flag=\"$acl_hardcode_libdir_flag_spec\" + libdir="$acl_save_libdir" + LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }$flag" + else + dnl The -rpath options are cumulative. + for found_dir in $rpathdirs; do + acl_save_libdir="$libdir" + libdir="$found_dir" + eval flag=\"$acl_hardcode_libdir_flag_spec\" + libdir="$acl_save_libdir" + LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }$flag" + done + fi + fi + if test "X$ltrpathdirs" != "X"; then + dnl When using libtool, the option that works for both libraries and + dnl executables is -R. The -R options are cumulative. + for found_dir in $ltrpathdirs; do + LTLIB[]NAME="${LTLIB[]NAME}${LTLIB[]NAME:+ }-R$found_dir" + done + fi + popdef([PACKLIBS]) + popdef([PACKUP]) + popdef([PACK]) + popdef([NAME]) +]) + +dnl AC_LIB_APPENDTOVAR(VAR, CONTENTS) appends the elements of CONTENTS to VAR, +dnl unless already present in VAR. +dnl Works only for CPPFLAGS, not for LIB* variables because that sometimes +dnl contains two or three consecutive elements that belong together. +AC_DEFUN([AC_LIB_APPENDTOVAR], +[ + for element in [$2]; do + haveit= + for x in $[$1]; do + AC_LIB_WITH_FINAL_PREFIX([eval x=\"$x\"]) + if test "X$x" = "X$element"; then + haveit=yes + break + fi + done + if test -z "$haveit"; then + [$1]="${[$1]}${[$1]:+ }$element" + fi + done +]) + +dnl For those cases where a variable contains several -L and -l options +dnl referring to unknown libraries and directories, this macro determines the +dnl necessary additional linker options for the runtime path. +dnl AC_LIB_LINKFLAGS_FROM_LIBS([LDADDVAR], [LIBSVALUE], [USE-LIBTOOL]) +dnl sets LDADDVAR to linker options needed together with LIBSVALUE. +dnl If USE-LIBTOOL evaluates to non-empty, linking with libtool is assumed, +dnl otherwise linking without libtool is assumed. +AC_DEFUN([AC_LIB_LINKFLAGS_FROM_LIBS], +[ + AC_REQUIRE([AC_LIB_RPATH]) + AC_REQUIRE([AC_LIB_PREPARE_MULTILIB]) + $1= + if test "$enable_rpath" != no; then + if test -n "$acl_hardcode_libdir_flag_spec" && test "$acl_hardcode_minus_L" = no; then + dnl Use an explicit option to hardcode directories into the resulting + dnl binary. + rpathdirs= + next= + for opt in $2; do + if test -n "$next"; then + dir="$next" + dnl No need to hardcode the standard /usr/lib. + if test "X$dir" != "X/usr/$acl_libdirstem" \ + && test "X$dir" != "X/usr/$acl_libdirstem2"; then + rpathdirs="$rpathdirs $dir" + fi + next= + else + case $opt in + -L) next=yes ;; + -L*) dir=`echo "X$opt" | sed -e 's,^X-L,,'` + dnl No need to hardcode the standard /usr/lib. + if test "X$dir" != "X/usr/$acl_libdirstem" \ + && test "X$dir" != "X/usr/$acl_libdirstem2"; then + rpathdirs="$rpathdirs $dir" + fi + next= ;; + *) next= ;; + esac + fi + done + if test "X$rpathdirs" != "X"; then + if test -n ""$3""; then + dnl libtool is used for linking. Use -R options. + for dir in $rpathdirs; do + $1="${$1}${$1:+ }-R$dir" + done + else + dnl The linker is used for linking directly. + if test -n "$acl_hardcode_libdir_separator"; then + dnl Weird platform: only the last -rpath option counts, the user + dnl must pass all path elements in one option. + alldirs= + for dir in $rpathdirs; do + alldirs="${alldirs}${alldirs:+$acl_hardcode_libdir_separator}$dir" + done + acl_save_libdir="$libdir" + libdir="$alldirs" + eval flag=\"$acl_hardcode_libdir_flag_spec\" + libdir="$acl_save_libdir" + $1="$flag" + else + dnl The -rpath options are cumulative. + for dir in $rpathdirs; do + acl_save_libdir="$libdir" + libdir="$dir" + eval flag=\"$acl_hardcode_libdir_flag_spec\" + libdir="$acl_save_libdir" + $1="${$1}${$1:+ }$flag" + done + fi + fi + fi + fi + fi + AC_SUBST([$1]) +]) diff --git a/gnulib-m4/lib-prefix.m4 b/gnulib-m4/lib-prefix.m4 new file mode 100644 index 0000000..8adb17b --- /dev/null +++ b/gnulib-m4/lib-prefix.m4 @@ -0,0 +1,249 @@ +# lib-prefix.m4 serial 14 +dnl Copyright (C) 2001-2005, 2008-2019 Free Software Foundation, Inc. +dnl This file is free software; the Free Software Foundation +dnl gives unlimited permission to copy and/or distribute it, +dnl with or without modifications, as long as this notice is preserved. + +dnl From Bruno Haible. + +dnl AC_LIB_PREFIX adds to the CPPFLAGS and LDFLAGS the flags that are needed +dnl to access previously installed libraries. The basic assumption is that +dnl a user will want packages to use other packages he previously installed +dnl with the same --prefix option. +dnl This macro is not needed if only AC_LIB_LINKFLAGS is used to locate +dnl libraries, but is otherwise very convenient. +AC_DEFUN([AC_LIB_PREFIX], +[ + AC_BEFORE([$0], [AC_LIB_LINKFLAGS]) + AC_REQUIRE([AC_PROG_CC]) + AC_REQUIRE([AC_CANONICAL_HOST]) + AC_REQUIRE([AC_LIB_PREPARE_MULTILIB]) + AC_REQUIRE([AC_LIB_PREPARE_PREFIX]) + dnl By default, look in $includedir and $libdir. + use_additional=yes + AC_LIB_WITH_FINAL_PREFIX([ + eval additional_includedir=\"$includedir\" + eval additional_libdir=\"$libdir\" + ]) + AC_ARG_WITH([lib-prefix], +[[ --with-lib-prefix[=DIR] search for libraries in DIR/include and DIR/lib + --without-lib-prefix don't search for libraries in includedir and libdir]], +[ + if test "X$withval" = "Xno"; then + use_additional=no + else + if test "X$withval" = "X"; then + AC_LIB_WITH_FINAL_PREFIX([ + eval additional_includedir=\"$includedir\" + eval additional_libdir=\"$libdir\" + ]) + else + additional_includedir="$withval/include" + additional_libdir="$withval/$acl_libdirstem" + fi + fi +]) + if test $use_additional = yes; then + dnl Potentially add $additional_includedir to $CPPFLAGS. + dnl But don't add it + dnl 1. if it's the standard /usr/include, + dnl 2. if it's already present in $CPPFLAGS, + dnl 3. if it's /usr/local/include and we are using GCC on Linux, + dnl 4. if it doesn't exist as a directory. + if test "X$additional_includedir" != "X/usr/include"; then + haveit= + for x in $CPPFLAGS; do + AC_LIB_WITH_FINAL_PREFIX([eval x=\"$x\"]) + if test "X$x" = "X-I$additional_includedir"; then + haveit=yes + break + fi + done + if test -z "$haveit"; then + if test "X$additional_includedir" = "X/usr/local/include"; then + if test -n "$GCC"; then + case $host_os in + linux* | gnu* | k*bsd*-gnu) haveit=yes;; + esac + fi + fi + if test -z "$haveit"; then + if test -d "$additional_includedir"; then + dnl Really add $additional_includedir to $CPPFLAGS. + CPPFLAGS="${CPPFLAGS}${CPPFLAGS:+ }-I$additional_includedir" + fi + fi + fi + fi + dnl Potentially add $additional_libdir to $LDFLAGS. + dnl But don't add it + dnl 1. if it's the standard /usr/lib, + dnl 2. if it's already present in $LDFLAGS, + dnl 3. if it's /usr/local/lib and we are using GCC on Linux, + dnl 4. if it doesn't exist as a directory. + if test "X$additional_libdir" != "X/usr/$acl_libdirstem"; then + haveit= + for x in $LDFLAGS; do + AC_LIB_WITH_FINAL_PREFIX([eval x=\"$x\"]) + if test "X$x" = "X-L$additional_libdir"; then + haveit=yes + break + fi + done + if test -z "$haveit"; then + if test "X$additional_libdir" = "X/usr/local/$acl_libdirstem"; then + if test -n "$GCC"; then + case $host_os in + linux*) haveit=yes;; + esac + fi + fi + if test -z "$haveit"; then + if test -d "$additional_libdir"; then + dnl Really add $additional_libdir to $LDFLAGS. + LDFLAGS="${LDFLAGS}${LDFLAGS:+ }-L$additional_libdir" + fi + fi + fi + fi + fi +]) + +dnl AC_LIB_PREPARE_PREFIX creates variables acl_final_prefix, +dnl acl_final_exec_prefix, containing the values to which $prefix and +dnl $exec_prefix will expand at the end of the configure script. +AC_DEFUN([AC_LIB_PREPARE_PREFIX], +[ + dnl Unfortunately, prefix and exec_prefix get only finally determined + dnl at the end of configure. + if test "X$prefix" = "XNONE"; then + acl_final_prefix="$ac_default_prefix" + else + acl_final_prefix="$prefix" + fi + if test "X$exec_prefix" = "XNONE"; then + acl_final_exec_prefix='${prefix}' + else + acl_final_exec_prefix="$exec_prefix" + fi + acl_save_prefix="$prefix" + prefix="$acl_final_prefix" + eval acl_final_exec_prefix=\"$acl_final_exec_prefix\" + prefix="$acl_save_prefix" +]) + +dnl AC_LIB_WITH_FINAL_PREFIX([statement]) evaluates statement, with the +dnl variables prefix and exec_prefix bound to the values they will have +dnl at the end of the configure script. +AC_DEFUN([AC_LIB_WITH_FINAL_PREFIX], +[ + acl_save_prefix="$prefix" + prefix="$acl_final_prefix" + acl_save_exec_prefix="$exec_prefix" + exec_prefix="$acl_final_exec_prefix" + $1 + exec_prefix="$acl_save_exec_prefix" + prefix="$acl_save_prefix" +]) + +dnl AC_LIB_PREPARE_MULTILIB creates +dnl - a variable acl_libdirstem, containing the basename of the libdir, either +dnl "lib" or "lib64" or "lib/64", +dnl - a variable acl_libdirstem2, as a secondary possible value for +dnl acl_libdirstem, either the same as acl_libdirstem or "lib/sparcv9" or +dnl "lib/amd64". +AC_DEFUN([AC_LIB_PREPARE_MULTILIB], +[ + dnl There is no formal standard regarding lib and lib64. + dnl On glibc systems, the current practice is that on a system supporting + dnl 32-bit and 64-bit instruction sets or ABIs, 64-bit libraries go under + dnl $prefix/lib64 and 32-bit libraries go under $prefix/lib. We determine + dnl the compiler's default mode by looking at the compiler's library search + dnl path. If at least one of its elements ends in /lib64 or points to a + dnl directory whose absolute pathname ends in /lib64, we assume a 64-bit ABI. + dnl Otherwise we use the default, namely "lib". + dnl On Solaris systems, the current practice is that on a system supporting + dnl 32-bit and 64-bit instruction sets or ABIs, 64-bit libraries go under + dnl $prefix/lib/64 (which is a symlink to either $prefix/lib/sparcv9 or + dnl $prefix/lib/amd64) and 32-bit libraries go under $prefix/lib. + AC_REQUIRE([AC_CANONICAL_HOST]) + AC_REQUIRE([gl_HOST_CPU_C_ABI_32BIT]) + + case "$host_os" in + solaris*) + AC_CACHE_CHECK([for 64-bit host], [gl_cv_solaris_64bit], + [AC_COMPILE_IFELSE( + [AC_LANG_SOURCE( + [[#ifdef _LP64 + int ok; + #else + error fail + #endif + ]])], + [gl_cv_solaris_64bit=yes], + [gl_cv_solaris_64bit=no]) + ]);; + esac + + dnl Allow the user to override the result by setting acl_cv_libdirstems. + AC_CACHE_CHECK([for the common suffixes of directories in the library search path], + [acl_cv_libdirstems], + [acl_libdirstem=lib + acl_libdirstem2= + case "$host_os" in + solaris*) + dnl See Solaris 10 Software Developer Collection > Solaris 64-bit Developer's Guide > The Development Environment + dnl . + dnl "Portable Makefiles should refer to any library directories using the 64 symbolic link." + dnl But we want to recognize the sparcv9 or amd64 subdirectory also if the + dnl symlink is missing, so we set acl_libdirstem2 too. + if test $gl_cv_solaris_64bit = yes; then + acl_libdirstem=lib/64 + case "$host_cpu" in + sparc*) acl_libdirstem2=lib/sparcv9 ;; + i*86 | x86_64) acl_libdirstem2=lib/amd64 ;; + esac + fi + ;; + *) + dnl If $CC generates code for a 32-bit ABI, the libraries are + dnl surely under $prefix/lib, not $prefix/lib64. + if test "$HOST_CPU_C_ABI_32BIT" != yes; then + dnl The result is a property of the system. However, non-system + dnl compilers sometimes have odd library search paths. Therefore + dnl prefer asking /usr/bin/gcc, if available, rather than $CC. + searchpath=`(if test -f /usr/bin/gcc \ + && LC_ALL=C /usr/bin/gcc -print-search-dirs >/dev/null 2>/dev/null; then \ + LC_ALL=C /usr/bin/gcc -print-search-dirs; \ + else \ + LC_ALL=C $CC -print-search-dirs; \ + fi) 2>/dev/null \ + | sed -n -e 's,^libraries: ,,p' | sed -e 's,^=,,'` + if test -n "$searchpath"; then + acl_save_IFS="${IFS= }"; IFS=":" + for searchdir in $searchpath; do + if test -d "$searchdir"; then + case "$searchdir" in + */lib64/ | */lib64 ) acl_libdirstem=lib64 ;; + */../ | */.. ) + # Better ignore directories of this form. They are misleading. + ;; + *) searchdir=`cd "$searchdir" && pwd` + case "$searchdir" in + */lib64 ) acl_libdirstem=lib64 ;; + esac ;; + esac + fi + done + IFS="$acl_save_IFS" + fi + fi + ;; + esac + test -n "$acl_libdirstem2" || acl_libdirstem2="$acl_libdirstem" + acl_cv_libdirstems="$acl_libdirstem,$acl_libdirstem2" + ]) + # Decompose acl_cv_libdirstems into acl_libdirstem and acl_libdirstem2. + acl_libdirstem=`echo "$acl_cv_libdirstems" | sed -e 's/,.*//'` + acl_libdirstem2=`echo "$acl_cv_libdirstems" | sed -e '/,/s/.*,//'` +]) diff --git a/gnulib-m4/limits-h.m4 b/gnulib-m4/limits-h.m4 new file mode 100644 index 0000000..68f724c --- /dev/null +++ b/gnulib-m4/limits-h.m4 @@ -0,0 +1,43 @@ +dnl Check whether limits.h has needed features. + +dnl Copyright 2016-2019 Free Software Foundation, Inc. +dnl This file is free software; the Free Software Foundation +dnl gives unlimited permission to copy and/or distribute it, +dnl with or without modifications, as long as this notice is preserved. + +dnl From Paul Eggert. + +AC_DEFUN_ONCE([gl_LIMITS_H], +[ + gl_CHECK_NEXT_HEADERS([limits.h]) + + AC_CACHE_CHECK([whether limits.h has LLONG_MAX, WORD_BIT, ULLONG_WIDTH etc.], + [gl_cv_header_limits_width], + [AC_COMPILE_IFELSE( + [AC_LANG_PROGRAM( + [[#ifndef __STDC_WANT_IEC_60559_BFP_EXT__ + #define __STDC_WANT_IEC_60559_BFP_EXT__ 1 + #endif + #include + long long llm = LLONG_MAX; + int wb = WORD_BIT; + int ullw = ULLONG_WIDTH; + ]])], + [gl_cv_header_limits_width=yes], + [gl_cv_header_limits_width=no])]) + if test "$gl_cv_header_limits_width" = yes; then + LIMITS_H= + else + LIMITS_H=limits.h + fi + AC_SUBST([LIMITS_H]) + AM_CONDITIONAL([GL_GENERATE_LIMITS_H], [test -n "$LIMITS_H"]) +]) + +dnl Unconditionally enables the replacement of . +AC_DEFUN([gl_REPLACE_LIMITS_H], +[ + AC_REQUIRE([gl_LIMITS_H]) + LIMITS_H='limits.h' + AM_CONDITIONAL([GL_GENERATE_LIMITS_H], [test -n "$LIMITS_H"]) +]) diff --git a/gnulib-m4/lock.m4 b/gnulib-m4/lock.m4 new file mode 100644 index 0000000..93b76fa --- /dev/null +++ b/gnulib-m4/lock.m4 @@ -0,0 +1,47 @@ +# lock.m4 serial 14 +dnl Copyright (C) 2005-2019 Free Software Foundation, Inc. +dnl This file is free software; the Free Software Foundation +dnl gives unlimited permission to copy and/or distribute it, +dnl with or without modifications, as long as this notice is preserved. + +dnl From Bruno Haible. + +AC_DEFUN([gl_LOCK], +[ + AC_REQUIRE([gl_THREADLIB]) + if test "$gl_threads_api" = posix; then + # OSF/1 4.0 and Mac OS X 10.1 lack the pthread_rwlock_t type and the + # pthread_rwlock_* functions. + has_rwlock=false + AC_CHECK_TYPE([pthread_rwlock_t], + [has_rwlock=true + AC_DEFINE([HAVE_PTHREAD_RWLOCK], [1], + [Define if the POSIX multithreading library has read/write locks.])], + [], + [#include ]) + if $has_rwlock; then + gl_PTHREAD_RWLOCK_RDLOCK_PREFER_WRITER + fi + # glibc defines PTHREAD_MUTEX_RECURSIVE as enum, not as a macro. + AC_COMPILE_IFELSE([ + AC_LANG_PROGRAM( + [[#include ]], + [[ +#if __FreeBSD__ == 4 +error "No, in FreeBSD 4.0 recursive mutexes actually don't work." +#elif (defined __ENVIRONMENT_MAC_OS_X_VERSION_MIN_REQUIRED__ \ + && __ENVIRONMENT_MAC_OS_X_VERSION_MIN_REQUIRED__ < 1070) +error "No, in Mac OS X < 10.7 recursive mutexes actually don't work." +#else +int x = (int)PTHREAD_MUTEX_RECURSIVE; +return !x; +#endif + ]])], + [AC_DEFINE([HAVE_PTHREAD_MUTEX_RECURSIVE], [1], + [Define if the defines PTHREAD_MUTEX_RECURSIVE.])]) + fi + gl_PREREQ_LOCK +]) + +# Prerequisites of lib/glthread/lock.c. +AC_DEFUN([gl_PREREQ_LOCK], [:]) diff --git a/gnulib-m4/longlong.m4 b/gnulib-m4/longlong.m4 new file mode 100644 index 0000000..08d0e36 --- /dev/null +++ b/gnulib-m4/longlong.m4 @@ -0,0 +1,113 @@ +# longlong.m4 serial 18 +dnl Copyright (C) 1999-2007, 2009-2019 Free Software Foundation, Inc. +dnl This file is free software; the Free Software Foundation +dnl gives unlimited permission to copy and/or distribute it, +dnl with or without modifications, as long as this notice is preserved. + +dnl From Paul Eggert. + +AC_PREREQ([2.62]) + +# Define HAVE_LONG_LONG_INT if 'long long int' works. +# This can be faster than what's in Autoconf 2.62 through 2.68. + +# Note: If the type 'long long int' exists but is only 32 bits large +# (as on some very old compilers), HAVE_LONG_LONG_INT will not be +# defined. In this case you can treat 'long long int' like 'long int'. + +AC_DEFUN([AC_TYPE_LONG_LONG_INT], +[ + AC_REQUIRE([AC_TYPE_UNSIGNED_LONG_LONG_INT]) + AC_CACHE_CHECK([for long long int], [ac_cv_type_long_long_int], + [ac_cv_type_long_long_int=yes + if test "x${ac_cv_prog_cc_c99-no}" = xno; then + ac_cv_type_long_long_int=$ac_cv_type_unsigned_long_long_int + if test $ac_cv_type_long_long_int = yes; then + dnl Catch a bug in Tandem NonStop Kernel (OSS) cc -O circa 2004. + dnl If cross compiling, assume the bug is not important, since + dnl nobody cross compiles for this platform as far as we know. + AC_RUN_IFELSE( + [AC_LANG_PROGRAM( + [[@%:@include + @%:@ifndef LLONG_MAX + @%:@ define HALF \ + (1LL << (sizeof (long long int) * CHAR_BIT - 2)) + @%:@ define LLONG_MAX (HALF - 1 + HALF) + @%:@endif]], + [[long long int n = 1; + int i; + for (i = 0; ; i++) + { + long long int m = n << i; + if (m >> i != n) + return 1; + if (LLONG_MAX / 2 < m) + break; + } + return 0;]])], + [], + [ac_cv_type_long_long_int=no], + [:]) + fi + fi]) + if test $ac_cv_type_long_long_int = yes; then + AC_DEFINE([HAVE_LONG_LONG_INT], [1], + [Define to 1 if the system has the type 'long long int'.]) + fi +]) + +# Define HAVE_UNSIGNED_LONG_LONG_INT if 'unsigned long long int' works. +# This can be faster than what's in Autoconf 2.62 through 2.68. + +# Note: If the type 'unsigned long long int' exists but is only 32 bits +# large (as on some very old compilers), AC_TYPE_UNSIGNED_LONG_LONG_INT +# will not be defined. In this case you can treat 'unsigned long long int' +# like 'unsigned long int'. + +AC_DEFUN([AC_TYPE_UNSIGNED_LONG_LONG_INT], +[ + AC_CACHE_CHECK([for unsigned long long int], + [ac_cv_type_unsigned_long_long_int], + [ac_cv_type_unsigned_long_long_int=yes + if test "x${ac_cv_prog_cc_c99-no}" = xno; then + AC_LINK_IFELSE( + [_AC_TYPE_LONG_LONG_SNIPPET], + [], + [ac_cv_type_unsigned_long_long_int=no]) + fi]) + if test $ac_cv_type_unsigned_long_long_int = yes; then + AC_DEFINE([HAVE_UNSIGNED_LONG_LONG_INT], [1], + [Define to 1 if the system has the type 'unsigned long long int'.]) + fi +]) + +# Expands to a C program that can be used to test for simultaneous support +# of 'long long' and 'unsigned long long'. We don't want to say that +# 'long long' is available if 'unsigned long long' is not, or vice versa, +# because too many programs rely on the symmetry between signed and unsigned +# integer types (excluding 'bool'). +AC_DEFUN([_AC_TYPE_LONG_LONG_SNIPPET], +[ + AC_LANG_PROGRAM( + [[/* For now, do not test the preprocessor; as of 2007 there are too many + implementations with broken preprocessors. Perhaps this can + be revisited in 2012. In the meantime, code should not expect + #if to work with literals wider than 32 bits. */ + /* Test literals. */ + long long int ll = 9223372036854775807ll; + long long int nll = -9223372036854775807LL; + unsigned long long int ull = 18446744073709551615ULL; + /* Test constant expressions. */ + typedef int a[((-9223372036854775807LL < 0 && 0 < 9223372036854775807ll) + ? 1 : -1)]; + typedef int b[(18446744073709551615ULL <= (unsigned long long int) -1 + ? 1 : -1)]; + int i = 63;]], + [[/* Test availability of runtime routines for shift and division. */ + long long int llmax = 9223372036854775807ll; + unsigned long long int ullmax = 18446744073709551615ull; + return ((ll << 63) | (ll >> 63) | (ll < i) | (ll > i) + | (llmax / ll) | (llmax % ll) + | (ull << 63) | (ull >> 63) | (ull << i) | (ull >> i) + | (ullmax / ull) | (ullmax % ull));]]) +]) diff --git a/gnulib-m4/multiarch.m4 b/gnulib-m4/multiarch.m4 new file mode 100644 index 0000000..d48316e --- /dev/null +++ b/gnulib-m4/multiarch.m4 @@ -0,0 +1,62 @@ +# multiarch.m4 serial 7 +dnl Copyright (C) 2008-2019 Free Software Foundation, Inc. +dnl This file is free software; the Free Software Foundation +dnl gives unlimited permission to copy and/or distribute it, +dnl with or without modifications, as long as this notice is preserved. + +# Determine whether the compiler is or may be producing universal binaries. +# +# On Mac OS X 10.5 and later systems, the user can create libraries and +# executables that work on multiple system types--known as "fat" or +# "universal" binaries--by specifying multiple '-arch' options to the +# compiler but only a single '-arch' option to the preprocessor. Like +# this: +# +# ./configure CC="gcc -arch i386 -arch x86_64 -arch ppc -arch ppc64" \ +# CXX="g++ -arch i386 -arch x86_64 -arch ppc -arch ppc64" \ +# CPP="gcc -E" CXXCPP="g++ -E" +# +# Detect this situation and set APPLE_UNIVERSAL_BUILD accordingly. + +AC_DEFUN_ONCE([gl_MULTIARCH], +[ + dnl Code similar to autoconf-2.63 AC_C_BIGENDIAN. + gl_cv_c_multiarch=no + AC_COMPILE_IFELSE( + [AC_LANG_SOURCE( + [[#ifndef __APPLE_CC__ + not a universal capable compiler + #endif + typedef int dummy; + ]])], + [ + dnl Check for potential -arch flags. It is not universal unless + dnl there are at least two -arch flags with different values. + arch= + prev= + for word in ${CC} ${CFLAGS} ${CPPFLAGS} ${LDFLAGS}; do + if test -n "$prev"; then + case $word in + i?86 | x86_64 | ppc | ppc64) + if test -z "$arch" || test "$arch" = "$word"; then + arch="$word" + else + gl_cv_c_multiarch=yes + fi + ;; + esac + prev= + else + if test "x$word" = "x-arch"; then + prev=arch + fi + fi + done + ]) + if test $gl_cv_c_multiarch = yes; then + APPLE_UNIVERSAL_BUILD=1 + else + APPLE_UNIVERSAL_BUILD=0 + fi + AC_SUBST([APPLE_UNIVERSAL_BUILD]) +]) diff --git a/gnulib-m4/nocrash.m4 b/gnulib-m4/nocrash.m4 new file mode 100644 index 0000000..4d9f022 --- /dev/null +++ b/gnulib-m4/nocrash.m4 @@ -0,0 +1,131 @@ +# nocrash.m4 serial 5 +dnl Copyright (C) 2005, 2009-2019 Free Software Foundation, Inc. +dnl This file is free software; the Free Software Foundation +dnl gives unlimited permission to copy and/or distribute it, +dnl with or without modifications, as long as this notice is preserved. + +dnl Based on libsigsegv, from Bruno Haible and Paolo Bonzini. + +AC_PREREQ([2.13]) + +dnl Expands to some code for use in .c programs that will cause the configure +dnl test to exit instead of crashing. This is useful to avoid triggering +dnl action from a background debugger and to avoid core dumps. +dnl Usage: ... +dnl ]GL_NOCRASH[ +dnl ... +dnl int main() { nocrash_init(); ... } +AC_DEFUN([GL_NOCRASH],[[ +#include +#if defined __MACH__ && defined __APPLE__ +/* Avoid a crash on Mac OS X. */ +#include +#include +#include +#include +#include +#include +/* The exception port on which our thread listens. */ +static mach_port_t our_exception_port; +/* The main function of the thread listening for exceptions of type + EXC_BAD_ACCESS. */ +static void * +mach_exception_thread (void *arg) +{ + /* Buffer for a message to be received. */ + struct { + mach_msg_header_t head; + mach_msg_body_t msgh_body; + char data[1024]; + } msg; + mach_msg_return_t retval; + /* Wait for a message on the exception port. */ + retval = mach_msg (&msg.head, MACH_RCV_MSG | MACH_RCV_LARGE, 0, sizeof (msg), + our_exception_port, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); + if (retval != MACH_MSG_SUCCESS) + abort (); + exit (1); +} +static void +nocrash_init (void) +{ + mach_port_t self = mach_task_self (); + /* Allocate a port on which the thread shall listen for exceptions. */ + if (mach_port_allocate (self, MACH_PORT_RIGHT_RECEIVE, &our_exception_port) + == KERN_SUCCESS) { + /* See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/mach_port_insert_right.html. */ + if (mach_port_insert_right (self, our_exception_port, our_exception_port, + MACH_MSG_TYPE_MAKE_SEND) + == KERN_SUCCESS) { + /* The exceptions we want to catch. Only EXC_BAD_ACCESS is interesting + for us. */ + exception_mask_t mask = EXC_MASK_BAD_ACCESS; + /* Create the thread listening on the exception port. */ + pthread_attr_t attr; + pthread_t thread; + if (pthread_attr_init (&attr) == 0 + && pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED) == 0 + && pthread_create (&thread, &attr, mach_exception_thread, NULL) == 0) { + pthread_attr_destroy (&attr); + /* Replace the exception port info for these exceptions with our own. + Note that we replace the exception port for the entire task, not only + for a particular thread. This has the effect that when our exception + port gets the message, the thread specific exception port has already + been asked, and we don't need to bother about it. + See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/task_set_exception_ports.html. */ + task_set_exception_ports (self, mask, our_exception_port, + EXCEPTION_DEFAULT, MACHINE_THREAD_STATE); + } + } + } +} +#elif defined _WIN32 && ! defined __CYGWIN__ +/* Avoid a crash on native Windows. */ +#define WIN32_LEAN_AND_MEAN +#include +#include +static LONG WINAPI +exception_filter (EXCEPTION_POINTERS *ExceptionInfo) +{ + switch (ExceptionInfo->ExceptionRecord->ExceptionCode) + { + case EXCEPTION_ACCESS_VIOLATION: + case EXCEPTION_IN_PAGE_ERROR: + case EXCEPTION_STACK_OVERFLOW: + case EXCEPTION_GUARD_PAGE: + case EXCEPTION_PRIV_INSTRUCTION: + case EXCEPTION_ILLEGAL_INSTRUCTION: + case EXCEPTION_DATATYPE_MISALIGNMENT: + case EXCEPTION_ARRAY_BOUNDS_EXCEEDED: + case EXCEPTION_NONCONTINUABLE_EXCEPTION: + exit (1); + } + return EXCEPTION_CONTINUE_SEARCH; +} +static void +nocrash_init (void) +{ + SetUnhandledExceptionFilter ((LPTOP_LEVEL_EXCEPTION_FILTER) exception_filter); +} +#else +/* Avoid a crash on POSIX systems. */ +#include +#include +/* A POSIX signal handler. */ +static void +exception_handler (int sig) +{ + _exit (1); +} +static void +nocrash_init (void) +{ +#ifdef SIGSEGV + signal (SIGSEGV, exception_handler); +#endif +#ifdef SIGBUS + signal (SIGBUS, exception_handler); +#endif +} +#endif +]]) diff --git a/gnulib-m4/off_t.m4 b/gnulib-m4/off_t.m4 new file mode 100644 index 0000000..711a2d4 --- /dev/null +++ b/gnulib-m4/off_t.m4 @@ -0,0 +1,18 @@ +# off_t.m4 serial 1 +dnl Copyright (C) 2012-2019 Free Software Foundation, Inc. +dnl This file is free software; the Free Software Foundation +dnl gives unlimited permission to copy and/or distribute it, +dnl with or without modifications, as long as this notice is preserved. + +dnl Check whether to override the 'off_t' type. +dnl Set WINDOWS_64_BIT_OFF_T. + +AC_DEFUN([gl_TYPE_OFF_T], +[ + m4_ifdef([gl_LARGEFILE], [ + AC_REQUIRE([gl_LARGEFILE]) + ], [ + WINDOWS_64_BIT_OFF_T=0 + ]) + AC_SUBST([WINDOWS_64_BIT_OFF_T]) +]) diff --git a/gnulib-m4/onceonly.m4 b/gnulib-m4/onceonly.m4 new file mode 100644 index 0000000..5ab3dd7 --- /dev/null +++ b/gnulib-m4/onceonly.m4 @@ -0,0 +1,104 @@ +# onceonly.m4 serial 9 +dnl Copyright (C) 2002-2003, 2005-2006, 2008-2018 Free Software Foundation, +dnl Inc. +dnl +dnl This file is free software; you can redistribute it and/or modify +dnl it under the terms of the GNU General Public License as published by +dnl the Free Software Foundation; either version 3 of the License, or +dnl (at your option) any later version. +dnl +dnl This file is distributed in the hope that it will be useful, +dnl but WITHOUT ANY WARRANTY; without even the implied warranty of +dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +dnl GNU General Public License for more details. +dnl +dnl You should have received a copy of the GNU General Public License +dnl along with this file. If not, see . +dnl +dnl As a special exception to the GNU General Public License, +dnl this file may be distributed as part of a program +dnl that contains a configuration script generated by Autoconf, under +dnl the same distribution terms as the rest of that program. + +dnl This file defines some "once only" variants of standard autoconf macros. +dnl AC_CHECK_HEADERS_ONCE like AC_CHECK_HEADERS +dnl AC_CHECK_FUNCS_ONCE like AC_CHECK_FUNCS +dnl AC_CHECK_DECLS_ONCE like AC_CHECK_DECLS +dnl AC_REQUIRE([AC_FUNC_STRCOLL]) like AC_FUNC_STRCOLL +dnl The advantage is that the check for each of the headers/functions/decls +dnl will be put only once into the 'configure' file. It keeps the size of +dnl the 'configure' file down, and avoids redundant output when 'configure' +dnl is run. +dnl The drawback is that the checks cannot be conditionalized. If you write +dnl if some_condition; then gl_CHECK_HEADERS(stdlib.h); fi +dnl inside an AC_DEFUNed function, the gl_CHECK_HEADERS macro call expands to +dnl empty, and the check will be inserted before the body of the AC_DEFUNed +dnl function. + +dnl The original code implemented AC_CHECK_HEADERS_ONCE and AC_CHECK_FUNCS_ONCE +dnl in terms of AC_DEFUN and AC_REQUIRE. This implementation uses diversions to +dnl named sections DEFAULTS and INIT_PREPARE in order to check all requested +dnl headers at once, thus reducing the size of 'configure'. It is known to work +dnl with autoconf 2.57..2.62 at least . The size reduction is ca. 9%. + +dnl Autoconf version 2.59 plus gnulib is required; this file is not needed +dnl with Autoconf 2.60 or greater. But note that autoconf's implementation of +dnl AC_CHECK_DECLS_ONCE expects a comma-separated list of symbols as first +dnl argument! +AC_PREREQ([2.59]) + +# AC_CHECK_HEADERS_ONCE(HEADER1 HEADER2 ...) is a once-only variant of +# AC_CHECK_HEADERS(HEADER1 HEADER2 ...). +AC_DEFUN([AC_CHECK_HEADERS_ONCE], [ + : + m4_foreach_w([gl_HEADER_NAME], [$1], [ + AC_DEFUN([gl_CHECK_HEADER_]m4_quote(m4_translit(gl_HEADER_NAME, + [./-], [___])), [ + m4_divert_text([INIT_PREPARE], + [gl_header_list="$gl_header_list gl_HEADER_NAME"]) + gl_HEADERS_EXPANSION + AH_TEMPLATE(AS_TR_CPP([HAVE_]m4_defn([gl_HEADER_NAME])), + [Define to 1 if you have the <]m4_defn([gl_HEADER_NAME])[> header file.]) + ]) + AC_REQUIRE([gl_CHECK_HEADER_]m4_quote(m4_translit(gl_HEADER_NAME, + [./-], [___]))) + ]) +]) +m4_define([gl_HEADERS_EXPANSION], [ + m4_divert_text([DEFAULTS], [gl_header_list=]) + AC_CHECK_HEADERS([$gl_header_list]) + m4_define([gl_HEADERS_EXPANSION], []) +]) + +# AC_CHECK_FUNCS_ONCE(FUNC1 FUNC2 ...) is a once-only variant of +# AC_CHECK_FUNCS(FUNC1 FUNC2 ...). +AC_DEFUN([AC_CHECK_FUNCS_ONCE], [ + : + m4_foreach_w([gl_FUNC_NAME], [$1], [ + AC_DEFUN([gl_CHECK_FUNC_]m4_defn([gl_FUNC_NAME]), [ + m4_divert_text([INIT_PREPARE], + [gl_func_list="$gl_func_list gl_FUNC_NAME"]) + gl_FUNCS_EXPANSION + AH_TEMPLATE(AS_TR_CPP([HAVE_]m4_defn([gl_FUNC_NAME])), + [Define to 1 if you have the ']m4_defn([gl_FUNC_NAME])[' function.]) + ]) + AC_REQUIRE([gl_CHECK_FUNC_]m4_defn([gl_FUNC_NAME])) + ]) +]) +m4_define([gl_FUNCS_EXPANSION], [ + m4_divert_text([DEFAULTS], [gl_func_list=]) + AC_CHECK_FUNCS([$gl_func_list]) + m4_define([gl_FUNCS_EXPANSION], []) +]) + +# AC_CHECK_DECLS_ONCE(DECL1 DECL2 ...) is a once-only variant of +# AC_CHECK_DECLS(DECL1, DECL2, ...). +AC_DEFUN([AC_CHECK_DECLS_ONCE], [ + : + m4_foreach_w([gl_DECL_NAME], [$1], [ + AC_DEFUN([gl_CHECK_DECL_]m4_defn([gl_DECL_NAME]), [ + AC_CHECK_DECLS(m4_defn([gl_DECL_NAME])) + ]) + AC_REQUIRE([gl_CHECK_DECL_]m4_defn([gl_DECL_NAME])) + ]) +]) diff --git a/gnulib-m4/pthread_rwlock_rdlock.m4 b/gnulib-m4/pthread_rwlock_rdlock.m4 new file mode 100644 index 0000000..3c1d645 --- /dev/null +++ b/gnulib-m4/pthread_rwlock_rdlock.m4 @@ -0,0 +1,165 @@ +# pthread_rwlock_rdlock.m4 serial 2 +dnl Copyright (C) 2017-2019 Free Software Foundation, Inc. +dnl This file is free software; the Free Software Foundation +dnl gives unlimited permission to copy and/or distribute it, +dnl with or without modifications, as long as this notice is preserved. + +dnl From Bruno Haible. +dnl Inspired by +dnl https://github.com/linux-test-project/ltp/blob/master/testcases/open_posix_testsuite/conformance/interfaces/pthread_rwlock_rdlock/2-2.c +dnl by Intel Corporation. + +dnl Test whether in a situation where +dnl - an rwlock is taken by a reader and has a writer waiting, +dnl - an additional reader requests the lock, +dnl - the waiting writer and the requesting reader threads have the same +dnl priority, +dnl the requesting reader thread gets blocked, so that at some point the +dnl waiting writer can acquire the lock. +dnl Without such a guarantee, when there a N readers and each of the readers +dnl spends more than 1/Nth of the time with the lock held, there is a high +dnl probability that the waiting writer will not get the lock in a given finite +dnl time, a phenomenon called "writer starvation". +dnl Without such a guarantee, applications have a hard time avoiding writer +dnl starvation. +dnl +dnl POSIX:2017 makes this requirement only for implementations that support TPS +dnl (Thread Priority Scheduling) and only for the scheduling policies SCHED_FIFO +dnl and SCHED_RR, see +dnl http://pubs.opengroup.org/onlinepubs/9699919799/functions/pthread_rwlock_rdlock.html +dnl but this test verifies the guarantee regardless of TPS and regardless of +dnl scheduling policy. +dnl Glibc currently does not provide this guarantee, see +dnl https://sourceware.org/bugzilla/show_bug.cgi?id=13701 +AC_DEFUN([gl_PTHREAD_RWLOCK_RDLOCK_PREFER_WRITER], +[ + AC_REQUIRE([gl_THREADLIB_EARLY]) + AC_CACHE_CHECK([whether pthread_rwlock_rdlock prefers a writer to a reader], + [gl_cv_pthread_rwlock_rdlock_prefer_writer], + [save_LIBS="$LIBS" + LIBS="$LIBS $LIBMULTITHREAD" + AC_RUN_IFELSE( + [AC_LANG_SOURCE([[ +#include +#include +#include +#include + +#define SUCCEED() exit (0) +#define FAILURE() exit (1) +#define UNEXPECTED(n) (exit (10 + (n))) + +/* The main thread creates the waiting writer and the requesting reader threads + in the default way; this guarantees that they have the same priority. + We can reuse the main thread as first reader thread. */ + +static pthread_rwlock_t lock; +static pthread_t reader1; +static pthread_t writer; +static pthread_t reader2; +static pthread_t timer; +/* Used to pass control from writer to reader2 and from reader2 to timer, + as in a relay race. + Passing control from one running thread to another running thread + is most likely faster than to create the second thread. */ +static pthread_mutex_t baton; + +static void * +timer_func (void *ignored) +{ + /* Step 13 (can be before or after step 12): + The timer thread takes the baton, then waits a moment to make sure + it can tell whether the second reader thread is blocked at step 12. */ + if (pthread_mutex_lock (&baton)) + UNEXPECTED (13); + usleep (100000); + /* By the time we get here, it's clear that the second reader thread is + blocked at step 12. This is the desired behaviour. */ + SUCCEED (); +} + +static void * +reader2_func (void *ignored) +{ + int err; + + /* Step 8 (can be before or after step 7): + The second reader thread takes the baton, then waits a moment to make sure + the writer thread has reached step 7. */ + if (pthread_mutex_lock (&baton)) + UNEXPECTED (8); + usleep (100000); + /* Step 9: The second reader thread requests the lock. */ + err = pthread_rwlock_tryrdlock (&lock); + if (err == 0) + FAILURE (); + else if (err != EBUSY) + UNEXPECTED (9); + /* Step 10: Launch a timer, to test whether the next call blocks. */ + if (pthread_create (&timer, NULL, timer_func, NULL)) + UNEXPECTED (10); + /* Step 11: Release the baton. */ + if (pthread_mutex_unlock (&baton)) + UNEXPECTED (11); + /* Step 12: The second reader thread requests the lock. */ + err = pthread_rwlock_rdlock (&lock); + if (err == 0) + FAILURE (); + else + UNEXPECTED (12); +} + +static void * +writer_func (void *ignored) +{ + /* Step 4: Take the baton, so that the second reader thread does not go ahead + too early. */ + if (pthread_mutex_lock (&baton)) + UNEXPECTED (4); + /* Step 5: Create the second reader thread. */ + if (pthread_create (&reader2, NULL, reader2_func, NULL)) + UNEXPECTED (5); + /* Step 6: Release the baton. */ + if (pthread_mutex_unlock (&baton)) + UNEXPECTED (6); + /* Step 7: The writer thread requests the lock. */ + if (pthread_rwlock_wrlock (&lock)) + UNEXPECTED (7); + return NULL; +} + +int +main () +{ + reader1 = pthread_self (); + + /* Step 1: The main thread initializes the lock and the baton. */ + if (pthread_rwlock_init (&lock, NULL)) + UNEXPECTED (1); + if (pthread_mutex_init (&baton, NULL)) + UNEXPECTED (1); + /* Step 2: The main thread acquires the lock as a reader. */ + if (pthread_rwlock_rdlock (&lock)) + UNEXPECTED (2); + /* Step 3: Create the writer thread. */ + if (pthread_create (&writer, NULL, writer_func, NULL)) + UNEXPECTED (3); + /* Job done. Go to sleep. */ + for (;;) + { + sleep (1); + } +} +]])], + [gl_cv_pthread_rwlock_rdlock_prefer_writer=yes], + [gl_cv_pthread_rwlock_rdlock_prefer_writer=no], + [gl_cv_pthread_rwlock_rdlock_prefer_writer="guessing yes"]) + LIBS="$save_LIBS" + ]) + case "$gl_cv_pthread_rwlock_rdlock_prefer_writer" in + *yes) + AC_DEFINE([HAVE_PTHREAD_RWLOCK_RDLOCK_PREFER_WRITER], [1], + [Define if the 'pthread_rwlock_rdlock' function prefers a writer to a reader.]) + ;; + esac +]) diff --git a/gnulib-m4/ssize_t.m4 b/gnulib-m4/ssize_t.m4 new file mode 100644 index 0000000..38bcee1 --- /dev/null +++ b/gnulib-m4/ssize_t.m4 @@ -0,0 +1,23 @@ +# ssize_t.m4 serial 5 (gettext-0.18.2) +dnl Copyright (C) 2001-2003, 2006, 2010-2019 Free Software Foundation, Inc. +dnl This file is free software; the Free Software Foundation +dnl gives unlimited permission to copy and/or distribute it, +dnl with or without modifications, as long as this notice is preserved. + +dnl From Bruno Haible. +dnl Test whether ssize_t is defined. + +AC_DEFUN([gt_TYPE_SSIZE_T], +[ + AC_CACHE_CHECK([for ssize_t], [gt_cv_ssize_t], + [AC_COMPILE_IFELSE( + [AC_LANG_PROGRAM( + [[#include ]], + [[int x = sizeof (ssize_t *) + sizeof (ssize_t); + return !x;]])], + [gt_cv_ssize_t=yes], [gt_cv_ssize_t=no])]) + if test $gt_cv_ssize_t = no; then + AC_DEFINE([ssize_t], [int], + [Define as a signed type of the same size as size_t.]) + fi +]) diff --git a/gnulib-m4/stdint.m4 b/gnulib-m4/stdint.m4 new file mode 100644 index 0000000..11d8e8e --- /dev/null +++ b/gnulib-m4/stdint.m4 @@ -0,0 +1,544 @@ +# stdint.m4 serial 53 +dnl Copyright (C) 2001-2019 Free Software Foundation, Inc. +dnl This file is free software; the Free Software Foundation +dnl gives unlimited permission to copy and/or distribute it, +dnl with or without modifications, as long as this notice is preserved. + +dnl From Paul Eggert and Bruno Haible. +dnl Test whether is supported or must be substituted. + +AC_PREREQ([2.61]) + +AC_DEFUN_ONCE([gl_STDINT_H], +[ + AC_PREREQ([2.59])dnl + AC_REQUIRE([AC_CANONICAL_HOST]) dnl for cross-compiles + + AC_REQUIRE([gl_LIMITS_H]) + AC_REQUIRE([gt_TYPE_WINT_T]) + + dnl Check for long long int and unsigned long long int. + AC_REQUIRE([AC_TYPE_LONG_LONG_INT]) + if test $ac_cv_type_long_long_int = yes; then + HAVE_LONG_LONG_INT=1 + else + HAVE_LONG_LONG_INT=0 + fi + AC_SUBST([HAVE_LONG_LONG_INT]) + AC_REQUIRE([AC_TYPE_UNSIGNED_LONG_LONG_INT]) + if test $ac_cv_type_unsigned_long_long_int = yes; then + HAVE_UNSIGNED_LONG_LONG_INT=1 + else + HAVE_UNSIGNED_LONG_LONG_INT=0 + fi + AC_SUBST([HAVE_UNSIGNED_LONG_LONG_INT]) + + dnl Check for , in the same way as gl_WCHAR_H does. + AC_CHECK_HEADERS_ONCE([wchar.h]) + if test $ac_cv_header_wchar_h = yes; then + HAVE_WCHAR_H=1 + else + HAVE_WCHAR_H=0 + fi + AC_SUBST([HAVE_WCHAR_H]) + + dnl Check for . + dnl AC_INCLUDES_DEFAULT defines $ac_cv_header_inttypes_h. + if test $ac_cv_header_inttypes_h = yes; then + HAVE_INTTYPES_H=1 + else + HAVE_INTTYPES_H=0 + fi + AC_SUBST([HAVE_INTTYPES_H]) + + dnl Check for . + dnl AC_INCLUDES_DEFAULT defines $ac_cv_header_sys_types_h. + if test $ac_cv_header_sys_types_h = yes; then + HAVE_SYS_TYPES_H=1 + else + HAVE_SYS_TYPES_H=0 + fi + AC_SUBST([HAVE_SYS_TYPES_H]) + + gl_CHECK_NEXT_HEADERS([stdint.h]) + if test $ac_cv_header_stdint_h = yes; then + HAVE_STDINT_H=1 + else + HAVE_STDINT_H=0 + fi + AC_SUBST([HAVE_STDINT_H]) + + dnl Now see whether we need a substitute . + if test $ac_cv_header_stdint_h = yes; then + AC_CACHE_CHECK([whether stdint.h conforms to C99], + [gl_cv_header_working_stdint_h], + [gl_cv_header_working_stdint_h=no + AC_COMPILE_IFELSE([ + AC_LANG_PROGRAM([[ +#define _GL_JUST_INCLUDE_SYSTEM_STDINT_H 1 /* work if build isn't clean */ +#define __STDC_CONSTANT_MACROS 1 +#define __STDC_LIMIT_MACROS 1 +#include +/* Dragonfly defines WCHAR_MIN, WCHAR_MAX only in . */ +#if !(defined WCHAR_MIN && defined WCHAR_MAX) +#error "WCHAR_MIN, WCHAR_MAX not defined in " +#endif +] +gl_STDINT_INCLUDES +[ +#ifdef INT8_MAX +int8_t a1 = INT8_MAX; +int8_t a1min = INT8_MIN; +#endif +#ifdef INT16_MAX +int16_t a2 = INT16_MAX; +int16_t a2min = INT16_MIN; +#endif +#ifdef INT32_MAX +int32_t a3 = INT32_MAX; +int32_t a3min = INT32_MIN; +#endif +#ifdef INT64_MAX +int64_t a4 = INT64_MAX; +int64_t a4min = INT64_MIN; +#endif +#ifdef UINT8_MAX +uint8_t b1 = UINT8_MAX; +#else +typedef int b1[(unsigned char) -1 != 255 ? 1 : -1]; +#endif +#ifdef UINT16_MAX +uint16_t b2 = UINT16_MAX; +#endif +#ifdef UINT32_MAX +uint32_t b3 = UINT32_MAX; +#endif +#ifdef UINT64_MAX +uint64_t b4 = UINT64_MAX; +#endif +int_least8_t c1 = INT8_C (0x7f); +int_least8_t c1max = INT_LEAST8_MAX; +int_least8_t c1min = INT_LEAST8_MIN; +int_least16_t c2 = INT16_C (0x7fff); +int_least16_t c2max = INT_LEAST16_MAX; +int_least16_t c2min = INT_LEAST16_MIN; +int_least32_t c3 = INT32_C (0x7fffffff); +int_least32_t c3max = INT_LEAST32_MAX; +int_least32_t c3min = INT_LEAST32_MIN; +int_least64_t c4 = INT64_C (0x7fffffffffffffff); +int_least64_t c4max = INT_LEAST64_MAX; +int_least64_t c4min = INT_LEAST64_MIN; +uint_least8_t d1 = UINT8_C (0xff); +uint_least8_t d1max = UINT_LEAST8_MAX; +uint_least16_t d2 = UINT16_C (0xffff); +uint_least16_t d2max = UINT_LEAST16_MAX; +uint_least32_t d3 = UINT32_C (0xffffffff); +uint_least32_t d3max = UINT_LEAST32_MAX; +uint_least64_t d4 = UINT64_C (0xffffffffffffffff); +uint_least64_t d4max = UINT_LEAST64_MAX; +int_fast8_t e1 = INT_FAST8_MAX; +int_fast8_t e1min = INT_FAST8_MIN; +int_fast16_t e2 = INT_FAST16_MAX; +int_fast16_t e2min = INT_FAST16_MIN; +int_fast32_t e3 = INT_FAST32_MAX; +int_fast32_t e3min = INT_FAST32_MIN; +int_fast64_t e4 = INT_FAST64_MAX; +int_fast64_t e4min = INT_FAST64_MIN; +uint_fast8_t f1 = UINT_FAST8_MAX; +uint_fast16_t f2 = UINT_FAST16_MAX; +uint_fast32_t f3 = UINT_FAST32_MAX; +uint_fast64_t f4 = UINT_FAST64_MAX; +#ifdef INTPTR_MAX +intptr_t g = INTPTR_MAX; +intptr_t gmin = INTPTR_MIN; +#endif +#ifdef UINTPTR_MAX +uintptr_t h = UINTPTR_MAX; +#endif +intmax_t i = INTMAX_MAX; +uintmax_t j = UINTMAX_MAX; + +/* Check that SIZE_MAX has the correct type, if possible. */ +#if 201112 <= __STDC_VERSION__ +int k = _Generic (SIZE_MAX, size_t: 0); +#elif (2 <= __GNUC__ || defined __IBM__TYPEOF__ \ + || (0x5110 <= __SUNPRO_C && !__STDC__)) +extern size_t k; +extern __typeof__ (SIZE_MAX) k; +#endif + +#include /* for CHAR_BIT */ +#define TYPE_MINIMUM(t) \ + ((t) ((t) 0 < (t) -1 ? (t) 0 : ~ TYPE_MAXIMUM (t))) +#define TYPE_MAXIMUM(t) \ + ((t) ((t) 0 < (t) -1 \ + ? (t) -1 \ + : ((((t) 1 << (sizeof (t) * CHAR_BIT - 2)) - 1) * 2 + 1))) +struct s { + int check_PTRDIFF: + PTRDIFF_MIN == TYPE_MINIMUM (ptrdiff_t) + && PTRDIFF_MAX == TYPE_MAXIMUM (ptrdiff_t) + ? 1 : -1; + /* Detect bug in FreeBSD 6.0 / ia64. */ + int check_SIG_ATOMIC: + SIG_ATOMIC_MIN == TYPE_MINIMUM (sig_atomic_t) + && SIG_ATOMIC_MAX == TYPE_MAXIMUM (sig_atomic_t) + ? 1 : -1; + int check_SIZE: SIZE_MAX == TYPE_MAXIMUM (size_t) ? 1 : -1; + int check_WCHAR: + WCHAR_MIN == TYPE_MINIMUM (wchar_t) + && WCHAR_MAX == TYPE_MAXIMUM (wchar_t) + ? 1 : -1; + /* Detect bug in mingw. */ + int check_WINT: + WINT_MIN == TYPE_MINIMUM (wint_t) + && WINT_MAX == TYPE_MAXIMUM (wint_t) + ? 1 : -1; + + /* Detect bugs in glibc 2.4 and Solaris 10 stdint.h, among others. */ + int check_UINT8_C: + (-1 < UINT8_C (0)) == (-1 < (uint_least8_t) 0) ? 1 : -1; + int check_UINT16_C: + (-1 < UINT16_C (0)) == (-1 < (uint_least16_t) 0) ? 1 : -1; + + /* Detect bugs in OpenBSD 3.9 stdint.h. */ +#ifdef UINT8_MAX + int check_uint8: (uint8_t) -1 == UINT8_MAX ? 1 : -1; +#endif +#ifdef UINT16_MAX + int check_uint16: (uint16_t) -1 == UINT16_MAX ? 1 : -1; +#endif +#ifdef UINT32_MAX + int check_uint32: (uint32_t) -1 == UINT32_MAX ? 1 : -1; +#endif +#ifdef UINT64_MAX + int check_uint64: (uint64_t) -1 == UINT64_MAX ? 1 : -1; +#endif + int check_uint_least8: (uint_least8_t) -1 == UINT_LEAST8_MAX ? 1 : -1; + int check_uint_least16: (uint_least16_t) -1 == UINT_LEAST16_MAX ? 1 : -1; + int check_uint_least32: (uint_least32_t) -1 == UINT_LEAST32_MAX ? 1 : -1; + int check_uint_least64: (uint_least64_t) -1 == UINT_LEAST64_MAX ? 1 : -1; + int check_uint_fast8: (uint_fast8_t) -1 == UINT_FAST8_MAX ? 1 : -1; + int check_uint_fast16: (uint_fast16_t) -1 == UINT_FAST16_MAX ? 1 : -1; + int check_uint_fast32: (uint_fast32_t) -1 == UINT_FAST32_MAX ? 1 : -1; + int check_uint_fast64: (uint_fast64_t) -1 == UINT_FAST64_MAX ? 1 : -1; + int check_uintptr: (uintptr_t) -1 == UINTPTR_MAX ? 1 : -1; + int check_uintmax: (uintmax_t) -1 == UINTMAX_MAX ? 1 : -1; + int check_size: (size_t) -1 == SIZE_MAX ? 1 : -1; +}; + ]])], + [dnl Determine whether the various *_MIN, *_MAX macros are usable + dnl in preprocessor expression. We could do it by compiling a test + dnl program for each of these macros. It is faster to run a program + dnl that inspects the macro expansion. + dnl This detects a bug on HP-UX 11.23/ia64. + AC_RUN_IFELSE([ + AC_LANG_PROGRAM([[ +#define _GL_JUST_INCLUDE_SYSTEM_STDINT_H 1 /* work if build isn't clean */ +#define __STDC_CONSTANT_MACROS 1 +#define __STDC_LIMIT_MACROS 1 +#include +] +gl_STDINT_INCLUDES +[ +#include +#include +#define MVAL(macro) MVAL1(macro) +#define MVAL1(expression) #expression +static const char *macro_values[] = + { +#ifdef INT8_MAX + MVAL (INT8_MAX), +#endif +#ifdef INT16_MAX + MVAL (INT16_MAX), +#endif +#ifdef INT32_MAX + MVAL (INT32_MAX), +#endif +#ifdef INT64_MAX + MVAL (INT64_MAX), +#endif +#ifdef UINT8_MAX + MVAL (UINT8_MAX), +#endif +#ifdef UINT16_MAX + MVAL (UINT16_MAX), +#endif +#ifdef UINT32_MAX + MVAL (UINT32_MAX), +#endif +#ifdef UINT64_MAX + MVAL (UINT64_MAX), +#endif + NULL + }; +]], [[ + const char **mv; + for (mv = macro_values; *mv != NULL; mv++) + { + const char *value = *mv; + /* Test whether it looks like a cast expression. */ + if (strncmp (value, "((unsigned int)"/*)*/, 15) == 0 + || strncmp (value, "((unsigned short)"/*)*/, 17) == 0 + || strncmp (value, "((unsigned char)"/*)*/, 16) == 0 + || strncmp (value, "((int)"/*)*/, 6) == 0 + || strncmp (value, "((signed short)"/*)*/, 15) == 0 + || strncmp (value, "((signed char)"/*)*/, 14) == 0) + return mv - macro_values + 1; + } + return 0; +]])], + [gl_cv_header_working_stdint_h=yes], + [], + [case "$host_os" in + # Guess yes on native Windows. + mingw*) gl_cv_header_working_stdint_h="guessing yes" ;; + # In general, assume it works. + *) gl_cv_header_working_stdint_h="guessing yes" ;; + esac + ]) + ]) + ]) + fi + + HAVE_C99_STDINT_H=0 + HAVE_SYS_BITYPES_H=0 + HAVE_SYS_INTTYPES_H=0 + STDINT_H=stdint.h + case "$gl_cv_header_working_stdint_h" in + *yes) + HAVE_C99_STDINT_H=1 + dnl Now see whether the system works without + dnl __STDC_CONSTANT_MACROS/__STDC_LIMIT_MACROS defined. + AC_CACHE_CHECK([whether stdint.h predates C++11], + [gl_cv_header_stdint_predates_cxx11_h], + [gl_cv_header_stdint_predates_cxx11_h=yes + AC_COMPILE_IFELSE([ + AC_LANG_PROGRAM([[ +#define _GL_JUST_INCLUDE_SYSTEM_STDINT_H 1 /* work if build isn't clean */ +#include +] +gl_STDINT_INCLUDES +[ +intmax_t im = INTMAX_MAX; +int32_t i32 = INT32_C (0x7fffffff); + ]])], + [gl_cv_header_stdint_predates_cxx11_h=no])]) + + if test "$gl_cv_header_stdint_predates_cxx11_h" = yes; then + AC_DEFINE([__STDC_CONSTANT_MACROS], [1], + [Define to 1 if the system predates C++11.]) + AC_DEFINE([__STDC_LIMIT_MACROS], [1], + [Define to 1 if the system predates C++11.]) + fi + AC_CACHE_CHECK([whether stdint.h has UINTMAX_WIDTH etc.], + [gl_cv_header_stdint_width], + [gl_cv_header_stdint_width=no + AC_COMPILE_IFELSE( + [AC_LANG_PROGRAM([[ + /* Work if build is not clean. */ + #define _GL_JUST_INCLUDE_SYSTEM_STDINT_H 1 + #ifndef __STDC_WANT_IEC_60559_BFP_EXT__ + #define __STDC_WANT_IEC_60559_BFP_EXT__ 1 + #endif + #include + ]gl_STDINT_INCLUDES[ + int iw = UINTMAX_WIDTH; + ]])], + [gl_cv_header_stdint_width=yes])]) + if test "$gl_cv_header_stdint_width" = yes; then + STDINT_H= + fi + ;; + *) + dnl Check for , and for + dnl (used in Linux libc4 >= 4.6.7 and libc5). + AC_CHECK_HEADERS([sys/inttypes.h sys/bitypes.h]) + if test $ac_cv_header_sys_inttypes_h = yes; then + HAVE_SYS_INTTYPES_H=1 + fi + if test $ac_cv_header_sys_bitypes_h = yes; then + HAVE_SYS_BITYPES_H=1 + fi + gl_STDINT_TYPE_PROPERTIES + ;; + esac + + dnl The substitute stdint.h needs the substitute limit.h's _GL_INTEGER_WIDTH. + gl_REPLACE_LIMITS_H + + AC_SUBST([HAVE_C99_STDINT_H]) + AC_SUBST([HAVE_SYS_BITYPES_H]) + AC_SUBST([HAVE_SYS_INTTYPES_H]) + AC_SUBST([STDINT_H]) + AM_CONDITIONAL([GL_GENERATE_STDINT_H], [test -n "$STDINT_H"]) +]) + +dnl gl_STDINT_BITSIZEOF(TYPES, INCLUDES) +dnl Determine the size of each of the given types in bits. +AC_DEFUN([gl_STDINT_BITSIZEOF], +[ + dnl Use a shell loop, to avoid bloating configure, and + dnl - extra AH_TEMPLATE calls, so that autoheader knows what to put into + dnl config.h.in, + dnl - extra AC_SUBST calls, so that the right substitutions are made. + m4_foreach_w([gltype], [$1], + [AH_TEMPLATE([BITSIZEOF_]m4_translit(gltype,[abcdefghijklmnopqrstuvwxyz ],[ABCDEFGHIJKLMNOPQRSTUVWXYZ_]), + [Define to the number of bits in type ']gltype['.])]) + for gltype in $1 ; do + AC_CACHE_CHECK([for bit size of $gltype], [gl_cv_bitsizeof_${gltype}], + [AC_COMPUTE_INT([result], [sizeof ($gltype) * CHAR_BIT], + [$2 +#include ], [result=unknown]) + eval gl_cv_bitsizeof_${gltype}=\$result + ]) + eval result=\$gl_cv_bitsizeof_${gltype} + if test $result = unknown; then + dnl Use a nonempty default, because some compilers, such as IRIX 5 cc, + dnl do a syntax check even on unused #if conditions and give an error + dnl on valid C code like this: + dnl #if 0 + dnl # if > 32 + dnl # endif + dnl #endif + result=0 + fi + GLTYPE=`echo "$gltype" | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'` + AC_DEFINE_UNQUOTED([BITSIZEOF_${GLTYPE}], [$result]) + eval BITSIZEOF_${GLTYPE}=\$result + done + m4_foreach_w([gltype], [$1], + [AC_SUBST([BITSIZEOF_]m4_translit(gltype,[abcdefghijklmnopqrstuvwxyz ],[ABCDEFGHIJKLMNOPQRSTUVWXYZ_]))]) +]) + +dnl gl_CHECK_TYPES_SIGNED(TYPES, INCLUDES) +dnl Determine the signedness of each of the given types. +dnl Define HAVE_SIGNED_TYPE if type is signed. +AC_DEFUN([gl_CHECK_TYPES_SIGNED], +[ + dnl Use a shell loop, to avoid bloating configure, and + dnl - extra AH_TEMPLATE calls, so that autoheader knows what to put into + dnl config.h.in, + dnl - extra AC_SUBST calls, so that the right substitutions are made. + m4_foreach_w([gltype], [$1], + [AH_TEMPLATE([HAVE_SIGNED_]m4_translit(gltype,[abcdefghijklmnopqrstuvwxyz ],[ABCDEFGHIJKLMNOPQRSTUVWXYZ_]), + [Define to 1 if ']gltype[' is a signed integer type.])]) + for gltype in $1 ; do + AC_CACHE_CHECK([whether $gltype is signed], [gl_cv_type_${gltype}_signed], + [AC_COMPILE_IFELSE( + [AC_LANG_PROGRAM([$2[ + int verify[2 * (($gltype) -1 < ($gltype) 0) - 1];]])], + result=yes, result=no) + eval gl_cv_type_${gltype}_signed=\$result + ]) + eval result=\$gl_cv_type_${gltype}_signed + GLTYPE=`echo $gltype | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'` + if test "$result" = yes; then + AC_DEFINE_UNQUOTED([HAVE_SIGNED_${GLTYPE}], [1]) + eval HAVE_SIGNED_${GLTYPE}=1 + else + eval HAVE_SIGNED_${GLTYPE}=0 + fi + done + m4_foreach_w([gltype], [$1], + [AC_SUBST([HAVE_SIGNED_]m4_translit(gltype,[abcdefghijklmnopqrstuvwxyz ],[ABCDEFGHIJKLMNOPQRSTUVWXYZ_]))]) +]) + +dnl gl_INTEGER_TYPE_SUFFIX(TYPES, INCLUDES) +dnl Determine the suffix to use for integer constants of the given types. +dnl Define t_SUFFIX for each such type. +AC_DEFUN([gl_INTEGER_TYPE_SUFFIX], +[ + dnl Use a shell loop, to avoid bloating configure, and + dnl - extra AH_TEMPLATE calls, so that autoheader knows what to put into + dnl config.h.in, + dnl - extra AC_SUBST calls, so that the right substitutions are made. + m4_foreach_w([gltype], [$1], + [AH_TEMPLATE(m4_translit(gltype,[abcdefghijklmnopqrstuvwxyz ],[ABCDEFGHIJKLMNOPQRSTUVWXYZ_])[_SUFFIX], + [Define to l, ll, u, ul, ull, etc., as suitable for + constants of type ']gltype['.])]) + for gltype in $1 ; do + AC_CACHE_CHECK([for $gltype integer literal suffix], + [gl_cv_type_${gltype}_suffix], + [eval gl_cv_type_${gltype}_suffix=no + eval result=\$gl_cv_type_${gltype}_signed + if test "$result" = yes; then + glsufu= + else + glsufu=u + fi + for glsuf in "$glsufu" ${glsufu}l ${glsufu}ll ${glsufu}i64; do + case $glsuf in + '') gltype1='int';; + l) gltype1='long int';; + ll) gltype1='long long int';; + i64) gltype1='__int64';; + u) gltype1='unsigned int';; + ul) gltype1='unsigned long int';; + ull) gltype1='unsigned long long int';; + ui64)gltype1='unsigned __int64';; + esac + AC_COMPILE_IFELSE( + [AC_LANG_PROGRAM([$2[ + extern $gltype foo; + extern $gltype1 foo;]])], + [eval gl_cv_type_${gltype}_suffix=\$glsuf]) + eval result=\$gl_cv_type_${gltype}_suffix + test "$result" != no && break + done]) + GLTYPE=`echo $gltype | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'` + eval result=\$gl_cv_type_${gltype}_suffix + test "$result" = no && result= + eval ${GLTYPE}_SUFFIX=\$result + AC_DEFINE_UNQUOTED([${GLTYPE}_SUFFIX], [$result]) + done + m4_foreach_w([gltype], [$1], + [AC_SUBST(m4_translit(gltype,[abcdefghijklmnopqrstuvwxyz ],[ABCDEFGHIJKLMNOPQRSTUVWXYZ_])[_SUFFIX])]) +]) + +dnl gl_STDINT_INCLUDES +AC_DEFUN([gl_STDINT_INCLUDES], +[[ + /* BSD/OS 4.0.1 has a bug: , and must be + included before . */ + #include + #include + #if HAVE_WCHAR_H + # include + # include + # include + #endif +]]) + +dnl gl_STDINT_TYPE_PROPERTIES +dnl Compute HAVE_SIGNED_t, BITSIZEOF_t and t_SUFFIX, for all the types t +dnl of interest to stdint.in.h. +AC_DEFUN([gl_STDINT_TYPE_PROPERTIES], +[ + AC_REQUIRE([gl_MULTIARCH]) + if test $APPLE_UNIVERSAL_BUILD = 0; then + gl_STDINT_BITSIZEOF([ptrdiff_t size_t], + [gl_STDINT_INCLUDES]) + fi + gl_STDINT_BITSIZEOF([sig_atomic_t wchar_t wint_t], + [gl_STDINT_INCLUDES]) + gl_CHECK_TYPES_SIGNED([sig_atomic_t wchar_t wint_t], + [gl_STDINT_INCLUDES]) + gl_cv_type_ptrdiff_t_signed=yes + gl_cv_type_size_t_signed=no + if test $APPLE_UNIVERSAL_BUILD = 0; then + gl_INTEGER_TYPE_SUFFIX([ptrdiff_t size_t], + [gl_STDINT_INCLUDES]) + fi + gl_INTEGER_TYPE_SUFFIX([sig_atomic_t wchar_t wint_t], + [gl_STDINT_INCLUDES]) + + dnl If wint_t is smaller than 'int', it cannot satisfy the ISO C 99 + dnl requirement that wint_t is "unchanged by default argument promotions". + dnl In this case gnulib's and override wint_t. + dnl Set the variable BITSIZEOF_WINT_T accordingly. + if test $GNULIB_OVERRIDES_WINT_T = 1; then + BITSIZEOF_WINT_T=32 + fi +]) diff --git a/gnulib-m4/stdnoreturn.m4 b/gnulib-m4/stdnoreturn.m4 new file mode 100644 index 0000000..9dfd48d --- /dev/null +++ b/gnulib-m4/stdnoreturn.m4 @@ -0,0 +1,51 @@ +# Check for stdnoreturn.h that conforms to C11. + +dnl Copyright 2012-2019 Free Software Foundation, Inc. +dnl This file is free software; the Free Software Foundation +dnl gives unlimited permission to copy and/or distribute it, +dnl with or without modifications, as long as this notice is preserved. + +# Prepare for substituting if it is not supported. + +AC_DEFUN([gl_STDNORETURN_H], +[ + AC_REQUIRE([AC_CANONICAL_HOST]) + case "$host_os" in + cygwin*) + dnl Regardless whether a working exists or not, + dnl we need our own , because of the definition + dnl of _Noreturn done by gnulib-common.m4. + STDNORETURN_H='stdnoreturn.h' + ;; + *) + AC_CACHE_CHECK([for working stdnoreturn.h], + [gl_cv_header_working_stdnoreturn_h], + [AC_COMPILE_IFELSE( + [AC_LANG_PROGRAM( + [[#include + #include + /* Do not check for 'noreturn' after the return type. + C11 allows it, but it's rarely done that way + and circa-2012 bleeding-edge GCC rejects it when given + -Werror=old-style-declaration. */ + noreturn void foo1 (void) { exit (0); } + _Noreturn void foo2 (void) { exit (0); } + int testit (int argc, char **argv) + { + if (argc & 1) + return 0; + (argv[0][0] ? foo1 : foo2) (); + } + ]])], + [gl_cv_header_working_stdnoreturn_h=yes], + [gl_cv_header_working_stdnoreturn_h=no])]) + if test $gl_cv_header_working_stdnoreturn_h = yes; then + STDNORETURN_H='' + else + STDNORETURN_H='stdnoreturn.h' + fi + ;; + esac + AC_SUBST([STDNORETURN_H]) + AM_CONDITIONAL([GL_GENERATE_STDNORETURN_H], [test -n "$STDNORETURN_H"]) +]) diff --git a/gnulib-m4/sys_types_h.m4 b/gnulib-m4/sys_types_h.m4 new file mode 100644 index 0000000..be06559 --- /dev/null +++ b/gnulib-m4/sys_types_h.m4 @@ -0,0 +1,60 @@ +# sys_types_h.m4 serial 9 +dnl Copyright (C) 2011-2019 Free Software Foundation, Inc. +dnl This file is free software; the Free Software Foundation +dnl gives unlimited permission to copy and/or distribute it, +dnl with or without modifications, as long as this notice is preserved. + +AC_DEFUN_ONCE([gl_SYS_TYPES_H], +[ + dnl Use sane struct stat types in OpenVMS 8.2 and later. + AC_DEFINE([_USE_STD_STAT], 1, [For standard stat data types on VMS.]) + + AC_REQUIRE([gl_SYS_TYPES_H_DEFAULTS]) + gl_NEXT_HEADERS([sys/types.h]) + + dnl Ensure the type pid_t gets defined. + AC_REQUIRE([AC_TYPE_PID_T]) + + dnl Ensure the type mode_t gets defined. + AC_REQUIRE([AC_TYPE_MODE_T]) + + dnl Whether to override the 'off_t' type. + AC_REQUIRE([gl_TYPE_OFF_T]) + + dnl Whether to override the 'dev_t' and 'ino_t' types. + m4_ifdef([gl_WINDOWS_STAT_INODES], [ + AC_REQUIRE([gl_WINDOWS_STAT_INODES]) + ], [ + WINDOWS_STAT_INODES=0 + ]) + AC_SUBST([WINDOWS_STAT_INODES]) +]) + +AC_DEFUN([gl_SYS_TYPES_H_DEFAULTS], +[ +]) + +# This works around a buggy version in autoconf <= 2.69. +# See + +m4_version_prereq([2.70], [], [ + +# This is taken from the following Autoconf patch: +# https://git.savannah.gnu.org/cgit/autoconf.git/commit/?id=e17a30e987d7ee695fb4294a82d987ec3dc9b974 + +m4_undefine([AC_HEADER_MAJOR]) +AC_DEFUN([AC_HEADER_MAJOR], +[AC_CHECK_HEADERS_ONCE([sys/types.h]) +AC_CHECK_HEADER([sys/mkdev.h], + [AC_DEFINE([MAJOR_IN_MKDEV], [1], + [Define to 1 if `major', `minor', and `makedev' are declared in + .])]) +if test $ac_cv_header_sys_mkdev_h = no; then + AC_CHECK_HEADER([sys/sysmacros.h], + [AC_DEFINE([MAJOR_IN_SYSMACROS], [1], + [Define to 1 if `major', `minor', and `makedev' are declared in + .])]) +fi +]) + +]) diff --git a/gnulib-m4/threadlib.m4 b/gnulib-m4/threadlib.m4 new file mode 100644 index 0000000..045d9da --- /dev/null +++ b/gnulib-m4/threadlib.m4 @@ -0,0 +1,359 @@ +# threadlib.m4 serial 20 +dnl Copyright (C) 2005-2019 Free Software Foundation, Inc. +dnl This file is free software; the Free Software Foundation +dnl gives unlimited permission to copy and/or distribute it, +dnl with or without modifications, as long as this notice is preserved. + +dnl From Bruno Haible. + +AC_PREREQ([2.60]) + +dnl gl_THREADLIB +dnl ------------ +dnl Tests for a multithreading library to be used. +dnl If the configure.ac contains a definition of the gl_THREADLIB_DEFAULT_NO +dnl (it must be placed before the invocation of gl_THREADLIB_EARLY!), then the +dnl default is 'no', otherwise it is system dependent. In both cases, the user +dnl can change the choice through the options --enable-threads=choice or +dnl --disable-threads. +dnl Defines at most one of the macros USE_POSIX_THREADS, USE_WINDOWS_THREADS. +dnl Sets the variables LIBTHREAD and LTLIBTHREAD to the linker options for use +dnl in a Makefile (LIBTHREAD for use without libtool, LTLIBTHREAD for use with +dnl libtool). +dnl Sets the variables LIBMULTITHREAD and LTLIBMULTITHREAD similarly, for +dnl programs that really need multithread functionality. The difference +dnl between LIBTHREAD and LIBMULTITHREAD is that on platforms supporting weak +dnl symbols, typically LIBTHREAD is empty whereas LIBMULTITHREAD is not. +dnl Adds to CPPFLAGS the flag -D_REENTRANT or -D_THREAD_SAFE if needed for +dnl multithread-safe programs. +dnl Since support for GNU pth was removed, $LTLIBTHREAD and $LIBTHREAD have the +dnl same value, and similarly $LTLIBMULTITHREAD and $LIBMULTITHREAD have the +dnl same value. Only system libraries are needed. + +AC_DEFUN([gl_THREADLIB_EARLY], +[ + AC_REQUIRE([gl_THREADLIB_EARLY_BODY]) +]) + +dnl The guts of gl_THREADLIB_EARLY. Needs to be expanded only once. + +AC_DEFUN([gl_THREADLIB_EARLY_BODY], +[ + dnl Ordering constraints: This macro modifies CPPFLAGS in a way that + dnl influences the result of the autoconf tests that test for *_unlocked + dnl declarations, on AIX 5 at least. Therefore it must come early. + AC_BEFORE([$0], [gl_FUNC_GLIBC_UNLOCKED_IO])dnl + AC_BEFORE([$0], [gl_ARGP])dnl + + AC_REQUIRE([AC_CANONICAL_HOST]) + dnl _GNU_SOURCE is needed for pthread_rwlock_t on glibc systems. + AC_REQUIRE([AC_USE_SYSTEM_EXTENSIONS]) + dnl Check for multithreading. + m4_ifdef([gl_THREADLIB_DEFAULT_NO], + [m4_divert_text([DEFAULTS], [gl_use_threads_default=no])], + [m4_divert_text([DEFAULTS], [gl_use_threads_default=])]) + m4_divert_text([DEFAULTS], [gl_use_winpthreads_default=]) + AC_ARG_ENABLE([threads], +AC_HELP_STRING([--enable-threads={posix|windows}], [specify multithreading API])m4_ifdef([gl_THREADLIB_DEFAULT_NO], [], [ +AC_HELP_STRING([--disable-threads], [build without multithread safety])]), + [gl_use_threads=$enableval], + [if test -n "$gl_use_threads_default"; then + gl_use_threads="$gl_use_threads_default" + else +changequote(,)dnl + case "$host_os" in + dnl Disable multithreading by default on OSF/1, because it interferes + dnl with fork()/exec(): When msgexec is linked with -lpthread, its + dnl child process gets an endless segmentation fault inside execvp(). + osf*) gl_use_threads=no ;; + dnl Disable multithreading by default on Cygwin 1.5.x, because it has + dnl bugs that lead to endless loops or crashes. See + dnl . + cygwin*) + case `uname -r` in + 1.[0-5].*) gl_use_threads=no ;; + *) gl_use_threads=yes ;; + esac + ;; + dnl Obey gl_AVOID_WINPTHREAD on mingw. + mingw*) + case "$gl_use_winpthreads_default" in + yes) gl_use_threads=posix ;; + no) gl_use_threads=windows ;; + *) gl_use_threads=yes ;; + esac + ;; + *) gl_use_threads=yes ;; + esac +changequote([,])dnl + fi + ]) + if test "$gl_use_threads" = yes || test "$gl_use_threads" = posix; then + # For using : + case "$host_os" in + osf*) + # On OSF/1, the compiler needs the flag -D_REENTRANT so that it + # groks . cc also understands the flag -pthread, but + # we don't use it because 1. gcc-2.95 doesn't understand -pthread, + # 2. putting a flag into CPPFLAGS that has an effect on the linker + # causes the AC_LINK_IFELSE test below to succeed unexpectedly, + # leading to wrong values of LIBTHREAD and LTLIBTHREAD. + CPPFLAGS="$CPPFLAGS -D_REENTRANT" + ;; + esac + # Some systems optimize for single-threaded programs by default, and + # need special flags to disable these optimizations. For example, the + # definition of 'errno' in . + case "$host_os" in + aix* | freebsd*) CPPFLAGS="$CPPFLAGS -D_THREAD_SAFE" ;; + solaris*) CPPFLAGS="$CPPFLAGS -D_REENTRANT" ;; + esac + fi +]) + +dnl The guts of gl_THREADLIB. Needs to be expanded only once. + +AC_DEFUN([gl_THREADLIB_BODY], +[ + AC_REQUIRE([gl_THREADLIB_EARLY_BODY]) + gl_threads_api=none + LIBTHREAD= + LTLIBTHREAD= + LIBMULTITHREAD= + LTLIBMULTITHREAD= + if test "$gl_use_threads" != no; then + dnl Check whether the compiler and linker support weak declarations. + AC_CACHE_CHECK([whether imported symbols can be declared weak], + [gl_cv_have_weak], + [gl_cv_have_weak=no + dnl First, test whether the compiler accepts it syntactically. + AC_LINK_IFELSE( + [AC_LANG_PROGRAM( + [[extern void xyzzy (); +#pragma weak xyzzy]], + [[xyzzy();]])], + [gl_cv_have_weak=maybe]) + if test $gl_cv_have_weak = maybe; then + dnl Second, test whether it actually works. On Cygwin 1.7.2, with + dnl gcc 4.3, symbols declared weak always evaluate to the address 0. + AC_RUN_IFELSE( + [AC_LANG_SOURCE([[ +#include +#pragma weak fputs +int main () +{ + return (fputs == NULL); +}]])], + [gl_cv_have_weak=yes], + [gl_cv_have_weak=no], + [dnl When cross-compiling, assume that only ELF platforms support + dnl weak symbols. + AC_EGREP_CPP([Extensible Linking Format], + [#ifdef __ELF__ + Extensible Linking Format + #endif + ], + [gl_cv_have_weak="guessing yes"], + [gl_cv_have_weak="guessing no"]) + ]) + fi + dnl But when linking statically, weak symbols don't work. + case " $LDFLAGS " in + *" -static "*) gl_cv_have_weak=no ;; + esac + ]) + if case "$gl_cv_have_weak" in *yes) true;; *) false;; esac; then + dnl If we use weak symbols to implement pthread_in_use / pth_in_use / + dnl thread_in_use, we also need to test whether the ISO C 11 thrd_create + dnl facility is in use. + AC_CHECK_HEADERS_ONCE([threads.h]) + : + fi + if test "$gl_use_threads" = yes || test "$gl_use_threads" = posix; then + # On OSF/1, the compiler needs the flag -pthread or -D_REENTRANT so that + # it groks . It's added above, in gl_THREADLIB_EARLY_BODY. + AC_CHECK_HEADER([pthread.h], + [gl_have_pthread_h=yes], [gl_have_pthread_h=no]) + if test "$gl_have_pthread_h" = yes; then + # Other possible tests: + # -lpthreads (FSU threads, PCthreads) + # -lgthreads + gl_have_pthread= + # Test whether both pthread_mutex_lock and pthread_mutexattr_init exist + # in libc. IRIX 6.5 has the first one in both libc and libpthread, but + # the second one only in libpthread, and lock.c needs it. + # + # If -pthread works, prefer it to -lpthread, since Ubuntu 14.04 + # needs -pthread for some reason. See: + # https://lists.gnu.org/r/bug-gnulib/2014-09/msg00023.html + save_LIBS=$LIBS + for gl_pthread in '' '-pthread'; do + LIBS="$LIBS $gl_pthread" + AC_LINK_IFELSE( + [AC_LANG_PROGRAM( + [[#include + pthread_mutex_t m; + pthread_mutexattr_t ma; + ]], + [[pthread_mutex_lock (&m); + pthread_mutexattr_init (&ma);]])], + [gl_have_pthread=yes + LIBTHREAD=$gl_pthread LTLIBTHREAD=$gl_pthread + LIBMULTITHREAD=$gl_pthread LTLIBMULTITHREAD=$gl_pthread]) + LIBS=$save_LIBS + test -n "$gl_have_pthread" && break + done + + # Test for libpthread by looking for pthread_kill. (Not pthread_self, + # since it is defined as a macro on OSF/1.) + if test -n "$gl_have_pthread" && test -z "$LIBTHREAD"; then + # The program links fine without libpthread. But it may actually + # need to link with libpthread in order to create multiple threads. + AC_CHECK_LIB([pthread], [pthread_kill], + [LIBMULTITHREAD=-lpthread LTLIBMULTITHREAD=-lpthread + # On Solaris and HP-UX, most pthread functions exist also in libc. + # Therefore pthread_in_use() needs to actually try to create a + # thread: pthread_create from libc will fail, whereas + # pthread_create will actually create a thread. + # On Solaris 10 or newer, this test is no longer needed, because + # libc contains the fully functional pthread functions. + case "$host_os" in + solaris | solaris2.[1-9] | solaris2.[1-9].* | hpux*) + AC_DEFINE([PTHREAD_IN_USE_DETECTION_HARD], [1], + [Define if the pthread_in_use() detection is hard.]) + esac + ]) + elif test -z "$gl_have_pthread"; then + # Some library is needed. Try libpthread and libc_r. + AC_CHECK_LIB([pthread], [pthread_kill], + [gl_have_pthread=yes + LIBTHREAD=-lpthread LTLIBTHREAD=-lpthread + LIBMULTITHREAD=-lpthread LTLIBMULTITHREAD=-lpthread]) + if test -z "$gl_have_pthread"; then + # For FreeBSD 4. + AC_CHECK_LIB([c_r], [pthread_kill], + [gl_have_pthread=yes + LIBTHREAD=-lc_r LTLIBTHREAD=-lc_r + LIBMULTITHREAD=-lc_r LTLIBMULTITHREAD=-lc_r]) + fi + fi + if test -n "$gl_have_pthread"; then + gl_threads_api=posix + AC_DEFINE([USE_POSIX_THREADS], [1], + [Define if the POSIX multithreading library can be used.]) + if test -n "$LIBMULTITHREAD" || test -n "$LTLIBMULTITHREAD"; then + if case "$gl_cv_have_weak" in *yes) true;; *) false;; esac; then + AC_DEFINE([USE_POSIX_THREADS_WEAK], [1], + [Define if references to the POSIX multithreading library should be made weak.]) + LIBTHREAD= + LTLIBTHREAD= + fi + fi + fi + fi + fi + if test -z "$gl_have_pthread"; then + case "$gl_use_threads" in + yes | windows | win32) # The 'win32' is for backward compatibility. + if { case "$host_os" in + mingw*) true;; + *) false;; + esac + }; then + gl_threads_api=windows + AC_DEFINE([USE_WINDOWS_THREADS], [1], + [Define if the native Windows multithreading API can be used.]) + fi + ;; + esac + fi + fi + AC_MSG_CHECKING([for multithread API to use]) + AC_MSG_RESULT([$gl_threads_api]) + AC_SUBST([LIBTHREAD]) + AC_SUBST([LTLIBTHREAD]) + AC_SUBST([LIBMULTITHREAD]) + AC_SUBST([LTLIBMULTITHREAD]) +]) + +AC_DEFUN([gl_THREADLIB], +[ + AC_REQUIRE([gl_THREADLIB_EARLY]) + AC_REQUIRE([gl_THREADLIB_BODY]) +]) + + +dnl gl_DISABLE_THREADS +dnl ------------------ +dnl Sets the gl_THREADLIB default so that threads are not used by default. +dnl The user can still override it at installation time, by using the +dnl configure option '--enable-threads'. + +AC_DEFUN([gl_DISABLE_THREADS], [ + m4_divert_text([INIT_PREPARE], [gl_use_threads_default=no]) +]) + + +dnl gl_AVOID_WINPTHREAD +dnl ------------------- +dnl Sets the gl_THREADLIB default so that on mingw, a dependency to the +dnl libwinpthread DLL (mingw-w64 winpthreads library) is avoided. +dnl The user can still override it at installation time, by using the +dnl configure option '--enable-threads'. + +AC_DEFUN([gl_AVOID_WINPTHREAD], [ + m4_divert_text([INIT_PREPARE], [gl_use_winpthreads_default=no]) +]) + + +dnl Survey of platforms: +dnl +dnl Platform Available Compiler Supports test-lock +dnl flavours option weak result +dnl --------------- --------- --------- -------- --------- +dnl Linux 2.4/glibc posix -lpthread Y OK +dnl +dnl GNU Hurd/glibc posix +dnl +dnl Ubuntu 14.04 posix -pthread Y OK +dnl +dnl FreeBSD 5.3 posix -lc_r Y +dnl posix -lkse ? Y +dnl posix -lpthread ? Y +dnl posix -lthr Y +dnl +dnl FreeBSD 5.2 posix -lc_r Y +dnl posix -lkse Y +dnl posix -lthr Y +dnl +dnl FreeBSD 4.0,4.10 posix -lc_r Y OK +dnl +dnl NetBSD 1.6 -- +dnl +dnl OpenBSD 3.4 posix -lpthread Y OK +dnl +dnl Mac OS X 10.[123] posix -lpthread Y OK +dnl +dnl Solaris 7,8,9 posix -lpthread Y Sol 7,8: 0.0; Sol 9: OK +dnl +dnl HP-UX 11 posix -lpthread N (cc) OK +dnl Y (gcc) +dnl +dnl IRIX 6.5 posix -lpthread Y 0.5 +dnl +dnl AIX 4.3,5.1 posix -lpthread N AIX 4: 0.5; AIX 5: OK +dnl +dnl OSF/1 4.0,5.1 posix -pthread (cc) N OK +dnl -lpthread (gcc) Y +dnl +dnl Cygwin posix -lpthread Y OK +dnl +dnl Mingw windows N OK +dnl +dnl BeOS 5 -- +dnl +dnl The test-lock result shows what happens if in test-lock.c EXPLICIT_YIELD is +dnl turned off: +dnl OK if all three tests terminate OK, +dnl 0.5 if the first test terminates OK but the second one loops endlessly, +dnl 0.0 if the first test already loops endlessly. diff --git a/gnulib-m4/wint_t.m4 b/gnulib-m4/wint_t.m4 new file mode 100644 index 0000000..61e8a23 --- /dev/null +++ b/gnulib-m4/wint_t.m4 @@ -0,0 +1,74 @@ +# wint_t.m4 serial 7 +dnl Copyright (C) 2003, 2007-2019 Free Software Foundation, Inc. +dnl This file is free software; the Free Software Foundation +dnl gives unlimited permission to copy and/or distribute it, +dnl with or without modifications, as long as this notice is preserved. + +dnl From Bruno Haible. +dnl Test whether has the 'wint_t' type and whether gnulib's +dnl or would, if present, override 'wint_t'. +dnl Prerequisite: AC_PROG_CC + +AC_DEFUN([gt_TYPE_WINT_T], +[ + AC_CACHE_CHECK([for wint_t], [gt_cv_c_wint_t], + [AC_COMPILE_IFELSE( + [AC_LANG_PROGRAM( + [[ +/* Tru64 with Desktop Toolkit C has a bug: must be included before + . + BSD/OS 4.0.1 has a bug: , and must be included + before . */ +#include +#include +#include +#include + wint_t foo = (wchar_t)'\0';]], + [[]])], + [gt_cv_c_wint_t=yes], + [gt_cv_c_wint_t=no])]) + if test $gt_cv_c_wint_t = yes; then + AC_DEFINE([HAVE_WINT_T], [1], [Define if you have the 'wint_t' type.]) + + dnl Determine whether gnulib's or would, if present, + dnl override 'wint_t'. + AC_CACHE_CHECK([whether wint_t is too small], + [gl_cv_type_wint_t_too_small], + [AC_COMPILE_IFELSE( + [AC_LANG_PROGRAM([[ +/* Tru64 with Desktop Toolkit C has a bug: must be included before + . + BSD/OS 4.0.1 has a bug: , and must be + included before . */ +#if !(defined __GLIBC__ && !defined __UCLIBC__) +# include +# include +# include +#endif +#include + int verify[sizeof (wint_t) < sizeof (int) ? -1 : 1]; + ]])], + [gl_cv_type_wint_t_too_small=no], + [gl_cv_type_wint_t_too_small=yes])]) + if test $gl_cv_type_wint_t_too_small = yes; then + GNULIB_OVERRIDES_WINT_T=1 + else + GNULIB_OVERRIDES_WINT_T=0 + fi + else + GNULIB_OVERRIDES_WINT_T=0 + fi + AC_SUBST([GNULIB_OVERRIDES_WINT_T]) +]) + +dnl Prerequisites of the 'wint_t' override. +AC_DEFUN([gl_TYPE_WINT_T_PREREQ], +[ + AC_CHECK_HEADERS_ONCE([crtdefs.h]) + if test $ac_cv_header_crtdefs_h = yes; then + HAVE_CRTDEFS_H=1 + else + HAVE_CRTDEFS_H=0 + fi + AC_SUBST([HAVE_CRTDEFS_H]) +]) diff --git a/m4/as-underscore.m4 b/m4/as-underscore.m4 new file mode 100644 index 0000000..92dc7f9 --- /dev/null +++ b/m4/as-underscore.m4 @@ -0,0 +1,24 @@ +dnl -*- Autoconf -*- +dnl Copyright (C) 1993-2017 Free Software Foundation, Inc. +dnl This file is free software, distributed under the terms of the GNU +dnl General Public License as published by the Free Software Foundation; +dnl either version 2 of the License, or (at your option) any later version. +dnl As a special exception to the GNU General Public License, this file +dnl may be distributed as part of a program that contains a configuration +dnl script generated by Autoconf, under the same distribution terms as +dnl the rest of that program. + +dnl From Bruno Haible, Marcus Daniels, Sam Steingold. + +AC_PREREQ([2.57]) + +AC_DEFUN([CL_AS_UNDERSCORE], +[ + AC_REQUIRE([gl_ASM_SYMBOL_PREFIX]) + if test "$USER_LABEL_PREFIX" = '_'; then + AS_UNDERSCORE=true + else + AS_UNDERSCORE=false + fi + AC_SUBST([AS_UNDERSCORE]) +]) diff --git a/m4/cc-gcc.m4 b/m4/cc-gcc.m4 new file mode 100644 index 0000000..1e12d8e --- /dev/null +++ b/m4/cc-gcc.m4 @@ -0,0 +1,36 @@ +dnl -*- Autoconf -*- +dnl Copyright (C) 1993-2017 Free Software Foundation, Inc. +dnl This file is free software, distributed under the terms of the GNU +dnl General Public License as published by the Free Software Foundation; +dnl either version 2 of the License, or (at your option) any later version. +dnl As a special exception to the GNU General Public License, this file +dnl may be distributed as part of a program that contains a configuration +dnl script generated by Autoconf, under the same distribution terms as +dnl the rest of that program. + +dnl From Bruno Haible, Marcus Daniels. + +AC_PREREQ([2.13]) + +AC_DEFUN([CL_CC_GCC], +[ + AC_REQUIRE([AC_PROG_CPP]) + AC_CACHE_CHECK([whether using GNU C], [cl_cv_prog_cc_gcc], + [AC_EGREP_CPP([yes], + [#ifdef __GNUC__ + yes + #endif + ], + [cl_cv_prog_cc_gcc=yes], + [cl_cv_prog_cc_gcc=no]) + ]) + if test $cl_cv_prog_cc_gcc = yes; then + CC_GCC=true + GCC_X_NONE='-x none' + else + CC_GCC=false + GCC_X_NONE='' + fi + AC_SUBST([CC_GCC]) + AC_SUBST([GCC_X_NONE]) +]) diff --git a/m4/codeexec.m4 b/m4/codeexec.m4 new file mode 100644 index 0000000..2d9eab3 --- /dev/null +++ b/m4/codeexec.m4 @@ -0,0 +1,362 @@ +dnl -*- Autoconf -*- +dnl Copyright (C) 1993-2017 Free Software Foundation, Inc. +dnl This file is free software, distributed under the terms of the GNU +dnl General Public License as published by the Free Software Foundation; +dnl either version 2 of the License, or (at your option) any later version. +dnl As a special exception to the GNU General Public License, this file +dnl may be distributed as part of a program that contains a configuration +dnl script generated by Autoconf, under the same distribution terms as +dnl the rest of that program. + +dnl From Bruno Haible, Marcus Daniels, Sam Steingold. + +AC_PREREQ([2.13]) + +AC_DEFUN([CE_DOC],[whether code in malloc()ed memory is executable]) +AC_DEFUN([FFCALL_CODEEXEC], +[ + AC_REQUIRE([AC_CANONICAL_HOST]) + AC_REQUIRE([gl_HOST_CPU_C_ABI]) + AC_CACHE_CHECK([CE_DOC], [ffcall_cv_codeexec], + [dnl The test below does not work on platforms with the following ABIs: + dnl - hppa, because function pointers are actually pointers into(!) + dnl a two-pointer struct. + dnl - hppa64, because function pointers are actually pointers to a + dnl four-pointer struct. + dnl - powerpc on AIX, powerpc64, because function pointers are actually + dnl pointers to a three-pointer struct. + dnl - ia64, because function pointers are actually pointers to a + dnl two-pointer struct. + case "$HOST_CPU_C_ABI--$host_os" in + hppa--* | hppa64--* | powerpc--aix* | powerpc64--* | ia64--*) + dnl On these platforms, it's irrelevant whether malloc'ed memory is + dnl executable, because the trampolines are built without executable + dnl code. + ffcall_cv_codeexec="irrelevant" + ;; + arm64--freebsd*) + dnl On this platform, malloc()ed memory is not executable, and the + dnl test program loops endlessly. + ffcall_cv_codeexec=no + ;; + *) + AC_TRY_RUN(GL_NOCRASH + [#include + /* declare malloc() */ + #include + int fun () { return 31415926; } + int main () + { nocrash_init(); + {long size = (char*)&main - (char*)&fun; + char* funcopy = (char*) malloc(size); + int i; + for (i = 0; i < size; i++) { funcopy[i] = ((char*)&fun)[i]; } + return !((*(int(*)())funcopy)() == 31415926); + }} + ], + [ffcall_cv_codeexec=yes], + [ffcall_cv_codeexec=no], + [dnl When cross-compiling, assume the known behaviour. + dnl If we don't know, assume the worst. + case "$host_os" in + cygwin*) + case "$HOST_CPU_C_ABI" in + i386) + ffcall_cv_codeexec="guessing yes" ;; + x86_64) + ffcall_cv_codeexec="guessing no" ;; + *) + ffcall_cv_codeexec="guessing no" ;; + esac + ;; + darwin*) + case "$HOST_CPU_C_ABI" in + i386 | powerpc) + ffcall_cv_codeexec="guessing yes" ;; + x86_64) + ffcall_cv_codeexec="guessing no" ;; + *) + ffcall_cv_codeexec="guessing no" ;; + esac + ;; + irix*) + ffcall_cv_codeexec="guessing no" ;; + linux*) + case "$HOST_CPU_C_ABI" in + alpha | ia64) + ffcall_cv_codeexec="guessing yes" ;; + arm | armhf | arm64 | i386 | mips* | s390 | s390x | sparc | sparc64 | x86_64*) + ffcall_cv_codeexec="guessing no" ;; + *) + ffcall_cv_codeexec="guessing no" ;; + esac + ;; + solaris*) + case "$HOST_CPU_C_ABI" in + i386 | sparc | sparc64) + ffcall_cv_codeexec="guessing yes" ;; + x86_64) + ffcall_cv_codeexec="guessing no" ;; + *) + ffcall_cv_codeexec="guessing no" ;; + esac + ;; + *) + ffcall_cv_codeexec="guessing no" ;; + esac + ]) + ;; + esac + ]) + case "$ffcall_cv_codeexec" in + *yes | irrelevant) AC_DEFINE([CODE_EXECUTABLE], [], CE_DOC) ;; + *no) ;; + esac +]) + +dnl Test how to use the mprotect function to make memory executable. +dnl Test against the mprotect limitations found in PaX enabled Linux kernels +dnl and HardenedBSD. +AC_DEFUN([FFCALL_CODEEXEC_PAX], +[ + AC_REQUIRE([FFCALL_MMAP]) + AC_REQUIRE([FFCALL_MPROTECT]) + AC_REQUIRE([FFCALL_CODEEXEC]) + AC_REQUIRE([AC_CANONICAL_HOST]) + case "$ffcall_cv_codeexec" in + *yes | irrelevant) ;; + *) + case "$ac_cv_func_mprotect--$cl_cv_func_mprotect_works" in + yes--*yes) + AC_CACHE_CHECK([whether mprotect can make malloc()ed memory executable], + [ffcall_cv_malloc_mprotect_can_exec], + [dnl On RHEL 6 / CentOS 6 with SELinux enabled, the result of + dnl this test depends on SELinux flags that can be changed at + dnl runtime: By default, the result is 'no'. However, when the flag + dnl allow_execheap is turned on, the result is 'yes'. But the flag + dnl can be turned off again at any moment. + if test "$cross_compiling" != yes -a -d /etc/selinux; then + ffcall_cv_malloc_mprotect_can_exec='determined by SELinux at runtime' + else + AC_TRY_RUN( + [#include + #include + #ifdef HAVE_UNISTD_H + #include + #endif + #include + /* declare getpagesize() and mprotect() */ + #include + #ifndef HAVE_GETPAGESIZE + #include + #define getpagesize() PAGESIZE + #else + ]AC_LANG_EXTERN[ + RETGETPAGESIZETYPE getpagesize (void); + #endif + int + main () + { + unsigned int pagesize = getpagesize (); + char *p = (char *) malloc (50); + int ret; + if (p == (char*) -1) + /* malloc is not working as expected. */ + return 1; + p[5] = 0x77; + ret = mprotect (p - ((unsigned int) p & (pagesize - 1)), pagesize, PROT_READ | PROT_WRITE | PROT_EXEC); + if (ret < 0 + && (errno == EACCES || errno == ENOMEM + #ifdef ENOTSUP + || errno == ENOTSUP + #endif + ) ) + /* mprotect is forbidden to make malloc()ed pages executable that were writable earlier. */ + return 2; + return 0; + } + ], + [ffcall_cv_malloc_mprotect_can_exec=yes], + [dnl When cross-compiling, assume SELinux on Linux. + dnl If we don't know, assume the worst. + case "$host_os" in + linux*) + ffcall_cv_malloc_mprotect_can_exec='determined by SELinux at runtime' ;; + aix* | cygwin* | darwin* | irix* | solaris*) + ffcall_cv_malloc_mprotect_can_exec="guessing yes" ;; + *) + ffcall_cv_malloc_mprotect_can_exec="guessing no" ;; + esac + ]) + fi + ]) + case "$ffcall_cv_malloc_mprotect_can_exec" in + *yes) MPROTECT_AFTER_MALLOC_CAN_EXEC=1 ;; + *no) MPROTECT_AFTER_MALLOC_CAN_EXEC=0 ;; + *runtime*) MPROTECT_AFTER_MALLOC_CAN_EXEC='-1' ;; + esac + AC_DEFINE_UNQUOTED([HAVE_MPROTECT_AFTER_MALLOC_CAN_EXEC], [$MPROTECT_AFTER_MALLOC_CAN_EXEC], + [have an mprotect() function that can make malloc()ed memory pages executable]) + case "$ffcall_cv_malloc_mprotect_can_exec" in + *yes) ;; + *) + AC_CACHE_CHECK([whether mprotect can make mmap()ed memory executable], + [ffcall_cv_mmap_mprotect_can_exec], + [dnl On RHEL 6 / CentOS 6 with SELinux enabled, the result of + dnl this test depends on SELinux flags that can be changed at + dnl runtime: By default, the result is 'yes'. However, when the flags + dnl allow_execmem and allow_execstack are turned off, the result is + dnl 'no'. + if test "$cross_compiling" != yes -a -d /etc/selinux; then + ffcall_cv_mmap_mprotect_can_exec='determined by SELinux at runtime' + else + AC_TRY_RUN( + [#include + #include + #ifdef HAVE_UNISTD_H + #include + #endif + #include + /* declare getpagesize() and mprotect() */ + #include + #ifndef HAVE_GETPAGESIZE + #include + #define getpagesize() PAGESIZE + #else + ]AC_LANG_EXTERN[ + RETGETPAGESIZETYPE getpagesize (void); + #endif + #ifndef MAP_FILE + #define MAP_FILE 0 + #endif + #ifndef MAP_VARIABLE + #define MAP_VARIABLE 0 + #endif + int + main () + { + unsigned int pagesize = getpagesize (); + char *p; + int ret; + #if defined HAVE_MMAP_ANON + p = (char *) mmap (NULL, pagesize, PROT_READ | PROT_WRITE, MAP_PRIVATE | MAP_ANON | MAP_VARIABLE, -1, 0); + #elif defined HAVE_MMAP_ANONYMOUS + p = (char *) mmap (NULL, pagesize, PROT_READ | PROT_WRITE, MAP_PRIVATE | MAP_ANONYMOUS | MAP_VARIABLE, -1, 0); + #elif defined HAVE_MMAP_DEVZERO + int zero_fd = open("/dev/zero", O_RDONLY, 0666); + if (zero_fd < 0) + return 1; + p = (char *) mmap (NULL, pagesize, PROT_READ | PROT_WRITE, MAP_PRIVATE | MAP_FILE | MAP_VARIABLE, zero_fd, 0); + #else + ?? + #endif + if (p == (char*) -1) + /* mmap is not working as expected. */ + return 1; + p[5] = 0x77; + ret = mprotect (p, pagesize, PROT_READ | PROT_WRITE | PROT_EXEC); + if (ret < 0 + && (errno == EACCES || errno == ENOMEM + #ifdef ENOTSUP + || errno == ENOTSUP + #endif + ) ) + /* mprotect is forbidden to make mmap()ed pages executable that were writable earlier. */ + return 2; + return 0; + } + ], + [ffcall_cv_mmap_mprotect_can_exec=yes], + [dnl When cross-compiling, assume SELinux on Linux. + dnl If we don't know, assume the worst. + case "$host_os" in + linux*) ffcall_cv_mmap_mprotect_can_exec='determined by SELinux at runtime' ;; + *) ffcall_cv_mmap_mprotect_can_exec="guessing no" ;; + esac + ]) + fi + ]) + case "$ffcall_cv_mmap_mprotect_can_exec" in + *yes) MPROTECT_AFTER_MMAP_CAN_EXEC=1 ;; + *no) MPROTECT_AFTER_MMAP_CAN_EXEC=0 ;; + *runtime*) MPROTECT_AFTER_MMAP_CAN_EXEC='-1' ;; + esac + AC_DEFINE_UNQUOTED([HAVE_MPROTECT_AFTER_MMAP_CAN_EXEC], [$MPROTECT_AFTER_MMAP_CAN_EXEC], + [have an mprotect() function that can make mmap()ed memory pages executable]) + case "$ffcall_cv_mmap_mprotect_can_exec" in + *yes) ;; + *) + AC_CACHE_CHECK([whether a shared mmap can make memory pages executable], + [ffcall_cv_mmap_shared_can_exec], + [filename="/tmp/trampdata$$.data" + AC_TRY_RUN( + [#include + #include + #ifdef HAVE_UNISTD_H + #include + #endif + /* declare getpagesize() and mmap() */ + #include + #ifndef HAVE_GETPAGESIZE + #include + #define getpagesize() PAGESIZE + #else + ]AC_LANG_EXTERN[ + RETGETPAGESIZETYPE getpagesize (void); + #endif + #ifndef MAP_FILE + #define MAP_FILE 0 + #endif + #ifndef MAP_VARIABLE + #define MAP_VARIABLE 0 + #endif + int + main () + { + unsigned int pagesize = getpagesize (); + int fd; + char *pw; + char *px; + fd = open ("$filename", O_CREAT | O_RDWR | O_TRUNC, 0700); + if (fd < 0) + return 1; + if (ftruncate (fd, pagesize) < 0) + return 2; + pw = (char *) mmap (NULL, pagesize, PROT_READ | PROT_WRITE, MAP_SHARED | MAP_FILE | MAP_VARIABLE, fd, 0); + if (pw == (char*) -1) + return 3; + pw[5] = 0xc3; + px = (char *) mmap (NULL, pagesize, PROT_READ | PROT_EXEC, MAP_SHARED | MAP_FILE | MAP_VARIABLE, fd, 0); + if (px == (char*) -1) + return 4; + if ((char)px[5] != (char)0xc3) + return 5; + /* On i386 and x86_64 this is a 'ret' instruction that we can invoke. */ + #if (defined __i386 || defined __i386__ || defined _I386 || defined _M_IX86 || defined _X86_) || (defined __x86_64__ || defined __amd64__) + ((void (*) (void)) (px + 5)) (); + #endif + return 0; + } + ], + [ffcall_cv_mmap_shared_can_exec=yes], + [dnl When cross-compiling, assume yes, since this is the result + dnl on all the platforms where we have tested it. + ffcall_cv_mmap_shared_can_exec="guessing yes" + ]) + rm -f "$filename" + ]) + case "$ffcall_cv_mmap_shared_can_exec" in + *yes) + AC_DEFINE([HAVE_MMAP_SHARED_CAN_EXEC], [], + [have an mmap() function that, with MAP_SHARED, can make memory pages executable]) + ;; + esac + ;; + esac + ;; + esac + ;; + esac + ;; + esac +]) diff --git a/m4/endianness.m4 b/m4/endianness.m4 new file mode 100644 index 0000000..51f1a3d --- /dev/null +++ b/m4/endianness.m4 @@ -0,0 +1,70 @@ +# endianness.m4 serial 1 +dnl Copyright (C) 2017 Free Software Foundation, Inc. +dnl This file is free software; the Free Software Foundation +dnl gives unlimited permission to copy and/or distribute it, +dnl with or without modifications, as long as this notice is preserved. + +dnl From Bruno Haible. + +dnl For specific bi-endian CPUs, sets the ENDIANNESS variable to either +dnl 'eb' (means big endian) or 'el' (means little endian). +dnl +dnl This variable can be used to select a particular assembly language +dnl source file that will interoperate with C code on the given host. +AC_DEFUN([FFCALL_ENDIANNESS], +[ + AC_REQUIRE([AC_CANONICAL_HOST]) + case "$host_cpu" in + arm* ) + AC_CACHE_CHECK([endianness], [ffcall_cv_endianness], + [AC_EGREP_CPP([yes], + [#if defined __ARMEL__ + yes + #endif], + [ffcall_cv_endianness=little], + [ffcall_cv_endianness=big])]) + ;; + mips* ) + AC_CACHE_CHECK([endianness], [ffcall_cv_endianness], + [# Compilers on IRIX define only _MIPSEB as indicator. + # Compilers on Linux define _MIPSEB, __MIPSEB__, __MIPSEB or - in + # the opposite case - _MIPSEL, __MIPSEL__, __MIPSEL. + AC_EGREP_CPP([yes], + [#if defined _MIPSEB + yes + #endif], + [ffcall_cv_endianness=big], + [AC_EGREP_CPP([yes], + [#if defined _MIPSEL + yes + #endif], + [ffcall_cv_endianness=little], + [ffcall_cv_endianness=unknown])]) + ]) + ;; + powerpc*) + AC_CACHE_CHECK([endianness], [ffcall_cv_endianness], + [# Compilers on AIX and Linux define _BIG_ENDIAN, __BIG_ENDIAN__ or + # - in the opposite case - _LITTLE_ENDIAN, __LITTLE_ENDIAN__. + AC_EGREP_CPP([yes], + [#if defined _BIG_ENDIAN + yes + #endif], + [ffcall_cv_endianness=big], + [AC_EGREP_CPP([yes], + [#if defined _LITTLE_ENDIAN + yes + #endif], + [ffcall_cv_endianness=little], + [ffcall_cv_endianness=unknown])]) + ]) + ;; + *) ffcall_cv_endianness=known ;; + esac + case "$ffcall_cv_endianness" in + big) ENDIANNESS='eb' ;; + little) ENDIANNESS='el' ;; + *) ENDIANNESS='' ;; + esac + AC_SUBST([ENDIANNESS]) +]) diff --git a/m4/general.m4 b/m4/general.m4 new file mode 100644 index 0000000..329d5b1 --- /dev/null +++ b/m4/general.m4 @@ -0,0 +1,34 @@ +dnl -*- Autoconf -*- +dnl Copyright (C) 1993-2017 Free Software Foundation, Inc. +dnl This file is free software, distributed under the terms of the GNU +dnl General Public License as published by the Free Software Foundation; +dnl either version 2 of the License, or (at your option) any later version. +dnl As a special exception to the GNU General Public License, this file +dnl may be distributed as part of a program that contains a configuration +dnl script generated by Autoconf, under the same distribution terms as +dnl the rest of that program. + +dnl From Bruno Haible, Marcus Daniels, Sam Steingold. + +AC_PREREQ([2.61]) + +AC_DEFUN([CL_CHECK], +[ + AC_CACHE_CHECK([for $2],[$3], + [$1([AC_LANG_PROGRAM([$4],[$5])],[$3=yes],[$3=no])]) + AS_IF([test $$3 = yes], [$6], [$7]) +]) + +AC_DEFUN([CL_LINK_CHECK], +[ + CL_CHECK([AC_LINK_IFELSE],$@) +]) + +dnl Expands to the "extern ..." prefix used for system declarations. +dnl AC_LANG_EXTERN +AC_DEFUN([AC_LANG_EXTERN], +[extern +#ifdef __cplusplus +"C" +#endif +]) diff --git a/m4/getpagesize.m4 b/m4/getpagesize.m4 new file mode 100644 index 0000000..291af73 --- /dev/null +++ b/m4/getpagesize.m4 @@ -0,0 +1,47 @@ +dnl -*- Autoconf -*- +dnl Copyright (C) 1993-2017 Free Software Foundation, Inc. +dnl This file is free software, distributed under the terms of the GNU +dnl General Public License as published by the Free Software Foundation; +dnl either version 2 of the License, or (at your option) any later version. +dnl As a special exception to the GNU General Public License, this file +dnl may be distributed as part of a program that contains a configuration +dnl script generated by Autoconf, under the same distribution terms as +dnl the rest of that program. + +dnl From Bruno Haible, Marcus Daniels, Sam Steingold. + +AC_PREREQ([2.57]) + +AC_DEFUN([CL_GETPAGESIZE], +[ + CL_LINK_CHECK([getpagesize], [cl_cv_func_getpagesize], + [#ifdef HAVE_UNISTD_H + #include + #include + #endif + ], + [getpagesize();], + [ + AC_DEFINE([HAVE_GETPAGESIZE], [], [have getpagesize()]) + have_getpagesize=1 + ]) + if test -n "$have_getpagesize"; then + CL_PROTO([getpagesize], + [CL_PROTO_RET( + [#include + #ifdef HAVE_UNISTD_H + #include + #endif + ], + [int getpagesize();], + [cl_cv_proto_getpagesize_ret], [int], [size_t]) + ], + [extern $cl_cv_proto_getpagesize_ret getpagesize (void);]) + AC_DEFINE_UNQUOTED([RETGETPAGESIZETYPE], [$cl_cv_proto_getpagesize_ret], + [return type of getpagesize()]) + else + dnl Otherwise we use PAGESIZE defined in . + dnl But mingw32 doesn't have . + AC_CHECK_HEADERS([sys/param.h]) + fi +]) diff --git a/m4/ireg.m4 b/m4/ireg.m4 new file mode 100644 index 0000000..bd83d31 --- /dev/null +++ b/m4/ireg.m4 @@ -0,0 +1,40 @@ +dnl -*- Autoconf -*- +dnl Copyright (C) 1993-2017 Free Software Foundation, Inc. +dnl This file is free software, distributed under the terms of the GNU +dnl General Public License as published by the Free Software Foundation; +dnl either version 2 of the License, or (at your option) any later version. +dnl As a special exception to the GNU General Public License, this file +dnl may be distributed as part of a program that contains a configuration +dnl script generated by Autoconf, under the same distribution terms as +dnl the rest of that program. + +dnl From Bruno Haible, Marcus Daniels, Sam Steingold. + +AC_PREREQ([2.13]) + +AC_DEFUN([IREG_DOC],[whether floats are returned in integer registers]) +AC_DEFUN([FFCALL_IREG_FLOAT_RETURN], +[ + AC_CACHE_CHECK([IREG_DOC], [ffcall_cv_c_float_return_ireg], + [AC_TRY_RUN(GL_NOCRASH + [float x = (float)1.2; + float y = (float)1.3; + float fun () { return x*y; } + int main() + { nocrash_init(); + {int val = (* (int (*) ()) fun) (); + return !(val == 0x3FC7AE15 || val == 0x15AEC73F); + }} + ], + [ffcall_cv_c_float_return_ireg=yes], + [ffcall_cv_c_float_return_ireg=no], + [dnl When cross-compiling, assume no, because that's how it comes out on + dnl most platforms with floating-point unit, including m68k-linux. + ffcall_cv_c_float_return_ireg="guessing no" + ]) + ]) + case "$ffcall_cv_c_float_return_ireg" in + *yes) AC_DEFINE([__IREG_FLOAT_RETURN__], [], IREG_DOC) ;; + *no) ;; + esac +]) diff --git a/m4/libtool.m4 b/m4/libtool.m4 new file mode 100644 index 0000000..2851b20 --- /dev/null +++ b/m4/libtool.m4 @@ -0,0 +1,8369 @@ +# libtool.m4 - Configure libtool for the host system. -*-Autoconf-*- +# +# Copyright (C) 1996-2001, 2003-2015 Free Software Foundation, Inc. +# Written by Gordon Matzigkeit, 1996 +# +# This file is free software; the Free Software Foundation gives +# unlimited permission to copy and/or distribute it, with or without +# modifications, as long as this notice is preserved. + +m4_define([_LT_COPYING], [dnl +# Copyright (C) 2014 Free Software Foundation, Inc. +# This is free software; see the source for copying conditions. There is NO +# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +# GNU Libtool is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of of the License, or +# (at your option) any later version. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program or library that is built +# using GNU Libtool, you may include this file under the same +# distribution terms that you use for the rest of that program. +# +# GNU Libtool is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . +]) + +# serial 58 LT_INIT + + +# LT_PREREQ(VERSION) +# ------------------ +# Complain and exit if this libtool version is less that VERSION. +m4_defun([LT_PREREQ], +[m4_if(m4_version_compare(m4_defn([LT_PACKAGE_VERSION]), [$1]), -1, + [m4_default([$3], + [m4_fatal([Libtool version $1 or higher is required], + 63)])], + [$2])]) + + +# _LT_CHECK_BUILDDIR +# ------------------ +# Complain if the absolute build directory name contains unusual characters +m4_defun([_LT_CHECK_BUILDDIR], +[case `pwd` in + *\ * | *\ *) + AC_MSG_WARN([Libtool does not cope well with whitespace in `pwd`]) ;; +esac +]) + + +# LT_INIT([OPTIONS]) +# ------------------ +AC_DEFUN([LT_INIT], +[AC_PREREQ([2.62])dnl We use AC_PATH_PROGS_FEATURE_CHECK +AC_REQUIRE([AC_CONFIG_AUX_DIR_DEFAULT])dnl +AC_BEFORE([$0], [LT_LANG])dnl +AC_BEFORE([$0], [LT_OUTPUT])dnl +AC_BEFORE([$0], [LTDL_INIT])dnl +m4_require([_LT_CHECK_BUILDDIR])dnl + +dnl Autoconf doesn't catch unexpanded LT_ macros by default: +m4_pattern_forbid([^_?LT_[A-Z_]+$])dnl +m4_pattern_allow([^(_LT_EOF|LT_DLGLOBAL|LT_DLLAZY_OR_NOW|LT_MULTI_MODULE)$])dnl +dnl aclocal doesn't pull ltoptions.m4, ltsugar.m4, or ltversion.m4 +dnl unless we require an AC_DEFUNed macro: +AC_REQUIRE([LTOPTIONS_VERSION])dnl +AC_REQUIRE([LTSUGAR_VERSION])dnl +AC_REQUIRE([LTVERSION_VERSION])dnl +AC_REQUIRE([LTOBSOLETE_VERSION])dnl +m4_require([_LT_PROG_LTMAIN])dnl + +_LT_SHELL_INIT([SHELL=${CONFIG_SHELL-/bin/sh}]) + +dnl Parse OPTIONS +_LT_SET_OPTIONS([$0], [$1]) + +# This can be used to rebuild libtool when needed +LIBTOOL_DEPS=$ltmain + +# Always use our own libtool. +LIBTOOL='$(SHELL) $(top_builddir)/libtool' +AC_SUBST(LIBTOOL)dnl + +_LT_SETUP + +# Only expand once: +m4_define([LT_INIT]) +])# LT_INIT + +# Old names: +AU_ALIAS([AC_PROG_LIBTOOL], [LT_INIT]) +AU_ALIAS([AM_PROG_LIBTOOL], [LT_INIT]) +dnl aclocal-1.4 backwards compatibility: +dnl AC_DEFUN([AC_PROG_LIBTOOL], []) +dnl AC_DEFUN([AM_PROG_LIBTOOL], []) + + +# _LT_PREPARE_CC_BASENAME +# ----------------------- +m4_defun([_LT_PREPARE_CC_BASENAME], [ +# Calculate cc_basename. Skip known compiler wrappers and cross-prefix. +func_cc_basename () +{ + for cc_temp in @S|@*""; do + case $cc_temp in + compile | *[[\\/]]compile | ccache | *[[\\/]]ccache ) ;; + distcc | *[[\\/]]distcc | purify | *[[\\/]]purify ) ;; + \-*) ;; + *) break;; + esac + done + func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` +} +])# _LT_PREPARE_CC_BASENAME + + +# _LT_CC_BASENAME(CC) +# ------------------- +# It would be clearer to call AC_REQUIREs from _LT_PREPARE_CC_BASENAME, +# but that macro is also expanded into generated libtool script, which +# arranges for $SED and $ECHO to be set by different means. +m4_defun([_LT_CC_BASENAME], +[m4_require([_LT_PREPARE_CC_BASENAME])dnl +AC_REQUIRE([_LT_DECL_SED])dnl +AC_REQUIRE([_LT_PROG_ECHO_BACKSLASH])dnl +func_cc_basename $1 +cc_basename=$func_cc_basename_result +]) + + +# _LT_FILEUTILS_DEFAULTS +# ---------------------- +# It is okay to use these file commands and assume they have been set +# sensibly after 'm4_require([_LT_FILEUTILS_DEFAULTS])'. +m4_defun([_LT_FILEUTILS_DEFAULTS], +[: ${CP="cp -f"} +: ${MV="mv -f"} +: ${RM="rm -f"} +])# _LT_FILEUTILS_DEFAULTS + + +# _LT_SETUP +# --------- +m4_defun([_LT_SETUP], +[AC_REQUIRE([AC_CANONICAL_HOST])dnl +AC_REQUIRE([AC_CANONICAL_BUILD])dnl +AC_REQUIRE([_LT_PREPARE_SED_QUOTE_VARS])dnl +AC_REQUIRE([_LT_PROG_ECHO_BACKSLASH])dnl + +_LT_DECL([], [PATH_SEPARATOR], [1], [The PATH separator for the build system])dnl +dnl +_LT_DECL([], [host_alias], [0], [The host system])dnl +_LT_DECL([], [host], [0])dnl +_LT_DECL([], [host_os], [0])dnl +dnl +_LT_DECL([], [build_alias], [0], [The build system])dnl +_LT_DECL([], [build], [0])dnl +_LT_DECL([], [build_os], [0])dnl +dnl +AC_REQUIRE([AC_PROG_CC])dnl +AC_REQUIRE([LT_PATH_LD])dnl +AC_REQUIRE([LT_PATH_NM])dnl +dnl +AC_REQUIRE([AC_PROG_LN_S])dnl +test -z "$LN_S" && LN_S="ln -s" +_LT_DECL([], [LN_S], [1], [Whether we need soft or hard links])dnl +dnl +AC_REQUIRE([LT_CMD_MAX_LEN])dnl +_LT_DECL([objext], [ac_objext], [0], [Object file suffix (normally "o")])dnl +_LT_DECL([], [exeext], [0], [Executable file suffix (normally "")])dnl +dnl +m4_require([_LT_FILEUTILS_DEFAULTS])dnl +m4_require([_LT_CHECK_SHELL_FEATURES])dnl +m4_require([_LT_PATH_CONVERSION_FUNCTIONS])dnl +m4_require([_LT_CMD_RELOAD])dnl +m4_require([_LT_CHECK_MAGIC_METHOD])dnl +m4_require([_LT_CHECK_SHAREDLIB_FROM_LINKLIB])dnl +m4_require([_LT_CMD_OLD_ARCHIVE])dnl +m4_require([_LT_CMD_GLOBAL_SYMBOLS])dnl +m4_require([_LT_WITH_SYSROOT])dnl +m4_require([_LT_CMD_TRUNCATE])dnl + +_LT_CONFIG_LIBTOOL_INIT([ +# See if we are running on zsh, and set the options that allow our +# commands through without removal of \ escapes INIT. +if test -n "\${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST +fi +]) +if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST +fi + +_LT_CHECK_OBJDIR + +m4_require([_LT_TAG_COMPILER])dnl + +case $host_os in +aix3*) + # AIX sometimes has problems with the GCC collect2 program. For some + # reason, if we set the COLLECT_NAMES environment variable, the problems + # vanish in a puff of smoke. + if test set != "${COLLECT_NAMES+set}"; then + COLLECT_NAMES= + export COLLECT_NAMES + fi + ;; +esac + +# Global variables: +ofile=libtool +can_build_shared=yes + +# All known linkers require a '.a' archive for static linking (except MSVC, +# which needs '.lib'). +libext=a + +with_gnu_ld=$lt_cv_prog_gnu_ld + +old_CC=$CC +old_CFLAGS=$CFLAGS + +# Set sane defaults for various variables +test -z "$CC" && CC=cc +test -z "$LTCC" && LTCC=$CC +test -z "$LTCFLAGS" && LTCFLAGS=$CFLAGS +test -z "$LD" && LD=ld +test -z "$ac_objext" && ac_objext=o + +_LT_CC_BASENAME([$compiler]) + +# Only perform the check for file, if the check method requires it +test -z "$MAGIC_CMD" && MAGIC_CMD=file +case $deplibs_check_method in +file_magic*) + if test "$file_magic_cmd" = '$MAGIC_CMD'; then + _LT_PATH_MAGIC + fi + ;; +esac + +# Use C for the default configuration in the libtool script +LT_SUPPORTED_TAG([CC]) +_LT_LANG_C_CONFIG +_LT_LANG_DEFAULT_CONFIG +_LT_CONFIG_COMMANDS +])# _LT_SETUP + + +# _LT_PREPARE_SED_QUOTE_VARS +# -------------------------- +# Define a few sed substitution that help us do robust quoting. +m4_defun([_LT_PREPARE_SED_QUOTE_VARS], +[# Backslashify metacharacters that are still active within +# double-quoted strings. +sed_quote_subst='s/\([["`$\\]]\)/\\\1/g' + +# Same as above, but do not quote variable references. +double_quote_subst='s/\([["`\\]]\)/\\\1/g' + +# Sed substitution to delay expansion of an escaped shell variable in a +# double_quote_subst'ed string. +delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' + +# Sed substitution to delay expansion of an escaped single quote. +delay_single_quote_subst='s/'\''/'\'\\\\\\\'\''/g' + +# Sed substitution to avoid accidental globbing in evaled expressions +no_glob_subst='s/\*/\\\*/g' +]) + +# _LT_PROG_LTMAIN +# --------------- +# Note that this code is called both from 'configure', and 'config.status' +# now that we use AC_CONFIG_COMMANDS to generate libtool. Notably, +# 'config.status' has no value for ac_aux_dir unless we are using Automake, +# so we pass a copy along to make sure it has a sensible value anyway. +m4_defun([_LT_PROG_LTMAIN], +[m4_ifdef([AC_REQUIRE_AUX_FILE], [AC_REQUIRE_AUX_FILE([ltmain.sh])])dnl +_LT_CONFIG_LIBTOOL_INIT([ac_aux_dir='$ac_aux_dir']) +ltmain=$ac_aux_dir/ltmain.sh +])# _LT_PROG_LTMAIN + + +## ------------------------------------- ## +## Accumulate code for creating libtool. ## +## ------------------------------------- ## + +# So that we can recreate a full libtool script including additional +# tags, we accumulate the chunks of code to send to AC_CONFIG_COMMANDS +# in macros and then make a single call at the end using the 'libtool' +# label. + + +# _LT_CONFIG_LIBTOOL_INIT([INIT-COMMANDS]) +# ---------------------------------------- +# Register INIT-COMMANDS to be passed to AC_CONFIG_COMMANDS later. +m4_define([_LT_CONFIG_LIBTOOL_INIT], +[m4_ifval([$1], + [m4_append([_LT_OUTPUT_LIBTOOL_INIT], + [$1 +])])]) + +# Initialize. +m4_define([_LT_OUTPUT_LIBTOOL_INIT]) + + +# _LT_CONFIG_LIBTOOL([COMMANDS]) +# ------------------------------ +# Register COMMANDS to be passed to AC_CONFIG_COMMANDS later. +m4_define([_LT_CONFIG_LIBTOOL], +[m4_ifval([$1], + [m4_append([_LT_OUTPUT_LIBTOOL_COMMANDS], + [$1 +])])]) + +# Initialize. +m4_define([_LT_OUTPUT_LIBTOOL_COMMANDS]) + + +# _LT_CONFIG_SAVE_COMMANDS([COMMANDS], [INIT_COMMANDS]) +# ----------------------------------------------------- +m4_defun([_LT_CONFIG_SAVE_COMMANDS], +[_LT_CONFIG_LIBTOOL([$1]) +_LT_CONFIG_LIBTOOL_INIT([$2]) +]) + + +# _LT_FORMAT_COMMENT([COMMENT]) +# ----------------------------- +# Add leading comment marks to the start of each line, and a trailing +# full-stop to the whole comment if one is not present already. +m4_define([_LT_FORMAT_COMMENT], +[m4_ifval([$1], [ +m4_bpatsubst([m4_bpatsubst([$1], [^ *], [# ])], + [['`$\]], [\\\&])]m4_bmatch([$1], [[!?.]$], [], [.]) +)]) + + + +## ------------------------ ## +## FIXME: Eliminate VARNAME ## +## ------------------------ ## + + +# _LT_DECL([CONFIGNAME], VARNAME, VALUE, [DESCRIPTION], [IS-TAGGED?]) +# ------------------------------------------------------------------- +# CONFIGNAME is the name given to the value in the libtool script. +# VARNAME is the (base) name used in the configure script. +# VALUE may be 0, 1 or 2 for a computed quote escaped value based on +# VARNAME. Any other value will be used directly. +m4_define([_LT_DECL], +[lt_if_append_uniq([lt_decl_varnames], [$2], [, ], + [lt_dict_add_subkey([lt_decl_dict], [$2], [libtool_name], + [m4_ifval([$1], [$1], [$2])]) + lt_dict_add_subkey([lt_decl_dict], [$2], [value], [$3]) + m4_ifval([$4], + [lt_dict_add_subkey([lt_decl_dict], [$2], [description], [$4])]) + lt_dict_add_subkey([lt_decl_dict], [$2], + [tagged?], [m4_ifval([$5], [yes], [no])])]) +]) + + +# _LT_TAGDECL([CONFIGNAME], VARNAME, VALUE, [DESCRIPTION]) +# -------------------------------------------------------- +m4_define([_LT_TAGDECL], [_LT_DECL([$1], [$2], [$3], [$4], [yes])]) + + +# lt_decl_tag_varnames([SEPARATOR], [VARNAME1...]) +# ------------------------------------------------ +m4_define([lt_decl_tag_varnames], +[_lt_decl_filter([tagged?], [yes], $@)]) + + +# _lt_decl_filter(SUBKEY, VALUE, [SEPARATOR], [VARNAME1..]) +# --------------------------------------------------------- +m4_define([_lt_decl_filter], +[m4_case([$#], + [0], [m4_fatal([$0: too few arguments: $#])], + [1], [m4_fatal([$0: too few arguments: $#: $1])], + [2], [lt_dict_filter([lt_decl_dict], [$1], [$2], [], lt_decl_varnames)], + [3], [lt_dict_filter([lt_decl_dict], [$1], [$2], [$3], lt_decl_varnames)], + [lt_dict_filter([lt_decl_dict], $@)])[]dnl +]) + + +# lt_decl_quote_varnames([SEPARATOR], [VARNAME1...]) +# -------------------------------------------------- +m4_define([lt_decl_quote_varnames], +[_lt_decl_filter([value], [1], $@)]) + + +# lt_decl_dquote_varnames([SEPARATOR], [VARNAME1...]) +# --------------------------------------------------- +m4_define([lt_decl_dquote_varnames], +[_lt_decl_filter([value], [2], $@)]) + + +# lt_decl_varnames_tagged([SEPARATOR], [VARNAME1...]) +# --------------------------------------------------- +m4_define([lt_decl_varnames_tagged], +[m4_assert([$# <= 2])dnl +_$0(m4_quote(m4_default([$1], [[, ]])), + m4_ifval([$2], [[$2]], [m4_dquote(lt_decl_tag_varnames)]), + m4_split(m4_normalize(m4_quote(_LT_TAGS)), [ ]))]) +m4_define([_lt_decl_varnames_tagged], +[m4_ifval([$3], [lt_combine([$1], [$2], [_], $3)])]) + + +# lt_decl_all_varnames([SEPARATOR], [VARNAME1...]) +# ------------------------------------------------ +m4_define([lt_decl_all_varnames], +[_$0(m4_quote(m4_default([$1], [[, ]])), + m4_if([$2], [], + m4_quote(lt_decl_varnames), + m4_quote(m4_shift($@))))[]dnl +]) +m4_define([_lt_decl_all_varnames], +[lt_join($@, lt_decl_varnames_tagged([$1], + lt_decl_tag_varnames([[, ]], m4_shift($@))))dnl +]) + + +# _LT_CONFIG_STATUS_DECLARE([VARNAME]) +# ------------------------------------ +# Quote a variable value, and forward it to 'config.status' so that its +# declaration there will have the same value as in 'configure'. VARNAME +# must have a single quote delimited value for this to work. +m4_define([_LT_CONFIG_STATUS_DECLARE], +[$1='`$ECHO "$][$1" | $SED "$delay_single_quote_subst"`']) + + +# _LT_CONFIG_STATUS_DECLARATIONS +# ------------------------------ +# We delimit libtool config variables with single quotes, so when +# we write them to config.status, we have to be sure to quote all +# embedded single quotes properly. In configure, this macro expands +# each variable declared with _LT_DECL (and _LT_TAGDECL) into: +# +# ='`$ECHO "$" | $SED "$delay_single_quote_subst"`' +m4_defun([_LT_CONFIG_STATUS_DECLARATIONS], +[m4_foreach([_lt_var], m4_quote(lt_decl_all_varnames), + [m4_n([_LT_CONFIG_STATUS_DECLARE(_lt_var)])])]) + + +# _LT_LIBTOOL_TAGS +# ---------------- +# Output comment and list of tags supported by the script +m4_defun([_LT_LIBTOOL_TAGS], +[_LT_FORMAT_COMMENT([The names of the tagged configurations supported by this script])dnl +available_tags='_LT_TAGS'dnl +]) + + +# _LT_LIBTOOL_DECLARE(VARNAME, [TAG]) +# ----------------------------------- +# Extract the dictionary values for VARNAME (optionally with TAG) and +# expand to a commented shell variable setting: +# +# # Some comment about what VAR is for. +# visible_name=$lt_internal_name +m4_define([_LT_LIBTOOL_DECLARE], +[_LT_FORMAT_COMMENT(m4_quote(lt_dict_fetch([lt_decl_dict], [$1], + [description])))[]dnl +m4_pushdef([_libtool_name], + m4_quote(lt_dict_fetch([lt_decl_dict], [$1], [libtool_name])))[]dnl +m4_case(m4_quote(lt_dict_fetch([lt_decl_dict], [$1], [value])), + [0], [_libtool_name=[$]$1], + [1], [_libtool_name=$lt_[]$1], + [2], [_libtool_name=$lt_[]$1], + [_libtool_name=lt_dict_fetch([lt_decl_dict], [$1], [value])])[]dnl +m4_ifval([$2], [_$2])[]m4_popdef([_libtool_name])[]dnl +]) + + +# _LT_LIBTOOL_CONFIG_VARS +# ----------------------- +# Produce commented declarations of non-tagged libtool config variables +# suitable for insertion in the LIBTOOL CONFIG section of the 'libtool' +# script. Tagged libtool config variables (even for the LIBTOOL CONFIG +# section) are produced by _LT_LIBTOOL_TAG_VARS. +m4_defun([_LT_LIBTOOL_CONFIG_VARS], +[m4_foreach([_lt_var], + m4_quote(_lt_decl_filter([tagged?], [no], [], lt_decl_varnames)), + [m4_n([_LT_LIBTOOL_DECLARE(_lt_var)])])]) + + +# _LT_LIBTOOL_TAG_VARS(TAG) +# ------------------------- +m4_define([_LT_LIBTOOL_TAG_VARS], +[m4_foreach([_lt_var], m4_quote(lt_decl_tag_varnames), + [m4_n([_LT_LIBTOOL_DECLARE(_lt_var, [$1])])])]) + + +# _LT_TAGVAR(VARNAME, [TAGNAME]) +# ------------------------------ +m4_define([_LT_TAGVAR], [m4_ifval([$2], [$1_$2], [$1])]) + + +# _LT_CONFIG_COMMANDS +# ------------------- +# Send accumulated output to $CONFIG_STATUS. Thanks to the lists of +# variables for single and double quote escaping we saved from calls +# to _LT_DECL, we can put quote escaped variables declarations +# into 'config.status', and then the shell code to quote escape them in +# for loops in 'config.status'. Finally, any additional code accumulated +# from calls to _LT_CONFIG_LIBTOOL_INIT is expanded. +m4_defun([_LT_CONFIG_COMMANDS], +[AC_PROVIDE_IFELSE([LT_OUTPUT], + dnl If the libtool generation code has been placed in $CONFIG_LT, + dnl instead of duplicating it all over again into config.status, + dnl then we will have config.status run $CONFIG_LT later, so it + dnl needs to know what name is stored there: + [AC_CONFIG_COMMANDS([libtool], + [$SHELL $CONFIG_LT || AS_EXIT(1)], [CONFIG_LT='$CONFIG_LT'])], + dnl If the libtool generation code is destined for config.status, + dnl expand the accumulated commands and init code now: + [AC_CONFIG_COMMANDS([libtool], + [_LT_OUTPUT_LIBTOOL_COMMANDS], [_LT_OUTPUT_LIBTOOL_COMMANDS_INIT])]) +])#_LT_CONFIG_COMMANDS + + +# Initialize. +m4_define([_LT_OUTPUT_LIBTOOL_COMMANDS_INIT], +[ + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +sed_quote_subst='$sed_quote_subst' +double_quote_subst='$double_quote_subst' +delay_variable_subst='$delay_variable_subst' +_LT_CONFIG_STATUS_DECLARATIONS +LTCC='$LTCC' +LTCFLAGS='$LTCFLAGS' +compiler='$compiler_DEFAULT' + +# A function that is used when there is no print builtin or printf. +func_fallback_echo () +{ + eval 'cat <<_LTECHO_EOF +\$[]1 +_LTECHO_EOF' +} + +# Quote evaled strings. +for var in lt_decl_all_varnames([[ \ +]], lt_decl_quote_varnames); do + case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in + *[[\\\\\\\`\\"\\\$]]*) + eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED \\"\\\$sed_quote_subst\\"\\\`\\\\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\"" + ;; + esac +done + +# Double-quote double-evaled strings. +for var in lt_decl_all_varnames([[ \ +]], lt_decl_dquote_varnames); do + case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in + *[[\\\\\\\`\\"\\\$]]*) + eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED -e \\"\\\$double_quote_subst\\" -e \\"\\\$sed_quote_subst\\" -e \\"\\\$delay_variable_subst\\"\\\`\\\\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\"" + ;; + esac +done + +_LT_OUTPUT_LIBTOOL_INIT +]) + +# _LT_GENERATED_FILE_INIT(FILE, [COMMENT]) +# ------------------------------------ +# Generate a child script FILE with all initialization necessary to +# reuse the environment learned by the parent script, and make the +# file executable. If COMMENT is supplied, it is inserted after the +# '#!' sequence but before initialization text begins. After this +# macro, additional text can be appended to FILE to form the body of +# the child script. The macro ends with non-zero status if the +# file could not be fully written (such as if the disk is full). +m4_ifdef([AS_INIT_GENERATED], +[m4_defun([_LT_GENERATED_FILE_INIT],[AS_INIT_GENERATED($@)])], +[m4_defun([_LT_GENERATED_FILE_INIT], +[m4_require([AS_PREPARE])]dnl +[m4_pushdef([AS_MESSAGE_LOG_FD])]dnl +[lt_write_fail=0 +cat >$1 <<_ASEOF || lt_write_fail=1 +#! $SHELL +# Generated by $as_me. +$2 +SHELL=\${CONFIG_SHELL-$SHELL} +export SHELL +_ASEOF +cat >>$1 <<\_ASEOF || lt_write_fail=1 +AS_SHELL_SANITIZE +_AS_PREPARE +exec AS_MESSAGE_FD>&1 +_ASEOF +test 0 = "$lt_write_fail" && chmod +x $1[]dnl +m4_popdef([AS_MESSAGE_LOG_FD])])])# _LT_GENERATED_FILE_INIT + +# LT_OUTPUT +# --------- +# This macro allows early generation of the libtool script (before +# AC_OUTPUT is called), incase it is used in configure for compilation +# tests. +AC_DEFUN([LT_OUTPUT], +[: ${CONFIG_LT=./config.lt} +AC_MSG_NOTICE([creating $CONFIG_LT]) +_LT_GENERATED_FILE_INIT(["$CONFIG_LT"], +[# Run this file to recreate a libtool stub with the current configuration.]) + +cat >>"$CONFIG_LT" <<\_LTEOF +lt_cl_silent=false +exec AS_MESSAGE_LOG_FD>>config.log +{ + echo + AS_BOX([Running $as_me.]) +} >&AS_MESSAGE_LOG_FD + +lt_cl_help="\ +'$as_me' creates a local libtool stub from the current configuration, +for use in further configure time tests before the real libtool is +generated. + +Usage: $[0] [[OPTIONS]] + + -h, --help print this help, then exit + -V, --version print version number, then exit + -q, --quiet do not print progress messages + -d, --debug don't remove temporary files + +Report bugs to ." + +lt_cl_version="\ +m4_ifset([AC_PACKAGE_NAME], [AC_PACKAGE_NAME ])config.lt[]dnl +m4_ifset([AC_PACKAGE_VERSION], [ AC_PACKAGE_VERSION]) +configured by $[0], generated by m4_PACKAGE_STRING. + +Copyright (C) 2011 Free Software Foundation, Inc. +This config.lt script is free software; the Free Software Foundation +gives unlimited permision to copy, distribute and modify it." + +while test 0 != $[#] +do + case $[1] in + --version | --v* | -V ) + echo "$lt_cl_version"; exit 0 ;; + --help | --h* | -h ) + echo "$lt_cl_help"; exit 0 ;; + --debug | --d* | -d ) + debug=: ;; + --quiet | --q* | --silent | --s* | -q ) + lt_cl_silent=: ;; + + -*) AC_MSG_ERROR([unrecognized option: $[1] +Try '$[0] --help' for more information.]) ;; + + *) AC_MSG_ERROR([unrecognized argument: $[1] +Try '$[0] --help' for more information.]) ;; + esac + shift +done + +if $lt_cl_silent; then + exec AS_MESSAGE_FD>/dev/null +fi +_LTEOF + +cat >>"$CONFIG_LT" <<_LTEOF +_LT_OUTPUT_LIBTOOL_COMMANDS_INIT +_LTEOF + +cat >>"$CONFIG_LT" <<\_LTEOF +AC_MSG_NOTICE([creating $ofile]) +_LT_OUTPUT_LIBTOOL_COMMANDS +AS_EXIT(0) +_LTEOF +chmod +x "$CONFIG_LT" + +# configure is writing to config.log, but config.lt does its own redirection, +# appending to config.log, which fails on DOS, as config.log is still kept +# open by configure. Here we exec the FD to /dev/null, effectively closing +# config.log, so it can be properly (re)opened and appended to by config.lt. +lt_cl_success=: +test yes = "$silent" && + lt_config_lt_args="$lt_config_lt_args --quiet" +exec AS_MESSAGE_LOG_FD>/dev/null +$SHELL "$CONFIG_LT" $lt_config_lt_args || lt_cl_success=false +exec AS_MESSAGE_LOG_FD>>config.log +$lt_cl_success || AS_EXIT(1) +])# LT_OUTPUT + + +# _LT_CONFIG(TAG) +# --------------- +# If TAG is the built-in tag, create an initial libtool script with a +# default configuration from the untagged config vars. Otherwise add code +# to config.status for appending the configuration named by TAG from the +# matching tagged config vars. +m4_defun([_LT_CONFIG], +[m4_require([_LT_FILEUTILS_DEFAULTS])dnl +_LT_CONFIG_SAVE_COMMANDS([ + m4_define([_LT_TAG], m4_if([$1], [], [C], [$1]))dnl + m4_if(_LT_TAG, [C], [ + # See if we are running on zsh, and set the options that allow our + # commands through without removal of \ escapes. + if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST + fi + + cfgfile=${ofile}T + trap "$RM \"$cfgfile\"; exit 1" 1 2 15 + $RM "$cfgfile" + + cat <<_LT_EOF >> "$cfgfile" +#! $SHELL +# Generated automatically by $as_me ($PACKAGE) $VERSION +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: +# NOTE: Changes made to this file will be lost: look at ltmain.sh. + +# Provide generalized library-building support services. +# Written by Gordon Matzigkeit, 1996 + +_LT_COPYING +_LT_LIBTOOL_TAGS + +# Configured defaults for sys_lib_dlsearch_path munging. +: \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"} + +# ### BEGIN LIBTOOL CONFIG +_LT_LIBTOOL_CONFIG_VARS +_LT_LIBTOOL_TAG_VARS +# ### END LIBTOOL CONFIG + +_LT_EOF + + cat <<'_LT_EOF' >> "$cfgfile" + +# ### BEGIN FUNCTIONS SHARED WITH CONFIGURE + +_LT_PREPARE_MUNGE_PATH_LIST +_LT_PREPARE_CC_BASENAME + +# ### END FUNCTIONS SHARED WITH CONFIGURE + +_LT_EOF + + case $host_os in + aix3*) + cat <<\_LT_EOF >> "$cfgfile" +# AIX sometimes has problems with the GCC collect2 program. For some +# reason, if we set the COLLECT_NAMES environment variable, the problems +# vanish in a puff of smoke. +if test set != "${COLLECT_NAMES+set}"; then + COLLECT_NAMES= + export COLLECT_NAMES +fi +_LT_EOF + ;; + esac + + _LT_PROG_LTMAIN + + # We use sed instead of cat because bash on DJGPP gets confused if + # if finds mixed CR/LF and LF-only lines. Since sed operates in + # text mode, it properly converts lines to CR/LF. This bash problem + # is reportedly fixed, but why not run on old versions too? + sed '$q' "$ltmain" >> "$cfgfile" \ + || (rm -f "$cfgfile"; exit 1) + + mv -f "$cfgfile" "$ofile" || + (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") + chmod +x "$ofile" +], +[cat <<_LT_EOF >> "$ofile" + +dnl Unfortunately we have to use $1 here, since _LT_TAG is not expanded +dnl in a comment (ie after a #). +# ### BEGIN LIBTOOL TAG CONFIG: $1 +_LT_LIBTOOL_TAG_VARS(_LT_TAG) +# ### END LIBTOOL TAG CONFIG: $1 +_LT_EOF +])dnl /m4_if +], +[m4_if([$1], [], [ + PACKAGE='$PACKAGE' + VERSION='$VERSION' + RM='$RM' + ofile='$ofile'], []) +])dnl /_LT_CONFIG_SAVE_COMMANDS +])# _LT_CONFIG + + +# LT_SUPPORTED_TAG(TAG) +# --------------------- +# Trace this macro to discover what tags are supported by the libtool +# --tag option, using: +# autoconf --trace 'LT_SUPPORTED_TAG:$1' +AC_DEFUN([LT_SUPPORTED_TAG], []) + + +# C support is built-in for now +m4_define([_LT_LANG_C_enabled], []) +m4_define([_LT_TAGS], []) + + +# LT_LANG(LANG) +# ------------- +# Enable libtool support for the given language if not already enabled. +AC_DEFUN([LT_LANG], +[AC_BEFORE([$0], [LT_OUTPUT])dnl +m4_case([$1], + [C], [_LT_LANG(C)], + [C++], [_LT_LANG(CXX)], + [Go], [_LT_LANG(GO)], + [Java], [_LT_LANG(GCJ)], + [Fortran 77], [_LT_LANG(F77)], + [Fortran], [_LT_LANG(FC)], + [Windows Resource], [_LT_LANG(RC)], + [m4_ifdef([_LT_LANG_]$1[_CONFIG], + [_LT_LANG($1)], + [m4_fatal([$0: unsupported language: "$1"])])])dnl +])# LT_LANG + + +# _LT_LANG(LANGNAME) +# ------------------ +m4_defun([_LT_LANG], +[m4_ifdef([_LT_LANG_]$1[_enabled], [], + [LT_SUPPORTED_TAG([$1])dnl + m4_append([_LT_TAGS], [$1 ])dnl + m4_define([_LT_LANG_]$1[_enabled], [])dnl + _LT_LANG_$1_CONFIG($1)])dnl +])# _LT_LANG + + +m4_ifndef([AC_PROG_GO], [ +############################################################ +# NOTE: This macro has been submitted for inclusion into # +# GNU Autoconf as AC_PROG_GO. When it is available in # +# a released version of Autoconf we should remove this # +# macro and use it instead. # +############################################################ +m4_defun([AC_PROG_GO], +[AC_LANG_PUSH(Go)dnl +AC_ARG_VAR([GOC], [Go compiler command])dnl +AC_ARG_VAR([GOFLAGS], [Go compiler flags])dnl +_AC_ARG_VAR_LDFLAGS()dnl +AC_CHECK_TOOL(GOC, gccgo) +if test -z "$GOC"; then + if test -n "$ac_tool_prefix"; then + AC_CHECK_PROG(GOC, [${ac_tool_prefix}gccgo], [${ac_tool_prefix}gccgo]) + fi +fi +if test -z "$GOC"; then + AC_CHECK_PROG(GOC, gccgo, gccgo, false) +fi +])#m4_defun +])#m4_ifndef + + +# _LT_LANG_DEFAULT_CONFIG +# ----------------------- +m4_defun([_LT_LANG_DEFAULT_CONFIG], +[AC_PROVIDE_IFELSE([AC_PROG_CXX], + [LT_LANG(CXX)], + [m4_define([AC_PROG_CXX], defn([AC_PROG_CXX])[LT_LANG(CXX)])]) + +AC_PROVIDE_IFELSE([AC_PROG_F77], + [LT_LANG(F77)], + [m4_define([AC_PROG_F77], defn([AC_PROG_F77])[LT_LANG(F77)])]) + +AC_PROVIDE_IFELSE([AC_PROG_FC], + [LT_LANG(FC)], + [m4_define([AC_PROG_FC], defn([AC_PROG_FC])[LT_LANG(FC)])]) + +dnl The call to [A][M_PROG_GCJ] is quoted like that to stop aclocal +dnl pulling things in needlessly. +AC_PROVIDE_IFELSE([AC_PROG_GCJ], + [LT_LANG(GCJ)], + [AC_PROVIDE_IFELSE([A][M_PROG_GCJ], + [LT_LANG(GCJ)], + [AC_PROVIDE_IFELSE([LT_PROG_GCJ], + [LT_LANG(GCJ)], + [m4_ifdef([AC_PROG_GCJ], + [m4_define([AC_PROG_GCJ], defn([AC_PROG_GCJ])[LT_LANG(GCJ)])]) + m4_ifdef([A][M_PROG_GCJ], + [m4_define([A][M_PROG_GCJ], defn([A][M_PROG_GCJ])[LT_LANG(GCJ)])]) + m4_ifdef([LT_PROG_GCJ], + [m4_define([LT_PROG_GCJ], defn([LT_PROG_GCJ])[LT_LANG(GCJ)])])])])]) + +AC_PROVIDE_IFELSE([AC_PROG_GO], + [LT_LANG(GO)], + [m4_define([AC_PROG_GO], defn([AC_PROG_GO])[LT_LANG(GO)])]) + +AC_PROVIDE_IFELSE([LT_PROG_RC], + [LT_LANG(RC)], + [m4_define([LT_PROG_RC], defn([LT_PROG_RC])[LT_LANG(RC)])]) +])# _LT_LANG_DEFAULT_CONFIG + +# Obsolete macros: +AU_DEFUN([AC_LIBTOOL_CXX], [LT_LANG(C++)]) +AU_DEFUN([AC_LIBTOOL_F77], [LT_LANG(Fortran 77)]) +AU_DEFUN([AC_LIBTOOL_FC], [LT_LANG(Fortran)]) +AU_DEFUN([AC_LIBTOOL_GCJ], [LT_LANG(Java)]) +AU_DEFUN([AC_LIBTOOL_RC], [LT_LANG(Windows Resource)]) +dnl aclocal-1.4 backwards compatibility: +dnl AC_DEFUN([AC_LIBTOOL_CXX], []) +dnl AC_DEFUN([AC_LIBTOOL_F77], []) +dnl AC_DEFUN([AC_LIBTOOL_FC], []) +dnl AC_DEFUN([AC_LIBTOOL_GCJ], []) +dnl AC_DEFUN([AC_LIBTOOL_RC], []) + + +# _LT_TAG_COMPILER +# ---------------- +m4_defun([_LT_TAG_COMPILER], +[AC_REQUIRE([AC_PROG_CC])dnl + +_LT_DECL([LTCC], [CC], [1], [A C compiler])dnl +_LT_DECL([LTCFLAGS], [CFLAGS], [1], [LTCC compiler flags])dnl +_LT_TAGDECL([CC], [compiler], [1], [A language specific compiler])dnl +_LT_TAGDECL([with_gcc], [GCC], [0], [Is the compiler the GNU compiler?])dnl + +# If no C compiler was specified, use CC. +LTCC=${LTCC-"$CC"} + +# If no C compiler flags were specified, use CFLAGS. +LTCFLAGS=${LTCFLAGS-"$CFLAGS"} + +# Allow CC to be a program name with arguments. +compiler=$CC +])# _LT_TAG_COMPILER + + +# _LT_COMPILER_BOILERPLATE +# ------------------------ +# Check for compiler boilerplate output or warnings with +# the simple compiler test code. +m4_defun([_LT_COMPILER_BOILERPLATE], +[m4_require([_LT_DECL_SED])dnl +ac_outfile=conftest.$ac_objext +echo "$lt_simple_compile_test_code" >conftest.$ac_ext +eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err +_lt_compiler_boilerplate=`cat conftest.err` +$RM conftest* +])# _LT_COMPILER_BOILERPLATE + + +# _LT_LINKER_BOILERPLATE +# ---------------------- +# Check for linker boilerplate output or warnings with +# the simple link test code. +m4_defun([_LT_LINKER_BOILERPLATE], +[m4_require([_LT_DECL_SED])dnl +ac_outfile=conftest.$ac_objext +echo "$lt_simple_link_test_code" >conftest.$ac_ext +eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err +_lt_linker_boilerplate=`cat conftest.err` +$RM -r conftest* +])# _LT_LINKER_BOILERPLATE + +# _LT_REQUIRED_DARWIN_CHECKS +# ------------------------- +m4_defun_once([_LT_REQUIRED_DARWIN_CHECKS],[ + case $host_os in + rhapsody* | darwin*) + AC_CHECK_TOOL([DSYMUTIL], [dsymutil], [:]) + AC_CHECK_TOOL([NMEDIT], [nmedit], [:]) + AC_CHECK_TOOL([LIPO], [lipo], [:]) + AC_CHECK_TOOL([OTOOL], [otool], [:]) + AC_CHECK_TOOL([OTOOL64], [otool64], [:]) + _LT_DECL([], [DSYMUTIL], [1], + [Tool to manipulate archived DWARF debug symbol files on Mac OS X]) + _LT_DECL([], [NMEDIT], [1], + [Tool to change global to local symbols on Mac OS X]) + _LT_DECL([], [LIPO], [1], + [Tool to manipulate fat objects and archives on Mac OS X]) + _LT_DECL([], [OTOOL], [1], + [ldd/readelf like tool for Mach-O binaries on Mac OS X]) + _LT_DECL([], [OTOOL64], [1], + [ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4]) + + AC_CACHE_CHECK([for -single_module linker flag],[lt_cv_apple_cc_single_mod], + [lt_cv_apple_cc_single_mod=no + if test -z "$LT_MULTI_MODULE"; then + # By default we will add the -single_module flag. You can override + # by either setting the environment variable LT_MULTI_MODULE + # non-empty at configure time, or by adding -multi_module to the + # link flags. + rm -rf libconftest.dylib* + echo "int foo(void){return 1;}" > conftest.c + echo "$LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \ +-dynamiclib -Wl,-single_module conftest.c" >&AS_MESSAGE_LOG_FD + $LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \ + -dynamiclib -Wl,-single_module conftest.c 2>conftest.err + _lt_result=$? + # If there is a non-empty error log, and "single_module" + # appears in it, assume the flag caused a linker warning + if test -s conftest.err && $GREP single_module conftest.err; then + cat conftest.err >&AS_MESSAGE_LOG_FD + # Otherwise, if the output was created with a 0 exit code from + # the compiler, it worked. + elif test -f libconftest.dylib && test 0 = "$_lt_result"; then + lt_cv_apple_cc_single_mod=yes + else + cat conftest.err >&AS_MESSAGE_LOG_FD + fi + rm -rf libconftest.dylib* + rm -f conftest.* + fi]) + + AC_CACHE_CHECK([for -exported_symbols_list linker flag], + [lt_cv_ld_exported_symbols_list], + [lt_cv_ld_exported_symbols_list=no + save_LDFLAGS=$LDFLAGS + echo "_main" > conftest.sym + LDFLAGS="$LDFLAGS -Wl,-exported_symbols_list,conftest.sym" + AC_LINK_IFELSE([AC_LANG_PROGRAM([],[])], + [lt_cv_ld_exported_symbols_list=yes], + [lt_cv_ld_exported_symbols_list=no]) + LDFLAGS=$save_LDFLAGS + ]) + + AC_CACHE_CHECK([for -force_load linker flag],[lt_cv_ld_force_load], + [lt_cv_ld_force_load=no + cat > conftest.c << _LT_EOF +int forced_loaded() { return 2;} +_LT_EOF + echo "$LTCC $LTCFLAGS -c -o conftest.o conftest.c" >&AS_MESSAGE_LOG_FD + $LTCC $LTCFLAGS -c -o conftest.o conftest.c 2>&AS_MESSAGE_LOG_FD + echo "$AR cru libconftest.a conftest.o" >&AS_MESSAGE_LOG_FD + $AR cru libconftest.a conftest.o 2>&AS_MESSAGE_LOG_FD + echo "$RANLIB libconftest.a" >&AS_MESSAGE_LOG_FD + $RANLIB libconftest.a 2>&AS_MESSAGE_LOG_FD + cat > conftest.c << _LT_EOF +int main() { return 0;} +_LT_EOF + echo "$LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a" >&AS_MESSAGE_LOG_FD + $LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a 2>conftest.err + _lt_result=$? + if test -s conftest.err && $GREP force_load conftest.err; then + cat conftest.err >&AS_MESSAGE_LOG_FD + elif test -f conftest && test 0 = "$_lt_result" && $GREP forced_load conftest >/dev/null 2>&1; then + lt_cv_ld_force_load=yes + else + cat conftest.err >&AS_MESSAGE_LOG_FD + fi + rm -f conftest.err libconftest.a conftest conftest.c + rm -rf conftest.dSYM + ]) + case $host_os in + rhapsody* | darwin1.[[012]]) + _lt_dar_allow_undefined='$wl-undefined ${wl}suppress' ;; + darwin1.*) + _lt_dar_allow_undefined='$wl-flat_namespace $wl-undefined ${wl}suppress' ;; + darwin*) # darwin 5.x on + # if running on 10.5 or later, the deployment target defaults + # to the OS version, if on x86, and 10.4, the deployment + # target defaults to 10.4. Don't you love it? + case ${MACOSX_DEPLOYMENT_TARGET-10.0},$host in + 10.0,*86*-darwin8*|10.0,*-darwin[[91]]*) + _lt_dar_allow_undefined='$wl-undefined ${wl}dynamic_lookup' ;; + 10.[[012]][[,.]]*) + _lt_dar_allow_undefined='$wl-flat_namespace $wl-undefined ${wl}suppress' ;; + 10.*) + _lt_dar_allow_undefined='$wl-undefined ${wl}dynamic_lookup' ;; + esac + ;; + esac + if test yes = "$lt_cv_apple_cc_single_mod"; then + _lt_dar_single_mod='$single_module' + fi + if test yes = "$lt_cv_ld_exported_symbols_list"; then + _lt_dar_export_syms=' $wl-exported_symbols_list,$output_objdir/$libname-symbols.expsym' + else + _lt_dar_export_syms='~$NMEDIT -s $output_objdir/$libname-symbols.expsym $lib' + fi + if test : != "$DSYMUTIL" && test no = "$lt_cv_ld_force_load"; then + _lt_dsymutil='~$DSYMUTIL $lib || :' + else + _lt_dsymutil= + fi + ;; + esac +]) + + +# _LT_DARWIN_LINKER_FEATURES([TAG]) +# --------------------------------- +# Checks for linker and compiler features on darwin +m4_defun([_LT_DARWIN_LINKER_FEATURES], +[ + m4_require([_LT_REQUIRED_DARWIN_CHECKS]) + _LT_TAGVAR(archive_cmds_need_lc, $1)=no + _LT_TAGVAR(hardcode_direct, $1)=no + _LT_TAGVAR(hardcode_automatic, $1)=yes + _LT_TAGVAR(hardcode_shlibpath_var, $1)=unsupported + if test yes = "$lt_cv_ld_force_load"; then + _LT_TAGVAR(whole_archive_flag_spec, $1)='`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience $wl-force_load,$conv\"; done; func_echo_all \"$new_convenience\"`' + m4_case([$1], [F77], [_LT_TAGVAR(compiler_needs_object, $1)=yes], + [FC], [_LT_TAGVAR(compiler_needs_object, $1)=yes]) + else + _LT_TAGVAR(whole_archive_flag_spec, $1)='' + fi + _LT_TAGVAR(link_all_deplibs, $1)=yes + _LT_TAGVAR(allow_undefined_flag, $1)=$_lt_dar_allow_undefined + case $cc_basename in + ifort*|nagfor*) _lt_dar_can_shared=yes ;; + *) _lt_dar_can_shared=$GCC ;; + esac + if test yes = "$_lt_dar_can_shared"; then + output_verbose_link_cmd=func_echo_all + _LT_TAGVAR(archive_cmds, $1)="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod$_lt_dsymutil" + _LT_TAGVAR(module_cmds, $1)="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags$_lt_dsymutil" + _LT_TAGVAR(archive_expsym_cmds, $1)="sed 's|^|_|' < \$export_symbols > \$output_objdir/\$libname-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod$_lt_dar_export_syms$_lt_dsymutil" + _LT_TAGVAR(module_expsym_cmds, $1)="sed -e 's|^|_|' < \$export_symbols > \$output_objdir/\$libname-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags$_lt_dar_export_syms$_lt_dsymutil" + m4_if([$1], [CXX], +[ if test yes != "$lt_cv_apple_cc_single_mod"; then + _LT_TAGVAR(archive_cmds, $1)="\$CC -r -keep_private_externs -nostdlib -o \$lib-master.o \$libobjs~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$lib-master.o \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring$_lt_dsymutil" + _LT_TAGVAR(archive_expsym_cmds, $1)="sed 's|^|_|' < \$export_symbols > \$output_objdir/\$libname-symbols.expsym~\$CC -r -keep_private_externs -nostdlib -o \$lib-master.o \$libobjs~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$lib-master.o \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring$_lt_dar_export_syms$_lt_dsymutil" + fi +],[]) + else + _LT_TAGVAR(ld_shlibs, $1)=no + fi +]) + +# _LT_SYS_MODULE_PATH_AIX([TAGNAME]) +# ---------------------------------- +# Links a minimal program and checks the executable +# for the system default hardcoded library path. In most cases, +# this is /usr/lib:/lib, but when the MPI compilers are used +# the location of the communication and MPI libs are included too. +# If we don't find anything, use the default library path according +# to the aix ld manual. +# Store the results from the different compilers for each TAGNAME. +# Allow to override them for all tags through lt_cv_aix_libpath. +m4_defun([_LT_SYS_MODULE_PATH_AIX], +[m4_require([_LT_DECL_SED])dnl +if test set = "${lt_cv_aix_libpath+set}"; then + aix_libpath=$lt_cv_aix_libpath +else + AC_CACHE_VAL([_LT_TAGVAR([lt_cv_aix_libpath_], [$1])], + [AC_LINK_IFELSE([AC_LANG_PROGRAM],[ + lt_aix_libpath_sed='[ + /Import File Strings/,/^$/ { + /^0/ { + s/^0 *\([^ ]*\) *$/\1/ + p + } + }]' + _LT_TAGVAR([lt_cv_aix_libpath_], [$1])=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` + # Check for a 64-bit object if we didn't find anything. + if test -z "$_LT_TAGVAR([lt_cv_aix_libpath_], [$1])"; then + _LT_TAGVAR([lt_cv_aix_libpath_], [$1])=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` + fi],[]) + if test -z "$_LT_TAGVAR([lt_cv_aix_libpath_], [$1])"; then + _LT_TAGVAR([lt_cv_aix_libpath_], [$1])=/usr/lib:/lib + fi + ]) + aix_libpath=$_LT_TAGVAR([lt_cv_aix_libpath_], [$1]) +fi +])# _LT_SYS_MODULE_PATH_AIX + + +# _LT_SHELL_INIT(ARG) +# ------------------- +m4_define([_LT_SHELL_INIT], +[m4_divert_text([M4SH-INIT], [$1 +])])# _LT_SHELL_INIT + + + +# _LT_PROG_ECHO_BACKSLASH +# ----------------------- +# Find how we can fake an echo command that does not interpret backslash. +# In particular, with Autoconf 2.60 or later we add some code to the start +# of the generated configure script that will find a shell with a builtin +# printf (that we can use as an echo command). +m4_defun([_LT_PROG_ECHO_BACKSLASH], +[ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO +ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO$ECHO + +AC_MSG_CHECKING([how to print strings]) +# Test print first, because it will be a builtin if present. +if test "X`( print -r -- -n ) 2>/dev/null`" = X-n && \ + test "X`print -r -- $ECHO 2>/dev/null`" = "X$ECHO"; then + ECHO='print -r --' +elif test "X`printf %s $ECHO 2>/dev/null`" = "X$ECHO"; then + ECHO='printf %s\n' +else + # Use this function as a fallback that always works. + func_fallback_echo () + { + eval 'cat <<_LTECHO_EOF +$[]1 +_LTECHO_EOF' + } + ECHO='func_fallback_echo' +fi + +# func_echo_all arg... +# Invoke $ECHO with all args, space-separated. +func_echo_all () +{ + $ECHO "$*" +} + +case $ECHO in + printf*) AC_MSG_RESULT([printf]) ;; + print*) AC_MSG_RESULT([print -r]) ;; + *) AC_MSG_RESULT([cat]) ;; +esac + +m4_ifdef([_AS_DETECT_SUGGESTED], +[_AS_DETECT_SUGGESTED([ + test -n "${ZSH_VERSION+set}${BASH_VERSION+set}" || ( + ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' + ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO + ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO$ECHO + PATH=/empty FPATH=/empty; export PATH FPATH + test "X`printf %s $ECHO`" = "X$ECHO" \ + || test "X`print -r -- $ECHO`" = "X$ECHO" )])]) + +_LT_DECL([], [SHELL], [1], [Shell to use when invoking shell scripts]) +_LT_DECL([], [ECHO], [1], [An echo program that protects backslashes]) +])# _LT_PROG_ECHO_BACKSLASH + + +# _LT_WITH_SYSROOT +# ---------------- +AC_DEFUN([_LT_WITH_SYSROOT], +[AC_MSG_CHECKING([for sysroot]) +AC_ARG_WITH([sysroot], +[AS_HELP_STRING([--with-sysroot@<:@=DIR@:>@], + [Search for dependent libraries within DIR (or the compiler's sysroot + if not specified).])], +[], [with_sysroot=no]) + +dnl lt_sysroot will always be passed unquoted. We quote it here +dnl in case the user passed a directory name. +lt_sysroot= +case $with_sysroot in #( + yes) + if test yes = "$GCC"; then + lt_sysroot=`$CC --print-sysroot 2>/dev/null` + fi + ;; #( + /*) + lt_sysroot=`echo "$with_sysroot" | sed -e "$sed_quote_subst"` + ;; #( + no|'') + ;; #( + *) + AC_MSG_RESULT([$with_sysroot]) + AC_MSG_ERROR([The sysroot must be an absolute path.]) + ;; +esac + + AC_MSG_RESULT([${lt_sysroot:-no}]) +_LT_DECL([], [lt_sysroot], [0], [The root where to search for ]dnl +[dependent libraries, and where our libraries should be installed.])]) + +# _LT_ENABLE_LOCK +# --------------- +m4_defun([_LT_ENABLE_LOCK], +[AC_ARG_ENABLE([libtool-lock], + [AS_HELP_STRING([--disable-libtool-lock], + [avoid locking (might break parallel builds)])]) +test no = "$enable_libtool_lock" || enable_libtool_lock=yes + +# Some flags need to be propagated to the compiler or linker for good +# libtool support. +case $host in +ia64-*-hpux*) + # Find out what ABI is being produced by ac_compile, and set mode + # options accordingly. + echo 'int i;' > conftest.$ac_ext + if AC_TRY_EVAL(ac_compile); then + case `/usr/bin/file conftest.$ac_objext` in + *ELF-32*) + HPUX_IA64_MODE=32 + ;; + *ELF-64*) + HPUX_IA64_MODE=64 + ;; + esac + fi + rm -rf conftest* + ;; +*-*-irix6*) + # Find out what ABI is being produced by ac_compile, and set linker + # options accordingly. + echo '[#]line '$LINENO' "configure"' > conftest.$ac_ext + if AC_TRY_EVAL(ac_compile); then + if test yes = "$lt_cv_prog_gnu_ld"; then + case `/usr/bin/file conftest.$ac_objext` in + *32-bit*) + LD="${LD-ld} -melf32bsmip" + ;; + *N32*) + LD="${LD-ld} -melf32bmipn32" + ;; + *64-bit*) + LD="${LD-ld} -melf64bmip" + ;; + esac + else + case `/usr/bin/file conftest.$ac_objext` in + *32-bit*) + LD="${LD-ld} -32" + ;; + *N32*) + LD="${LD-ld} -n32" + ;; + *64-bit*) + LD="${LD-ld} -64" + ;; + esac + fi + fi + rm -rf conftest* + ;; + +mips64*-*linux*) + # Find out what ABI is being produced by ac_compile, and set linker + # options accordingly. + echo '[#]line '$LINENO' "configure"' > conftest.$ac_ext + if AC_TRY_EVAL(ac_compile); then + emul=elf + case `/usr/bin/file conftest.$ac_objext` in + *32-bit*) + emul="${emul}32" + ;; + *64-bit*) + emul="${emul}64" + ;; + esac + case `/usr/bin/file conftest.$ac_objext` in + *MSB*) + emul="${emul}btsmip" + ;; + *LSB*) + emul="${emul}ltsmip" + ;; + esac + case `/usr/bin/file conftest.$ac_objext` in + *N32*) + emul="${emul}n32" + ;; + esac + LD="${LD-ld} -m $emul" + fi + rm -rf conftest* + ;; + +x86_64-*kfreebsd*-gnu|x86_64-*linux*|powerpc*-*linux*| \ +s390*-*linux*|s390*-*tpf*|sparc*-*linux*) + # Find out what ABI is being produced by ac_compile, and set linker + # options accordingly. Note that the listed cases only cover the + # situations where additional linker options are needed (such as when + # doing 32-bit compilation for a host where ld defaults to 64-bit, or + # vice versa); the common cases where no linker options are needed do + # not appear in the list. + echo 'int i;' > conftest.$ac_ext + if AC_TRY_EVAL(ac_compile); then + case `/usr/bin/file conftest.o` in + *32-bit*) + case $host in + x86_64-*kfreebsd*-gnu) + LD="${LD-ld} -m elf_i386_fbsd" + ;; + x86_64-*linux*) + case `/usr/bin/file conftest.o` in + *x86-64*) + LD="${LD-ld} -m elf32_x86_64" + ;; + *) + LD="${LD-ld} -m elf_i386" + ;; + esac + ;; + powerpc64le-*linux*) + LD="${LD-ld} -m elf32lppclinux" + ;; + powerpc64-*linux*) + LD="${LD-ld} -m elf32ppclinux" + ;; + s390x-*linux*) + LD="${LD-ld} -m elf_s390" + ;; + sparc64-*linux*) + LD="${LD-ld} -m elf32_sparc" + ;; + esac + ;; + *64-bit*) + case $host in + x86_64-*kfreebsd*-gnu) + LD="${LD-ld} -m elf_x86_64_fbsd" + ;; + x86_64-*linux*) + LD="${LD-ld} -m elf_x86_64" + ;; + powerpcle-*linux*) + LD="${LD-ld} -m elf64lppc" + ;; + powerpc-*linux*) + LD="${LD-ld} -m elf64ppc" + ;; + s390*-*linux*|s390*-*tpf*) + LD="${LD-ld} -m elf64_s390" + ;; + sparc*-*linux*) + LD="${LD-ld} -m elf64_sparc" + ;; + esac + ;; + esac + fi + rm -rf conftest* + ;; + +*-*-sco3.2v5*) + # On SCO OpenServer 5, we need -belf to get full-featured binaries. + SAVE_CFLAGS=$CFLAGS + CFLAGS="$CFLAGS -belf" + AC_CACHE_CHECK([whether the C compiler needs -belf], lt_cv_cc_needs_belf, + [AC_LANG_PUSH(C) + AC_LINK_IFELSE([AC_LANG_PROGRAM([[]],[[]])],[lt_cv_cc_needs_belf=yes],[lt_cv_cc_needs_belf=no]) + AC_LANG_POP]) + if test yes != "$lt_cv_cc_needs_belf"; then + # this is probably gcc 2.8.0, egcs 1.0 or newer; no need for -belf + CFLAGS=$SAVE_CFLAGS + fi + ;; +*-*solaris*) + # Find out what ABI is being produced by ac_compile, and set linker + # options accordingly. + echo 'int i;' > conftest.$ac_ext + if AC_TRY_EVAL(ac_compile); then + case `/usr/bin/file conftest.o` in + *64-bit*) + case $lt_cv_prog_gnu_ld in + yes*) + case $host in + i?86-*-solaris*|x86_64-*-solaris*) + LD="${LD-ld} -m elf_x86_64" + ;; + sparc*-*-solaris*) + LD="${LD-ld} -m elf64_sparc" + ;; + esac + # GNU ld 2.21 introduced _sol2 emulations. Use them if available. + if ${LD-ld} -V | grep _sol2 >/dev/null 2>&1; then + LD=${LD-ld}_sol2 + fi + ;; + *) + if ${LD-ld} -64 -r -o conftest2.o conftest.o >/dev/null 2>&1; then + LD="${LD-ld} -64" + fi + ;; + esac + ;; + esac + fi + rm -rf conftest* + ;; +esac + +need_locks=$enable_libtool_lock +])# _LT_ENABLE_LOCK + + +# _LT_PROG_AR +# ----------- +m4_defun([_LT_PROG_AR], +[AC_CHECK_TOOLS(AR, [ar], false) +: ${AR=ar} +: ${AR_FLAGS=cru} +_LT_DECL([], [AR], [1], [The archiver]) +_LT_DECL([], [AR_FLAGS], [1], [Flags to create an archive]) + +AC_CACHE_CHECK([for archiver @FILE support], [lt_cv_ar_at_file], + [lt_cv_ar_at_file=no + AC_COMPILE_IFELSE([AC_LANG_PROGRAM], + [echo conftest.$ac_objext > conftest.lst + lt_ar_try='$AR $AR_FLAGS libconftest.a @conftest.lst >&AS_MESSAGE_LOG_FD' + AC_TRY_EVAL([lt_ar_try]) + if test 0 -eq "$ac_status"; then + # Ensure the archiver fails upon bogus file names. + rm -f conftest.$ac_objext libconftest.a + AC_TRY_EVAL([lt_ar_try]) + if test 0 -ne "$ac_status"; then + lt_cv_ar_at_file=@ + fi + fi + rm -f conftest.* libconftest.a + ]) + ]) + +if test no = "$lt_cv_ar_at_file"; then + archiver_list_spec= +else + archiver_list_spec=$lt_cv_ar_at_file +fi +_LT_DECL([], [archiver_list_spec], [1], + [How to feed a file listing to the archiver]) +])# _LT_PROG_AR + + +# _LT_CMD_OLD_ARCHIVE +# ------------------- +m4_defun([_LT_CMD_OLD_ARCHIVE], +[_LT_PROG_AR + +AC_CHECK_TOOL(STRIP, strip, :) +test -z "$STRIP" && STRIP=: +_LT_DECL([], [STRIP], [1], [A symbol stripping program]) + +AC_CHECK_TOOL(RANLIB, ranlib, :) +test -z "$RANLIB" && RANLIB=: +_LT_DECL([], [RANLIB], [1], + [Commands used to install an old-style archive]) + +# Determine commands to create old-style static archives. +old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs' +old_postinstall_cmds='chmod 644 $oldlib' +old_postuninstall_cmds= + +if test -n "$RANLIB"; then + case $host_os in + bitrig* | openbsd*) + old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB -t \$tool_oldlib" + ;; + *) + old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB \$tool_oldlib" + ;; + esac + old_archive_cmds="$old_archive_cmds~\$RANLIB \$tool_oldlib" +fi + +case $host_os in + darwin*) + lock_old_archive_extraction=yes ;; + *) + lock_old_archive_extraction=no ;; +esac +_LT_DECL([], [old_postinstall_cmds], [2]) +_LT_DECL([], [old_postuninstall_cmds], [2]) +_LT_TAGDECL([], [old_archive_cmds], [2], + [Commands used to build an old-style archive]) +_LT_DECL([], [lock_old_archive_extraction], [0], + [Whether to use a lock for old archive extraction]) +])# _LT_CMD_OLD_ARCHIVE + + +# _LT_COMPILER_OPTION(MESSAGE, VARIABLE-NAME, FLAGS, +# [OUTPUT-FILE], [ACTION-SUCCESS], [ACTION-FAILURE]) +# ---------------------------------------------------------------- +# Check whether the given compiler option works +AC_DEFUN([_LT_COMPILER_OPTION], +[m4_require([_LT_FILEUTILS_DEFAULTS])dnl +m4_require([_LT_DECL_SED])dnl +AC_CACHE_CHECK([$1], [$2], + [$2=no + m4_if([$4], , [ac_outfile=conftest.$ac_objext], [ac_outfile=$4]) + echo "$lt_simple_compile_test_code" > conftest.$ac_ext + lt_compiler_flag="$3" ## exclude from sc_useless_quotes_in_assignment + # Insert the option either (1) after the last *FLAGS variable, or + # (2) before a word containing "conftest.", or (3) at the end. + # Note that $ac_compile itself does not contain backslashes and begins + # with a dollar sign (not a hyphen), so the echo should work correctly. + # The option is referenced via a variable to avoid confusing sed. + lt_compile=`echo "$ac_compile" | $SED \ + -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ + -e 's: [[^ ]]*conftest\.: $lt_compiler_flag&:; t' \ + -e 's:$: $lt_compiler_flag:'` + (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&AS_MESSAGE_LOG_FD) + (eval "$lt_compile" 2>conftest.err) + ac_status=$? + cat conftest.err >&AS_MESSAGE_LOG_FD + echo "$as_me:$LINENO: \$? = $ac_status" >&AS_MESSAGE_LOG_FD + if (exit $ac_status) && test -s "$ac_outfile"; then + # The compiler can only warn and ignore the option if not recognized + # So say no if there are warnings other than the usual output. + $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp + $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 + if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then + $2=yes + fi + fi + $RM conftest* +]) + +if test yes = "[$]$2"; then + m4_if([$5], , :, [$5]) +else + m4_if([$6], , :, [$6]) +fi +])# _LT_COMPILER_OPTION + +# Old name: +AU_ALIAS([AC_LIBTOOL_COMPILER_OPTION], [_LT_COMPILER_OPTION]) +dnl aclocal-1.4 backwards compatibility: +dnl AC_DEFUN([AC_LIBTOOL_COMPILER_OPTION], []) + + +# _LT_LINKER_OPTION(MESSAGE, VARIABLE-NAME, FLAGS, +# [ACTION-SUCCESS], [ACTION-FAILURE]) +# ---------------------------------------------------- +# Check whether the given linker option works +AC_DEFUN([_LT_LINKER_OPTION], +[m4_require([_LT_FILEUTILS_DEFAULTS])dnl +m4_require([_LT_DECL_SED])dnl +AC_CACHE_CHECK([$1], [$2], + [$2=no + save_LDFLAGS=$LDFLAGS + LDFLAGS="$LDFLAGS $3" + echo "$lt_simple_link_test_code" > conftest.$ac_ext + if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then + # The linker can only warn and ignore the option if not recognized + # So say no if there are warnings + if test -s conftest.err; then + # Append any errors to the config.log. + cat conftest.err 1>&AS_MESSAGE_LOG_FD + $ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp + $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 + if diff conftest.exp conftest.er2 >/dev/null; then + $2=yes + fi + else + $2=yes + fi + fi + $RM -r conftest* + LDFLAGS=$save_LDFLAGS +]) + +if test yes = "[$]$2"; then + m4_if([$4], , :, [$4]) +else + m4_if([$5], , :, [$5]) +fi +])# _LT_LINKER_OPTION + +# Old name: +AU_ALIAS([AC_LIBTOOL_LINKER_OPTION], [_LT_LINKER_OPTION]) +dnl aclocal-1.4 backwards compatibility: +dnl AC_DEFUN([AC_LIBTOOL_LINKER_OPTION], []) + + +# LT_CMD_MAX_LEN +#--------------- +AC_DEFUN([LT_CMD_MAX_LEN], +[AC_REQUIRE([AC_CANONICAL_HOST])dnl +# find the maximum length of command line arguments +AC_MSG_CHECKING([the maximum length of command line arguments]) +AC_CACHE_VAL([lt_cv_sys_max_cmd_len], [dnl + i=0 + teststring=ABCD + + case $build_os in + msdosdjgpp*) + # On DJGPP, this test can blow up pretty badly due to problems in libc + # (any single argument exceeding 2000 bytes causes a buffer overrun + # during glob expansion). Even if it were fixed, the result of this + # check would be larger than it should be. + lt_cv_sys_max_cmd_len=12288; # 12K is about right + ;; + + gnu*) + # Under GNU Hurd, this test is not required because there is + # no limit to the length of command line arguments. + # Libtool will interpret -1 as no limit whatsoever + lt_cv_sys_max_cmd_len=-1; + ;; + + cygwin* | mingw* | cegcc*) + # On Win9x/ME, this test blows up -- it succeeds, but takes + # about 5 minutes as the teststring grows exponentially. + # Worse, since 9x/ME are not pre-emptively multitasking, + # you end up with a "frozen" computer, even though with patience + # the test eventually succeeds (with a max line length of 256k). + # Instead, let's just punt: use the minimum linelength reported by + # all of the supported platforms: 8192 (on NT/2K/XP). + lt_cv_sys_max_cmd_len=8192; + ;; + + mint*) + # On MiNT this can take a long time and run out of memory. + lt_cv_sys_max_cmd_len=8192; + ;; + + amigaos*) + # On AmigaOS with pdksh, this test takes hours, literally. + # So we just punt and use a minimum line length of 8192. + lt_cv_sys_max_cmd_len=8192; + ;; + + bitrig* | darwin* | dragonfly* | freebsd* | netbsd* | openbsd*) + # This has been around since 386BSD, at least. Likely further. + if test -x /sbin/sysctl; then + lt_cv_sys_max_cmd_len=`/sbin/sysctl -n kern.argmax` + elif test -x /usr/sbin/sysctl; then + lt_cv_sys_max_cmd_len=`/usr/sbin/sysctl -n kern.argmax` + else + lt_cv_sys_max_cmd_len=65536 # usable default for all BSDs + fi + # And add a safety zone + lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` + lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` + ;; + + interix*) + # We know the value 262144 and hardcode it with a safety zone (like BSD) + lt_cv_sys_max_cmd_len=196608 + ;; + + os2*) + # The test takes a long time on OS/2. + lt_cv_sys_max_cmd_len=8192 + ;; + + osf*) + # Dr. Hans Ekkehard Plesser reports seeing a kernel panic running configure + # due to this test when exec_disable_arg_limit is 1 on Tru64. It is not + # nice to cause kernel panics so lets avoid the loop below. + # First set a reasonable default. + lt_cv_sys_max_cmd_len=16384 + # + if test -x /sbin/sysconfig; then + case `/sbin/sysconfig -q proc exec_disable_arg_limit` in + *1*) lt_cv_sys_max_cmd_len=-1 ;; + esac + fi + ;; + sco3.2v5*) + lt_cv_sys_max_cmd_len=102400 + ;; + sysv5* | sco5v6* | sysv4.2uw2*) + kargmax=`grep ARG_MAX /etc/conf/cf.d/stune 2>/dev/null` + if test -n "$kargmax"; then + lt_cv_sys_max_cmd_len=`echo $kargmax | sed 's/.*[[ ]]//'` + else + lt_cv_sys_max_cmd_len=32768 + fi + ;; + *) + lt_cv_sys_max_cmd_len=`(getconf ARG_MAX) 2> /dev/null` + if test -n "$lt_cv_sys_max_cmd_len" && \ + test undefined != "$lt_cv_sys_max_cmd_len"; then + lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` + lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` + else + # Make teststring a little bigger before we do anything with it. + # a 1K string should be a reasonable start. + for i in 1 2 3 4 5 6 7 8; do + teststring=$teststring$teststring + done + SHELL=${SHELL-${CONFIG_SHELL-/bin/sh}} + # If test is not a shell built-in, we'll probably end up computing a + # maximum length that is only half of the actual maximum length, but + # we can't tell. + while { test X`env echo "$teststring$teststring" 2>/dev/null` \ + = "X$teststring$teststring"; } >/dev/null 2>&1 && + test 17 != "$i" # 1/2 MB should be enough + do + i=`expr $i + 1` + teststring=$teststring$teststring + done + # Only check the string length outside the loop. + lt_cv_sys_max_cmd_len=`expr "X$teststring" : ".*" 2>&1` + teststring= + # Add a significant safety factor because C++ compilers can tack on + # massive amounts of additional arguments before passing them to the + # linker. It appears as though 1/2 is a usable value. + lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 2` + fi + ;; + esac +]) +if test -n "$lt_cv_sys_max_cmd_len"; then + AC_MSG_RESULT($lt_cv_sys_max_cmd_len) +else + AC_MSG_RESULT(none) +fi +max_cmd_len=$lt_cv_sys_max_cmd_len +_LT_DECL([], [max_cmd_len], [0], + [What is the maximum length of a command?]) +])# LT_CMD_MAX_LEN + +# Old name: +AU_ALIAS([AC_LIBTOOL_SYS_MAX_CMD_LEN], [LT_CMD_MAX_LEN]) +dnl aclocal-1.4 backwards compatibility: +dnl AC_DEFUN([AC_LIBTOOL_SYS_MAX_CMD_LEN], []) + + +# _LT_HEADER_DLFCN +# ---------------- +m4_defun([_LT_HEADER_DLFCN], +[AC_CHECK_HEADERS([dlfcn.h], [], [], [AC_INCLUDES_DEFAULT])dnl +])# _LT_HEADER_DLFCN + + +# _LT_TRY_DLOPEN_SELF (ACTION-IF-TRUE, ACTION-IF-TRUE-W-USCORE, +# ACTION-IF-FALSE, ACTION-IF-CROSS-COMPILING) +# ---------------------------------------------------------------- +m4_defun([_LT_TRY_DLOPEN_SELF], +[m4_require([_LT_HEADER_DLFCN])dnl +if test yes = "$cross_compiling"; then : + [$4] +else + lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 + lt_status=$lt_dlunknown + cat > conftest.$ac_ext <<_LT_EOF +[#line $LINENO "configure" +#include "confdefs.h" + +#if HAVE_DLFCN_H +#include +#endif + +#include + +#ifdef RTLD_GLOBAL +# define LT_DLGLOBAL RTLD_GLOBAL +#else +# ifdef DL_GLOBAL +# define LT_DLGLOBAL DL_GLOBAL +# else +# define LT_DLGLOBAL 0 +# endif +#endif + +/* We may have to define LT_DLLAZY_OR_NOW in the command line if we + find out it does not work in some platform. */ +#ifndef LT_DLLAZY_OR_NOW +# ifdef RTLD_LAZY +# define LT_DLLAZY_OR_NOW RTLD_LAZY +# else +# ifdef DL_LAZY +# define LT_DLLAZY_OR_NOW DL_LAZY +# else +# ifdef RTLD_NOW +# define LT_DLLAZY_OR_NOW RTLD_NOW +# else +# ifdef DL_NOW +# define LT_DLLAZY_OR_NOW DL_NOW +# else +# define LT_DLLAZY_OR_NOW 0 +# endif +# endif +# endif +# endif +#endif + +/* When -fvisibility=hidden is used, assume the code has been annotated + correspondingly for the symbols needed. */ +#if defined __GNUC__ && (((__GNUC__ == 3) && (__GNUC_MINOR__ >= 3)) || (__GNUC__ > 3)) +int fnord () __attribute__((visibility("default"))); +#endif + +int fnord () { return 42; } +int main () +{ + void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW); + int status = $lt_dlunknown; + + if (self) + { + if (dlsym (self,"fnord")) status = $lt_dlno_uscore; + else + { + if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore; + else puts (dlerror ()); + } + /* dlclose (self); */ + } + else + puts (dlerror ()); + + return status; +}] +_LT_EOF + if AC_TRY_EVAL(ac_link) && test -s "conftest$ac_exeext" 2>/dev/null; then + (./conftest; exit; ) >&AS_MESSAGE_LOG_FD 2>/dev/null + lt_status=$? + case x$lt_status in + x$lt_dlno_uscore) $1 ;; + x$lt_dlneed_uscore) $2 ;; + x$lt_dlunknown|x*) $3 ;; + esac + else : + # compilation failed + $3 + fi +fi +rm -fr conftest* +])# _LT_TRY_DLOPEN_SELF + + +# LT_SYS_DLOPEN_SELF +# ------------------ +AC_DEFUN([LT_SYS_DLOPEN_SELF], +[m4_require([_LT_HEADER_DLFCN])dnl +if test yes != "$enable_dlopen"; then + enable_dlopen=unknown + enable_dlopen_self=unknown + enable_dlopen_self_static=unknown +else + lt_cv_dlopen=no + lt_cv_dlopen_libs= + + case $host_os in + beos*) + lt_cv_dlopen=load_add_on + lt_cv_dlopen_libs= + lt_cv_dlopen_self=yes + ;; + + mingw* | pw32* | cegcc*) + lt_cv_dlopen=LoadLibrary + lt_cv_dlopen_libs= + ;; + + cygwin*) + lt_cv_dlopen=dlopen + lt_cv_dlopen_libs= + ;; + + darwin*) + # if libdl is installed we need to link against it + AC_CHECK_LIB([dl], [dlopen], + [lt_cv_dlopen=dlopen lt_cv_dlopen_libs=-ldl],[ + lt_cv_dlopen=dyld + lt_cv_dlopen_libs= + lt_cv_dlopen_self=yes + ]) + ;; + + tpf*) + # Don't try to run any link tests for TPF. We know it's impossible + # because TPF is a cross-compiler, and we know how we open DSOs. + lt_cv_dlopen=dlopen + lt_cv_dlopen_libs= + lt_cv_dlopen_self=no + ;; + + *) + AC_CHECK_FUNC([shl_load], + [lt_cv_dlopen=shl_load], + [AC_CHECK_LIB([dld], [shl_load], + [lt_cv_dlopen=shl_load lt_cv_dlopen_libs=-ldld], + [AC_CHECK_FUNC([dlopen], + [lt_cv_dlopen=dlopen], + [AC_CHECK_LIB([dl], [dlopen], + [lt_cv_dlopen=dlopen lt_cv_dlopen_libs=-ldl], + [AC_CHECK_LIB([svld], [dlopen], + [lt_cv_dlopen=dlopen lt_cv_dlopen_libs=-lsvld], + [AC_CHECK_LIB([dld], [dld_link], + [lt_cv_dlopen=dld_link lt_cv_dlopen_libs=-ldld]) + ]) + ]) + ]) + ]) + ]) + ;; + esac + + if test no = "$lt_cv_dlopen"; then + enable_dlopen=no + else + enable_dlopen=yes + fi + + case $lt_cv_dlopen in + dlopen) + save_CPPFLAGS=$CPPFLAGS + test yes = "$ac_cv_header_dlfcn_h" && CPPFLAGS="$CPPFLAGS -DHAVE_DLFCN_H" + + save_LDFLAGS=$LDFLAGS + wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $export_dynamic_flag_spec\" + + save_LIBS=$LIBS + LIBS="$lt_cv_dlopen_libs $LIBS" + + AC_CACHE_CHECK([whether a program can dlopen itself], + lt_cv_dlopen_self, [dnl + _LT_TRY_DLOPEN_SELF( + lt_cv_dlopen_self=yes, lt_cv_dlopen_self=yes, + lt_cv_dlopen_self=no, lt_cv_dlopen_self=cross) + ]) + + if test yes = "$lt_cv_dlopen_self"; then + wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $lt_prog_compiler_static\" + AC_CACHE_CHECK([whether a statically linked program can dlopen itself], + lt_cv_dlopen_self_static, [dnl + _LT_TRY_DLOPEN_SELF( + lt_cv_dlopen_self_static=yes, lt_cv_dlopen_self_static=yes, + lt_cv_dlopen_self_static=no, lt_cv_dlopen_self_static=cross) + ]) + fi + + CPPFLAGS=$save_CPPFLAGS + LDFLAGS=$save_LDFLAGS + LIBS=$save_LIBS + ;; + esac + + case $lt_cv_dlopen_self in + yes|no) enable_dlopen_self=$lt_cv_dlopen_self ;; + *) enable_dlopen_self=unknown ;; + esac + + case $lt_cv_dlopen_self_static in + yes|no) enable_dlopen_self_static=$lt_cv_dlopen_self_static ;; + *) enable_dlopen_self_static=unknown ;; + esac +fi +_LT_DECL([dlopen_support], [enable_dlopen], [0], + [Whether dlopen is supported]) +_LT_DECL([dlopen_self], [enable_dlopen_self], [0], + [Whether dlopen of programs is supported]) +_LT_DECL([dlopen_self_static], [enable_dlopen_self_static], [0], + [Whether dlopen of statically linked programs is supported]) +])# LT_SYS_DLOPEN_SELF + +# Old name: +AU_ALIAS([AC_LIBTOOL_DLOPEN_SELF], [LT_SYS_DLOPEN_SELF]) +dnl aclocal-1.4 backwards compatibility: +dnl AC_DEFUN([AC_LIBTOOL_DLOPEN_SELF], []) + + +# _LT_COMPILER_C_O([TAGNAME]) +# --------------------------- +# Check to see if options -c and -o are simultaneously supported by compiler. +# This macro does not hard code the compiler like AC_PROG_CC_C_O. +m4_defun([_LT_COMPILER_C_O], +[m4_require([_LT_DECL_SED])dnl +m4_require([_LT_FILEUTILS_DEFAULTS])dnl +m4_require([_LT_TAG_COMPILER])dnl +AC_CACHE_CHECK([if $compiler supports -c -o file.$ac_objext], + [_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)], + [_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)=no + $RM -r conftest 2>/dev/null + mkdir conftest + cd conftest + mkdir out + echo "$lt_simple_compile_test_code" > conftest.$ac_ext + + lt_compiler_flag="-o out/conftest2.$ac_objext" + # Insert the option either (1) after the last *FLAGS variable, or + # (2) before a word containing "conftest.", or (3) at the end. + # Note that $ac_compile itself does not contain backslashes and begins + # with a dollar sign (not a hyphen), so the echo should work correctly. + lt_compile=`echo "$ac_compile" | $SED \ + -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ + -e 's: [[^ ]]*conftest\.: $lt_compiler_flag&:; t' \ + -e 's:$: $lt_compiler_flag:'` + (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&AS_MESSAGE_LOG_FD) + (eval "$lt_compile" 2>out/conftest.err) + ac_status=$? + cat out/conftest.err >&AS_MESSAGE_LOG_FD + echo "$as_me:$LINENO: \$? = $ac_status" >&AS_MESSAGE_LOG_FD + if (exit $ac_status) && test -s out/conftest2.$ac_objext + then + # The compiler can only warn and ignore the option if not recognized + # So say no if there are warnings + $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp + $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2 + if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then + _LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)=yes + fi + fi + chmod u+w . 2>&AS_MESSAGE_LOG_FD + $RM conftest* + # SGI C++ compiler will create directory out/ii_files/ for + # template instantiation + test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files + $RM out/* && rmdir out + cd .. + $RM -r conftest + $RM conftest* +]) +_LT_TAGDECL([compiler_c_o], [lt_cv_prog_compiler_c_o], [1], + [Does compiler simultaneously support -c and -o options?]) +])# _LT_COMPILER_C_O + + +# _LT_COMPILER_FILE_LOCKS([TAGNAME]) +# ---------------------------------- +# Check to see if we can do hard links to lock some files if needed +m4_defun([_LT_COMPILER_FILE_LOCKS], +[m4_require([_LT_ENABLE_LOCK])dnl +m4_require([_LT_FILEUTILS_DEFAULTS])dnl +_LT_COMPILER_C_O([$1]) + +hard_links=nottested +if test no = "$_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)" && test no != "$need_locks"; then + # do not overwrite the value of need_locks provided by the user + AC_MSG_CHECKING([if we can lock with hard links]) + hard_links=yes + $RM conftest* + ln conftest.a conftest.b 2>/dev/null && hard_links=no + touch conftest.a + ln conftest.a conftest.b 2>&5 || hard_links=no + ln conftest.a conftest.b 2>/dev/null && hard_links=no + AC_MSG_RESULT([$hard_links]) + if test no = "$hard_links"; then + AC_MSG_WARN(['$CC' does not support '-c -o', so 'make -j' may be unsafe]) + need_locks=warn + fi +else + need_locks=no +fi +_LT_DECL([], [need_locks], [1], [Must we lock files when doing compilation?]) +])# _LT_COMPILER_FILE_LOCKS + + +# _LT_CHECK_OBJDIR +# ---------------- +m4_defun([_LT_CHECK_OBJDIR], +[AC_CACHE_CHECK([for objdir], [lt_cv_objdir], +[rm -f .libs 2>/dev/null +mkdir .libs 2>/dev/null +if test -d .libs; then + lt_cv_objdir=.libs +else + # MS-DOS does not allow filenames that begin with a dot. + lt_cv_objdir=_libs +fi +rmdir .libs 2>/dev/null]) +objdir=$lt_cv_objdir +_LT_DECL([], [objdir], [0], + [The name of the directory that contains temporary libtool files])dnl +m4_pattern_allow([LT_OBJDIR])dnl +AC_DEFINE_UNQUOTED([LT_OBJDIR], "$lt_cv_objdir/", + [Define to the sub-directory where libtool stores uninstalled libraries.]) +])# _LT_CHECK_OBJDIR + + +# _LT_LINKER_HARDCODE_LIBPATH([TAGNAME]) +# -------------------------------------- +# Check hardcoding attributes. +m4_defun([_LT_LINKER_HARDCODE_LIBPATH], +[AC_MSG_CHECKING([how to hardcode library paths into programs]) +_LT_TAGVAR(hardcode_action, $1)= +if test -n "$_LT_TAGVAR(hardcode_libdir_flag_spec, $1)" || + test -n "$_LT_TAGVAR(runpath_var, $1)" || + test yes = "$_LT_TAGVAR(hardcode_automatic, $1)"; then + + # We can hardcode non-existent directories. + if test no != "$_LT_TAGVAR(hardcode_direct, $1)" && + # If the only mechanism to avoid hardcoding is shlibpath_var, we + # have to relink, otherwise we might link with an installed library + # when we should be linking with a yet-to-be-installed one + ## test no != "$_LT_TAGVAR(hardcode_shlibpath_var, $1)" && + test no != "$_LT_TAGVAR(hardcode_minus_L, $1)"; then + # Linking always hardcodes the temporary library directory. + _LT_TAGVAR(hardcode_action, $1)=relink + else + # We can link without hardcoding, and we can hardcode nonexisting dirs. + _LT_TAGVAR(hardcode_action, $1)=immediate + fi +else + # We cannot hardcode anything, or else we can only hardcode existing + # directories. + _LT_TAGVAR(hardcode_action, $1)=unsupported +fi +AC_MSG_RESULT([$_LT_TAGVAR(hardcode_action, $1)]) + +if test relink = "$_LT_TAGVAR(hardcode_action, $1)" || + test yes = "$_LT_TAGVAR(inherit_rpath, $1)"; then + # Fast installation is not supported + enable_fast_install=no +elif test yes = "$shlibpath_overrides_runpath" || + test no = "$enable_shared"; then + # Fast installation is not necessary + enable_fast_install=needless +fi +_LT_TAGDECL([], [hardcode_action], [0], + [How to hardcode a shared library path into an executable]) +])# _LT_LINKER_HARDCODE_LIBPATH + + +# _LT_CMD_STRIPLIB +# ---------------- +m4_defun([_LT_CMD_STRIPLIB], +[m4_require([_LT_DECL_EGREP]) +striplib= +old_striplib= +AC_MSG_CHECKING([whether stripping libraries is possible]) +if test -n "$STRIP" && $STRIP -V 2>&1 | $GREP "GNU strip" >/dev/null; then + test -z "$old_striplib" && old_striplib="$STRIP --strip-debug" + test -z "$striplib" && striplib="$STRIP --strip-unneeded" + AC_MSG_RESULT([yes]) +else +# FIXME - insert some real tests, host_os isn't really good enough + case $host_os in + darwin*) + if test -n "$STRIP"; then + striplib="$STRIP -x" + old_striplib="$STRIP -S" + AC_MSG_RESULT([yes]) + else + AC_MSG_RESULT([no]) + fi + ;; + *) + AC_MSG_RESULT([no]) + ;; + esac +fi +_LT_DECL([], [old_striplib], [1], [Commands to strip libraries]) +_LT_DECL([], [striplib], [1]) +])# _LT_CMD_STRIPLIB + + +# _LT_PREPARE_MUNGE_PATH_LIST +# --------------------------- +# Make sure func_munge_path_list() is defined correctly. +m4_defun([_LT_PREPARE_MUNGE_PATH_LIST], +[[# func_munge_path_list VARIABLE PATH +# ----------------------------------- +# VARIABLE is name of variable containing _space_ separated list of +# directories to be munged by the contents of PATH, which is string +# having a format: +# "DIR[:DIR]:" +# string "DIR[ DIR]" will be prepended to VARIABLE +# ":DIR[:DIR]" +# string "DIR[ DIR]" will be appended to VARIABLE +# "DIRP[:DIRP]::[DIRA:]DIRA" +# string "DIRP[ DIRP]" will be prepended to VARIABLE and string +# "DIRA[ DIRA]" will be appended to VARIABLE +# "DIR[:DIR]" +# VARIABLE will be replaced by "DIR[ DIR]" +func_munge_path_list () +{ + case x@S|@2 in + x) + ;; + *:) + eval @S|@1=\"`$ECHO @S|@2 | $SED 's/:/ /g'` \@S|@@S|@1\" + ;; + x:*) + eval @S|@1=\"\@S|@@S|@1 `$ECHO @S|@2 | $SED 's/:/ /g'`\" + ;; + *::*) + eval @S|@1=\"\@S|@@S|@1\ `$ECHO @S|@2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" + eval @S|@1=\"`$ECHO @S|@2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \@S|@@S|@1\" + ;; + *) + eval @S|@1=\"`$ECHO @S|@2 | $SED 's/:/ /g'`\" + ;; + esac +} +]])# _LT_PREPARE_PATH_LIST + + +# _LT_SYS_DYNAMIC_LINKER([TAG]) +# ----------------------------- +# PORTME Fill in your ld.so characteristics +m4_defun([_LT_SYS_DYNAMIC_LINKER], +[AC_REQUIRE([AC_CANONICAL_HOST])dnl +m4_require([_LT_DECL_EGREP])dnl +m4_require([_LT_FILEUTILS_DEFAULTS])dnl +m4_require([_LT_DECL_OBJDUMP])dnl +m4_require([_LT_DECL_SED])dnl +m4_require([_LT_CHECK_SHELL_FEATURES])dnl +m4_require([_LT_PREPARE_MUNGE_PATH_LIST])dnl +AC_MSG_CHECKING([dynamic linker characteristics]) +m4_if([$1], + [], [ +if test yes = "$GCC"; then + case $host_os in + darwin*) lt_awk_arg='/^libraries:/,/LR/' ;; + *) lt_awk_arg='/^libraries:/' ;; + esac + case $host_os in + mingw* | cegcc*) lt_sed_strip_eq='s|=\([[A-Za-z]]:\)|\1|g' ;; + *) lt_sed_strip_eq='s|=/|/|g' ;; + esac + lt_search_path_spec=`$CC -print-search-dirs | awk $lt_awk_arg | $SED -e "s/^libraries://" -e $lt_sed_strip_eq` + case $lt_search_path_spec in + *\;*) + # if the path contains ";" then we assume it to be the separator + # otherwise default to the standard path separator (i.e. ":") - it is + # assumed that no part of a normal pathname contains ";" but that should + # okay in the real world where ";" in dirpaths is itself problematic. + lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED 's/;/ /g'` + ;; + *) + lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED "s/$PATH_SEPARATOR/ /g"` + ;; + esac + # Ok, now we have the path, separated by spaces, we can step through it + # and add multilib dir if necessary... + lt_tmp_lt_search_path_spec= + lt_multi_os_dir=/`$CC $CPPFLAGS $CFLAGS $LDFLAGS -print-multi-os-directory 2>/dev/null` + # ...but if some path component already ends with the multilib dir we assume + # that all is fine and trust -print-search-dirs as is (GCC 4.2? or newer). + case "$lt_multi_os_dir; $lt_search_path_spec " in + "/; "* | "/.; "* | "/./; "* | *"$lt_multi_os_dir "* | *"$lt_multi_os_dir/ "*) + lt_multi_os_dir= + ;; + esac + for lt_sys_path in $lt_search_path_spec; do + if test -d "$lt_sys_path$lt_multi_os_dir"; then + lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path$lt_multi_os_dir" + elif test -n "$lt_multi_os_dir"; then + test -d "$lt_sys_path" && \ + lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path" + fi + done + lt_search_path_spec=`$ECHO "$lt_tmp_lt_search_path_spec" | awk ' +BEGIN {RS = " "; FS = "/|\n";} { + lt_foo = ""; + lt_count = 0; + for (lt_i = NF; lt_i > 0; lt_i--) { + if ($lt_i != "" && $lt_i != ".") { + if ($lt_i == "..") { + lt_count++; + } else { + if (lt_count == 0) { + lt_foo = "/" $lt_i lt_foo; + } else { + lt_count--; + } + } + } + } + if (lt_foo != "") { lt_freq[[lt_foo]]++; } + if (lt_freq[[lt_foo]] == 1) { print lt_foo; } +}'` + # AWK program above erroneously prepends '/' to C:/dos/paths + # for these hosts. + case $host_os in + mingw* | cegcc*) lt_search_path_spec=`$ECHO "$lt_search_path_spec" |\ + $SED 's|/\([[A-Za-z]]:\)|\1|g'` ;; + esac + sys_lib_search_path_spec=`$ECHO "$lt_search_path_spec" | $lt_NL2SP` +else + sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" +fi]) +library_names_spec= +libname_spec='lib$name' +soname_spec= +shrext_cmds=.so +postinstall_cmds= +postuninstall_cmds= +finish_cmds= +finish_eval= +shlibpath_var= +shlibpath_overrides_runpath=unknown +version_type=none +dynamic_linker="$host_os ld.so" +sys_lib_dlsearch_path_spec="/lib /usr/lib" +need_lib_prefix=unknown +hardcode_into_libs=no + +# when you set need_version to no, make sure it does not cause -set_version +# flags to be left without arguments +need_version=unknown + +AC_ARG_VAR([LT_SYS_LIBRARY_PATH], +[User-defined run-time library search path.]) + +case $host_os in +aix3*) + version_type=linux # correct to gnu/linux during the next big refactor + library_names_spec='$libname$release$shared_ext$versuffix $libname.a' + shlibpath_var=LIBPATH + + # AIX 3 has no versioning support, so we append a major version to the name. + soname_spec='$libname$release$shared_ext$major' + ;; + +aix[[4-9]]*) + version_type=linux # correct to gnu/linux during the next big refactor + need_lib_prefix=no + need_version=no + hardcode_into_libs=yes + if test ia64 = "$host_cpu"; then + # AIX 5 supports IA64 + library_names_spec='$libname$release$shared_ext$major $libname$release$shared_ext$versuffix $libname$shared_ext' + shlibpath_var=LD_LIBRARY_PATH + else + # With GCC up to 2.95.x, collect2 would create an import file + # for dependence libraries. The import file would start with + # the line '#! .'. This would cause the generated library to + # depend on '.', always an invalid library. This was fixed in + # development snapshots of GCC prior to 3.0. + case $host_os in + aix4 | aix4.[[01]] | aix4.[[01]].*) + if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)' + echo ' yes ' + echo '#endif'; } | $CC -E - | $GREP yes > /dev/null; then + : + else + can_build_shared=no + fi + ;; + esac + # Using Import Files as archive members, it is possible to support + # filename-based versioning of shared library archives on AIX. While + # this would work for both with and without runtime linking, it will + # prevent static linking of such archives. So we do filename-based + # shared library versioning with .so extension only, which is used + # when both runtime linking and shared linking is enabled. + # Unfortunately, runtime linking may impact performance, so we do + # not want this to be the default eventually. Also, we use the + # versioned .so libs for executables only if there is the -brtl + # linker flag in LDFLAGS as well, or --with-aix-soname=svr4 only. + # To allow for filename-based versioning support, we need to create + # libNAME.so.V as an archive file, containing: + # *) an Import File, referring to the versioned filename of the + # archive as well as the shared archive member, telling the + # bitwidth (32 or 64) of that shared object, and providing the + # list of exported symbols of that shared object, eventually + # decorated with the 'weak' keyword + # *) the shared object with the F_LOADONLY flag set, to really avoid + # it being seen by the linker. + # At run time we better use the real file rather than another symlink, + # but for link time we create the symlink libNAME.so -> libNAME.so.V + + case $with_aix_soname,$aix_use_runtimelinking in + # AIX (on Power*) has no versioning support, so currently we cannot hardcode correct + # soname into executable. Probably we can add versioning support to + # collect2, so additional links can be useful in future. + aix,yes) # traditional libtool + dynamic_linker='AIX unversionable lib.so' + # If using run time linking (on AIX 4.2 or later) use lib.so + # instead of lib.a to let people know that these are not + # typical AIX shared libraries. + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + ;; + aix,no) # traditional AIX only + dynamic_linker='AIX lib.a[(]lib.so.V[)]' + # We preserve .a as extension for shared libraries through AIX4.2 + # and later when we are not doing run time linking. + library_names_spec='$libname$release.a $libname.a' + soname_spec='$libname$release$shared_ext$major' + ;; + svr4,*) # full svr4 only + dynamic_linker="AIX lib.so.V[(]$shared_archive_member_spec.o[)]" + library_names_spec='$libname$release$shared_ext$major $libname$shared_ext' + # We do not specify a path in Import Files, so LIBPATH fires. + shlibpath_overrides_runpath=yes + ;; + *,yes) # both, prefer svr4 + dynamic_linker="AIX lib.so.V[(]$shared_archive_member_spec.o[)], lib.a[(]lib.so.V[)]" + library_names_spec='$libname$release$shared_ext$major $libname$shared_ext' + # unpreferred sharedlib libNAME.a needs extra handling + postinstall_cmds='test -n "$linkname" || linkname="$realname"~func_stripname "" ".so" "$linkname"~$install_shared_prog "$dir/$func_stripname_result.$libext" "$destdir/$func_stripname_result.$libext"~test -z "$tstripme" || test -z "$striplib" || $striplib "$destdir/$func_stripname_result.$libext"' + postuninstall_cmds='for n in $library_names $old_library; do :; done~func_stripname "" ".so" "$n"~test "$func_stripname_result" = "$n" || func_append rmfiles " $odir/$func_stripname_result.$libext"' + # We do not specify a path in Import Files, so LIBPATH fires. + shlibpath_overrides_runpath=yes + ;; + *,no) # both, prefer aix + dynamic_linker="AIX lib.a[(]lib.so.V[)], lib.so.V[(]$shared_archive_member_spec.o[)]" + library_names_spec='$libname$release.a $libname.a' + soname_spec='$libname$release$shared_ext$major' + # unpreferred sharedlib libNAME.so.V and symlink libNAME.so need extra handling + postinstall_cmds='test -z "$dlname" || $install_shared_prog $dir/$dlname $destdir/$dlname~test -z "$tstripme" || test -z "$striplib" || $striplib $destdir/$dlname~test -n "$linkname" || linkname=$realname~func_stripname "" ".a" "$linkname"~(cd "$destdir" && $LN_S -f $dlname $func_stripname_result.so)' + postuninstall_cmds='test -z "$dlname" || func_append rmfiles " $odir/$dlname"~for n in $old_library $library_names; do :; done~func_stripname "" ".a" "$n"~func_append rmfiles " $odir/$func_stripname_result.so"' + ;; + esac + shlibpath_var=LIBPATH + fi + ;; + +amigaos*) + case $host_cpu in + powerpc) + # Since July 2007 AmigaOS4 officially supports .so libraries. + # When compiling the executable, add -use-dynld -Lsobjs: to the compileline. + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + ;; + m68k) + library_names_spec='$libname.ixlibrary $libname.a' + # Create ${libname}_ixlibrary.a entries in /sys/libs. + finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`func_echo_all "$lib" | $SED '\''s%^.*/\([[^/]]*\)\.ixlibrary$%\1%'\''`; $RM /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done' + ;; + esac + ;; + +beos*) + library_names_spec='$libname$shared_ext' + dynamic_linker="$host_os ld.so" + shlibpath_var=LIBRARY_PATH + ;; + +bsdi[[45]]*) + version_type=linux # correct to gnu/linux during the next big refactor + need_version=no + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir' + shlibpath_var=LD_LIBRARY_PATH + sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib" + sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib" + # the default ld.so.conf also contains /usr/contrib/lib and + # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow + # libtool to hard-code these into programs + ;; + +cygwin* | mingw* | pw32* | cegcc*) + version_type=windows + shrext_cmds=.dll + need_version=no + need_lib_prefix=no + + case $GCC,$cc_basename in + yes,*) + # gcc + library_names_spec='$libname.dll.a' + # DLL is installed to $(libdir)/../bin by postinstall_cmds + postinstall_cmds='base_file=`basename \$file`~ + dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; echo \$dlname'\''`~ + dldir=$destdir/`dirname \$dlpath`~ + test -d \$dldir || mkdir -p \$dldir~ + $install_prog $dir/$dlname \$dldir/$dlname~ + chmod a+x \$dldir/$dlname~ + if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then + eval '\''$striplib \$dldir/$dlname'\'' || exit \$?; + fi' + postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ + dlpath=$dir/\$dldll~ + $RM \$dlpath' + shlibpath_overrides_runpath=yes + + case $host_os in + cygwin*) + # Cygwin DLLs use 'cyg' prefix rather than 'lib' + soname_spec='`echo $libname | sed -e 's/^lib/cyg/'``echo $release | $SED -e 's/[[.]]/-/g'`$versuffix$shared_ext' +m4_if([$1], [],[ + sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/lib/w32api"]) + ;; + mingw* | cegcc*) + # MinGW DLLs use traditional 'lib' prefix + soname_spec='$libname`echo $release | $SED -e 's/[[.]]/-/g'`$versuffix$shared_ext' + ;; + pw32*) + # pw32 DLLs use 'pw' prefix rather than 'lib' + library_names_spec='`echo $libname | sed -e 's/^lib/pw/'``echo $release | $SED -e 's/[[.]]/-/g'`$versuffix$shared_ext' + ;; + esac + dynamic_linker='Win32 ld.exe' + ;; + + *,cl*) + # Native MSVC + libname_spec='$name' + soname_spec='$libname`echo $release | $SED -e 's/[[.]]/-/g'`$versuffix$shared_ext' + library_names_spec='$libname.dll.lib' + + case $build_os in + mingw*) + sys_lib_search_path_spec= + lt_save_ifs=$IFS + IFS=';' + for lt_path in $LIB + do + IFS=$lt_save_ifs + # Let DOS variable expansion print the short 8.3 style file name. + lt_path=`cd "$lt_path" 2>/dev/null && cmd //C "for %i in (".") do @echo %~si"` + sys_lib_search_path_spec="$sys_lib_search_path_spec $lt_path" + done + IFS=$lt_save_ifs + # Convert to MSYS style. + sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | sed -e 's|\\\\|/|g' -e 's| \\([[a-zA-Z]]\\):| /\\1|g' -e 's|^ ||'` + ;; + cygwin*) + # Convert to unix form, then to dos form, then back to unix form + # but this time dos style (no spaces!) so that the unix form looks + # like /cygdrive/c/PROGRA~1:/cygdr... + sys_lib_search_path_spec=`cygpath --path --unix "$LIB"` + sys_lib_search_path_spec=`cygpath --path --dos "$sys_lib_search_path_spec" 2>/dev/null` + sys_lib_search_path_spec=`cygpath --path --unix "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` + ;; + *) + sys_lib_search_path_spec=$LIB + if $ECHO "$sys_lib_search_path_spec" | [$GREP ';[c-zC-Z]:/' >/dev/null]; then + # It is most probably a Windows format PATH. + sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'` + else + sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` + fi + # FIXME: find the short name or the path components, as spaces are + # common. (e.g. "Program Files" -> "PROGRA~1") + ;; + esac + + # DLL is installed to $(libdir)/../bin by postinstall_cmds + postinstall_cmds='base_file=`basename \$file`~ + dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; echo \$dlname'\''`~ + dldir=$destdir/`dirname \$dlpath`~ + test -d \$dldir || mkdir -p \$dldir~ + $install_prog $dir/$dlname \$dldir/$dlname' + postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ + dlpath=$dir/\$dldll~ + $RM \$dlpath' + shlibpath_overrides_runpath=yes + dynamic_linker='Win32 link.exe' + ;; + + *) + # Assume MSVC wrapper + library_names_spec='$libname`echo $release | $SED -e 's/[[.]]/-/g'`$versuffix$shared_ext $libname.lib' + dynamic_linker='Win32 ld.exe' + ;; + esac + # FIXME: first we should search . and the directory the executable is in + shlibpath_var=PATH + ;; + +darwin* | rhapsody*) + dynamic_linker="$host_os dyld" + version_type=darwin + need_lib_prefix=no + need_version=no + library_names_spec='$libname$release$major$shared_ext $libname$shared_ext' + soname_spec='$libname$release$major$shared_ext' + shlibpath_overrides_runpath=yes + shlibpath_var=DYLD_LIBRARY_PATH + shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`' +m4_if([$1], [],[ + sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/local/lib"]) + sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib' + ;; + +dgux*) + version_type=linux # correct to gnu/linux during the next big refactor + need_lib_prefix=no + need_version=no + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + shlibpath_var=LD_LIBRARY_PATH + ;; + +freebsd* | dragonfly*) + # DragonFly does not have aout. When/if they implement a new + # versioning mechanism, adjust this. + if test -x /usr/bin/objformat; then + objformat=`/usr/bin/objformat` + else + case $host_os in + freebsd[[23]].*) objformat=aout ;; + *) objformat=elf ;; + esac + fi + version_type=freebsd-$objformat + case $version_type in + freebsd-elf*) + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + need_version=no + need_lib_prefix=no + ;; + freebsd-*) + library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix' + need_version=yes + ;; + esac + shlibpath_var=LD_LIBRARY_PATH + case $host_os in + freebsd2.*) + shlibpath_overrides_runpath=yes + ;; + freebsd3.[[01]]* | freebsdelf3.[[01]]*) + shlibpath_overrides_runpath=yes + hardcode_into_libs=yes + ;; + freebsd3.[[2-9]]* | freebsdelf3.[[2-9]]* | \ + freebsd4.[[0-5]] | freebsdelf4.[[0-5]] | freebsd4.1.1 | freebsdelf4.1.1) + shlibpath_overrides_runpath=no + hardcode_into_libs=yes + ;; + *) # from 4.6 on, and DragonFly + shlibpath_overrides_runpath=yes + hardcode_into_libs=yes + ;; + esac + ;; + +haiku*) + version_type=linux # correct to gnu/linux during the next big refactor + need_lib_prefix=no + need_version=no + dynamic_linker="$host_os runtime_loader" + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + shlibpath_var=LIBRARY_PATH + shlibpath_overrides_runpath=no + sys_lib_dlsearch_path_spec='/boot/home/config/lib /boot/common/lib /boot/system/lib' + hardcode_into_libs=yes + ;; + +hpux9* | hpux10* | hpux11*) + # Give a soname corresponding to the major version so that dld.sl refuses to + # link against other versions. + version_type=sunos + need_lib_prefix=no + need_version=no + case $host_cpu in + ia64*) + shrext_cmds='.so' + hardcode_into_libs=yes + dynamic_linker="$host_os dld.so" + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + if test 32 = "$HPUX_IA64_MODE"; then + sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib" + sys_lib_dlsearch_path_spec=/usr/lib/hpux32 + else + sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64" + sys_lib_dlsearch_path_spec=/usr/lib/hpux64 + fi + ;; + hppa*64*) + shrext_cmds='.sl' + hardcode_into_libs=yes + dynamic_linker="$host_os dld.sl" + shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH + shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64" + sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec + ;; + *) + shrext_cmds='.sl' + dynamic_linker="$host_os dld.sl" + shlibpath_var=SHLIB_PATH + shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + ;; + esac + # HP-UX runs *really* slowly unless shared libraries are mode 555, ... + postinstall_cmds='chmod 555 $lib' + # or fails outright, so override atomically: + install_override_mode=555 + ;; + +interix[[3-9]]*) + version_type=linux # correct to gnu/linux during the next big refactor + need_lib_prefix=no + need_version=no + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=no + hardcode_into_libs=yes + ;; + +irix5* | irix6* | nonstopux*) + case $host_os in + nonstopux*) version_type=nonstopux ;; + *) + if test yes = "$lt_cv_prog_gnu_ld"; then + version_type=linux # correct to gnu/linux during the next big refactor + else + version_type=irix + fi ;; + esac + need_lib_prefix=no + need_version=no + soname_spec='$libname$release$shared_ext$major' + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$release$shared_ext $libname$shared_ext' + case $host_os in + irix5* | nonstopux*) + libsuff= shlibsuff= + ;; + *) + case $LD in # libtool.m4 will add one of these switches to LD + *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ") + libsuff= shlibsuff= libmagic=32-bit;; + *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ") + libsuff=32 shlibsuff=N32 libmagic=N32;; + *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ") + libsuff=64 shlibsuff=64 libmagic=64-bit;; + *) libsuff= shlibsuff= libmagic=never-match;; + esac + ;; + esac + shlibpath_var=LD_LIBRARY${shlibsuff}_PATH + shlibpath_overrides_runpath=no + sys_lib_search_path_spec="/usr/lib$libsuff /lib$libsuff /usr/local/lib$libsuff" + sys_lib_dlsearch_path_spec="/usr/lib$libsuff /lib$libsuff" + hardcode_into_libs=yes + ;; + +# No shared lib support for Linux oldld, aout, or coff. +linux*oldld* | linux*aout* | linux*coff*) + dynamic_linker=no + ;; + +linux*android*) + version_type=none # Android doesn't support versioned libraries. + need_lib_prefix=no + need_version=no + library_names_spec='$libname$release$shared_ext' + soname_spec='$libname$release$shared_ext' + finish_cmds= + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + + # This implies no fast_install, which is unacceptable. + # Some rework will be needed to allow for fast_install + # before this can be enabled. + hardcode_into_libs=yes + + dynamic_linker='Android linker' + # Don't embed -rpath directories since the linker doesn't support them. + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' + ;; + +# This must be glibc/ELF. +linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*) + version_type=linux # correct to gnu/linux during the next big refactor + need_lib_prefix=no + need_version=no + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=no + + # Some binutils ld are patched to set DT_RUNPATH + AC_CACHE_VAL([lt_cv_shlibpath_overrides_runpath], + [lt_cv_shlibpath_overrides_runpath=no + save_LDFLAGS=$LDFLAGS + save_libdir=$libdir + eval "libdir=/foo; wl=\"$_LT_TAGVAR(lt_prog_compiler_wl, $1)\"; \ + LDFLAGS=\"\$LDFLAGS $_LT_TAGVAR(hardcode_libdir_flag_spec, $1)\"" + AC_LINK_IFELSE([AC_LANG_PROGRAM([],[])], + [AS_IF([ ($OBJDUMP -p conftest$ac_exeext) 2>/dev/null | grep "RUNPATH.*$libdir" >/dev/null], + [lt_cv_shlibpath_overrides_runpath=yes])]) + LDFLAGS=$save_LDFLAGS + libdir=$save_libdir + ]) + shlibpath_overrides_runpath=$lt_cv_shlibpath_overrides_runpath + + # This implies no fast_install, which is unacceptable. + # Some rework will be needed to allow for fast_install + # before this can be enabled. + hardcode_into_libs=yes + + # Ideally, we could use ldconfig to report *all* directores which are + # searched for libraries, however this is still not possible. Aside from not + # being certain /sbin/ldconfig is available, command + # 'ldconfig -N -X -v | grep ^/' on 64bit Fedora does not report /usr/lib64, + # even though it is searched at run-time. Try to do the best guess by + # appending ld.so.conf contents (and includes) to the search path. + if test -f /etc/ld.so.conf; then + lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \[$]2)); skip = 1; } { if (!skip) print \[$]0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;s/"//g;/^$/d' | tr '\n' ' '` + sys_lib_dlsearch_path_spec="/lib /usr/lib $lt_ld_extra" + fi + + # We used to test for /lib/ld.so.1 and disable shared libraries on + # powerpc, because MkLinux only supported shared libraries with the + # GNU dynamic linker. Since this was broken with cross compilers, + # most powerpc-linux boxes support dynamic linking these days and + # people can always --disable-shared, the test was removed, and we + # assume the GNU/Linux dynamic linker is in use. + dynamic_linker='GNU/Linux ld.so' + ;; + +netbsd*) + version_type=sunos + need_lib_prefix=no + need_version=no + if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then + library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix' + finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' + dynamic_linker='NetBSD (a.out) ld.so' + else + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + dynamic_linker='NetBSD ld.elf_so' + fi + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + hardcode_into_libs=yes + ;; + +newsos6) + version_type=linux # correct to gnu/linux during the next big refactor + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + ;; + +*nto* | *qnx*) + version_type=qnx + need_lib_prefix=no + need_version=no + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=no + hardcode_into_libs=yes + dynamic_linker='ldqnx.so' + ;; + +openbsd* | bitrig*) + version_type=sunos + sys_lib_dlsearch_path_spec=/usr/lib + need_lib_prefix=no + if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`"; then + need_version=no + else + need_version=yes + fi + library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix' + finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + ;; + +os2*) + libname_spec='$name' + version_type=windows + shrext_cmds=.dll + need_version=no + need_lib_prefix=no + # OS/2 can only load a DLL with a base name of 8 characters or less. + soname_spec='`test -n "$os2dllname" && libname="$os2dllname"; + v=$($ECHO $release$versuffix | tr -d .-); + n=$($ECHO $libname | cut -b -$((8 - ${#v})) | tr . _); + $ECHO $n$v`$shared_ext' + library_names_spec='${libname}_dll.$libext' + dynamic_linker='OS/2 ld.exe' + shlibpath_var=BEGINLIBPATH + sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" + sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec + postinstall_cmds='base_file=`basename \$file`~ + dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; $ECHO \$dlname'\''`~ + dldir=$destdir/`dirname \$dlpath`~ + test -d \$dldir || mkdir -p \$dldir~ + $install_prog $dir/$dlname \$dldir/$dlname~ + chmod a+x \$dldir/$dlname~ + if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then + eval '\''$striplib \$dldir/$dlname'\'' || exit \$?; + fi' + postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; $ECHO \$dlname'\''`~ + dlpath=$dir/\$dldll~ + $RM \$dlpath' + ;; + +osf3* | osf4* | osf5*) + version_type=osf + need_lib_prefix=no + need_version=no + soname_spec='$libname$release$shared_ext$major' + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + shlibpath_var=LD_LIBRARY_PATH + sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib" + sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec + ;; + +rdos*) + dynamic_linker=no + ;; + +solaris*) + version_type=linux # correct to gnu/linux during the next big refactor + need_lib_prefix=no + need_version=no + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + hardcode_into_libs=yes + # ldd complains unless libraries are executable + postinstall_cmds='chmod +x $lib' + ;; + +sunos4*) + version_type=sunos + library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix' + finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + if test yes = "$with_gnu_ld"; then + need_lib_prefix=no + fi + need_version=yes + ;; + +sysv4 | sysv4.3*) + version_type=linux # correct to gnu/linux during the next big refactor + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + shlibpath_var=LD_LIBRARY_PATH + case $host_vendor in + sni) + shlibpath_overrides_runpath=no + need_lib_prefix=no + runpath_var=LD_RUN_PATH + ;; + siemens) + need_lib_prefix=no + ;; + motorola) + need_lib_prefix=no + need_version=no + shlibpath_overrides_runpath=no + sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib' + ;; + esac + ;; + +sysv4*MP*) + if test -d /usr/nec; then + version_type=linux # correct to gnu/linux during the next big refactor + library_names_spec='$libname$shared_ext.$versuffix $libname$shared_ext.$major $libname$shared_ext' + soname_spec='$libname$shared_ext.$major' + shlibpath_var=LD_LIBRARY_PATH + fi + ;; + +sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) + version_type=sco + need_lib_prefix=no + need_version=no + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + hardcode_into_libs=yes + if test yes = "$with_gnu_ld"; then + sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib' + else + sys_lib_search_path_spec='/usr/ccs/lib /usr/lib' + case $host_os in + sco3.2v5*) + sys_lib_search_path_spec="$sys_lib_search_path_spec /lib" + ;; + esac + fi + sys_lib_dlsearch_path_spec='/usr/lib' + ;; + +tpf*) + # TPF is a cross-target only. Preferred cross-host = GNU/Linux. + version_type=linux # correct to gnu/linux during the next big refactor + need_lib_prefix=no + need_version=no + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=no + hardcode_into_libs=yes + ;; + +uts4*) + version_type=linux # correct to gnu/linux during the next big refactor + library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' + soname_spec='$libname$release$shared_ext$major' + shlibpath_var=LD_LIBRARY_PATH + ;; + +*) + dynamic_linker=no + ;; +esac +AC_MSG_RESULT([$dynamic_linker]) +test no = "$dynamic_linker" && can_build_shared=no + +variables_saved_for_relink="PATH $shlibpath_var $runpath_var" +if test yes = "$GCC"; then + variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH" +fi + +if test set = "${lt_cv_sys_lib_search_path_spec+set}"; then + sys_lib_search_path_spec=$lt_cv_sys_lib_search_path_spec +fi + +if test set = "${lt_cv_sys_lib_dlsearch_path_spec+set}"; then + sys_lib_dlsearch_path_spec=$lt_cv_sys_lib_dlsearch_path_spec +fi + +# remember unaugmented sys_lib_dlsearch_path content for libtool script decls... +configure_time_dlsearch_path=$sys_lib_dlsearch_path_spec + +# ... but it needs LT_SYS_LIBRARY_PATH munging for other configure-time code +func_munge_path_list sys_lib_dlsearch_path_spec "$LT_SYS_LIBRARY_PATH" + +# to be used as default LT_SYS_LIBRARY_PATH value in generated libtool +configure_time_lt_sys_library_path=$LT_SYS_LIBRARY_PATH + +_LT_DECL([], [variables_saved_for_relink], [1], + [Variables whose values should be saved in libtool wrapper scripts and + restored at link time]) +_LT_DECL([], [need_lib_prefix], [0], + [Do we need the "lib" prefix for modules?]) +_LT_DECL([], [need_version], [0], [Do we need a version for libraries?]) +_LT_DECL([], [version_type], [0], [Library versioning type]) +_LT_DECL([], [runpath_var], [0], [Shared library runtime path variable]) +_LT_DECL([], [shlibpath_var], [0],[Shared library path variable]) +_LT_DECL([], [shlibpath_overrides_runpath], [0], + [Is shlibpath searched before the hard-coded library search path?]) +_LT_DECL([], [libname_spec], [1], [Format of library name prefix]) +_LT_DECL([], [library_names_spec], [1], + [[List of archive names. First name is the real one, the rest are links. + The last name is the one that the linker finds with -lNAME]]) +_LT_DECL([], [soname_spec], [1], + [[The coded name of the library, if different from the real name]]) +_LT_DECL([], [install_override_mode], [1], + [Permission mode override for installation of shared libraries]) +_LT_DECL([], [postinstall_cmds], [2], + [Command to use after installation of a shared archive]) +_LT_DECL([], [postuninstall_cmds], [2], + [Command to use after uninstallation of a shared archive]) +_LT_DECL([], [finish_cmds], [2], + [Commands used to finish a libtool library installation in a directory]) +_LT_DECL([], [finish_eval], [1], + [[As "finish_cmds", except a single script fragment to be evaled but + not shown]]) +_LT_DECL([], [hardcode_into_libs], [0], + [Whether we should hardcode library paths into libraries]) +_LT_DECL([], [sys_lib_search_path_spec], [2], + [Compile-time system search path for libraries]) +_LT_DECL([sys_lib_dlsearch_path_spec], [configure_time_dlsearch_path], [2], + [Detected run-time system search path for libraries]) +_LT_DECL([], [configure_time_lt_sys_library_path], [2], + [Explicit LT_SYS_LIBRARY_PATH set during ./configure time]) +])# _LT_SYS_DYNAMIC_LINKER + + +# _LT_PATH_TOOL_PREFIX(TOOL) +# -------------------------- +# find a file program that can recognize shared library +AC_DEFUN([_LT_PATH_TOOL_PREFIX], +[m4_require([_LT_DECL_EGREP])dnl +AC_MSG_CHECKING([for $1]) +AC_CACHE_VAL(lt_cv_path_MAGIC_CMD, +[case $MAGIC_CMD in +[[\\/*] | ?:[\\/]*]) + lt_cv_path_MAGIC_CMD=$MAGIC_CMD # Let the user override the test with a path. + ;; +*) + lt_save_MAGIC_CMD=$MAGIC_CMD + lt_save_ifs=$IFS; IFS=$PATH_SEPARATOR +dnl $ac_dummy forces splitting on constant user-supplied paths. +dnl POSIX.2 word splitting is done only on the output of word expansions, +dnl not every word. This closes a longstanding sh security hole. + ac_dummy="m4_if([$2], , $PATH, [$2])" + for ac_dir in $ac_dummy; do + IFS=$lt_save_ifs + test -z "$ac_dir" && ac_dir=. + if test -f "$ac_dir/$1"; then + lt_cv_path_MAGIC_CMD=$ac_dir/"$1" + if test -n "$file_magic_test_file"; then + case $deplibs_check_method in + "file_magic "*) + file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"` + MAGIC_CMD=$lt_cv_path_MAGIC_CMD + if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null | + $EGREP "$file_magic_regex" > /dev/null; then + : + else + cat <<_LT_EOF 1>&2 + +*** Warning: the command libtool uses to detect shared libraries, +*** $file_magic_cmd, produces output that libtool cannot recognize. +*** The result is that libtool may fail to recognize shared libraries +*** as such. This will affect the creation of libtool libraries that +*** depend on shared libraries, but programs linked with such libtool +*** libraries will work regardless of this problem. Nevertheless, you +*** may want to report the problem to your system manager and/or to +*** bug-libtool@gnu.org + +_LT_EOF + fi ;; + esac + fi + break + fi + done + IFS=$lt_save_ifs + MAGIC_CMD=$lt_save_MAGIC_CMD + ;; +esac]) +MAGIC_CMD=$lt_cv_path_MAGIC_CMD +if test -n "$MAGIC_CMD"; then + AC_MSG_RESULT($MAGIC_CMD) +else + AC_MSG_RESULT(no) +fi +_LT_DECL([], [MAGIC_CMD], [0], + [Used to examine libraries when file_magic_cmd begins with "file"])dnl +])# _LT_PATH_TOOL_PREFIX + +# Old name: +AU_ALIAS([AC_PATH_TOOL_PREFIX], [_LT_PATH_TOOL_PREFIX]) +dnl aclocal-1.4 backwards compatibility: +dnl AC_DEFUN([AC_PATH_TOOL_PREFIX], []) + + +# _LT_PATH_MAGIC +# -------------- +# find a file program that can recognize a shared library +m4_defun([_LT_PATH_MAGIC], +[_LT_PATH_TOOL_PREFIX(${ac_tool_prefix}file, /usr/bin$PATH_SEPARATOR$PATH) +if test -z "$lt_cv_path_MAGIC_CMD"; then + if test -n "$ac_tool_prefix"; then + _LT_PATH_TOOL_PREFIX(file, /usr/bin$PATH_SEPARATOR$PATH) + else + MAGIC_CMD=: + fi +fi +])# _LT_PATH_MAGIC + + +# LT_PATH_LD +# ---------- +# find the pathname to the GNU or non-GNU linker +AC_DEFUN([LT_PATH_LD], +[AC_REQUIRE([AC_PROG_CC])dnl +AC_REQUIRE([AC_CANONICAL_HOST])dnl +AC_REQUIRE([AC_CANONICAL_BUILD])dnl +m4_require([_LT_DECL_SED])dnl +m4_require([_LT_DECL_EGREP])dnl +m4_require([_LT_PROG_ECHO_BACKSLASH])dnl + +AC_ARG_WITH([gnu-ld], + [AS_HELP_STRING([--with-gnu-ld], + [assume the C compiler uses GNU ld @<:@default=no@:>@])], + [test no = "$withval" || with_gnu_ld=yes], + [with_gnu_ld=no])dnl + +ac_prog=ld +if test yes = "$GCC"; then + # Check if gcc -print-prog-name=ld gives a path. + AC_MSG_CHECKING([for ld used by $CC]) + case $host in + *-*-mingw*) + # gcc leaves a trailing carriage return, which upsets mingw + ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;; + *) + ac_prog=`($CC -print-prog-name=ld) 2>&5` ;; + esac + case $ac_prog in + # Accept absolute paths. + [[\\/]]* | ?:[[\\/]]*) + re_direlt='/[[^/]][[^/]]*/\.\./' + # Canonicalize the pathname of ld + ac_prog=`$ECHO "$ac_prog"| $SED 's%\\\\%/%g'` + while $ECHO "$ac_prog" | $GREP "$re_direlt" > /dev/null 2>&1; do + ac_prog=`$ECHO $ac_prog| $SED "s%$re_direlt%/%"` + done + test -z "$LD" && LD=$ac_prog + ;; + "") + # If it fails, then pretend we aren't using GCC. + ac_prog=ld + ;; + *) + # If it is relative, then search for the first ld in PATH. + with_gnu_ld=unknown + ;; + esac +elif test yes = "$with_gnu_ld"; then + AC_MSG_CHECKING([for GNU ld]) +else + AC_MSG_CHECKING([for non-GNU ld]) +fi +AC_CACHE_VAL(lt_cv_path_LD, +[if test -z "$LD"; then + lt_save_ifs=$IFS; IFS=$PATH_SEPARATOR + for ac_dir in $PATH; do + IFS=$lt_save_ifs + test -z "$ac_dir" && ac_dir=. + if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then + lt_cv_path_LD=$ac_dir/$ac_prog + # Check to see if the program is GNU ld. I'd rather use --version, + # but apparently some variants of GNU ld only accept -v. + # Break only if it was the GNU/non-GNU ld that we prefer. + case `"$lt_cv_path_LD" -v 2>&1 &1 conftest.i +cat conftest.i conftest.i >conftest2.i +: ${lt_DD:=$DD} +AC_PATH_PROGS_FEATURE_CHECK([lt_DD], [dd], +[if "$ac_path_lt_DD" bs=32 count=1 conftest.out 2>/dev/null; then + cmp -s conftest.i conftest.out \ + && ac_cv_path_lt_DD="$ac_path_lt_DD" ac_path_lt_DD_found=: +fi]) +rm -f conftest.i conftest2.i conftest.out]) +])# _LT_PATH_DD + + +# _LT_CMD_TRUNCATE +# ---------------- +# find command to truncate a binary pipe +m4_defun([_LT_CMD_TRUNCATE], +[m4_require([_LT_PATH_DD]) +AC_CACHE_CHECK([how to truncate binary pipes], [lt_cv_truncate_bin], +[printf 0123456789abcdef0123456789abcdef >conftest.i +cat conftest.i conftest.i >conftest2.i +lt_cv_truncate_bin= +if "$ac_cv_path_lt_DD" bs=32 count=1 conftest.out 2>/dev/null; then + cmp -s conftest.i conftest.out \ + && lt_cv_truncate_bin="$ac_cv_path_lt_DD bs=4096 count=1" +fi +rm -f conftest.i conftest2.i conftest.out +test -z "$lt_cv_truncate_bin" && lt_cv_truncate_bin="$SED -e 4q"]) +_LT_DECL([lt_truncate_bin], [lt_cv_truncate_bin], [1], + [Command to truncate a binary pipe]) +])# _LT_CMD_TRUNCATE + + +# _LT_CHECK_MAGIC_METHOD +# ---------------------- +# how to check for library dependencies +# -- PORTME fill in with the dynamic library characteristics +m4_defun([_LT_CHECK_MAGIC_METHOD], +[m4_require([_LT_DECL_EGREP]) +m4_require([_LT_DECL_OBJDUMP]) +AC_CACHE_CHECK([how to recognize dependent libraries], +lt_cv_deplibs_check_method, +[lt_cv_file_magic_cmd='$MAGIC_CMD' +lt_cv_file_magic_test_file= +lt_cv_deplibs_check_method='unknown' +# Need to set the preceding variable on all platforms that support +# interlibrary dependencies. +# 'none' -- dependencies not supported. +# 'unknown' -- same as none, but documents that we really don't know. +# 'pass_all' -- all dependencies passed with no checks. +# 'test_compile' -- check by making test program. +# 'file_magic [[regex]]' -- check by looking for files in library path +# that responds to the $file_magic_cmd with a given extended regex. +# If you have 'file' or equivalent on your system and you're not sure +# whether 'pass_all' will *always* work, you probably want this one. + +case $host_os in +aix[[4-9]]*) + lt_cv_deplibs_check_method=pass_all + ;; + +beos*) + lt_cv_deplibs_check_method=pass_all + ;; + +bsdi[[45]]*) + lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[ML]]SB (shared object|dynamic lib)' + lt_cv_file_magic_cmd='/usr/bin/file -L' + lt_cv_file_magic_test_file=/shlib/libc.so + ;; + +cygwin*) + # func_win32_libid is a shell function defined in ltmain.sh + lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL' + lt_cv_file_magic_cmd='func_win32_libid' + ;; + +mingw* | pw32*) + # Base MSYS/MinGW do not provide the 'file' command needed by + # func_win32_libid shell function, so use a weaker test based on 'objdump', + # unless we find 'file', for example because we are cross-compiling. + if ( file / ) >/dev/null 2>&1; then + lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL' + lt_cv_file_magic_cmd='func_win32_libid' + else + # Keep this pattern in sync with the one in func_win32_libid. + lt_cv_deplibs_check_method='file_magic file format (pei*-i386(.*architecture: i386)?|pe-arm-wince|pe-x86-64)' + lt_cv_file_magic_cmd='$OBJDUMP -f' + fi + ;; + +cegcc*) + # use the weaker test based on 'objdump'. See mingw*. + lt_cv_deplibs_check_method='file_magic file format pe-arm-.*little(.*architecture: arm)?' + lt_cv_file_magic_cmd='$OBJDUMP -f' + ;; + +darwin* | rhapsody*) + lt_cv_deplibs_check_method=pass_all + ;; + +freebsd* | dragonfly*) + if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then + case $host_cpu in + i*86 ) + # Not sure whether the presence of OpenBSD here was a mistake. + # Let's accept both of them until this is cleared up. + lt_cv_deplibs_check_method='file_magic (FreeBSD|OpenBSD|DragonFly)/i[[3-9]]86 (compact )?demand paged shared library' + lt_cv_file_magic_cmd=/usr/bin/file + lt_cv_file_magic_test_file=`echo /usr/lib/libc.so.*` + ;; + esac + else + lt_cv_deplibs_check_method=pass_all + fi + ;; + +haiku*) + lt_cv_deplibs_check_method=pass_all + ;; + +hpux10.20* | hpux11*) + lt_cv_file_magic_cmd=/usr/bin/file + case $host_cpu in + ia64*) + lt_cv_deplibs_check_method='file_magic (s[[0-9]][[0-9]][[0-9]]|ELF-[[0-9]][[0-9]]) shared object file - IA64' + lt_cv_file_magic_test_file=/usr/lib/hpux32/libc.so + ;; + hppa*64*) + [lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF[ -][0-9][0-9])(-bit)?( [LM]SB)? shared object( file)?[, -]* PA-RISC [0-9]\.[0-9]'] + lt_cv_file_magic_test_file=/usr/lib/pa20_64/libc.sl + ;; + *) + lt_cv_deplibs_check_method='file_magic (s[[0-9]][[0-9]][[0-9]]|PA-RISC[[0-9]]\.[[0-9]]) shared library' + lt_cv_file_magic_test_file=/usr/lib/libc.sl + ;; + esac + ;; + +interix[[3-9]]*) + # PIC code is broken on Interix 3.x, that's why |\.a not |_pic\.a here + lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so|\.a)$' + ;; + +irix5* | irix6* | nonstopux*) + case $LD in + *-32|*"-32 ") libmagic=32-bit;; + *-n32|*"-n32 ") libmagic=N32;; + *-64|*"-64 ") libmagic=64-bit;; + *) libmagic=never-match;; + esac + lt_cv_deplibs_check_method=pass_all + ;; + +# This must be glibc/ELF. +linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*) + lt_cv_deplibs_check_method=pass_all + ;; + +netbsd*) + if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then + lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so\.[[0-9]]+\.[[0-9]]+|_pic\.a)$' + else + lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so|_pic\.a)$' + fi + ;; + +newos6*) + lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[ML]]SB (executable|dynamic lib)' + lt_cv_file_magic_cmd=/usr/bin/file + lt_cv_file_magic_test_file=/usr/lib/libnls.so + ;; + +*nto* | *qnx*) + lt_cv_deplibs_check_method=pass_all + ;; + +openbsd* | bitrig*) + if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`"; then + lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so\.[[0-9]]+\.[[0-9]]+|\.so|_pic\.a)$' + else + lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so\.[[0-9]]+\.[[0-9]]+|_pic\.a)$' + fi + ;; + +osf3* | osf4* | osf5*) + lt_cv_deplibs_check_method=pass_all + ;; + +rdos*) + lt_cv_deplibs_check_method=pass_all + ;; + +solaris*) + lt_cv_deplibs_check_method=pass_all + ;; + +sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) + lt_cv_deplibs_check_method=pass_all + ;; + +sysv4 | sysv4.3*) + case $host_vendor in + motorola) + lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[ML]]SB (shared object|dynamic lib) M[[0-9]][[0-9]]* Version [[0-9]]' + lt_cv_file_magic_test_file=`echo /usr/lib/libc.so*` + ;; + ncr) + lt_cv_deplibs_check_method=pass_all + ;; + sequent) + lt_cv_file_magic_cmd='/bin/file' + lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[LM]]SB (shared object|dynamic lib )' + ;; + sni) + lt_cv_file_magic_cmd='/bin/file' + lt_cv_deplibs_check_method="file_magic ELF [[0-9]][[0-9]]*-bit [[LM]]SB dynamic lib" + lt_cv_file_magic_test_file=/lib/libc.so + ;; + siemens) + lt_cv_deplibs_check_method=pass_all + ;; + pc) + lt_cv_deplibs_check_method=pass_all + ;; + esac + ;; + +tpf*) + lt_cv_deplibs_check_method=pass_all + ;; +os2*) + lt_cv_deplibs_check_method=pass_all + ;; +esac +]) + +file_magic_glob= +want_nocaseglob=no +if test "$build" = "$host"; then + case $host_os in + mingw* | pw32*) + if ( shopt | grep nocaseglob ) >/dev/null 2>&1; then + want_nocaseglob=yes + else + file_magic_glob=`echo aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ | $SED -e "s/\(..\)/s\/[[\1]]\/[[\1]]\/g;/g"` + fi + ;; + esac +fi + +file_magic_cmd=$lt_cv_file_magic_cmd +deplibs_check_method=$lt_cv_deplibs_check_method +test -z "$deplibs_check_method" && deplibs_check_method=unknown + +_LT_DECL([], [deplibs_check_method], [1], + [Method to check whether dependent libraries are shared objects]) +_LT_DECL([], [file_magic_cmd], [1], + [Command to use when deplibs_check_method = "file_magic"]) +_LT_DECL([], [file_magic_glob], [1], + [How to find potential files when deplibs_check_method = "file_magic"]) +_LT_DECL([], [want_nocaseglob], [1], + [Find potential files using nocaseglob when deplibs_check_method = "file_magic"]) +])# _LT_CHECK_MAGIC_METHOD + + +# LT_PATH_NM +# ---------- +# find the pathname to a BSD- or MS-compatible name lister +AC_DEFUN([LT_PATH_NM], +[AC_REQUIRE([AC_PROG_CC])dnl +AC_CACHE_CHECK([for BSD- or MS-compatible name lister (nm)], lt_cv_path_NM, +[if test -n "$NM"; then + # Let the user override the test. + lt_cv_path_NM=$NM +else + lt_nm_to_check=${ac_tool_prefix}nm + if test -n "$ac_tool_prefix" && test "$build" = "$host"; then + lt_nm_to_check="$lt_nm_to_check nm" + fi + for lt_tmp_nm in $lt_nm_to_check; do + lt_save_ifs=$IFS; IFS=$PATH_SEPARATOR + for ac_dir in $PATH /usr/ccs/bin/elf /usr/ccs/bin /usr/ucb /bin; do + IFS=$lt_save_ifs + test -z "$ac_dir" && ac_dir=. + tmp_nm=$ac_dir/$lt_tmp_nm + if test -f "$tmp_nm" || test -f "$tmp_nm$ac_exeext"; then + # Check to see if the nm accepts a BSD-compat flag. + # Adding the 'sed 1q' prevents false positives on HP-UX, which says: + # nm: unknown option "B" ignored + # Tru64's nm complains that /dev/null is an invalid object file + # MSYS converts /dev/null to NUL, MinGW nm treats NUL as empty + case $build_os in + mingw*) lt_bad_file=conftest.nm/nofile ;; + *) lt_bad_file=/dev/null ;; + esac + case `"$tmp_nm" -B $lt_bad_file 2>&1 | sed '1q'` in + *$lt_bad_file* | *'Invalid file or object type'*) + lt_cv_path_NM="$tmp_nm -B" + break 2 + ;; + *) + case `"$tmp_nm" -p /dev/null 2>&1 | sed '1q'` in + */dev/null*) + lt_cv_path_NM="$tmp_nm -p" + break 2 + ;; + *) + lt_cv_path_NM=${lt_cv_path_NM="$tmp_nm"} # keep the first match, but + continue # so that we can try to find one that supports BSD flags + ;; + esac + ;; + esac + fi + done + IFS=$lt_save_ifs + done + : ${lt_cv_path_NM=no} +fi]) +if test no != "$lt_cv_path_NM"; then + NM=$lt_cv_path_NM +else + # Didn't find any BSD compatible name lister, look for dumpbin. + if test -n "$DUMPBIN"; then : + # Let the user override the test. + else + AC_CHECK_TOOLS(DUMPBIN, [dumpbin "link -dump"], :) + case `$DUMPBIN -symbols -headers /dev/null 2>&1 | sed '1q'` in + *COFF*) + DUMPBIN="$DUMPBIN -symbols -headers" + ;; + *) + DUMPBIN=: + ;; + esac + fi + AC_SUBST([DUMPBIN]) + if test : != "$DUMPBIN"; then + NM=$DUMPBIN + fi +fi +test -z "$NM" && NM=nm +AC_SUBST([NM]) +_LT_DECL([], [NM], [1], [A BSD- or MS-compatible name lister])dnl + +AC_CACHE_CHECK([the name lister ($NM) interface], [lt_cv_nm_interface], + [lt_cv_nm_interface="BSD nm" + echo "int some_variable = 0;" > conftest.$ac_ext + (eval echo "\"\$as_me:$LINENO: $ac_compile\"" >&AS_MESSAGE_LOG_FD) + (eval "$ac_compile" 2>conftest.err) + cat conftest.err >&AS_MESSAGE_LOG_FD + (eval echo "\"\$as_me:$LINENO: $NM \\\"conftest.$ac_objext\\\"\"" >&AS_MESSAGE_LOG_FD) + (eval "$NM \"conftest.$ac_objext\"" 2>conftest.err > conftest.out) + cat conftest.err >&AS_MESSAGE_LOG_FD + (eval echo "\"\$as_me:$LINENO: output\"" >&AS_MESSAGE_LOG_FD) + cat conftest.out >&AS_MESSAGE_LOG_FD + if $GREP 'External.*some_variable' conftest.out > /dev/null; then + lt_cv_nm_interface="MS dumpbin" + fi + rm -f conftest*]) +])# LT_PATH_NM + +# Old names: +AU_ALIAS([AM_PROG_NM], [LT_PATH_NM]) +AU_ALIAS([AC_PROG_NM], [LT_PATH_NM]) +dnl aclocal-1.4 backwards compatibility: +dnl AC_DEFUN([AM_PROG_NM], []) +dnl AC_DEFUN([AC_PROG_NM], []) + +# _LT_CHECK_SHAREDLIB_FROM_LINKLIB +# -------------------------------- +# how to determine the name of the shared library +# associated with a specific link library. +# -- PORTME fill in with the dynamic library characteristics +m4_defun([_LT_CHECK_SHAREDLIB_FROM_LINKLIB], +[m4_require([_LT_DECL_EGREP]) +m4_require([_LT_DECL_OBJDUMP]) +m4_require([_LT_DECL_DLLTOOL]) +AC_CACHE_CHECK([how to associate runtime and link libraries], +lt_cv_sharedlib_from_linklib_cmd, +[lt_cv_sharedlib_from_linklib_cmd='unknown' + +case $host_os in +cygwin* | mingw* | pw32* | cegcc*) + # two different shell functions defined in ltmain.sh; + # decide which one to use based on capabilities of $DLLTOOL + case `$DLLTOOL --help 2>&1` in + *--identify-strict*) + lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib + ;; + *) + lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib_fallback + ;; + esac + ;; +*) + # fallback: assume linklib IS sharedlib + lt_cv_sharedlib_from_linklib_cmd=$ECHO + ;; +esac +]) +sharedlib_from_linklib_cmd=$lt_cv_sharedlib_from_linklib_cmd +test -z "$sharedlib_from_linklib_cmd" && sharedlib_from_linklib_cmd=$ECHO + +_LT_DECL([], [sharedlib_from_linklib_cmd], [1], + [Command to associate shared and link libraries]) +])# _LT_CHECK_SHAREDLIB_FROM_LINKLIB + + +# _LT_PATH_MANIFEST_TOOL +# ---------------------- +# locate the manifest tool +m4_defun([_LT_PATH_MANIFEST_TOOL], +[AC_CHECK_TOOL(MANIFEST_TOOL, mt, :) +test -z "$MANIFEST_TOOL" && MANIFEST_TOOL=mt +AC_CACHE_CHECK([if $MANIFEST_TOOL is a manifest tool], [lt_cv_path_mainfest_tool], + [lt_cv_path_mainfest_tool=no + echo "$as_me:$LINENO: $MANIFEST_TOOL '-?'" >&AS_MESSAGE_LOG_FD + $MANIFEST_TOOL '-?' 2>conftest.err > conftest.out + cat conftest.err >&AS_MESSAGE_LOG_FD + if $GREP 'Manifest Tool' conftest.out > /dev/null; then + lt_cv_path_mainfest_tool=yes + fi + rm -f conftest*]) +if test yes != "$lt_cv_path_mainfest_tool"; then + MANIFEST_TOOL=: +fi +_LT_DECL([], [MANIFEST_TOOL], [1], [Manifest tool])dnl +])# _LT_PATH_MANIFEST_TOOL + + +# _LT_DLL_DEF_P([FILE]) +# --------------------- +# True iff FILE is a Windows DLL '.def' file. +# Keep in sync with func_dll_def_p in the libtool script +AC_DEFUN([_LT_DLL_DEF_P], +[dnl + test DEF = "`$SED -n dnl + -e '\''s/^[[ ]]*//'\'' dnl Strip leading whitespace + -e '\''/^\(;.*\)*$/d'\'' dnl Delete empty lines and comments + -e '\''s/^\(EXPORTS\|LIBRARY\)\([[ ]].*\)*$/DEF/p'\'' dnl + -e q dnl Only consider the first "real" line + $1`" dnl +])# _LT_DLL_DEF_P + + +# LT_LIB_M +# -------- +# check for math library +AC_DEFUN([LT_LIB_M], +[AC_REQUIRE([AC_CANONICAL_HOST])dnl +LIBM= +case $host in +*-*-beos* | *-*-cegcc* | *-*-cygwin* | *-*-haiku* | *-*-pw32* | *-*-darwin*) + # These system don't have libm, or don't need it + ;; +*-ncr-sysv4.3*) + AC_CHECK_LIB(mw, _mwvalidcheckl, LIBM=-lmw) + AC_CHECK_LIB(m, cos, LIBM="$LIBM -lm") + ;; +*) + AC_CHECK_LIB(m, cos, LIBM=-lm) + ;; +esac +AC_SUBST([LIBM]) +])# LT_LIB_M + +# Old name: +AU_ALIAS([AC_CHECK_LIBM], [LT_LIB_M]) +dnl aclocal-1.4 backwards compatibility: +dnl AC_DEFUN([AC_CHECK_LIBM], []) + + +# _LT_COMPILER_NO_RTTI([TAGNAME]) +# ------------------------------- +m4_defun([_LT_COMPILER_NO_RTTI], +[m4_require([_LT_TAG_COMPILER])dnl + +_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)= + +if test yes = "$GCC"; then + case $cc_basename in + nvcc*) + _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -Xcompiler -fno-builtin' ;; + *) + _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -fno-builtin' ;; + esac + + _LT_COMPILER_OPTION([if $compiler supports -fno-rtti -fno-exceptions], + lt_cv_prog_compiler_rtti_exceptions, + [-fno-rtti -fno-exceptions], [], + [_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)="$_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1) -fno-rtti -fno-exceptions"]) +fi +_LT_TAGDECL([no_builtin_flag], [lt_prog_compiler_no_builtin_flag], [1], + [Compiler flag to turn off builtin functions]) +])# _LT_COMPILER_NO_RTTI + + +# _LT_CMD_GLOBAL_SYMBOLS +# ---------------------- +m4_defun([_LT_CMD_GLOBAL_SYMBOLS], +[AC_REQUIRE([AC_CANONICAL_HOST])dnl +AC_REQUIRE([AC_PROG_CC])dnl +AC_REQUIRE([AC_PROG_AWK])dnl +AC_REQUIRE([LT_PATH_NM])dnl +AC_REQUIRE([LT_PATH_LD])dnl +m4_require([_LT_DECL_SED])dnl +m4_require([_LT_DECL_EGREP])dnl +m4_require([_LT_TAG_COMPILER])dnl + +# Check for command to grab the raw symbol name followed by C symbol from nm. +AC_MSG_CHECKING([command to parse $NM output from $compiler object]) +AC_CACHE_VAL([lt_cv_sys_global_symbol_pipe], +[ +# These are sane defaults that work on at least a few old systems. +# [They come from Ultrix. What could be older than Ultrix?!! ;)] + +# Character class describing NM global symbol codes. +symcode='[[BCDEGRST]]' + +# Regexp to match symbols that can be accessed directly from C. +sympat='\([[_A-Za-z]][[_A-Za-z0-9]]*\)' + +# Define system-specific variables. +case $host_os in +aix*) + symcode='[[BCDT]]' + ;; +cygwin* | mingw* | pw32* | cegcc*) + symcode='[[ABCDGISTW]]' + ;; +hpux*) + if test ia64 = "$host_cpu"; then + symcode='[[ABCDEGRST]]' + fi + ;; +irix* | nonstopux*) + symcode='[[BCDEGRST]]' + ;; +osf*) + symcode='[[BCDEGQRST]]' + ;; +solaris*) + symcode='[[BCDRT]]' + ;; +sco3.2v5*) + symcode='[[DT]]' + ;; +sysv4.2uw2*) + symcode='[[DT]]' + ;; +sysv5* | sco5v6* | unixware* | OpenUNIX*) + symcode='[[ABDT]]' + ;; +sysv4) + symcode='[[DFNSTU]]' + ;; +esac + +# If we're using GNU nm, then use its standard symbol codes. +case `$NM -V 2>&1` in +*GNU* | *'with BFD'*) + symcode='[[ABCDGIRSTW]]' ;; +esac + +if test "$lt_cv_nm_interface" = "MS dumpbin"; then + # Gets list of data symbols to import. + lt_cv_sys_global_symbol_to_import="sed -n -e 's/^I .* \(.*\)$/\1/p'" + # Adjust the below global symbol transforms to fixup imported variables. + lt_cdecl_hook=" -e 's/^I .* \(.*\)$/extern __declspec(dllimport) char \1;/p'" + lt_c_name_hook=" -e 's/^I .* \(.*\)$/ {\"\1\", (void *) 0},/p'" + lt_c_name_lib_hook="\ + -e 's/^I .* \(lib.*\)$/ {\"\1\", (void *) 0},/p'\ + -e 's/^I .* \(.*\)$/ {\"lib\1\", (void *) 0},/p'" +else + # Disable hooks by default. + lt_cv_sys_global_symbol_to_import= + lt_cdecl_hook= + lt_c_name_hook= + lt_c_name_lib_hook= +fi + +# Transform an extracted symbol line into a proper C declaration. +# Some systems (esp. on ia64) link data and code symbols differently, +# so use this general approach. +lt_cv_sys_global_symbol_to_cdecl="sed -n"\ +$lt_cdecl_hook\ +" -e 's/^T .* \(.*\)$/extern int \1();/p'"\ +" -e 's/^$symcode$symcode* .* \(.*\)$/extern char \1;/p'" + +# Transform an extracted symbol line into symbol name and symbol address +lt_cv_sys_global_symbol_to_c_name_address="sed -n"\ +$lt_c_name_hook\ +" -e 's/^: \(.*\) .*$/ {\"\1\", (void *) 0},/p'"\ +" -e 's/^$symcode$symcode* .* \(.*\)$/ {\"\1\", (void *) \&\1},/p'" + +# Transform an extracted symbol line into symbol name with lib prefix and +# symbol address. +lt_cv_sys_global_symbol_to_c_name_address_lib_prefix="sed -n"\ +$lt_c_name_lib_hook\ +" -e 's/^: \(.*\) .*$/ {\"\1\", (void *) 0},/p'"\ +" -e 's/^$symcode$symcode* .* \(lib.*\)$/ {\"\1\", (void *) \&\1},/p'"\ +" -e 's/^$symcode$symcode* .* \(.*\)$/ {\"lib\1\", (void *) \&\1},/p'" + +# Handle CRLF in mingw tool chain +opt_cr= +case $build_os in +mingw*) + opt_cr=`$ECHO 'x\{0,1\}' | tr x '\015'` # option cr in regexp + ;; +esac + +# Try without a prefix underscore, then with it. +for ac_symprfx in "" "_"; do + + # Transform symcode, sympat, and symprfx into a raw symbol and a C symbol. + symxfrm="\\1 $ac_symprfx\\2 \\2" + + # Write the raw and C identifiers. + if test "$lt_cv_nm_interface" = "MS dumpbin"; then + # Fake it for dumpbin and say T for any non-static function, + # D for any global variable and I for any imported variable. + # Also find C++ and __fastcall symbols from MSVC++, + # which start with @ or ?. + lt_cv_sys_global_symbol_pipe="$AWK ['"\ +" {last_section=section; section=\$ 3};"\ +" /^COFF SYMBOL TABLE/{for(i in hide) delete hide[i]};"\ +" /Section length .*#relocs.*(pick any)/{hide[last_section]=1};"\ +" /^ *Symbol name *: /{split(\$ 0,sn,\":\"); si=substr(sn[2],2)};"\ +" /^ *Type *: code/{print \"T\",si,substr(si,length(prfx))};"\ +" /^ *Type *: data/{print \"I\",si,substr(si,length(prfx))};"\ +" \$ 0!~/External *\|/{next};"\ +" / 0+ UNDEF /{next}; / UNDEF \([^|]\)*()/{next};"\ +" {if(hide[section]) next};"\ +" {f=\"D\"}; \$ 0~/\(\).*\|/{f=\"T\"};"\ +" {split(\$ 0,a,/\||\r/); split(a[2],s)};"\ +" s[1]~/^[@?]/{print f,s[1],s[1]; next};"\ +" s[1]~prfx {split(s[1],t,\"@\"); print f,t[1],substr(t[1],length(prfx))}"\ +" ' prfx=^$ac_symprfx]" + else + lt_cv_sys_global_symbol_pipe="sed -n -e 's/^.*[[ ]]\($symcode$symcode*\)[[ ]][[ ]]*$ac_symprfx$sympat$opt_cr$/$symxfrm/p'" + fi + lt_cv_sys_global_symbol_pipe="$lt_cv_sys_global_symbol_pipe | sed '/ __gnu_lto/d'" + + # Check to see that the pipe works correctly. + pipe_works=no + + rm -f conftest* + cat > conftest.$ac_ext <<_LT_EOF +#ifdef __cplusplus +extern "C" { +#endif +char nm_test_var; +void nm_test_func(void); +void nm_test_func(void){} +#ifdef __cplusplus +} +#endif +int main(){nm_test_var='a';nm_test_func();return(0);} +_LT_EOF + + if AC_TRY_EVAL(ac_compile); then + # Now try to grab the symbols. + nlist=conftest.nm + if AC_TRY_EVAL(NM conftest.$ac_objext \| "$lt_cv_sys_global_symbol_pipe" \> $nlist) && test -s "$nlist"; then + # Try sorting and uniquifying the output. + if sort "$nlist" | uniq > "$nlist"T; then + mv -f "$nlist"T "$nlist" + else + rm -f "$nlist"T + fi + + # Make sure that we snagged all the symbols we need. + if $GREP ' nm_test_var$' "$nlist" >/dev/null; then + if $GREP ' nm_test_func$' "$nlist" >/dev/null; then + cat <<_LT_EOF > conftest.$ac_ext +/* Keep this code in sync between libtool.m4, ltmain, lt_system.h, and tests. */ +#if defined _WIN32 || defined __CYGWIN__ || defined _WIN32_WCE +/* DATA imports from DLLs on WIN32 can't be const, because runtime + relocations are performed -- see ld's documentation on pseudo-relocs. */ +# define LT@&t@_DLSYM_CONST +#elif defined __osf__ +/* This system does not cope well with relocations in const data. */ +# define LT@&t@_DLSYM_CONST +#else +# define LT@&t@_DLSYM_CONST const +#endif + +#ifdef __cplusplus +extern "C" { +#endif + +_LT_EOF + # Now generate the symbol file. + eval "$lt_cv_sys_global_symbol_to_cdecl"' < "$nlist" | $GREP -v main >> conftest.$ac_ext' + + cat <<_LT_EOF >> conftest.$ac_ext + +/* The mapping between symbol names and symbols. */ +LT@&t@_DLSYM_CONST struct { + const char *name; + void *address; +} +lt__PROGRAM__LTX_preloaded_symbols[[]] = +{ + { "@PROGRAM@", (void *) 0 }, +_LT_EOF + $SED "s/^$symcode$symcode* .* \(.*\)$/ {\"\1\", (void *) \&\1},/" < "$nlist" | $GREP -v main >> conftest.$ac_ext + cat <<\_LT_EOF >> conftest.$ac_ext + {0, (void *) 0} +}; + +/* This works around a problem in FreeBSD linker */ +#ifdef FREEBSD_WORKAROUND +static const void *lt_preloaded_setup() { + return lt__PROGRAM__LTX_preloaded_symbols; +} +#endif + +#ifdef __cplusplus +} +#endif +_LT_EOF + # Now try linking the two files. + mv conftest.$ac_objext conftstm.$ac_objext + lt_globsym_save_LIBS=$LIBS + lt_globsym_save_CFLAGS=$CFLAGS + LIBS=conftstm.$ac_objext + CFLAGS="$CFLAGS$_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)" + if AC_TRY_EVAL(ac_link) && test -s conftest$ac_exeext; then + pipe_works=yes + fi + LIBS=$lt_globsym_save_LIBS + CFLAGS=$lt_globsym_save_CFLAGS + else + echo "cannot find nm_test_func in $nlist" >&AS_MESSAGE_LOG_FD + fi + else + echo "cannot find nm_test_var in $nlist" >&AS_MESSAGE_LOG_FD + fi + else + echo "cannot run $lt_cv_sys_global_symbol_pipe" >&AS_MESSAGE_LOG_FD + fi + else + echo "$progname: failed program was:" >&AS_MESSAGE_LOG_FD + cat conftest.$ac_ext >&5 + fi + rm -rf conftest* conftst* + + # Do not use the global_symbol_pipe unless it works. + if test yes = "$pipe_works"; then + break + else + lt_cv_sys_global_symbol_pipe= + fi +done +]) +if test -z "$lt_cv_sys_global_symbol_pipe"; then + lt_cv_sys_global_symbol_to_cdecl= +fi +if test -z "$lt_cv_sys_global_symbol_pipe$lt_cv_sys_global_symbol_to_cdecl"; then + AC_MSG_RESULT(failed) +else + AC_MSG_RESULT(ok) +fi + +# Response file support. +if test "$lt_cv_nm_interface" = "MS dumpbin"; then + nm_file_list_spec='@' +elif $NM --help 2>/dev/null | grep '[[@]]FILE' >/dev/null; then + nm_file_list_spec='@' +fi + +_LT_DECL([global_symbol_pipe], [lt_cv_sys_global_symbol_pipe], [1], + [Take the output of nm and produce a listing of raw symbols and C names]) +_LT_DECL([global_symbol_to_cdecl], [lt_cv_sys_global_symbol_to_cdecl], [1], + [Transform the output of nm in a proper C declaration]) +_LT_DECL([global_symbol_to_import], [lt_cv_sys_global_symbol_to_import], [1], + [Transform the output of nm into a list of symbols to manually relocate]) +_LT_DECL([global_symbol_to_c_name_address], + [lt_cv_sys_global_symbol_to_c_name_address], [1], + [Transform the output of nm in a C name address pair]) +_LT_DECL([global_symbol_to_c_name_address_lib_prefix], + [lt_cv_sys_global_symbol_to_c_name_address_lib_prefix], [1], + [Transform the output of nm in a C name address pair when lib prefix is needed]) +_LT_DECL([nm_interface], [lt_cv_nm_interface], [1], + [The name lister interface]) +_LT_DECL([], [nm_file_list_spec], [1], + [Specify filename containing input files for $NM]) +]) # _LT_CMD_GLOBAL_SYMBOLS + + +# _LT_COMPILER_PIC([TAGNAME]) +# --------------------------- +m4_defun([_LT_COMPILER_PIC], +[m4_require([_LT_TAG_COMPILER])dnl +_LT_TAGVAR(lt_prog_compiler_wl, $1)= +_LT_TAGVAR(lt_prog_compiler_pic, $1)= +_LT_TAGVAR(lt_prog_compiler_static, $1)= + +m4_if([$1], [CXX], [ + # C++ specific cases for pic, static, wl, etc. + if test yes = "$GXX"; then + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' + + case $host_os in + aix*) + # All AIX code is PIC. + if test ia64 = "$host_cpu"; then + # AIX 5 now supports IA64 processor + _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + fi + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' + ;; + + amigaos*) + case $host_cpu in + powerpc) + # see comment about AmigaOS4 .so support + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' + ;; + m68k) + # FIXME: we need at least 68020 code to build shared libraries, but + # adding the '-m68020' flag to GCC prevents building anything better, + # like '-m68040'. + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-m68020 -resident32 -malways-restore-a4' + ;; + esac + ;; + + beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) + # PIC is the default for these OSes. + ;; + mingw* | cygwin* | os2* | pw32* | cegcc*) + # This hack is so that the source file can tell whether it is being + # built for inclusion in a dll (and should export symbols for example). + # Although the cygwin gcc ignores -fPIC, still need this for old-style + # (--disable-auto-import) libraries + m4_if([$1], [GCJ], [], + [_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT']) + case $host_os in + os2*) + _LT_TAGVAR(lt_prog_compiler_static, $1)='$wl-static' + ;; + esac + ;; + darwin* | rhapsody*) + # PIC is the default on this platform + # Common symbols not allowed in MH_DYLIB files + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fno-common' + ;; + *djgpp*) + # DJGPP does not support shared libraries at all + _LT_TAGVAR(lt_prog_compiler_pic, $1)= + ;; + haiku*) + # PIC is the default for Haiku. + # The "-static" flag exists, but is broken. + _LT_TAGVAR(lt_prog_compiler_static, $1)= + ;; + interix[[3-9]]*) + # Interix 3.x gcc -fpic/-fPIC options generate broken code. + # Instead, we relocate shared libraries at runtime. + ;; + sysv4*MP*) + if test -d /usr/nec; then + _LT_TAGVAR(lt_prog_compiler_pic, $1)=-Kconform_pic + fi + ;; + hpux*) + # PIC is the default for 64-bit PA HP-UX, but not for 32-bit + # PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag + # sets the default TLS model and affects inlining. + case $host_cpu in + hppa*64*) + ;; + *) + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' + ;; + esac + ;; + *qnx* | *nto*) + # QNX uses GNU C++, but need to define -shared option too, otherwise + # it will coredump. + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared' + ;; + *) + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' + ;; + esac + else + case $host_os in + aix[[4-9]]*) + # All AIX code is PIC. + if test ia64 = "$host_cpu"; then + # AIX 5 now supports IA64 processor + _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + else + _LT_TAGVAR(lt_prog_compiler_static, $1)='-bnso -bI:/lib/syscalls.exp' + fi + ;; + chorus*) + case $cc_basename in + cxch68*) + # Green Hills C++ Compiler + # _LT_TAGVAR(lt_prog_compiler_static, $1)="--no_auto_instantiation -u __main -u __premain -u _abort -r $COOL_DIR/lib/libOrb.a $MVME_DIR/lib/CC/libC.a $MVME_DIR/lib/classix/libcx.s.a" + ;; + esac + ;; + mingw* | cygwin* | os2* | pw32* | cegcc*) + # This hack is so that the source file can tell whether it is being + # built for inclusion in a dll (and should export symbols for example). + m4_if([$1], [GCJ], [], + [_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT']) + ;; + dgux*) + case $cc_basename in + ec++*) + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' + ;; + ghcx*) + # Green Hills C++ Compiler + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' + ;; + *) + ;; + esac + ;; + freebsd* | dragonfly*) + # FreeBSD uses GNU C++ + ;; + hpux9* | hpux10* | hpux11*) + case $cc_basename in + CC*) + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_TAGVAR(lt_prog_compiler_static, $1)='$wl-a ${wl}archive' + if test ia64 != "$host_cpu"; then + _LT_TAGVAR(lt_prog_compiler_pic, $1)='+Z' + fi + ;; + aCC*) + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_TAGVAR(lt_prog_compiler_static, $1)='$wl-a ${wl}archive' + case $host_cpu in + hppa*64*|ia64*) + # +Z the default + ;; + *) + _LT_TAGVAR(lt_prog_compiler_pic, $1)='+Z' + ;; + esac + ;; + *) + ;; + esac + ;; + interix*) + # This is c89, which is MS Visual C++ (no shared libs) + # Anyone wants to do a port? + ;; + irix5* | irix6* | nonstopux*) + case $cc_basename in + CC*) + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' + # CC pic flag -KPIC is the default. + ;; + *) + ;; + esac + ;; + linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*) + case $cc_basename in + KCC*) + # KAI C++ Compiler + _LT_TAGVAR(lt_prog_compiler_wl, $1)='--backend -Wl,' + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' + ;; + ecpc* ) + # old Intel C++ for x86_64, which still supported -KPIC. + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' + ;; + icpc* ) + # Intel C++, used to be incompatible with GCC. + # ICC 10 doesn't accept -KPIC any more. + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' + ;; + pgCC* | pgcpp*) + # Portland Group C++ compiler + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fpic' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + ;; + cxx*) + # Compaq C++ + # Make sure the PIC flag is empty. It appears that all Alpha + # Linux and Compaq Tru64 Unix objects are PIC. + _LT_TAGVAR(lt_prog_compiler_pic, $1)= + _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' + ;; + xlc* | xlC* | bgxl[[cC]]* | mpixl[[cC]]*) + # IBM XL 8.0, 9.0 on PPC and BlueGene + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-qpic' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-qstaticlink' + ;; + *) + case `$CC -V 2>&1 | sed 5q` in + *Sun\ C*) + # Sun C++ 5.9 + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ' + ;; + esac + ;; + esac + ;; + lynxos*) + ;; + m88k*) + ;; + mvs*) + case $cc_basename in + cxx*) + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-W c,exportall' + ;; + *) + ;; + esac + ;; + netbsd*) + ;; + *qnx* | *nto*) + # QNX uses GNU C++, but need to define -shared option too, otherwise + # it will coredump. + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared' + ;; + osf3* | osf4* | osf5*) + case $cc_basename in + KCC*) + _LT_TAGVAR(lt_prog_compiler_wl, $1)='--backend -Wl,' + ;; + RCC*) + # Rational C++ 2.4.1 + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' + ;; + cxx*) + # Digital/Compaq C++ + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + # Make sure the PIC flag is empty. It appears that all Alpha + # Linux and Compaq Tru64 Unix objects are PIC. + _LT_TAGVAR(lt_prog_compiler_pic, $1)= + _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' + ;; + *) + ;; + esac + ;; + psos*) + ;; + solaris*) + case $cc_basename in + CC* | sunCC*) + # Sun C++ 4.2, 5.x and Centerline C++ + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ' + ;; + gcx*) + # Green Hills C++ Compiler + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-PIC' + ;; + *) + ;; + esac + ;; + sunos4*) + case $cc_basename in + CC*) + # Sun C++ 4.x + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + ;; + lcc*) + # Lucid + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' + ;; + *) + ;; + esac + ;; + sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) + case $cc_basename in + CC*) + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + ;; + esac + ;; + tandem*) + case $cc_basename in + NCC*) + # NonStop-UX NCC 3.20 + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' + ;; + *) + ;; + esac + ;; + vxworks*) + ;; + *) + _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no + ;; + esac + fi +], +[ + if test yes = "$GCC"; then + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' + + case $host_os in + aix*) + # All AIX code is PIC. + if test ia64 = "$host_cpu"; then + # AIX 5 now supports IA64 processor + _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + fi + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' + ;; + + amigaos*) + case $host_cpu in + powerpc) + # see comment about AmigaOS4 .so support + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' + ;; + m68k) + # FIXME: we need at least 68020 code to build shared libraries, but + # adding the '-m68020' flag to GCC prevents building anything better, + # like '-m68040'. + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-m68020 -resident32 -malways-restore-a4' + ;; + esac + ;; + + beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) + # PIC is the default for these OSes. + ;; + + mingw* | cygwin* | pw32* | os2* | cegcc*) + # This hack is so that the source file can tell whether it is being + # built for inclusion in a dll (and should export symbols for example). + # Although the cygwin gcc ignores -fPIC, still need this for old-style + # (--disable-auto-import) libraries + m4_if([$1], [GCJ], [], + [_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT']) + case $host_os in + os2*) + _LT_TAGVAR(lt_prog_compiler_static, $1)='$wl-static' + ;; + esac + ;; + + darwin* | rhapsody*) + # PIC is the default on this platform + # Common symbols not allowed in MH_DYLIB files + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fno-common' + ;; + + haiku*) + # PIC is the default for Haiku. + # The "-static" flag exists, but is broken. + _LT_TAGVAR(lt_prog_compiler_static, $1)= + ;; + + hpux*) + # PIC is the default for 64-bit PA HP-UX, but not for 32-bit + # PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag + # sets the default TLS model and affects inlining. + case $host_cpu in + hppa*64*) + # +Z the default + ;; + *) + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' + ;; + esac + ;; + + interix[[3-9]]*) + # Interix 3.x gcc -fpic/-fPIC options generate broken code. + # Instead, we relocate shared libraries at runtime. + ;; + + msdosdjgpp*) + # Just because we use GCC doesn't mean we suddenly get shared libraries + # on systems that don't support them. + _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no + enable_shared=no + ;; + + *nto* | *qnx*) + # QNX uses GNU C++, but need to define -shared option too, otherwise + # it will coredump. + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared' + ;; + + sysv4*MP*) + if test -d /usr/nec; then + _LT_TAGVAR(lt_prog_compiler_pic, $1)=-Kconform_pic + fi + ;; + + *) + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' + ;; + esac + + case $cc_basename in + nvcc*) # Cuda Compiler Driver 2.2 + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Xlinker ' + if test -n "$_LT_TAGVAR(lt_prog_compiler_pic, $1)"; then + _LT_TAGVAR(lt_prog_compiler_pic, $1)="-Xcompiler $_LT_TAGVAR(lt_prog_compiler_pic, $1)" + fi + ;; + esac + else + # PORTME Check for flag to pass linker flags through the system compiler. + case $host_os in + aix*) + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + if test ia64 = "$host_cpu"; then + # AIX 5 now supports IA64 processor + _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + else + _LT_TAGVAR(lt_prog_compiler_static, $1)='-bnso -bI:/lib/syscalls.exp' + fi + ;; + + darwin* | rhapsody*) + # PIC is the default on this platform + # Common symbols not allowed in MH_DYLIB files + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fno-common' + case $cc_basename in + nagfor*) + # NAG Fortran compiler + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,-Wl,,' + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-PIC' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + ;; + esac + ;; + + mingw* | cygwin* | pw32* | os2* | cegcc*) + # This hack is so that the source file can tell whether it is being + # built for inclusion in a dll (and should export symbols for example). + m4_if([$1], [GCJ], [], + [_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT']) + case $host_os in + os2*) + _LT_TAGVAR(lt_prog_compiler_static, $1)='$wl-static' + ;; + esac + ;; + + hpux9* | hpux10* | hpux11*) + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but + # not for PA HP-UX. + case $host_cpu in + hppa*64*|ia64*) + # +Z the default + ;; + *) + _LT_TAGVAR(lt_prog_compiler_pic, $1)='+Z' + ;; + esac + # Is there a better lt_prog_compiler_static that works with the bundled CC? + _LT_TAGVAR(lt_prog_compiler_static, $1)='$wl-a ${wl}archive' + ;; + + irix5* | irix6* | nonstopux*) + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + # PIC (with -KPIC) is the default. + _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' + ;; + + linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*) + case $cc_basename in + # old Intel for x86_64, which still supported -KPIC. + ecc*) + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' + ;; + # icc used to be incompatible with GCC. + # ICC 10 doesn't accept -KPIC any more. + icc* | ifort*) + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' + ;; + # Lahey Fortran 8.1. + lf95*) + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_TAGVAR(lt_prog_compiler_pic, $1)='--shared' + _LT_TAGVAR(lt_prog_compiler_static, $1)='--static' + ;; + nagfor*) + # NAG Fortran compiler + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,-Wl,,' + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-PIC' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + ;; + tcc*) + # Fabrice Bellard et al's Tiny C Compiler + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' + ;; + pgcc* | pgf77* | pgf90* | pgf95* | pgfortran*) + # Portland Group compilers (*not* the Pentium gcc compiler, + # which looks to be a dead project) + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fpic' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + ;; + ccc*) + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + # All Alpha code is PIC. + _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' + ;; + xl* | bgxl* | bgf* | mpixl*) + # IBM XL C 8.0/Fortran 10.1, 11.1 on PPC and BlueGene + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-qpic' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-qstaticlink' + ;; + *) + case `$CC -V 2>&1 | sed 5q` in + *Sun\ Ceres\ Fortran* | *Sun*Fortran*\ [[1-7]].* | *Sun*Fortran*\ 8.[[0-3]]*) + # Sun Fortran 8.3 passes all unrecognized flags to the linker + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + _LT_TAGVAR(lt_prog_compiler_wl, $1)='' + ;; + *Sun\ F* | *Sun*Fortran*) + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ' + ;; + *Sun\ C*) + # Sun C 5.9 + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + ;; + *Intel*\ [[CF]]*Compiler*) + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' + ;; + *Portland\ Group*) + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fpic' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + ;; + esac + ;; + esac + ;; + + newsos6) + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + ;; + + *nto* | *qnx*) + # QNX uses GNU C++, but need to define -shared option too, otherwise + # it will coredump. + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared' + ;; + + osf3* | osf4* | osf5*) + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + # All OSF/1 code is PIC. + _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' + ;; + + rdos*) + _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' + ;; + + solaris*) + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + case $cc_basename in + f77* | f90* | f95* | sunf77* | sunf90* | sunf95*) + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ';; + *) + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,';; + esac + ;; + + sunos4*) + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ' + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-PIC' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + ;; + + sysv4 | sysv4.2uw2* | sysv4.3*) + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + ;; + + sysv4*MP*) + if test -d /usr/nec; then + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-Kconform_pic' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + fi + ;; + + sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + ;; + + unicos*) + _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no + ;; + + uts4*) + _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' + _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + ;; + + *) + _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no + ;; + esac + fi +]) +case $host_os in + # For platforms that do not support PIC, -DPIC is meaningless: + *djgpp*) + _LT_TAGVAR(lt_prog_compiler_pic, $1)= + ;; + *) + _LT_TAGVAR(lt_prog_compiler_pic, $1)="$_LT_TAGVAR(lt_prog_compiler_pic, $1)@&t@m4_if([$1],[],[ -DPIC],[m4_if([$1],[CXX],[ -DPIC],[])])" + ;; +esac + +AC_CACHE_CHECK([for $compiler option to produce PIC], + [_LT_TAGVAR(lt_cv_prog_compiler_pic, $1)], + [_LT_TAGVAR(lt_cv_prog_compiler_pic, $1)=$_LT_TAGVAR(lt_prog_compiler_pic, $1)]) +_LT_TAGVAR(lt_prog_compiler_pic, $1)=$_LT_TAGVAR(lt_cv_prog_compiler_pic, $1) + +# +# Check to make sure the PIC flag actually works. +# +if test -n "$_LT_TAGVAR(lt_prog_compiler_pic, $1)"; then + _LT_COMPILER_OPTION([if $compiler PIC flag $_LT_TAGVAR(lt_prog_compiler_pic, $1) works], + [_LT_TAGVAR(lt_cv_prog_compiler_pic_works, $1)], + [$_LT_TAGVAR(lt_prog_compiler_pic, $1)@&t@m4_if([$1],[],[ -DPIC],[m4_if([$1],[CXX],[ -DPIC],[])])], [], + [case $_LT_TAGVAR(lt_prog_compiler_pic, $1) in + "" | " "*) ;; + *) _LT_TAGVAR(lt_prog_compiler_pic, $1)=" $_LT_TAGVAR(lt_prog_compiler_pic, $1)" ;; + esac], + [_LT_TAGVAR(lt_prog_compiler_pic, $1)= + _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no]) +fi +_LT_TAGDECL([pic_flag], [lt_prog_compiler_pic], [1], + [Additional compiler flags for building library objects]) + +_LT_TAGDECL([wl], [lt_prog_compiler_wl], [1], + [How to pass a linker flag through the compiler]) +# +# Check to make sure the static flag actually works. +# +wl=$_LT_TAGVAR(lt_prog_compiler_wl, $1) eval lt_tmp_static_flag=\"$_LT_TAGVAR(lt_prog_compiler_static, $1)\" +_LT_LINKER_OPTION([if $compiler static flag $lt_tmp_static_flag works], + _LT_TAGVAR(lt_cv_prog_compiler_static_works, $1), + $lt_tmp_static_flag, + [], + [_LT_TAGVAR(lt_prog_compiler_static, $1)=]) +_LT_TAGDECL([link_static_flag], [lt_prog_compiler_static], [1], + [Compiler flag to prevent dynamic linking]) +])# _LT_COMPILER_PIC + + +# _LT_LINKER_SHLIBS([TAGNAME]) +# ---------------------------- +# See if the linker supports building shared libraries. +m4_defun([_LT_LINKER_SHLIBS], +[AC_REQUIRE([LT_PATH_LD])dnl +AC_REQUIRE([LT_PATH_NM])dnl +m4_require([_LT_PATH_MANIFEST_TOOL])dnl +m4_require([_LT_FILEUTILS_DEFAULTS])dnl +m4_require([_LT_DECL_EGREP])dnl +m4_require([_LT_DECL_SED])dnl +m4_require([_LT_CMD_GLOBAL_SYMBOLS])dnl +m4_require([_LT_TAG_COMPILER])dnl +AC_MSG_CHECKING([whether the $compiler linker ($LD) supports shared libraries]) +m4_if([$1], [CXX], [ + _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' + _LT_TAGVAR(exclude_expsyms, $1)=['_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*'] + case $host_os in + aix[[4-9]]*) + # If we're using GNU nm, then we don't want the "-C" option. + # -C means demangle to GNU nm, but means don't demangle to AIX nm. + # Without the "-l" option, or with the "-B" option, AIX nm treats + # weak defined symbols like other global defined symbols, whereas + # GNU nm marks them as "W". + # While the 'weak' keyword is ignored in the Export File, we need + # it in the Import File for the 'aix-soname' feature, so we have + # to replace the "-B" option with "-P" for AIX nm. + if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then + _LT_TAGVAR(export_symbols_cmds, $1)='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && ([substr](\$ 3,1,1) != ".")) { if (\$ 2 == "W") { print \$ 3 " weak" } else { print \$ 3 } } }'\'' | sort -u > $export_symbols' + else + _LT_TAGVAR(export_symbols_cmds, $1)='`func_echo_all $NM | $SED -e '\''s/B\([[^B]]*\)$/P\1/'\''` -PCpgl $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W") || (\$ 2 == "V") || (\$ 2 == "Z")) && ([substr](\$ 1,1,1) != ".")) { if ((\$ 2 == "W") || (\$ 2 == "V") || (\$ 2 == "Z")) { print \$ 1 " weak" } else { print \$ 1 } } }'\'' | sort -u > $export_symbols' + fi + ;; + pw32*) + _LT_TAGVAR(export_symbols_cmds, $1)=$ltdll_cmds + ;; + cygwin* | mingw* | cegcc*) + case $cc_basename in + cl*) + _LT_TAGVAR(exclude_expsyms, $1)='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*' + ;; + *) + _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGRS]][[ ]]/s/.*[[ ]]\([[^ ]]*\)/\1 DATA/;s/^.*[[ ]]__nm__\([[^ ]]*\)[[ ]][[^ ]]*/\1 DATA/;/^I[[ ]]/d;/^[[AITW]][[ ]]/s/.* //'\'' | sort | uniq > $export_symbols' + _LT_TAGVAR(exclude_expsyms, $1)=['[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname'] + ;; + esac + ;; + *) + _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' + ;; + esac +], [ + runpath_var= + _LT_TAGVAR(allow_undefined_flag, $1)= + _LT_TAGVAR(always_export_symbols, $1)=no + _LT_TAGVAR(archive_cmds, $1)= + _LT_TAGVAR(archive_expsym_cmds, $1)= + _LT_TAGVAR(compiler_needs_object, $1)=no + _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no + _LT_TAGVAR(export_dynamic_flag_spec, $1)= + _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' + _LT_TAGVAR(hardcode_automatic, $1)=no + _LT_TAGVAR(hardcode_direct, $1)=no + _LT_TAGVAR(hardcode_direct_absolute, $1)=no + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)= + _LT_TAGVAR(hardcode_libdir_separator, $1)= + _LT_TAGVAR(hardcode_minus_L, $1)=no + _LT_TAGVAR(hardcode_shlibpath_var, $1)=unsupported + _LT_TAGVAR(inherit_rpath, $1)=no + _LT_TAGVAR(link_all_deplibs, $1)=unknown + _LT_TAGVAR(module_cmds, $1)= + _LT_TAGVAR(module_expsym_cmds, $1)= + _LT_TAGVAR(old_archive_from_new_cmds, $1)= + _LT_TAGVAR(old_archive_from_expsyms_cmds, $1)= + _LT_TAGVAR(thread_safe_flag_spec, $1)= + _LT_TAGVAR(whole_archive_flag_spec, $1)= + # include_expsyms should be a list of space-separated symbols to be *always* + # included in the symbol list + _LT_TAGVAR(include_expsyms, $1)= + # exclude_expsyms can be an extended regexp of symbols to exclude + # it will be wrapped by ' (' and ')$', so one must not match beginning or + # end of line. Example: 'a|bc|.*d.*' will exclude the symbols 'a' and 'bc', + # as well as any symbol that contains 'd'. + _LT_TAGVAR(exclude_expsyms, $1)=['_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*'] + # Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out + # platforms (ab)use it in PIC code, but their linkers get confused if + # the symbol is explicitly referenced. Since portable code cannot + # rely on this symbol name, it's probably fine to never include it in + # preloaded symbol tables. + # Exclude shared library initialization/finalization symbols. +dnl Note also adjust exclude_expsyms for C++ above. + extract_expsyms_cmds= + + case $host_os in + cygwin* | mingw* | pw32* | cegcc*) + # FIXME: the MSVC++ port hasn't been tested in a loooong time + # When not using gcc, we currently assume that we are using + # Microsoft Visual C++. + if test yes != "$GCC"; then + with_gnu_ld=no + fi + ;; + interix*) + # we just hope/assume this is gcc and not c89 (= MSVC++) + with_gnu_ld=yes + ;; + openbsd* | bitrig*) + with_gnu_ld=no + ;; + esac + + _LT_TAGVAR(ld_shlibs, $1)=yes + + # On some targets, GNU ld is compatible enough with the native linker + # that we're better off using the native interface for both. + lt_use_gnu_ld_interface=no + if test yes = "$with_gnu_ld"; then + case $host_os in + aix*) + # The AIX port of GNU ld has always aspired to compatibility + # with the native linker. However, as the warning in the GNU ld + # block says, versions before 2.19.5* couldn't really create working + # shared libraries, regardless of the interface used. + case `$LD -v 2>&1` in + *\ \(GNU\ Binutils\)\ 2.19.5*) ;; + *\ \(GNU\ Binutils\)\ 2.[[2-9]]*) ;; + *\ \(GNU\ Binutils\)\ [[3-9]]*) ;; + *) + lt_use_gnu_ld_interface=yes + ;; + esac + ;; + *) + lt_use_gnu_ld_interface=yes + ;; + esac + fi + + if test yes = "$lt_use_gnu_ld_interface"; then + # If archive_cmds runs LD, not CC, wlarc should be empty + wlarc='$wl' + + # Set some defaults for GNU ld with shared library support. These + # are reset later if shared libraries are not supported. Putting them + # here allows them to be overridden if necessary. + runpath_var=LD_RUN_PATH + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir' + _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl--export-dynamic' + # ancient GNU ld didn't support --whole-archive et. al. + if $LD --help 2>&1 | $GREP 'no-whole-archive' > /dev/null; then + _LT_TAGVAR(whole_archive_flag_spec, $1)=$wlarc'--whole-archive$convenience '$wlarc'--no-whole-archive' + else + _LT_TAGVAR(whole_archive_flag_spec, $1)= + fi + supports_anon_versioning=no + case `$LD -v | $SED -e 's/([^)]\+)\s\+//' 2>&1` in + *GNU\ gold*) supports_anon_versioning=yes ;; + *\ [[01]].* | *\ 2.[[0-9]].* | *\ 2.10.*) ;; # catch versions < 2.11 + *\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ... + *\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ... + *\ 2.11.*) ;; # other 2.11 versions + *) supports_anon_versioning=yes ;; + esac + + # See if GNU ld supports shared libraries. + case $host_os in + aix[[3-9]]*) + # On AIX/PPC, the GNU linker is very broken + if test ia64 != "$host_cpu"; then + _LT_TAGVAR(ld_shlibs, $1)=no + cat <<_LT_EOF 1>&2 + +*** Warning: the GNU linker, at least up to release 2.19, is reported +*** to be unable to reliably create shared libraries on AIX. +*** Therefore, libtool is disabling shared libraries support. If you +*** really care for shared libraries, you may want to install binutils +*** 2.20 or above, or modify your PATH so that a non-GNU linker is found. +*** You will then need to restart the configuration process. + +_LT_EOF + fi + ;; + + amigaos*) + case $host_cpu in + powerpc) + # see comment about AmigaOS4 .so support + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' + _LT_TAGVAR(archive_expsym_cmds, $1)='' + ;; + m68k) + _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' + _LT_TAGVAR(hardcode_minus_L, $1)=yes + ;; + esac + ;; + + beos*) + if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then + _LT_TAGVAR(allow_undefined_flag, $1)=unsupported + # Joseph Beckenbach says some releases of gcc + # support --undefined. This deserves some investigation. FIXME + _LT_TAGVAR(archive_cmds, $1)='$CC -nostart $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' + else + _LT_TAGVAR(ld_shlibs, $1)=no + fi + ;; + + cygwin* | mingw* | pw32* | cegcc*) + # _LT_TAGVAR(hardcode_libdir_flag_spec, $1) is actually meaningless, + # as there is no search path for DLLs. + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' + _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl--export-all-symbols' + _LT_TAGVAR(allow_undefined_flag, $1)=unsupported + _LT_TAGVAR(always_export_symbols, $1)=no + _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes + _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGRS]][[ ]]/s/.*[[ ]]\([[^ ]]*\)/\1 DATA/;s/^.*[[ ]]__nm__\([[^ ]]*\)[[ ]][[^ ]]*/\1 DATA/;/^I[[ ]]/d;/^[[AITW]][[ ]]/s/.* //'\'' | sort | uniq > $export_symbols' + _LT_TAGVAR(exclude_expsyms, $1)=['[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname'] + + if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' + # If the export-symbols file already is a .def file, use it as + # is; otherwise, prepend EXPORTS... + _LT_TAGVAR(archive_expsym_cmds, $1)='if _LT_DLL_DEF_P([$export_symbols]); then + cp $export_symbols $output_objdir/$soname.def; + else + echo EXPORTS > $output_objdir/$soname.def; + cat $export_symbols >> $output_objdir/$soname.def; + fi~ + $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' + else + _LT_TAGVAR(ld_shlibs, $1)=no + fi + ;; + + haiku*) + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' + _LT_TAGVAR(link_all_deplibs, $1)=yes + ;; + + os2*) + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' + _LT_TAGVAR(hardcode_minus_L, $1)=yes + _LT_TAGVAR(allow_undefined_flag, $1)=unsupported + shrext_cmds=.dll + _LT_TAGVAR(archive_cmds, $1)='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~ + $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~ + $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~ + $ECHO EXPORTS >> $output_objdir/$libname.def~ + emxexp $libobjs | $SED /"_DLL_InitTerm"/d >> $output_objdir/$libname.def~ + $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~ + emximp -o $lib $output_objdir/$libname.def' + _LT_TAGVAR(archive_expsym_cmds, $1)='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~ + $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~ + $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~ + $ECHO EXPORTS >> $output_objdir/$libname.def~ + prefix_cmds="$SED"~ + if test EXPORTS = "`$SED 1q $export_symbols`"; then + prefix_cmds="$prefix_cmds -e 1d"; + fi~ + prefix_cmds="$prefix_cmds -e \"s/^\(.*\)$/_\1/g\""~ + cat $export_symbols | $prefix_cmds >> $output_objdir/$libname.def~ + $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~ + emximp -o $lib $output_objdir/$libname.def' + _LT_TAGVAR(old_archive_From_new_cmds, $1)='emximp -o $output_objdir/${libname}_dll.a $output_objdir/$libname.def' + _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes + ;; + + interix[[3-9]]*) + _LT_TAGVAR(hardcode_direct, $1)=no + _LT_TAGVAR(hardcode_shlibpath_var, $1)=no + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath,$libdir' + _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-E' + # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc. + # Instead, shared libraries are loaded at an image base (0x10000000 by + # default) and relocated if they conflict, which is a slow very memory + # consuming and fragmenting process. To avoid this, we pick a random, + # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link + # time. Moving up from 0x10000000 also allows more sbrk(2) space. + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-h,$soname $wl--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' + _LT_TAGVAR(archive_expsym_cmds, $1)='sed "s|^|_|" $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-h,$soname $wl--retain-symbols-file,$output_objdir/$soname.expsym $wl--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' + ;; + + gnu* | linux* | tpf* | k*bsd*-gnu | kopensolaris*-gnu) + tmp_diet=no + if test linux-dietlibc = "$host_os"; then + case $cc_basename in + diet\ *) tmp_diet=yes;; # linux-dietlibc with static linking (!diet-dyn) + esac + fi + if $LD --help 2>&1 | $EGREP ': supported targets:.* elf' > /dev/null \ + && test no = "$tmp_diet" + then + tmp_addflag=' $pic_flag' + tmp_sharedflag='-shared' + case $cc_basename,$host_cpu in + pgcc*) # Portland Group C compiler + _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive' + tmp_addflag=' $pic_flag' + ;; + pgf77* | pgf90* | pgf95* | pgfortran*) + # Portland Group f77 and f90 compilers + _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive' + tmp_addflag=' $pic_flag -Mnomain' ;; + ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64 + tmp_addflag=' -i_dynamic' ;; + efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64 + tmp_addflag=' -i_dynamic -nofor_main' ;; + ifc* | ifort*) # Intel Fortran compiler + tmp_addflag=' -nofor_main' ;; + lf95*) # Lahey Fortran 8.1 + _LT_TAGVAR(whole_archive_flag_spec, $1)= + tmp_sharedflag='--shared' ;; + nagfor*) # NAGFOR 5.3 + tmp_sharedflag='-Wl,-shared' ;; + xl[[cC]]* | bgxl[[cC]]* | mpixl[[cC]]*) # IBM XL C 8.0 on PPC (deal with xlf below) + tmp_sharedflag='-qmkshrobj' + tmp_addflag= ;; + nvcc*) # Cuda Compiler Driver 2.2 + _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive' + _LT_TAGVAR(compiler_needs_object, $1)=yes + ;; + esac + case `$CC -V 2>&1 | sed 5q` in + *Sun\ C*) # Sun C 5.9 + _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive' + _LT_TAGVAR(compiler_needs_object, $1)=yes + tmp_sharedflag='-G' ;; + *Sun\ F*) # Sun Fortran 8.3 + tmp_sharedflag='-G' ;; + esac + _LT_TAGVAR(archive_cmds, $1)='$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' + + if test yes = "$supports_anon_versioning"; then + _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' + fi + + case $cc_basename in + tcc*) + _LT_TAGVAR(export_dynamic_flag_spec, $1)='-rdynamic' + ;; + xlf* | bgf* | bgxlf* | mpixlf*) + # IBM XL Fortran 10.1 on PPC cannot create shared libs itself + _LT_TAGVAR(whole_archive_flag_spec, $1)='--whole-archive$convenience --no-whole-archive' + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir' + _LT_TAGVAR(archive_cmds, $1)='$LD -shared $libobjs $deplibs $linker_flags -soname $soname -o $lib' + if test yes = "$supports_anon_versioning"; then + _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $LD -shared $libobjs $deplibs $linker_flags -soname $soname -version-script $output_objdir/$libname.ver -o $lib' + fi + ;; + esac + else + _LT_TAGVAR(ld_shlibs, $1)=no + fi + ;; + + netbsd*) + if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then + _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib' + wlarc= + else + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' + _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' + fi + ;; + + solaris*) + if $LD -v 2>&1 | $GREP 'BFD 2\.8' > /dev/null; then + _LT_TAGVAR(ld_shlibs, $1)=no + cat <<_LT_EOF 1>&2 + +*** Warning: The releases 2.8.* of the GNU linker cannot reliably +*** create shared libraries on Solaris systems. Therefore, libtool +*** is disabling shared libraries support. We urge you to upgrade GNU +*** binutils to release 2.9.1 or newer. Another option is to modify +*** your PATH or compiler configuration so that the native linker is +*** used, and then restart. + +_LT_EOF + elif $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' + _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' + else + _LT_TAGVAR(ld_shlibs, $1)=no + fi + ;; + + sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*) + case `$LD -v 2>&1` in + *\ [[01]].* | *\ 2.[[0-9]].* | *\ 2.1[[0-5]].*) + _LT_TAGVAR(ld_shlibs, $1)=no + cat <<_LT_EOF 1>&2 + +*** Warning: Releases of the GNU linker prior to 2.16.91.0.3 cannot +*** reliably create shared libraries on SCO systems. Therefore, libtool +*** is disabling shared libraries support. We urge you to upgrade GNU +*** binutils to release 2.16.91.0.3 or newer. Another option is to modify +*** your PATH or compiler configuration so that the native linker is +*** used, and then restart. + +_LT_EOF + ;; + *) + # For security reasons, it is highly recommended that you always + # use absolute paths for naming shared libraries, and exclude the + # DT_RUNPATH tag from executables and libraries. But doing so + # requires that you compile everything twice, which is a pain. + if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir' + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' + _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' + else + _LT_TAGVAR(ld_shlibs, $1)=no + fi + ;; + esac + ;; + + sunos4*) + _LT_TAGVAR(archive_cmds, $1)='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags' + wlarc= + _LT_TAGVAR(hardcode_direct, $1)=yes + _LT_TAGVAR(hardcode_shlibpath_var, $1)=no + ;; + + *) + if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' + _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' + else + _LT_TAGVAR(ld_shlibs, $1)=no + fi + ;; + esac + + if test no = "$_LT_TAGVAR(ld_shlibs, $1)"; then + runpath_var= + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)= + _LT_TAGVAR(export_dynamic_flag_spec, $1)= + _LT_TAGVAR(whole_archive_flag_spec, $1)= + fi + else + # PORTME fill in a description of your system's linker (not GNU ld) + case $host_os in + aix3*) + _LT_TAGVAR(allow_undefined_flag, $1)=unsupported + _LT_TAGVAR(always_export_symbols, $1)=yes + _LT_TAGVAR(archive_expsym_cmds, $1)='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname' + # Note: this linker hardcodes the directories in LIBPATH if there + # are no directories specified by -L. + _LT_TAGVAR(hardcode_minus_L, $1)=yes + if test yes = "$GCC" && test -z "$lt_prog_compiler_static"; then + # Neither direct hardcoding nor static linking is supported with a + # broken collect2. + _LT_TAGVAR(hardcode_direct, $1)=unsupported + fi + ;; + + aix[[4-9]]*) + if test ia64 = "$host_cpu"; then + # On IA64, the linker does run time linking by default, so we don't + # have to do anything special. + aix_use_runtimelinking=no + exp_sym_flag='-Bexport' + no_entry_flag= + else + # If we're using GNU nm, then we don't want the "-C" option. + # -C means demangle to GNU nm, but means don't demangle to AIX nm. + # Without the "-l" option, or with the "-B" option, AIX nm treats + # weak defined symbols like other global defined symbols, whereas + # GNU nm marks them as "W". + # While the 'weak' keyword is ignored in the Export File, we need + # it in the Import File for the 'aix-soname' feature, so we have + # to replace the "-B" option with "-P" for AIX nm. + if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then + _LT_TAGVAR(export_symbols_cmds, $1)='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && ([substr](\$ 3,1,1) != ".")) { if (\$ 2 == "W") { print \$ 3 " weak" } else { print \$ 3 } } }'\'' | sort -u > $export_symbols' + else + _LT_TAGVAR(export_symbols_cmds, $1)='`func_echo_all $NM | $SED -e '\''s/B\([[^B]]*\)$/P\1/'\''` -PCpgl $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W") || (\$ 2 == "V") || (\$ 2 == "Z")) && ([substr](\$ 1,1,1) != ".")) { if ((\$ 2 == "W") || (\$ 2 == "V") || (\$ 2 == "Z")) { print \$ 1 " weak" } else { print \$ 1 } } }'\'' | sort -u > $export_symbols' + fi + aix_use_runtimelinking=no + + # Test if we are trying to use run time linking or normal + # AIX style linking. If -brtl is somewhere in LDFLAGS, we + # have runtime linking enabled, and use it for executables. + # For shared libraries, we enable/disable runtime linking + # depending on the kind of the shared library created - + # when "with_aix_soname,aix_use_runtimelinking" is: + # "aix,no" lib.a(lib.so.V) shared, rtl:no, for executables + # "aix,yes" lib.so shared, rtl:yes, for executables + # lib.a static archive + # "both,no" lib.so.V(shr.o) shared, rtl:yes + # lib.a(lib.so.V) shared, rtl:no, for executables + # "both,yes" lib.so.V(shr.o) shared, rtl:yes, for executables + # lib.a(lib.so.V) shared, rtl:no + # "svr4,*" lib.so.V(shr.o) shared, rtl:yes, for executables + # lib.a static archive + case $host_os in aix4.[[23]]|aix4.[[23]].*|aix[[5-9]]*) + for ld_flag in $LDFLAGS; do + if (test x-brtl = "x$ld_flag" || test x-Wl,-brtl = "x$ld_flag"); then + aix_use_runtimelinking=yes + break + fi + done + if test svr4,no = "$with_aix_soname,$aix_use_runtimelinking"; then + # With aix-soname=svr4, we create the lib.so.V shared archives only, + # so we don't have lib.a shared libs to link our executables. + # We have to force runtime linking in this case. + aix_use_runtimelinking=yes + LDFLAGS="$LDFLAGS -Wl,-brtl" + fi + ;; + esac + + exp_sym_flag='-bexport' + no_entry_flag='-bnoentry' + fi + + # When large executables or shared objects are built, AIX ld can + # have problems creating the table of contents. If linking a library + # or program results in "error TOC overflow" add -mminimal-toc to + # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not + # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. + + _LT_TAGVAR(archive_cmds, $1)='' + _LT_TAGVAR(hardcode_direct, $1)=yes + _LT_TAGVAR(hardcode_direct_absolute, $1)=yes + _LT_TAGVAR(hardcode_libdir_separator, $1)=':' + _LT_TAGVAR(link_all_deplibs, $1)=yes + _LT_TAGVAR(file_list_spec, $1)='$wl-f,' + case $with_aix_soname,$aix_use_runtimelinking in + aix,*) ;; # traditional, no import file + svr4,* | *,yes) # use import file + # The Import File defines what to hardcode. + _LT_TAGVAR(hardcode_direct, $1)=no + _LT_TAGVAR(hardcode_direct_absolute, $1)=no + ;; + esac + + if test yes = "$GCC"; then + case $host_os in aix4.[[012]]|aix4.[[012]].*) + # We only want to do this on AIX 4.2 and lower, the check + # below for broken collect2 doesn't work under 4.3+ + collect2name=`$CC -print-prog-name=collect2` + if test -f "$collect2name" && + strings "$collect2name" | $GREP resolve_lib_name >/dev/null + then + # We have reworked collect2 + : + else + # We have old collect2 + _LT_TAGVAR(hardcode_direct, $1)=unsupported + # It fails to find uninstalled libraries when the uninstalled + # path is not listed in the libpath. Setting hardcode_minus_L + # to unsupported forces relinking + _LT_TAGVAR(hardcode_minus_L, $1)=yes + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' + _LT_TAGVAR(hardcode_libdir_separator, $1)= + fi + ;; + esac + shared_flag='-shared' + if test yes = "$aix_use_runtimelinking"; then + shared_flag="$shared_flag "'$wl-G' + fi + # Need to ensure runtime linking is disabled for the traditional + # shared library, or the linker may eventually find shared libraries + # /with/ Import File - we do not want to mix them. + shared_flag_aix='-shared' + shared_flag_svr4='-shared $wl-G' + else + # not using gcc + if test ia64 = "$host_cpu"; then + # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release + # chokes on -Wl,-G. The following line is correct: + shared_flag='-G' + else + if test yes = "$aix_use_runtimelinking"; then + shared_flag='$wl-G' + else + shared_flag='$wl-bM:SRE' + fi + shared_flag_aix='$wl-bM:SRE' + shared_flag_svr4='$wl-G' + fi + fi + + _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-bexpall' + # It seems that -bexpall does not export symbols beginning with + # underscore (_), so it is better to generate a list of symbols to export. + _LT_TAGVAR(always_export_symbols, $1)=yes + if test aix,yes = "$with_aix_soname,$aix_use_runtimelinking"; then + # Warning - without using the other runtime loading flags (-brtl), + # -berok will link without error, but may produce a broken library. + _LT_TAGVAR(allow_undefined_flag, $1)='-berok' + # Determine the default libpath from the value encoded in an + # empty executable. + _LT_SYS_MODULE_PATH_AIX([$1]) + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-blibpath:$libdir:'"$aix_libpath" + _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $deplibs $wl'$no_entry_flag' $compiler_flags `if test -n "$allow_undefined_flag"; then func_echo_all "$wl$allow_undefined_flag"; else :; fi` $wl'$exp_sym_flag:\$export_symbols' '$shared_flag + else + if test ia64 = "$host_cpu"; then + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-R $libdir:/usr/lib:/lib' + _LT_TAGVAR(allow_undefined_flag, $1)="-z nodefs" + _LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\$wl$no_entry_flag"' $compiler_flags $wl$allow_undefined_flag '"\$wl$exp_sym_flag:\$export_symbols" + else + # Determine the default libpath from the value encoded in an + # empty executable. + _LT_SYS_MODULE_PATH_AIX([$1]) + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-blibpath:$libdir:'"$aix_libpath" + # Warning - without using the other run time loading flags, + # -berok will link without error, but may produce a broken library. + _LT_TAGVAR(no_undefined_flag, $1)=' $wl-bernotok' + _LT_TAGVAR(allow_undefined_flag, $1)=' $wl-berok' + if test yes = "$with_gnu_ld"; then + # We only use this code for GNU lds that support --whole-archive. + _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl--whole-archive$convenience $wl--no-whole-archive' + else + # Exported symbols can be pulled into shared objects from archives + _LT_TAGVAR(whole_archive_flag_spec, $1)='$convenience' + fi + _LT_TAGVAR(archive_cmds_need_lc, $1)=yes + _LT_TAGVAR(archive_expsym_cmds, $1)='$RM -r $output_objdir/$realname.d~$MKDIR $output_objdir/$realname.d' + # -brtl affects multiple linker settings, -berok does not and is overridden later + compiler_flags_filtered='`func_echo_all "$compiler_flags " | $SED -e "s%-brtl\\([[, ]]\\)%-berok\\1%g"`' + if test svr4 != "$with_aix_soname"; then + # This is similar to how AIX traditionally builds its shared libraries. + _LT_TAGVAR(archive_expsym_cmds, $1)="$_LT_TAGVAR(archive_expsym_cmds, $1)"'~$CC '$shared_flag_aix' -o $output_objdir/$realname.d/$soname $libobjs $deplibs $wl-bnoentry '$compiler_flags_filtered'$wl-bE:$export_symbols$allow_undefined_flag~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$realname.d/$soname' + fi + if test aix != "$with_aix_soname"; then + _LT_TAGVAR(archive_expsym_cmds, $1)="$_LT_TAGVAR(archive_expsym_cmds, $1)"'~$CC '$shared_flag_svr4' -o $output_objdir/$realname.d/$shared_archive_member_spec.o $libobjs $deplibs $wl-bnoentry '$compiler_flags_filtered'$wl-bE:$export_symbols$allow_undefined_flag~$STRIP -e $output_objdir/$realname.d/$shared_archive_member_spec.o~( func_echo_all "#! $soname($shared_archive_member_spec.o)"; if test shr_64 = "$shared_archive_member_spec"; then func_echo_all "# 64"; else func_echo_all "# 32"; fi; cat $export_symbols ) > $output_objdir/$realname.d/$shared_archive_member_spec.imp~$AR $AR_FLAGS $output_objdir/$soname $output_objdir/$realname.d/$shared_archive_member_spec.o $output_objdir/$realname.d/$shared_archive_member_spec.imp' + else + # used by -dlpreopen to get the symbols + _LT_TAGVAR(archive_expsym_cmds, $1)="$_LT_TAGVAR(archive_expsym_cmds, $1)"'~$MV $output_objdir/$realname.d/$soname $output_objdir' + fi + _LT_TAGVAR(archive_expsym_cmds, $1)="$_LT_TAGVAR(archive_expsym_cmds, $1)"'~$RM -r $output_objdir/$realname.d' + fi + fi + ;; + + amigaos*) + case $host_cpu in + powerpc) + # see comment about AmigaOS4 .so support + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' + _LT_TAGVAR(archive_expsym_cmds, $1)='' + ;; + m68k) + _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' + _LT_TAGVAR(hardcode_minus_L, $1)=yes + ;; + esac + ;; + + bsdi[[45]]*) + _LT_TAGVAR(export_dynamic_flag_spec, $1)=-rdynamic + ;; + + cygwin* | mingw* | pw32* | cegcc*) + # When not using gcc, we currently assume that we are using + # Microsoft Visual C++. + # hardcode_libdir_flag_spec is actually meaningless, as there is + # no search path for DLLs. + case $cc_basename in + cl*) + # Native MSVC + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)=' ' + _LT_TAGVAR(allow_undefined_flag, $1)=unsupported + _LT_TAGVAR(always_export_symbols, $1)=yes + _LT_TAGVAR(file_list_spec, $1)='@' + # Tell ltmain to make .lib files, not .a files. + libext=lib + # Tell ltmain to make .dll files, not .so files. + shrext_cmds=.dll + # FIXME: Setting linknames here is a bad hack. + _LT_TAGVAR(archive_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~linknames=' + _LT_TAGVAR(archive_expsym_cmds, $1)='if _LT_DLL_DEF_P([$export_symbols]); then + cp "$export_symbols" "$output_objdir/$soname.def"; + echo "$tool_output_objdir$soname.def" > "$output_objdir/$soname.exp"; + else + $SED -e '\''s/^/-link -EXPORT:/'\'' < $export_symbols > $output_objdir/$soname.exp; + fi~ + $CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~ + linknames=' + # The linker will not automatically build a static lib if we build a DLL. + # _LT_TAGVAR(old_archive_from_new_cmds, $1)='true' + _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes + _LT_TAGVAR(exclude_expsyms, $1)='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*' + _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGRS]][[ ]]/s/.*[[ ]]\([[^ ]]*\)/\1,DATA/'\'' | $SED -e '\''/^[[AITW]][[ ]]/s/.*[[ ]]//'\'' | sort | uniq > $export_symbols' + # Don't use ranlib + _LT_TAGVAR(old_postinstall_cmds, $1)='chmod 644 $oldlib' + _LT_TAGVAR(postlink_cmds, $1)='lt_outputfile="@OUTPUT@"~ + lt_tool_outputfile="@TOOL_OUTPUT@"~ + case $lt_outputfile in + *.exe|*.EXE) ;; + *) + lt_outputfile=$lt_outputfile.exe + lt_tool_outputfile=$lt_tool_outputfile.exe + ;; + esac~ + if test : != "$MANIFEST_TOOL" && test -f "$lt_outputfile.manifest"; then + $MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1; + $RM "$lt_outputfile.manifest"; + fi' + ;; + *) + # Assume MSVC wrapper + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)=' ' + _LT_TAGVAR(allow_undefined_flag, $1)=unsupported + # Tell ltmain to make .lib files, not .a files. + libext=lib + # Tell ltmain to make .dll files, not .so files. + shrext_cmds=.dll + # FIXME: Setting linknames here is a bad hack. + _LT_TAGVAR(archive_cmds, $1)='$CC -o $lib $libobjs $compiler_flags `func_echo_all "$deplibs" | $SED '\''s/ -lc$//'\''` -link -dll~linknames=' + # The linker will automatically build a .lib file if we build a DLL. + _LT_TAGVAR(old_archive_from_new_cmds, $1)='true' + # FIXME: Should let the user specify the lib program. + _LT_TAGVAR(old_archive_cmds, $1)='lib -OUT:$oldlib$oldobjs$old_deplibs' + _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes + ;; + esac + ;; + + darwin* | rhapsody*) + _LT_DARWIN_LINKER_FEATURES($1) + ;; + + dgux*) + _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' + _LT_TAGVAR(hardcode_shlibpath_var, $1)=no + ;; + + # FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor + # support. Future versions do this automatically, but an explicit c++rt0.o + # does not break anything, and helps significantly (at the cost of a little + # extra space). + freebsd2.2*) + _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o' + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' + _LT_TAGVAR(hardcode_direct, $1)=yes + _LT_TAGVAR(hardcode_shlibpath_var, $1)=no + ;; + + # Unfortunately, older versions of FreeBSD 2 do not have this feature. + freebsd2.*) + _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' + _LT_TAGVAR(hardcode_direct, $1)=yes + _LT_TAGVAR(hardcode_minus_L, $1)=yes + _LT_TAGVAR(hardcode_shlibpath_var, $1)=no + ;; + + # FreeBSD 3 and greater uses gcc -shared to do shared libraries. + freebsd* | dragonfly*) + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' + _LT_TAGVAR(hardcode_direct, $1)=yes + _LT_TAGVAR(hardcode_shlibpath_var, $1)=no + ;; + + hpux9*) + if test yes = "$GCC"; then + _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$CC -shared $pic_flag $wl+b $wl$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test "x$output_objdir/$soname" = "x$lib" || mv $output_objdir/$soname $lib' + else + _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test "x$output_objdir/$soname" = "x$lib" || mv $output_objdir/$soname $lib' + fi + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl+b $wl$libdir' + _LT_TAGVAR(hardcode_libdir_separator, $1)=: + _LT_TAGVAR(hardcode_direct, $1)=yes + + # hardcode_minus_L: Not really in the search PATH, + # but as the default location of the library. + _LT_TAGVAR(hardcode_minus_L, $1)=yes + _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-E' + ;; + + hpux10*) + if test yes,no = "$GCC,$with_gnu_ld"; then + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags' + else + _LT_TAGVAR(archive_cmds, $1)='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags' + fi + if test no = "$with_gnu_ld"; then + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl+b $wl$libdir' + _LT_TAGVAR(hardcode_libdir_separator, $1)=: + _LT_TAGVAR(hardcode_direct, $1)=yes + _LT_TAGVAR(hardcode_direct_absolute, $1)=yes + _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-E' + # hardcode_minus_L: Not really in the search PATH, + # but as the default location of the library. + _LT_TAGVAR(hardcode_minus_L, $1)=yes + fi + ;; + + hpux11*) + if test yes,no = "$GCC,$with_gnu_ld"; then + case $host_cpu in + hppa*64*) + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $wl+h $wl$soname -o $lib $libobjs $deplibs $compiler_flags' + ;; + ia64*) + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $wl+h $wl$soname $wl+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' + ;; + *) + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags' + ;; + esac + else + case $host_cpu in + hppa*64*) + _LT_TAGVAR(archive_cmds, $1)='$CC -b $wl+h $wl$soname -o $lib $libobjs $deplibs $compiler_flags' + ;; + ia64*) + _LT_TAGVAR(archive_cmds, $1)='$CC -b $wl+h $wl$soname $wl+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' + ;; + *) + m4_if($1, [], [ + # Older versions of the 11.00 compiler do not understand -b yet + # (HP92453-01 A.11.01.20 doesn't, HP92453-01 B.11.X.35175-35176.GP does) + _LT_LINKER_OPTION([if $CC understands -b], + _LT_TAGVAR(lt_cv_prog_compiler__b, $1), [-b], + [_LT_TAGVAR(archive_cmds, $1)='$CC -b $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags'], + [_LT_TAGVAR(archive_cmds, $1)='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags'])], + [_LT_TAGVAR(archive_cmds, $1)='$CC -b $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags']) + ;; + esac + fi + if test no = "$with_gnu_ld"; then + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl+b $wl$libdir' + _LT_TAGVAR(hardcode_libdir_separator, $1)=: + + case $host_cpu in + hppa*64*|ia64*) + _LT_TAGVAR(hardcode_direct, $1)=no + _LT_TAGVAR(hardcode_shlibpath_var, $1)=no + ;; + *) + _LT_TAGVAR(hardcode_direct, $1)=yes + _LT_TAGVAR(hardcode_direct_absolute, $1)=yes + _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-E' + + # hardcode_minus_L: Not really in the search PATH, + # but as the default location of the library. + _LT_TAGVAR(hardcode_minus_L, $1)=yes + ;; + esac + fi + ;; + + irix5* | irix6* | nonstopux*) + if test yes = "$GCC"; then + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib' + # Try to use the -exported_symbol ld option, if it does not + # work, assume that -exports_file does not work either and + # implicitly export all symbols. + # This should be the same for all languages, so no per-tag cache variable. + AC_CACHE_CHECK([whether the $host_os linker accepts -exported_symbol], + [lt_cv_irix_exported_symbol], + [save_LDFLAGS=$LDFLAGS + LDFLAGS="$LDFLAGS -shared $wl-exported_symbol ${wl}foo $wl-update_registry $wl/dev/null" + AC_LINK_IFELSE( + [AC_LANG_SOURCE( + [AC_LANG_CASE([C], [[int foo (void) { return 0; }]], + [C++], [[int foo (void) { return 0; }]], + [Fortran 77], [[ + subroutine foo + end]], + [Fortran], [[ + subroutine foo + end]])])], + [lt_cv_irix_exported_symbol=yes], + [lt_cv_irix_exported_symbol=no]) + LDFLAGS=$save_LDFLAGS]) + if test yes = "$lt_cv_irix_exported_symbol"; then + _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations $wl-exports_file $wl$export_symbols -o $lib' + fi + else + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib' + _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -exports_file $export_symbols -o $lib' + fi + _LT_TAGVAR(archive_cmds_need_lc, $1)='no' + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir' + _LT_TAGVAR(hardcode_libdir_separator, $1)=: + _LT_TAGVAR(inherit_rpath, $1)=yes + _LT_TAGVAR(link_all_deplibs, $1)=yes + ;; + + linux*) + case $cc_basename in + tcc*) + # Fabrice Bellard et al's Tiny C Compiler + _LT_TAGVAR(ld_shlibs, $1)=yes + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' + ;; + esac + ;; + + netbsd*) + if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then + _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out + else + _LT_TAGVAR(archive_cmds, $1)='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF + fi + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' + _LT_TAGVAR(hardcode_direct, $1)=yes + _LT_TAGVAR(hardcode_shlibpath_var, $1)=no + ;; + + newsos6) + _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + _LT_TAGVAR(hardcode_direct, $1)=yes + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir' + _LT_TAGVAR(hardcode_libdir_separator, $1)=: + _LT_TAGVAR(hardcode_shlibpath_var, $1)=no + ;; + + *nto* | *qnx*) + ;; + + openbsd* | bitrig*) + if test -f /usr/libexec/ld.so; then + _LT_TAGVAR(hardcode_direct, $1)=yes + _LT_TAGVAR(hardcode_shlibpath_var, $1)=no + _LT_TAGVAR(hardcode_direct_absolute, $1)=yes + if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`"; then + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' + _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags $wl-retain-symbols-file,$export_symbols' + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath,$libdir' + _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-E' + else + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath,$libdir' + fi + else + _LT_TAGVAR(ld_shlibs, $1)=no + fi + ;; + + os2*) + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' + _LT_TAGVAR(hardcode_minus_L, $1)=yes + _LT_TAGVAR(allow_undefined_flag, $1)=unsupported + shrext_cmds=.dll + _LT_TAGVAR(archive_cmds, $1)='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~ + $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~ + $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~ + $ECHO EXPORTS >> $output_objdir/$libname.def~ + emxexp $libobjs | $SED /"_DLL_InitTerm"/d >> $output_objdir/$libname.def~ + $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~ + emximp -o $lib $output_objdir/$libname.def' + _LT_TAGVAR(archive_expsym_cmds, $1)='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~ + $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~ + $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~ + $ECHO EXPORTS >> $output_objdir/$libname.def~ + prefix_cmds="$SED"~ + if test EXPORTS = "`$SED 1q $export_symbols`"; then + prefix_cmds="$prefix_cmds -e 1d"; + fi~ + prefix_cmds="$prefix_cmds -e \"s/^\(.*\)$/_\1/g\""~ + cat $export_symbols | $prefix_cmds >> $output_objdir/$libname.def~ + $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~ + emximp -o $lib $output_objdir/$libname.def' + _LT_TAGVAR(old_archive_From_new_cmds, $1)='emximp -o $output_objdir/${libname}_dll.a $output_objdir/$libname.def' + _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes + ;; + + osf3*) + if test yes = "$GCC"; then + _LT_TAGVAR(allow_undefined_flag, $1)=' $wl-expect_unresolved $wl\*' + _LT_TAGVAR(archive_cmds, $1)='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib' + else + _LT_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*' + _LT_TAGVAR(archive_cmds, $1)='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib' + fi + _LT_TAGVAR(archive_cmds_need_lc, $1)='no' + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir' + _LT_TAGVAR(hardcode_libdir_separator, $1)=: + ;; + + osf4* | osf5*) # as osf3* with the addition of -msym flag + if test yes = "$GCC"; then + _LT_TAGVAR(allow_undefined_flag, $1)=' $wl-expect_unresolved $wl\*' + _LT_TAGVAR(archive_cmds, $1)='$CC -shared$allow_undefined_flag $pic_flag $libobjs $deplibs $compiler_flags $wl-msym $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib' + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir' + else + _LT_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*' + _LT_TAGVAR(archive_cmds, $1)='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib' + _LT_TAGVAR(archive_expsym_cmds, $1)='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; printf "%s\\n" "-hidden">> $lib.exp~ + $CC -shared$allow_undefined_flag $wl-input $wl$lib.exp $compiler_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib~$RM $lib.exp' + + # Both c and cxx compiler support -rpath directly + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir' + fi + _LT_TAGVAR(archive_cmds_need_lc, $1)='no' + _LT_TAGVAR(hardcode_libdir_separator, $1)=: + ;; + + solaris*) + _LT_TAGVAR(no_undefined_flag, $1)=' -z defs' + if test yes = "$GCC"; then + wlarc='$wl' + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $wl-z ${wl}text $wl-h $wl$soname -o $lib $libobjs $deplibs $compiler_flags' + _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ + $CC -shared $pic_flag $wl-z ${wl}text $wl-M $wl$lib.exp $wl-h $wl$soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp' + else + case `$CC -V 2>&1` in + *"Compilers 5.0"*) + wlarc='' + _LT_TAGVAR(archive_cmds, $1)='$LD -G$allow_undefined_flag -h $soname -o $lib $libobjs $deplibs $linker_flags' + _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ + $LD -G$allow_undefined_flag -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$RM $lib.exp' + ;; + *) + wlarc='$wl' + _LT_TAGVAR(archive_cmds, $1)='$CC -G$allow_undefined_flag -h $soname -o $lib $libobjs $deplibs $compiler_flags' + _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ + $CC -G$allow_undefined_flag -M $lib.exp -h $soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp' + ;; + esac + fi + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' + _LT_TAGVAR(hardcode_shlibpath_var, $1)=no + case $host_os in + solaris2.[[0-5]] | solaris2.[[0-5]].*) ;; + *) + # The compiler driver will combine and reorder linker options, + # but understands '-z linker_flag'. GCC discards it without '$wl', + # but is careful enough not to reorder. + # Supported since Solaris 2.6 (maybe 2.5.1?) + if test yes = "$GCC"; then + _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl-z ${wl}allextract$convenience $wl-z ${wl}defaultextract' + else + _LT_TAGVAR(whole_archive_flag_spec, $1)='-z allextract$convenience -z defaultextract' + fi + ;; + esac + _LT_TAGVAR(link_all_deplibs, $1)=yes + ;; + + sunos4*) + if test sequent = "$host_vendor"; then + # Use $CC to link under sequent, because it throws in some extra .o + # files that make .init and .fini sections work. + _LT_TAGVAR(archive_cmds, $1)='$CC -G $wl-h $soname -o $lib $libobjs $deplibs $compiler_flags' + else + _LT_TAGVAR(archive_cmds, $1)='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags' + fi + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' + _LT_TAGVAR(hardcode_direct, $1)=yes + _LT_TAGVAR(hardcode_minus_L, $1)=yes + _LT_TAGVAR(hardcode_shlibpath_var, $1)=no + ;; + + sysv4) + case $host_vendor in + sni) + _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + _LT_TAGVAR(hardcode_direct, $1)=yes # is this really true??? + ;; + siemens) + ## LD is ld it makes a PLAMLIB + ## CC just makes a GrossModule. + _LT_TAGVAR(archive_cmds, $1)='$LD -G -o $lib $libobjs $deplibs $linker_flags' + _LT_TAGVAR(reload_cmds, $1)='$CC -r -o $output$reload_objs' + _LT_TAGVAR(hardcode_direct, $1)=no + ;; + motorola) + _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + _LT_TAGVAR(hardcode_direct, $1)=no #Motorola manual says yes, but my tests say they lie + ;; + esac + runpath_var='LD_RUN_PATH' + _LT_TAGVAR(hardcode_shlibpath_var, $1)=no + ;; + + sysv4.3*) + _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + _LT_TAGVAR(hardcode_shlibpath_var, $1)=no + _LT_TAGVAR(export_dynamic_flag_spec, $1)='-Bexport' + ;; + + sysv4*MP*) + if test -d /usr/nec; then + _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + _LT_TAGVAR(hardcode_shlibpath_var, $1)=no + runpath_var=LD_RUN_PATH + hardcode_runpath_var=yes + _LT_TAGVAR(ld_shlibs, $1)=yes + fi + ;; + + sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[[01]].[[10]]* | unixware7* | sco3.2v5.0.[[024]]*) + _LT_TAGVAR(no_undefined_flag, $1)='$wl-z,text' + _LT_TAGVAR(archive_cmds_need_lc, $1)=no + _LT_TAGVAR(hardcode_shlibpath_var, $1)=no + runpath_var='LD_RUN_PATH' + + if test yes = "$GCC"; then + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' + _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' + else + _LT_TAGVAR(archive_cmds, $1)='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' + _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' + fi + ;; + + sysv5* | sco3.2v5* | sco5v6*) + # Note: We CANNOT use -z defs as we might desire, because we do not + # link with -lc, and that would cause any symbols used from libc to + # always be unresolved, which means just about no library would + # ever link correctly. If we're not using GNU ld we use -z text + # though, which does catch some bad symbols but isn't as heavy-handed + # as -z defs. + _LT_TAGVAR(no_undefined_flag, $1)='$wl-z,text' + _LT_TAGVAR(allow_undefined_flag, $1)='$wl-z,nodefs' + _LT_TAGVAR(archive_cmds_need_lc, $1)=no + _LT_TAGVAR(hardcode_shlibpath_var, $1)=no + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-R,$libdir' + _LT_TAGVAR(hardcode_libdir_separator, $1)=':' + _LT_TAGVAR(link_all_deplibs, $1)=yes + _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-Bexport' + runpath_var='LD_RUN_PATH' + + if test yes = "$GCC"; then + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' + _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' + else + _LT_TAGVAR(archive_cmds, $1)='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' + _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' + fi + ;; + + uts4*) + _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' + _LT_TAGVAR(hardcode_shlibpath_var, $1)=no + ;; + + *) + _LT_TAGVAR(ld_shlibs, $1)=no + ;; + esac + + if test sni = "$host_vendor"; then + case $host in + sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*) + _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-Blargedynsym' + ;; + esac + fi + fi +]) +AC_MSG_RESULT([$_LT_TAGVAR(ld_shlibs, $1)]) +test no = "$_LT_TAGVAR(ld_shlibs, $1)" && can_build_shared=no + +_LT_TAGVAR(with_gnu_ld, $1)=$with_gnu_ld + +_LT_DECL([], [libext], [0], [Old archive suffix (normally "a")])dnl +_LT_DECL([], [shrext_cmds], [1], [Shared library suffix (normally ".so")])dnl +_LT_DECL([], [extract_expsyms_cmds], [2], + [The commands to extract the exported symbol list from a shared archive]) + +# +# Do we need to explicitly link libc? +# +case "x$_LT_TAGVAR(archive_cmds_need_lc, $1)" in +x|xyes) + # Assume -lc should be added + _LT_TAGVAR(archive_cmds_need_lc, $1)=yes + + if test yes,yes = "$GCC,$enable_shared"; then + case $_LT_TAGVAR(archive_cmds, $1) in + *'~'*) + # FIXME: we may have to deal with multi-command sequences. + ;; + '$CC '*) + # Test whether the compiler implicitly links with -lc since on some + # systems, -lgcc has to come before -lc. If gcc already passes -lc + # to ld, don't add -lc before -lgcc. + AC_CACHE_CHECK([whether -lc should be explicitly linked in], + [lt_cv_]_LT_TAGVAR(archive_cmds_need_lc, $1), + [$RM conftest* + echo "$lt_simple_compile_test_code" > conftest.$ac_ext + + if AC_TRY_EVAL(ac_compile) 2>conftest.err; then + soname=conftest + lib=conftest + libobjs=conftest.$ac_objext + deplibs= + wl=$_LT_TAGVAR(lt_prog_compiler_wl, $1) + pic_flag=$_LT_TAGVAR(lt_prog_compiler_pic, $1) + compiler_flags=-v + linker_flags=-v + verstring= + output_objdir=. + libname=conftest + lt_save_allow_undefined_flag=$_LT_TAGVAR(allow_undefined_flag, $1) + _LT_TAGVAR(allow_undefined_flag, $1)= + if AC_TRY_EVAL(_LT_TAGVAR(archive_cmds, $1) 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1) + then + lt_cv_[]_LT_TAGVAR(archive_cmds_need_lc, $1)=no + else + lt_cv_[]_LT_TAGVAR(archive_cmds_need_lc, $1)=yes + fi + _LT_TAGVAR(allow_undefined_flag, $1)=$lt_save_allow_undefined_flag + else + cat conftest.err 1>&5 + fi + $RM conftest* + ]) + _LT_TAGVAR(archive_cmds_need_lc, $1)=$lt_cv_[]_LT_TAGVAR(archive_cmds_need_lc, $1) + ;; + esac + fi + ;; +esac + +_LT_TAGDECL([build_libtool_need_lc], [archive_cmds_need_lc], [0], + [Whether or not to add -lc for building shared libraries]) +_LT_TAGDECL([allow_libtool_libs_with_static_runtimes], + [enable_shared_with_static_runtimes], [0], + [Whether or not to disallow shared libs when runtime libs are static]) +_LT_TAGDECL([], [export_dynamic_flag_spec], [1], + [Compiler flag to allow reflexive dlopens]) +_LT_TAGDECL([], [whole_archive_flag_spec], [1], + [Compiler flag to generate shared objects directly from archives]) +_LT_TAGDECL([], [compiler_needs_object], [1], + [Whether the compiler copes with passing no objects directly]) +_LT_TAGDECL([], [old_archive_from_new_cmds], [2], + [Create an old-style archive from a shared archive]) +_LT_TAGDECL([], [old_archive_from_expsyms_cmds], [2], + [Create a temporary old-style archive to link instead of a shared archive]) +_LT_TAGDECL([], [archive_cmds], [2], [Commands used to build a shared archive]) +_LT_TAGDECL([], [archive_expsym_cmds], [2]) +_LT_TAGDECL([], [module_cmds], [2], + [Commands used to build a loadable module if different from building + a shared archive.]) +_LT_TAGDECL([], [module_expsym_cmds], [2]) +_LT_TAGDECL([], [with_gnu_ld], [1], + [Whether we are building with GNU ld or not]) +_LT_TAGDECL([], [allow_undefined_flag], [1], + [Flag that allows shared libraries with undefined symbols to be built]) +_LT_TAGDECL([], [no_undefined_flag], [1], + [Flag that enforces no undefined symbols]) +_LT_TAGDECL([], [hardcode_libdir_flag_spec], [1], + [Flag to hardcode $libdir into a binary during linking. + This must work even if $libdir does not exist]) +_LT_TAGDECL([], [hardcode_libdir_separator], [1], + [Whether we need a single "-rpath" flag with a separated argument]) +_LT_TAGDECL([], [hardcode_direct], [0], + [Set to "yes" if using DIR/libNAME$shared_ext during linking hardcodes + DIR into the resulting binary]) +_LT_TAGDECL([], [hardcode_direct_absolute], [0], + [Set to "yes" if using DIR/libNAME$shared_ext during linking hardcodes + DIR into the resulting binary and the resulting library dependency is + "absolute", i.e impossible to change by setting $shlibpath_var if the + library is relocated]) +_LT_TAGDECL([], [hardcode_minus_L], [0], + [Set to "yes" if using the -LDIR flag during linking hardcodes DIR + into the resulting binary]) +_LT_TAGDECL([], [hardcode_shlibpath_var], [0], + [Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR + into the resulting binary]) +_LT_TAGDECL([], [hardcode_automatic], [0], + [Set to "yes" if building a shared library automatically hardcodes DIR + into the library and all subsequent libraries and executables linked + against it]) +_LT_TAGDECL([], [inherit_rpath], [0], + [Set to yes if linker adds runtime paths of dependent libraries + to runtime path list]) +_LT_TAGDECL([], [link_all_deplibs], [0], + [Whether libtool must link a program against all its dependency libraries]) +_LT_TAGDECL([], [always_export_symbols], [0], + [Set to "yes" if exported symbols are required]) +_LT_TAGDECL([], [export_symbols_cmds], [2], + [The commands to list exported symbols]) +_LT_TAGDECL([], [exclude_expsyms], [1], + [Symbols that should not be listed in the preloaded symbols]) +_LT_TAGDECL([], [include_expsyms], [1], + [Symbols that must always be exported]) +_LT_TAGDECL([], [prelink_cmds], [2], + [Commands necessary for linking programs (against libraries) with templates]) +_LT_TAGDECL([], [postlink_cmds], [2], + [Commands necessary for finishing linking programs]) +_LT_TAGDECL([], [file_list_spec], [1], + [Specify filename containing input files]) +dnl FIXME: Not yet implemented +dnl _LT_TAGDECL([], [thread_safe_flag_spec], [1], +dnl [Compiler flag to generate thread safe objects]) +])# _LT_LINKER_SHLIBS + + +# _LT_LANG_C_CONFIG([TAG]) +# ------------------------ +# Ensure that the configuration variables for a C compiler are suitably +# defined. These variables are subsequently used by _LT_CONFIG to write +# the compiler configuration to 'libtool'. +m4_defun([_LT_LANG_C_CONFIG], +[m4_require([_LT_DECL_EGREP])dnl +lt_save_CC=$CC +AC_LANG_PUSH(C) + +# Source file extension for C test sources. +ac_ext=c + +# Object file extension for compiled C test sources. +objext=o +_LT_TAGVAR(objext, $1)=$objext + +# Code to be used in simple compile tests +lt_simple_compile_test_code="int some_variable = 0;" + +# Code to be used in simple link tests +lt_simple_link_test_code='int main(){return(0);}' + +_LT_TAG_COMPILER +# Save the default compiler, since it gets overwritten when the other +# tags are being tested, and _LT_TAGVAR(compiler, []) is a NOP. +compiler_DEFAULT=$CC + +# save warnings/boilerplate of simple test code +_LT_COMPILER_BOILERPLATE +_LT_LINKER_BOILERPLATE + +## CAVEAT EMPTOR: +## There is no encapsulation within the following macros, do not change +## the running order or otherwise move them around unless you know exactly +## what you are doing... +if test -n "$compiler"; then + _LT_COMPILER_NO_RTTI($1) + _LT_COMPILER_PIC($1) + _LT_COMPILER_C_O($1) + _LT_COMPILER_FILE_LOCKS($1) + _LT_LINKER_SHLIBS($1) + _LT_SYS_DYNAMIC_LINKER($1) + _LT_LINKER_HARDCODE_LIBPATH($1) + LT_SYS_DLOPEN_SELF + _LT_CMD_STRIPLIB + + # Report what library types will actually be built + AC_MSG_CHECKING([if libtool supports shared libraries]) + AC_MSG_RESULT([$can_build_shared]) + + AC_MSG_CHECKING([whether to build shared libraries]) + test no = "$can_build_shared" && enable_shared=no + + # On AIX, shared libraries and static libraries use the same namespace, and + # are all built from PIC. + case $host_os in + aix3*) + test yes = "$enable_shared" && enable_static=no + if test -n "$RANLIB"; then + archive_cmds="$archive_cmds~\$RANLIB \$lib" + postinstall_cmds='$RANLIB $lib' + fi + ;; + + aix[[4-9]]*) + if test ia64 != "$host_cpu"; then + case $enable_shared,$with_aix_soname,$aix_use_runtimelinking in + yes,aix,yes) ;; # shared object as lib.so file only + yes,svr4,*) ;; # shared object as lib.so archive member only + yes,*) enable_static=no ;; # shared object in lib.a archive as well + esac + fi + ;; + esac + AC_MSG_RESULT([$enable_shared]) + + AC_MSG_CHECKING([whether to build static libraries]) + # Make sure either enable_shared or enable_static is yes. + test yes = "$enable_shared" || enable_static=yes + AC_MSG_RESULT([$enable_static]) + + _LT_CONFIG($1) +fi +AC_LANG_POP +CC=$lt_save_CC +])# _LT_LANG_C_CONFIG + + +# _LT_LANG_CXX_CONFIG([TAG]) +# -------------------------- +# Ensure that the configuration variables for a C++ compiler are suitably +# defined. These variables are subsequently used by _LT_CONFIG to write +# the compiler configuration to 'libtool'. +m4_defun([_LT_LANG_CXX_CONFIG], +[m4_require([_LT_FILEUTILS_DEFAULTS])dnl +m4_require([_LT_DECL_EGREP])dnl +m4_require([_LT_PATH_MANIFEST_TOOL])dnl +if test -n "$CXX" && ( test no != "$CXX" && + ( (test g++ = "$CXX" && `g++ -v >/dev/null 2>&1` ) || + (test g++ != "$CXX"))); then + AC_PROG_CXXCPP +else + _lt_caught_CXX_error=yes +fi + +AC_LANG_PUSH(C++) +_LT_TAGVAR(archive_cmds_need_lc, $1)=no +_LT_TAGVAR(allow_undefined_flag, $1)= +_LT_TAGVAR(always_export_symbols, $1)=no +_LT_TAGVAR(archive_expsym_cmds, $1)= +_LT_TAGVAR(compiler_needs_object, $1)=no +_LT_TAGVAR(export_dynamic_flag_spec, $1)= +_LT_TAGVAR(hardcode_direct, $1)=no +_LT_TAGVAR(hardcode_direct_absolute, $1)=no +_LT_TAGVAR(hardcode_libdir_flag_spec, $1)= +_LT_TAGVAR(hardcode_libdir_separator, $1)= +_LT_TAGVAR(hardcode_minus_L, $1)=no +_LT_TAGVAR(hardcode_shlibpath_var, $1)=unsupported +_LT_TAGVAR(hardcode_automatic, $1)=no +_LT_TAGVAR(inherit_rpath, $1)=no +_LT_TAGVAR(module_cmds, $1)= +_LT_TAGVAR(module_expsym_cmds, $1)= +_LT_TAGVAR(link_all_deplibs, $1)=unknown +_LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds +_LT_TAGVAR(reload_flag, $1)=$reload_flag +_LT_TAGVAR(reload_cmds, $1)=$reload_cmds +_LT_TAGVAR(no_undefined_flag, $1)= +_LT_TAGVAR(whole_archive_flag_spec, $1)= +_LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no + +# Source file extension for C++ test sources. +ac_ext=cpp + +# Object file extension for compiled C++ test sources. +objext=o +_LT_TAGVAR(objext, $1)=$objext + +# No sense in running all these tests if we already determined that +# the CXX compiler isn't working. Some variables (like enable_shared) +# are currently assumed to apply to all compilers on this platform, +# and will be corrupted by setting them based on a non-working compiler. +if test yes != "$_lt_caught_CXX_error"; then + # Code to be used in simple compile tests + lt_simple_compile_test_code="int some_variable = 0;" + + # Code to be used in simple link tests + lt_simple_link_test_code='int main(int, char *[[]]) { return(0); }' + + # ltmain only uses $CC for tagged configurations so make sure $CC is set. + _LT_TAG_COMPILER + + # save warnings/boilerplate of simple test code + _LT_COMPILER_BOILERPLATE + _LT_LINKER_BOILERPLATE + + # Allow CC to be a program name with arguments. + lt_save_CC=$CC + lt_save_CFLAGS=$CFLAGS + lt_save_LD=$LD + lt_save_GCC=$GCC + GCC=$GXX + lt_save_with_gnu_ld=$with_gnu_ld + lt_save_path_LD=$lt_cv_path_LD + if test -n "${lt_cv_prog_gnu_ldcxx+set}"; then + lt_cv_prog_gnu_ld=$lt_cv_prog_gnu_ldcxx + else + $as_unset lt_cv_prog_gnu_ld + fi + if test -n "${lt_cv_path_LDCXX+set}"; then + lt_cv_path_LD=$lt_cv_path_LDCXX + else + $as_unset lt_cv_path_LD + fi + test -z "${LDCXX+set}" || LD=$LDCXX + CC=${CXX-"c++"} + CFLAGS=$CXXFLAGS + compiler=$CC + _LT_TAGVAR(compiler, $1)=$CC + _LT_CC_BASENAME([$compiler]) + + if test -n "$compiler"; then + # We don't want -fno-exception when compiling C++ code, so set the + # no_builtin_flag separately + if test yes = "$GXX"; then + _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -fno-builtin' + else + _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)= + fi + + if test yes = "$GXX"; then + # Set up default GNU C++ configuration + + LT_PATH_LD + + # Check if GNU C++ uses GNU ld as the underlying linker, since the + # archiving commands below assume that GNU ld is being used. + if test yes = "$with_gnu_ld"; then + _LT_TAGVAR(archive_cmds, $1)='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib' + _LT_TAGVAR(archive_expsym_cmds, $1)='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' + + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir' + _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl--export-dynamic' + + # If archive_cmds runs LD, not CC, wlarc should be empty + # XXX I think wlarc can be eliminated in ltcf-cxx, but I need to + # investigate it a little bit more. (MM) + wlarc='$wl' + + # ancient GNU ld didn't support --whole-archive et. al. + if eval "`$CC -print-prog-name=ld` --help 2>&1" | + $GREP 'no-whole-archive' > /dev/null; then + _LT_TAGVAR(whole_archive_flag_spec, $1)=$wlarc'--whole-archive$convenience '$wlarc'--no-whole-archive' + else + _LT_TAGVAR(whole_archive_flag_spec, $1)= + fi + else + with_gnu_ld=no + wlarc= + + # A generic and very simple default shared library creation + # command for GNU C++ for the case where it uses the native + # linker, instead of GNU ld. If possible, this setting should + # overridden to take advantage of the native linker features on + # the platform it is being used on. + _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib' + fi + + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"' + + else + GXX=no + with_gnu_ld=no + wlarc= + fi + + # PORTME: fill in a description of your system's C++ link characteristics + AC_MSG_CHECKING([whether the $compiler linker ($LD) supports shared libraries]) + _LT_TAGVAR(ld_shlibs, $1)=yes + case $host_os in + aix3*) + # FIXME: insert proper C++ library support + _LT_TAGVAR(ld_shlibs, $1)=no + ;; + aix[[4-9]]*) + if test ia64 = "$host_cpu"; then + # On IA64, the linker does run time linking by default, so we don't + # have to do anything special. + aix_use_runtimelinking=no + exp_sym_flag='-Bexport' + no_entry_flag= + else + aix_use_runtimelinking=no + + # Test if we are trying to use run time linking or normal + # AIX style linking. If -brtl is somewhere in LDFLAGS, we + # have runtime linking enabled, and use it for executables. + # For shared libraries, we enable/disable runtime linking + # depending on the kind of the shared library created - + # when "with_aix_soname,aix_use_runtimelinking" is: + # "aix,no" lib.a(lib.so.V) shared, rtl:no, for executables + # "aix,yes" lib.so shared, rtl:yes, for executables + # lib.a static archive + # "both,no" lib.so.V(shr.o) shared, rtl:yes + # lib.a(lib.so.V) shared, rtl:no, for executables + # "both,yes" lib.so.V(shr.o) shared, rtl:yes, for executables + # lib.a(lib.so.V) shared, rtl:no + # "svr4,*" lib.so.V(shr.o) shared, rtl:yes, for executables + # lib.a static archive + case $host_os in aix4.[[23]]|aix4.[[23]].*|aix[[5-9]]*) + for ld_flag in $LDFLAGS; do + case $ld_flag in + *-brtl*) + aix_use_runtimelinking=yes + break + ;; + esac + done + if test svr4,no = "$with_aix_soname,$aix_use_runtimelinking"; then + # With aix-soname=svr4, we create the lib.so.V shared archives only, + # so we don't have lib.a shared libs to link our executables. + # We have to force runtime linking in this case. + aix_use_runtimelinking=yes + LDFLAGS="$LDFLAGS -Wl,-brtl" + fi + ;; + esac + + exp_sym_flag='-bexport' + no_entry_flag='-bnoentry' + fi + + # When large executables or shared objects are built, AIX ld can + # have problems creating the table of contents. If linking a library + # or program results in "error TOC overflow" add -mminimal-toc to + # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not + # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. + + _LT_TAGVAR(archive_cmds, $1)='' + _LT_TAGVAR(hardcode_direct, $1)=yes + _LT_TAGVAR(hardcode_direct_absolute, $1)=yes + _LT_TAGVAR(hardcode_libdir_separator, $1)=':' + _LT_TAGVAR(link_all_deplibs, $1)=yes + _LT_TAGVAR(file_list_spec, $1)='$wl-f,' + case $with_aix_soname,$aix_use_runtimelinking in + aix,*) ;; # no import file + svr4,* | *,yes) # use import file + # The Import File defines what to hardcode. + _LT_TAGVAR(hardcode_direct, $1)=no + _LT_TAGVAR(hardcode_direct_absolute, $1)=no + ;; + esac + + if test yes = "$GXX"; then + case $host_os in aix4.[[012]]|aix4.[[012]].*) + # We only want to do this on AIX 4.2 and lower, the check + # below for broken collect2 doesn't work under 4.3+ + collect2name=`$CC -print-prog-name=collect2` + if test -f "$collect2name" && + strings "$collect2name" | $GREP resolve_lib_name >/dev/null + then + # We have reworked collect2 + : + else + # We have old collect2 + _LT_TAGVAR(hardcode_direct, $1)=unsupported + # It fails to find uninstalled libraries when the uninstalled + # path is not listed in the libpath. Setting hardcode_minus_L + # to unsupported forces relinking + _LT_TAGVAR(hardcode_minus_L, $1)=yes + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' + _LT_TAGVAR(hardcode_libdir_separator, $1)= + fi + esac + shared_flag='-shared' + if test yes = "$aix_use_runtimelinking"; then + shared_flag=$shared_flag' $wl-G' + fi + # Need to ensure runtime linking is disabled for the traditional + # shared library, or the linker may eventually find shared libraries + # /with/ Import File - we do not want to mix them. + shared_flag_aix='-shared' + shared_flag_svr4='-shared $wl-G' + else + # not using gcc + if test ia64 = "$host_cpu"; then + # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release + # chokes on -Wl,-G. The following line is correct: + shared_flag='-G' + else + if test yes = "$aix_use_runtimelinking"; then + shared_flag='$wl-G' + else + shared_flag='$wl-bM:SRE' + fi + shared_flag_aix='$wl-bM:SRE' + shared_flag_svr4='$wl-G' + fi + fi + + _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-bexpall' + # It seems that -bexpall does not export symbols beginning with + # underscore (_), so it is better to generate a list of symbols to + # export. + _LT_TAGVAR(always_export_symbols, $1)=yes + if test aix,yes = "$with_aix_soname,$aix_use_runtimelinking"; then + # Warning - without using the other runtime loading flags (-brtl), + # -berok will link without error, but may produce a broken library. + # The "-G" linker flag allows undefined symbols. + _LT_TAGVAR(no_undefined_flag, $1)='-bernotok' + # Determine the default libpath from the value encoded in an empty + # executable. + _LT_SYS_MODULE_PATH_AIX([$1]) + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-blibpath:$libdir:'"$aix_libpath" + + _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $deplibs $wl'$no_entry_flag' $compiler_flags `if test -n "$allow_undefined_flag"; then func_echo_all "$wl$allow_undefined_flag"; else :; fi` $wl'$exp_sym_flag:\$export_symbols' '$shared_flag + else + if test ia64 = "$host_cpu"; then + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-R $libdir:/usr/lib:/lib' + _LT_TAGVAR(allow_undefined_flag, $1)="-z nodefs" + _LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\$wl$no_entry_flag"' $compiler_flags $wl$allow_undefined_flag '"\$wl$exp_sym_flag:\$export_symbols" + else + # Determine the default libpath from the value encoded in an + # empty executable. + _LT_SYS_MODULE_PATH_AIX([$1]) + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-blibpath:$libdir:'"$aix_libpath" + # Warning - without using the other run time loading flags, + # -berok will link without error, but may produce a broken library. + _LT_TAGVAR(no_undefined_flag, $1)=' $wl-bernotok' + _LT_TAGVAR(allow_undefined_flag, $1)=' $wl-berok' + if test yes = "$with_gnu_ld"; then + # We only use this code for GNU lds that support --whole-archive. + _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl--whole-archive$convenience $wl--no-whole-archive' + else + # Exported symbols can be pulled into shared objects from archives + _LT_TAGVAR(whole_archive_flag_spec, $1)='$convenience' + fi + _LT_TAGVAR(archive_cmds_need_lc, $1)=yes + _LT_TAGVAR(archive_expsym_cmds, $1)='$RM -r $output_objdir/$realname.d~$MKDIR $output_objdir/$realname.d' + # -brtl affects multiple linker settings, -berok does not and is overridden later + compiler_flags_filtered='`func_echo_all "$compiler_flags " | $SED -e "s%-brtl\\([[, ]]\\)%-berok\\1%g"`' + if test svr4 != "$with_aix_soname"; then + # This is similar to how AIX traditionally builds its shared + # libraries. Need -bnortl late, we may have -brtl in LDFLAGS. + _LT_TAGVAR(archive_expsym_cmds, $1)="$_LT_TAGVAR(archive_expsym_cmds, $1)"'~$CC '$shared_flag_aix' -o $output_objdir/$realname.d/$soname $libobjs $deplibs $wl-bnoentry '$compiler_flags_filtered'$wl-bE:$export_symbols$allow_undefined_flag~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$realname.d/$soname' + fi + if test aix != "$with_aix_soname"; then + _LT_TAGVAR(archive_expsym_cmds, $1)="$_LT_TAGVAR(archive_expsym_cmds, $1)"'~$CC '$shared_flag_svr4' -o $output_objdir/$realname.d/$shared_archive_member_spec.o $libobjs $deplibs $wl-bnoentry '$compiler_flags_filtered'$wl-bE:$export_symbols$allow_undefined_flag~$STRIP -e $output_objdir/$realname.d/$shared_archive_member_spec.o~( func_echo_all "#! $soname($shared_archive_member_spec.o)"; if test shr_64 = "$shared_archive_member_spec"; then func_echo_all "# 64"; else func_echo_all "# 32"; fi; cat $export_symbols ) > $output_objdir/$realname.d/$shared_archive_member_spec.imp~$AR $AR_FLAGS $output_objdir/$soname $output_objdir/$realname.d/$shared_archive_member_spec.o $output_objdir/$realname.d/$shared_archive_member_spec.imp' + else + # used by -dlpreopen to get the symbols + _LT_TAGVAR(archive_expsym_cmds, $1)="$_LT_TAGVAR(archive_expsym_cmds, $1)"'~$MV $output_objdir/$realname.d/$soname $output_objdir' + fi + _LT_TAGVAR(archive_expsym_cmds, $1)="$_LT_TAGVAR(archive_expsym_cmds, $1)"'~$RM -r $output_objdir/$realname.d' + fi + fi + ;; + + beos*) + if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then + _LT_TAGVAR(allow_undefined_flag, $1)=unsupported + # Joseph Beckenbach says some releases of gcc + # support --undefined. This deserves some investigation. FIXME + _LT_TAGVAR(archive_cmds, $1)='$CC -nostart $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' + else + _LT_TAGVAR(ld_shlibs, $1)=no + fi + ;; + + chorus*) + case $cc_basename in + *) + # FIXME: insert proper C++ library support + _LT_TAGVAR(ld_shlibs, $1)=no + ;; + esac + ;; + + cygwin* | mingw* | pw32* | cegcc*) + case $GXX,$cc_basename in + ,cl* | no,cl*) + # Native MSVC + # hardcode_libdir_flag_spec is actually meaningless, as there is + # no search path for DLLs. + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)=' ' + _LT_TAGVAR(allow_undefined_flag, $1)=unsupported + _LT_TAGVAR(always_export_symbols, $1)=yes + _LT_TAGVAR(file_list_spec, $1)='@' + # Tell ltmain to make .lib files, not .a files. + libext=lib + # Tell ltmain to make .dll files, not .so files. + shrext_cmds=.dll + # FIXME: Setting linknames here is a bad hack. + _LT_TAGVAR(archive_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~linknames=' + _LT_TAGVAR(archive_expsym_cmds, $1)='if _LT_DLL_DEF_P([$export_symbols]); then + cp "$export_symbols" "$output_objdir/$soname.def"; + echo "$tool_output_objdir$soname.def" > "$output_objdir/$soname.exp"; + else + $SED -e '\''s/^/-link -EXPORT:/'\'' < $export_symbols > $output_objdir/$soname.exp; + fi~ + $CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~ + linknames=' + # The linker will not automatically build a static lib if we build a DLL. + # _LT_TAGVAR(old_archive_from_new_cmds, $1)='true' + _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes + # Don't use ranlib + _LT_TAGVAR(old_postinstall_cmds, $1)='chmod 644 $oldlib' + _LT_TAGVAR(postlink_cmds, $1)='lt_outputfile="@OUTPUT@"~ + lt_tool_outputfile="@TOOL_OUTPUT@"~ + case $lt_outputfile in + *.exe|*.EXE) ;; + *) + lt_outputfile=$lt_outputfile.exe + lt_tool_outputfile=$lt_tool_outputfile.exe + ;; + esac~ + func_to_tool_file "$lt_outputfile"~ + if test : != "$MANIFEST_TOOL" && test -f "$lt_outputfile.manifest"; then + $MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1; + $RM "$lt_outputfile.manifest"; + fi' + ;; + *) + # g++ + # _LT_TAGVAR(hardcode_libdir_flag_spec, $1) is actually meaningless, + # as there is no search path for DLLs. + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' + _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl--export-all-symbols' + _LT_TAGVAR(allow_undefined_flag, $1)=unsupported + _LT_TAGVAR(always_export_symbols, $1)=no + _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes + + if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then + _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' + # If the export-symbols file already is a .def file, use it as + # is; otherwise, prepend EXPORTS... + _LT_TAGVAR(archive_expsym_cmds, $1)='if _LT_DLL_DEF_P([$export_symbols]); then + cp $export_symbols $output_objdir/$soname.def; + else + echo EXPORTS > $output_objdir/$soname.def; + cat $export_symbols >> $output_objdir/$soname.def; + fi~ + $CC -shared -nostdlib $output_objdir/$soname.def $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' + else + _LT_TAGVAR(ld_shlibs, $1)=no + fi + ;; + esac + ;; + darwin* | rhapsody*) + _LT_DARWIN_LINKER_FEATURES($1) + ;; + + os2*) + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' + _LT_TAGVAR(hardcode_minus_L, $1)=yes + _LT_TAGVAR(allow_undefined_flag, $1)=unsupported + shrext_cmds=.dll + _LT_TAGVAR(archive_cmds, $1)='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~ + $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~ + $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~ + $ECHO EXPORTS >> $output_objdir/$libname.def~ + emxexp $libobjs | $SED /"_DLL_InitTerm"/d >> $output_objdir/$libname.def~ + $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~ + emximp -o $lib $output_objdir/$libname.def' + _LT_TAGVAR(archive_expsym_cmds, $1)='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~ + $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~ + $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~ + $ECHO EXPORTS >> $output_objdir/$libname.def~ + prefix_cmds="$SED"~ + if test EXPORTS = "`$SED 1q $export_symbols`"; then + prefix_cmds="$prefix_cmds -e 1d"; + fi~ + prefix_cmds="$prefix_cmds -e \"s/^\(.*\)$/_\1/g\""~ + cat $export_symbols | $prefix_cmds >> $output_objdir/$libname.def~ + $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~ + emximp -o $lib $output_objdir/$libname.def' + _LT_TAGVAR(old_archive_From_new_cmds, $1)='emximp -o $output_objdir/${libname}_dll.a $output_objdir/$libname.def' + _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes + ;; + + dgux*) + case $cc_basename in + ec++*) + # FIXME: insert proper C++ library support + _LT_TAGVAR(ld_shlibs, $1)=no + ;; + ghcx*) + # Green Hills C++ Compiler + # FIXME: insert proper C++ library support + _LT_TAGVAR(ld_shlibs, $1)=no + ;; + *) + # FIXME: insert proper C++ library support + _LT_TAGVAR(ld_shlibs, $1)=no + ;; + esac + ;; + + freebsd2.*) + # C++ shared libraries reported to be fairly broken before + # switch to ELF + _LT_TAGVAR(ld_shlibs, $1)=no + ;; + + freebsd-elf*) + _LT_TAGVAR(archive_cmds_need_lc, $1)=no + ;; + + freebsd* | dragonfly*) + # FreeBSD 3 and later use GNU C++ and GNU ld with standard ELF + # conventions + _LT_TAGVAR(ld_shlibs, $1)=yes + ;; + + haiku*) + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' + _LT_TAGVAR(link_all_deplibs, $1)=yes + ;; + + hpux9*) + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl+b $wl$libdir' + _LT_TAGVAR(hardcode_libdir_separator, $1)=: + _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-E' + _LT_TAGVAR(hardcode_direct, $1)=yes + _LT_TAGVAR(hardcode_minus_L, $1)=yes # Not in the search PATH, + # but as the default + # location of the library. + + case $cc_basename in + CC*) + # FIXME: insert proper C++ library support + _LT_TAGVAR(ld_shlibs, $1)=no + ;; + aCC*) + _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$CC -b $wl+b $wl$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test "x$output_objdir/$soname" = "x$lib" || mv $output_objdir/$soname $lib' + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + # + # There doesn't appear to be a way to prevent this compiler from + # explicitly linking system object files so we need to strip them + # from the output so that they don't get included in the library + # dependencies. + output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | $EGREP "\-L"`; list= ; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"' + ;; + *) + if test yes = "$GXX"; then + _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$CC -shared -nostdlib $pic_flag $wl+b $wl$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test "x$output_objdir/$soname" = "x$lib" || mv $output_objdir/$soname $lib' + else + # FIXME: insert proper C++ library support + _LT_TAGVAR(ld_shlibs, $1)=no + fi + ;; + esac + ;; + + hpux10*|hpux11*) + if test no = "$with_gnu_ld"; then + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl+b $wl$libdir' + _LT_TAGVAR(hardcode_libdir_separator, $1)=: + + case $host_cpu in + hppa*64*|ia64*) + ;; + *) + _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-E' + ;; + esac + fi + case $host_cpu in + hppa*64*|ia64*) + _LT_TAGVAR(hardcode_direct, $1)=no + _LT_TAGVAR(hardcode_shlibpath_var, $1)=no + ;; + *) + _LT_TAGVAR(hardcode_direct, $1)=yes + _LT_TAGVAR(hardcode_direct_absolute, $1)=yes + _LT_TAGVAR(hardcode_minus_L, $1)=yes # Not in the search PATH, + # but as the default + # location of the library. + ;; + esac + + case $cc_basename in + CC*) + # FIXME: insert proper C++ library support + _LT_TAGVAR(ld_shlibs, $1)=no + ;; + aCC*) + case $host_cpu in + hppa*64*) + _LT_TAGVAR(archive_cmds, $1)='$CC -b $wl+h $wl$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' + ;; + ia64*) + _LT_TAGVAR(archive_cmds, $1)='$CC -b $wl+h $wl$soname $wl+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' + ;; + *) + _LT_TAGVAR(archive_cmds, $1)='$CC -b $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' + ;; + esac + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + # + # There doesn't appear to be a way to prevent this compiler from + # explicitly linking system object files so we need to strip them + # from the output so that they don't get included in the library + # dependencies. + output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | $GREP "\-L"`; list= ; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"' + ;; + *) + if test yes = "$GXX"; then + if test no = "$with_gnu_ld"; then + case $host_cpu in + hppa*64*) + _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib -fPIC $wl+h $wl$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' + ;; + ia64*) + _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $pic_flag $wl+h $wl$soname $wl+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' + ;; + *) + _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $pic_flag $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' + ;; + esac + fi + else + # FIXME: insert proper C++ library support + _LT_TAGVAR(ld_shlibs, $1)=no + fi + ;; + esac + ;; + + interix[[3-9]]*) + _LT_TAGVAR(hardcode_direct, $1)=no + _LT_TAGVAR(hardcode_shlibpath_var, $1)=no + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath,$libdir' + _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-E' + # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc. + # Instead, shared libraries are loaded at an image base (0x10000000 by + # default) and relocated if they conflict, which is a slow very memory + # consuming and fragmenting process. To avoid this, we pick a random, + # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link + # time. Moving up from 0x10000000 also allows more sbrk(2) space. + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-h,$soname $wl--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' + _LT_TAGVAR(archive_expsym_cmds, $1)='sed "s|^|_|" $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-h,$soname $wl--retain-symbols-file,$output_objdir/$soname.expsym $wl--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' + ;; + irix5* | irix6*) + case $cc_basename in + CC*) + # SGI C++ + _LT_TAGVAR(archive_cmds, $1)='$CC -shared -all -multigot $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib' + + # Archives containing C++ object files must be created using + # "CC -ar", where "CC" is the IRIX C++ compiler. This is + # necessary to make sure instantiated templates are included + # in the archive. + _LT_TAGVAR(old_archive_cmds, $1)='$CC -ar -WR,-u -o $oldlib $oldobjs' + ;; + *) + if test yes = "$GXX"; then + if test no = "$with_gnu_ld"; then + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib' + else + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` -o $lib' + fi + fi + _LT_TAGVAR(link_all_deplibs, $1)=yes + ;; + esac + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir' + _LT_TAGVAR(hardcode_libdir_separator, $1)=: + _LT_TAGVAR(inherit_rpath, $1)=yes + ;; + + linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*) + case $cc_basename in + KCC*) + # Kuck and Associates, Inc. (KAI) C++ Compiler + + # KCC will only create a shared library if the output file + # ends with ".so" (or ".sl" for HP-UX), so rename the library + # to its proper name (with version) after linking. + _LT_TAGVAR(archive_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\$tempext\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib' + _LT_TAGVAR(archive_expsym_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\$tempext\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib $wl-retain-symbols-file,$export_symbols; mv \$templib $lib' + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + # + # There doesn't appear to be a way to prevent this compiler from + # explicitly linking system object files so we need to strip them + # from the output so that they don't get included in the library + # dependencies. + output_verbose_link_cmd='templist=`$CC $CFLAGS -v conftest.$objext -o libconftest$shared_ext 2>&1 | $GREP "ld"`; rm -f libconftest$shared_ext; list= ; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"' + + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath,$libdir' + _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl--export-dynamic' + + # Archives containing C++ object files must be created using + # "CC -Bstatic", where "CC" is the KAI C++ compiler. + _LT_TAGVAR(old_archive_cmds, $1)='$CC -Bstatic -o $oldlib $oldobjs' + ;; + icpc* | ecpc* ) + # Intel C++ + with_gnu_ld=yes + # version 8.0 and above of icpc choke on multiply defined symbols + # if we add $predep_objects and $postdep_objects, however 7.1 and + # earlier do not add the objects themselves. + case `$CC -V 2>&1` in + *"Version 7."*) + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib' + _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' + ;; + *) # Version 8.0 or newer + tmp_idyn= + case $host_cpu in + ia64*) tmp_idyn=' -i_dynamic';; + esac + _LT_TAGVAR(archive_cmds, $1)='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' + _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' + ;; + esac + _LT_TAGVAR(archive_cmds_need_lc, $1)=no + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath,$libdir' + _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl--export-dynamic' + _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl--whole-archive$convenience $wl--no-whole-archive' + ;; + pgCC* | pgcpp*) + # Portland Group C++ compiler + case `$CC -V` in + *pgCC\ [[1-5]].* | *pgcpp\ [[1-5]].*) + _LT_TAGVAR(prelink_cmds, $1)='tpldir=Template.dir~ + rm -rf $tpldir~ + $CC --prelink_objects --instantiation_dir $tpldir $objs $libobjs $compile_deplibs~ + compile_command="$compile_command `find $tpldir -name \*.o | sort | $NL2SP`"' + _LT_TAGVAR(old_archive_cmds, $1)='tpldir=Template.dir~ + rm -rf $tpldir~ + $CC --prelink_objects --instantiation_dir $tpldir $oldobjs$old_deplibs~ + $AR $AR_FLAGS $oldlib$oldobjs$old_deplibs `find $tpldir -name \*.o | sort | $NL2SP`~ + $RANLIB $oldlib' + _LT_TAGVAR(archive_cmds, $1)='tpldir=Template.dir~ + rm -rf $tpldir~ + $CC --prelink_objects --instantiation_dir $tpldir $predep_objects $libobjs $deplibs $convenience $postdep_objects~ + $CC -shared $pic_flag $predep_objects $libobjs $deplibs `find $tpldir -name \*.o | sort | $NL2SP` $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib' + _LT_TAGVAR(archive_expsym_cmds, $1)='tpldir=Template.dir~ + rm -rf $tpldir~ + $CC --prelink_objects --instantiation_dir $tpldir $predep_objects $libobjs $deplibs $convenience $postdep_objects~ + $CC -shared $pic_flag $predep_objects $libobjs $deplibs `find $tpldir -name \*.o | sort | $NL2SP` $postdep_objects $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' + ;; + *) # Version 6 and above use weak symbols + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib' + _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' + ;; + esac + + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl--rpath $wl$libdir' + _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl--export-dynamic' + _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive' + ;; + cxx*) + # Compaq C++ + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib' + _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib $wl-retain-symbols-file $wl$export_symbols' + + runpath_var=LD_RUN_PATH + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir' + _LT_TAGVAR(hardcode_libdir_separator, $1)=: + + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + # + # There doesn't appear to be a way to prevent this compiler from + # explicitly linking system object files so we need to strip them + # from the output so that they don't get included in the library + # dependencies. + output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP "ld"`; templist=`func_echo_all "$templist" | $SED "s/\(^.*ld.*\)\( .*ld .*$\)/\1/"`; list= ; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "X$list" | $Xsed' + ;; + xl* | mpixl* | bgxl*) + # IBM XL 8.0 on PPC, with GNU ld + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir' + _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl--export-dynamic' + _LT_TAGVAR(archive_cmds, $1)='$CC -qmkshrobj $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' + if test yes = "$supports_anon_versioning"; then + _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -qmkshrobj $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' + fi + ;; + *) + case `$CC -V 2>&1 | sed 5q` in + *Sun\ C*) + # Sun C++ 5.9 + _LT_TAGVAR(no_undefined_flag, $1)=' -zdefs' + _LT_TAGVAR(archive_cmds, $1)='$CC -G$allow_undefined_flag -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' + _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G$allow_undefined_flag -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-retain-symbols-file $wl$export_symbols' + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' + _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive' + _LT_TAGVAR(compiler_needs_object, $1)=yes + + # Not sure whether something based on + # $CC $CFLAGS -v conftest.$objext -o libconftest$shared_ext 2>&1 + # would be better. + output_verbose_link_cmd='func_echo_all' + + # Archives containing C++ object files must be created using + # "CC -xar", where "CC" is the Sun C++ compiler. This is + # necessary to make sure instantiated templates are included + # in the archive. + _LT_TAGVAR(old_archive_cmds, $1)='$CC -xar -o $oldlib $oldobjs' + ;; + esac + ;; + esac + ;; + + lynxos*) + # FIXME: insert proper C++ library support + _LT_TAGVAR(ld_shlibs, $1)=no + ;; + + m88k*) + # FIXME: insert proper C++ library support + _LT_TAGVAR(ld_shlibs, $1)=no + ;; + + mvs*) + case $cc_basename in + cxx*) + # FIXME: insert proper C++ library support + _LT_TAGVAR(ld_shlibs, $1)=no + ;; + *) + # FIXME: insert proper C++ library support + _LT_TAGVAR(ld_shlibs, $1)=no + ;; + esac + ;; + + netbsd*) + if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then + _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $predep_objects $libobjs $deplibs $postdep_objects $linker_flags' + wlarc= + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' + _LT_TAGVAR(hardcode_direct, $1)=yes + _LT_TAGVAR(hardcode_shlibpath_var, $1)=no + fi + # Workaround some broken pre-1.5 toolchains + output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP conftest.$objext | $SED -e "s:-lgcc -lc -lgcc::"' + ;; + + *nto* | *qnx*) + _LT_TAGVAR(ld_shlibs, $1)=yes + ;; + + openbsd* | bitrig*) + if test -f /usr/libexec/ld.so; then + _LT_TAGVAR(hardcode_direct, $1)=yes + _LT_TAGVAR(hardcode_shlibpath_var, $1)=no + _LT_TAGVAR(hardcode_direct_absolute, $1)=yes + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib' + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath,$libdir' + if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`"; then + _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-retain-symbols-file,$export_symbols -o $lib' + _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-E' + _LT_TAGVAR(whole_archive_flag_spec, $1)=$wlarc'--whole-archive$convenience '$wlarc'--no-whole-archive' + fi + output_verbose_link_cmd=func_echo_all + else + _LT_TAGVAR(ld_shlibs, $1)=no + fi + ;; + + osf3* | osf4* | osf5*) + case $cc_basename in + KCC*) + # Kuck and Associates, Inc. (KAI) C++ Compiler + + # KCC will only create a shared library if the output file + # ends with ".so" (or ".sl" for HP-UX), so rename the library + # to its proper name (with version) after linking. + _LT_TAGVAR(archive_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo "$lib" | $SED -e "s/\$tempext\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib' + + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath,$libdir' + _LT_TAGVAR(hardcode_libdir_separator, $1)=: + + # Archives containing C++ object files must be created using + # the KAI C++ compiler. + case $host in + osf3*) _LT_TAGVAR(old_archive_cmds, $1)='$CC -Bstatic -o $oldlib $oldobjs' ;; + *) _LT_TAGVAR(old_archive_cmds, $1)='$CC -o $oldlib $oldobjs' ;; + esac + ;; + RCC*) + # Rational C++ 2.4.1 + # FIXME: insert proper C++ library support + _LT_TAGVAR(ld_shlibs, $1)=no + ;; + cxx*) + case $host in + osf3*) + _LT_TAGVAR(allow_undefined_flag, $1)=' $wl-expect_unresolved $wl\*' + _LT_TAGVAR(archive_cmds, $1)='$CC -shared$allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $soname `test -n "$verstring" && func_echo_all "$wl-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib' + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir' + ;; + *) + _LT_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*' + _LT_TAGVAR(archive_cmds, $1)='$CC -shared$allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib' + _LT_TAGVAR(archive_expsym_cmds, $1)='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done~ + echo "-hidden">> $lib.exp~ + $CC -shared$allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname $wl-input $wl$lib.exp `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib~ + $RM $lib.exp' + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir' + ;; + esac + + _LT_TAGVAR(hardcode_libdir_separator, $1)=: + + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + # + # There doesn't appear to be a way to prevent this compiler from + # explicitly linking system object files so we need to strip them + # from the output so that they don't get included in the library + # dependencies. + output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP "ld" | $GREP -v "ld:"`; templist=`func_echo_all "$templist" | $SED "s/\(^.*ld.*\)\( .*ld.*$\)/\1/"`; list= ; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"' + ;; + *) + if test yes,no = "$GXX,$with_gnu_ld"; then + _LT_TAGVAR(allow_undefined_flag, $1)=' $wl-expect_unresolved $wl\*' + case $host in + osf3*) + _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib' + ;; + *) + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib $allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-msym $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib' + ;; + esac + + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir' + _LT_TAGVAR(hardcode_libdir_separator, $1)=: + + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"' + + else + # FIXME: insert proper C++ library support + _LT_TAGVAR(ld_shlibs, $1)=no + fi + ;; + esac + ;; + + psos*) + # FIXME: insert proper C++ library support + _LT_TAGVAR(ld_shlibs, $1)=no + ;; + + sunos4*) + case $cc_basename in + CC*) + # Sun C++ 4.x + # FIXME: insert proper C++ library support + _LT_TAGVAR(ld_shlibs, $1)=no + ;; + lcc*) + # Lucid + # FIXME: insert proper C++ library support + _LT_TAGVAR(ld_shlibs, $1)=no + ;; + *) + # FIXME: insert proper C++ library support + _LT_TAGVAR(ld_shlibs, $1)=no + ;; + esac + ;; + + solaris*) + case $cc_basename in + CC* | sunCC*) + # Sun C++ 4.2, 5.x and Centerline C++ + _LT_TAGVAR(archive_cmds_need_lc,$1)=yes + _LT_TAGVAR(no_undefined_flag, $1)=' -zdefs' + _LT_TAGVAR(archive_cmds, $1)='$CC -G$allow_undefined_flag -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' + _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ + $CC -G$allow_undefined_flag $wl-M $wl$lib.exp -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp' + + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' + _LT_TAGVAR(hardcode_shlibpath_var, $1)=no + case $host_os in + solaris2.[[0-5]] | solaris2.[[0-5]].*) ;; + *) + # The compiler driver will combine and reorder linker options, + # but understands '-z linker_flag'. + # Supported since Solaris 2.6 (maybe 2.5.1?) + _LT_TAGVAR(whole_archive_flag_spec, $1)='-z allextract$convenience -z defaultextract' + ;; + esac + _LT_TAGVAR(link_all_deplibs, $1)=yes + + output_verbose_link_cmd='func_echo_all' + + # Archives containing C++ object files must be created using + # "CC -xar", where "CC" is the Sun C++ compiler. This is + # necessary to make sure instantiated templates are included + # in the archive. + _LT_TAGVAR(old_archive_cmds, $1)='$CC -xar -o $oldlib $oldobjs' + ;; + gcx*) + # Green Hills C++ Compiler + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-h $wl$soname -o $lib' + + # The C++ compiler must be used to create the archive. + _LT_TAGVAR(old_archive_cmds, $1)='$CC $LDFLAGS -archive -o $oldlib $oldobjs' + ;; + *) + # GNU C++ compiler with Solaris linker + if test yes,no = "$GXX,$with_gnu_ld"; then + _LT_TAGVAR(no_undefined_flag, $1)=' $wl-z ${wl}defs' + if $CC --version | $GREP -v '^2\.7' > /dev/null; then + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-h $wl$soname -o $lib' + _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ + $CC -shared $pic_flag -nostdlib $wl-M $wl$lib.exp $wl-h $wl$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp' + + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"' + else + # g++ 2.7 appears to require '-G' NOT '-shared' on this + # platform. + _LT_TAGVAR(archive_cmds, $1)='$CC -G -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-h $wl$soname -o $lib' + _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ + $CC -G -nostdlib $wl-M $wl$lib.exp $wl-h $wl$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp' + + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + output_verbose_link_cmd='$CC -G $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"' + fi + + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-R $wl$libdir' + case $host_os in + solaris2.[[0-5]] | solaris2.[[0-5]].*) ;; + *) + _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl-z ${wl}allextract$convenience $wl-z ${wl}defaultextract' + ;; + esac + fi + ;; + esac + ;; + + sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[[01]].[[10]]* | unixware7* | sco3.2v5.0.[[024]]*) + _LT_TAGVAR(no_undefined_flag, $1)='$wl-z,text' + _LT_TAGVAR(archive_cmds_need_lc, $1)=no + _LT_TAGVAR(hardcode_shlibpath_var, $1)=no + runpath_var='LD_RUN_PATH' + + case $cc_basename in + CC*) + _LT_TAGVAR(archive_cmds, $1)='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' + _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' + ;; + *) + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' + _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' + ;; + esac + ;; + + sysv5* | sco3.2v5* | sco5v6*) + # Note: We CANNOT use -z defs as we might desire, because we do not + # link with -lc, and that would cause any symbols used from libc to + # always be unresolved, which means just about no library would + # ever link correctly. If we're not using GNU ld we use -z text + # though, which does catch some bad symbols but isn't as heavy-handed + # as -z defs. + _LT_TAGVAR(no_undefined_flag, $1)='$wl-z,text' + _LT_TAGVAR(allow_undefined_flag, $1)='$wl-z,nodefs' + _LT_TAGVAR(archive_cmds_need_lc, $1)=no + _LT_TAGVAR(hardcode_shlibpath_var, $1)=no + _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-R,$libdir' + _LT_TAGVAR(hardcode_libdir_separator, $1)=':' + _LT_TAGVAR(link_all_deplibs, $1)=yes + _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-Bexport' + runpath_var='LD_RUN_PATH' + + case $cc_basename in + CC*) + _LT_TAGVAR(archive_cmds, $1)='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' + _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' + _LT_TAGVAR(old_archive_cmds, $1)='$CC -Tprelink_objects $oldobjs~ + '"$_LT_TAGVAR(old_archive_cmds, $1)" + _LT_TAGVAR(reload_cmds, $1)='$CC -Tprelink_objects $reload_objs~ + '"$_LT_TAGVAR(reload_cmds, $1)" + ;; + *) + _LT_TAGVAR(archive_cmds, $1)='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' + _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' + ;; + esac + ;; + + tandem*) + case $cc_basename in + NCC*) + # NonStop-UX NCC 3.20 + # FIXME: insert proper C++ library support + _LT_TAGVAR(ld_shlibs, $1)=no + ;; + *) + # FIXME: insert proper C++ library support + _LT_TAGVAR(ld_shlibs, $1)=no + ;; + esac + ;; + + vxworks*) + # FIXME: insert proper C++ library support + _LT_TAGVAR(ld_shlibs, $1)=no + ;; + + *) + # FIXME: insert proper C++ library support + _LT_TAGVAR(ld_shlibs, $1)=no + ;; + esac + + AC_MSG_RESULT([$_LT_TAGVAR(ld_shlibs, $1)]) + test no = "$_LT_TAGVAR(ld_shlibs, $1)" && can_build_shared=no + + _LT_TAGVAR(GCC, $1)=$GXX + _LT_TAGVAR(LD, $1)=$LD + + ## CAVEAT EMPTOR: + ## There is no encapsulation within the following macros, do not change + ## the running order or otherwise move them around unless you know exactly + ## what you are doing... + _LT_SYS_HIDDEN_LIBDEPS($1) + _LT_COMPILER_PIC($1) + _LT_COMPILER_C_O($1) + _LT_COMPILER_FILE_LOCKS($1) + _LT_LINKER_SHLIBS($1) + _LT_SYS_DYNAMIC_LINKER($1) + _LT_LINKER_HARDCODE_LIBPATH($1) + + _LT_CONFIG($1) + fi # test -n "$compiler" + + CC=$lt_save_CC + CFLAGS=$lt_save_CFLAGS + LDCXX=$LD + LD=$lt_save_LD + GCC=$lt_save_GCC + with_gnu_ld=$lt_save_with_gnu_ld + lt_cv_path_LDCXX=$lt_cv_path_LD + lt_cv_path_LD=$lt_save_path_LD + lt_cv_prog_gnu_ldcxx=$lt_cv_prog_gnu_ld + lt_cv_prog_gnu_ld=$lt_save_with_gnu_ld +fi # test yes != "$_lt_caught_CXX_error" + +AC_LANG_POP +])# _LT_LANG_CXX_CONFIG + + +# _LT_FUNC_STRIPNAME_CNF +# ---------------------- +# func_stripname_cnf prefix suffix name +# strip PREFIX and SUFFIX off of NAME. +# PREFIX and SUFFIX must not contain globbing or regex special +# characters, hashes, percent signs, but SUFFIX may contain a leading +# dot (in which case that matches only a dot). +# +# This function is identical to the (non-XSI) version of func_stripname, +# except this one can be used by m4 code that may be executed by configure, +# rather than the libtool script. +m4_defun([_LT_FUNC_STRIPNAME_CNF],[dnl +AC_REQUIRE([_LT_DECL_SED]) +AC_REQUIRE([_LT_PROG_ECHO_BACKSLASH]) +func_stripname_cnf () +{ + case @S|@2 in + .*) func_stripname_result=`$ECHO "@S|@3" | $SED "s%^@S|@1%%; s%\\\\@S|@2\$%%"`;; + *) func_stripname_result=`$ECHO "@S|@3" | $SED "s%^@S|@1%%; s%@S|@2\$%%"`;; + esac +} # func_stripname_cnf +])# _LT_FUNC_STRIPNAME_CNF + + +# _LT_SYS_HIDDEN_LIBDEPS([TAGNAME]) +# --------------------------------- +# Figure out "hidden" library dependencies from verbose +# compiler output when linking a shared library. +# Parse the compiler output and extract the necessary +# objects, libraries and library flags. +m4_defun([_LT_SYS_HIDDEN_LIBDEPS], +[m4_require([_LT_FILEUTILS_DEFAULTS])dnl +AC_REQUIRE([_LT_FUNC_STRIPNAME_CNF])dnl +# Dependencies to place before and after the object being linked: +_LT_TAGVAR(predep_objects, $1)= +_LT_TAGVAR(postdep_objects, $1)= +_LT_TAGVAR(predeps, $1)= +_LT_TAGVAR(postdeps, $1)= +_LT_TAGVAR(compiler_lib_search_path, $1)= + +dnl we can't use the lt_simple_compile_test_code here, +dnl because it contains code intended for an executable, +dnl not a library. It's possible we should let each +dnl tag define a new lt_????_link_test_code variable, +dnl but it's only used here... +m4_if([$1], [], [cat > conftest.$ac_ext <<_LT_EOF +int a; +void foo (void) { a = 0; } +_LT_EOF +], [$1], [CXX], [cat > conftest.$ac_ext <<_LT_EOF +class Foo +{ +public: + Foo (void) { a = 0; } +private: + int a; +}; +_LT_EOF +], [$1], [F77], [cat > conftest.$ac_ext <<_LT_EOF + subroutine foo + implicit none + integer*4 a + a=0 + return + end +_LT_EOF +], [$1], [FC], [cat > conftest.$ac_ext <<_LT_EOF + subroutine foo + implicit none + integer a + a=0 + return + end +_LT_EOF +], [$1], [GCJ], [cat > conftest.$ac_ext <<_LT_EOF +public class foo { + private int a; + public void bar (void) { + a = 0; + } +}; +_LT_EOF +], [$1], [GO], [cat > conftest.$ac_ext <<_LT_EOF +package foo +func foo() { +} +_LT_EOF +]) + +_lt_libdeps_save_CFLAGS=$CFLAGS +case "$CC $CFLAGS " in #( +*\ -flto*\ *) CFLAGS="$CFLAGS -fno-lto" ;; +*\ -fwhopr*\ *) CFLAGS="$CFLAGS -fno-whopr" ;; +*\ -fuse-linker-plugin*\ *) CFLAGS="$CFLAGS -fno-use-linker-plugin" ;; +esac + +dnl Parse the compiler output and extract the necessary +dnl objects, libraries and library flags. +if AC_TRY_EVAL(ac_compile); then + # Parse the compiler output and extract the necessary + # objects, libraries and library flags. + + # Sentinel used to keep track of whether or not we are before + # the conftest object file. + pre_test_object_deps_done=no + + for p in `eval "$output_verbose_link_cmd"`; do + case $prev$p in + + -L* | -R* | -l*) + # Some compilers place space between "-{L,R}" and the path. + # Remove the space. + if test x-L = "$p" || + test x-R = "$p"; then + prev=$p + continue + fi + + # Expand the sysroot to ease extracting the directories later. + if test -z "$prev"; then + case $p in + -L*) func_stripname_cnf '-L' '' "$p"; prev=-L; p=$func_stripname_result ;; + -R*) func_stripname_cnf '-R' '' "$p"; prev=-R; p=$func_stripname_result ;; + -l*) func_stripname_cnf '-l' '' "$p"; prev=-l; p=$func_stripname_result ;; + esac + fi + case $p in + =*) func_stripname_cnf '=' '' "$p"; p=$lt_sysroot$func_stripname_result ;; + esac + if test no = "$pre_test_object_deps_done"; then + case $prev in + -L | -R) + # Internal compiler library paths should come after those + # provided the user. The postdeps already come after the + # user supplied libs so there is no need to process them. + if test -z "$_LT_TAGVAR(compiler_lib_search_path, $1)"; then + _LT_TAGVAR(compiler_lib_search_path, $1)=$prev$p + else + _LT_TAGVAR(compiler_lib_search_path, $1)="${_LT_TAGVAR(compiler_lib_search_path, $1)} $prev$p" + fi + ;; + # The "-l" case would never come before the object being + # linked, so don't bother handling this case. + esac + else + if test -z "$_LT_TAGVAR(postdeps, $1)"; then + _LT_TAGVAR(postdeps, $1)=$prev$p + else + _LT_TAGVAR(postdeps, $1)="${_LT_TAGVAR(postdeps, $1)} $prev$p" + fi + fi + prev= + ;; + + *.lto.$objext) ;; # Ignore GCC LTO objects + *.$objext) + # This assumes that the test object file only shows up + # once in the compiler output. + if test "$p" = "conftest.$objext"; then + pre_test_object_deps_done=yes + continue + fi + + if test no = "$pre_test_object_deps_done"; then + if test -z "$_LT_TAGVAR(predep_objects, $1)"; then + _LT_TAGVAR(predep_objects, $1)=$p + else + _LT_TAGVAR(predep_objects, $1)="$_LT_TAGVAR(predep_objects, $1) $p" + fi + else + if test -z "$_LT_TAGVAR(postdep_objects, $1)"; then + _LT_TAGVAR(postdep_objects, $1)=$p + else + _LT_TAGVAR(postdep_objects, $1)="$_LT_TAGVAR(postdep_objects, $1) $p" + fi + fi + ;; + + *) ;; # Ignore the rest. + + esac + done + + # Clean up. + rm -f a.out a.exe +else + echo "libtool.m4: error: problem compiling $1 test program" +fi + +$RM -f confest.$objext +CFLAGS=$_lt_libdeps_save_CFLAGS + +# PORTME: override above test on systems where it is broken +m4_if([$1], [CXX], +[case $host_os in +interix[[3-9]]*) + # Interix 3.5 installs completely hosed .la files for C++, so rather than + # hack all around it, let's just trust "g++" to DTRT. + _LT_TAGVAR(predep_objects,$1)= + _LT_TAGVAR(postdep_objects,$1)= + _LT_TAGVAR(postdeps,$1)= + ;; +esac +]) + +case " $_LT_TAGVAR(postdeps, $1) " in +*" -lc "*) _LT_TAGVAR(archive_cmds_need_lc, $1)=no ;; +esac + _LT_TAGVAR(compiler_lib_search_dirs, $1)= +if test -n "${_LT_TAGVAR(compiler_lib_search_path, $1)}"; then + _LT_TAGVAR(compiler_lib_search_dirs, $1)=`echo " ${_LT_TAGVAR(compiler_lib_search_path, $1)}" | $SED -e 's! -L! !g' -e 's!^ !!'` +fi +_LT_TAGDECL([], [compiler_lib_search_dirs], [1], + [The directories searched by this compiler when creating a shared library]) +_LT_TAGDECL([], [predep_objects], [1], + [Dependencies to place before and after the objects being linked to + create a shared library]) +_LT_TAGDECL([], [postdep_objects], [1]) +_LT_TAGDECL([], [predeps], [1]) +_LT_TAGDECL([], [postdeps], [1]) +_LT_TAGDECL([], [compiler_lib_search_path], [1], + [The library search path used internally by the compiler when linking + a shared library]) +])# _LT_SYS_HIDDEN_LIBDEPS + + +# _LT_LANG_F77_CONFIG([TAG]) +# -------------------------- +# Ensure that the configuration variables for a Fortran 77 compiler are +# suitably defined. These variables are subsequently used by _LT_CONFIG +# to write the compiler configuration to 'libtool'. +m4_defun([_LT_LANG_F77_CONFIG], +[AC_LANG_PUSH(Fortran 77) +if test -z "$F77" || test no = "$F77"; then + _lt_disable_F77=yes +fi + +_LT_TAGVAR(archive_cmds_need_lc, $1)=no +_LT_TAGVAR(allow_undefined_flag, $1)= +_LT_TAGVAR(always_export_symbols, $1)=no +_LT_TAGVAR(archive_expsym_cmds, $1)= +_LT_TAGVAR(export_dynamic_flag_spec, $1)= +_LT_TAGVAR(hardcode_direct, $1)=no +_LT_TAGVAR(hardcode_direct_absolute, $1)=no +_LT_TAGVAR(hardcode_libdir_flag_spec, $1)= +_LT_TAGVAR(hardcode_libdir_separator, $1)= +_LT_TAGVAR(hardcode_minus_L, $1)=no +_LT_TAGVAR(hardcode_automatic, $1)=no +_LT_TAGVAR(inherit_rpath, $1)=no +_LT_TAGVAR(module_cmds, $1)= +_LT_TAGVAR(module_expsym_cmds, $1)= +_LT_TAGVAR(link_all_deplibs, $1)=unknown +_LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds +_LT_TAGVAR(reload_flag, $1)=$reload_flag +_LT_TAGVAR(reload_cmds, $1)=$reload_cmds +_LT_TAGVAR(no_undefined_flag, $1)= +_LT_TAGVAR(whole_archive_flag_spec, $1)= +_LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no + +# Source file extension for f77 test sources. +ac_ext=f + +# Object file extension for compiled f77 test sources. +objext=o +_LT_TAGVAR(objext, $1)=$objext + +# No sense in running all these tests if we already determined that +# the F77 compiler isn't working. Some variables (like enable_shared) +# are currently assumed to apply to all compilers on this platform, +# and will be corrupted by setting them based on a non-working compiler. +if test yes != "$_lt_disable_F77"; then + # Code to be used in simple compile tests + lt_simple_compile_test_code="\ + subroutine t + return + end +" + + # Code to be used in simple link tests + lt_simple_link_test_code="\ + program t + end +" + + # ltmain only uses $CC for tagged configurations so make sure $CC is set. + _LT_TAG_COMPILER + + # save warnings/boilerplate of simple test code + _LT_COMPILER_BOILERPLATE + _LT_LINKER_BOILERPLATE + + # Allow CC to be a program name with arguments. + lt_save_CC=$CC + lt_save_GCC=$GCC + lt_save_CFLAGS=$CFLAGS + CC=${F77-"f77"} + CFLAGS=$FFLAGS + compiler=$CC + _LT_TAGVAR(compiler, $1)=$CC + _LT_CC_BASENAME([$compiler]) + GCC=$G77 + if test -n "$compiler"; then + AC_MSG_CHECKING([if libtool supports shared libraries]) + AC_MSG_RESULT([$can_build_shared]) + + AC_MSG_CHECKING([whether to build shared libraries]) + test no = "$can_build_shared" && enable_shared=no + + # On AIX, shared libraries and static libraries use the same namespace, and + # are all built from PIC. + case $host_os in + aix3*) + test yes = "$enable_shared" && enable_static=no + if test -n "$RANLIB"; then + archive_cmds="$archive_cmds~\$RANLIB \$lib" + postinstall_cmds='$RANLIB $lib' + fi + ;; + aix[[4-9]]*) + if test ia64 != "$host_cpu"; then + case $enable_shared,$with_aix_soname,$aix_use_runtimelinking in + yes,aix,yes) ;; # shared object as lib.so file only + yes,svr4,*) ;; # shared object as lib.so archive member only + yes,*) enable_static=no ;; # shared object in lib.a archive as well + esac + fi + ;; + esac + AC_MSG_RESULT([$enable_shared]) + + AC_MSG_CHECKING([whether to build static libraries]) + # Make sure either enable_shared or enable_static is yes. + test yes = "$enable_shared" || enable_static=yes + AC_MSG_RESULT([$enable_static]) + + _LT_TAGVAR(GCC, $1)=$G77 + _LT_TAGVAR(LD, $1)=$LD + + ## CAVEAT EMPTOR: + ## There is no encapsulation within the following macros, do not change + ## the running order or otherwise move them around unless you know exactly + ## what you are doing... + _LT_COMPILER_PIC($1) + _LT_COMPILER_C_O($1) + _LT_COMPILER_FILE_LOCKS($1) + _LT_LINKER_SHLIBS($1) + _LT_SYS_DYNAMIC_LINKER($1) + _LT_LINKER_HARDCODE_LIBPATH($1) + + _LT_CONFIG($1) + fi # test -n "$compiler" + + GCC=$lt_save_GCC + CC=$lt_save_CC + CFLAGS=$lt_save_CFLAGS +fi # test yes != "$_lt_disable_F77" + +AC_LANG_POP +])# _LT_LANG_F77_CONFIG + + +# _LT_LANG_FC_CONFIG([TAG]) +# ------------------------- +# Ensure that the configuration variables for a Fortran compiler are +# suitably defined. These variables are subsequently used by _LT_CONFIG +# to write the compiler configuration to 'libtool'. +m4_defun([_LT_LANG_FC_CONFIG], +[AC_LANG_PUSH(Fortran) + +if test -z "$FC" || test no = "$FC"; then + _lt_disable_FC=yes +fi + +_LT_TAGVAR(archive_cmds_need_lc, $1)=no +_LT_TAGVAR(allow_undefined_flag, $1)= +_LT_TAGVAR(always_export_symbols, $1)=no +_LT_TAGVAR(archive_expsym_cmds, $1)= +_LT_TAGVAR(export_dynamic_flag_spec, $1)= +_LT_TAGVAR(hardcode_direct, $1)=no +_LT_TAGVAR(hardcode_direct_absolute, $1)=no +_LT_TAGVAR(hardcode_libdir_flag_spec, $1)= +_LT_TAGVAR(hardcode_libdir_separator, $1)= +_LT_TAGVAR(hardcode_minus_L, $1)=no +_LT_TAGVAR(hardcode_automatic, $1)=no +_LT_TAGVAR(inherit_rpath, $1)=no +_LT_TAGVAR(module_cmds, $1)= +_LT_TAGVAR(module_expsym_cmds, $1)= +_LT_TAGVAR(link_all_deplibs, $1)=unknown +_LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds +_LT_TAGVAR(reload_flag, $1)=$reload_flag +_LT_TAGVAR(reload_cmds, $1)=$reload_cmds +_LT_TAGVAR(no_undefined_flag, $1)= +_LT_TAGVAR(whole_archive_flag_spec, $1)= +_LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no + +# Source file extension for fc test sources. +ac_ext=${ac_fc_srcext-f} + +# Object file extension for compiled fc test sources. +objext=o +_LT_TAGVAR(objext, $1)=$objext + +# No sense in running all these tests if we already determined that +# the FC compiler isn't working. Some variables (like enable_shared) +# are currently assumed to apply to all compilers on this platform, +# and will be corrupted by setting them based on a non-working compiler. +if test yes != "$_lt_disable_FC"; then + # Code to be used in simple compile tests + lt_simple_compile_test_code="\ + subroutine t + return + end +" + + # Code to be used in simple link tests + lt_simple_link_test_code="\ + program t + end +" + + # ltmain only uses $CC for tagged configurations so make sure $CC is set. + _LT_TAG_COMPILER + + # save warnings/boilerplate of simple test code + _LT_COMPILER_BOILERPLATE + _LT_LINKER_BOILERPLATE + + # Allow CC to be a program name with arguments. + lt_save_CC=$CC + lt_save_GCC=$GCC + lt_save_CFLAGS=$CFLAGS + CC=${FC-"f95"} + CFLAGS=$FCFLAGS + compiler=$CC + GCC=$ac_cv_fc_compiler_gnu + + _LT_TAGVAR(compiler, $1)=$CC + _LT_CC_BASENAME([$compiler]) + + if test -n "$compiler"; then + AC_MSG_CHECKING([if libtool supports shared libraries]) + AC_MSG_RESULT([$can_build_shared]) + + AC_MSG_CHECKING([whether to build shared libraries]) + test no = "$can_build_shared" && enable_shared=no + + # On AIX, shared libraries and static libraries use the same namespace, and + # are all built from PIC. + case $host_os in + aix3*) + test yes = "$enable_shared" && enable_static=no + if test -n "$RANLIB"; then + archive_cmds="$archive_cmds~\$RANLIB \$lib" + postinstall_cmds='$RANLIB $lib' + fi + ;; + aix[[4-9]]*) + if test ia64 != "$host_cpu"; then + case $enable_shared,$with_aix_soname,$aix_use_runtimelinking in + yes,aix,yes) ;; # shared object as lib.so file only + yes,svr4,*) ;; # shared object as lib.so archive member only + yes,*) enable_static=no ;; # shared object in lib.a archive as well + esac + fi + ;; + esac + AC_MSG_RESULT([$enable_shared]) + + AC_MSG_CHECKING([whether to build static libraries]) + # Make sure either enable_shared or enable_static is yes. + test yes = "$enable_shared" || enable_static=yes + AC_MSG_RESULT([$enable_static]) + + _LT_TAGVAR(GCC, $1)=$ac_cv_fc_compiler_gnu + _LT_TAGVAR(LD, $1)=$LD + + ## CAVEAT EMPTOR: + ## There is no encapsulation within the following macros, do not change + ## the running order or otherwise move them around unless you know exactly + ## what you are doing... + _LT_SYS_HIDDEN_LIBDEPS($1) + _LT_COMPILER_PIC($1) + _LT_COMPILER_C_O($1) + _LT_COMPILER_FILE_LOCKS($1) + _LT_LINKER_SHLIBS($1) + _LT_SYS_DYNAMIC_LINKER($1) + _LT_LINKER_HARDCODE_LIBPATH($1) + + _LT_CONFIG($1) + fi # test -n "$compiler" + + GCC=$lt_save_GCC + CC=$lt_save_CC + CFLAGS=$lt_save_CFLAGS +fi # test yes != "$_lt_disable_FC" + +AC_LANG_POP +])# _LT_LANG_FC_CONFIG + + +# _LT_LANG_GCJ_CONFIG([TAG]) +# -------------------------- +# Ensure that the configuration variables for the GNU Java Compiler compiler +# are suitably defined. These variables are subsequently used by _LT_CONFIG +# to write the compiler configuration to 'libtool'. +m4_defun([_LT_LANG_GCJ_CONFIG], +[AC_REQUIRE([LT_PROG_GCJ])dnl +AC_LANG_SAVE + +# Source file extension for Java test sources. +ac_ext=java + +# Object file extension for compiled Java test sources. +objext=o +_LT_TAGVAR(objext, $1)=$objext + +# Code to be used in simple compile tests +lt_simple_compile_test_code="class foo {}" + +# Code to be used in simple link tests +lt_simple_link_test_code='public class conftest { public static void main(String[[]] argv) {}; }' + +# ltmain only uses $CC for tagged configurations so make sure $CC is set. +_LT_TAG_COMPILER + +# save warnings/boilerplate of simple test code +_LT_COMPILER_BOILERPLATE +_LT_LINKER_BOILERPLATE + +# Allow CC to be a program name with arguments. +lt_save_CC=$CC +lt_save_CFLAGS=$CFLAGS +lt_save_GCC=$GCC +GCC=yes +CC=${GCJ-"gcj"} +CFLAGS=$GCJFLAGS +compiler=$CC +_LT_TAGVAR(compiler, $1)=$CC +_LT_TAGVAR(LD, $1)=$LD +_LT_CC_BASENAME([$compiler]) + +# GCJ did not exist at the time GCC didn't implicitly link libc in. +_LT_TAGVAR(archive_cmds_need_lc, $1)=no + +_LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds +_LT_TAGVAR(reload_flag, $1)=$reload_flag +_LT_TAGVAR(reload_cmds, $1)=$reload_cmds + +## CAVEAT EMPTOR: +## There is no encapsulation within the following macros, do not change +## the running order or otherwise move them around unless you know exactly +## what you are doing... +if test -n "$compiler"; then + _LT_COMPILER_NO_RTTI($1) + _LT_COMPILER_PIC($1) + _LT_COMPILER_C_O($1) + _LT_COMPILER_FILE_LOCKS($1) + _LT_LINKER_SHLIBS($1) + _LT_LINKER_HARDCODE_LIBPATH($1) + + _LT_CONFIG($1) +fi + +AC_LANG_RESTORE + +GCC=$lt_save_GCC +CC=$lt_save_CC +CFLAGS=$lt_save_CFLAGS +])# _LT_LANG_GCJ_CONFIG + + +# _LT_LANG_GO_CONFIG([TAG]) +# -------------------------- +# Ensure that the configuration variables for the GNU Go compiler +# are suitably defined. These variables are subsequently used by _LT_CONFIG +# to write the compiler configuration to 'libtool'. +m4_defun([_LT_LANG_GO_CONFIG], +[AC_REQUIRE([LT_PROG_GO])dnl +AC_LANG_SAVE + +# Source file extension for Go test sources. +ac_ext=go + +# Object file extension for compiled Go test sources. +objext=o +_LT_TAGVAR(objext, $1)=$objext + +# Code to be used in simple compile tests +lt_simple_compile_test_code="package main; func main() { }" + +# Code to be used in simple link tests +lt_simple_link_test_code='package main; func main() { }' + +# ltmain only uses $CC for tagged configurations so make sure $CC is set. +_LT_TAG_COMPILER + +# save warnings/boilerplate of simple test code +_LT_COMPILER_BOILERPLATE +_LT_LINKER_BOILERPLATE + +# Allow CC to be a program name with arguments. +lt_save_CC=$CC +lt_save_CFLAGS=$CFLAGS +lt_save_GCC=$GCC +GCC=yes +CC=${GOC-"gccgo"} +CFLAGS=$GOFLAGS +compiler=$CC +_LT_TAGVAR(compiler, $1)=$CC +_LT_TAGVAR(LD, $1)=$LD +_LT_CC_BASENAME([$compiler]) + +# Go did not exist at the time GCC didn't implicitly link libc in. +_LT_TAGVAR(archive_cmds_need_lc, $1)=no + +_LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds +_LT_TAGVAR(reload_flag, $1)=$reload_flag +_LT_TAGVAR(reload_cmds, $1)=$reload_cmds + +## CAVEAT EMPTOR: +## There is no encapsulation within the following macros, do not change +## the running order or otherwise move them around unless you know exactly +## what you are doing... +if test -n "$compiler"; then + _LT_COMPILER_NO_RTTI($1) + _LT_COMPILER_PIC($1) + _LT_COMPILER_C_O($1) + _LT_COMPILER_FILE_LOCKS($1) + _LT_LINKER_SHLIBS($1) + _LT_LINKER_HARDCODE_LIBPATH($1) + + _LT_CONFIG($1) +fi + +AC_LANG_RESTORE + +GCC=$lt_save_GCC +CC=$lt_save_CC +CFLAGS=$lt_save_CFLAGS +])# _LT_LANG_GO_CONFIG + + +# _LT_LANG_RC_CONFIG([TAG]) +# ------------------------- +# Ensure that the configuration variables for the Windows resource compiler +# are suitably defined. These variables are subsequently used by _LT_CONFIG +# to write the compiler configuration to 'libtool'. +m4_defun([_LT_LANG_RC_CONFIG], +[AC_REQUIRE([LT_PROG_RC])dnl +AC_LANG_SAVE + +# Source file extension for RC test sources. +ac_ext=rc + +# Object file extension for compiled RC test sources. +objext=o +_LT_TAGVAR(objext, $1)=$objext + +# Code to be used in simple compile tests +lt_simple_compile_test_code='sample MENU { MENUITEM "&Soup", 100, CHECKED }' + +# Code to be used in simple link tests +lt_simple_link_test_code=$lt_simple_compile_test_code + +# ltmain only uses $CC for tagged configurations so make sure $CC is set. +_LT_TAG_COMPILER + +# save warnings/boilerplate of simple test code +_LT_COMPILER_BOILERPLATE +_LT_LINKER_BOILERPLATE + +# Allow CC to be a program name with arguments. +lt_save_CC=$CC +lt_save_CFLAGS=$CFLAGS +lt_save_GCC=$GCC +GCC= +CC=${RC-"windres"} +CFLAGS= +compiler=$CC +_LT_TAGVAR(compiler, $1)=$CC +_LT_CC_BASENAME([$compiler]) +_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)=yes + +if test -n "$compiler"; then + : + _LT_CONFIG($1) +fi + +GCC=$lt_save_GCC +AC_LANG_RESTORE +CC=$lt_save_CC +CFLAGS=$lt_save_CFLAGS +])# _LT_LANG_RC_CONFIG + + +# LT_PROG_GCJ +# ----------- +AC_DEFUN([LT_PROG_GCJ], +[m4_ifdef([AC_PROG_GCJ], [AC_PROG_GCJ], + [m4_ifdef([A][M_PROG_GCJ], [A][M_PROG_GCJ], + [AC_CHECK_TOOL(GCJ, gcj,) + test set = "${GCJFLAGS+set}" || GCJFLAGS="-g -O2" + AC_SUBST(GCJFLAGS)])])[]dnl +]) + +# Old name: +AU_ALIAS([LT_AC_PROG_GCJ], [LT_PROG_GCJ]) +dnl aclocal-1.4 backwards compatibility: +dnl AC_DEFUN([LT_AC_PROG_GCJ], []) + + +# LT_PROG_GO +# ---------- +AC_DEFUN([LT_PROG_GO], +[AC_CHECK_TOOL(GOC, gccgo,) +]) + + +# LT_PROG_RC +# ---------- +AC_DEFUN([LT_PROG_RC], +[AC_CHECK_TOOL(RC, windres,) +]) + +# Old name: +AU_ALIAS([LT_AC_PROG_RC], [LT_PROG_RC]) +dnl aclocal-1.4 backwards compatibility: +dnl AC_DEFUN([LT_AC_PROG_RC], []) + + +# _LT_DECL_EGREP +# -------------- +# If we don't have a new enough Autoconf to choose the best grep +# available, choose the one first in the user's PATH. +m4_defun([_LT_DECL_EGREP], +[AC_REQUIRE([AC_PROG_EGREP])dnl +AC_REQUIRE([AC_PROG_FGREP])dnl +test -z "$GREP" && GREP=grep +_LT_DECL([], [GREP], [1], [A grep program that handles long lines]) +_LT_DECL([], [EGREP], [1], [An ERE matcher]) +_LT_DECL([], [FGREP], [1], [A literal string matcher]) +dnl Non-bleeding-edge autoconf doesn't subst GREP, so do it here too +AC_SUBST([GREP]) +]) + + +# _LT_DECL_OBJDUMP +# -------------- +# If we don't have a new enough Autoconf to choose the best objdump +# available, choose the one first in the user's PATH. +m4_defun([_LT_DECL_OBJDUMP], +[AC_CHECK_TOOL(OBJDUMP, objdump, false) +test -z "$OBJDUMP" && OBJDUMP=objdump +_LT_DECL([], [OBJDUMP], [1], [An object symbol dumper]) +AC_SUBST([OBJDUMP]) +]) + +# _LT_DECL_DLLTOOL +# ---------------- +# Ensure DLLTOOL variable is set. +m4_defun([_LT_DECL_DLLTOOL], +[AC_CHECK_TOOL(DLLTOOL, dlltool, false) +test -z "$DLLTOOL" && DLLTOOL=dlltool +_LT_DECL([], [DLLTOOL], [1], [DLL creation program]) +AC_SUBST([DLLTOOL]) +]) + +# _LT_DECL_SED +# ------------ +# Check for a fully-functional sed program, that truncates +# as few characters as possible. Prefer GNU sed if found. +m4_defun([_LT_DECL_SED], +[AC_PROG_SED +test -z "$SED" && SED=sed +Xsed="$SED -e 1s/^X//" +_LT_DECL([], [SED], [1], [A sed program that does not truncate output]) +_LT_DECL([], [Xsed], ["\$SED -e 1s/^X//"], + [Sed that helps us avoid accidentally triggering echo(1) options like -n]) +])# _LT_DECL_SED + +m4_ifndef([AC_PROG_SED], [ +############################################################ +# NOTE: This macro has been submitted for inclusion into # +# GNU Autoconf as AC_PROG_SED. When it is available in # +# a released version of Autoconf we should remove this # +# macro and use it instead. # +############################################################ + +m4_defun([AC_PROG_SED], +[AC_MSG_CHECKING([for a sed that does not truncate output]) +AC_CACHE_VAL(lt_cv_path_SED, +[# Loop through the user's path and test for sed and gsed. +# Then use that list of sed's as ones to test for truncation. +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for lt_ac_prog in sed gsed; do + for ac_exec_ext in '' $ac_executable_extensions; do + if $as_executable_p "$as_dir/$lt_ac_prog$ac_exec_ext"; then + lt_ac_sed_list="$lt_ac_sed_list $as_dir/$lt_ac_prog$ac_exec_ext" + fi + done + done +done +IFS=$as_save_IFS +lt_ac_max=0 +lt_ac_count=0 +# Add /usr/xpg4/bin/sed as it is typically found on Solaris +# along with /bin/sed that truncates output. +for lt_ac_sed in $lt_ac_sed_list /usr/xpg4/bin/sed; do + test ! -f "$lt_ac_sed" && continue + cat /dev/null > conftest.in + lt_ac_count=0 + echo $ECHO_N "0123456789$ECHO_C" >conftest.in + # Check for GNU sed and select it if it is found. + if "$lt_ac_sed" --version 2>&1 < /dev/null | grep 'GNU' > /dev/null; then + lt_cv_path_SED=$lt_ac_sed + break + fi + while true; do + cat conftest.in conftest.in >conftest.tmp + mv conftest.tmp conftest.in + cp conftest.in conftest.nl + echo >>conftest.nl + $lt_ac_sed -e 's/a$//' < conftest.nl >conftest.out || break + cmp -s conftest.out conftest.nl || break + # 10000 chars as input seems more than enough + test 10 -lt "$lt_ac_count" && break + lt_ac_count=`expr $lt_ac_count + 1` + if test "$lt_ac_count" -gt "$lt_ac_max"; then + lt_ac_max=$lt_ac_count + lt_cv_path_SED=$lt_ac_sed + fi + done +done +]) +SED=$lt_cv_path_SED +AC_SUBST([SED]) +AC_MSG_RESULT([$SED]) +])#AC_PROG_SED +])#m4_ifndef + +# Old name: +AU_ALIAS([LT_AC_PROG_SED], [AC_PROG_SED]) +dnl aclocal-1.4 backwards compatibility: +dnl AC_DEFUN([LT_AC_PROG_SED], []) + + +# _LT_CHECK_SHELL_FEATURES +# ------------------------ +# Find out whether the shell is Bourne or XSI compatible, +# or has some other useful features. +m4_defun([_LT_CHECK_SHELL_FEATURES], +[if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then + lt_unset=unset +else + lt_unset=false +fi +_LT_DECL([], [lt_unset], [0], [whether the shell understands "unset"])dnl + +# test EBCDIC or ASCII +case `echo X|tr X '\101'` in + A) # ASCII based system + # \n is not interpreted correctly by Solaris 8 /usr/ucb/tr + lt_SP2NL='tr \040 \012' + lt_NL2SP='tr \015\012 \040\040' + ;; + *) # EBCDIC based system + lt_SP2NL='tr \100 \n' + lt_NL2SP='tr \r\n \100\100' + ;; +esac +_LT_DECL([SP2NL], [lt_SP2NL], [1], [turn spaces into newlines])dnl +_LT_DECL([NL2SP], [lt_NL2SP], [1], [turn newlines into spaces])dnl +])# _LT_CHECK_SHELL_FEATURES + + +# _LT_PATH_CONVERSION_FUNCTIONS +# ----------------------------- +# Determine what file name conversion functions should be used by +# func_to_host_file (and, implicitly, by func_to_host_path). These are needed +# for certain cross-compile configurations and native mingw. +m4_defun([_LT_PATH_CONVERSION_FUNCTIONS], +[AC_REQUIRE([AC_CANONICAL_HOST])dnl +AC_REQUIRE([AC_CANONICAL_BUILD])dnl +AC_MSG_CHECKING([how to convert $build file names to $host format]) +AC_CACHE_VAL(lt_cv_to_host_file_cmd, +[case $host in + *-*-mingw* ) + case $build in + *-*-mingw* ) # actually msys + lt_cv_to_host_file_cmd=func_convert_file_msys_to_w32 + ;; + *-*-cygwin* ) + lt_cv_to_host_file_cmd=func_convert_file_cygwin_to_w32 + ;; + * ) # otherwise, assume *nix + lt_cv_to_host_file_cmd=func_convert_file_nix_to_w32 + ;; + esac + ;; + *-*-cygwin* ) + case $build in + *-*-mingw* ) # actually msys + lt_cv_to_host_file_cmd=func_convert_file_msys_to_cygwin + ;; + *-*-cygwin* ) + lt_cv_to_host_file_cmd=func_convert_file_noop + ;; + * ) # otherwise, assume *nix + lt_cv_to_host_file_cmd=func_convert_file_nix_to_cygwin + ;; + esac + ;; + * ) # unhandled hosts (and "normal" native builds) + lt_cv_to_host_file_cmd=func_convert_file_noop + ;; +esac +]) +to_host_file_cmd=$lt_cv_to_host_file_cmd +AC_MSG_RESULT([$lt_cv_to_host_file_cmd]) +_LT_DECL([to_host_file_cmd], [lt_cv_to_host_file_cmd], + [0], [convert $build file names to $host format])dnl + +AC_MSG_CHECKING([how to convert $build file names to toolchain format]) +AC_CACHE_VAL(lt_cv_to_tool_file_cmd, +[#assume ordinary cross tools, or native build. +lt_cv_to_tool_file_cmd=func_convert_file_noop +case $host in + *-*-mingw* ) + case $build in + *-*-mingw* ) # actually msys + lt_cv_to_tool_file_cmd=func_convert_file_msys_to_w32 + ;; + esac + ;; +esac +]) +to_tool_file_cmd=$lt_cv_to_tool_file_cmd +AC_MSG_RESULT([$lt_cv_to_tool_file_cmd]) +_LT_DECL([to_tool_file_cmd], [lt_cv_to_tool_file_cmd], + [0], [convert $build files to toolchain format])dnl +])# _LT_PATH_CONVERSION_FUNCTIONS diff --git a/m4/ln.m4 b/m4/ln.m4 new file mode 100644 index 0000000..b2ccbea --- /dev/null +++ b/m4/ln.m4 @@ -0,0 +1,51 @@ +dnl -*- Autoconf -*- +dnl Copyright (C) 1993-2017 Free Software Foundation, Inc. +dnl This file is free software, distributed under the terms of the GNU +dnl General Public License as published by the Free Software Foundation; +dnl either version 2 of the License, or (at your option) any later version. +dnl As a special exception to the GNU General Public License, this file +dnl may be distributed as part of a program that contains a configuration +dnl script generated by Autoconf, under the same distribution terms as +dnl the rest of that program. + +dnl From Bruno Haible, Marcus Daniels, Sam Steingold. + +AC_PREREQ([2.13]) + +AC_DEFUN([CL_PROG_LN], +[ + AC_CACHE_CHECK([how to make hard links], [cl_cv_prog_LN], + [rm -f conftestdata conftestfile + echo data > conftestfile + if ln conftestfile conftestdata 2>/dev/null; then + cl_cv_prog_LN=ln + else + cl_cv_prog_LN="cp -p" + fi + rm -f conftestdata conftestfile + ]) + LN="$cl_cv_prog_LN" + AC_SUBST([LN]) +]) + +AC_DEFUN([CL_PROG_LN_S], +[ + AC_REQUIRE([CL_PROG_LN]) + dnl Make a symlink if possible; otherwise try a hard link. On filesystems + dnl which support neither symlink nor hard link, use a plain copy. + AC_CACHE_CHECK([whether ln -s works], [cl_cv_prog_LN_S_works], + [rm -f conftestdata + if ln -s X conftestdata 2>/dev/null; then + cl_cv_prog_LN_S_works=yes + else + cl_cv_prog_LN_S_works=no + fi + rm -f conftestdata + ]) + if test $cl_cv_prog_LN_S_works = yes; then + LN_S="ln -s" + else + LN_S="$cl_cv_prog_LN" + fi + AC_SUBST([LN_S]) +]) diff --git a/m4/ltoptions.m4 b/m4/ltoptions.m4 new file mode 100644 index 0000000..94b0829 --- /dev/null +++ b/m4/ltoptions.m4 @@ -0,0 +1,437 @@ +# Helper functions for option handling. -*- Autoconf -*- +# +# Copyright (C) 2004-2005, 2007-2009, 2011-2015 Free Software +# Foundation, Inc. +# Written by Gary V. Vaughan, 2004 +# +# This file is free software; the Free Software Foundation gives +# unlimited permission to copy and/or distribute it, with or without +# modifications, as long as this notice is preserved. + +# serial 8 ltoptions.m4 + +# This is to help aclocal find these macros, as it can't see m4_define. +AC_DEFUN([LTOPTIONS_VERSION], [m4_if([1])]) + + +# _LT_MANGLE_OPTION(MACRO-NAME, OPTION-NAME) +# ------------------------------------------ +m4_define([_LT_MANGLE_OPTION], +[[_LT_OPTION_]m4_bpatsubst($1__$2, [[^a-zA-Z0-9_]], [_])]) + + +# _LT_SET_OPTION(MACRO-NAME, OPTION-NAME) +# --------------------------------------- +# Set option OPTION-NAME for macro MACRO-NAME, and if there is a +# matching handler defined, dispatch to it. Other OPTION-NAMEs are +# saved as a flag. +m4_define([_LT_SET_OPTION], +[m4_define(_LT_MANGLE_OPTION([$1], [$2]))dnl +m4_ifdef(_LT_MANGLE_DEFUN([$1], [$2]), + _LT_MANGLE_DEFUN([$1], [$2]), + [m4_warning([Unknown $1 option '$2'])])[]dnl +]) + + +# _LT_IF_OPTION(MACRO-NAME, OPTION-NAME, IF-SET, [IF-NOT-SET]) +# ------------------------------------------------------------ +# Execute IF-SET if OPTION is set, IF-NOT-SET otherwise. +m4_define([_LT_IF_OPTION], +[m4_ifdef(_LT_MANGLE_OPTION([$1], [$2]), [$3], [$4])]) + + +# _LT_UNLESS_OPTIONS(MACRO-NAME, OPTION-LIST, IF-NOT-SET) +# ------------------------------------------------------- +# Execute IF-NOT-SET unless all options in OPTION-LIST for MACRO-NAME +# are set. +m4_define([_LT_UNLESS_OPTIONS], +[m4_foreach([_LT_Option], m4_split(m4_normalize([$2])), + [m4_ifdef(_LT_MANGLE_OPTION([$1], _LT_Option), + [m4_define([$0_found])])])[]dnl +m4_ifdef([$0_found], [m4_undefine([$0_found])], [$3 +])[]dnl +]) + + +# _LT_SET_OPTIONS(MACRO-NAME, OPTION-LIST) +# ---------------------------------------- +# OPTION-LIST is a space-separated list of Libtool options associated +# with MACRO-NAME. If any OPTION has a matching handler declared with +# LT_OPTION_DEFINE, dispatch to that macro; otherwise complain about +# the unknown option and exit. +m4_defun([_LT_SET_OPTIONS], +[# Set options +m4_foreach([_LT_Option], m4_split(m4_normalize([$2])), + [_LT_SET_OPTION([$1], _LT_Option)]) + +m4_if([$1],[LT_INIT],[ + dnl + dnl Simply set some default values (i.e off) if boolean options were not + dnl specified: + _LT_UNLESS_OPTIONS([LT_INIT], [dlopen], [enable_dlopen=no + ]) + _LT_UNLESS_OPTIONS([LT_INIT], [win32-dll], [enable_win32_dll=no + ]) + dnl + dnl If no reference was made to various pairs of opposing options, then + dnl we run the default mode handler for the pair. For example, if neither + dnl 'shared' nor 'disable-shared' was passed, we enable building of shared + dnl archives by default: + _LT_UNLESS_OPTIONS([LT_INIT], [shared disable-shared], [_LT_ENABLE_SHARED]) + _LT_UNLESS_OPTIONS([LT_INIT], [static disable-static], [_LT_ENABLE_STATIC]) + _LT_UNLESS_OPTIONS([LT_INIT], [pic-only no-pic], [_LT_WITH_PIC]) + _LT_UNLESS_OPTIONS([LT_INIT], [fast-install disable-fast-install], + [_LT_ENABLE_FAST_INSTALL]) + _LT_UNLESS_OPTIONS([LT_INIT], [aix-soname=aix aix-soname=both aix-soname=svr4], + [_LT_WITH_AIX_SONAME([aix])]) + ]) +])# _LT_SET_OPTIONS + + +## --------------------------------- ## +## Macros to handle LT_INIT options. ## +## --------------------------------- ## + +# _LT_MANGLE_DEFUN(MACRO-NAME, OPTION-NAME) +# ----------------------------------------- +m4_define([_LT_MANGLE_DEFUN], +[[_LT_OPTION_DEFUN_]m4_bpatsubst(m4_toupper([$1__$2]), [[^A-Z0-9_]], [_])]) + + +# LT_OPTION_DEFINE(MACRO-NAME, OPTION-NAME, CODE) +# ----------------------------------------------- +m4_define([LT_OPTION_DEFINE], +[m4_define(_LT_MANGLE_DEFUN([$1], [$2]), [$3])[]dnl +])# LT_OPTION_DEFINE + + +# dlopen +# ------ +LT_OPTION_DEFINE([LT_INIT], [dlopen], [enable_dlopen=yes +]) + +AU_DEFUN([AC_LIBTOOL_DLOPEN], +[_LT_SET_OPTION([LT_INIT], [dlopen]) +AC_DIAGNOSE([obsolete], +[$0: Remove this warning and the call to _LT_SET_OPTION when you +put the 'dlopen' option into LT_INIT's first parameter.]) +]) + +dnl aclocal-1.4 backwards compatibility: +dnl AC_DEFUN([AC_LIBTOOL_DLOPEN], []) + + +# win32-dll +# --------- +# Declare package support for building win32 dll's. +LT_OPTION_DEFINE([LT_INIT], [win32-dll], +[enable_win32_dll=yes + +case $host in +*-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-cegcc*) + AC_CHECK_TOOL(AS, as, false) + AC_CHECK_TOOL(DLLTOOL, dlltool, false) + AC_CHECK_TOOL(OBJDUMP, objdump, false) + ;; +esac + +test -z "$AS" && AS=as +_LT_DECL([], [AS], [1], [Assembler program])dnl + +test -z "$DLLTOOL" && DLLTOOL=dlltool +_LT_DECL([], [DLLTOOL], [1], [DLL creation program])dnl + +test -z "$OBJDUMP" && OBJDUMP=objdump +_LT_DECL([], [OBJDUMP], [1], [Object dumper program])dnl +])# win32-dll + +AU_DEFUN([AC_LIBTOOL_WIN32_DLL], +[AC_REQUIRE([AC_CANONICAL_HOST])dnl +_LT_SET_OPTION([LT_INIT], [win32-dll]) +AC_DIAGNOSE([obsolete], +[$0: Remove this warning and the call to _LT_SET_OPTION when you +put the 'win32-dll' option into LT_INIT's first parameter.]) +]) + +dnl aclocal-1.4 backwards compatibility: +dnl AC_DEFUN([AC_LIBTOOL_WIN32_DLL], []) + + +# _LT_ENABLE_SHARED([DEFAULT]) +# ---------------------------- +# implement the --enable-shared flag, and supports the 'shared' and +# 'disable-shared' LT_INIT options. +# DEFAULT is either 'yes' or 'no'. If omitted, it defaults to 'yes'. +m4_define([_LT_ENABLE_SHARED], +[m4_define([_LT_ENABLE_SHARED_DEFAULT], [m4_if($1, no, no, yes)])dnl +AC_ARG_ENABLE([shared], + [AS_HELP_STRING([--enable-shared@<:@=PKGS@:>@], + [build shared libraries @<:@default=]_LT_ENABLE_SHARED_DEFAULT[@:>@])], + [p=${PACKAGE-default} + case $enableval in + yes) enable_shared=yes ;; + no) enable_shared=no ;; + *) + enable_shared=no + # Look at the argument we got. We use all the common list separators. + lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR, + for pkg in $enableval; do + IFS=$lt_save_ifs + if test "X$pkg" = "X$p"; then + enable_shared=yes + fi + done + IFS=$lt_save_ifs + ;; + esac], + [enable_shared=]_LT_ENABLE_SHARED_DEFAULT) + + _LT_DECL([build_libtool_libs], [enable_shared], [0], + [Whether or not to build shared libraries]) +])# _LT_ENABLE_SHARED + +LT_OPTION_DEFINE([LT_INIT], [shared], [_LT_ENABLE_SHARED([yes])]) +LT_OPTION_DEFINE([LT_INIT], [disable-shared], [_LT_ENABLE_SHARED([no])]) + +# Old names: +AC_DEFUN([AC_ENABLE_SHARED], +[_LT_SET_OPTION([LT_INIT], m4_if([$1], [no], [disable-])[shared]) +]) + +AC_DEFUN([AC_DISABLE_SHARED], +[_LT_SET_OPTION([LT_INIT], [disable-shared]) +]) + +AU_DEFUN([AM_ENABLE_SHARED], [AC_ENABLE_SHARED($@)]) +AU_DEFUN([AM_DISABLE_SHARED], [AC_DISABLE_SHARED($@)]) + +dnl aclocal-1.4 backwards compatibility: +dnl AC_DEFUN([AM_ENABLE_SHARED], []) +dnl AC_DEFUN([AM_DISABLE_SHARED], []) + + + +# _LT_ENABLE_STATIC([DEFAULT]) +# ---------------------------- +# implement the --enable-static flag, and support the 'static' and +# 'disable-static' LT_INIT options. +# DEFAULT is either 'yes' or 'no'. If omitted, it defaults to 'yes'. +m4_define([_LT_ENABLE_STATIC], +[m4_define([_LT_ENABLE_STATIC_DEFAULT], [m4_if($1, no, no, yes)])dnl +AC_ARG_ENABLE([static], + [AS_HELP_STRING([--enable-static@<:@=PKGS@:>@], + [build static libraries @<:@default=]_LT_ENABLE_STATIC_DEFAULT[@:>@])], + [p=${PACKAGE-default} + case $enableval in + yes) enable_static=yes ;; + no) enable_static=no ;; + *) + enable_static=no + # Look at the argument we got. We use all the common list separators. + lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR, + for pkg in $enableval; do + IFS=$lt_save_ifs + if test "X$pkg" = "X$p"; then + enable_static=yes + fi + done + IFS=$lt_save_ifs + ;; + esac], + [enable_static=]_LT_ENABLE_STATIC_DEFAULT) + + _LT_DECL([build_old_libs], [enable_static], [0], + [Whether or not to build static libraries]) +])# _LT_ENABLE_STATIC + +LT_OPTION_DEFINE([LT_INIT], [static], [_LT_ENABLE_STATIC([yes])]) +LT_OPTION_DEFINE([LT_INIT], [disable-static], [_LT_ENABLE_STATIC([no])]) + +# Old names: +AC_DEFUN([AC_ENABLE_STATIC], +[_LT_SET_OPTION([LT_INIT], m4_if([$1], [no], [disable-])[static]) +]) + +AC_DEFUN([AC_DISABLE_STATIC], +[_LT_SET_OPTION([LT_INIT], [disable-static]) +]) + +AU_DEFUN([AM_ENABLE_STATIC], [AC_ENABLE_STATIC($@)]) +AU_DEFUN([AM_DISABLE_STATIC], [AC_DISABLE_STATIC($@)]) + +dnl aclocal-1.4 backwards compatibility: +dnl AC_DEFUN([AM_ENABLE_STATIC], []) +dnl AC_DEFUN([AM_DISABLE_STATIC], []) + + + +# _LT_ENABLE_FAST_INSTALL([DEFAULT]) +# ---------------------------------- +# implement the --enable-fast-install flag, and support the 'fast-install' +# and 'disable-fast-install' LT_INIT options. +# DEFAULT is either 'yes' or 'no'. If omitted, it defaults to 'yes'. +m4_define([_LT_ENABLE_FAST_INSTALL], +[m4_define([_LT_ENABLE_FAST_INSTALL_DEFAULT], [m4_if($1, no, no, yes)])dnl +AC_ARG_ENABLE([fast-install], + [AS_HELP_STRING([--enable-fast-install@<:@=PKGS@:>@], + [optimize for fast installation @<:@default=]_LT_ENABLE_FAST_INSTALL_DEFAULT[@:>@])], + [p=${PACKAGE-default} + case $enableval in + yes) enable_fast_install=yes ;; + no) enable_fast_install=no ;; + *) + enable_fast_install=no + # Look at the argument we got. We use all the common list separators. + lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR, + for pkg in $enableval; do + IFS=$lt_save_ifs + if test "X$pkg" = "X$p"; then + enable_fast_install=yes + fi + done + IFS=$lt_save_ifs + ;; + esac], + [enable_fast_install=]_LT_ENABLE_FAST_INSTALL_DEFAULT) + +_LT_DECL([fast_install], [enable_fast_install], [0], + [Whether or not to optimize for fast installation])dnl +])# _LT_ENABLE_FAST_INSTALL + +LT_OPTION_DEFINE([LT_INIT], [fast-install], [_LT_ENABLE_FAST_INSTALL([yes])]) +LT_OPTION_DEFINE([LT_INIT], [disable-fast-install], [_LT_ENABLE_FAST_INSTALL([no])]) + +# Old names: +AU_DEFUN([AC_ENABLE_FAST_INSTALL], +[_LT_SET_OPTION([LT_INIT], m4_if([$1], [no], [disable-])[fast-install]) +AC_DIAGNOSE([obsolete], +[$0: Remove this warning and the call to _LT_SET_OPTION when you put +the 'fast-install' option into LT_INIT's first parameter.]) +]) + +AU_DEFUN([AC_DISABLE_FAST_INSTALL], +[_LT_SET_OPTION([LT_INIT], [disable-fast-install]) +AC_DIAGNOSE([obsolete], +[$0: Remove this warning and the call to _LT_SET_OPTION when you put +the 'disable-fast-install' option into LT_INIT's first parameter.]) +]) + +dnl aclocal-1.4 backwards compatibility: +dnl AC_DEFUN([AC_ENABLE_FAST_INSTALL], []) +dnl AC_DEFUN([AM_DISABLE_FAST_INSTALL], []) + + +# _LT_WITH_AIX_SONAME([DEFAULT]) +# ---------------------------------- +# implement the --with-aix-soname flag, and support the `aix-soname=aix' +# and `aix-soname=both' and `aix-soname=svr4' LT_INIT options. DEFAULT +# is either `aix', `both' or `svr4'. If omitted, it defaults to `aix'. +m4_define([_LT_WITH_AIX_SONAME], +[m4_define([_LT_WITH_AIX_SONAME_DEFAULT], [m4_if($1, svr4, svr4, m4_if($1, both, both, aix))])dnl +shared_archive_member_spec= +case $host,$enable_shared in +power*-*-aix[[5-9]]*,yes) + AC_MSG_CHECKING([which variant of shared library versioning to provide]) + AC_ARG_WITH([aix-soname], + [AS_HELP_STRING([--with-aix-soname=aix|svr4|both], + [shared library versioning (aka "SONAME") variant to provide on AIX, @<:@default=]_LT_WITH_AIX_SONAME_DEFAULT[@:>@.])], + [case $withval in + aix|svr4|both) + ;; + *) + AC_MSG_ERROR([Unknown argument to --with-aix-soname]) + ;; + esac + lt_cv_with_aix_soname=$with_aix_soname], + [AC_CACHE_VAL([lt_cv_with_aix_soname], + [lt_cv_with_aix_soname=]_LT_WITH_AIX_SONAME_DEFAULT) + with_aix_soname=$lt_cv_with_aix_soname]) + AC_MSG_RESULT([$with_aix_soname]) + if test aix != "$with_aix_soname"; then + # For the AIX way of multilib, we name the shared archive member + # based on the bitwidth used, traditionally 'shr.o' or 'shr_64.o', + # and 'shr.imp' or 'shr_64.imp', respectively, for the Import File. + # Even when GNU compilers ignore OBJECT_MODE but need '-maix64' flag, + # the AIX toolchain works better with OBJECT_MODE set (default 32). + if test 64 = "${OBJECT_MODE-32}"; then + shared_archive_member_spec=shr_64 + else + shared_archive_member_spec=shr + fi + fi + ;; +*) + with_aix_soname=aix + ;; +esac + +_LT_DECL([], [shared_archive_member_spec], [0], + [Shared archive member basename, for filename based shared library versioning on AIX])dnl +])# _LT_WITH_AIX_SONAME + +LT_OPTION_DEFINE([LT_INIT], [aix-soname=aix], [_LT_WITH_AIX_SONAME([aix])]) +LT_OPTION_DEFINE([LT_INIT], [aix-soname=both], [_LT_WITH_AIX_SONAME([both])]) +LT_OPTION_DEFINE([LT_INIT], [aix-soname=svr4], [_LT_WITH_AIX_SONAME([svr4])]) + + +# _LT_WITH_PIC([MODE]) +# -------------------- +# implement the --with-pic flag, and support the 'pic-only' and 'no-pic' +# LT_INIT options. +# MODE is either 'yes' or 'no'. If omitted, it defaults to 'both'. +m4_define([_LT_WITH_PIC], +[AC_ARG_WITH([pic], + [AS_HELP_STRING([--with-pic@<:@=PKGS@:>@], + [try to use only PIC/non-PIC objects @<:@default=use both@:>@])], + [lt_p=${PACKAGE-default} + case $withval in + yes|no) pic_mode=$withval ;; + *) + pic_mode=default + # Look at the argument we got. We use all the common list separators. + lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR, + for lt_pkg in $withval; do + IFS=$lt_save_ifs + if test "X$lt_pkg" = "X$lt_p"; then + pic_mode=yes + fi + done + IFS=$lt_save_ifs + ;; + esac], + [pic_mode=m4_default([$1], [default])]) + +_LT_DECL([], [pic_mode], [0], [What type of objects to build])dnl +])# _LT_WITH_PIC + +LT_OPTION_DEFINE([LT_INIT], [pic-only], [_LT_WITH_PIC([yes])]) +LT_OPTION_DEFINE([LT_INIT], [no-pic], [_LT_WITH_PIC([no])]) + +# Old name: +AU_DEFUN([AC_LIBTOOL_PICMODE], +[_LT_SET_OPTION([LT_INIT], [pic-only]) +AC_DIAGNOSE([obsolete], +[$0: Remove this warning and the call to _LT_SET_OPTION when you +put the 'pic-only' option into LT_INIT's first parameter.]) +]) + +dnl aclocal-1.4 backwards compatibility: +dnl AC_DEFUN([AC_LIBTOOL_PICMODE], []) + +## ----------------- ## +## LTDL_INIT Options ## +## ----------------- ## + +m4_define([_LTDL_MODE], []) +LT_OPTION_DEFINE([LTDL_INIT], [nonrecursive], + [m4_define([_LTDL_MODE], [nonrecursive])]) +LT_OPTION_DEFINE([LTDL_INIT], [recursive], + [m4_define([_LTDL_MODE], [recursive])]) +LT_OPTION_DEFINE([LTDL_INIT], [subproject], + [m4_define([_LTDL_MODE], [subproject])]) + +m4_define([_LTDL_TYPE], []) +LT_OPTION_DEFINE([LTDL_INIT], [installable], + [m4_define([_LTDL_TYPE], [installable])]) +LT_OPTION_DEFINE([LTDL_INIT], [convenience], + [m4_define([_LTDL_TYPE], [convenience])]) diff --git a/m4/ltsugar.m4 b/m4/ltsugar.m4 new file mode 100644 index 0000000..48bc934 --- /dev/null +++ b/m4/ltsugar.m4 @@ -0,0 +1,124 @@ +# ltsugar.m4 -- libtool m4 base layer. -*-Autoconf-*- +# +# Copyright (C) 2004-2005, 2007-2008, 2011-2015 Free Software +# Foundation, Inc. +# Written by Gary V. Vaughan, 2004 +# +# This file is free software; the Free Software Foundation gives +# unlimited permission to copy and/or distribute it, with or without +# modifications, as long as this notice is preserved. + +# serial 6 ltsugar.m4 + +# This is to help aclocal find these macros, as it can't see m4_define. +AC_DEFUN([LTSUGAR_VERSION], [m4_if([0.1])]) + + +# lt_join(SEP, ARG1, [ARG2...]) +# ----------------------------- +# Produce ARG1SEPARG2...SEPARGn, omitting [] arguments and their +# associated separator. +# Needed until we can rely on m4_join from Autoconf 2.62, since all earlier +# versions in m4sugar had bugs. +m4_define([lt_join], +[m4_if([$#], [1], [], + [$#], [2], [[$2]], + [m4_if([$2], [], [], [[$2]_])$0([$1], m4_shift(m4_shift($@)))])]) +m4_define([_lt_join], +[m4_if([$#$2], [2], [], + [m4_if([$2], [], [], [[$1$2]])$0([$1], m4_shift(m4_shift($@)))])]) + + +# lt_car(LIST) +# lt_cdr(LIST) +# ------------ +# Manipulate m4 lists. +# These macros are necessary as long as will still need to support +# Autoconf-2.59, which quotes differently. +m4_define([lt_car], [[$1]]) +m4_define([lt_cdr], +[m4_if([$#], 0, [m4_fatal([$0: cannot be called without arguments])], + [$#], 1, [], + [m4_dquote(m4_shift($@))])]) +m4_define([lt_unquote], $1) + + +# lt_append(MACRO-NAME, STRING, [SEPARATOR]) +# ------------------------------------------ +# Redefine MACRO-NAME to hold its former content plus 'SEPARATOR''STRING'. +# Note that neither SEPARATOR nor STRING are expanded; they are appended +# to MACRO-NAME as is (leaving the expansion for when MACRO-NAME is invoked). +# No SEPARATOR is output if MACRO-NAME was previously undefined (different +# than defined and empty). +# +# This macro is needed until we can rely on Autoconf 2.62, since earlier +# versions of m4sugar mistakenly expanded SEPARATOR but not STRING. +m4_define([lt_append], +[m4_define([$1], + m4_ifdef([$1], [m4_defn([$1])[$3]])[$2])]) + + + +# lt_combine(SEP, PREFIX-LIST, INFIX, SUFFIX1, [SUFFIX2...]) +# ---------------------------------------------------------- +# Produce a SEP delimited list of all paired combinations of elements of +# PREFIX-LIST with SUFFIX1 through SUFFIXn. Each element of the list +# has the form PREFIXmINFIXSUFFIXn. +# Needed until we can rely on m4_combine added in Autoconf 2.62. +m4_define([lt_combine], +[m4_if(m4_eval([$# > 3]), [1], + [m4_pushdef([_Lt_sep], [m4_define([_Lt_sep], m4_defn([lt_car]))])]]dnl +[[m4_foreach([_Lt_prefix], [$2], + [m4_foreach([_Lt_suffix], + ]m4_dquote(m4_dquote(m4_shift(m4_shift(m4_shift($@)))))[, + [_Lt_sep([$1])[]m4_defn([_Lt_prefix])[$3]m4_defn([_Lt_suffix])])])])]) + + +# lt_if_append_uniq(MACRO-NAME, VARNAME, [SEPARATOR], [UNIQ], [NOT-UNIQ]) +# ----------------------------------------------------------------------- +# Iff MACRO-NAME does not yet contain VARNAME, then append it (delimited +# by SEPARATOR if supplied) and expand UNIQ, else NOT-UNIQ. +m4_define([lt_if_append_uniq], +[m4_ifdef([$1], + [m4_if(m4_index([$3]m4_defn([$1])[$3], [$3$2$3]), [-1], + [lt_append([$1], [$2], [$3])$4], + [$5])], + [lt_append([$1], [$2], [$3])$4])]) + + +# lt_dict_add(DICT, KEY, VALUE) +# ----------------------------- +m4_define([lt_dict_add], +[m4_define([$1($2)], [$3])]) + + +# lt_dict_add_subkey(DICT, KEY, SUBKEY, VALUE) +# -------------------------------------------- +m4_define([lt_dict_add_subkey], +[m4_define([$1($2:$3)], [$4])]) + + +# lt_dict_fetch(DICT, KEY, [SUBKEY]) +# ---------------------------------- +m4_define([lt_dict_fetch], +[m4_ifval([$3], + m4_ifdef([$1($2:$3)], [m4_defn([$1($2:$3)])]), + m4_ifdef([$1($2)], [m4_defn([$1($2)])]))]) + + +# lt_if_dict_fetch(DICT, KEY, [SUBKEY], VALUE, IF-TRUE, [IF-FALSE]) +# ----------------------------------------------------------------- +m4_define([lt_if_dict_fetch], +[m4_if(lt_dict_fetch([$1], [$2], [$3]), [$4], + [$5], + [$6])]) + + +# lt_dict_filter(DICT, [SUBKEY], VALUE, [SEPARATOR], KEY, [...]) +# -------------------------------------------------------------- +m4_define([lt_dict_filter], +[m4_if([$5], [], [], + [lt_join(m4_quote(m4_default([$4], [[, ]])), + lt_unquote(m4_split(m4_normalize(m4_foreach(_Lt_key, lt_car([m4_shiftn(4, $@)]), + [lt_if_dict_fetch([$1], _Lt_key, [$2], [$3], [_Lt_key ])])))))])[]dnl +]) diff --git a/m4/ltversion.m4 b/m4/ltversion.m4 new file mode 100644 index 0000000..fa04b52 --- /dev/null +++ b/m4/ltversion.m4 @@ -0,0 +1,23 @@ +# ltversion.m4 -- version numbers -*- Autoconf -*- +# +# Copyright (C) 2004, 2011-2015 Free Software Foundation, Inc. +# Written by Scott James Remnant, 2004 +# +# This file is free software; the Free Software Foundation gives +# unlimited permission to copy and/or distribute it, with or without +# modifications, as long as this notice is preserved. + +# @configure_input@ + +# serial 4179 ltversion.m4 +# This file is part of GNU Libtool + +m4_define([LT_PACKAGE_VERSION], [2.4.6]) +m4_define([LT_PACKAGE_REVISION], [2.4.6]) + +AC_DEFUN([LTVERSION_VERSION], +[macro_version='2.4.6' +macro_revision='2.4.6' +_LT_DECL(, macro_version, 0, [Which release of libtool.m4 was used?]) +_LT_DECL(, macro_revision, 0) +]) diff --git a/m4/lt~obsolete.m4 b/m4/lt~obsolete.m4 new file mode 100644 index 0000000..c6b26f8 --- /dev/null +++ b/m4/lt~obsolete.m4 @@ -0,0 +1,99 @@ +# lt~obsolete.m4 -- aclocal satisfying obsolete definitions. -*-Autoconf-*- +# +# Copyright (C) 2004-2005, 2007, 2009, 2011-2015 Free Software +# Foundation, Inc. +# Written by Scott James Remnant, 2004. +# +# This file is free software; the Free Software Foundation gives +# unlimited permission to copy and/or distribute it, with or without +# modifications, as long as this notice is preserved. + +# serial 5 lt~obsolete.m4 + +# These exist entirely to fool aclocal when bootstrapping libtool. +# +# In the past libtool.m4 has provided macros via AC_DEFUN (or AU_DEFUN), +# which have later been changed to m4_define as they aren't part of the +# exported API, or moved to Autoconf or Automake where they belong. +# +# The trouble is, aclocal is a bit thick. It'll see the old AC_DEFUN +# in /usr/share/aclocal/libtool.m4 and remember it, then when it sees us +# using a macro with the same name in our local m4/libtool.m4 it'll +# pull the old libtool.m4 in (it doesn't see our shiny new m4_define +# and doesn't know about Autoconf macros at all.) +# +# So we provide this file, which has a silly filename so it's always +# included after everything else. This provides aclocal with the +# AC_DEFUNs it wants, but when m4 processes it, it doesn't do anything +# because those macros already exist, or will be overwritten later. +# We use AC_DEFUN over AU_DEFUN for compatibility with aclocal-1.6. +# +# Anytime we withdraw an AC_DEFUN or AU_DEFUN, remember to add it here. +# Yes, that means every name once taken will need to remain here until +# we give up compatibility with versions before 1.7, at which point +# we need to keep only those names which we still refer to. + +# This is to help aclocal find these macros, as it can't see m4_define. +AC_DEFUN([LTOBSOLETE_VERSION], [m4_if([1])]) + +m4_ifndef([AC_LIBTOOL_LINKER_OPTION], [AC_DEFUN([AC_LIBTOOL_LINKER_OPTION])]) +m4_ifndef([AC_PROG_EGREP], [AC_DEFUN([AC_PROG_EGREP])]) +m4_ifndef([_LT_AC_PROG_ECHO_BACKSLASH], [AC_DEFUN([_LT_AC_PROG_ECHO_BACKSLASH])]) +m4_ifndef([_LT_AC_SHELL_INIT], [AC_DEFUN([_LT_AC_SHELL_INIT])]) +m4_ifndef([_LT_AC_SYS_LIBPATH_AIX], [AC_DEFUN([_LT_AC_SYS_LIBPATH_AIX])]) +m4_ifndef([_LT_PROG_LTMAIN], [AC_DEFUN([_LT_PROG_LTMAIN])]) +m4_ifndef([_LT_AC_TAGVAR], [AC_DEFUN([_LT_AC_TAGVAR])]) +m4_ifndef([AC_LTDL_ENABLE_INSTALL], [AC_DEFUN([AC_LTDL_ENABLE_INSTALL])]) +m4_ifndef([AC_LTDL_PREOPEN], [AC_DEFUN([AC_LTDL_PREOPEN])]) +m4_ifndef([_LT_AC_SYS_COMPILER], [AC_DEFUN([_LT_AC_SYS_COMPILER])]) +m4_ifndef([_LT_AC_LOCK], [AC_DEFUN([_LT_AC_LOCK])]) +m4_ifndef([AC_LIBTOOL_SYS_OLD_ARCHIVE], [AC_DEFUN([AC_LIBTOOL_SYS_OLD_ARCHIVE])]) +m4_ifndef([_LT_AC_TRY_DLOPEN_SELF], [AC_DEFUN([_LT_AC_TRY_DLOPEN_SELF])]) +m4_ifndef([AC_LIBTOOL_PROG_CC_C_O], [AC_DEFUN([AC_LIBTOOL_PROG_CC_C_O])]) +m4_ifndef([AC_LIBTOOL_SYS_HARD_LINK_LOCKS], [AC_DEFUN([AC_LIBTOOL_SYS_HARD_LINK_LOCKS])]) +m4_ifndef([AC_LIBTOOL_OBJDIR], [AC_DEFUN([AC_LIBTOOL_OBJDIR])]) +m4_ifndef([AC_LTDL_OBJDIR], [AC_DEFUN([AC_LTDL_OBJDIR])]) +m4_ifndef([AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH], [AC_DEFUN([AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH])]) +m4_ifndef([AC_LIBTOOL_SYS_LIB_STRIP], [AC_DEFUN([AC_LIBTOOL_SYS_LIB_STRIP])]) +m4_ifndef([AC_PATH_MAGIC], [AC_DEFUN([AC_PATH_MAGIC])]) +m4_ifndef([AC_PROG_LD_GNU], [AC_DEFUN([AC_PROG_LD_GNU])]) +m4_ifndef([AC_PROG_LD_RELOAD_FLAG], [AC_DEFUN([AC_PROG_LD_RELOAD_FLAG])]) +m4_ifndef([AC_DEPLIBS_CHECK_METHOD], [AC_DEFUN([AC_DEPLIBS_CHECK_METHOD])]) +m4_ifndef([AC_LIBTOOL_PROG_COMPILER_NO_RTTI], [AC_DEFUN([AC_LIBTOOL_PROG_COMPILER_NO_RTTI])]) +m4_ifndef([AC_LIBTOOL_SYS_GLOBAL_SYMBOL_PIPE], [AC_DEFUN([AC_LIBTOOL_SYS_GLOBAL_SYMBOL_PIPE])]) +m4_ifndef([AC_LIBTOOL_PROG_COMPILER_PIC], [AC_DEFUN([AC_LIBTOOL_PROG_COMPILER_PIC])]) +m4_ifndef([AC_LIBTOOL_PROG_LD_SHLIBS], [AC_DEFUN([AC_LIBTOOL_PROG_LD_SHLIBS])]) +m4_ifndef([AC_LIBTOOL_POSTDEP_PREDEP], [AC_DEFUN([AC_LIBTOOL_POSTDEP_PREDEP])]) +m4_ifndef([LT_AC_PROG_EGREP], [AC_DEFUN([LT_AC_PROG_EGREP])]) +m4_ifndef([LT_AC_PROG_SED], [AC_DEFUN([LT_AC_PROG_SED])]) +m4_ifndef([_LT_CC_BASENAME], [AC_DEFUN([_LT_CC_BASENAME])]) +m4_ifndef([_LT_COMPILER_BOILERPLATE], [AC_DEFUN([_LT_COMPILER_BOILERPLATE])]) +m4_ifndef([_LT_LINKER_BOILERPLATE], [AC_DEFUN([_LT_LINKER_BOILERPLATE])]) +m4_ifndef([_AC_PROG_LIBTOOL], [AC_DEFUN([_AC_PROG_LIBTOOL])]) +m4_ifndef([AC_LIBTOOL_SETUP], [AC_DEFUN([AC_LIBTOOL_SETUP])]) +m4_ifndef([_LT_AC_CHECK_DLFCN], [AC_DEFUN([_LT_AC_CHECK_DLFCN])]) +m4_ifndef([AC_LIBTOOL_SYS_DYNAMIC_LINKER], [AC_DEFUN([AC_LIBTOOL_SYS_DYNAMIC_LINKER])]) +m4_ifndef([_LT_AC_TAGCONFIG], [AC_DEFUN([_LT_AC_TAGCONFIG])]) +m4_ifndef([AC_DISABLE_FAST_INSTALL], [AC_DEFUN([AC_DISABLE_FAST_INSTALL])]) +m4_ifndef([_LT_AC_LANG_CXX], [AC_DEFUN([_LT_AC_LANG_CXX])]) +m4_ifndef([_LT_AC_LANG_F77], [AC_DEFUN([_LT_AC_LANG_F77])]) +m4_ifndef([_LT_AC_LANG_GCJ], [AC_DEFUN([_LT_AC_LANG_GCJ])]) +m4_ifndef([AC_LIBTOOL_LANG_C_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_C_CONFIG])]) +m4_ifndef([_LT_AC_LANG_C_CONFIG], [AC_DEFUN([_LT_AC_LANG_C_CONFIG])]) +m4_ifndef([AC_LIBTOOL_LANG_CXX_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_CXX_CONFIG])]) +m4_ifndef([_LT_AC_LANG_CXX_CONFIG], [AC_DEFUN([_LT_AC_LANG_CXX_CONFIG])]) +m4_ifndef([AC_LIBTOOL_LANG_F77_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_F77_CONFIG])]) +m4_ifndef([_LT_AC_LANG_F77_CONFIG], [AC_DEFUN([_LT_AC_LANG_F77_CONFIG])]) +m4_ifndef([AC_LIBTOOL_LANG_GCJ_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_GCJ_CONFIG])]) +m4_ifndef([_LT_AC_LANG_GCJ_CONFIG], [AC_DEFUN([_LT_AC_LANG_GCJ_CONFIG])]) +m4_ifndef([AC_LIBTOOL_LANG_RC_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_RC_CONFIG])]) +m4_ifndef([_LT_AC_LANG_RC_CONFIG], [AC_DEFUN([_LT_AC_LANG_RC_CONFIG])]) +m4_ifndef([AC_LIBTOOL_CONFIG], [AC_DEFUN([AC_LIBTOOL_CONFIG])]) +m4_ifndef([_LT_AC_FILE_LTDLL_C], [AC_DEFUN([_LT_AC_FILE_LTDLL_C])]) +m4_ifndef([_LT_REQUIRED_DARWIN_CHECKS], [AC_DEFUN([_LT_REQUIRED_DARWIN_CHECKS])]) +m4_ifndef([_LT_AC_PROG_CXXCPP], [AC_DEFUN([_LT_AC_PROG_CXXCPP])]) +m4_ifndef([_LT_PREPARE_SED_QUOTE_VARS], [AC_DEFUN([_LT_PREPARE_SED_QUOTE_VARS])]) +m4_ifndef([_LT_PROG_ECHO_BACKSLASH], [AC_DEFUN([_LT_PROG_ECHO_BACKSLASH])]) +m4_ifndef([_LT_PROG_F77], [AC_DEFUN([_LT_PROG_F77])]) +m4_ifndef([_LT_PROG_FC], [AC_DEFUN([_LT_PROG_FC])]) +m4_ifndef([_LT_PROG_CXX], [AC_DEFUN([_LT_PROG_CXX])]) diff --git a/m4/mach-vm.m4 b/m4/mach-vm.m4 new file mode 100644 index 0000000..bb376a1 --- /dev/null +++ b/m4/mach-vm.m4 @@ -0,0 +1,22 @@ +dnl -*- Autoconf -*- +dnl Copyright (C) 1993-2017 Free Software Foundation, Inc. +dnl This file is free software, distributed under the terms of the GNU +dnl General Public License as published by the Free Software Foundation; +dnl either version 2 of the License, or (at your option) any later version. +dnl As a special exception to the GNU General Public License, this file +dnl may be distributed as part of a program that contains a configuration +dnl script generated by Autoconf, under the same distribution terms as +dnl the rest of that program. + +dnl From Bruno Haible, Marcus Daniels, Sam Steingold. + +AC_PREREQ([2.57]) + +AC_DEFUN([CL_MACH_VM], +[ + CL_LINK_CHECK([vm_allocate], + [cl_cv_func_vm], + [], + [vm_allocate(); task_self();], + [AC_DEFINE([HAVE_MACH_VM],[],[have vm_allocate() and task_self() functions])]) +]) diff --git a/m4/mmap.m4 b/m4/mmap.m4 new file mode 100644 index 0000000..d149052 --- /dev/null +++ b/m4/mmap.m4 @@ -0,0 +1,140 @@ +dnl -*- Autoconf -*- +dnl Copyright (C) 1993-2017 Free Software Foundation, Inc. +dnl This file is free software, distributed under the terms of the GNU +dnl General Public License as published by the Free Software Foundation; +dnl either version 2 of the License, or (at your option) any later version. +dnl As a special exception to the GNU General Public License, this file +dnl may be distributed as part of a program that contains a configuration +dnl script generated by Autoconf, under the same distribution terms as +dnl the rest of that program. + +dnl From Bruno Haible, Marcus Daniels, Sam Steingold. + +AC_PREREQ([2.57]) + +AC_DEFUN([FFCALL_MMAP], +[ + AC_REQUIRE([AC_CANONICAL_HOST]) + AC_CHECK_HEADER([sys/mman.h], [], [no_mmap=1]) + if test -z "$no_mmap"; then + AC_CHECK_FUNC([mmap], [], [no_mmap=1]) + if test -z "$no_mmap"; then + AC_DEFINE([HAVE_MMAP], [], [have and the mmap() function]) + AC_CACHE_CHECK([for working mmap], [ffcall_cv_func_mmap_works], + [if test $cross_compiling = no; then + mmap_prog_1=' + #include + #ifdef HAVE_UNISTD_H + #include + #endif + #include + #include + #include + int main () + { + ' + mmap_prog_2=' + if (mmap(NULL,0x100000,PROT_READ|PROT_WRITE,flags,fd,0) == (void*)-1) + exit(1); + exit(0); + } + ' + AC_TRY_RUN(GL_NOCRASH + [$mmap_prog_1 + int flags = MAP_ANON | MAP_PRIVATE; + int fd = -1; + nocrash_init(); + $mmap_prog_2 + ], + [have_mmap_anon=1 + ffcall_cv_func_mmap_anon=yes], + [], + [dnl When cross-compiling, don't assume anything. + : + ]) + AC_TRY_RUN(GL_NOCRASH + [$mmap_prog_1 + int flags = MAP_ANONYMOUS | MAP_PRIVATE; + int fd = -1; + nocrash_init(); + $mmap_prog_2 + ], + [have_mmap_anon=1 + ffcall_cv_func_mmap_anonymous=yes], + [], + [dnl When cross-compiling, don't assume anything. + : + ]) + AC_TRY_RUN(GL_NOCRASH + [$mmap_prog_1 + #ifndef MAP_FILE + #define MAP_FILE 0 + #endif + int flags = MAP_FILE | MAP_PRIVATE; + int fd = open("/dev/zero",O_RDONLY,0666); + if (fd<0) + exit(1); + nocrash_init(); + $mmap_prog_2 + ], + [have_mmap_devzero=1 + ffcall_cv_func_mmap_devzero=yes], + [], + [dnl When cross-compiling, don't assume anything. + : + ]) + if test -n "$have_mmap_anon" -o -n "$have_mmap_devzero"; then + ffcall_cv_func_mmap_works=yes + else + ffcall_cv_func_mmap_works=no + fi + else + dnl When cross-compiling, assume the known behaviour. + dnl If we don't know, don't assume anything. + case "$host_os" in + aix* | cygwin* | darwin* | hpux* | irix* | linux* | solaris*) + ffcall_cv_func_mmap_works="guessing yes" ;; + *) + ffcall_cv_func_mmap_works="guessing no" ;; + esac + case "$host_os" in + aix* | cygwin* | darwin* | linux* | solaris*) + ffcall_cv_func_mmap_anon="guessing yes" ;; + *) + ffcall_cv_func_mmap_anon="guessing no" ;; + esac + case "$host_os" in + aix* | cygwin* | hpux* | linux* | solaris*) + ffcall_cv_func_mmap_anonymous="guessing yes" ;; + *) + ffcall_cv_func_mmap_anonymous="guessing no" ;; + esac + case "$host_os" in + aix* | cygwin* | hpux* | irix* | linux* | solaris*) + ffcall_cv_func_mmap_devzero="guessing yes" ;; + *) + ffcall_cv_func_mmap_devzero="guessing no" ;; + esac + fi + ]) + case "$ffcall_cv_func_mmap_anon" in + *yes) + AC_DEFINE([HAVE_MMAP_ANON], [], + [ defines MAP_ANON and mmaping with MAP_ANON works]) + ;; + esac + case "$ffcall_cv_func_mmap_anonymous" in + *yes) + AC_DEFINE([HAVE_MMAP_ANONYMOUS], [], + [ defines MAP_ANONYMOUS and mmaping with MAP_ANONYMOUS works]) + ;; + esac + case "$ffcall_cv_func_mmap_devzero" in + *yes) + AC_DEFINE([HAVE_MMAP_DEVZERO], [], + [mmaping of the special device /dev/zero works]) + ;; + esac + fi + fi +]) diff --git a/m4/mprotect.m4 b/m4/mprotect.m4 new file mode 100644 index 0000000..6836ed9 --- /dev/null +++ b/m4/mprotect.m4 @@ -0,0 +1,152 @@ +dnl -*- Autoconf -*- +dnl Copyright (C) 1993-2017 Free Software Foundation, Inc. +dnl This file is free software, distributed under the terms of the GNU +dnl General Public License as published by the Free Software Foundation; +dnl either version 2 of the License, or (at your option) any later version. +dnl As a special exception to the GNU General Public License, this file +dnl may be distributed as part of a program that contains a configuration +dnl script generated by Autoconf, under the same distribution terms as +dnl the rest of that program. + +dnl From Bruno Haible, Marcus Daniels, Sam Steingold. + +AC_PREREQ([2.57]) + +AC_DEFUN([FFCALL_MPROTECT], +[ + AC_REQUIRE([CL_GETPAGESIZE]) + AC_REQUIRE([FFCALL_MMAP]) + AC_REQUIRE([AC_CANONICAL_HOST]) + AC_CHECK_FUNCS([mprotect]) + if test $ac_cv_func_mprotect = yes; then + AC_CACHE_CHECK([for working mprotect], [cl_cv_func_mprotect_works], + [if test $cross_compiling = no; then + mprotect_prog=' + #include + /* declare malloc() */ + #include + #ifdef HAVE_UNISTD_H + #include + #endif + /* declare getpagesize() and mprotect() */ + #include + #ifndef HAVE_GETPAGESIZE + #include + #define getpagesize() PAGESIZE + #else + ]AC_LANG_EXTERN[ + RETGETPAGESIZETYPE getpagesize (void); + #endif + char foo; + int main () + { + unsigned long pagesize = getpagesize(); + #define page_align(address) (char*)((unsigned long)(address) & -pagesize) + ' + AC_TRY_RUN( + [$mprotect_prog + if ((pagesize-1) & pagesize) exit(1); + exit(0); + } + ], + [], + [no_mprotect=1], + [dnl When cross-compiling, don't assume anything. + no_mprotect=1 + ]) + mprotect_prog="$mprotect_prog"' + char* area = (char*) malloc(6*pagesize); + char* fault_address = area + pagesize*7/2; + ' + if test -z "$no_mprotect"; then + AC_TRY_RUN(GL_NOCRASH + [$mprotect_prog + nocrash_init(); + if (mprotect(page_align(fault_address),pagesize,PROT_NONE) < 0) + exit(0); + foo = *fault_address; /* this should cause an exception or signal */ + exit(0); + } + ], + [no_mprotect=1], + [], + [dnl When cross-compiling, don't assume anything. + : + ]) + fi + if test -z "$no_mprotect"; then + AC_TRY_RUN(GL_NOCRASH + [$mprotect_prog + nocrash_init(); + if (mprotect(page_align(fault_address),pagesize,PROT_NONE) < 0) + exit(0); + *fault_address = 'z'; /* this should cause an exception or signal */ + exit(0); + } + ], + [no_mprotect=1], + [], + [dnl When cross-compiling, don't assume anything. + : + ]) + fi + if test -z "$no_mprotect"; then + AC_TRY_RUN(GL_NOCRASH + [$mprotect_prog + nocrash_init(); + if (mprotect(page_align(fault_address),pagesize,PROT_READ) < 0) + exit(0); + *fault_address = 'z'; /* this should cause an exception or signal */ + exit(0); + } + ], + [no_mprotect=1], + [], + [dnl When cross-compiling, don't assume anything. + : + ]) + fi + if test -z "$no_mprotect"; then + AC_TRY_RUN(GL_NOCRASH + [$mprotect_prog + nocrash_init(); + if (mprotect(page_align(fault_address),pagesize,PROT_READ) < 0) + exit(1); + if (mprotect(page_align(fault_address),pagesize,PROT_READ|PROT_WRITE) < 0) + exit(1); + *fault_address = 'z'; /* this should not cause an exception or signal */ + exit(0); + } + ], + [], + [no_mprotect=1], + [dnl When cross-compiling, don't assume anything. + : + ]) + fi + if test -z "$no_mprotect"; then + cl_cv_func_mprotect_works=yes + else + cl_cv_func_mprotect_works=no + fi + else + dnl When cross-compiling, assume the known behaviour. + dnl If we don't know, don't assume anything. + case "$host_os" in + aix* | cygwin* | darwin* | hpux* | irix* | linux* | solaris*) + cl_cv_func_mprotect_works="guessing yes" ;; + mingw*) + cl_cv_func_mprotect_works="guessing no" ;; + *) + cl_cv_func_mprotect_works="guessing no" ;; + esac + fi + ]) + case "$cl_cv_func_mprotect_works" in + *yes) + AC_DEFINE([HAVE_WORKING_MPROTECT], [], + [have a working mprotect() function]) + ;; + esac + fi +]) diff --git a/m4/proto.m4 b/m4/proto.m4 new file mode 100644 index 0000000..6c38419 --- /dev/null +++ b/m4/proto.m4 @@ -0,0 +1,33 @@ +dnl -*- Autoconf -*- +dnl Copyright (C) 1993-2017 Free Software Foundation, Inc. +dnl This file is free software, distributed under the terms of the GNU +dnl General Public License as published by the Free Software Foundation; +dnl either version 2 of the License, or (at your option) any later version. +dnl As a special exception to the GNU General Public License, this file +dnl may be distributed as part of a program that contains a configuration +dnl script generated by Autoconf, under the same distribution terms as +dnl the rest of that program. + +dnl From Bruno Haible, Marcus Daniels, Sam Steingold. + +AC_PREREQ([2.13]) + +dnl CL_PROTO(IDENTIFIER, ACTION-IF-NOT-FOUND, FINAL-PROTOTYPE) +AC_DEFUN([CL_PROTO], +[ + AC_MSG_CHECKING([for $1 declaration]) + AC_CACHE_VAL([cl_cv_proto_$1], [$2 + cl_cv_proto_$1="$3"]) + cl_cv_proto_$1=`echo "[$]cl_cv_proto_$1" | tr -s ' ' | sed -e 's/( /(/'` + AC_MSG_RESULT([$]{ac_t:- + }[$][cl_cv_proto_$1]) +]) + +dnl CL_PROTO_RET(INCLUDES, DECL, CACHE-ID, TYPE-IF-OK, TYPE-IF-FAILS) +AC_DEFUN([CL_PROTO_RET], +[ + AC_TRY_COMPILE([$1] +AC_LANG_EXTERN +[$2 +], [], [$3="$4"], [$3="$5"]) +]) diff --git a/m4/shm.m4 b/m4/shm.m4 new file mode 100644 index 0000000..8a34b19 --- /dev/null +++ b/m4/shm.m4 @@ -0,0 +1,80 @@ +dnl -*- Autoconf -*- +dnl Copyright (C) 1993-2017 Free Software Foundation, Inc. +dnl This file is free software, distributed under the terms of the GNU +dnl General Public License as published by the Free Software Foundation; +dnl either version 2 of the License, or (at your option) any later version. +dnl As a special exception to the GNU General Public License, this file +dnl may be distributed as part of a program that contains a configuration +dnl script generated by Autoconf, under the same distribution terms as +dnl the rest of that program. + +dnl From Bruno Haible, Marcus Daniels, Sam Steingold. + +AC_PREREQ([2.57]) + +AC_DEFUN([CL_SHM_H], +[ + AC_BEFORE([$0], [CL_SHM_RMID]) + AC_CHECK_HEADERS([sys/shm.h]) + if test $ac_cv_header_sys_shm_h = yes; then + AC_CHECK_HEADERS([sys/ipc.h]) + fi +]) + +AC_DEFUN([CL_SHM], +[ + AC_BEFORE([$0], [CL_SHM_RMID]) + AC_REQUIRE([CL_SHM_H]) + AC_REQUIRE([AC_CANONICAL_HOST]) + if test $ac_cv_header_sys_shm_h = yes -a "$ac_cv_header_sys_ipc_h" = yes; then + # This test is from Marcus Daniels + AC_CACHE_CHECK([for working shared memory], [cl_cv_sys_shm_works], + [AC_TRY_RUN( + [#include + #include + #include + #include + /* try attaching a single segment to multiple addresses */ + #define segsize 0x10000 + #define attaches 128 + #define base_addr 0x01000000 + int main () + { + int shmid; + int i; + char* addr; + char* result; + if ((shmid = shmget(IPC_PRIVATE,segsize,0400)) < 0) + exit(1); + for (i=0, addr = (char*)0x01000000; i and and shared memory works]) + AC_CHECK_HEADERS([sys/sysmacros.h]) + ;; + *) ;; + esac +]) diff --git a/m4/smallstruct.m4 b/m4/smallstruct.m4 new file mode 100644 index 0000000..48e2dc9 --- /dev/null +++ b/m4/smallstruct.m4 @@ -0,0 +1,66 @@ +dnl -*- Autoconf -*- +dnl Copyright (C) 1993-2017 Free Software Foundation, Inc. +dnl This file is free software, distributed under the terms of the GNU +dnl General Public License as published by the Free Software Foundation; +dnl either version 2 of the License, or (at your option) any later version. +dnl As a special exception to the GNU General Public License, this file +dnl may be distributed as part of a program that contains a configuration +dnl script generated by Autoconf, under the same distribution terms as +dnl the rest of that program. + +dnl From Bruno Haible, Marcus Daniels, Sam Steingold. + +AC_PREREQ([2.13]) + +AC_DEFUN([SSR_DOC],[whether small structs are returned in registers]) +AC_DEFUN([FFCALL_SMALL_STRUCT_RETURN], +[ + AC_REQUIRE([AC_CANONICAL_HOST]) + AC_REQUIRE([gl_HOST_CPU_C_ABI]) + AC_CACHE_CHECK([SSR_DOC], [ffcall_cv_c_struct_return_small], + [AC_TRY_RUN(GL_NOCRASH + [typedef struct { long x; } foo; + long y; + foo foofun () { foo f; f.x = y; return f; } + long (*fun) () = (long (*) ()) foofun; + int main() + { nocrash_init(); + y = 37; if ((*fun)() != 37) return 1; + y = 55; if ((*fun)() != 55) return 1; + return 0; + } + ], + [ffcall_cv_c_struct_return_small=yes], + [ffcall_cv_c_struct_return_small=no], + [dnl When cross-compiling, guess depending on the ABI. + dnl If we don't know, don't assume anything. There are even weirder + dnl return value passing conventions than pcc. + case "$HOST_CPU_C_ABI" in + alpha) ffcall_cv_c_struct_return_small="guessing no" ;; + arm | armhf | arm64) ffcall_cv_c_struct_return_small="guessing yes" ;; + hppa | hppa64) ffcall_cv_c_struct_return_small="guessing yes" ;; + i386) + case "$host_os" in + cygwin* | darwin* | mingw*) ffcall_cv_c_struct_return_small="guessing yes" ;; + linux* | solaris*) ffcall_cv_c_struct_return_small="guessing no" ;; + *) ffcall_cv_c_struct_return_small="guessing no" ;; + esac + ;; + ia64) ffcall_cv_c_struct_return_small="guessing yes" ;; + mips | mipsn32) ffcall_cv_c_struct_return_small="guessing no" ;; + mips64) ffcall_cv_c_struct_return_small="guessing yes" ;; + powerpc | powerpc64) ffcall_cv_c_struct_return_small="guessing no" ;; + powerpc64-elfv2) ffcall_cv_c_struct_return_small="guessing yes" ;; + s390 | s390x) ffcall_cv_c_struct_return_small="guessing no" ;; + sparc) ffcall_cv_c_struct_return_small="guessing no" ;; + sparc64) ffcall_cv_c_struct_return_small="guessing yes" ;; + x86_64) ffcall_cv_c_struct_return_small="guessing yes" ;; + *) ffcall_cv_c_struct_return_small="guessing no" ;; + esac + ]) + ]) + case "$ffcall_cv_c_struct_return_small" in + *yes) AC_DEFINE([__SMALL_STRUCT_RETURN__], [], SSR_DOC) ;; + *no) ;; + esac +]) diff --git a/testcases.c b/testcases.c new file mode 100644 index 0000000..084693c --- /dev/null +++ b/testcases.c @@ -0,0 +1,807 @@ +/* + * Copyright 1993 Bill Triggs + * Copyright 1995-2019 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +/* This file defines test functions of selected signatures, that exercise + dark corners of the various ABIs. */ + +#include + +FILE* out; + +#define uchar unsigned char +#define ushort unsigned short +#define uint unsigned int +#define ulong unsigned long + +typedef struct { char x; } Char; +typedef struct { short x; } Short; +typedef struct { int x; } Int; +typedef struct { long x; } Long; +typedef struct { float x; } Float; +typedef struct { double x; } Double; +typedef struct { char c; float f; } A; +typedef struct { double d; int i[3]; } B; +typedef struct { long l1; long l2; } J; +typedef struct { long l1; long l2; long l3; long l4; } K; +typedef struct { long l1; long l2; long l3; long l4; long l5; long l6; } L; +typedef struct { char x1; } Size1; +typedef struct { char x1; char x2; } Size2; +typedef struct { char x1; char x2; char x3; } Size3; +typedef struct { char x1; char x2; char x3; char x4; } Size4; +typedef struct { + char x1; char x2; char x3; char x4; char x5; char x6; char x7; +} Size7; +typedef struct { + char x1; char x2; char x3; char x4; char x5; char x6; char x7; char x8; +} Size8; +typedef struct { + char x1; char x2; char x3; char x4; char x5; char x6; char x7; char x8; + char x9; char x10; char x11; char x12; +} Size12; +typedef struct { + char x1; char x2; char x3; char x4; char x5; char x6; char x7; char x8; + char x9; char x10; char x11; char x12; char x13; char x14; char x15; +} Size15; +typedef struct { + char x1; char x2; char x3; char x4; char x5; char x6; char x7; char x8; + char x9; char x10; char x11; char x12; char x13; char x14; char x15; char x16; +} Size16; +typedef struct { char c[3]; } T; +typedef struct { char c[33],c1; } X; + +char c1='a', c2=127, c3=(char)128, c4=(char)255, c5=-1; +short s1=32767, s2=(short)32768, s3=3, s4=4, s5=5, s6=6, s7=7, s8=8, s9=9; +int i1=1, i2=2, i3=3, i4=4, i5=5, i6=6, i7=7, i8=8, i9=9, i10=11, i11=12, + i12=13, i13=14, i14=15, i15=16, i16=17, i17=18, i18=19, i19=20, i20=21, + i21=22, i22=23, i23=24, i24=25, i25=26, i26=27, i27=28, i28=29, i29=30, + i30=31, i31=32, i32=33; +long l1=1, l2=2, l3=3, l4=4, l5=5, l6=6, l7=7, l8=8, l9=9; +long long ll1 = 3875056143130689530LL; +float f1=0.1, f2=0.2, f3=0.3, f4=0.4, f5=0.5, f6=0.6, f7=0.7, f8=0.8, f9=0.9, + f10=1.1, f11=1.2, f12=1.3, f13=1.4, f14=1.5, f15=1.6, f16=1.7, f17=1.8, + f18=1.9, f19=2.1, f20=2.2, f21=2.3, f22=2.4, f23=2.5, f24=2.6; +double d1=0.1, d2=0.2, d3=0.3, d4=0.4, d5=0.5, d6=0.6, d7=0.7, d8=0.8, d9=0.9, + d10=1.1, d11=1.2, d12=1.3, d13=1.4, d14=1.5, d15=1.6, d16=1.7, d17=1.8; + +uchar uc1='a', uc2=127, uc3=128, uc4=255, uc5=(uchar)-1; +ushort us1=1, us2=2, us3=3, us4=4, us5=5, us6=6, us7=7, us8=8, us9=9; +uint ui1=1, ui2=2, ui3=3, ui4=4, ui5=5, ui6=6, ui7=7, ui8=8, ui9=9; +ulong ul1=1, ul2=2, ul3=3, ul4=4, ul5=5, ul6=6, ul7=7, ul8=8, ul9=9; + +char *str1="hello",str2[]="goodbye",*str3="still here?"; +Char C1={'A'}, C2={'B'}, C3={'C'}, C4={'\377'}, C5={(char)(-1)}; +Short S1={1}, S2={2}, S3={3}, S4={4}, S5={5}, S6={6}, S7={7}, S8={8}, S9={9}; +Int I1={1}, I2={2}, I3={3}, I4={4}, I5={5}, I6={6}, I7={7}, I8={8}, I9={9}; +Float F1={0.1}, F2={0.2}, F3={0.3}, F4={0.4}, F5={0.5}, F6={0.6}, F7={0.7}, F8={0.8}, F9={0.9}; +Double D1={0.1}, D2={0.2}, D3={0.3}, D4={0.4}, D5={0.5}, D6={0.6}, D7={0.7}, D8={0.8}, D9={0.9}; + +A A1={'a',0.1},A2={'b',0.2},A3={'\377',0.3}; +B B1={0.1,{1,2,3}},B2={0.2,{5,4,3}}; +J J1={47,11},J2={73,55}; +K K1={19,69,12,28}; +L L1={561,1105,1729,2465,2821,6601}; /* A002997 */ +Size1 Size1_1={'a'}; +Size2 Size2_1={'a','b'}; +Size3 Size3_1={'a','b','c'}; +Size4 Size4_1={'a','b','c','d'}; +Size7 Size7_1={'a','b','c','d','e','f','g'}; +Size8 Size8_1={'a','b','c','d','e','f','g','h'}; +Size12 Size12_1={'a','b','c','d','e','f','g','h','i','j','k','l'}; +Size15 Size15_1={'a','b','c','d','e','f','g','h','i','j','k','l','m','n','o'}; +Size16 Size16_1={'a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p'}; +T T1={'t','h','e'},T2={'f','o','x'}; +X X1={"abcdefghijklmnopqrstuvwxyzABCDEF",'G'}, X2={"123",'9'}, X3={"return-return-return",'R'}; + +/* void tests */ +void v_v (void) +{ + fprintf(out,"void f(void):\n"); + fflush(out); +} + +/* int tests */ +int i_v (void) +{ + int r=99; + fprintf(out,"int f(void):"); + fflush(out); + return r; +} +int i_i (int a) +{ + int r=a+1; + fprintf(out,"int f(int):(%d)",a); + fflush(out); + return r; +} +int i_i2 (int a, int b) +{ + int r=a+b; + fprintf(out,"int f(2*int):(%d,%d)",a,b); + fflush(out); + return r; +} +int i_i4 (int a, int b, int c, int d) +{ + int r=a+b+c+d; + fprintf(out,"int f(4*int):(%d,%d,%d,%d)",a,b,c,d); + fflush(out); + return r; +} +int i_i8 (int a, int b, int c, int d, int e, int f, int g, int h) +{ + int r=a+b+c+d+e+f+g+h; + fprintf(out,"int f(8*int):(%d,%d,%d,%d,%d,%d,%d,%d)",a,b,c,d,e,f,g,h); + fflush(out); + return r; +} +int i_i16 (int a, int b, int c, int d, int e, int f, int g, int h, + int i, int j, int k, int l, int m, int n, int o, int p) +{ + int r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p; + fprintf(out,"int f(16*int):(%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d)", + a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p); + fflush(out); + return r; +} +int i_i32 (int a, int b, int c, int d, int e, int f, int g, int h, + int i, int j, int k, int l, int m, int n, int o, int p, + int aa, int ab, int ac, int ad, int ae, int af, int ag, int ah, + int ai, int aj, int ak, int al, int am, int an, int ao, int ap) +{ + int r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+aa+ab+ac+ad+ae+af+ag+ah+ai+aj+ak+al+am+an+ao+ap; + fprintf(out,"int f(32*int):(%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d)", + a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,aa,ab,ac,ad,ae,af,ag,ah,ai,aj,ak,al,am,an,ao,ap); + fflush(out); + return r; +} + +/* float tests */ +float f_f (float a) +{ + float r=a+1.0; + fprintf(out,"float f(float):(%g)",a); + fflush(out); + return r; +} +float f_f2 (float a, float b) +{ + float r=a+b; + fprintf(out,"float f(2*float):(%g,%g)",a,b); + fflush(out); + return r; +} +float f_f4 (float a, float b, float c, float d) +{ + float r=a+b+c+d; + fprintf(out,"float f(4*float):(%g,%g,%g,%g)",a,b,c,d); + fflush(out); + return r; +} +float f_f8 (float a, float b, float c, float d, float e, float f, + float g, float h) +{ + float r=a+b+c+d+e+f+g+h; + fprintf(out,"float f(8*float):(%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h); + fflush(out); + return r; +} +float f_f16 (float a, float b, float c, float d, float e, float f, float g, float h, + float i, float j, float k, float l, float m, float n, float o, float p) +{ + float r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p; + fprintf(out,"float f(16*float):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p); + fflush(out); + return r; +} +float f_f24 (float a, float b, float c, float d, float e, float f, float g, float h, + float i, float j, float k, float l, float m, float n, float o, float p, + float q, float s, float t, float u, float v, float w, float x, float y) +{ + float r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+s+t+u+v+w+x+y; + fprintf(out,"float f(24*float):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,s,t,u,v,w,x,y); + fflush(out); + return r; +} + +/* double tests */ +double d_d (double a) +{ + double r=a+1.0; + fprintf(out,"double f(double):(%g)",a); + fflush(out); + return r; +} +double d_d2 (double a, double b) +{ + double r=a+b; + fprintf(out,"double f(2*double):(%g,%g)",a,b); + fflush(out); + return r; +} +double d_d4 (double a, double b, double c, double d) +{ + double r=a+b+c+d; + fprintf(out,"double f(4*double):(%g,%g,%g,%g)",a,b,c,d); + fflush(out); + return r; +} +double d_d8 (double a, double b, double c, double d, double e, double f, + double g, double h) +{ + double r=a+b+c+d+e+f+g+h; + fprintf(out,"double f(8*double):(%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h); + fflush(out); + return r; +} +double d_d16 (double a, double b, double c, double d, double e, double f, + double g, double h, double i, double j, double k, double l, + double m, double n, double o, double p) +{ + double r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p; + fprintf(out,"double f(16*double):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p); + fflush(out); + return r; +} + +/* pointer tests */ +void* vp_vpdpcpsp (void* a, double* b, char* c, Int* d) +{ + void* ret = (char*)b + 1; + fprintf(out,"void* f(void*,double*,char*,Int*):(0x%p,0x%p,0x%p,0x%p)",a,b,c,d); + fflush(out); + return ret; +} + +/* mixed number tests */ +uchar uc_ucsil (uchar a, ushort b, uint c, ulong d) +{ + uchar r = (uchar)-1; + fprintf(out,"uchar f(uchar,ushort,uint,ulong):(%u,%u,%u,%lu)",a,b,c,d); + fflush(out); + return r; +} +double d_iidd (int a, int b, double c, double d) +{ + double r = a+b+c+d; + fprintf(out,"double f(int,int,double,double):(%d,%d,%g,%g)",a,b,c,d); + fflush(out); + return r; +} +double d_iiidi (int a, int b, int c, double d, int e) +{ + double r = a+b+c+d+e; + fprintf(out,"double f(int,int,int,double,int):(%d,%d,%d,%g,%d)",a,b,c,d,e); + fflush(out); + return r; +} +double d_idid (int a, double b, int c, double d) +{ + double r = a+b+c+d; + fprintf(out,"double f(int,double,int,double):(%d,%g,%d,%g)",a,b,c,d); + fflush(out); + return r; +} +double d_fdi (float a, double b, int c) +{ + double r = a+b+c; + fprintf(out,"double f(float,double,int):(%g,%g,%d)",a,b,c); + fflush(out); + return r; +} +ushort us_cdcd (char a, double b, char c, double d) +{ + ushort r = (ushort)(a + b + c + d); + fprintf(out,"ushort f(char,double,char,double):('%c',%g,'%c',%g)",a,b,c,d); + fflush(out); + return r; +} + +long long ll_iiilli (int a, int b, int c, long long d, int e) +{ + long long r = (long long)(int)a+(long long)(int)b+(long long)(int)c+d+(long long)(int)e; + fprintf(out,"long long f(int,int,int,long long,int):(%d,%d,%d,0x%lx%08lx,%d)",a,b,c,(long)(d>>32),(long)(d&0xffffffff),e); + fflush(out); + return r; +} +long long ll_flli (float a, long long b, int c) +{ + long long r = (long long)(int)a + b + (long long)c; + fprintf(out,"long long f(float,long long,int):(%g,0x%lx%08lx,0x%lx)",a,(long)(b>>32),(long)(b&0xffffffff),(long)c); + fflush(out); + return r; +} + +float f_fi (float a, int z) +{ + float r = a+z; + fprintf(out,"float f(float,int):(%g,%d)",a,z); + fflush(out); + return r; +} +float f_f2i (float a, float b, int z) +{ + float r = a+b+z; + fprintf(out,"float f(2*float,int):(%g,%g,%d)",a,b,z); + fflush(out); + return r; +} +float f_f3i (float a, float b, float c, int z) +{ + float r = a+b+c+z; + fprintf(out,"float f(3*float,int):(%g,%g,%g,%d)",a,b,c,z); + fflush(out); + return r; +} +float f_f4i (float a, float b, float c, float d, int z) +{ + float r = a+b+c+d+z; + fprintf(out,"float f(4*float,int):(%g,%g,%g,%g,%d)",a,b,c,d,z); + fflush(out); + return r; +} +float f_f7i (float a, float b, float c, float d, float e, float f, float g, + int z) +{ + float r = a+b+c+d+e+f+g+z; + fprintf(out,"float f(7*float,int):(%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,z); + fflush(out); + return r; +} +float f_f8i (float a, float b, float c, float d, float e, float f, float g, + float h, int z) +{ + float r = a+b+c+d+e+f+g+h+z; + fprintf(out,"float f(8*float,int):(%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,z); + fflush(out); + return r; +} +float f_f12i (float a, float b, float c, float d, float e, float f, float g, + float h, float i, float j, float k, float l, int z) +{ + float r = a+b+c+d+e+f+g+h+i+j+k+l+z; + fprintf(out,"float f(12*float,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,z); + fflush(out); + return r; +} +float f_f13i (float a, float b, float c, float d, float e, float f, float g, + float h, float i, float j, float k, float l, float m, int z) +{ + float r = a+b+c+d+e+f+g+h+i+j+k+l+m+z; + fprintf(out,"float f(13*float,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,m,z); + fflush(out); + return r; +} + +double d_di (double a, int z) +{ + double r = a+z; + fprintf(out,"double f(double,int):(%g,%d)",a,z); + fflush(out); + return r; +} +double d_d2i (double a, double b, int z) +{ + double r = a+b+z; + fprintf(out,"double f(2*double,int):(%g,%g,%d)",a,b,z); + fflush(out); + return r; +} +double d_d3i (double a, double b, double c, int z) +{ + double r = a+b+c+z; + fprintf(out,"double f(3*double,int):(%g,%g,%g,%d)",a,b,c,z); + fflush(out); + return r; +} +double d_d4i (double a, double b, double c, double d, int z) +{ + double r = a+b+c+d+z; + fprintf(out,"double f(4*double,int):(%g,%g,%g,%g,%d)",a,b,c,d,z); + fflush(out); + return r; +} +double d_d7i (double a, double b, double c, double d, double e, double f, + double g, int z) +{ + double r = a+b+c+d+e+f+g+z; + fprintf(out,"double f(7*double,int):(%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,z); + fflush(out); + return r; +} +double d_d8i (double a, double b, double c, double d, double e, double f, + double g, double h, int z) +{ + double r = a+b+c+d+e+f+g+h+z; + fprintf(out,"double f(8*double,int):(%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,z); + fflush(out); + return r; +} +double d_d12i (double a, double b, double c, double d, double e, double f, + double g, double h, double i, double j, double k, double l, + int z) +{ + double r = a+b+c+d+e+f+g+h+i+j+k+l+z; + fprintf(out,"double f(12*double,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,z); + fflush(out); + return r; +} +double d_d13i (double a, double b, double c, double d, double e, double f, + double g, double h, double i, double j, double k, double l, + double m, int z) +{ + double r = a+b+c+d+e+f+g+h+i+j+k+l+m+z; + fprintf(out,"double f(13*double,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,m,z); + fflush(out); + return r; +} + +/* small structure return tests */ +Size1 S1_v (void) +{ + fprintf(out,"Size1 f(void):"); + fflush(out); + return Size1_1; +} +Size2 S2_v (void) +{ + fprintf(out,"Size2 f(void):"); + fflush(out); + return Size2_1; +} +Size3 S3_v (void) +{ + fprintf(out,"Size3 f(void):"); + fflush(out); + return Size3_1; +} +Size4 S4_v (void) +{ + fprintf(out,"Size4 f(void):"); + fflush(out); + return Size4_1; +} +Size7 S7_v (void) +{ + fprintf(out,"Size7 f(void):"); + fflush(out); + return Size7_1; +} +Size8 S8_v (void) +{ + fprintf(out,"Size8 f(void):"); + fflush(out); + return Size8_1; +} +Size12 S12_v (void) +{ + fprintf(out,"Size12 f(void):"); + fflush(out); + return Size12_1; +} +Size15 S15_v (void) +{ + fprintf(out,"Size15 f(void):"); + fflush(out); + return Size15_1; +} +Size16 S16_v (void) +{ + fprintf(out,"Size16 f(void):"); + fflush(out); + return Size16_1; +} + +/* structure tests */ +Int I_III (Int a, Int b, Int c) +{ + Int r; + r.x = a.x + b.x + c.x; + fprintf(out,"Int f(Int,Int,Int):({%d},{%d},{%d})",a.x,b.x,c.x); + fflush(out); + return r; +} +Char C_CdC (Char a, double b, Char c) +{ + Char r; + r.x = (a.x + c.x)/2; + fprintf(out,"Char f(Char,double,Char):({'%c'},%g,{'%c'})",a.x,b,c.x); + fflush(out); + return r; +} +Float F_Ffd (Float a, float b, double c) +{ + Float r; + r.x = a.x + b + c; + fprintf(out,"Float f(Float,float,double):({%g},%g,%g)",a.x,b,c); + fflush(out); + return r; +} +Double D_fDd (float a, Double b, double c) +{ + Double r; + r.x = a + b.x + c; + fprintf(out,"Double f(float,Double,double):(%g,{%g},%g)",a,b.x,c); + fflush(out); + return r; +} +Double D_Dfd (Double a, float b, double c) +{ + Double r; + r.x = a.x + b + c; + fprintf(out,"Double f(Double,float,double):({%g},%g,%g)",a.x,b,c); + fflush(out); + return r; +} +J J_JiJ (J a, int b, J c) +{ + J r; + r.l1 = a.l1+c.l1; r.l2 = a.l2+b+c.l2; + fprintf(out,"J f(J,int,J):({%ld,%ld},%d,{%ld,%ld})",a.l1,a.l2,b,c.l1,c.l2); + fflush(out); + return r; +} +T T_TcT (T a, char b, T c) +{ + T r; + r.c[0]='b'; r.c[1]=c.c[1]; r.c[2]=c.c[2]; + fprintf(out,"T f(T,char,T):({\"%c%c%c\"},'%c',{\"%c%c%c\"})",a.c[0],a.c[1],a.c[2],b,c.c[0],c.c[1],c.c[2]); + fflush(out); + return r; +} +X X_BcdB (B a, char b, double c, B d) +{ + static X xr={"return val",'R'}; + X r; + r = xr; + r.c1 = b; + fprintf(out,"X f(B,char,double,B):({%g,{%d,%d,%d}},'%c',%g,{%g,{%d,%d,%d}})", + a.d,a.i[0],a.i[1],a.i[2],b,c,d.d,d.i[0],d.i[1],d.i[2]); + fflush(out); + return r; +} + +/* Test for cases where some argument (especially structure, 'long long', or + 'double') may be passed partially in general-purpose argument registers + and partially on the stack. Different ABIs pass between 4 and 8 arguments + (or none) in general-purpose argument registers. */ + +long l_l0J (J b, long c) +{ + long r = b.l1 + b.l2 + c; + fprintf(out,"long f(J,long):(%ld,%ld,%ld)",b.l1,b.l2,c); + fflush(out); + return r; +} +long l_l1J (long a1, J b, long c) +{ + long r = a1 + b.l1 + b.l2 + c; + fprintf(out,"long f(long,J,long):(%ld,%ld,%ld,%ld)",a1,b.l1,b.l2,c); + fflush(out); + return r; +} +long l_l2J (long a1, long a2, J b, long c) +{ + long r = a1 + a2 + b.l1 + b.l2 + c; + fprintf(out,"long f(2*long,J,long):(%ld,%ld,%ld,%ld,%ld)",a1,a2,b.l1,b.l2,c); + fflush(out); + return r; +} +long l_l3J (long a1, long a2, long a3, J b, long c) +{ + long r = a1 + a2 + a3 + b.l1 + b.l2 + c; + fprintf(out,"long f(3*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,b.l1,b.l2,c); + fflush(out); + return r; +} +long l_l4J (long a1, long a2, long a3, long a4, J b, long c) +{ + long r = a1 + a2 + a3 + a4 + b.l1 + b.l2 + c; + fprintf(out,"long f(4*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,b.l1,b.l2,c); + fflush(out); + return r; +} +long l_l5J (long a1, long a2, long a3, long a4, long a5, J b, long c) +{ + long r = a1 + a2 + a3 + a4 + a5 + b.l1 + b.l2 + c; + fprintf(out,"long f(5*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,b.l1,b.l2,c); + fflush(out); + return r; +} +long l_l6J (long a1, long a2, long a3, long a4, long a5, long a6, J b, long c) +{ + long r = a1 + a2 + a3 + a4 + a5 + a6 + b.l1 + b.l2 + c; + fprintf(out,"long f(6*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,a6,b.l1,b.l2,c); + fflush(out); + return r; +} +long l_l7J (long a1, long a2, long a3, long a4, long a5, long a6, long a7, J b, long c) +{ + long r = a1 + a2 + a3 + a4 + a5 + a6 + a7 + b.l1 + b.l2 + c; + fprintf(out,"long f(7*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,a6,a7,b.l1,b.l2,c); + fflush(out); + return r; +} +long l_l0K (K b, long c) +{ + long r = b.l1 + b.l2 + b.l3 + b.l4 + c; + fprintf(out,"long f(K,long):(%ld,%ld,%ld,%ld,%ld)",b.l1,b.l2,b.l3,b.l4,c); + fflush(out); + return r; +} +long l_l1K (long a1, K b, long c) +{ + long r = a1 + b.l1 + b.l2 + b.l3 + b.l4 + c; + fprintf(out,"long f(long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld)",a1,b.l1,b.l2,b.l3,b.l4,c); + fflush(out); + return r; +} +long l_l2K (long a1, long a2, K b, long c) +{ + long r = a1 + a2 + b.l1 + b.l2 + b.l3 + b.l4 + c; + fprintf(out,"long f(2*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,b.l1,b.l2,b.l3,b.l4,c); + fflush(out); + return r; +} +long l_l3K (long a1, long a2, long a3, K b, long c) +{ + long r = a1 + a2 + a3 + b.l1 + b.l2 + b.l3 + b.l4 + c; + fprintf(out,"long f(3*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,b.l1,b.l2,b.l3,b.l4,c); + fflush(out); + return r; +} +long l_l4K (long a1, long a2, long a3, long a4, K b, long c) +{ + long r = a1 + a2 + a3 + a4 + b.l1 + b.l2 + b.l3 + b.l4 + c; + fprintf(out,"long f(4*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,b.l1,b.l2,b.l3,b.l4,c); + fflush(out); + return r; +} +long l_l5K (long a1, long a2, long a3, long a4, long a5, K b, long c) +{ + long r = a1 + a2 + a3 + a4 + a5 + b.l1 + b.l2 + b.l3 + b.l4 + c; + fprintf(out,"long f(5*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,b.l1,b.l2,b.l3,b.l4,c); + fflush(out); + return r; +} +long l_l6K (long a1, long a2, long a3, long a4, long a5, long a6, K b, long c) +{ + long r = a1 + a2 + a3 + a4 + a5 + a6 + b.l1 + b.l2 + b.l3 + b.l4 + c; + fprintf(out,"long f(6*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,a6,b.l1,b.l2,b.l3,b.l4,c); + fflush(out); + return r; +} +/* These tests is crafted on the knowledge that for all known ABIs: + * 17 > number of floating-point argument registers, + * 3 < number of general-purpose argument registers < 3 + 6. */ +float f_f17l3L (float a, float b, float c, float d, float e, float f, float g, + float h, float i, float j, float k, float l, float m, float n, + float o, float p, float q, + long s, long t, long u, L z) +{ + float r = a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+s+t+u+z.l1+z.l2+z.l3+z.l4+z.l5+z.l6; + fprintf(out,"float f(17*float,3*int,L):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,s,t,u,z.l1,z.l2,z.l3,z.l4,z.l5,z.l6); + fflush(out); + return r; +} +double d_d17l3L (double a, double b, double c, double d, double e, double f, + double g, double h, double i, double j, double k, double l, + double m, double n, double o, double p, double q, + long s, long t, long u, L z) +{ + double r = a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+s+t+u+z.l1+z.l2+z.l3+z.l4+z.l5+z.l6; + fprintf(out,"double f(17*double,3*int,L):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,s,t,u,z.l1,z.l2,z.l3,z.l4,z.l5,z.l6); + fflush(out); + return r; +} + +long long ll_l2ll (long a1, long a2, long long b, long c) +{ + long long r = (long long) (a1 + a2) + b + c; + fprintf(out,"long long f(2*long,long long,long):(%ld,%ld,0x%lx%08lx,%ld)",a1,a2,(long)(b>>32),(long)(b&0xffffffff),c); + fflush(out); + return r; +} +long long ll_l3ll (long a1, long a2, long a3, long long b, long c) +{ + long long r = (long long) (a1 + a2 + a3) + b + c; + fprintf(out,"long long f(3*long,long long,long):(%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,(long)(b>>32),(long)(b&0xffffffff),c); + fflush(out); + return r; +} +long long ll_l4ll (long a1, long a2, long a3, long a4, long long b, long c) +{ + long long r = (long long) (a1 + a2 + a3 + a4) + b + c; + fprintf(out,"long long f(4*long,long long,long):(%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,(long)(b>>32),(long)(b&0xffffffff),c); + fflush(out); + return r; +} +long long ll_l5ll (long a1, long a2, long a3, long a4, long a5, long long b, long c) +{ + long long r = (long long) (a1 + a2 + a3 + a4 + a5) + b + c; + fprintf(out,"long long f(5*long,long long,long):(%ld,%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,a5,(long)(b>>32),(long)(b&0xffffffff),c); + fflush(out); + return r; +} +long long ll_l6ll (long a1, long a2, long a3, long a4, long a5, long a6, long long b, long c) +{ + long long r = (long long) (a1 + a2 + a3 + a4 + a5 + a6) + b + c; + fprintf(out,"long long f(6*long,long long,long):(%ld,%ld,%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,a5,a6,(long)(b>>32),(long)(b&0xffffffff),c); + fflush(out); + return r; +} +long long ll_l7ll (long a1, long a2, long a3, long a4, long a5, long a6, long a7, long long b, long c) +{ + long long r = (long long) (a1 + a2 + a3 + a4 + a5 + a6 + a7) + b + c; + fprintf(out,"long long f(7*long,long long,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,a5,a6,a7,(long)(b>>32),(long)(b&0xffffffff),c); + fflush(out); + return r; +} + +double d_l2d (long a1, long a2, double b, long c) +{ + double r = (double) (a1 + a2) + b + c; + fprintf(out,"double f(2*long,double,long):(%ld,%ld,%g,%ld)",a1,a2,b,c); + fflush(out); + return r; +} +double d_l3d (long a1, long a2, long a3, double b, long c) +{ + double r = (double) (a1 + a2 + a3) + b + c; + fprintf(out,"double f(3*long,double,long):(%ld,%ld,%ld,%g,%ld)",a1,a2,a3,b,c); + fflush(out); + return r; +} +double d_l4d (long a1, long a2, long a3, long a4, double b, long c) +{ + double r = (double) (a1 + a2 + a3 + a4) + b + c; + fprintf(out,"double f(4*long,double,long):(%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,b,c); + fflush(out); + return r; +} +double d_l5d (long a1, long a2, long a3, long a4, long a5, double b, long c) +{ + double r = (double) (a1 + a2 + a3 + a4 + a5) + b + c; + fprintf(out,"double f(5*long,double,long):(%ld,%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,a5,b,c); + fflush(out); + return r; +} +double d_l6d (long a1, long a2, long a3, long a4, long a5, long a6, double b, long c) +{ + double r = (double) (a1 + a2 + a3 + a4 + a5 + a6) + b + c; + fprintf(out,"double f(6*long,double,long):(%ld,%ld,%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,a5,a6,b,c); + fflush(out); + return r; +} +double d_l7d (long a1, long a2, long a3, long a4, long a5, long a6, long a7, double b, long c) +{ + double r = (double) (a1 + a2 + a3 + a4 + a5 + a6 + a7) + b + c; + fprintf(out,"double f(7*long,double,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,a5,a6,a7,b,c); + fflush(out); + return r; +} + +/* This function is used to verify that structs larger than 2 words are really + passed by value, not accidentally by reference. */ +void v_clobber_K (K k) +{ + k.l1 += 1; + k.l2 += 10; + k.l3 += 100; + k.l4 += 1000; +} diff --git a/trampoline/COPYING b/trampoline/COPYING new file mode 100644 index 0000000..a3d1815 --- /dev/null +++ b/trampoline/COPYING @@ -0,0 +1,340 @@ + GNU GENERAL PUBLIC LICENSE + Version 2, June 1991 + + Copyright (C) 1989, 1991 Free Software Foundation, Inc. + 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + + Preamble + + The licenses for most software are designed to take away your +freedom to share and change it. By contrast, the GNU General Public +License is intended to guarantee your freedom to share and change free +software--to make sure the software is free for all its users. This +General Public License applies to most of the Free Software +Foundation's software and to any other program whose authors commit to +using it. (Some other Free Software Foundation software is covered by +the GNU Library General Public License instead.) You can apply it to +your programs, too. + + When we speak of free software, we are referring to freedom, not +price. Our General Public Licenses are designed to make sure that you +have the freedom to distribute copies of free software (and charge for +this service if you wish), that you receive source code or can get it +if you want it, that you can change the software or use pieces of it +in new free programs; and that you know you can do these things. + + To protect your rights, we need to make restrictions that forbid +anyone to deny you these rights or to ask you to surrender the rights. +These restrictions translate to certain responsibilities for you if you +distribute copies of the software, or if you modify it. + + For example, if you distribute copies of such a program, whether +gratis or for a fee, you must give the recipients all the rights that +you have. You must make sure that they, too, receive or can get the +source code. And you must show them these terms so they know their +rights. + + We protect your rights with two steps: (1) copyright the software, and +(2) offer you this license which gives you legal permission to copy, +distribute and/or modify the software. + + Also, for each author's protection and ours, we want to make certain +that everyone understands that there is no warranty for this free +software. If the software is modified by someone else and passed on, we +want its recipients to know that what they have is not the original, so +that any problems introduced by others will not reflect on the original +authors' reputations. + + Finally, any free program is threatened constantly by software +patents. We wish to avoid the danger that redistributors of a free +program will individually obtain patent licenses, in effect making the +program proprietary. To prevent this, we have made it clear that any +patent must be licensed for everyone's free use or not licensed at all. + + The precise terms and conditions for copying, distribution and +modification follow. + + GNU GENERAL PUBLIC LICENSE + TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION + + 0. This License applies to any program or other work which contains +a notice placed by the copyright holder saying it may be distributed +under the terms of this General Public License. The "Program", below, +refers to any such program or work, and a "work based on the Program" +means either the Program or any derivative work under copyright law: +that is to say, a work containing the Program or a portion of it, +either verbatim or with modifications and/or translated into another +language. (Hereinafter, translation is included without limitation in +the term "modification".) Each licensee is addressed as "you". + +Activities other than copying, distribution and modification are not +covered by this License; they are outside its scope. The act of +running the Program is not restricted, and the output from the Program +is covered only if its contents constitute a work based on the +Program (independent of having been made by running the Program). +Whether that is true depends on what the Program does. + + 1. You may copy and distribute verbatim copies of the Program's +source code as you receive it, in any medium, provided that you +conspicuously and appropriately publish on each copy an appropriate +copyright notice and disclaimer of warranty; keep intact all the +notices that refer to this License and to the absence of any warranty; +and give any other recipients of the Program a copy of this License +along with the Program. + +You may charge a fee for the physical act of transferring a copy, and +you may at your option offer warranty protection in exchange for a fee. + + 2. You may modify your copy or copies of the Program or any portion +of it, thus forming a work based on the Program, and copy and +distribute such modifications or work under the terms of Section 1 +above, provided that you also meet all of these conditions: + + a) You must cause the modified files to carry prominent notices + stating that you changed the files and the date of any change. + + b) You must cause any work that you distribute or publish, that in + whole or in part contains or is derived from the Program or any + part thereof, to be licensed as a whole at no charge to all third + parties under the terms of this License. + + c) If the modified program normally reads commands interactively + when run, you must cause it, when started running for such + interactive use in the most ordinary way, to print or display an + announcement including an appropriate copyright notice and a + notice that there is no warranty (or else, saying that you provide + a warranty) and that users may redistribute the program under + these conditions, and telling the user how to view a copy of this + License. (Exception: if the Program itself is interactive but + does not normally print such an announcement, your work based on + the Program is not required to print an announcement.) + +These requirements apply to the modified work as a whole. If +identifiable sections of that work are not derived from the Program, +and can be reasonably considered independent and separate works in +themselves, then this License, and its terms, do not apply to those +sections when you distribute them as separate works. But when you +distribute the same sections as part of a whole which is a work based +on the Program, the distribution of the whole must be on the terms of +this License, whose permissions for other licensees extend to the +entire whole, and thus to each and every part regardless of who wrote it. + +Thus, it is not the intent of this section to claim rights or contest +your rights to work written entirely by you; rather, the intent is to +exercise the right to control the distribution of derivative or +collective works based on the Program. + +In addition, mere aggregation of another work not based on the Program +with the Program (or with a work based on the Program) on a volume of +a storage or distribution medium does not bring the other work under +the scope of this License. + + 3. You may copy and distribute the Program (or a work based on it, +under Section 2) in object code or executable form under the terms of +Sections 1 and 2 above provided that you also do one of the following: + + a) Accompany it with the complete corresponding machine-readable + source code, which must be distributed under the terms of Sections + 1 and 2 above on a medium customarily used for software interchange; or, + + b) Accompany it with a written offer, valid for at least three + years, to give any third party, for a charge no more than your + cost of physically performing source distribution, a complete + machine-readable copy of the corresponding source code, to be + distributed under the terms of Sections 1 and 2 above on a medium + customarily used for software interchange; or, + + c) Accompany it with the information you received as to the offer + to distribute corresponding source code. (This alternative is + allowed only for noncommercial distribution and only if you + received the program in object code or executable form with such + an offer, in accord with Subsection b above.) + +The source code for a work means the preferred form of the work for +making modifications to it. For an executable work, complete source +code means all the source code for all modules it contains, plus any +associated interface definition files, plus the scripts used to +control compilation and installation of the executable. However, as a +special exception, the source code distributed need not include +anything that is normally distributed (in either source or binary +form) with the major components (compiler, kernel, and so on) of the +operating system on which the executable runs, unless that component +itself accompanies the executable. + +If distribution of executable or object code is made by offering +access to copy from a designated place, then offering equivalent +access to copy the source code from the same place counts as +distribution of the source code, even though third parties are not +compelled to copy the source along with the object code. + + 4. You may not copy, modify, sublicense, or distribute the Program +except as expressly provided under this License. Any attempt +otherwise to copy, modify, sublicense or distribute the Program is +void, and will automatically terminate your rights under this License. +However, parties who have received copies, or rights, from you under +this License will not have their licenses terminated so long as such +parties remain in full compliance. + + 5. You are not required to accept this License, since you have not +signed it. However, nothing else grants you permission to modify or +distribute the Program or its derivative works. These actions are +prohibited by law if you do not accept this License. Therefore, by +modifying or distributing the Program (or any work based on the +Program), you indicate your acceptance of this License to do so, and +all its terms and conditions for copying, distributing or modifying +the Program or works based on it. + + 6. Each time you redistribute the Program (or any work based on the +Program), the recipient automatically receives a license from the +original licensor to copy, distribute or modify the Program subject to +these terms and conditions. You may not impose any further +restrictions on the recipients' exercise of the rights granted herein. +You are not responsible for enforcing compliance by third parties to +this License. + + 7. If, as a consequence of a court judgment or allegation of patent +infringement or for any other reason (not limited to patent issues), +conditions are imposed on you (whether by court order, agreement or +otherwise) that contradict the conditions of this License, they do not +excuse you from the conditions of this License. If you cannot +distribute so as to satisfy simultaneously your obligations under this +License and any other pertinent obligations, then as a consequence you +may not distribute the Program at all. For example, if a patent +license would not permit royalty-free redistribution of the Program by +all those who receive copies directly or indirectly through you, then +the only way you could satisfy both it and this License would be to +refrain entirely from distribution of the Program. + +If any portion of this section is held invalid or unenforceable under +any particular circumstance, the balance of the section is intended to +apply and the section as a whole is intended to apply in other +circumstances. + +It is not the purpose of this section to induce you to infringe any +patents or other property right claims or to contest validity of any +such claims; this section has the sole purpose of protecting the +integrity of the free software distribution system, which is +implemented by public license practices. Many people have made +generous contributions to the wide range of software distributed +through that system in reliance on consistent application of that +system; it is up to the author/donor to decide if he or she is willing +to distribute software through any other system and a licensee cannot +impose that choice. + +This section is intended to make thoroughly clear what is believed to +be a consequence of the rest of this License. + + 8. If the distribution and/or use of the Program is restricted in +certain countries either by patents or by copyrighted interfaces, the +original copyright holder who places the Program under this License +may add an explicit geographical distribution limitation excluding +those countries, so that distribution is permitted only in or among +countries not thus excluded. In such case, this License incorporates +the limitation as if written in the body of this License. + + 9. The Free Software Foundation may publish revised and/or new versions +of the General Public License from time to time. Such new versions will +be similar in spirit to the present version, but may differ in detail to +address new problems or concerns. + +Each version is given a distinguishing version number. If the Program +specifies a version number of this License which applies to it and "any +later version", you have the option of following the terms and conditions +either of that version or of any later version published by the Free +Software Foundation. If the Program does not specify a version number of +this License, you may choose any version ever published by the Free Software +Foundation. + + 10. If you wish to incorporate parts of the Program into other free +programs whose distribution conditions are different, write to the author +to ask for permission. For software which is copyrighted by the Free +Software Foundation, write to the Free Software Foundation; we sometimes +make exceptions for this. Our decision will be guided by the two goals +of preserving the free status of all derivatives of our free software and +of promoting the sharing and reuse of software generally. + + NO WARRANTY + + 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY +FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN +OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES +PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED +OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF +MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS +TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE +PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, +REPAIR OR CORRECTION. + + 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING +WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR +REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, +INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING +OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED +TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY +YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER +PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE +POSSIBILITY OF SUCH DAMAGES. + + END OF TERMS AND CONDITIONS + + Appendix: How to Apply These Terms to Your New Programs + + If you develop a new program, and you want it to be of the greatest +possible use to the public, the best way to achieve this is to make it +free software which everyone can redistribute and change under these terms. + + To do so, attach the following notices to the program. It is safest +to attach them to the start of each source file to most effectively +convey the exclusion of warranty; and each file should have at least +the "copyright" line and a pointer to where the full notice is found. + + + Copyright (C) + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software Foundation, + Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. + +Also add information on how to contact you by electronic and paper mail. + +If the program is interactive, make it output a short notice like this +when it starts in an interactive mode: + + Gnomovision version 69, Copyright (C) year name of author + Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. + This is free software, and you are welcome to redistribute it + under certain conditions; type `show c' for details. + +The hypothetical commands `show w' and `show c' should show the appropriate +parts of the General Public License. Of course, the commands you use may +be called something other than `show w' and `show c'; they could even be +mouse-clicks or menu items--whatever suits your program. + +You should also get your employer (if you work as a programmer) or your +school, if any, to sign a "copyright disclaimer" for the program, if +necessary. Here is a sample; alter the names: + + Yoyodyne, Inc., hereby disclaims all copyright interest in the program + `Gnomovision' (which makes passes at compilers) written by James Hacker. + + , 1 April 1989 + Ty Coon, President of Vice + +This General Public License does not permit incorporating your program into +proprietary programs. If your program is a subroutine library, you may +consider it more useful to permit linking proprietary applications with the +library. If this is what you want to do, use the GNU Library General +Public License instead of this License. diff --git a/trampoline/Makefile.devel b/trampoline/Makefile.devel new file mode 100644 index 0000000..ec9e0ae --- /dev/null +++ b/trampoline/Makefile.devel @@ -0,0 +1,217 @@ +# This is the developer's -*-Makefile-*-, not the user's makefile. +# Do not use it unless you know exactly what you do! + +THISFILE = Makefile.devel +RM = rm -f + +# ============ Rules that require cross-compilation tools ============ + +GCC = gcc +GCCFLAGS = -O2 -fomit-frame-pointer -fPIC +CPP = $(GCC) -E +CROSS_TOOL = cross + +precompiled : \ + cache-sparc-macro.S cache-sparc64-macro.S \ + cache-alpha-macro.S \ + cache-hppa-macro.S cache-hppa64-macro.S \ + cache-powerpc-linux-macro.S cache-powerpc-macos.s \ + cache-powerpc64-elfv2-macro.S + + +cache-sparc-linux.s : cache-sparc.c $(THISFILE) + $(CROSS_TOOL) sparc-linux gcc -V 3.1 $(GCCFLAGS) -D__sparc__ -S cache-sparc.c -o cache-sparc-linux.s + +cache-sparc-macro.S : cache-sparc-linux.s ../common/asm-sparc.sh ../common/noexecstack.h $(THISFILE) + (echo '#include "asm-sparc.h"' ; ../common/asm-sparc.sh < cache-sparc-linux.s ; cat ../common/noexecstack.h) > cache-sparc-macro.S + +cache-sparc64-linux.s : cache-sparc.c $(THISFILE) + $(CROSS_TOOL) sparc64-linux gcc -V 4.0.2 $(GCCFLAGS) -D__sparc64__ -S cache-sparc.c -o cache-sparc64-linux.s + +cache-sparc64-macro.S : cache-sparc64-linux.s ../common/asm-sparc.sh ../common/noexecstack.h $(THISFILE) + (echo '#include "asm-sparc.h"' ; ../common/asm-sparc.sh < cache-sparc64-linux.s ; cat ../common/noexecstack.h) > cache-sparc64-macro.S + + +cache-alpha-linux.s : cache-alpha.c $(THISFILE) + $(CROSS_TOOL) alpha-linux gcc -V 4.0.2 $(GCCFLAGS) -D__alpha__ -S cache-alpha.c -o cache-alpha-linux.s + +cache-alpha-macro.S : cache-alpha-linux.s ../common/asm-alpha.sh ../common/noexecstack.h $(THISFILE) + (../common/asm-alpha.sh < cache-alpha-linux.s ; cat ../common/noexecstack.h) > cache-alpha-macro.S + + +cache-hppa-linux.s : cache-hppa.c $(THISFILE) + $(CROSS_TOOL) hppa-linux gcc -V 3.1 $(GCCFLAGS) -D__hppa__ -S cache-hppa.c -o cache-hppa-linux.s + +cache-hppa-macro.S : cache-hppa-linux.s ../common/asm-hppa.sh ../common/noexecstack.h $(THISFILE) + (echo '#include "asm-hppa.h"' ; ../common/asm-hppa.sh < cache-hppa-linux.s ; cat ../common/noexecstack.h) > cache-hppa-macro.S + + +cache-hppa64-linux.s : cache-hppa.c $(THISFILE) + $(CROSS_TOOL) hppa64-linux gcc -V 3.1 $(GCCFLAGS) -D__hppa64__ -S cache-hppa.c -o cache-hppa64-linux.s + +cache-hppa64-macro.S : cache-hppa64-linux.s ../common/asm-hppa64.sh ../common/noexecstack.h $(THISFILE) + (echo '#include "asm-hppa64.h"' ; ../common/asm-hppa64.sh < cache-hppa64-linux.s ; cat ../common/noexecstack.h) > cache-hppa64-macro.S + + +cache-powerpc-linux.s : cache-powerpc.c $(THISFILE) + $(CROSS_TOOL) powerpc-linux gcc -V 3.3.6 -mno-power -mno-power2 -mno-powerpc $(GCCFLAGS) -D__powerpc__ -S cache-powerpc.c -o cache-powerpc-linux.s + +cache-powerpc-linux-macro.S : cache-powerpc-linux.s ../common/asm-powerpc.sh ../common/noexecstack.h $(THISFILE) + (../common/asm-powerpc.sh < cache-powerpc-linux.s ; cat ../common/noexecstack.h) > cache-powerpc-linux-macro.S + +cache-powerpc-macos.s : cache-powerpc.c $(THISFILE) + $(CROSS_TOOL) powerpc-darwin gcc -V 3.3.6 $(GCCFLAGS) -D__powerpc__ -S cache-powerpc.c -o cache-powerpc-macos.s + + +cache-powerpc64-elfv2-linux.s : cache-powerpc64.c $(THISFILE) + $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv2 -mcpu=power4 -mlittle-endian $(GCCFLAGS) -D__powerpc64__ -S cache-powerpc64.c -o cache-powerpc64-elfv2-linux-le.s + $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv2 -mcpu=power4 -mbig-endian $(GCCFLAGS) -D__powerpc64__ -S cache-powerpc64.c -o cache-powerpc64-elfv2-linux-be.s + cmp cache-powerpc64-elfv2-linux-le.s cache-powerpc64-elfv2-linux-be.s > /dev/null + mv cache-powerpc64-elfv2-linux-le.s cache-powerpc64-elfv2-linux.s + $(RM) cache-powerpc64-elfv2-linux-be.s + +cache-powerpc64-elfv2-macro.S : cache-powerpc64-elfv2-linux.s ../common/asm-powerpc.sh ../common/noexecstack.h $(THISFILE) + (../common/asm-powerpc.sh < cache-powerpc64-elfv2-linux.s ; cat ../common/noexecstack.h) > cache-powerpc64-elfv2-macro.S + + +# --------------- Older rules --------------- + +OLDGCCFLAGS = -O2 -fomit-frame-pointer +ASPREFIX = /usr1/gnu/lib + +proto-precompiled : proto-i386.s proto-m68k.s proto-mips.s proto-mipsn32.s proto-mips64.s proto-sparc.s proto-sparc64.s proto-alpha.s proto-hppa.s proto-hppa64.s proto-arm.s proto-arm64.s proto-powerpc-aix.s proto-powerpc-sysv4.s proto-powerpc-macos.s proto-powerpc64-aix.s proto-powerpc64-elfv2.s proto-ia64.s proto-x86_64.s proto-x86_64-x32.s proto-s390.s proto-s390x.s proto-riscv32.s proto-riscv64.s + +proto-i386.s : proto.c + $(GCC) -V 2.7.2 -b i486-linuxaout $(OLDGCCFLAGS) -D__i386__ -S proto.c -o $@ + +proto-m68k.s : proto.c + $(GCC) -V egcs-2.91.57 -b m68k-sun $(OLDGCCFLAGS) -D__m68k__ -S proto.c -o $@ + +proto-mips.s : proto.c + $(GCC) -V 2.95.2 -b mips-sgi $(OLDGCCFLAGS) -D__mips__ -S proto.c -o $@ -mabicalls + +proto-mipsn32.s : proto.c + $(GCC) -V 2.95.2 -b mips-sgi-irix6 $(OLDGCCFLAGS) -D__mipsn32__ -S proto.c -o $@ -mabicalls + +proto-mips64.s : proto64.c + $(GCC) -V 2.95.2 -b mips-sgi -mips3 -mlong64 $(OLDGCCFLAGS) -D__mips64__ -S proto64.c -o $@ -mabicalls + +proto-sparc.s : proto.c + $(GCC) -V 2.95.2 -b sparc-sun $(OLDGCCFLAGS) -D__sparc__ -S proto.c -o $@ + +proto-sparc64.s : proto64.c + sparc64-linux-gcc -V 2.95.2 -b sparc64-linux $(OLDGCCFLAGS) -D__sparc64__ -S proto64.c -o $@ + +proto-alpha.s : proto64.c + $(GCC) -V 2.7.2 -b alpha-dec-osf $(OLDGCCFLAGS) -D__alpha__ -S proto64.c -o $@ + +proto-hppa.s : proto.c + $(GCC) -V 2.6.3 -b hppa1.0-hpux $(OLDGCCFLAGS) -D__hppa__ -S proto.c -o $@ + +proto-hppa64.s : proto64.c + $(CROSS_TOOL) hppa64-linux gcc -V 3.1 $(OLDGCCFLAGS) -D__hppa64__ -S proto64.c -o $@ + +proto-arm.s : proto.c + $(GCC) -V 2.6.3 -b arm-acorn-riscix $(OLDGCCFLAGS) -D__arm__ -S proto.c -o $@ + +proto-arm64.s : proto64.c + $(CROSS_TOOL) aarch64-linux gcc-5.4.0 $(OLDGCCFLAGS) -D__arm64__ -S proto64.c -o $@ + +proto-powerpc-aix.s : proto.c + $(GCC) -V 2.95.2 -b rs6000 -mno-power -mno-power2 -mno-powerpc -mnew-mnemonics $(OLDGCCFLAGS) -D__powerpc__ -S proto.c -o $@ + +proto-powerpc-sysv4.s : proto.c + $(GCC) -V 2.95.2 -b ppc-linux -mno-power -mno-power2 -mno-powerpc $(OLDGCCFLAGS) -D__powerpc__ -S proto.c -o $@ + +proto-powerpc-macos.s : proto.c + $(GCC) -V 3.3.2 -b powerpc-darwin $(OLDGCCFLAGS) -D__powerpc__ -S proto.c -o $@ + +proto-powerpc64-aix.s : proto64.c + $(CROSS_TOOL) powerpc64-linux gcc $(OLDGCCFLAGS) -D__powerpc64__ -S proto64.c -o $@ + +proto-powerpc64-elfv2.s : proto64.c + $(CROSS_TOOL) powerpc64le-linux gcc -mabi=elfv2 $(OLDGCCFLAGS) -D__powerpc64__ -S proto64.c -o $@ + +proto-ia64.s : proto64.c + $(GCC) -V 2.9-ia64-000216 -b ia64-hp-linux $(OLDGCCFLAGS) -D__ia64__ -S proto64.c -o $@ + +proto-x86_64.s : proto64.c + $(GCC) -V 3.2.2 -b x86_64-suse-linux $(OLDGCCFLAGS) -D__x86_64__ -S proto64.c -o $@ + +proto-x86_64-x32.s : proto.c + $(CROSS_TOOL) x86_64-linux gcc-5.4.0 -mx32 $(OLDGCCFLAGS) -fno-asynchronous-unwind-tables -D__x86_64__ -D__x86_64_x32__ -S proto.c -o $@ + +proto-s390.s : proto.c + $(CROSS_TOOL) s390-linux gcc -V 3.1 $(OLDGCCFLAGS) -D__s390__ -S proto.c -o $@ + +proto-s390x.s : proto64.c + $(CROSS_TOOL) s390x-linux gcc-5.4.0 $(OLDGCCFLAGS) -D__s390x__ -S proto64.c -o $@ + +proto-riscv32.s : proto.c + $(CROSS_TOOL) riscv32-linux gcc-7.3.0 $(OLDGCCFLAGS) -D__riscv32__ -S proto.c -o $@ + +proto-riscv64.s : proto64.c + $(CROSS_TOOL) riscv64-linux gcc-7.3.0 $(OLDGCCFLAGS) -D__riscv64__ -S proto64.c -o $@ + +tramp-i386.o : tramp-i386.s + $(ASPREFIX)/i486-linux/bin/as tramp-i386.s -o $@ + +tramp-m68k.o : tramp-m68k.s + $(ASPREFIX)/m68k-sun/bin/as tramp-m68k.s -o $@ + +tramp-mips.o : tramp-mips.s + $(ASPREFIX)/mips-sgi/bin/as tramp-mips.s -o $@ + +tramp-mips64.o : tramp-mips64.s + $(ASPREFIX)/mips-sgi/bin/as -mips3 -membedded-pic tramp-mips64.s -o $@ + +tramp-sparc.o : tramp-sparc.s + $(ASPREFIX)/sparc-sun/bin/as tramp-sparc.s -o $@ + +tramp-sparc64.o : tramp-sparc64.s + $(ASPREFIX)/sparc64-linux/bin/as tramp-sparc64.s -o $@ + +tramp-alpha.o : tramp-alpha.s + $(ASPREFIX)/alpha-dec-osf/bin/as tramp-alpha.s -o $@ + +tramp-hppa.o : tramp-hppa.s + $(ASPREFIX)/hppa1.0-hpux/bin/as tramp-hppa.s -o $@ + +tramp-hppa64.o : tramp-hppa64.s + $(CROSS_TOOL) hppa64-linux as tramp-hppa64.s -o $@ + +tramp-arm.o : tramp-arm.s + $(ASPREFIX)/arm-acorn-riscix/bin/as tramp-arm.s -o $@ + +tramp-arm64.o : tramp-arm64.s + $(CROSS_TOOL) aarch64-linux as tramp-arm64.s -o $@ + +tramp-powerpc-old.o : tramp-powerpc-old.s + $(ASPREFIX)/rs6000/bin/as tramp-powerpc-old.s -o $@ + +tramp-powerpc-sysv4.o : tramp-powerpc-sysv4.s + $(ASPREFIX)/ppc-linux/bin/as tramp-powerpc-sysv4.s -o $@ + +tramp-powerpc64-elfv2.o : tramp-powerpc64-elfv2.s + $(CROSS_TOOL) powerpc64le-linux as tramp-powerpc64-elfv2.s -o $@ + +tramp-ia64.o : tramp-ia64.s + /nue/usr/ia64-hp-linux/bin/as tramp-ia64.s -o $@ + +tramp-x86_64.o : tramp-x86_64.s + $(ASPREFIX)/x86_64-suse-linux/bin/as tramp-x86_64.s -o $@ + +tramp-x86_64-x32.o : tramp-x86_64-x32.s + $(CROSS_TOOL) x86_64-linux as tramp-x86_64-x32.s -o $@ + +tramp-s390.o : tramp-s390.s + $(CROSS_TOOL) s390-linux as tramp-s390.s -o $@ + +tramp-s390x.o : tramp-s390x.s + $(CROSS_TOOL) s390x-linux as tramp-s390x.s -o $@ + +tramp-riscv32.o : tramp-riscv32.s + $(CROSS_TOOL) riscv32-linux as tramp-riscv32.s -o $@ + +tramp-riscv64.o : tramp-riscv64.s + $(CROSS_TOOL) riscv64-linux as tramp-riscv64.s -o $@ diff --git a/trampoline/Makefile.in b/trampoline/Makefile.in new file mode 100644 index 0000000..529f977 --- /dev/null +++ b/trampoline/Makefile.in @@ -0,0 +1,272 @@ +# Makefile for trampoline + +#### Start of system configuration section. #### + +HOST = @host@ +CPU = @HOST_CPU_C_ABI@ +OS = @host_os@ + +# Directories used by "make": +srcdir = @srcdir@ + +# Directories used by "make install": +prefix = @prefix@ +local_prefix = /usr/local +exec_prefix = @exec_prefix@ +libdir = @libdir@ +includedir = @includedir@ +mandir = @mandir@ +datadir = @datadir@ +datarootdir = @datarootdir@ +htmldir = $(datadir)/html + +# Programs used by "make": +# C compiler +CC = @CC@ +CFLAGS = @CFLAGS@ +CPP = @CPP@ +# C++ compiler +CXX = @CXX@ +CXXFLAGS = @CXXFLAGS@ +# Both C and C++ compiler +CPPFLAGS = @CPPFLAGS@ +INCLUDES = -I. -I$(srcdir) -I.. +INCLUDES_WITH_GNULIB = $(INCLUDES) -I../gnulib-lib -I$(srcdir)/../gnulib-lib +ASPFLAGS = `if test @AS_UNDERSCORE@ = true; then echo '-DASM_UNDERSCORE'; fi` +LDFLAGS = @LDFLAGS@ +LIBTOOL = @LIBTOOL@ +LIBTOOL_COMPILE = $(LIBTOOL) --mode=compile +LIBTOOL_LINK = $(LIBTOOL) --mode=link +LIBTOOL_INSTALL = $(LIBTOOL) --mode=install +LIBTOOL_UNINSTALL = $(LIBTOOL) --mode=uninstall +AR = @AR@ +AR_FLAGS = rc +RANLIB = @RANLIB@ +RM = rm -f +@SET_MAKE@ + +# Programs used by "make install": +INSTALL = @INSTALL@ +INSTALL_PROGRAM = @INSTALL_PROGRAM@ +INSTALL_DATA = @INSTALL_DATA@ + +# Libtool options for linking with the thread library. +LTLIBTHREAD = @LTLIBTHREAD@ + +#### End of system configuration section. #### + +SHELL = /bin/sh + +# Needed by $(LIBTOOL). +top_builddir = .. + +OBJECTS = trampoline.lo @CPU_OBJECTS@ + +# Limit the set of exported symbols, on those platforms where libtool supports it. +# Currently this excludes the symbols from gnulib modules. +LIBTRAMPOLINE_EXPORTED_SYMBOLS_REGEX = 'trampoline' + +# Before making a release, change this according to the libtool documentation, +# section "Library interface versions". +LIBTRAMPOLINE_VERSION_INFO = 1:2:0 + +all : $(OBJECTS) libtrampoline.la $(srcdir)/trampoline.3 $(srcdir)/trampoline.html + +trampoline.lo : $(srcdir)/trampoline.c $(srcdir)/trampoline.h + $(LIBTOOL_COMPILE) $(CC) $(INCLUDES_WITH_GNULIB) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/trampoline.c + +tramp-hppa.lo : tramp-hppa.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c tramp-hppa.s + +tramp-hppa.s : $(srcdir)/tramp-hppa-macro.S $(srcdir)/../common/noexecstack.h + $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/tramp-hppa-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e "s,!,',g" > tramp-hppa.s + +tramp-hppa64.lo : tramp-hppa64.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c tramp-hppa64.s + +tramp-hppa64.s : $(srcdir)/tramp-hppa64-macro.S $(srcdir)/../common/noexecstack.h + $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/tramp-hppa64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e "s,!,',g" > tramp-hppa64.s + +tramp-powerpc.lo : tramp-powerpc.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c tramp-powerpc.s + +tramp-powerpc.s : $(srcdir)/tramp-powerpc-aix.S + $(CPP) $(srcdir)/tramp-powerpc-aix.S > tramp-powerpc.s + +tramp-powerpc64.lo : tramp-powerpc64.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c tramp-powerpc64.s + +tramp-powerpc64.s : $(srcdir)/tramp-powerpc64-aix.S $(srcdir)/../common/noexecstack.h + $(CPP) -I$(srcdir)/../common $(srcdir)/tramp-powerpc64-aix.S > tramp-powerpc64.s + +tramp-ia64.lo : tramp-ia64.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c tramp-ia64.s + +tramp-ia64.s : $(srcdir)/tramp-ia64-macro.S $(srcdir)/../common/noexecstack.h + $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/tramp-ia64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > tramp-ia64.s + +cache-sparc.lo : cache-sparc.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c cache-sparc.s + +cache-sparc.s : $(srcdir)/cache-sparc-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../common - < $(srcdir)/cache-sparc-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,//.*$$,,' -e 's,\$$,#,g' -e 's,# ,#,g' > cache-sparc.s + +cache-sparc64.lo : cache-sparc64.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c cache-sparc64.s + +cache-sparc64.s : $(srcdir)/cache-sparc64-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../common - < $(srcdir)/cache-sparc64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,//.*$$,,' -e 's,\$$,#,g' -e 's,# ,#,g' > cache-sparc64.s + +cache-alpha.lo : cache-alpha.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c cache-alpha.s + +cache-alpha.s : $(srcdir)/cache-alpha-macro.S + $(CPP) $(ASPFLAGS) $(srcdir)/cache-alpha-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > cache-alpha.s + +cache-hppa.lo : cache-hppa.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c cache-hppa.s + +cache-hppa.s : $(srcdir)/cache-hppa-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/cache-hppa-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e "s,!,',g" > cache-hppa.s + +cache-hppa64.lo : cache-hppa64.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c cache-hppa64.s + +cache-hppa64.s : $(srcdir)/cache-hppa64-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/cache-hppa64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e "s,!,',g" > cache-hppa64.s + +cache-powerpc.lo : cache-powerpc.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c cache-powerpc.s + +cache-powerpc.s : $(srcdir)/cache-powerpc-linux-macro.S $(srcdir)/cache-powerpc-macos.s + case "$(OS)" in \ + macos* | darwin*) syntax=macos;; \ + *) syntax=linux;; \ + esac; \ + case $${syntax} in \ + macos) \ + grep -v '\.machine' $(srcdir)/cache-powerpc-$${syntax}.s > cache-powerpc.s || exit 1 ;; \ + linux) \ + $(CPP) $(ASPFLAGS) $(srcdir)/cache-powerpc-$${syntax}-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > cache-powerpc.s || exit 1 ;; \ + *) \ + cp $(srcdir)/cache-powerpc-$${syntax}.s cache-powerpc.s || exit 1 ;; \ + esac + +cache-powerpc64-elfv2.lo : cache-powerpc64-elfv2.s + $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c cache-powerpc64-elfv2.s + +cache-powerpc64-elfv2.s : $(srcdir)/cache-powerpc64-elfv2-macro.S + $(CPP) $(ASPFLAGS) $(srcdir)/cache-powerpc64-elfv2-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > cache-powerpc64-elfv2.s + +libtrampoline.la : $(OBJECTS) ../gnulib-lib/libgnu.la + $(LIBTOOL_LINK) $(CC) -o libtrampoline.la -rpath $(libdir) -no-undefined -export-symbols-regex $(LIBTRAMPOLINE_EXPORTED_SYMBOLS_REGEX) -version-info $(LIBTRAMPOLINE_VERSION_INFO) $(OBJECTS) ../gnulib-lib/libgnu.la $(LDFLAGS) $(LTLIBTHREAD) + +install : all force + mkdir -p $(DESTDIR)$(prefix) + mkdir -p $(DESTDIR)$(exec_prefix) + mkdir -p $(DESTDIR)$(libdir) + $(LIBTOOL_INSTALL) $(INSTALL_DATA) libtrampoline.la $(DESTDIR)$(libdir)/libtrampoline.la + mkdir -p $(DESTDIR)$(includedir) + $(INSTALL_DATA) $(srcdir)/trampoline.h $(DESTDIR)$(includedir)/trampoline.h + mkdir -p $(DESTDIR)$(mandir) + mkdir -p $(DESTDIR)$(mandir)/man3 + $(INSTALL_DATA) $(srcdir)/trampoline.3 $(DESTDIR)$(mandir)/man3/trampoline.3 + mkdir -p $(DESTDIR)$(datadir) + mkdir -p $(DESTDIR)$(htmldir) + $(INSTALL_DATA) $(srcdir)/trampoline.html $(DESTDIR)$(htmldir)/trampoline.html + +installdirs : force + mkdir -p $(DESTDIR)$(prefix) + mkdir -p $(DESTDIR)$(exec_prefix) + mkdir -p $(DESTDIR)$(libdir) + mkdir -p $(DESTDIR)$(includedir) + mkdir -p $(DESTDIR)$(mandir) + mkdir -p $(DESTDIR)$(mandir)/man3 + mkdir -p $(DESTDIR)$(datadir) + mkdir -p $(DESTDIR)$(htmldir) + +uninstall : force + $(LIBTOOL_UNINSTALL) $(RM) $(DESTDIR)$(libdir)/libtrampoline.la + $(RM) $(DESTDIR)$(includedir)/trampoline.h + $(RM) $(DESTDIR)$(mandir)/man3/trampoline.3 + $(RM) $(DESTDIR)$(htmldir)/trampoline.html + +test1.@OBJEXT@ : $(srcdir)/test1.c $(srcdir)/trampoline.h + $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/test1.c + +test1 : test1.@OBJEXT@ libtrampoline.la + $(LIBTOOL_LINK) $(CC) $(CFLAGS) @GCC_X_NONE@ test1.@OBJEXT@ libtrampoline.la $(LDFLAGS) -o test1 + +test2.@OBJEXT@ : $(srcdir)/test2.c $(srcdir)/trampoline.h + $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/test2.c + +test2 : test2.@OBJEXT@ libtrampoline.la + $(LIBTOOL_LINK) $(CC) $(CFLAGS) @GCC_X_NONE@ test2.@OBJEXT@ libtrampoline.la $(LDFLAGS) -o test2 + +test2-c++.@OBJEXT@ : $(srcdir)/test2-c++.cc $(srcdir)/test2.c $(srcdir)/trampoline.h + $(CXX) $(INCLUDES) $(CPPFLAGS) $(CXXFLAGS) -c $(srcdir)/test2-c++.cc + +test2-c++ : test2-c++.@OBJEXT@ libtrampoline.la + $(LIBTOOL_LINK) $(CXX) $(CXXFLAGS) @GCC_X_NONE@ test2-c++.@OBJEXT@ libtrampoline.la $(LDFLAGS) -o test2-c++ + +check1 : all test1 + ./test1 + +check : all test1 test2 + ./test1 + ./test2 +@IF_CXX@ ./test2-c++ + touch tests.passed.$(HOST) +@IF_CXX@check : test2-c++ + +extracheck : check + +mostlyclean : clean + +clean : force + $(RM) $(OBJECTS) `echo $(OBJECTS) | sed -e 's/\.lo/.@OBJEXT@/g'` tramp-hppa.s tramp-hppa64.s tramp-powerpc.s tramp-powerpc64.s tramp-ia64.s cache-sparc.s cache-sparc64.s cache-alpha.s cache-hppa.s cache-hppa64.s cache-powerpc.s cache-powerpc64-elfv2.s libtrampoline.* core + $(RM) -r .libs _libs + $(RM) test1.@OBJEXT@ test1 test2.@OBJEXT@ test2 test2-c++.@OBJEXT@ test2-c++ + +distclean : clean + $(RM) Makefile tests.passed.* + +maintainer-clean : distclean + + +# List of source files (committed in version control or generated by Makefile.devel). +SOURCE_FILES = \ + COPYING \ + PLATFORMS PORTING README trampoline.3 trampoline.html \ + Makefile.devel \ + Makefile.maint \ + Makefile.in \ + trampoline.h \ + trampoline.c \ + tramp-hppa-macro.S \ + tramp-hppa64-macro.S \ + tramp-powerpc-aix.S \ + tramp-powerpc64-aix.S \ + tramp-ia64-macro.S \ + cache.c \ + cache-alpha.c cache-alpha-linux.s cache-alpha-macro.S \ + cache-hppa.c cache-hppa-linux.s cache-hppa-macro.S cache-hppa64-linux.s cache-hppa64-macro.S \ + cache-powerpc.c cache-powerpc-linux.s cache-powerpc-linux-macro.S cache-powerpc-macos.s \ + cache-powerpc64.c cache-powerpc64-elfv2-linux.s cache-powerpc64-elfv2-macro.S \ + cache-sparc.c cache-sparc-linux.s cache-sparc-macro.S cache-sparc64-linux.s cache-sparc64-macro.S \ + test1.c \ + test2.c test2-c++.cc +# List of distributed files generated by Makefile.maint. +GENERATED_FILES = \ + trampoline.man +# List of distributed files. +DISTFILES = $(SOURCE_FILES) $(GENERATED_FILES) + +distdir : $(DISTFILES) + for file in $(DISTFILES); do \ + if test -f $$file; then dir='.'; else dir='$(srcdir)'; fi; \ + cp -p "$$dir/$$file" '$(distdir)'/$$file || exit 1; \ + done + + +force : diff --git a/trampoline/Makefile.maint b/trampoline/Makefile.maint new file mode 100644 index 0000000..7356d20 --- /dev/null +++ b/trampoline/Makefile.maint @@ -0,0 +1,18 @@ +# maintainer -*-Makefile-*- + +RM = rm -f + +# ==================== Easily regeneratable files ==================== + +ROFF_MAN = groff -Tutf8 -mandoc + +all : trampoline.man + +trampoline.man : trampoline.3 + $(ROFF_MAN) trampoline.3 > trampoline.man + +totally-clean : force + $(RM) trampoline.man + + +force : diff --git a/trampoline/PLATFORMS b/trampoline/PLATFORMS new file mode 100644 index 0000000..c4108d4 --- /dev/null +++ b/trampoline/PLATFORMS @@ -0,0 +1,40 @@ +Supported CPUs: (Put the GNU config.guess values here.) + i386 i486-unknown-linux, i686-unknown-gnu0.9, i386-unknown-sysv4.0, + i386-pc-solaris2.6, i386-pc-solaris2.10, + i486-unknown-sco3.2v4.2, i386-pc-cygwin32, i386-w64-mingw32, + i586-unknown-freebsd11.0, i386-unknown-dragonfly3.8, + i386-unknown-netbsdelf7.0, i386-unknown-openbsd6.0, + i586-pc-haiku, i386-pc-minix + m68k m68k-next-bsd, m68k-next-nextstep3, m68k-sun-sunos4.0, + m68k-unknown-linux + mips mips-sgi-irix4.0.5, mips-sgi-irix5.2, mips-sgi-irix5.3, + mips-sgi-irix6.2, mips-sgi-irix6.4, mips-sgi-irix6.5, + mips-unknown-linux, mips64-unknown-linux + sparc sparc-sun-sunos4.1.1, sparc-sun-solaris2.3, + sparc-sun-solaris2.4, sparc-sun-solaris2.10, + sparc64-sun-solaris2.10, sparc-unknown-linux, + sparc64-unknown-linux, + sparc-unknown-netbsdelf7.1, sparc64-unknown-netbsd8.0 + alpha alpha-dec-osf3.0, alpha-dec-osf4.0, alphaev67-unknown-linux + hppa hppa1.0-hp-hpux8.00, hppa1.1-hp-hpux9.05, hppa1.1-hp-hpux10.01, + hppa2.0-hp-hpux10.20, hppa2.0w-hp-hpux11.31, hppa-unknown-linux + hppa64 hppa64-hp-hpux11.31 + arm armv5tejl-unknown-linux, armv6l-unknown-linux, + armv7l-unknown-linux + arm64 aarch64-unknown-linux + powerpc powerpc-ibm-aix4.1.4.0, powerpc-ibm-aix7.1.3.0, + powerpc-unknown-linux, powerpc-apple-darwin6.8, + powerpc-apple-darwin9.8.0 + powerpc64 powerpc-ibm-aix7.1.3.0 (gcc -maix64, xlc -q64; AR="ar -X 64"), + powerpc64-unknown-linux (gcc -m64), + powerpc64le-unknown-linux (gcc) + ia64 ia64-unknown-linux + x86_64 x86_64-suse-linux, x86_64-unknown-linux (gcc -mx32), + x86_64-pc-solaris2.10, x86_64-pc-cygwin, x86_64-w64-mingw32, + x86_64-unknown-freebsd11.0, x86_64-unknown-netbsd7.0, + x86_64-unknown-openbsd6.0 + s390 s390x-ibm-linux + s390x s390x-ibm-linux + riscv32 riscv32-unknown-linux + riscv64 riscv64-unknown-linux + diff --git a/trampoline/PORTING b/trampoline/PORTING new file mode 100644 index 0000000..46b6042 --- /dev/null +++ b/trampoline/PORTING @@ -0,0 +1,95 @@ +The list of CPUs and platforms TRAMPOLINE has been ported to can be found +at the top of file trampoline.c. + +To port TRAMPOLINE to a new platform, three issues may have to be resolved: +A. a new CPU - how to build the trampoline? +B. a new OS - how to make code in malloc'ed memory executable? +C. a new CPU or OS - how to flush the instruction cache? + + +A. a new CPU - how to build the trampoline? + + The trampoline is a short sequence of machine instructions which puts + the constant into , then jumps to

. The only + registers that are allowed to be modified are call-used registers. No + stack manipulations are allowed since the trampoline has to pass its + arguments along to the function at
. + + 1. To find out which instructions are available for "move"/"store" and + "jump", compile proto.c for your CPU: + + make -f Makefile.devel proto-${CPU}.s + or + gcc -O2 -fomit-frame-pointer -S proto.c -o proto-${CPU}.s + + 2. Write down the instructions for the trampoline in a file tramp-${CPU}.s, + using constants for , ,
. Assemble it: + + gcc -c tramp-${CPU}.s + + Verify that the jump actually goes to
. (Beware: Some CPUs have + program-counter relative jumps.) + + gdb tramp-${CPU}.o + disassemble tramp + + 3. Take a hex dump of tramp-${CPU}.o + + hexdump -e '"%06.6_ax " 16/1 " %02X" "\n"' < tramp-${CPU}.o + or + od -tx1 -Ax < tramp-${CPU}.o + or + od -x +x < tramp-${CPU}.o + + Look out for the magic numbers you used for , and +
. + + 4. Write the code which builds up a trampoline in memory, in trampoline.c. + + 5. Try it: + + make + make check1 + + 6. Write the is_tramp() macro and the tramp_xxx() accessor macros + in trampoline.c. + + 7. Try it: + + make + make check + + +B. a new OS - how to make code in malloc'ed memory executable? + + ‘configure’ will find out whether code stored in malloc'ed memory is + executable, or whether virtual memory protections have to be set in order + to allow this. (The test is pretty simple: it copies a small function + to malloc'ed memory and tries to executed it. The test could also fail + because the compiler produced non-position-independent code or because + of alignment issues.) + + To set virtual memory protections on a page of memory, your system should + provide the mprotect() and getpagesize() functions. If it does not, find + a substitute. + + +C. a new CPU or OS - how to flush the instruction cache? + + CPUs which have separate data and instruction caches need to flush + (part of) the instruction cache when alloc_trampoline() is called. + (There may have been an old trampoline at the same location, and the + instruction cache is not updated when the new trampoline is built. + The effect can be that when the new trampoline is called, the old one + will still be executed.) + + To flush the instruction cache, some CPUs have special instruction which + can be put into gcc "asm" statements. On some CPUs these instructions are + privileged, you therefore need to call some system or library function. + On other CPUs, the only way to flush the instruction cache is to execute + a long sequence of "nop" or "jump" instructions. This is hairy. + + +When you are done with porting to a new platform, or even if TRAMPOLINE +passes the "make check" out of the box without modifications, please report +your results to the author of TRAMPOLINE, for inclusion in the next release. diff --git a/trampoline/README b/trampoline/README new file mode 100644 index 0000000..01595c7 --- /dev/null +++ b/trampoline/README @@ -0,0 +1,70 @@ +trampoline - closures as first-class C functions. + +This library implements closures as first-class C functions. A closure +consists of a regular C function and a piece of data which gets passed to +the C function when the closure is called. + +Typical uses of closures are nested functions in programming languages, +and call-back functions passed to other libraries. + + +Installation instructions: + + Configure the parent directory. Then: + cd trampoline + make + make check + make install + + +Files in this package: + + Documentation: + + README this text + COPYING free software license + PLATFORMS list of supported platforms + trampoline.3 manual page in Unix man format + trampoline.html manual page in HTML format + + Source: + + trampoline.h include file + trampoline.c implementation of the library functions + tramp-hppa.s the trampoline for hppa, in assembly language + tramp-powerpc.S the trampoline for powerpc, in assembly language + cache.c how to flush the instruction cache, now unused + test1.c test program + test2.c test program + + Building: + + Makefile.in Makefile master + + Porting: + + PORTING porting instructions + Makefile.devel developer's Makefile + proto.c sample source containing assignment and jumping + proto-*.s its translation to assembly language + tramp-*.s the trampoline, in assembly language + tramp-*.o the trampoline, in binary form + + +Copyright notice: + +Copyright 1995-2017 Bruno Haible + +This program is free software: you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2 of the License, or +(at your option) any later version. + +This program is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with this program. If not, see . + diff --git a/trampoline/cache-alpha-linux.s b/trampoline/cache-alpha-linux.s new file mode 100644 index 0000000..6754a16 --- /dev/null +++ b/trampoline/cache-alpha-linux.s @@ -0,0 +1,20 @@ + .set noreorder + .set volatile + .set noat + .set nomacro + .text + .align 2 + .align 4 + .globl __TR_clear_cache + .ent __TR_clear_cache +$__TR_clear_cache..ng: +__TR_clear_cache: + .frame $30,0,$26,0 + .prologue 0 + .set macro + call_pal 0x86 + .set nomacro + ret $31,($26),1 + .end __TR_clear_cache + .ident "GCC: (GNU) 4.0.2" + .section .note.GNU-stack,"",@progbits diff --git a/trampoline/cache-alpha-macro.S b/trampoline/cache-alpha-macro.S new file mode 100644 index 0000000..e350f4c --- /dev/null +++ b/trampoline/cache-alpha-macro.S @@ -0,0 +1,21 @@ + .set noreorder + .set volatile + .set noat + .set nomacro + .text + .align 2 + .align 4 + .globl __TR_clear_cache + .ent __TR_clear_cache +$__TR_clear_cache..ng: +__TR_clear_cache: + .frame $30,0,$26,0 + .prologue 0 + .set macro + call_pal 0x86 + .set nomacro + ret $31,($26),1 + .end __TR_clear_cache +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/trampoline/cache-alpha.c b/trampoline/cache-alpha.c new file mode 100644 index 0000000..ad20947 --- /dev/null +++ b/trampoline/cache-alpha.c @@ -0,0 +1,24 @@ +/* Instruction cache flushing for alpha */ + +/* + * Copyright 1997 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +void __TR_clear_cache (void) +{ + /* Taken from gforth-0.3.0. */ + asm volatile ("call_pal 0x86"); /* imb (instruction-memory barrier) */ +} diff --git a/trampoline/cache-hppa-linux.s b/trampoline/cache-hppa-linux.s new file mode 100644 index 0000000..b9c9a6d --- /dev/null +++ b/trampoline/cache-hppa-linux.s @@ -0,0 +1,33 @@ + .LEVEL 1.1 + .text + .align 4 +.globl __TR_clear_cache + .type __TR_clear_cache,@function +__TR_clear_cache: + .PROC + .CALLINFO FRAME=0,NO_CALLS + .ENTRY +#APP + fdc 0(0,%r26) + fdc 0(0,%r25) + sync + mfsp %sr0,%r20 + ldsid (0,%r26),%r26 + mtsp %r26,%sr0 + fic 0(%sr0,%r26) + fic 0(%sr0,%r25) + sync + mtsp %r20,%sr0 + nop + nop + nop + nop + nop + nop +#NO_APP + bv,n %r0(%r2) + .EXIT + .PROCEND +.Lfe1: + .size __TR_clear_cache,.Lfe1-__TR_clear_cache + .ident "GCC: (GNU) 3.1" diff --git a/trampoline/cache-hppa-macro.S b/trampoline/cache-hppa-macro.S new file mode 100644 index 0000000..7c39646 --- /dev/null +++ b/trampoline/cache-hppa-macro.S @@ -0,0 +1,36 @@ +#include "asm-hppa.h" + .LEVEL 1.1 + IMPORT_MILLICODE($$dyncall) + TEXT1() + TEXT2() + .align 4 +GLOBL(__TR_clear_cache) + DECLARE_FUNCTION(__TR_clear_cache) +DEF(__TR_clear_cache) + .PROC + .CALLINFO FRAME=0,NO_CALLS + .ENTRY + fdc 0(0,%r26) + fdc 0(0,%r25) + sync + mfsp %sr0,%r20 + ldsid (0,%r26),%r26 + mtsp %r26,%sr0 + fic 0(%sr0,%r26) + fic 0(%sr0,%r25) + sync + mtsp %r20,%sr0 + nop + nop + nop + nop + nop + nop + bv,n %r0(%r2) + .EXIT + .PROCEND +DEF(L(fe1)) + FUNEND(__TR_clear_cache) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/trampoline/cache-hppa.c b/trampoline/cache-hppa.c new file mode 100644 index 0000000..2174716 --- /dev/null +++ b/trampoline/cache-hppa.c @@ -0,0 +1,65 @@ +/* Instruction cache flushing for hppa */ + +/* + * Copyright 1995-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#ifdef __hppa64__ +/* Tell GCC not to clobber the registers that are call-saved in the HP C + calling convention. */ +register long arg0 __asm__("r26"); +register long arg1 __asm__("r25"); +register long arg2 __asm__("r24"); +register long arg3 __asm__("r23"); +register long arg4 __asm__("r22"); +register long arg5 __asm__("r21"); +register long arg6 __asm__("r20"); +register long arg7 __asm__("r19"); +#endif + +/* + * This assumes that the range [first_addr..last_addr] lies in at most two + * cache lines. + */ +void __TR_clear_cache (char* first_addr, char* last_addr) +{ + register int tmp1; + register int tmp2; + /* Flush the relevant data cache lines. (Yes, this is needed. I tried it.) */ + asm volatile ("fdc 0(0,%0)" + "\n\t" "fdc 0(0,%1)" + "\n\t" "sync" + : + : "r" (first_addr), "r" (last_addr) + ); + /* Flush the relevant instruction cache lines. */ + asm volatile ("mfsp %%sr0,%1" + "\n\t" "ldsid (0,%4),%0" + "\n\t" "mtsp %0,%%sr0" + "\n\t" "fic 0(%%sr0,%2)" + "\n\t" "fic 0(%%sr0,%3)" + "\n\t" "sync" + "\n\t" "mtsp %1,%%sr0" + "\n\t" "nop" + "\n\t" "nop" + "\n\t" "nop" + "\n\t" "nop" + "\n\t" "nop" + "\n\t" "nop" + : "=r" (tmp1), "=r" (tmp2) + : "r" (first_addr), "r" (last_addr), "r" (first_addr) + ); +} diff --git a/trampoline/cache-hppa64-linux.s b/trampoline/cache-hppa64-linux.s new file mode 100644 index 0000000..928f35f --- /dev/null +++ b/trampoline/cache-hppa64-linux.s @@ -0,0 +1,35 @@ + .LEVEL 2.0w + .text + .align 8 +.globl __TR_clear_cache + .type __TR_clear_cache,@function +__TR_clear_cache: + .PROC + .CALLINFO FRAME=128,NO_CALLS + .ENTRY + ldo 128(%r30),%r30 +#APP + fdc 0(0,%r26) + fdc 0(0,%r25) + sync + mfsp %sr0,%r31 + ldsid (0,%r26),%r28 + mtsp %r28,%sr0 + fic 0(%sr0,%r26) + fic 0(%sr0,%r25) + sync + mtsp %r31,%sr0 + nop + nop + nop + nop + nop + nop +#NO_APP + bve (%r2) + ldo -128(%r30),%r30 + .EXIT + .PROCEND +.Lfe1: + .size __TR_clear_cache,.Lfe1-__TR_clear_cache + .ident "GCC: (GNU) 3.1" diff --git a/trampoline/cache-hppa64-macro.S b/trampoline/cache-hppa64-macro.S new file mode 100644 index 0000000..e5344ae --- /dev/null +++ b/trampoline/cache-hppa64-macro.S @@ -0,0 +1,37 @@ +#include "asm-hppa64.h" + .LEVEL 2.0w + TEXT1() + TEXT2() + .align 8 +GLOBL(__TR_clear_cache) + DECLARE_FUNCTION(__TR_clear_cache) +DEF(__TR_clear_cache) + .PROC + .CALLINFO FRAME=128,NO_CALLS + .ENTRY + ldo 128(%r30),%r30 + fdc 0(0,%r26) + fdc 0(0,%r25) + sync + mfsp %sr0,%r31 + ldsid (0,%r26),%r28 + mtsp %r28,%sr0 + fic 0(%sr0,%r26) + fic 0(%sr0,%r25) + sync + mtsp %r31,%sr0 + nop + nop + nop + nop + nop + nop + bve (%r2) + ldo -128(%r30),%r30 + .EXIT + .PROCEND +DEF(L(fe1)) + FUNEND(__TR_clear_cache) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/trampoline/cache-powerpc-linux-macro.S b/trampoline/cache-powerpc-linux-macro.S new file mode 100644 index 0000000..6dc7e1a --- /dev/null +++ b/trampoline/cache-powerpc-linux-macro.S @@ -0,0 +1,37 @@ + .file "cache-powerpc.c" + .section ".text" + .align 2 + .globl __TR_clear_cache + .type __TR_clear_cache, @function +__TR_clear_cache: + .extern __mulh + .extern __mull + .extern __divss + .extern __divus + .extern __quoss + .extern __quous + stwu 1,-32(1) + icbi 0,3; dcbf 0,3 + addi 0,3,4 + icbi 0,0; dcbf 0,0 + addi 9,3,8 + icbi 0,9; dcbf 0,9 + addi 0,3,12 + icbi 0,0; dcbf 0,0 + addi 9,3,16 + icbi 0,9; dcbf 0,9 + addi 0,3,20 + icbi 0,0; dcbf 0,0 + addi 9,3,24 + icbi 0,9; dcbf 0,9 + addi 0,3,28 + icbi 0,0; dcbf 0,0 + addi 3,3,32 + icbi 0,3; dcbf 0,3 + sync; isync + addi 1,1,32 + blr + .size __TR_clear_cache, .-__TR_clear_cache +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/trampoline/cache-powerpc-linux.s b/trampoline/cache-powerpc-linux.s new file mode 100644 index 0000000..0fb871e --- /dev/null +++ b/trampoline/cache-powerpc-linux.s @@ -0,0 +1,54 @@ + .file "cache-powerpc.c" + .section ".text" + .align 2 + .globl __TR_clear_cache + .type __TR_clear_cache, @function +__TR_clear_cache: + .extern __mulh + .extern __mull + .extern __divss + .extern __divus + .extern __quoss + .extern __quous + stwu 1,-32(1) +#APP + icbi 0,3; dcbf 0,3 +#NO_APP + addi 0,3,4 +#APP + icbi 0,0; dcbf 0,0 +#NO_APP + addi 9,3,8 +#APP + icbi 0,9; dcbf 0,9 +#NO_APP + addi 0,3,12 +#APP + icbi 0,0; dcbf 0,0 +#NO_APP + addi 9,3,16 +#APP + icbi 0,9; dcbf 0,9 +#NO_APP + addi 0,3,20 +#APP + icbi 0,0; dcbf 0,0 +#NO_APP + addi 9,3,24 +#APP + icbi 0,9; dcbf 0,9 +#NO_APP + addi 0,3,28 +#APP + icbi 0,0; dcbf 0,0 +#NO_APP + addi 3,3,32 +#APP + icbi 0,3; dcbf 0,3 + sync; isync +#NO_APP + addi 1,1,32 + blr + .size __TR_clear_cache, .-__TR_clear_cache + .section .note.GNU-stack,"",@progbits + .ident "GCC: (GNU) 3.3.6" diff --git a/trampoline/cache-powerpc-macos.s b/trampoline/cache-powerpc-macos.s new file mode 100644 index 0000000..ba869fb --- /dev/null +++ b/trampoline/cache-powerpc-macos.s @@ -0,0 +1,23 @@ +.text + .align 2 + .globl ___TR_clear_cache +___TR_clear_cache: + icbi 0,r3; dcbf 0,r3 + addi r0,r3,4 + icbi 0,r0; dcbf 0,r0 + addi r9,r3,8 + icbi 0,r9; dcbf 0,r9 + addi r0,r3,12 + icbi 0,r0; dcbf 0,r0 + addi r9,r3,16 + icbi 0,r9; dcbf 0,r9 + addi r0,r3,20 + icbi 0,r0; dcbf 0,r0 + addi r9,r3,24 + icbi 0,r9; dcbf 0,r9 + addi r0,r3,28 + icbi 0,r0; dcbf 0,r0 + addi r3,r3,32 + icbi 0,r3; dcbf 0,r3 + sync; isync + blr diff --git a/trampoline/cache-powerpc.c b/trampoline/cache-powerpc.c new file mode 100644 index 0000000..b204d22 --- /dev/null +++ b/trampoline/cache-powerpc.c @@ -0,0 +1,35 @@ +/* Instruction cache flushing for powerpc, not on AIX */ + +/* + * Copyright 1997-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +void __TR_clear_cache (char* first_addr) +{ + /* Taken from egcs-1.1.2/gcc/config/rs6000/tramp.asm. */ + /* The number of asm statements here depends on the value of TRAMP_LENGTH + for __powerpcsysv4__. */ + asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr)); + asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+4)); + asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+8)); + asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+12)); + asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+16)); + asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+20)); + asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+24)); + asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+28)); + asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+32)); + asm volatile ("sync; isync"); +} diff --git a/trampoline/cache-powerpc64-elfv2-linux.s b/trampoline/cache-powerpc64-elfv2-linux.s new file mode 100644 index 0000000..2cc82f5 --- /dev/null +++ b/trampoline/cache-powerpc64-elfv2-linux.s @@ -0,0 +1,54 @@ + .file "cache-powerpc64.c" + .machine power4 + .abiversion 2 + .section ".toc","aw" + .section ".text" + .align 2 + .p2align 4,,15 + .globl __TR_clear_cache + .type __TR_clear_cache, @function +__TR_clear_cache: +#APP + # 25 "cache-powerpc64.c" 1 + icbi 0,3; dcbf 0,3 + # 0 "" 2 +#NO_APP + addi 9,3,4 +#APP + # 26 "cache-powerpc64.c" 1 + icbi 0,9; dcbf 0,9 + # 0 "" 2 +#NO_APP + addi 9,3,8 +#APP + # 27 "cache-powerpc64.c" 1 + icbi 0,9; dcbf 0,9 + # 0 "" 2 +#NO_APP + addi 9,3,12 +#APP + # 28 "cache-powerpc64.c" 1 + icbi 0,9; dcbf 0,9 + # 0 "" 2 +#NO_APP + addi 9,3,16 +#APP + # 29 "cache-powerpc64.c" 1 + icbi 0,9; dcbf 0,9 + # 0 "" 2 +#NO_APP + addi 3,3,20 +#APP + # 30 "cache-powerpc64.c" 1 + icbi 0,3; dcbf 0,3 + # 0 "" 2 + # 31 "cache-powerpc64.c" 1 + sync; isync + # 0 "" 2 +#NO_APP + blr + .long 0 + .byte 0,0,0,0,0,0,0,0 + .size __TR_clear_cache,.-__TR_clear_cache + .ident "GCC: (GNU) 5.4.0" + .section .note.GNU-stack,"",@progbits diff --git a/trampoline/cache-powerpc64-elfv2-macro.S b/trampoline/cache-powerpc64-elfv2-macro.S new file mode 100644 index 0000000..98cb970 --- /dev/null +++ b/trampoline/cache-powerpc64-elfv2-macro.S @@ -0,0 +1,43 @@ + .file "cache-powerpc64.c" + .machine power4 + .abiversion 2 + .section ".toc","aw" + .section ".text" + .align 2 + .p2align 4,,15 + .globl __TR_clear_cache + .type __TR_clear_cache, @function +__TR_clear_cache: + # 25 "cache-powerpc64.c" 1 + icbi 0,3; dcbf 0,3 + # 0 "" 2 + addi 9,3,4 + # 26 "cache-powerpc64.c" 1 + icbi 0,9; dcbf 0,9 + # 0 "" 2 + addi 9,3,8 + # 27 "cache-powerpc64.c" 1 + icbi 0,9; dcbf 0,9 + # 0 "" 2 + addi 9,3,12 + # 28 "cache-powerpc64.c" 1 + icbi 0,9; dcbf 0,9 + # 0 "" 2 + addi 9,3,16 + # 29 "cache-powerpc64.c" 1 + icbi 0,9; dcbf 0,9 + # 0 "" 2 + addi 3,3,20 + # 30 "cache-powerpc64.c" 1 + icbi 0,3; dcbf 0,3 + # 0 "" 2 + # 31 "cache-powerpc64.c" 1 + sync; isync + # 0 "" 2 + blr + .long 0 + .byte 0,0,0,0,0,0,0,0 + .size __TR_clear_cache,.-__TR_clear_cache +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/trampoline/cache-powerpc64.c b/trampoline/cache-powerpc64.c new file mode 100644 index 0000000..8baba8c --- /dev/null +++ b/trampoline/cache-powerpc64.c @@ -0,0 +1,32 @@ +/* Instruction cache flushing for powerpc64, not the AIX ABI */ + +/* + * Copyright 1997-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +void __TR_clear_cache (char* first_addr) +{ + /* Taken from egcs-1.1.2/gcc/config/rs6000/tramp.asm. */ + /* The number of asm statements here depends on the value of TRAMP_LENGTH-3*8 + for __powerpc64_elfv2__. */ + asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr)); + asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+4)); + asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+8)); + asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+12)); + asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+16)); + asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+20)); + asm volatile ("sync; isync"); +} diff --git a/trampoline/cache-sparc-linux.s b/trampoline/cache-sparc-linux.s new file mode 100644 index 0000000..a59943c --- /dev/null +++ b/trampoline/cache-sparc-linux.s @@ -0,0 +1,15 @@ + .file "cache-sparc.c" + .section ".text" + .align 4 + .global __TR_clear_cache_4 + .type __TR_clear_cache_4,#function + .proc 020 +__TR_clear_cache_4: + !#PROLOGUE# 0 + iflush %o0+0;iflush %o0+8;iflush %o0+16;iflush %o0+24 + nop + retl + nop +.LLfe1: + .size __TR_clear_cache_4,.LLfe1-__TR_clear_cache_4 + .ident "GCC: (GNU) 3.1" diff --git a/trampoline/cache-sparc-macro.S b/trampoline/cache-sparc-macro.S new file mode 100644 index 0000000..d9ec5bc --- /dev/null +++ b/trampoline/cache-sparc-macro.S @@ -0,0 +1,17 @@ +#include "asm-sparc.h" + .section ".text" + .align 4 + .global C(__TR_clear_cache_4) + DECLARE_FUNCTION(__TR_clear_cache_4) + .proc 020 +FUNBEGIN(__TR_clear_cache_4) + !$PROLOGUE$ 0 + iflush %o0+0;iflush %o0+8;iflush %o0+16;iflush %o0+24 + nop + retl + nop +L(Lfe1): + FUNEND(__TR_clear_cache_4) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/trampoline/cache-sparc.c b/trampoline/cache-sparc.c new file mode 100644 index 0000000..83981e2 --- /dev/null +++ b/trampoline/cache-sparc.c @@ -0,0 +1,31 @@ +/* Instruction cache flushing for sparc */ + +/* + * Copyright 1996-1999 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +/* + * This assumes that the range [first_addr..last_addr] lies in at most four + * cache lines. + */ +void __TR_clear_cache_4 (char* first_addr, char* last_addr) +{ + asm volatile ("iflush %0+0;" /* the +0 is needed by gas, says gforth-0.3.0 */ + "iflush %0+8;" + "iflush %0+16;" + "iflush %0+24" + : : "r" (first_addr)); +} diff --git a/trampoline/cache-sparc64-linux.s b/trampoline/cache-sparc64-linux.s new file mode 100644 index 0000000..2951612 --- /dev/null +++ b/trampoline/cache-sparc64-linux.s @@ -0,0 +1,13 @@ + .file "cache-sparc.c" + .section ".text" + .align 4 + .global __TR_clear_cache_4 + .type __TR_clear_cache_4, #function + .proc 020 +__TR_clear_cache_4: + iflush %o0+0;iflush %o0+8;iflush %o0+16;iflush %o0+24 + jmp %o7+8 + nop + .size __TR_clear_cache_4, .-__TR_clear_cache_4 + .ident "GCC: (GNU) 4.0.2" + .section ".note.GNU-stack" diff --git a/trampoline/cache-sparc64-macro.S b/trampoline/cache-sparc64-macro.S new file mode 100644 index 0000000..5e5da94 --- /dev/null +++ b/trampoline/cache-sparc64-macro.S @@ -0,0 +1,14 @@ +#include "asm-sparc.h" + .section ".text" + .align 4 + .global C(__TR_clear_cache_4) + DECLARE_FUNCTION(__TR_clear_cache_4) + .proc 020 +FUNBEGIN(__TR_clear_cache_4) + iflush %o0+0;iflush %o0+8;iflush %o0+16;iflush %o0+24 + jmp %o7+8 + nop + FUNEND(__TR_clear_cache_4) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/trampoline/cache.c b/trampoline/cache.c new file mode 100644 index 0000000..7d34af9 --- /dev/null +++ b/trampoline/cache.c @@ -0,0 +1,143 @@ +/* This file is derived from gcc-2.6.3/libgcc2.c, section L_clear_cache */ + +/* Copyright (C) 1989-2017 Free Software Foundation, Inc. + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . */ + + +/* Clear part of an instruction cache. */ + +/* Our emphasis here is _not_ to clear as few cache lines as possible + * or with as few machine instructions as possible, but to do it _right_. + */ + + + +/* This code is apparently untested!! */ + +/* This is from Andreas Stolcke . */ +#if defined(__mips__) || defined(__mips64__) +#include +#define CLEAR_INSN_CACHE(BEG, END) \ + cacheflush (BEG, END - BEG, BCACHE) +#endif + +void +__TR_clear_cache (beg, end) + char *beg, *end; +{ +#ifdef CLEAR_INSN_CACHE + CLEAR_INSN_CACHE (beg, end); +#else +#ifdef INSN_CACHE_SIZE /* This is actually dead code!! */ +#define INSN_CACHE_PLANE_SIZE (INSN_CACHE_SIZE / INSN_CACHE_DEPTH) + static char array[INSN_CACHE_SIZE + INSN_CACHE_PLANE_SIZE + INSN_CACHE_LINE_WIDTH]; + static int initialized = 0; + int offset; + void *start_addr; + void *end_addr; + typedef (*function_ptr) (); + +#if (INSN_CACHE_SIZE / INSN_CACHE_LINE_WIDTH) < 16 + /* It's cheaper to clear the whole cache. + Put in a series of jump instructions so that calling the beginning + of the cache will clear the whole thing. */ + + if (! initialized) + { + int ptr = (((int) array + INSN_CACHE_LINE_WIDTH - 1) + & -INSN_CACHE_LINE_WIDTH); + int end_ptr = ptr + INSN_CACHE_SIZE; + + while (ptr < end_ptr) + { + *(INSTRUCTION_TYPE *)ptr + = JUMP_AHEAD_INSTRUCTION + INSN_CACHE_LINE_WIDTH; + ptr += INSN_CACHE_LINE_WIDTH; + } + *(INSTRUCTION_TYPE *)(ptr - INSN_CACHE_LINE_WIDTH) = RETURN_INSTRUCTION; + + initialized = 1; + } + + /* Call the beginning of the sequence. */ + (((function_ptr) (((int) array + INSN_CACHE_LINE_WIDTH - 1) + & -INSN_CACHE_LINE_WIDTH)) + ()); + +#else /* Cache is large. */ + + if (! initialized) + { + int ptr = (((int) array + INSN_CACHE_LINE_WIDTH - 1) + & -INSN_CACHE_LINE_WIDTH); + + while (ptr < (int) array + sizeof array) + { + *(INSTRUCTION_TYPE *)ptr = RETURN_INSTRUCTION; + ptr += INSN_CACHE_LINE_WIDTH; + } + + initialized = 1; + } + + /* Find the location in array that occupies the same cache line as BEG. */ + + offset = ((int) beg & -INSN_CACHE_LINE_WIDTH) & (INSN_CACHE_PLANE_SIZE - 1); + start_addr = (((int) (array + INSN_CACHE_PLANE_SIZE - 1) + & -INSN_CACHE_PLANE_SIZE) + + offset); + + /* Compute the cache alignment of the place to stop clearing. */ +#if 0 /* This is not needed for gcc's purposes. */ + /* If the block to clear is bigger than a cache plane, + we clear the entire cache, and OFFSET is already correct. */ + if (end < beg + INSN_CACHE_PLANE_SIZE) +#endif + offset = (((int) (end + INSN_CACHE_LINE_WIDTH - 1) + & -INSN_CACHE_LINE_WIDTH) + & (INSN_CACHE_PLANE_SIZE - 1)); + +#if INSN_CACHE_DEPTH > 1 + end_addr = (start_addr & -INSN_CACHE_PLANE_SIZE) + offset; + if (end_addr <= start_addr) + end_addr += INSN_CACHE_PLANE_SIZE; + + for (plane = 0; plane < INSN_CACHE_DEPTH; plane++) + { + int addr = start_addr + plane * INSN_CACHE_PLANE_SIZE; + int stop = end_addr + plane * INSN_CACHE_PLANE_SIZE; + + while (addr != stop) + { + /* Call the return instruction at ADDR. */ + ((function_ptr) addr) (); + + addr += INSN_CACHE_LINE_WIDTH; + } + } +#else /* just one plane */ + do + { + /* Call the return instruction at START_ADDR. */ + ((function_ptr) start_addr) (); + + start_addr += INSN_CACHE_LINE_WIDTH; + } + while ((start_addr % INSN_CACHE_SIZE) != offset); +#endif /* just one plane */ +#endif /* Cache is large */ +#endif /* Cache exists */ +#endif /* CLEAR_INSN_CACHE */ +} diff --git a/trampoline/test1.c b/trampoline/test1.c new file mode 100644 index 0000000..d447ac3 --- /dev/null +++ b/trampoline/test1.c @@ -0,0 +1,45 @@ +/* Trampoline test */ + +/* + * Copyright 1995-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include +#include + +#include "trampoline.h" + +#define MAGIC1 0x9db9af42 +#define MAGIC2 0x614a13c9 + +static int magic = MAGIC1; + +void* function_data; + +int f (int x) +{ return *(int*)function_data + x; } + +int main () +{ + trampoline_function_t cf = alloc_trampoline((trampoline_function_t)&f, &function_data, &magic); + /* calling cf shall set function_data = &magic and then call f(x), + * thus returning magic + x. + */ + if (((*cf)(MAGIC2) == MAGIC1+MAGIC2) && (function_data == &magic)) + { free_trampoline(cf); printf("Works, test1 passed.\n"); exit(0); } + else + { printf("Doesn't work!\n"); exit(1); } +} diff --git a/trampoline/test2-c++.cc b/trampoline/test2-c++.cc new file mode 100644 index 0000000..6c7dfff --- /dev/null +++ b/trampoline/test2-c++.cc @@ -0,0 +1,18 @@ +/* + * Copyright 2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "test2.c" diff --git a/trampoline/test2.c b/trampoline/test2.c new file mode 100644 index 0000000..2ee55da --- /dev/null +++ b/trampoline/test2.c @@ -0,0 +1,51 @@ +/* Trampoline accessor test */ + +/* + * Copyright 1995-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include +#include + +#include "trampoline.h" + +int f (int x) +{ return x; } + +void* variable; + +static int data; + +int main () +{ + trampoline_function_t cf = alloc_trampoline((trampoline_function_t)&f, &variable, &data); + if (is_trampoline((void*)&f)) + { printf("is_trampoline(&f) returns true!\n"); exit(1); } +#if !defined(__cplusplus) + if (is_trampoline((void*)&main)) + { printf("is_trampoline(&main) returns true!\n"); exit(1); } +#endif + if (!is_trampoline((void*)cf)) + { printf("is_trampoline() returns false!\n"); exit(1); } + if (trampoline_address(cf) != (trampoline_function_t)&f) + { printf("trampoline_address() doesn't work!\n"); exit(1); } + if (trampoline_variable(cf) != &variable) + { printf("trampoline_variable() doesn't work!\n"); exit(1); } + if (trampoline_data(cf) != &data) + { printf("trampoline_data() doesn't work!\n"); exit(1); } + printf("test2 passed.\n"); + exit(0); +} diff --git a/trampoline/tramp-hppa-macro.S b/trampoline/tramp-hppa-macro.S new file mode 100644 index 0000000..4cc60ad --- /dev/null +++ b/trampoline/tramp-hppa-macro.S @@ -0,0 +1,53 @@ +; Trampoline for hppa CPU + +; Copyright 1997-2017 Bruno Haible +; +; This program is free software: you can redistribute it and/or modify +; it under the terms of the GNU General Public License as published by +; the Free Software Foundation; either version 2 of the License, or +; (at your option) any later version. +; +; This program is distributed in the hope that it will be useful, +; but WITHOUT ANY WARRANTY; without even the implied warranty of +; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +; GNU General Public License for more details. +; +; You should have received a copy of the GNU General Public License +; along with this program. If not, see . + +; Available registers: %r1, %r19, %r20, %r21, %r22, %r29, %r31. + + .code + .IMPORT $global$,DATA + .IMPORT $$dyncall,MILLICODE + .code + + .align 4 + .EXPORT tramp,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR + .label tramp + .PROC + .CALLINFO FRAME=0,NO_CALLS + .ENTRY +; The closure pointer is already in register %r19. +; Move into register %r20. + ldw 0(0,%r19),%r20 +; Move into register %r22 + ldw 4(0,%r19),%r22 +; Move
into register %r21. + ldw 8(0,%r19),%r21 +; Store into . + stw %r22,0(0,%r20) +; Jump to %r21. + bb,>=,n %r21,30,tramp_2 + depi 0,31,2,%r21 + ldw 4(0,%r21),%r19 + ldw 0(0,%r21),%r21 + .label tramp_2 + ldsid (0,%r21),%r1 + mtsp %r1,%sr0 + be,n 0(%sr0,%r21) + nop + .EXIT + .PROCEND + +#include "noexecstack.h" diff --git a/trampoline/tramp-hppa64-macro.S b/trampoline/tramp-hppa64-macro.S new file mode 100644 index 0000000..2f7b8af --- /dev/null +++ b/trampoline/tramp-hppa64-macro.S @@ -0,0 +1,50 @@ +; Trampoline for hppa64 CPU + +; Copyright 2017 Bruno Haible +; +; This program is free software: you can redistribute it and/or modify +; it under the terms of the GNU General Public License as published by +; the Free Software Foundation; either version 2 of the License, or +; (at your option) any later version. +; +; This program is distributed in the hope that it will be useful, +; but WITHOUT ANY WARRANTY; without even the implied warranty of +; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +; GNU General Public License for more details. +; +; You should have received a copy of the GNU General Public License +; along with this program. If not, see . + +; Available registers: %r1, %r27, %r31. +; %r27 has a fixed meaning at function calls: pic_base (a.k.a. gp or dp). +; %r31 has a fixed meaning as millicode return pointer (mrp). + +#include "asm-hppa64.h" + + .LEVEL 2.0w + TEXT1() + TEXT2() + .align 8 + GLOBL(tramp) + DECLARE_FUNCTION(tramp) +DEF(tramp) + .PROC + .CALLINFO FRAME=0,NO_CALLS + .ENTRY +; The closure pointer is already in register %r27. +; Move into . + ldd 0(%r27),%r31 ; get + ldd 8(%r27),%r1 ; get + std %r1,0(%r31) ; store in +; Jump to . + ldd 16(%r27),%r27 ; get + ldd 16(%r27),%r1 + ldd 24(%r27),%r27 + bve (%r1) ; jump to + nop + .EXIT + .PROCEND +DEF(L(fe1)) + FUNEND(tramp) + +#include "noexecstack.h" diff --git a/trampoline/tramp-ia64-macro.S b/trampoline/tramp-ia64-macro.S new file mode 100644 index 0000000..1b694b8 --- /dev/null +++ b/trampoline/tramp-ia64-macro.S @@ -0,0 +1,46 @@ +/* Trampoline for ia64 CPU */ + +/* + * Copyright 2001-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +/* Available registers: r14 ... r31, r9 ... r11, r2 ... r3. */ + + .text + .align 16 + .global tramp# + .proc tramp# +tramp: + /* The closure pointer is already in register r1. */ + ld8 r14 = [r1] /* Move
into register r14. */ + adds r15 = 8, r1 + adds r16 = 16, r1 + ;; + /* Jump to r14. */ + ld8 r18 = [r14] + ld8 r15 = [r15] /* Move into register r15. */ + adds r17 = 8, r14 + ;; + ld8 r16 = [r16] /* Move into register r16. */ + ld8 r1 = [r17] + mov b6 = r18 + ;; + st8 [r15] = r16 /* Store into . */ + br b6 + ;; + .endp tramp# + +#include "noexecstack.h" diff --git a/trampoline/tramp-powerpc-aix.S b/trampoline/tramp-powerpc-aix.S new file mode 100644 index 0000000..a36634b --- /dev/null +++ b/trampoline/tramp-powerpc-aix.S @@ -0,0 +1,51 @@ +/* Trampoline for powerpc CPU with AIX calling convention */ + +/* + * Copyright 1995-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +/* Available registers: r0, r11, r12. */ +/* However, r0 is special in that it cannot be used as a base register. */ + + .globl tramp + .globl .tramp +.csect tramp[DS] +tramp: + .long .tramp, 0, 0 +.csect .text[PR] +.tramp: +/* Move into */ + lwz 11,0(2) /* get */ + lwz 12,4(2) /* get */ + stw 12,0(11) +/* Get */ + lwz 12,8(2) +/* + * gcc-2.6.3 source says: + * A function pointer is a pointer to a data area whose first word contains + * the actual address of the function, whose second word contains a pointer + * to its TOC, and whose third word contains a value to place in the static + * chain register (r11). + */ + lwz 11,8(12) /* pass static chain in r11 */ + lwz 2,4(12) /* pass TOC in r2 */ + lwz 0,0(12) /* actual code address */ + mtctr 0 + bctr + +_section_.text: +.csect .data[RW] + .long _section_.text diff --git a/trampoline/tramp-powerpc64-aix.S b/trampoline/tramp-powerpc64-aix.S new file mode 100644 index 0000000..7fd0f66 --- /dev/null +++ b/trampoline/tramp-powerpc64-aix.S @@ -0,0 +1,57 @@ +/* Trampoline for powerpc64 CPU with AIX calling convention */ + +/* + * Copyright 1995-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +/* Available registers: r0, r11, r12. */ +/* However, r0 is special in that it cannot be used as a base register. */ + + .machine "ppc64" + +#ifdef _AIX + .rename H.4.NO_SYMBOL{PR},"" + .lglobl H.4.NO_SYMBOL{PR} + + .globl .tramp + .csect H.4.NO_SYMBOL{PR},7 +#else + .globl tramp + .globl .tramp +tramp: + .quad .tramp +#endif +.tramp: +/* Move into */ + ld 11,0(2) /* get */ + ld 12,8(2) /* get */ + std 12,0(11) +/* Get */ + ld 12,16(2) +/* + * gcc-2.6.3 source says: + * A function pointer is a pointer to a data area whose first word contains + * the actual address of the function, whose second word contains a pointer + * to its TOC, and whose third word contains a value to place in the static + * chain register (r11). + */ + ld 11,16(12) /* pass static chain in r11 */ + ld 2,8(12) /* pass TOC in r2 */ + ld 0,0(12) /* actual code address */ + mtctr 0 + bctr + +#include "noexecstack.h" diff --git a/trampoline/trampoline.3 b/trampoline/trampoline.3 new file mode 100644 index 0000000..09d33ac --- /dev/null +++ b/trampoline/trampoline.3 @@ -0,0 +1,124 @@ +.\" Copyright (C) 1995-2017 Bruno Haible +.\" +.\" This manual is free documentation. It is dually licensed under the +.\" GNU FDL and the GNU GPL. This means that you can redistribute this +.\" manual under either of these two licenses, at your choice. +.\" +.\" This manual is covered by the GNU FDL. Permission is granted to copy, +.\" distribute and/or modify this document under the terms of the +.\" GNU Free Documentation License (FDL), either version 1.2 of the +.\" License, or (at your option) any later version published by the +.\" Free Software Foundation (FSF); with no Invariant Sections, with no +.\" Front-Cover Text, and with no Back-Cover Texts. +.\" A copy of the license is at . +.\" +.\" This manual is covered by the GNU GPL. You can redistribute it and/or +.\" modify it under the terms of the GNU General Public License (GPL), either +.\" version 2 of the License, or (at your option) any later version published +.\" by the Free Software Foundation (FSF). +.\" A copy of the license is at . +.\" +.TH TRAMPOLINE 3 "1 January 2017" +.SH NAME +trampoline \- closures as first-class C functions +.SH SYNOPSIS +.B #include +.LP +.B function = alloc_trampoline(address, variable, data); +.LP +.B free_trampoline(function); +.LP +.nf +.B is_trampoline(function) +.B trampoline_address(function) +.B trampoline_variable(function) +.B trampoline_data(function) +.fi +.SH DESCRIPTION +.LP +These functions implement +.I closures +as first-class C functions. +A closure consists of a regular C function and a piece of data +which gets passed to the C function when the closure is called. + +Closures as +.I first-class C functions +means that they fit into a function +pointer and can be called exactly like any other C function. +.IB function " = alloc_trampoline(" address ", " variable ", " data ")" +allocates a closure. When +.I function +gets called, it stores +.I data +in the variable +.I variable +and calls the C function at +.IR address . +The function at +.I address +is responsible for fetching +.I data +out of +.I variable +immediately, before execution of any other function call. + +This is much like +.BR gcc "'s" +local functions, except that the GNU C local functions have dynamic extent +(i.e. are deallocated when the creating function returns), while +.I trampoline +provides functions with indefinite extent: +.I function +is only deallocated when +.BI free_trampoline( function ) +is called. + +.BI "is_trampoline(" function ")" +checks whether the C function +.I function +was produced by a call to +.IR alloc_trampoline . +If this returns true, the arguments given to +.I alloc_trampoline +can be retrieved: +.RS 4 +.LP +.BI "trampoline_address(" function ")" +returns +.IR address , +.LP +.BI "trampoline_variable(" function ")" +returns +.IR variable , +.LP +.BI "trampoline_data(" function ")" +returns +.IR data . +.RE + +.SH SEE ALSO +.BR gcc (1), +.BR stdarg (3), +.BR callback (3) + +.SH BUGS +Passing the data through a global variable is not reentrant. Don't call +trampoline functions from within signal handlers. This is fixed in the +.BR callback (3) +package. + +.SH PORTING +The way +.B gcc +builds local functions is described in the gcc source, file +.RI gcc-2.6.3/config/ cpu / cpu .h. + +.SH AUTHOR + +Bruno Haible + +.SH ACKNOWLEDGEMENTS + +Many ideas were cribbed from the gcc source. + diff --git a/trampoline/trampoline.c b/trampoline/trampoline.c new file mode 100644 index 0000000..79f2c92 --- /dev/null +++ b/trampoline/trampoline.c @@ -0,0 +1,1741 @@ +/* Trampoline construction */ + +/* + * Copyright 1995-2019 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + + +#include "config.h" +#include "trampoline.h" + +#if defined(__hppa__) && !defined(__hppa64__) +#if 0 +#define __hppaold__ /* Old trampoline, real machine code. */ +#else +#define __hppanew__ /* New trampoline, just a closure. */ +#endif +#endif +#if defined(__hppa64__) +#if 0 +#define __hppa64old__ /* Old trampoline, real machine code. */ +#else +#define __hppa64new__ /* New trampoline, just a closure. */ +#endif +#endif +#if defined(__powerpc__) && !defined(__powerpc64__) +#if !defined(_AIX) +#define __powerpcsysv4__ /* SysV.4 ABI, real machine code. */ +#else +#define __powerpcaix__ /* AIX ABI, just a closure. */ +#endif +#endif +#if defined(__powerpc64__) && !defined(__powerpc64_elfv2__) +#define __powerpc64aix__ /* AIX ABI, just a closure. */ +#endif +#if defined(__hppanew__) || defined(__hppa64new__) +/* + * A function pointer is a biased pointer to a data area whose first word + * (hppa) or third word (hppa64) contains the actual address of the function. + */ +extern void tramp (); /* trampoline prototype */ +/* We don't need to take any special measures to make the code executable + * since the actual instructions are in the text segment. + */ +#ifndef CODE_EXECUTABLE +#define CODE_EXECUTABLE +#endif +#endif +#if defined(__powerpcaix__) || defined(__powerpc64aix__) || defined(__ia64__) +/* + * A function pointer is a pointer to a data area whose first word contains + * the actual address of the function. + */ +extern void (*tramp) (); /* trampoline prototype */ +/* We don't need to take any special measures to make the code executable + * since the actual instructions are in the text segment. + */ +#ifndef CODE_EXECUTABLE +#define CODE_EXECUTABLE +#endif +#endif + +#ifndef CODE_EXECUTABLE + /* How do we make the trampoline's code executable? */ + #if defined(HAVE_MACH_VM) || defined(HAVE_WORKING_MPROTECT) + #if HAVE_MPROTECT_AFTER_MALLOC_CAN_EXEC > 0 + /* mprotect() [or equivalent] the malloc'ed area. */ + #define EXECUTABLE_VIA_MALLOC_THEN_MPROTECT + #elif HAVE_MPROTECT_AFTER_MMAP_CAN_EXEC > 0 + /* mprotect() [or equivalent] the mmap'ed area. */ + #define EXECUTABLE_VIA_MMAP_THEN_MPROTECT + #elif defined(HAVE_MMAP_SHARED_CAN_EXEC) + #define EXECUTABLE_VIA_MMAP_FILE_SHARED + #else + #error "Don't know how to make memory pages executable." + #endif + #else + #ifdef HAVE_MMAP + /* Use an mmap'ed page. */ + #define EXECUTABLE_VIA_MMAP + #else + #ifdef HAVE_SHM + /* Use an shmat'ed page. */ + #define EXECUTABLE_VIA_SHM + #else + #if defined(_WIN32) && ! defined(__CYGWIN__) /* native Windows */ + #define EXECUTABLE_VIA_VIRTUALALLOC + #else + ?? + #endif + #endif + #endif + #endif +#endif + +#include /* declares fprintf() */ + +#include +#include /* declares abort(), malloc(), free() */ +#ifdef HAVE_UNISTD_H +#include +#endif + +/* Define intptr_t, uintptr_t. */ +#include + +/* Declare getpagesize(). */ +#ifdef HAVE_GETPAGESIZE +#ifdef __cplusplus +extern "C" RETGETPAGESIZETYPE getpagesize (void); +#else +extern RETGETPAGESIZETYPE getpagesize (void); +#endif +#else +#ifdef HAVE_SYS_PARAM_H +#include +#else +/* Not Unix, e.g. mingw32 */ +#define PAGESIZE 4096 +#endif +#define getpagesize() PAGESIZE +#endif + +/* Declare mprotect() or equivalent. */ +#if defined(EXECUTABLE_VIA_MALLOC_THEN_MPROTECT) || defined(EXECUTABLE_VIA_MMAP_THEN_MPROTECT) +#ifdef HAVE_MACH_VM +#include +#include +#ifdef __osf__ +#include +#endif +#include +#else +#include +#include +#endif +#endif + +/* Declare mmap(). */ +#if defined(EXECUTABLE_VIA_MMAP) || defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) +#include +#include +#if !defined(PROT_EXEC) && defined(PROT_EXECUTE) /* Irix 4.0.5 needs this */ +#define PROT_EXEC PROT_EXECUTE +#endif +#endif + +/* Declare open(). */ +#if defined(EXECUTABLE_VIA_MMAP_DEVZERO) || defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) +#include +#include +#include +#endif + +/* Declare shmget(), shmat(), shmctl(). */ +#ifdef EXECUTABLE_VIA_SHM +#include +#include +#include +#ifdef HAVE_SYS_SYSMACROS_H +#include +#endif +#endif + +/* Declare VirtualAlloc(), GetSystemInfo. */ +#ifdef EXECUTABLE_VIA_VIRTUALALLOC +#define WIN32_LEAN_AND_MEAN +#define WIN32_EXTRA_LEAN +#include +#endif + +/* Some old mmap() implementations require the flag MAP_FILE whenever you pass + an fd >= 0. */ +#ifndef MAP_FILE +#define MAP_FILE 0 +#endif +/* Some old mmap() implementations require the flag MAP_VARIABLE whenever you + pass an addr == NULL. */ +#ifndef MAP_VARIABLE +#define MAP_VARIABLE 0 +#endif + +/* Support for instruction cache flush. */ +#ifdef __i386__ +#if defined(_WIN32) && ! defined(__CYGWIN__) /* native Windows */ +#define WIN32_LEAN_AND_MEAN +#define WIN32_EXTRA_LEAN +#include +#endif +#endif +#if defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) || defined(__riscv32__) || defined(__riscv64__) +#ifdef HAVE_SYS_CACHECTL_H /* IRIX, Linux */ +#include +#else +#ifdef __OpenBSD__ +#include +#endif +#endif +#endif +/* Inline assembly function for instruction cache flush. */ +#if defined(__sparc__) || defined(__sparc64__) || defined(__alpha__) || defined(__hppaold__) || defined(__hppa64old__) || defined(__powerpcsysv4__) || defined(__powerpc64_elfv2__) +#if defined(__sparc__) || defined(__sparc64__) +extern void __TR_clear_cache_4(); +#else +extern void __TR_clear_cache(); +#endif +#endif + +/* Support for multithread-safe coding. */ +#include "glthread/lock.h" + +#if !defined(CODE_EXECUTABLE) && defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) +/* Opens a file descriptor and attempts to make it non-inheritable. */ +static int open_noinherit (const char *filename, int flags, int mode) +{ +# if O_CLOEXEC + return open (filename, flags | O_CLOEXEC, mode); +# else + int fd = open (filename, flags, mode); +# ifdef F_SETFD + if (fd >= 0) + { + int flags = fcntl (fd, F_GETFD, 0); + if (flags >= 0) + fcntl (fd, F_SETFD, flags | FD_CLOEXEC); + } +# endif + return fd; +# endif +} +#endif + +/* Length and alignment of trampoline */ +#ifdef __i386__ +#define TRAMP_LENGTH 15 +#define TRAMP_ALIGN 16 /* 4 for a i386, 16 for a i486 */ +#endif +#ifdef __m68k__ +#define TRAMP_LENGTH 18 +#define TRAMP_ALIGN 16 +#endif +#if defined(__mipsold__) && !defined(__mipsn32__) +#define TRAMP_LENGTH 32 +#define TRAMP_ALIGN 4 +#endif +#if (defined(__mips__) || defined(__mipsn32__)) && !defined(__mips64__) +#define TRAMP_LENGTH 36 +#define TRAMP_ALIGN 4 +#endif +#ifdef __mips64old__ +#define TRAMP_LENGTH 84 +#define TRAMP_ALIGN 4 +#endif +#ifdef __mips64__ +#define TRAMP_LENGTH 48 +#define TRAMP_ALIGN 8 +#endif +#if defined(__sparc__) && !defined(__sparc64__) +#define TRAMP_LENGTH 28 +#define TRAMP_ALIGN 16 +#endif +#ifdef __sparc64__ +#define TRAMP_LENGTH 48 +#define TRAMP_ALIGN 16 +#endif +#ifdef __alpha__ +#define TRAMP_LENGTH 48 +#define TRAMP_ALIGN 8 +#endif +#ifdef __hppaold__ +#define TRAMP_LENGTH 56 +#define TRAMP_ALIGN 16 +#endif +#ifdef __hppanew__ +#define TRAMP_LENGTH 20 +#define TRAMP_ALIGN 16 +#define TRAMP_BIAS 2 +#endif +#ifdef __hppa64old__ +#define TRAMP_LENGTH 96 +#define TRAMP_ALIGN 8 +#define TRAMP_BIAS 64 +#endif +#ifdef __hppa64new__ +#define TRAMP_LENGTH 56 +#define TRAMP_ALIGN 8 +#endif +#if defined(__arm__) || defined(__armhf__) +#define TRAMP_LENGTH 36 +#define TRAMP_ALIGN 4 +#endif +#ifdef __arm64__ +#define TRAMP_LENGTH 48 +#define TRAMP_ALIGN 8 +#endif +#ifdef __powerpcsysv4__ +#define TRAMP_LENGTH 36 +#define TRAMP_ALIGN 4 +#endif +#ifdef __powerpcaix__ +#define TRAMP_LENGTH 24 +#define TRAMP_ALIGN 4 +#endif +#ifdef __powerpc64_elfv2__ +#define TRAMP_LENGTH 48 +#define TRAMP_ALIGN 8 +#endif +#ifdef __powerpc64aix__ +#define TRAMP_LENGTH 48 +#define TRAMP_ALIGN 8 +#endif +#ifdef __ia64__ +#define TRAMP_LENGTH 40 +#define TRAMP_ALIGN 16 +#endif +#ifdef __x86_64__ +#ifdef __x86_64_x32__ +#define TRAMP_LENGTH 18 +#define TRAMP_ALIGN 4 +#else +#define TRAMP_LENGTH 32 +#define TRAMP_ALIGN 16 +#endif +#endif +#if defined(__s390__) && !defined(__s390x__) +#define TRAMP_LENGTH 40 +#define TRAMP_ALIGN 4 +#endif +#if defined(__s390x__) +#define TRAMP_LENGTH 64 +#define TRAMP_ALIGN 8 +#endif +#if defined(__riscv32__) +#define TRAMP_LENGTH 36 +#define TRAMP_ALIGN 4 +#endif +#if defined(__riscv64__) +#define TRAMP_LENGTH 48 +#define TRAMP_ALIGN 8 +#endif + +#ifndef TRAMP_BIAS +#define TRAMP_BIAS 0 +#endif + +#if !defined(CODE_EXECUTABLE) +static long pagesize = 0; +#endif + +#if !defined(CODE_EXECUTABLE) && (defined(EXECUTABLE_VIA_MMAP_DEVZERO) || defined(EXECUTABLE_VIA_MMAP_FILE_SHARED)) + +/* Variables needed for obtaining memory pages via mmap(). */ +#if defined(EXECUTABLE_VIA_MMAP_DEVZERO) +static int zero_fd; +#endif +#if defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) +static int file_fd; +static long file_length; +#endif + +/* Initialization of these variables. */ +static void for_mmap_init (void) +{ +#if defined(EXECUTABLE_VIA_MMAP_DEVZERO) + zero_fd = open("/dev/zero",O_RDONLY,0644); + if (zero_fd < 0) + { fprintf(stderr,"trampoline: Cannot open /dev/zero!\n"); abort(); } +#endif +#if defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) + { + char filename[100]; + sprintf(filename, "%s/trampdata-%d-%ld", "/tmp", getpid (), random ()); + file_fd = open_noinherit (filename, O_CREAT | O_RDWR | O_TRUNC, 0700); + if (file_fd < 0) + { fprintf(stderr,"trampoline: Cannot open %s!\n",filename); abort(); } + /* Remove the file from the file system as soon as possible, to make + sure there is no leftover after this process terminates or crashes. */ + unlink(filename); + } + file_length = 0; +#endif +} + +/* Once-only initializer for these variables. */ +gl_once_define(static, for_mmap_once) + +#endif + +#if !defined(CODE_EXECUTABLE) && !defined(EXECUTABLE_VIA_MALLOC_THEN_MPROTECT) +/* AIX doesn't support mprotect() in malloc'ed memory. Must get pages of + * memory with execute permission via mmap(). Then keep a free list of + * free trampolines. + */ +static char* freelist = NULL; +/* Lock that protects the freelist from simultaneous access from multiple + threads. */ +gl_lock_define_initialized(static, freelist_lock) +#endif + +trampoline_function_t alloc_trampoline (trampoline_function_t address, void** variable, void* data) +{ + char* function; + char* function_x; + +#if !defined(CODE_EXECUTABLE) + /* First, get the page size once and for all. */ + if (!pagesize) + { + /* Simultaneous execution of this initialization in multiple threads + is OK. */ +#if defined(EXECUTABLE_VIA_VIRTUALALLOC) + /* GetSystemInfo + + */ + SYSTEM_INFO info; + GetSystemInfo(&info); + pagesize = info.dwPageSize; +#elif defined(HAVE_MACH_VM) + pagesize = vm_page_size; +#else + pagesize = getpagesize(); +#endif +#if defined(EXECUTABLE_VIA_MMAP_DEVZERO) || defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) + /* Use a once-only initializer here, since simultaneous execution of + for_mmap_init() in multiple threads must be avoided. */ + gl_once (for_mmap_once, for_mmap_init); +#endif + } +#endif + + /* 1. Allocate room */ + +#if !defined(CODE_EXECUTABLE) && !defined(EXECUTABLE_VIA_MALLOC_THEN_MPROTECT) + gl_lock_lock(freelist_lock); + if (freelist == NULL) + { /* Get a new page. */ + char* page; + char* page_end; +#ifdef EXECUTABLE_VIA_VIRTUALALLOC + /* VirtualAlloc + + */ + page = VirtualAlloc(NULL,pagesize,MEM_COMMIT,PAGE_EXECUTE_READWRITE); + if (page == NULL) + { fprintf(stderr,"trampoline: Out of virtual memory!\n"); abort(); } + page_end = page + pagesize; +#else +#ifdef EXECUTABLE_VIA_MMAP_FILE_SHARED + char* page_x; + /* Extend the file by one page. */ + long new_file_length = file_length + pagesize; + if (ftruncate(file_fd,new_file_length) < 0) + { fprintf(stderr,"trampoline: Cannot extend backing file!\n"); abort(); } + /* Create separate mappings for writing and for executing. */ + page = (char*)mmap(NULL,pagesize,PROT_READ|PROT_WRITE,MAP_SHARED,file_fd,file_length); + page_x = (char*)mmap(NULL,pagesize,PROT_READ|PROT_EXEC,MAP_SHARED,file_fd,file_length); + if (page == (char*)(-1) || page_x == (char*)(-1)) + { fprintf(stderr,"trampoline: Out of virtual memory!\n"); abort(); } + file_length = new_file_length; + page_end = page + pagesize; + /* Link the two pages together. */ + ((intptr_t*)page)[0] = page_x - page; + page = (char*)(((uintptr_t)page + sizeof(intptr_t) + TRAMP_ALIGN-1) & -TRAMP_ALIGN); +#else +#ifdef EXECUTABLE_VIA_MMAP_THEN_MPROTECT +#ifdef HAVE_MMAP_ANONYMOUS + /* Use mmap with the MAP_ANONYMOUS or MAP_ANON flag. */ + page = mmap(NULL, pagesize, PROT_READ | PROT_WRITE, MAP_PRIVATE | MAP_ANONYMOUS | MAP_VARIABLE, -1, 0); +#else + /* Use mmap on /dev/zero. */ + page = mmap(NULL, pagesize, PROT_READ | PROT_WRITE, MAP_PRIVATE | MAP_FILE | MAP_VARIABLE, zero_fd, 0); +#endif +#endif +#ifdef EXECUTABLE_VIA_MMAP +#ifdef HAVE_MMAP_ANONYMOUS + /* Use mmap with the MAP_ANONYMOUS or MAP_ANON flag. */ + page = mmap(NULL, pagesize, PROT_READ | PROT_WRITE | PROT_EXEC, MAP_PRIVATE | MAP_ANONYMOUS | MAP_VARIABLE, -1, 0); +#else + /* Use mmap on /dev/zero. */ + page = mmap(NULL, pagesize, PROT_READ | PROT_WRITE | PROT_EXEC, MAP_PRIVATE | MAP_FILE | MAP_VARIABLE, zero_fd, 0); +#endif +#endif +#ifdef EXECUTABLE_VIA_SHM + int shmid = shmget(IPC_PRIVATE, pagesize, 0700|IPC_CREAT); + if (shmid<0) + { page = (char*)(-1); } + else + { page = shmat(shmid, 0, 0); shmctl(shmid, IPC_RMID, 0); } +#endif + if (page == (char*)(-1)) + { fprintf(stderr,"trampoline: Out of virtual memory!\n"); abort(); } + page_end = page + pagesize; +#endif +#endif + /* Fill it with free trampolines. */ + { char** last = &freelist; + while (page+TRAMP_LENGTH <= page_end) + { *last = page; last = (char**)page; + page = (char*)(((uintptr_t)page + TRAMP_LENGTH + TRAMP_ALIGN-1) & -TRAMP_ALIGN); + } + *last = NULL; + } } + function = freelist; freelist = *(char**)freelist; + gl_lock_unlock(freelist_lock); +#else + { char* room = (char*) malloc(sizeof(void*) + TRAMP_LENGTH + TRAMP_ALIGN-1); + if (!room) + { fprintf(stderr,"trampoline: Out of virtual memory!\n"); abort(); } + function = (char*)(((uintptr_t)room + sizeof(void*) + TRAMP_ALIGN-1) & -TRAMP_ALIGN); + ((char**)function)[-1] = room; /* backpointer for free_trampoline() */ + } +#endif + +#if !defined(CODE_EXECUTABLE) && defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) + /* Find the executable address corresponding to the writable address. */ + { uintptr_t page = (uintptr_t) function & -(intptr_t)pagesize; + function_x = function + ((intptr_t*)page)[0]; + } +#else + function_x = function; +#endif + + /* 2. Fill out the trampoline */ +#ifdef __i386__ + /* function: + * movl $, C7 05 + * jmp
E9
- + * here: + */ + *(short *) (function + 0) = 0x05C7; + *(long *) (function + 2) = (long) variable; + *(long *) (function + 6) = (long) data; + *(char *) (function +10) = 0xE9; + *(long *) (function +11) = (long) address - (long) (function_x + 15); +#define is_tramp(function) \ + *(unsigned short *) (function + 0) == 0x05C7 && \ + *(unsigned char *) (function +10) == 0xE9 +#define tramp_address(function) \ + *(long *) (function +11) + (long) (function + 15) +#define tramp_variable(function) \ + *(long *) (function + 2) +#define tramp_data(function) \ + *(long *) (function + 6) +#endif +#ifdef __m68k__ + /* function: + * movel #, 23 FC + * jmp
4E F9
+ * nop 4E 71 + */ + *(short *) (function + 0) = 0x23FC; + *(long *) (function + 2) = (long) data; + *(long *) (function + 6) = (long) variable; + *(short *) (function +10) = 0x4EF9; + *(long *) (function +12) = (long) address; + *(short *) (function +16) = 0x4E71; +#define is_tramp(function) \ + *(unsigned short *) (function + 0) == 0x23FC && \ + *(unsigned short *) (function +10) == 0x4EF9 && \ + *(unsigned short *) (function +16) == 0x4E71 +#define tramp_address(function) \ + *(long *) (function +12) +#define tramp_variable(function) \ + *(long *) (function + 6) +#define tramp_data(function) \ + *(long *) (function + 2) +#endif +#if defined(__mipsold__) && !defined(__mipsn32__) + /* function: + * li $2,&0xffff0000 3C 02 hi16() + * ori $2,$2,&0xffff 34 42 lo16() + * sw $2, 3C 01 hi16() + * AC 22 lo16() + * li $25,
&0xffff0000 3C 19 hi16(
) + * ori $25,$25,
&0xffff 37 39 lo16(
) + * j $25 03 20 00 08 + * nop 00 00 00 00 + */ + /* What about big endian / little endian ?? */ + *(short *) (function + 0) = 0x3C02; + *(short *) (function + 2) = (unsigned long) data >> 16; + *(short *) (function + 4) = 0x3442; + *(short *) (function + 6) = (unsigned long) data & 0xffff; + *(short *) (function + 8) = 0x3C01; + *(short *) (function +10) = (unsigned long) variable >> 16; + *(short *) (function +12) = 0xAC22; + *(short *) (function +14) = (unsigned long) variable & 0xffff; + *(short *) (function +16) = 0x3C19; + *(short *) (function +18) = (unsigned long) address >> 16; + *(short *) (function +20) = 0x3739; + *(short *) (function +22) = (unsigned long) address & 0xffff; + *(long *) (function +24) = 0x03200008; + *(long *) (function +28) = 0x00000000; +#define is_tramp(function) \ + *(unsigned short *) (function + 0) == 0x3C02 && \ + *(unsigned short *) (function + 4) == 0x3442 && \ + *(unsigned short *) (function + 8) == 0x3C01 && \ + *(unsigned short *) (function +12) == 0xAC22 && \ + *(unsigned short *) (function +16) == 0x3C19 && \ + *(unsigned short *) (function +20) == 0x3739 && \ + *(unsigned long *) (function +24) == 0x03200008 && \ + *(unsigned long *) (function +28) == 0x00000000 +#define hilo(hiword,loword) \ + (((unsigned long) (hiword) << 16) | (unsigned long) (loword)) +#define tramp_address(function) \ + hilo(*(unsigned short *) (function +18), *(unsigned short *) (function +22)) +#define tramp_variable(function) \ + hilo(*(unsigned short *) (function +10), *(unsigned short *) (function +14)) +#define tramp_data(function) \ + hilo(*(unsigned short *) (function + 2), *(unsigned short *) (function + 6)) +#endif +#if (defined(__mips__) || defined(__mipsn32__)) && !defined(__mips64__) + /* function: + * lw $2,24($25) 8F 22 00 18 + * lw $3,28($25) 8F 23 00 1C + * sw $3,0($2) AC 43 00 00 + * lw $25,32($25) 8F 39 00 20 + * j $25 03 20 00 08 + * nop 00 00 00 00 + * .word + * .word + * .word
+ */ + *(unsigned int *) (function + 0) = 0x8F220018; + *(unsigned int *) (function + 4) = 0x8F23001C; + *(unsigned int *) (function + 8) = 0xAC430000; + *(unsigned int *) (function +12) = 0x8F390020; + *(unsigned int *) (function +16) = 0x03200008; + *(unsigned int *) (function +20) = 0x00000000; + *(unsigned int *) (function +24) = (unsigned int) variable; + *(unsigned int *) (function +28) = (unsigned int) data; + *(unsigned int *) (function +32) = (unsigned int) address; +#define TRAMP_CODE_LENGTH 24 +#define is_tramp(function) \ + *(int *) (function + 0) == 0x8F220018 && \ + *(int *) (function + 4) == 0x8F23001C && \ + *(int *) (function + 8) == 0xAC430000 && \ + *(int *) (function +12) == 0x8F390020 && \ + *(int *) (function +16) == 0x03200008 && \ + *(int *) (function +20) == 0x00000000 +#define tramp_address(function) \ + *(unsigned int *) (function +32) +#define tramp_variable(function) \ + *(unsigned int *) (function +24) +#define tramp_data(function) \ + *(unsigned int *) (function +28) +#endif +#ifdef __mips64old__ + /* function: + * dli $2, 3C 02 hi16(hi32()) + * 34 42 lo16(hi32()) + * 00 02 14 38 + * 34 42 hi16(lo32()) + * 00 02 14 38 + * 34 42 lo16(lo32()) + * dli $3, 3C 03 hi16(hi32()) + * 34 63 lo16(hi32()) + * 00 03 1C 38 + * 34 63 hi16(lo32()) + * 00 03 1C 38 + * 34 63 lo16(lo32()) + * sd $3,0($2) FC 43 00 00 + * dli $25,
3C 19 hi16(hi32(
)) + * 37 39 lo16(hi32(
)) + * 00 19 CC 38 + * 37 39 hi16(lo32(
)) + * 00 19 CC 38 + * 37 39 lo16(lo32(
)) + * j $25 03 20 00 08 + * nop 00 00 00 00 + */ + /* What about big endian / little endian ?? */ + *(short *) (function + 0) = 0x3C02; + *(short *) (function + 2) = (unsigned long) variable >> 48; + *(short *) (function + 4) = 0x3442; + *(short *) (function + 6) = ((unsigned long) variable >> 32) & 0xffff; + *(int *) (function + 8) = 0x00021438; + *(short *) (function +12) = 0x3442; + *(short *) (function +14) = ((unsigned long) variable >> 16) & 0xffff; + *(int *) (function +16) = 0x00021438; + *(short *) (function +20) = 0x3442; + *(short *) (function +22) = (unsigned long) variable & 0xffff; + *(short *) (function +24) = 0x3C03; + *(short *) (function +26) = (unsigned long) data >> 48; + *(short *) (function +28) = 0x3463; + *(short *) (function +30) = ((unsigned long) data >> 32) & 0xffff; + *(int *) (function +32) = 0x00031C38; + *(short *) (function +36) = 0x3463; + *(short *) (function +38) = ((unsigned long) data >> 16) & 0xffff; + *(int *) (function +40) = 0x00031C38; + *(short *) (function +44) = 0x3463; + *(short *) (function +46) = (unsigned long) data & 0xffff; + *(int *) (function +48) = 0xFC430000; + *(short *) (function +52) = 0x3C19; + *(short *) (function +54) = (unsigned long) address >> 48; + *(short *) (function +56) = 0x3739; + *(short *) (function +58) = ((unsigned long) address >> 32) & 0xffff; + *(int *) (function +60) = 0x0019CC38; + *(short *) (function +64) = 0x3739; + *(short *) (function +66) = ((unsigned long) address >> 16) & 0xffff; + *(int *) (function +68) = 0x0019CC38; + *(short *) (function +72) = 0x3739; + *(short *) (function +74) = (unsigned long) address & 0xffff; + *(int *) (function +76) = 0x03200008; + *(int *) (function +80) = 0x00000000; +#define is_tramp(function) \ + *(unsigned short *) (function + 0) == 0x3C02 && \ + *(unsigned short *) (function + 4) == 0x3442 && \ + *(unsigned int *) (function + 8) == 0x00021438 && \ + *(unsigned short *) (function +12) == 0x3442 && \ + *(unsigned int *) (function +16) == 0x00021438 && \ + *(unsigned short *) (function +20) == 0x3442 && \ + *(unsigned short *) (function +24) == 0x3C03 && \ + *(unsigned short *) (function +28) == 0x3463 && \ + *(unsigned int *) (function +32) == 0x00031C38 && \ + *(unsigned short *) (function +36) == 0x3463 && \ + *(unsigned int *) (function +40) == 0x00031C38 && \ + *(unsigned short *) (function +44) == 0x3463 && \ + *(unsigned int *) (function +48) == 0xFC430000 && \ + *(unsigned short *) (function +52) == 0x3C19 && \ + *(unsigned short *) (function +56) == 0x3739 && \ + *(unsigned int *) (function +60) == 0x0019CC38 && \ + *(unsigned short *) (function +64) == 0x3739 && \ + *(unsigned int *) (function +68) == 0x0019CC38 && \ + *(unsigned short *) (function +72) == 0x3739 && \ + *(unsigned int *) (function +76) == 0x03200008 && \ + *(unsigned int *) (function +80) == 0x00000000 +#define hilo(word3,word2,word1,word0) \ + (((unsigned long) (word3) << 48) | ((unsigned long) (word2) << 32) | \ + ((unsigned long) (word1) << 16) | (unsigned long) (word0)) +#define tramp_address(function) \ + hilo(*(unsigned short *) (function +54), \ + *(unsigned short *) (function +58), \ + *(unsigned short *) (function +66), \ + *(unsigned short *) (function +74)) +#define tramp_variable(function) \ + hilo(*(unsigned short *) (function + 2), \ + *(unsigned short *) (function + 6), \ + *(unsigned short *) (function +14), \ + *(unsigned short *) (function +22)) +#define tramp_data(function) \ + hilo(*(unsigned short *) (function +26), \ + *(unsigned short *) (function +30), \ + *(unsigned short *) (function +38), \ + *(unsigned short *) (function +46)) +#endif +#ifdef __mips64__ + /* function: + * ld $2,24($25) DF 22 00 18 + * ld $3,32($25) DF 23 00 20 + * sd $3,0($2) FC 43 00 00 + * ld $25,40($25) DF 39 00 28 + * j $25 03 20 00 08 + * nop 00 00 00 00 + * .dword + * .dword + * .dword
+ */ + *(unsigned int *) (function + 0) = 0xDF220018; + *(unsigned int *) (function + 4) = 0xDF230020; + *(unsigned int *) (function + 8) = 0xFC430000; + *(unsigned int *) (function +12) = 0xDF390028; + *(unsigned int *) (function +16) = 0x03200008; + *(unsigned int *) (function +20) = 0x00000000; + *(unsigned long *) (function +24) = (unsigned long) variable; + *(unsigned long *) (function +32) = (unsigned long) data; + *(unsigned long *) (function +40) = (unsigned long) address; +#define TRAMP_CODE_LENGTH 24 +#define is_tramp(function) \ + *(unsigned int *) (function + 0) == 0xDF220018 && \ + *(unsigned int *) (function + 4) == 0xDF230020 && \ + *(unsigned int *) (function + 8) == 0xFC430000 && \ + *(unsigned int *) (function +12) == 0xDF390028 && \ + *(unsigned int *) (function +16) == 0x03200008 && \ + *(unsigned int *) (function +20) == 0x00000000 +#define tramp_address(function) \ + *(unsigned long *) (function +40) +#define tramp_variable(function) \ + *(unsigned long *) (function +24) +#define tramp_data(function) \ + *(unsigned long *) (function +32) +#endif +#if defined(__sparc__) && !defined(__sparc64__) + /* function: + * sethi %hi(),%g1 03000000 | ( >> 10) + * sethi %hi(),%g2 05000000 | ( >> 10) + * or %g2,%lo(),%g2 8410A000 | ( & 0x3ff) + * st %g2,[%g1+%lo()] C4206000 | ( & 0x3ff) + * sethi %hi(
),%g1 03000000 | (
>> 10) + * jmp %g1+%lo(
) 81C06000 | (
& 0x3ff) + * nop 01000000 + */ +#define hi(word) ((unsigned long) (word) >> 10) +#define lo(word) ((unsigned long) (word) & 0x3ff) + *(long *) (function + 0) = 0x03000000 | hi(variable); + *(long *) (function + 4) = 0x05000000 | hi(data); + *(long *) (function + 8) = 0x8410A000 | lo(data); + *(long *) (function +12) = 0xC4206000 | lo(variable); + *(long *) (function +16) = 0x03000000 | hi(address); + *(long *) (function +20) = 0x81C06000 | lo(address); + *(long *) (function +24) = 0x01000000; +#define is_tramp(function) \ + (*(long *) (function + 0) & 0xffc00000) == 0x03000000 && \ + (*(long *) (function + 4) & 0xffc00000) == 0x05000000 && \ + (*(long *) (function + 8) & 0xfffffc00) == 0x8410A000 && \ + (*(long *) (function +12) & 0xfffffc00) == 0xC4206000 && \ + (*(long *) (function +16) & 0xffc00000) == 0x03000000 && \ + (*(long *) (function +20) & 0xfffffc00) == 0x81C06000 && \ + *(long *) (function +24) == 0x01000000 +#define hilo(hiword,loword) (((hiword) << 10) | ((loword) & 0x3ff)) +#define tramp_address(function) \ + hilo(*(long *) (function +16), *(long *) (function +20)) +#define tramp_variable(function) \ + hilo(*(long *) (function + 0), *(long *) (function +12)) +#define tramp_data(function) \ + hilo(*(long *) (function + 4), *(long *) (function + 8)) +#endif +#ifdef __sparc64__ + /* function: + * rd %pc,%g1 83414000 + * ldx [%g1+24],%g2 C4586018 + * ldx [%g1+32],%g3 C6586020 + * ldx [%g1+40],%g1 C2586028 + * jmp %g1 81C04000 + * stx %g3,[%g2] C6708000 + * .long high32() >> 32 + * .long low32() & 0xffffffff + * .long high32() >> 32 + * .long low32() & 0xffffffff + * .long high32(
)
>> 32 + * .long low32(
)
& 0xffffffff + */ + *(int *) (function + 0) = 0x83414000; + *(int *) (function + 4) = 0xC4586018; + *(int *) (function + 8) = 0xC6586020; + *(int *) (function +12) = 0xC2586028; + *(int *) (function +16) = 0x81C04000; + *(int *) (function +20) = 0xC6708000; + *(long *) (function +24) = (long) variable; + *(long *) (function +32) = (long) data; + *(long *) (function +40) = (long) address; +#define TRAMP_CODE_LENGTH 24 +#define is_tramp(function) \ + *(int *) (function + 0) == 0x83414000 && \ + *(int *) (function + 4) == 0xC4586018 && \ + *(int *) (function + 8) == 0xC6586020 && \ + *(int *) (function +12) == 0xC2586028 && \ + *(int *) (function +16) == 0x81C04000 && \ + *(int *) (function +20) == 0xC6708000 +#define tramp_address(function) \ + *(long *) (function +40) +#define tramp_variable(function) \ + *(long *) (function +24) +#define tramp_data(function) \ + *(long *) (function +32) +#endif +#ifdef __alpha__ + /* function: + * br $1,function..ng 00 00 20 C0 + * function..ng: + * ldq $2,20($1) 14 00 41 A4 + * ldq $3,28($1) 1C 00 61 A4 + * ldq $27,36($1) 24 00 61 A7 + * stq $2,0($3) 00 00 43 B4 + * jmp $31,($27),0 00 00 FB 6B + * .quad + * .quad + * .quad
+ */ + { static int code [6] = + { 0xC0200000, 0xA4410014, 0xA461001C, 0xA7610024, 0xB4430000, 0x6BFB0000 }; + int i; + for (i=0; i<6; i++) { ((int *) function)[i] = code[i]; } + ((long *) function)[3] = (long) data; + ((long *) function)[4] = (long) variable; + ((long *) function)[5] = (long) address; + } +#define TRAMP_CODE_LENGTH 24 +#define is_tramp(function) \ + ((int *) function)[0] == 0xC0200000 && \ + ((int *) function)[1] == 0xA4410014 && \ + ((int *) function)[2] == 0xA461001C && \ + ((int *) function)[3] == 0xA7610024 && \ + ((int *) function)[4] == 0xB4430000 && \ + ((int *) function)[5] == 0x6BFB0000 +#define tramp_address(function) \ + ((long *) function)[5] +#define tramp_variable(function) \ + ((long *) function)[4] +#define tramp_data(function) \ + ((long *) function)[3] +#endif +#ifdef __hppaold__ + /* function: + * ldil L',%r20 22800000 | hi() + * ldil L',%r19 22600000 | hi() + * ldo R'(%r20),%r20 36940000 | lo() + * stw %r20,R'(%r19) 6A740000 | lo() + * ldil L'
,%r21 22A00000 | hi(
) + * ldo R'
(%r21),%r21 36B50000 | lo(
) + * bb,>=,n %r21,30,function2 C7D5C012 + * depi 0,31,2,%r21 D6A01C1E + * ldw 4(0,%r21),%r19 4AB30008 + * ldw 0(0,%r21),%r21 4AB50000 + * function2: + * ldsid (0,%r21),%r1 02A010A1 + * mtsp %r1,%sr0 00011820 + * be,n 0(%sr0,%r21) E2A00002 + * nop 08000240 + */ + /* When decoding a 21-bit argument in an instruction, the hppa performs + * the following bit manipulation: + * assemble21: x[20]...x[0] + * --> x[0] x[11]...x[1] x[15]..x[14] x[20]...x[16] x[13]..x[12] + * When encoding a 21-bit argument into an instruction, we need the + * to perform the reverse permutation: + * permute21: y[20]...y[0] + * --> y[6]...y[2] y[8]..y[7] y[1]..y[0] y[19]...y[9] y[20] + */ +#define assemble21(x) \ + ((((x) & 0x1) << 20) | (((x) & 0xFFE) << 8) | \ + (((x) & 0xC000) >> 7) | (((x) & 0x1F0000) >> 14) | (((x) & 0x3000) >> 12)) +#define permute21(y) \ + ((((y) & 0x7C) << 14) | (((y) & 0x180) << 7) | (((y) & 0x3) << 12) | \ + (((y) & 0xFFE00) >> 8) | (((y) & 0x100000) >> 20)) +#define hi(word) permute21((unsigned long) (word) >> 11) +#define lo(word) (((unsigned long) (word) & 0x7FF) << 1) + *(long *) (function + 0) = 0x22800000 | hi(data); + *(long *) (function + 4) = 0x22600000 | hi(variable); + *(long *) (function + 8) = 0x36940000 | lo(data); + *(long *) (function +12) = 0x6A740000 | lo(variable); + *(long *) (function +16) = 0x22A00000 | hi(address); + *(long *) (function +20) = 0x36B50000 | lo(address); + *(long *) (function +24) = 0xC7D5C012; + *(long *) (function +28) = 0xD6A01C1E; + *(long *) (function +32) = 0x4AB30008; + *(long *) (function +36) = 0x4AB50000; + *(long *) (function +40) = 0x02A010A1; + *(long *) (function +44) = 0x00011820; + *(long *) (function +48) = 0xE2A00002; + *(long *) (function +52) = 0x08000240; +#define is_tramp(function) \ + ((long) function & 3) == 0 && \ + (*(long *) (function + 0) & 0xffe00000) == 0x22800000 && \ + (*(long *) (function + 4) & 0xffe00000) == 0x22600000 && \ + (*(long *) (function + 8) & 0xfffff000) == 0x36940000 && \ + (*(long *) (function +12) & 0xfffff000) == 0x6A740000 && \ + (*(long *) (function +16) & 0xffe00000) == 0x22A00000 && \ + (*(long *) (function +20) & 0xfffff000) == 0x36B50000 && \ + *(long *) (function +24) == 0xC7D5C012 && \ + *(long *) (function +28) == 0xD6A01C1E && \ + *(long *) (function +32) == 0x4AB30008 && \ + *(long *) (function +36) == 0x4AB50000 && \ + *(long *) (function +40) == 0x02A010A1 && \ + *(long *) (function +44) == 0x00011820 && \ + *(long *) (function +48) == 0xE2A00002 && \ + *(long *) (function +52) == 0x08000240 +#define hilo(hiword,loword) \ + ((assemble21((unsigned long) (hiword)) << 11) | \ + (((unsigned long) (loword) & 0xFFE) >> 1) \ + ) +#define tramp_address(function) \ + hilo(*(long *) (function +16), *(long *) (function +20)) +#define tramp_variable(function) \ + hilo(*(long *) (function + 4), *(long *) (function +12)) +#define tramp_data(function) \ + hilo(*(long *) (function + 0), *(long *) (function + 8)) +#endif +#ifdef __hppanew__ + /* function: + * .long tramp + * .long closure + * closure: + * .long + * .long + * .long
+ */ + { /* work around a bug in gcc 3.* */ + void* tramp_address = &tramp; + *(long *) (function + 0) = ((long *) ((char*)tramp_address-2))[0]; + *(long *) (function + 4) = (long) (function + 8); + *(long *) (function + 8) = (long) variable; + *(long *) (function +12) = (long) data; + *(long *) (function +16) = (long) address; + } +#define TRAMP_CODE_LENGTH 0 +#define is_tramp(function) \ + ((long *) function)[0] == ((long *) ((char*)tramp_address-2))[0] +#define tramp_address(function) \ + ((long *) function)[4] +#define tramp_variable(function) \ + ((long *) function)[2] +#define tramp_data(function) \ + ((long *) function)[3] +#endif +#ifdef __hppa64old__ + /* function: + * mfia %r27 000014BB + * ldd 40(%r27),%r31 537F0050 + * ldd 48(%r27),%r1 53610060 + * std %r1,0(%r31) 0FE112C0 + * ldd 56(%r27),%r27 537B0070 + * ldd 16(%r27),%r1 53610020 + * ldd 24(%r27),%r27 537B0030 + * bve (%r1) E820D000 + * nop 08000240 + * .align 8 + * .dword + * .dword + * .dword
+ * function_pointer: + * .dword 0 + * .dword 0 + * .dword function + * .dword 0 + */ + *(int *) (function + 0) = 0x000014BB; + *(int *) (function + 4) = 0x537F0050; + *(int *) (function + 8) = 0x53610060; + *(int *) (function +12) = 0x0FE112C0; + *(int *) (function +16) = 0x537B0070; + *(int *) (function +20) = 0x53610020; + *(int *) (function +24) = 0x537B0030; + *(int *) (function +28) = 0xE820D000; + *(int *) (function +32) = 0x08000240; + *(long *) (function +40) = (long)variable; + *(long *) (function +48) = (long)data; + *(long *) (function +56) = (long)address; + *(long *) (function +64) = (long)0; + *(long *) (function +72) = (long)0; + *(long *) (function +80) = (long)function; + *(long *) (function +88) = (long)0; +#define TRAMP_CODE_LENGTH 36 +#define is_tramp(function) \ + *(int *) (function + 0) == 0x000014BB && \ + *(int *) (function + 4) == 0x537F0050 && \ + *(int *) (function + 8) == 0x53610060 && \ + *(int *) (function +12) == 0x0FE112C0 && \ + *(int *) (function +16) == 0x537B0070 && \ + *(int *) (function +20) == 0x53610020 && \ + *(int *) (function +24) == 0x537B0030 && \ + *(int *) (function +28) == 0xE820D000 && \ + *(int *) (function +32) == 0x08000240 +#define tramp_address(function) \ + (*(unsigned long *) (function +56)) +#define tramp_variable(function) \ + (*(unsigned long *) (function +40)) +#define tramp_data(function) \ + (*(unsigned long *) (function +48)) +#endif +#ifdef __hppa64new__ + /* function: + * .dword 0 + * .dword 0 + * .dword tramp + * .dword closure + * closure: + * .dword + * .dword + * .dword
+ */ + *(long *) (function + 0) = 0; + *(long *) (function + 8) = 0; + *(long *) (function +16) = ((long *) (void*) &tramp)[2]; + *(long *) (function +24) = (long) (function + 32); + *(long *) (function +32) = (long) variable; + *(long *) (function +40) = (long) data; + *(long *) (function +48) = (long) address; +#define TRAMP_CODE_LENGTH 0 +#define is_tramp(function) \ + ((long *) function)[2] == ((long *) (void*) &tramp)[2] && \ + ((long *) function)[3] == (long) (function + 32) +#define tramp_address(function) \ + ((long *) function)[6] +#define tramp_variable(function) \ + ((long *) function)[4] +#define tramp_data(function) \ + ((long *) function)[5] +#endif +#if defined(__arm__) || defined(__armhf__) + /* function: + * stmfd sp!,{r0} E92D0001 + * ldr r0,[pc,#16] E59F000C + * ldr ip,[pc,#16] E59FC00C + * str r0,[ip] E58C0000 + * ldmfd sp!,{r0} E8BD0001 + * ldr pc,[pc,#4] E59FF004 + * _data: + * .word + * _variable: + * .word + * _address: + * .word
+ */ + { + ((long *) function)[0] = 0xE92D0001; + ((long *) function)[1] = 0xE59F000C; + ((long *) function)[2] = 0xE59FC00C; + ((long *) function)[3] = 0xE58C0000; + ((long *) function)[4] = 0xE8BD0001; + ((long *) function)[5] = 0xE59FF004; + ((long *) function)[6] = (long)data; + ((long *) function)[7] = (long)variable; + ((long *) function)[8] = (long)address; + } +#define TRAMP_CODE_LENGTH 24 +#define is_tramp(function) \ + ((long *) function)[0] == 0xE92D0001 && \ + ((long *) function)[1] == 0xE59F000C && \ + ((long *) function)[2] == 0xE59FC00C && \ + ((long *) function)[3] == 0xE58C0000 && \ + ((long *) function)[4] == 0xE8BD0001 && \ + ((long *) function)[5] == 0xE59FF004 +#define tramp_address(function) \ + ((long *) function)[8] +#define tramp_variable(function) \ + ((long *) function)[7] +#define tramp_data(function) \ + ((long *) function)[6] +#endif +#ifdef __arm64__ + /* function: + * ldr x9,.+24 580000C9 + * ldr x10,.+28 580000EA + * ldr x11,.+32 5800010B + * str x9,[x10] F9000149 + * br x11 D61F0160 + * nop D503201F + * .xword + * .xword + * .xword
+ */ + *(int *) (function + 0) = 0x580000C9; + *(int *) (function + 4) = 0x580000EA; + *(int *) (function + 8) = 0x5800010B; + *(int *) (function +12) = 0xF9000149; + *(int *) (function +16) = 0xD61F0160; + *(int *) (function +20) = 0xD503201F; + *(long *) (function +24) = (unsigned long) data; + *(long *) (function +32) = (unsigned long) variable; + *(long *) (function +40) = (unsigned long) address; +#define TRAMP_CODE_LENGTH 24 +#define is_tramp(function) \ + *(unsigned int *) (function + 0) == 0x580000C9 && \ + *(unsigned int *) (function + 4) == 0x580000EA && \ + *(unsigned int *) (function + 8) == 0x5800010B && \ + *(unsigned int *) (function +12) == 0xF9000149 && \ + *(unsigned int *) (function +16) == 0xD61F0160 && \ + *(unsigned int *) (function +20) == 0xD503201F +#define tramp_address(function) \ + (*(unsigned long *) (function +40)) +#define tramp_variable(function) \ + (*(unsigned long *) (function +32)) +#define tramp_data(function) \ + (*(unsigned long *) (function +24)) +#endif +#ifdef __powerpcsysv4__ + /* function: + * {liu|lis} 11,hi16() 3D 60 hi16() + * {oril|ori} 11,11,lo16() 61 6B lo16() + * {liu|lis} 12,hi16() 3D 80 hi16() + * {oril|ori} 12,12,lo16() 61 8C lo16() + * {st|stw} 12,0(11) 91 8B 00 00 + * {liu|lis} 0,hi16(
) 3C 00 hi16(
) + * {oril|ori} 0,0,lo16(
) 60 00 lo16(
) + * mtctr 0 7C 09 03 A6 + * bctr 4E 80 04 20 + */ + *(short *) (function + 0) = 0x3D60; + *(short *) (function + 2) = (unsigned long) variable >> 16; + *(short *) (function + 4) = 0x616B; + *(short *) (function + 6) = (unsigned long) variable & 0xffff; + *(short *) (function + 8) = 0x3D80; + *(short *) (function +10) = (unsigned long) data >> 16; + *(short *) (function +12) = 0x618C; + *(short *) (function +14) = (unsigned long) data & 0xffff; + *(long *) (function +16) = 0x918B0000; + *(short *) (function +20) = 0x3C00; + *(short *) (function +22) = (unsigned long) address >> 16; + *(short *) (function +24) = 0x6000; + *(short *) (function +26) = (unsigned long) address & 0xffff; + *(long *) (function +28) = 0x7C0903A6; + *(long *) (function +32) = 0x4E800420; +#define is_tramp(function) \ + *(unsigned short *) (function + 0) == 0x3D60 && \ + *(unsigned short *) (function + 4) == 0x616B && \ + *(unsigned short *) (function + 8) == 0x3D80 && \ + *(unsigned short *) (function +12) == 0x618C && \ + *(unsigned long *) (function +16) == 0x918B0000 && \ + *(unsigned short *) (function +20) == 0x3C00 && \ + *(unsigned short *) (function +24) == 0x6000 && \ + *(unsigned long *) (function +28) == 0x7C0903A6 && \ + *(unsigned long *) (function +32) == 0x4E800420 +#define hilo(hiword,loword) \ + (((unsigned long) (hiword) << 16) | (unsigned long) (loword)) +#define tramp_address(function) \ + hilo(*(unsigned short *) (function +22), *(unsigned short *) (function +26)) +#define tramp_variable(function) \ + hilo(*(unsigned short *) (function + 2), *(unsigned short *) (function + 6)) +#define tramp_data(function) \ + hilo(*(unsigned short *) (function +10), *(unsigned short *) (function +14)) +#endif +#ifdef __powerpcaix__ + /* function: + * .long .tramp + * .long .mytoc + * .long 0 + * .mytoc: + * .long + * .long + * .long
+ */ + *(long *) (function + 0) = ((long *) &tramp)[0]; + *(long *) (function + 4) = (long) (function + 12); + *(long *) (function + 8) = 0; + *(long *) (function +12) = (long) variable; + *(long *) (function +16) = (long) data; + *(long *) (function +20) = (long) address; +#define TRAMP_CODE_LENGTH 0 +#define is_tramp(function) \ + ((long *) function)[0] == ((long *) &tramp)[0] +#define tramp_address(function) \ + ((long *) function)[5] +#define tramp_variable(function) \ + ((long *) function)[3] +#define tramp_data(function) \ + ((long *) function)[4] +#endif +#ifdef __powerpc64_elfv2__ + /* function: + * ld 11,24(12) 18 00 6C E9 + * ld 0,32(12) 20 00 0C E8 + * std 0,0(11) 00 00 0B F8 + * ld 12,40(12) 28 00 8C E9 + * mtctr 12 A6 03 89 7D + * bctr 20 04 80 4E + * .quad + * .quad + * .quad
+ */ + *(int *) (function + 0) = 0xE96C0018; + *(int *) (function + 4) = 0xE80C0020; + *(int *) (function + 8) = 0xF80B0000; + *(int *) (function +12) = 0xE98C0028; + *(int *) (function +16) = 0x7D8903A6; + *(int *) (function +20) = 0x4E800420; + *(long *) (function +24) = (unsigned long) variable; + *(long *) (function +32) = (unsigned long) data; + *(long *) (function +40) = (unsigned long) address; +#define TRAMP_CODE_LENGTH 24 +#define is_tramp(function) \ + *(unsigned int *) (function + 0) == 0xE96C0018 && \ + *(unsigned int *) (function + 4) == 0xE80C0020 && \ + *(unsigned int *) (function + 8) == 0xF80B0000 && \ + *(unsigned int *) (function +12) == 0xE98C0028 && \ + *(unsigned int *) (function +16) == 0x7D8903A6 && \ + *(unsigned int *) (function +20) == 0x4E800420 +#define tramp_address(function) \ + (*(unsigned long *) (function +40)) +#define tramp_variable(function) \ + (*(unsigned long *) (function +24)) +#define tramp_data(function) \ + (*(unsigned long *) (function +32)) +#endif +#ifdef __powerpc64aix__ + /* function: + * .quad .tramp + * .quad .mytoc + * .quad 0 + * .mytoc: + * .quad + * .quad + * .quad
+ */ + *(long *) (function + 0) = ((long *) &tramp)[0]; + *(long *) (function + 8) = (long) (function + 24); + *(long *) (function +16) = 0; + *(long *) (function +24) = (long) variable; + *(long *) (function +32) = (long) data; + *(long *) (function +40) = (long) address; +#define TRAMP_CODE_LENGTH 0 +#define is_tramp(function) \ + ((long *) function)[0] == ((long *) &tramp)[0] +#define tramp_address(function) \ + ((long *) function)[5] +#define tramp_variable(function) \ + ((long *) function)[3] +#define tramp_data(function) \ + ((long *) function)[4] +#endif +#ifdef __ia64__ + /* function: + * data8 tramp + * data8 closure + * closure: + * data8
+ * data8 + * data8 + */ + *(long *) (function + 0) = (long) &tramp; + *(long *) (function + 8) = (long) (function + 16); + *(long *) (function +16) = (long) address; + *(long *) (function +24) = (long) variable; + *(long *) (function +32) = (long) data; +#define TRAMP_CODE_LENGTH 0 +#define is_tramp(function) \ + ((long *) function)[0] == (long) &tramp +#define tramp_address(function) \ + ((long *) function)[2] +#define tramp_variable(function) \ + ((long *) function)[3] +#define tramp_data(function) \ + ((long *) function)[4] +#endif +#ifdef __x86_64__ +#ifdef __x86_64_x32__ + /* function: + * movl $, C7 04 25 + * movl $
,%eax B8
+ * jmp *%rax FF E0 + */ + *(int *) (function + 0) = ((unsigned long) variable << 24) | 0x2504C7; + *(int *) (function + 4) = ((unsigned long) data << 24) | ((unsigned long) variable >> 8); + *(int *) (function + 8) = 0xB8000000 | ((unsigned long) data >> 8); + *(int *) (function +12) = (unsigned long) address; + *(short *) (function +16) = 0xE0FF; +#define is_tramp(function) \ + (*(unsigned long *) (function + 0) & 0x00FFFFFF) == 0x2504C7 && \ + (*(unsigned long *) (function + 8) & 0xFF000000) == 0xB8000000 && \ + *(unsigned short *) (function +16) == 0xE0FF +#define tramp_address(function) \ + (*(unsigned int *) (function +12)) +#define tramp_variable(function) \ + ((*(unsigned long *) (function + 0) >> 24) | \ + (*(unsigned long *) (function + 4) << 8)) +#define tramp_data(function) \ + ((*(unsigned long *) (function + 4) >> 24) | \ + (*(unsigned long *) (function + 8) << 8)) +#else + /* function: + * movabsq $,%rax 48 B8 + * movabsq %rax, 48 A3 + * movabsq $
,%rax 48 B8
+ * jmp *%rax FF E0 + */ + *(short *) (function + 0) = 0xB848; + *(short *) (function + 2) = (unsigned long long) data & 0xffff; + *(int *) (function + 4) = ((unsigned long long) data >> 16) & 0xffffffff; + *(short *) (function + 8) = ((unsigned long long) data >> 48) & 0xffff; + *(short *) (function +10) = 0xA348; + *(int *) (function +12) = (unsigned long long) variable & 0xffffffff; + *(int *) (function +16) = ((unsigned long long) variable >> 32) & 0xffffffff; + *(short *) (function +20) = 0xB848; + *(short *) (function +22) = (unsigned long long) address & 0xffff; + *(int *) (function +24) = ((unsigned long long) address >> 16) & 0xffffffff; + *(short *) (function +28) = ((unsigned long long) address >> 48) & 0xffff; + *(short *) (function +30) = 0xE0FF; +#define is_tramp(function) \ + *(unsigned short *) (function + 0) == 0xB848 && \ + *(unsigned short *) (function +10) == 0xA348 && \ + *(unsigned short *) (function +20) == 0xB848 && \ + *(unsigned short *) (function +30) == 0xE0FF +#define hilo(hiword,loword) \ + (((unsigned long long) (hiword) << 32) | (unsigned long long) (loword)) +#define himidlo(hishort,midword,loshort) \ + (((unsigned long long) (hishort) << 48) | (unsigned long long) (midword) << 16 \ + | (unsigned long long) (loshort)) +#define tramp_address(function) \ + himidlo(*(unsigned short *) (function +28), \ + *(unsigned int *) (function +24), \ + *(unsigned short *) (function +22)) +#define tramp_variable(function) \ + hilo(*(unsigned int *) (function +16), *(unsigned int *) (function +12)) +#define tramp_data(function) \ + himidlo(*(unsigned short *) (function + 8), \ + *(unsigned int *) (function + 4), \ + *(unsigned short *) (function + 2)) +#endif +#endif +#if defined(__s390__) && !defined(__s390x__) + /* function: + * bras %r1,.L1 A7150002 + * .L1: + * l %r0,data-.L1(%r1) 58001018 + * l %r1,variable-.L1(%r1) 5810101C + * st %r0,0(%r1) 50001000 + * bras %r1,.L2 A7150002 + * .L2: + * l %r1,function-.L2(%r1) 58101010 + * br %r1 07F1 + * nop 0707 + * data: .long + * variable: .long + * address: .long
+ */ + *(int *) (function + 0) = 0xA7150002; + *(int *) (function + 4) = 0x58001018; + *(int *) (function + 8) = 0x5810101C; + *(int *) (function +12) = 0x50001000; + *(int *) (function +16) = 0xA7150002; + *(int *) (function +20) = 0x58101010; + *(int *) (function +24) = 0x07F10707; + *(int *) (function +28) = (unsigned int) data; + *(int *) (function +32) = (unsigned int) variable; + *(int *) (function +36) = (unsigned int) address; +#define TRAMP_CODE_LENGTH 28 +#define is_tramp(function) \ + *(unsigned int *) (function + 0) == 0xA7150002 && \ + *(unsigned int *) (function + 4) == 0x58001018 && \ + *(unsigned int *) (function + 8) == 0x5810101C && \ + *(unsigned int *) (function +12) == 0x50001000 && \ + *(unsigned int *) (function +16) == 0xA7150002 && \ + *(unsigned int *) (function +20) == 0x58101010 && \ + *(unsigned int *) (function +24) == 0x07F10707 +#define tramp_address(function) \ + *(unsigned int *) (function +36) +#define tramp_variable(function) \ + *(unsigned int *) (function +32) +#define tramp_data(function) \ + *(unsigned int *) (function +28) +#endif +#ifdef __s390x__ + /* function: + * larl %r1,.L1 C01000000003 + * .L1: + * lg %r0,data-.L1(%r1) E30010220004 + * lg %r1,variable-.L1(%r1) E310102A0004 + * stg %r0,0(%r1) E30010000024 + * larl %r1,.L2 C01000000003 + * .L2: + * lg %r1,function-.L2(%r1) E310101A0004 + * br %r1 07F1 + * nop 0707 + * data: .quad + * variable: .quad + * address: .quad
+ */ + *(int *) (function + 0) = 0xC0100000; + *(int *) (function + 4) = 0x0003E300; + *(int *) (function + 8) = 0x10220004; + *(int *) (function +12) = 0xE310102A; + *(int *) (function +16) = 0x0004E300; + *(int *) (function +20) = 0x10000024; + *(int *) (function +24) = 0xC0100000; + *(int *) (function +28) = 0x0003E310; + *(int *) (function +32) = 0x101A0004; + *(int *) (function +36) = 0x07F10707; + *(long *) (function +40) = (unsigned long) data; + *(long *) (function +48) = (unsigned long) variable; + *(long *) (function +56) = (unsigned long) address; +#define TRAMP_CODE_LENGTH 40 +#define is_tramp(function) \ + *(unsigned int *) (function + 0) == 0xC0100000 && \ + *(unsigned int *) (function + 4) == 0x0003E300 && \ + *(unsigned int *) (function + 8) == 0x10220004 && \ + *(unsigned int *) (function +12) == 0xE310102A && \ + *(unsigned int *) (function +16) == 0x0004E300 && \ + *(unsigned int *) (function +20) == 0x10000024 && \ + *(unsigned int *) (function +24) == 0xC0100000 && \ + *(unsigned int *) (function +28) == 0x0003E310 && \ + *(unsigned int *) (function +32) == 0x101A0004 && \ + *(unsigned int *) (function +36) == 0x07F10707 +#define tramp_address(function) \ + (*(unsigned long *) (function +56)) +#define tramp_variable(function) \ + (*(unsigned long *) (function +48)) +#define tramp_data(function) \ + (*(unsigned long *) (function +40)) +#endif +#ifdef __riscv32__ + /* function: + * auipc t3,0 00000E17 + * lw t0,24(t3) 018E2283 + * lw t1,28(t3) 01CE2303 + * lw t2,32(t3) 020E2383 + * sw t0,(t1) 00532023 + * jr t2 00038067 + * data: .word + * variable: .word + * address: .word
+ */ + *(int *) (function + 0) = 0x00000E17; + *(int *) (function + 4) = 0x018E2283; + *(int *) (function + 8) = 0x01CE2303; + *(int *) (function +12) = 0x020E2383; + *(int *) (function +16) = 0x00532023; + *(int *) (function +20) = 0x00038067; + *(int *) (function +24) = (unsigned int) data; + *(int *) (function +28) = (unsigned int) variable; + *(int *) (function +32) = (unsigned int) address; +#define TRAMP_CODE_LENGTH 24 +#define is_tramp(function) \ + *(unsigned int *) (function + 0) == 0x00000E17 && \ + *(unsigned int *) (function + 4) == 0x018E2283 && \ + *(unsigned int *) (function + 8) == 0x01CE2303 && \ + *(unsigned int *) (function +12) == 0x020E2383 && \ + *(unsigned int *) (function +16) == 0x00532023 && \ + *(unsigned int *) (function +20) == 0x00038067 +#define tramp_address(function) \ + (*(unsigned int *) (function +32)) +#define tramp_variable(function) \ + (*(unsigned int *) (function +28)) +#define tramp_data(function) \ + (*(unsigned int *) (function +24)) +#endif +#ifdef __riscv64__ + /* function: + * auipc t3,0 00000E17 + * ld t0,24(t3) 018E3283 + * ld t1,32(t3) 020E3303 + * ld t2,40(t3) 028E3383 + * sd t0,(t1) 00533023 + * jr t2 00038067 + * data: .quad + * variable: .quad + * address: .quad
+ */ + *(int *) (function + 0) = 0x00000E17; + *(int *) (function + 4) = 0x018E3283; + *(int *) (function + 8) = 0x020E3303; + *(int *) (function +12) = 0x028E3383; + *(int *) (function +16) = 0x00533023; + *(int *) (function +20) = 0x00038067; + *(long *) (function +24) = (unsigned long) data; + *(long *) (function +32) = (unsigned long) variable; + *(long *) (function +40) = (unsigned long) address; +#define TRAMP_CODE_LENGTH 24 +#define is_tramp(function) \ + *(unsigned int *) (function + 0) == 0x00000E17 && \ + *(unsigned int *) (function + 4) == 0x018E3283 && \ + *(unsigned int *) (function + 8) == 0x020E3303 && \ + *(unsigned int *) (function +12) == 0x028E3383 && \ + *(unsigned int *) (function +16) == 0x00533023 && \ + *(unsigned int *) (function +20) == 0x00038067 +#define tramp_address(function) \ + (*(unsigned long *) (function +40)) +#define tramp_variable(function) \ + (*(unsigned long *) (function +32)) +#define tramp_data(function) \ + (*(unsigned long *) (function +24)) +#endif + + /* 3. Set memory protection to "executable" */ + +#if !defined(CODE_EXECUTABLE) +#if defined(EXECUTABLE_VIA_MALLOC_THEN_MPROTECT) || defined(EXECUTABLE_VIA_MMAP_THEN_MPROTECT) + /* Call mprotect on the pages that contain the range. */ + { uintptr_t start_addr = (uintptr_t) function; + uintptr_t end_addr = (uintptr_t) (function + TRAMP_LENGTH); + start_addr = start_addr & -pagesize; + end_addr = (end_addr + pagesize-1) & -pagesize; + {uintptr_t len = end_addr - start_addr; +#if defined(HAVE_MACH_VM) + if (vm_protect(task_self(),start_addr,len,0,VM_PROT_READ|VM_PROT_WRITE|VM_PROT_EXECUTE) != KERN_SUCCESS) +#else + if (mprotect((void*)start_addr, len, PROT_READ|PROT_WRITE|PROT_EXEC) < 0) +#endif + { fprintf(stderr,"trampoline: cannot make memory executable\n"); abort(); } + }} +#endif +#endif + + /* 4. Flush instruction cache */ + /* We need this because some CPUs have separate data cache and instruction + * cache. The freshly built trampoline is visible to the data cache, but not + * maybe not to the instruction cache. This is hairy. + */ + /* TRAMP_CODE_LENGTH = length of the machine instructions. */ +#ifndef TRAMP_CODE_LENGTH +#define TRAMP_CODE_LENGTH TRAMP_LENGTH +#endif +#if !(defined(__hppanew__) || defined(__hppa64new__) || defined(__powerpcaix__) || defined(__powerpc64aix__) || defined(__ia64__)) + /* Only needed if we really set up machine instructions. */ +#ifdef __i386__ +#if defined(_WIN32) + while (!FlushInstructionCache(GetCurrentProcess(),function_x,TRAMP_CODE_LENGTH)) + continue; +#endif +#endif +#ifdef __m68k__ +#if defined(__NetBSD__) && defined(__GNUC__) + { register uintptr_t _beg __asm__ ("%a1") = (uintptr_t) function_x; + register uintptr_t _len __asm__ ("%d1") = TRAMP_CODE_LENGTH; + __asm__ __volatile__ ( + "move%.l %#0x80000004,%/d0\n\t" /* CC_EXTPURGE | C_IPURGE */ + "trap #12" /* kernel call ‘cachectl’ */ + : + : "a" (_beg), "d" (_len) + : "%a0", "%a1", "%d0", "%d1" /* call-used registers */ + ); + } +#endif +#if defined(__linux__) && defined(__GNUC__) + { register uintptr_t _beg __asm__ ("%d1") = (uintptr_t) function_x; + register uintptr_t _len __asm__ ("%d4") = TRAMP_CODE_LENGTH + 32; + __asm__ __volatile__ ( + "move%.l %#123,%/d0\n\t" + "move%.l %#1,%/d2\n\t" + "move%.l %#3,%/d3\n\t" + "trap %#0" + : + : "d" (_beg), "d" (_len) + : "%d0", "%d2", "%d3" + ); + } +#endif +#if defined(AUX) && defined(__GNUC__) + /* sysm68k(105, addr, scope, cache, len) */ + __asm__ __volatile__ ( + "move%.l %1,%/sp@-\n\t" + "move%.l %#3,%/sp@-\n\t" + "move%.l %#1,%/sp@-\n\t" + "move%.l %0,%/sp@-\n\t" + "move%.l %#105,%/sp@-\n\t" + "move%.l %#0,%/sp@-\n\t" + "move%.l %#38,%/sp@-\n\t" + "trap %#0\n\t" + "add%.l %#24,%/sp" + : + : "r" (function_x), "g" ((int)TRAMP_CODE_LENGTH) + : "%d0" + ); +#endif +#endif +#if defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) + cacheflush(function_x,TRAMP_CODE_LENGTH,ICACHE); + /* gforth-0.3.0 uses BCACHE instead of ICACHE. Why?? */ +#endif +#if defined(__sparc__) || defined(__sparc64__) + /* This assumes that the trampoline fits in at most four cache lines. */ + __TR_clear_cache_4(function_x,function_x+TRAMP_CODE_LENGTH-1); +#endif +#ifdef __alpha__ + __TR_clear_cache(); +#endif +#if defined(__hppa__) || defined(__hppa64__) + /* This assumes that the trampoline fits in at most two cache lines. */ + __TR_clear_cache(function_x,function_x+TRAMP_CODE_LENGTH-1); +#endif +#if defined(__arm__) || defined(__armhf__) || defined(__arm64__) + /* On ARM, cache flushing can only be done through a system call. + GCC implements it for Linux with EABI, through an "swi 0" with code + 0xf0002. For other systems, it may be an "swi 0x9f0002", + an "swi 0xf00000", or similar. */ + /* On ARM64, cache flushing is done through special instructions, + and the length of the cache lines must be determined at runtime. + See gcc/libgcc/config/aarch64/sync-cache.c. */ +#if defined(__GNUC__) + /* Use the GCC built-in. */ + __clear_cache((void*)function_x,(void*)(function_x+TRAMP_CODE_LENGTH)); +#else + #error "Don't know how to implement clear_cache on this platform." +#endif +#endif +#if defined(__powerpc__) || defined(__powerpc64__) + __TR_clear_cache(function_x); +#endif +#if defined(__riscv32__) || defined(__riscv64__) +#if defined(__linux__) + /* Use the libc function. */ + __riscv_flush_icache((void*)function_x,(void*)(function_x+TRAMP_CODE_LENGTH),0); +#elif defined(__GNUC__) + __asm__ __volatile__ ("fence.i"); +#endif +#endif +#endif + + /* 5. Return. */ + return (trampoline_function_t) (function_x + TRAMP_BIAS); +} + +void free_trampoline (trampoline_function_t function) +{ +#if TRAMP_BIAS + function = (trampoline_function_t)((char*)function - TRAMP_BIAS); +#endif +#if !defined(CODE_EXECUTABLE) && !defined(EXECUTABLE_VIA_MALLOC_THEN_MPROTECT) +#ifdef EXECUTABLE_VIA_MMAP_FILE_SHARED + /* Find the writable address corresponding to the executable address. */ + { uintptr_t page_x = (uintptr_t) function & -(intptr_t)pagesize; + function -= ((intptr_t*)page_x)[0]; + } +#endif + *(char**)function = freelist; freelist = (char*)function; + /* It is probably not worth calling munmap() for entirely freed pages. */ +#else + free(((char**)function)[-1]); +#endif +} + +int is_trampoline (void* function) +{ +#ifdef is_tramp +#ifdef __hppanew__ + void* tramp_address = &tramp; + if (!(((uintptr_t)function & 3) == (TRAMP_BIAS & 3))) return 0; +#endif + return ((is_tramp(((char*)function - TRAMP_BIAS))) ? 1 : 0); +#else + abort(); +#endif +} + +trampoline_function_t trampoline_address (trampoline_function_t function) +{ +#ifdef tramp_address + return (trampoline_function_t)(tramp_address(((char*)function - TRAMP_BIAS))); +#else + abort(); +#endif +} + +void** trampoline_variable (trampoline_function_t function) +{ +#ifdef tramp_variable + return (void**)(tramp_variable(((char*)function - TRAMP_BIAS))); +#else + abort(); +#endif +} + +void* trampoline_data (trampoline_function_t function) +{ +#ifdef tramp_data + return (void*)(tramp_data(((char*)function - TRAMP_BIAS))); +#else + abort(); +#endif +} diff --git a/trampoline/trampoline.h b/trampoline/trampoline.h new file mode 100644 index 0000000..3e93ae3 --- /dev/null +++ b/trampoline/trampoline.h @@ -0,0 +1,85 @@ +/* + * Copyright 1995-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#ifndef _TRAMPOLINE_H +#define _TRAMPOLINE_H + +#include "ffcall-version.h" + + +#ifdef __cplusplus +extern "C" { +#endif + + +/* This type denotes an opaque function pointer. + You need to cast it to an actual function pointer type (with correct return + type) before you can actually invoke it. */ +#ifdef __cplusplus +typedef int (*trampoline_function_t) (...); +#else +typedef int (*trampoline_function_t) (); +#endif + + +/* Allocates a trampoline. + It returns a function pointer that takes the same parameters and returns the + same type as ADDRESS. + When invoked, it first stores DATA at the location pointed to by VARIABLE, + then invokes ADDRESS with the same arguments. It returns the value returned + by ADDRESS. + The trampoline has indefinite extent. It can be accessed until a call to + free_trampoline(). + */ +extern trampoline_function_t alloc_trampoline (trampoline_function_t /* ADDRESS */, void** /* VARIABLE */, void* /* DATA */); + +/* Frees the memory used by a trampoline. + FUNCTION must be the result of an alloc_trampoline() invocation. + After this call, FUNCTION must not be used any more - neither invoked, + not used as an argument to other functions. + */ +extern void free_trampoline (trampoline_function_t /* FUNCTION */); + + +/* Tests whether a given pointer is a function pointer returned by + alloc_trampoline(). Returns 1 for yes, 0 for no. + If yes, it can be cast to trampoline_function_t. + */ +extern int is_trampoline (void* /* FUNCTION */); + +/* Returns the ADDRESS argument passed to the alloc_trampoline() invocation. + FUNCTION must be the result of an alloc_trampoline() invocation. + */ +extern trampoline_function_t trampoline_address (trampoline_function_t /* FUNCTION */); + +/* Returns the VARIABLE argument passed to the alloc_trampoline() invocation. + FUNCTION must be the result of an alloc_trampoline() invocation. + */ +extern void** trampoline_variable (trampoline_function_t /* FUNCTION */); + +/* Returns the DATA argument passed to the alloc_trampoline() invocation. + FUNCTION must be the result of an alloc_trampoline() invocation. + */ +extern void* trampoline_data (trampoline_function_t /* FUNCTION */); + + +#ifdef __cplusplus +} +#endif + + +#endif /* _TRAMPOLINE_H */ diff --git a/trampoline/trampoline.html b/trampoline/trampoline.html new file mode 100644 index 0000000..ab4be00 --- /dev/null +++ b/trampoline/trampoline.html @@ -0,0 +1,144 @@ + + + + TRAMPOLINE manual page + + +

TRAMPOLINE manual page

+ + +

+ +

+ + +

Name

+ + +trampoline - closures as first-class C functions + + +

Synopsis

+ + +
+#include <trampoline.h>
+function = alloc_trampoline(address, variable, data);
+free_trampoline(function);
+is_trampoline(function)
+trampoline_address(function)
+trampoline_variable(function)
+trampoline_data(function)
+
+ + +

Description

+ + +These functions implement closures as first-class +C functions. A closure consists of a regular C function and a +piece of data which gets passed to the C function when the +closure is called. +

+Closures as first-class C functions means that they fit +into a function pointer and can be called exactly like any +other C function. +function = alloc_trampoline(address, variable, data) +allocates a closure. +When function gets called, it stores +data in the variable variable + and calls the C function at address. +The function at address is responsible for +fetching data out of variable + immediately, before execution of any other function call. +

+This is much like gcc's local functions, except that the +GNU C local functions have dynamic extent (i.e. are +deallocated when the creating function returns), while trampoline + provides functions with indefinite extent: function +is only deallocated when free_trampoline(function) is +called. +

+is_trampoline(function) +checks whether the C function function +was produced by a call to alloc_trampoline. +If this returns true, the arguments given to alloc_trampoline +can be retrieved: +

    +
  • trampoline_address(function) returns address, +
  • trampoline_variable(function) returns variable, +
  • trampoline_data(function) returns data. +
+ + +

See also

+ +gcc(1), stdarg(3), callback(3) + + +

Bugs

+ + +Passing the data through a global variable is not reentrant. Don't +call trampoline functions from within signal +handlers. This is fixed in the callback(3) package. + + +

Porting

+ + +The way gcc builds local functions is described in the gcc +source, file gcc-2.6.3/config/cpu/cpu.h. + + +

Author

+ + +Bruno Haible <bruno@clisp.org> + + +

Acknowledgements

+ + +Many ideas were cribbed from the gcc source. +

+ +

+ +
TRAMPOLINE manual page
+Bruno Haible <bruno@clisp.org> +
+

+Last modified: 1 January 2017. + + + diff --git a/trampoline/trampoline.man b/trampoline/trampoline.man new file mode 100644 index 0000000..2262814 --- /dev/null +++ b/trampoline/trampoline.man @@ -0,0 +1,75 @@ +TRAMPOLINE(3) Library Functions Manual TRAMPOLINE(3) + + + +NAME + trampoline - closures as first-class C functions + +SYNOPSIS + #include  + + function = alloc_trampoline(address, variable, data); + + free_trampoline(function); + + is_trampoline(function) + trampoline_address(function) + trampoline_variable(function) + trampoline_data(function) + +DESCRIPTION + These functions implement closures as first-class C functions. A clo‐ + sure consists of a regular C function and a piece of data which gets + passed to the C function when the closure is called. + + Closures as first-class C functions means that they fit into a function + pointer and can be called exactly like any other C function. function + = alloc_trampoline(address, variable, data) allocates a closure. When + function gets called, it stores data in the variable variable and calls + the C function at address. The function at address is responsible for + fetching data out of variable immediately, before execution of any + other function call. + + This is much like gcc's local functions, except that the GNU C local + functions have dynamic extent (i.e. are deallocated when the creating + function returns), while trampoline provides functions with indefinite + extent: function is only deallocated when free_trampoline(function) is + called. + + is_trampoline(function) checks whether the C function function was pro‐ + duced by a call to alloc_trampoline. If this returns true, the argu‐ + ments given to alloc_trampoline can be retrieved: + + trampoline_address(function) returns address, + + trampoline_variable(function) returns variable, + + trampoline_data(function) returns data. + + +SEE ALSO + gcc(1), stdarg(3), callback(3) + + +BUGS + Passing the data through a global variable is not reentrant. Don't call + trampoline functions from within signal handlers. This is fixed in the + callback(3) package. + + +PORTING + The way gcc builds local functions is described in the gcc source, file + gcc-2.6.3/config/cpu/cpu.h. + + +AUTHOR + Bruno Haible + + +ACKNOWLEDGEMENTS + Many ideas were cribbed from the gcc source. + + + + + 1 January 2017 TRAMPOLINE(3) diff --git a/vacall/COPYING b/vacall/COPYING new file mode 100644 index 0000000..a3d1815 --- /dev/null +++ b/vacall/COPYING @@ -0,0 +1,340 @@ + GNU GENERAL PUBLIC LICENSE + Version 2, June 1991 + + Copyright (C) 1989, 1991 Free Software Foundation, Inc. + 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + + Preamble + + The licenses for most software are designed to take away your +freedom to share and change it. By contrast, the GNU General Public +License is intended to guarantee your freedom to share and change free +software--to make sure the software is free for all its users. This +General Public License applies to most of the Free Software +Foundation's software and to any other program whose authors commit to +using it. (Some other Free Software Foundation software is covered by +the GNU Library General Public License instead.) You can apply it to +your programs, too. + + When we speak of free software, we are referring to freedom, not +price. Our General Public Licenses are designed to make sure that you +have the freedom to distribute copies of free software (and charge for +this service if you wish), that you receive source code or can get it +if you want it, that you can change the software or use pieces of it +in new free programs; and that you know you can do these things. + + To protect your rights, we need to make restrictions that forbid +anyone to deny you these rights or to ask you to surrender the rights. +These restrictions translate to certain responsibilities for you if you +distribute copies of the software, or if you modify it. + + For example, if you distribute copies of such a program, whether +gratis or for a fee, you must give the recipients all the rights that +you have. You must make sure that they, too, receive or can get the +source code. And you must show them these terms so they know their +rights. + + We protect your rights with two steps: (1) copyright the software, and +(2) offer you this license which gives you legal permission to copy, +distribute and/or modify the software. + + Also, for each author's protection and ours, we want to make certain +that everyone understands that there is no warranty for this free +software. If the software is modified by someone else and passed on, we +want its recipients to know that what they have is not the original, so +that any problems introduced by others will not reflect on the original +authors' reputations. + + Finally, any free program is threatened constantly by software +patents. We wish to avoid the danger that redistributors of a free +program will individually obtain patent licenses, in effect making the +program proprietary. To prevent this, we have made it clear that any +patent must be licensed for everyone's free use or not licensed at all. + + The precise terms and conditions for copying, distribution and +modification follow. + + GNU GENERAL PUBLIC LICENSE + TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION + + 0. This License applies to any program or other work which contains +a notice placed by the copyright holder saying it may be distributed +under the terms of this General Public License. The "Program", below, +refers to any such program or work, and a "work based on the Program" +means either the Program or any derivative work under copyright law: +that is to say, a work containing the Program or a portion of it, +either verbatim or with modifications and/or translated into another +language. (Hereinafter, translation is included without limitation in +the term "modification".) Each licensee is addressed as "you". + +Activities other than copying, distribution and modification are not +covered by this License; they are outside its scope. The act of +running the Program is not restricted, and the output from the Program +is covered only if its contents constitute a work based on the +Program (independent of having been made by running the Program). +Whether that is true depends on what the Program does. + + 1. You may copy and distribute verbatim copies of the Program's +source code as you receive it, in any medium, provided that you +conspicuously and appropriately publish on each copy an appropriate +copyright notice and disclaimer of warranty; keep intact all the +notices that refer to this License and to the absence of any warranty; +and give any other recipients of the Program a copy of this License +along with the Program. + +You may charge a fee for the physical act of transferring a copy, and +you may at your option offer warranty protection in exchange for a fee. + + 2. You may modify your copy or copies of the Program or any portion +of it, thus forming a work based on the Program, and copy and +distribute such modifications or work under the terms of Section 1 +above, provided that you also meet all of these conditions: + + a) You must cause the modified files to carry prominent notices + stating that you changed the files and the date of any change. + + b) You must cause any work that you distribute or publish, that in + whole or in part contains or is derived from the Program or any + part thereof, to be licensed as a whole at no charge to all third + parties under the terms of this License. + + c) If the modified program normally reads commands interactively + when run, you must cause it, when started running for such + interactive use in the most ordinary way, to print or display an + announcement including an appropriate copyright notice and a + notice that there is no warranty (or else, saying that you provide + a warranty) and that users may redistribute the program under + these conditions, and telling the user how to view a copy of this + License. (Exception: if the Program itself is interactive but + does not normally print such an announcement, your work based on + the Program is not required to print an announcement.) + +These requirements apply to the modified work as a whole. If +identifiable sections of that work are not derived from the Program, +and can be reasonably considered independent and separate works in +themselves, then this License, and its terms, do not apply to those +sections when you distribute them as separate works. But when you +distribute the same sections as part of a whole which is a work based +on the Program, the distribution of the whole must be on the terms of +this License, whose permissions for other licensees extend to the +entire whole, and thus to each and every part regardless of who wrote it. + +Thus, it is not the intent of this section to claim rights or contest +your rights to work written entirely by you; rather, the intent is to +exercise the right to control the distribution of derivative or +collective works based on the Program. + +In addition, mere aggregation of another work not based on the Program +with the Program (or with a work based on the Program) on a volume of +a storage or distribution medium does not bring the other work under +the scope of this License. + + 3. You may copy and distribute the Program (or a work based on it, +under Section 2) in object code or executable form under the terms of +Sections 1 and 2 above provided that you also do one of the following: + + a) Accompany it with the complete corresponding machine-readable + source code, which must be distributed under the terms of Sections + 1 and 2 above on a medium customarily used for software interchange; or, + + b) Accompany it with a written offer, valid for at least three + years, to give any third party, for a charge no more than your + cost of physically performing source distribution, a complete + machine-readable copy of the corresponding source code, to be + distributed under the terms of Sections 1 and 2 above on a medium + customarily used for software interchange; or, + + c) Accompany it with the information you received as to the offer + to distribute corresponding source code. (This alternative is + allowed only for noncommercial distribution and only if you + received the program in object code or executable form with such + an offer, in accord with Subsection b above.) + +The source code for a work means the preferred form of the work for +making modifications to it. For an executable work, complete source +code means all the source code for all modules it contains, plus any +associated interface definition files, plus the scripts used to +control compilation and installation of the executable. However, as a +special exception, the source code distributed need not include +anything that is normally distributed (in either source or binary +form) with the major components (compiler, kernel, and so on) of the +operating system on which the executable runs, unless that component +itself accompanies the executable. + +If distribution of executable or object code is made by offering +access to copy from a designated place, then offering equivalent +access to copy the source code from the same place counts as +distribution of the source code, even though third parties are not +compelled to copy the source along with the object code. + + 4. You may not copy, modify, sublicense, or distribute the Program +except as expressly provided under this License. Any attempt +otherwise to copy, modify, sublicense or distribute the Program is +void, and will automatically terminate your rights under this License. +However, parties who have received copies, or rights, from you under +this License will not have their licenses terminated so long as such +parties remain in full compliance. + + 5. You are not required to accept this License, since you have not +signed it. However, nothing else grants you permission to modify or +distribute the Program or its derivative works. These actions are +prohibited by law if you do not accept this License. Therefore, by +modifying or distributing the Program (or any work based on the +Program), you indicate your acceptance of this License to do so, and +all its terms and conditions for copying, distributing or modifying +the Program or works based on it. + + 6. Each time you redistribute the Program (or any work based on the +Program), the recipient automatically receives a license from the +original licensor to copy, distribute or modify the Program subject to +these terms and conditions. You may not impose any further +restrictions on the recipients' exercise of the rights granted herein. +You are not responsible for enforcing compliance by third parties to +this License. + + 7. If, as a consequence of a court judgment or allegation of patent +infringement or for any other reason (not limited to patent issues), +conditions are imposed on you (whether by court order, agreement or +otherwise) that contradict the conditions of this License, they do not +excuse you from the conditions of this License. If you cannot +distribute so as to satisfy simultaneously your obligations under this +License and any other pertinent obligations, then as a consequence you +may not distribute the Program at all. For example, if a patent +license would not permit royalty-free redistribution of the Program by +all those who receive copies directly or indirectly through you, then +the only way you could satisfy both it and this License would be to +refrain entirely from distribution of the Program. + +If any portion of this section is held invalid or unenforceable under +any particular circumstance, the balance of the section is intended to +apply and the section as a whole is intended to apply in other +circumstances. + +It is not the purpose of this section to induce you to infringe any +patents or other property right claims or to contest validity of any +such claims; this section has the sole purpose of protecting the +integrity of the free software distribution system, which is +implemented by public license practices. Many people have made +generous contributions to the wide range of software distributed +through that system in reliance on consistent application of that +system; it is up to the author/donor to decide if he or she is willing +to distribute software through any other system and a licensee cannot +impose that choice. + +This section is intended to make thoroughly clear what is believed to +be a consequence of the rest of this License. + + 8. If the distribution and/or use of the Program is restricted in +certain countries either by patents or by copyrighted interfaces, the +original copyright holder who places the Program under this License +may add an explicit geographical distribution limitation excluding +those countries, so that distribution is permitted only in or among +countries not thus excluded. In such case, this License incorporates +the limitation as if written in the body of this License. + + 9. The Free Software Foundation may publish revised and/or new versions +of the General Public License from time to time. Such new versions will +be similar in spirit to the present version, but may differ in detail to +address new problems or concerns. + +Each version is given a distinguishing version number. If the Program +specifies a version number of this License which applies to it and "any +later version", you have the option of following the terms and conditions +either of that version or of any later version published by the Free +Software Foundation. If the Program does not specify a version number of +this License, you may choose any version ever published by the Free Software +Foundation. + + 10. If you wish to incorporate parts of the Program into other free +programs whose distribution conditions are different, write to the author +to ask for permission. For software which is copyrighted by the Free +Software Foundation, write to the Free Software Foundation; we sometimes +make exceptions for this. Our decision will be guided by the two goals +of preserving the free status of all derivatives of our free software and +of promoting the sharing and reuse of software generally. + + NO WARRANTY + + 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY +FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN +OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES +PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED +OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF +MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS +TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE +PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, +REPAIR OR CORRECTION. + + 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING +WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR +REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, +INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING +OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED +TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY +YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER +PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE +POSSIBILITY OF SUCH DAMAGES. + + END OF TERMS AND CONDITIONS + + Appendix: How to Apply These Terms to Your New Programs + + If you develop a new program, and you want it to be of the greatest +possible use to the public, the best way to achieve this is to make it +free software which everyone can redistribute and change under these terms. + + To do so, attach the following notices to the program. It is safest +to attach them to the start of each source file to most effectively +convey the exclusion of warranty; and each file should have at least +the "copyright" line and a pointer to where the full notice is found. + + + Copyright (C) + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software Foundation, + Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. + +Also add information on how to contact you by electronic and paper mail. + +If the program is interactive, make it output a short notice like this +when it starts in an interactive mode: + + Gnomovision version 69, Copyright (C) year name of author + Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. + This is free software, and you are welcome to redistribute it + under certain conditions; type `show c' for details. + +The hypothetical commands `show w' and `show c' should show the appropriate +parts of the General Public License. Of course, the commands you use may +be called something other than `show w' and `show c'; they could even be +mouse-clicks or menu items--whatever suits your program. + +You should also get your employer (if you work as a programmer) or your +school, if any, to sign a "copyright disclaimer" for the program, if +necessary. Here is a sample; alter the names: + + Yoyodyne, Inc., hereby disclaims all copyright interest in the program + `Gnomovision' (which makes passes at compilers) written by James Hacker. + + , 1 April 1989 + Ty Coon, President of Vice + +This General Public License does not permit incorporating your program into +proprietary programs. If your program is a subroutine library, you may +consider it more useful to permit linking proprietary applications with the +library. If this is what you want to do, use the GNU Library General +Public License instead of this License. diff --git a/vacall/Makefile.devel b/vacall/Makefile.devel new file mode 100644 index 0000000..3b76a44 --- /dev/null +++ b/vacall/Makefile.devel @@ -0,0 +1,308 @@ +# This is the developer's -*-Makefile-*-, not the user's makefile. +# Do not use it unless you know exactly what you do! + +THISFILE = Makefile.devel +LN = ln -s +RM = rm -f + +# ============ Rules that require cross-compilation tools ============ + +GCC = gcc +GCCFLAGS = -I.. -I../dummy -O2 -fno-omit-frame-pointer +SED = sed +CROSS_TOOL = cross + +precompiled : \ + vacall-i386-macro.S \ + vacall-m68k.mit.S vacall-m68k.motorola.S \ + vacall-mipseb-macro.S vacall-mipsel-macro.S vacall-mipsn32eb-macro.S vacall-mipsn32el-macro.S vacall-mips64eb-macro.S vacall-mips64el-macro.S \ + vacall-sparc-macro.S vacall-sparc64-macro.S \ + vacall-alpha-macro.S \ + vacall-hppa-macro.S vacall-hppa64-macro.S \ + vacall-arm-macro.S vacall-armhf-macro.S \ + vacall-arm64-macro.S \ + vacall-powerpc-aix.s vacall-powerpc-linux-macro.S vacall-powerpc-sysv4-macro.S vacall-powerpc-macos.s vacall-powerpc64-aix.s vacall-powerpc64-linux.S vacall-powerpc64-elfv2-linux.S \ + vacall-ia64-macro.S \ + vacall-x86_64-macro.S vacall-x86_64-x32-linux.s vacall-x86_64-windows-macro.S \ + vacall-s390-macro.S vacall-s390x-macro.S \ + vacall-riscv32-ilp32d-macro.S vacall-riscv64-lp64d-macro.S + + +vacall-i386-linux.s : vacall-i386.c vacall-internal.h vacall.h $(THISFILE) + $(CROSS_TOOL) i386-linux gcc -V 3.1 $(GCCFLAGS) -D__i386__ -S vacall-i386.c -o vacall-i386-linux.s + +vacall-i386-linux-pic.s : vacall-i386.c vacall-internal.h vacall.h $(THISFILE) + $(CROSS_TOOL) i386-linux gcc -V 3.1 $(GCCFLAGS) -fPIC -D__i386__ -S vacall-i386.c -o vacall-i386-linux-pic.s + +vacall-i386-macro.S : vacall-i386-linux.s vacall-i386-linux-pic.s ../common/asm-i386.sh ../common/noexecstack.h $(THISFILE) + (echo '#include "asm-i386.h"' ; echo '#ifdef __PIC__' ; sed -e '/\.align.*,0x90$$/d' < vacall-i386-linux-pic.s | sed -e 's/vacall_function/C(vacall_function)/g' | ../common/asm-i386.sh ; echo '#else' ; sed -e '/\.align.*,0x90$$/d' < vacall-i386-linux.s | sed -e 's/vacall_function/C(vacall_function)/g' | ../common/asm-i386.sh ; echo '#endif' ; cat ../common/noexecstack.h) > vacall-i386-macro.S + + +vacall-m68k-linux.s : vacall-m68k.c vacall-internal.h vacall.h $(THISFILE) + $(CROSS_TOOL) m68k-linux gcc -V 3.1 $(GCCFLAGS) -D__m68k__ -S vacall-m68k.c -o vacall-m68k-linux.s + +vacall-m68k-sun.s : vacall-m68k.c vacall-internal.h vacall.h $(THISFILE) + $(CROSS_TOOL) m68k-sun gcc -V 3.1 $(GCCFLAGS) -D__m68k__ -S vacall-m68k.c -o vacall-m68k-sun.s + +vacall-m68k.mit.S : vacall-m68k-sun.s ../common/asm-m68k.sh ../common/noexecstack.h $(THISFILE) + (echo '#include "asm-m68k.h"' ; ../common/asm-m68k.sh mit < vacall-m68k-sun.s ; cat ../common/noexecstack.h) > vacall-m68k.mit.S + +vacall-m68k.motorola.S : vacall-m68k-linux.s ../common/asm-m68k.sh ../common/noexecstack.h $(THISFILE) + (echo '#include "asm-m68k.h"' ; ../common/asm-m68k.sh motorola < vacall-m68k-linux.s | sed -e 's/vacall_function/C(vacall_function)/g' ; cat ../common/noexecstack.h) > vacall-m68k.motorola.S + + +vacall-mipseb-linux.s : vacall-mips.c vacall-internal.h vacall.h $(THISFILE) +# For references to global symbols: -mno-explicit-relocs ensures a syntax that the IRIX assembler understands. + $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=32 -mfpxx -march=mips2 -meb -mno-explicit-relocs $(GCCFLAGS) -D__mips__ -S vacall-mips.c -o vacall-mipseb-linux.s + +vacall-mipseb-macro.S : vacall-mipseb-linux.s ../common/asm-mips.sh $(THISFILE) + (echo '#include "asm-mips.h"' ; ../common/asm-mips.sh < vacall-mipseb-linux.s) > vacall-mipseb-macro.S + +vacall-mipsel-linux.s : vacall-mips.c vacall-internal.h vacall.h $(THISFILE) + $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=32 -mfpxx -march=mips2 -mel -mno-explicit-relocs $(GCCFLAGS) -D__mips__ -S vacall-mips.c -o vacall-mipsel-linux.s + +vacall-mipsel-macro.S : vacall-mipsel-linux.s ../common/asm-mips.sh $(THISFILE) + (echo '#include "asm-mips.h"' ; ../common/asm-mips.sh < vacall-mipsel-linux.s) > vacall-mipsel-macro.S + +vacall-mipsn32eb-linux.s : vacall-mipsn32.c vacall-internal.h vacall.h $(THISFILE) + $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=n32 -meb $(GCCFLAGS) -D__mipsn32__ -S vacall-mipsn32.c -o vacall-mipsn32eb-linux.s + +vacall-mipsn32eb-macro.S : vacall-mipsn32eb-linux.s ../common/asm-mips.sh $(THISFILE) + (echo '#include "asm-mips.h"' ; ../common/asm-mips.sh < vacall-mipsn32eb-linux.s) > vacall-mipsn32eb-macro.S + +vacall-mipsn32el-linux.s : vacall-mipsn32.c vacall-internal.h vacall.h $(THISFILE) + $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=n32 -mel $(GCCFLAGS) -D__mipsn32__ -S vacall-mipsn32.c -o vacall-mipsn32el-linux.s + +vacall-mipsn32el-macro.S : vacall-mipsn32el-linux.s ../common/asm-mips.sh $(THISFILE) + (echo '#include "asm-mips.h"' ; ../common/asm-mips.sh < vacall-mipsn32el-linux.s) > vacall-mipsn32el-macro.S + +vacall-mips64eb-linux.s : vacall-mips64.c vacall-internal.h vacall.h $(THISFILE) + $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=64 -meb $(GCCFLAGS) -D__mips64__ -S vacall-mips64.c -o vacall-mips64eb-linux.s + +vacall-mips64eb-macro.S : vacall-mips64eb-linux.s ../common/asm-mips.sh $(THISFILE) + (echo '#include "asm-mips.h"' ; ../common/asm-mips.sh < vacall-mips64eb-linux.s) > vacall-mips64eb-macro.S + +vacall-mips64el-linux.s : vacall-mips64.c vacall-internal.h vacall.h $(THISFILE) + $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=64 -mel $(GCCFLAGS) -D__mips64__ -S vacall-mips64.c -o vacall-mips64el-linux.s + +vacall-mips64el-macro.S : vacall-mips64el-linux.s ../common/asm-mips.sh $(THISFILE) + (echo '#include "asm-mips.h"' ; ../common/asm-mips.sh < vacall-mips64el-linux.s) > vacall-mips64el-macro.S + + +vacall-sparc-linux.s : vacall-sparc.c vacall-internal.h vacall.h $(THISFILE) + $(CROSS_TOOL) sparc-linux gcc -V 3.1 $(GCCFLAGS) -D__sparc__ -S vacall-sparc.c -o vacall-sparc-linux.s + +vacall-sparc-linux-pic.s : vacall-sparc.c vacall-internal.h vacall.h $(THISFILE) + $(CROSS_TOOL) sparc-linux gcc -V 3.1 $(GCCFLAGS) -fPIC -D__sparc__ -S vacall-sparc.c -o vacall-sparc-linux-pic.s + +vacall-sparc-macro.S : vacall-sparc-linux.s vacall-sparc-linux-pic.s ../common/asm-sparc.sh ../common/noexecstack.h $(THISFILE) +# For references to global symbols, we need to distinguish the PIC and non-PIC case. +# See https://gcc.gnu.org/bugzilla/show_bug.cgi?id=81653 + (echo '#include "asm-sparc.h"' ; echo '#ifdef __PIC__' ; ../common/asm-sparc.sh < vacall-sparc-linux-pic.s | sed -e 's/vacall_function/C(vacall_function)/g' ; echo '#else' ; ../common/asm-sparc.sh < vacall-sparc-linux.s | sed -e 's/vacall_function/C(vacall_function)/g' ; echo '#endif' ; cat ../common/noexecstack.h) > vacall-sparc-macro.S + +vacall-sparc64-linux.s : vacall-sparc64.c vacall-internal.h vacall.h $(THISFILE) +# For references to global symbols in non-PIC mode: +# - -mcmodel=medlow uses 2 instructions, but the code does not work on Solaris (error "ld: fatal: relocation error: R_SPARC_HI22"). +# - -mcmodel=medmid uses 3 instructions, but the code still makes some assumptions about the address space. +# - -mcmodel=medany uses 4 instructions. + $(CROSS_TOOL) sparc64-linux gcc -V 4.0.2 -mcmodel=medany $(GCCFLAGS) -D__sparc64__ -S vacall-sparc64.c -o vacall-sparc64-linux.s + +vacall-sparc64-linux-pic.s : vacall-sparc64.c vacall-internal.h vacall.h $(THISFILE) + $(CROSS_TOOL) sparc64-linux gcc -V 4.0.2 $(GCCFLAGS) -fPIC -D__sparc64__ -S vacall-sparc64.c -o vacall-sparc64-linux-pic.s + +vacall-sparc64-macro.S : vacall-sparc64-linux.s vacall-sparc64-linux-pic.s ../common/asm-sparc.sh ../common/noexecstack.h $(THISFILE) +# For references to global symbols, we need to distinguish the PIC and non-PIC case. +# See https://gcc.gnu.org/bugzilla/show_bug.cgi?id=81653 + (echo '#include "asm-sparc.h"' ; echo '#ifdef __PIC__' ; ../common/asm-sparc.sh < vacall-sparc64-linux-pic.s | sed -e 's/vacall_function/C(vacall_function)/g' ; echo '#else' ; ../common/asm-sparc.sh < vacall-sparc64-linux.s | sed -e 's/vacall_function/C(vacall_function)/g' ; echo '#endif' ; cat ../common/noexecstack.h) > vacall-sparc64-macro.S + + +vacall-alpha-linux.s : vacall-alpha.c vacall-internal.h vacall.h $(THISFILE) + $(CROSS_TOOL) alpha-linux gcc -V 4.0.2 $(GCCFLAGS) -D__alpha__ -S vacall-alpha.c -o vacall-alpha-linux.s + +vacall-alpha-macro.S : vacall-alpha-linux.s ../common/asm-alpha.sh ../common/noexecstack.h $(THISFILE) + (../common/asm-alpha.sh < vacall-alpha-linux.s ; cat ../common/noexecstack.h) > vacall-alpha-macro.S + + +vacall-hppa-linux.s : vacall-hppa.c vacall-internal.h vacall.h $(THISFILE) + $(CROSS_TOOL) hppa-linux gcc -V 3.1 $(GCCFLAGS) -D__hppa__ -S vacall-hppa.c -o vacall-hppa-linux.s + +vacall-hppa-macro.S : vacall-hppa-linux.s ../common/asm-hppa.sh ../common/noexecstack.h $(THISFILE) + (echo '#include "asm-hppa.h"' ; ../common/asm-hppa.sh < vacall-hppa-linux.s ; echo 'IMPORT_DATA(vacall_function)' ; cat ../common/noexecstack.h) > vacall-hppa-macro.S + +vacall-hppa64-linux.s : vacall-hppa64.c vacall-internal.h vacall.h $(THISFILE) + $(CROSS_TOOL) hppa64-linux gcc -V 3.1 $(GCCFLAGS) -D__hppa64__ -S vacall-hppa64.c -o vacall-hppa64-linux.s + +vacall-hppa64-macro.S : vacall-hppa64-linux.s ../common/asm-hppa64.sh ../common/noexecstack.h $(THISFILE) + (echo '#include "asm-hppa64.h"' ; ../common/asm-hppa64.sh < vacall-hppa64-linux.s ; echo 'IMPORT_DATA(vacall_function)' ; cat ../common/noexecstack.h) > vacall-hppa64-macro.S + + +vacall-arm-linux.s : vacall-arm.c vacall-internal.h vacall.h $(THISFILE) + $(CROSS_TOOL) arm-linux gcc -V 3.1 -mlittle-endian $(GCCFLAGS) -D__arm__ -S vacall-arm.c -o vacall-armel.s + $(CROSS_TOOL) arm-linux gcc -V 3.1 -mbig-endian $(GCCFLAGS) -D__arm__ -S vacall-arm.c -o vacall-armeb.s + cmp vacall-armel.s vacall-armeb.s > /dev/null + cp vacall-armel.s vacall-arm-linux.s + $(RM) vacall-armel.s vacall-armeb.s + +vacall-arm-linux-pic.s : vacall-arm.c vacall-internal.h vacall.h $(THISFILE) + $(CROSS_TOOL) arm-linux gcc -V 3.1 -mlittle-endian $(GCCFLAGS) -fPIC -D__arm__ -S vacall-arm.c -o vacall-armel-pic.s + $(CROSS_TOOL) arm-linux gcc -V 3.1 -mbig-endian $(GCCFLAGS) -fPIC -D__arm__ -S vacall-arm.c -o vacall-armeb-pic.s + cmp vacall-armel-pic.s vacall-armeb-pic.s > /dev/null + cp vacall-armel-pic.s vacall-arm-linux-pic.s + $(RM) vacall-armel-pic.s vacall-armeb-pic.s + +vacall-arm-macro.S : vacall-arm-linux.s vacall-arm-linux-pic.s ../common/asm-arm.sh ../common/noexecstack-arm.h $(THISFILE) + (echo '#include "asm-arm.h"' ; echo '#ifdef __PIC__' ; ../common/asm-arm.sh < vacall-arm-linux-pic.s | sed -e 's/vacall_function/C(vacall_function)/g' ; echo '#else' ; ../common/asm-arm.sh < vacall-arm-linux.s | sed -e 's/vacall_function/C(vacall_function)/g' ; echo '#endif' ; cat ../common/noexecstack-arm.h) > vacall-arm-macro.S + +vacall-armhf-linux.s : vacall-armhf.c vacall-internal.h vacall.h $(THISFILE) +# The option -mabi=aapcs ensures an 8-bytes-aligned stack pointer. + $(CROSS_TOOL) armv7l-linux-gnueabihf gcc-6.3.0 -march=armv6 -mabi=aapcs -mfloat-abi=hard -mlittle-endian $(GCCFLAGS) -D__armhf__ -S vacall-armhf.c -o vacall-armhfel.s + $(CROSS_TOOL) armv7l-linux-gnueabihf gcc-6.3.0 -march=armv6 -mabi=aapcs -mfloat-abi=hard -mbig-endian $(GCCFLAGS) -D__armhf__ -S vacall-armhf.c -o vacall-armhfeb.s + cmp vacall-armhfel.s vacall-armhfeb.s > /dev/null + cp vacall-armhfel.s vacall-armhf-linux.s + $(RM) vacall-armhfel.s vacall-armhfeb.s + +vacall-armhf-linux-pic.s : vacall-armhf.c vacall-internal.h vacall.h $(THISFILE) +# The option -mabi=aapcs ensures an 8-bytes-aligned stack pointer. + $(CROSS_TOOL) armv7l-linux-gnueabihf gcc-6.3.0 -march=armv6 -mabi=aapcs -mfloat-abi=hard -mlittle-endian $(GCCFLAGS) -fPIC -D__armhf__ -S vacall-armhf.c -o vacall-armhfel-pic.s + $(CROSS_TOOL) armv7l-linux-gnueabihf gcc-6.3.0 -march=armv6 -mabi=aapcs -mfloat-abi=hard -mbig-endian $(GCCFLAGS) -fPIC -D__armhf__ -S vacall-armhf.c -o vacall-armhfeb-pic.s + cmp vacall-armhfel-pic.s vacall-armhfeb-pic.s > /dev/null + cp vacall-armhfel-pic.s vacall-armhf-linux-pic.s + $(RM) vacall-armhfel-pic.s vacall-armhfeb-pic.s + +vacall-armhf-macro.S : vacall-armhf-linux.s vacall-armhf-linux-pic.s ../common/asm-arm.sh ../common/noexecstack-arm.h $(THISFILE) + (echo '#include "asm-arm.h"' ; echo '#ifdef __PIC__' ; ../common/asm-arm.sh < vacall-armhf-linux-pic.s | sed -e 's/vacall_function/C(vacall_function)/g' ; echo '#else' ; ../common/asm-arm.sh < vacall-armhf-linux.s | sed -e 's/vacall_function/C(vacall_function)/g' ; echo '#endif' ; cat ../common/noexecstack-arm.h) > vacall-armhf-macro.S + + +vacall-arm64-macro.S : vacall-arm64.c vacall-internal.h vacall.h ../common/asm-arm.sh ../common/noexecstack-arm.h $(THISFILE) + $(CROSS_TOOL) aarch64-linux gcc-5.4.0 -mlittle-endian $(GCCFLAGS) -D__arm64__ -S vacall-arm64.c -o vacall-arm64el.s + $(CROSS_TOOL) aarch64-linux gcc-5.4.0 -mbig-endian $(GCCFLAGS) -D__arm64__ -S vacall-arm64.c -o vacall-arm64eb.s + cmp vacall-arm64el.s vacall-arm64eb.s > /dev/null + (echo '#include "asm-arm.h"' ; ../common/asm-arm.sh < vacall-arm64el.s ; cat ../common/noexecstack-arm.h) > vacall-arm64-macro.S + $(RM) vacall-arm64el.s vacall-arm64eb.s + + +vacall-powerpc-aix.s : vacall-powerpc.c vacall-internal.h vacall.h $(THISFILE) + $(CROSS_TOOL) rs6000-aix gcc -V 3.3.6 -mno-power -mno-power2 -mno-powerpc -mnew-mnemonics $(GCCFLAGS) -D__powerpc__ -S vacall-powerpc.c -o vacall-powerpc-aix.s + echo ' .extern vacall_function[RW]' >> vacall-powerpc-aix.s + +vacall-powerpc-linux.s : vacall-powerpc.c vacall-internal.h vacall.h $(THISFILE) + $(CROSS_TOOL) powerpc-linux gcc -V 3.3.6 -mno-power -mno-power2 -mno-powerpc $(GCCFLAGS) -D__powerpc__ -S vacall-powerpc.c -o vacall-powerpc-linux.s + +vacall-powerpc-linux-macro.S : vacall-powerpc-linux.s ../common/asm-powerpc.sh ../common/noexecstack.h $(THISFILE) + (../common/asm-powerpc.sh < vacall-powerpc-linux.s ; cat ../common/noexecstack.h) > vacall-powerpc-linux-macro.S + +vacall-powerpc-sysv4-macro.S : vacall-powerpc.c vacall-internal.h vacall.h ../common/asm-powerpc.sh ../common/noexecstack.h $(THISFILE) + $(CROSS_TOOL) powerpc-linux gcc -V 3.3.6 -mno-power -mno-power2 -mno-powerpc $(GCCFLAGS) -D__powerpc__ -S vacall-powerpc.c -o vacall-powerpc-sysv4.s + (../common/asm-powerpc.sh < vacall-powerpc-sysv4.s ; cat ../common/noexecstack.h) > vacall-powerpc-sysv4-macro.S + $(RM) vacall-powerpc-sysv4.s + +vacall-powerpc-macos.s : vacall-powerpc.c vacall-internal.h vacall.h $(THISFILE) + $(CROSS_TOOL) powerpc-darwin gcc -V 3.3.6 $(GCCFLAGS) -D__powerpc__ -S vacall-powerpc.c -o vacall-powerpc-macos.s + +vacall-powerpc64-aix.s : vacall-powerpc64.c vacall-internal.h vacall.h $(THISFILE) + $(CROSS_TOOL) rs6000-aix6.1 gcc-5.4.0 -maix64 $(GCCFLAGS) -D__powerpc64__ -S vacall-powerpc64.c -o vacall-powerpc64-aix.s + echo ' .extern vacall_function[UA]' >> vacall-powerpc64-aix.s + +vacall-powerpc64-linux.S : vacall-powerpc64.c vacall-internal.h vacall.h ../common/asm-powerpc.sh ../common/noexecstack.h $(THISFILE) + $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv1 -mcpu=power4 -mlittle-endian $(GCCFLAGS) -D__powerpc64__ -S vacall-powerpc64.c -o vacall-powerpc64-linux-le.s + $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv1 -mcpu=power4 -mbig-endian $(GCCFLAGS) -D__powerpc64__ -S vacall-powerpc64.c -o vacall-powerpc64-linux-be.s + cmp vacall-powerpc64-linux-le.s vacall-powerpc64-linux-be.s > /dev/null + (../common/asm-powerpc.sh < vacall-powerpc64-linux-be.s ; cat ../common/noexecstack.h) > vacall-powerpc64-linux.S + $(RM) vacall-powerpc64-linux-le.s vacall-powerpc64-linux-be.s + +vacall-powerpc64-elfv2-linux.S : vacall-powerpc64.c vacall-internal.h vacall.h ../common/asm-powerpc.sh ../common/noexecstack.h $(THISFILE) + $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv2 -mcpu=power4 -mlittle-endian $(GCCFLAGS) -D__powerpc64__ -D__powerpc64_elfv2__ -S vacall-powerpc64.c -o vacall-powerpc64-elfv2-linux-le.s + $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv2 -mcpu=power4 -mbig-endian $(GCCFLAGS) -D__powerpc64__ -D__powerpc64_elfv2__ -S vacall-powerpc64.c -o vacall-powerpc64-elfv2-linux-be.s +# vacall-powerpc64-elfv2-linux-be.s contains endianness specific optimizations. + (../common/asm-powerpc.sh < vacall-powerpc64-elfv2-linux-le.s ; cat ../common/noexecstack.h) > vacall-powerpc64-elfv2-linux.S + $(RM) vacall-powerpc64-elfv2-linux-le.s vacall-powerpc64-elfv2-linux-be.s + + +vacall-ia64-linux.s : vacall-ia64.c vacall-internal.h vacall.h $(THISFILE) + $(CROSS_TOOL) ia64-linux gcc -V 4.0.1 $(GCCFLAGS) -D__ia64__ -S vacall-ia64.c -o vacall-ia64-linux.s + +vacall-ia64-macro.S : vacall-ia64-linux.s ../common/noexecstack.h $(THISFILE) + cat vacall-ia64-linux.s ../common/noexecstack.h > vacall-ia64-macro.S + + +vacall-x86_64-linux.s : vacall-x86_64.c vacall-internal.h vacall.h $(THISFILE) + $(CROSS_TOOL) x86_64-linux gcc-4.0.2 $(GCCFLAGS) -D__x86_64__ -S vacall-x86_64.c -o vacall-x86_64-linux.s + +vacall-x86_64-macro.S : vacall-x86_64-linux.s ../common/asm-x86_64.sh ../common/noexecstack.h $(THISFILE) + (echo '#include "asm-x86_64.h"' ; ../common/asm-x86_64.sh < vacall-x86_64-linux.s ; cat ../common/noexecstack.h) > vacall-x86_64-macro.S + +vacall-x86_64-x32-linux.s : vacall-x86_64.c vacall-internal.h vacall.h $(THISFILE) + $(CROSS_TOOL) x86_64-linux gcc-5.4.0 -mx32 $(GCCFLAGS) -D__x86_64__ -D__x86_64_x32__ -S vacall-x86_64.c -o vacall-x86_64-x32-linux.s + +vacall-x86_64-windows.s : vacall-x86_64-windows.c vacall-internal.h vacall.h $(THISFILE) + $(CROSS_TOOL) x86_64-linux gcc-5.4.0 -mabi=ms $(GCCFLAGS) -fno-reorder-blocks-and-partition -D__x86_64__ -D_WIN32 -S vacall-x86_64-windows.c -o vacall-x86_64-windows.s + +vacall-x86_64-windows-macro.S : vacall-x86_64-windows.s ../common/asm-x86_64.sh ../common/noexecstack.h $(THISFILE) + (echo '#include "asm-x86_64.h"' ; ../common/asm-x86_64.sh < vacall-x86_64-windows.s ; cat ../common/noexecstack.h) > vacall-x86_64-windows-macro.S + + +vacall-s390-linux.s : vacall-s390.c vacall-internal.h vacall.h $(THISFILE) + $(CROSS_TOOL) s390-linux gcc -V 3.1 $(GCCFLAGS) -D__s390__ -S vacall-s390.c -o vacall-s390-linux.s + +vacall-s390-macro.S : vacall-s390-linux.s ../common/asm-s390.sh ../common/noexecstack.h $(THISFILE) + (../common/asm-s390.sh < vacall-s390-linux.s ; cat ../common/noexecstack.h) > vacall-s390-macro.S + + +vacall-s390x-linux.s : vacall-s390x.c vacall-internal.h vacall.h $(THISFILE) + $(CROSS_TOOL) s390x-linux gcc-5.4.0 $(GCCFLAGS) -D__s390x__ -S vacall-s390x.c -o vacall-s390x-linux.s + +vacall-s390x-macro.S : vacall-s390x-linux.s ../common/asm-s390.sh ../common/noexecstack.h $(THISFILE) + (../common/asm-s390.sh < vacall-s390x-linux.s ; cat ../common/noexecstack.h) > vacall-s390x-macro.S + + +vacall-riscv32-ilp32d-linux.s : vacall-riscv32.c vacall-internal.h vacall.h $(THISFILE) + $(CROSS_TOOL) riscv32-linux gcc-7.3.0 $(GCCFLAGS) -D__riscv32__ -S vacall-riscv32.c -o vacall-riscv32-ilp32d-linux.s + +vacall-riscv32-ilp32d-macro.S : vacall-riscv32-ilp32d-linux.s ../common/asm-riscv.sh ../common/noexecstack.h $(THISFILE) + (../common/asm-riscv.sh < vacall-riscv32-ilp32d-linux.s ; cat ../common/noexecstack.h) > vacall-riscv32-ilp32d-macro.S + + +vacall-riscv64-lp64d-linux.s : vacall-riscv64.c vacall-internal.h vacall.h $(THISFILE) + $(CROSS_TOOL) riscv64-linux gcc-7.3.0 $(GCCFLAGS) -D__riscv64__ -S vacall-riscv64.c -o vacall-riscv64-lp64d-linux.s + +vacall-riscv64-lp64d-macro.S : vacall-riscv64-lp64d-linux.s ../common/asm-riscv.sh ../common/noexecstack.h $(THISFILE) + (../common/asm-riscv.sh < vacall-riscv64-lp64d-linux.s ; cat ../common/noexecstack.h) > vacall-riscv64-lp64d-macro.S + + +# --------------- Rules for debugging test failures --------------- + +tests : tests-i386.s tests-m68k.s tests-mips.s tests-sparc.s tests-alpha.s tests-hppa.s tests-arm.s tests-powerpc.s tests-powerpc64.s tests-ia64.s tests-x86_64.s + true + +tests-i386.s : tests.c vacall.h + $(GCC) -V 2.7.2 -b i486-linuxaout $(GCCFLAGS) -I/usr/include -D__i386__ -S tests.c -o tests-i386.s + +tests-m68k.s : tests.c vacall.h + $(GCC) -V 2.95.2 -b m68k-sun $(GCCFLAGS) -I/usr/include -D__m68k__ -S tests.c -o tests-m68k.s + +tests-mips.s : tests.c vacall.h + $(GCC) -V 2.95.2 -b mips-sgi $(GCCFLAGS) -I/usr/include -D__mips__ -S tests.c -o tests-mips.s + +tests-sparc.s : tests.c vacall.h + $(GCC) -V 2.95.2 -b sparc-sun $(GCCFLAGS) -I/usr/include -D__sparc__ -S tests.c -o tests-sparc.s + +tests-alpha.s : tests.c vacall.h + $(GCC) -V 2.7.2 -b alpha-dec-osf $(GCCFLAGS) -I/usr/include -D__alpha__ -S tests.c -o tests-alpha.s + +tests-hppa.s : tests.c vacall.h + $(GCC) -V 2.6.3 -b hppa1.0-hpux $(GCCFLAGS) -I/usr/include -D__hppa__ -S tests.c -o tests-hppa.s + +tests-arm.s : tests.c vacall.h + $(GCC) -V 2.6.3 -b arm-acorn-riscix $(GCCFLAGS) -I/usr/include -D__arm__ -S tests.c -o tests-arm.s + +tests-powerpc.s : tests.c vacall.h + $(GCC) -V 2.95.2 -b rs6000 $(GCCFLAGS) -I/usr/include -D__powerpc__ -S tests.c -o tests-powerpc.s + +tests-powerpc64.s : tests.c vacall.h + /cross/powerpc64-linux-tools/bin/powerpc64-linux-gcc $(GCCFLAGS) -I/usr/include -D__powerpc64__ -S tests.c -o tests-powerpc64.s + +tests-ia64.s : tests.c vacall.h + $(GCC) -V 2.9-ia64-000216 -b ia64-hp-linux $(GCCFLAGS) -I/usr/include -D__ia64__ -S tests.c -o tests-ia64.s + +tests-x86_64.s : tests.c vacall.h + $(GCC) -V 3.2.2 -b x86_64-suse-linux $(GCCFLAGS) -I/usr/include -D__x86_64__ -S tests.c -o tests-x86_64.s diff --git a/vacall/Makefile.in b/vacall/Makefile.in new file mode 100644 index 0000000..bd6d4bd --- /dev/null +++ b/vacall/Makefile.in @@ -0,0 +1,380 @@ +# Makefile for vacall + +#### Start of system configuration section. #### + +HOST = @host@ +CPU = @HOST_CPU_C_ABI@ +OS = @host_os@ + +# Directories used by "make": +srcdir = @srcdir@ + +# Directories used by "make install": +prefix = @prefix@ +local_prefix = /usr/local +exec_prefix = @exec_prefix@ +libdir = @libdir@ +includedir = @includedir@ +mandir = @mandir@ +datadir = @datadir@ +datarootdir = @datarootdir@ +htmldir = $(datadir)/html + +# Programs used by "make": +# C compiler +CC = @CC@ +CFLAGS = @CFLAGS@ +CPP = @CPP@ +# C++ compiler +CXX = @CXX@ +CXXFLAGS = @CXXFLAGS@ +# Both C and C++ compiler +CPPFLAGS = @CPPFLAGS@ +INCLUDES = -I. -I$(srcdir) -I.. -I$(srcdir)/.. +INCLUDES_WITH_GNULIB = $(INCLUDES) -I../gnulib-lib -I$(srcdir)/../gnulib-lib +ASPFLAGS = `if test @AS_UNDERSCORE@ = true; then echo '-DASM_UNDERSCORE'; fi` +LDFLAGS = @LDFLAGS@ +AR = @AR@ +AR_FLAGS = rc +RANLIB = @RANLIB@ +MV = mv +LN = @LN@ +RM = rm -f +@SET_MAKE@ + +# Programs used by "make install": +INSTALL = @INSTALL@ +INSTALL_PROGRAM = @INSTALL_PROGRAM@ +INSTALL_DATA = @INSTALL_DATA@ + +#### End of system configuration section. #### + +SHELL = /bin/sh + +OBJECTS = vacall.@OBJEXT@ vacall-libapi.@OBJEXT@ vacall-structcpy.@OBJEXT@ + +all : $(OBJECTS) libvacall.a $(srcdir)/vacall.3 $(srcdir)/vacall.html + +vacall.@OBJEXT@ : vacall-$(CPU).@OBJEXT@ + $(RM) vacall.@OBJEXT@ + $(LN) vacall-$(CPU).@OBJEXT@ vacall.@OBJEXT@ + +@IFNOT_MSVC@vacall-i386.@OBJEXT@ : vacall-i386.s +@IFNOT_MSVC@ $(CC) @GCC_X_NONE@ -c vacall-i386.s + +@IFNOT_MSVC@vacall-i386.s : $(srcdir)/vacall-i386-macro.S +@IFNOT_MSVC@ $(CPP) $(ASPFLAGS) -I$(srcdir)/../common - < $(srcdir)/vacall-i386-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,@ ,@,g' -e 's,//.*$$,,' -e 's/##//g' > vacall-i386.s + +@IF_MSVC@vacall-i386.@OBJEXT@ : $(srcdir)/vacall-i386-msvc.c +@IF_MSVC@ $(CC) $(INCLUDES) -I$(srcdir)/../common $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/vacall-i386-msvc.c -o vacall-i386.@OBJEXT@ + +vacall-sparc.@OBJEXT@ : vacall-sparc.s + $(CC) @WORKAROUND_BUG_81653@ @GCC_X_NONE@ -c vacall-sparc.s + +vacall-sparc.s : $(srcdir)/vacall-sparc-macro.S + $(CPP) @WORKAROUND_BUG_81653@ $(ASPFLAGS) -I$(srcdir)/../common - < $(srcdir)/vacall-sparc-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,//.*$$,,' -e 's,\$$,#,g' -e 's,# ,#,g' > vacall-sparc.s + +vacall-sparc64.@OBJEXT@ : vacall-sparc64.s + $(CC) @GCC_X_NONE@ -c vacall-sparc64.s + +vacall-sparc64.s : $(srcdir)/vacall-sparc64-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../common - < $(srcdir)/vacall-sparc64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,//.*$$,,' -e 's,\$$,#,g' -e 's,# ,#,g' > vacall-sparc64.s + +vacall-m68k.@OBJEXT@ : vacall-m68k.s + $(CC) @GCC_X_NONE@ -c vacall-m68k.s + +vacall-m68k.s : $(srcdir)/vacall-m68k.mit.S $(srcdir)/vacall-m68k.motorola.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/vacall-m68k.motorola.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' | if test @AS_UNDERSCORE@ = true; then sed -e 's/\$$//g'; else sed -e 's/\$$/%/g'; fi > vacall-m68k.s + +vacall-mips.@OBJEXT@ : vacall-mips.s + $(CC) @GCC_X_NONE@ -c vacall-mips.s + +vacall-mips.s : $(srcdir)/vacall-mips@ENDIANNESS@-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/vacall-mips@ENDIANNESS@-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-mips.s + +vacall-mipsn32.@OBJEXT@ : vacall-mipsn32.s + $(CC) @GCC_X_NONE@ -c vacall-mipsn32.s + +vacall-mipsn32.s : $(srcdir)/vacall-mipsn32@ENDIANNESS@-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/vacall-mipsn32@ENDIANNESS@-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-mipsn32.s + +vacall-mips64.@OBJEXT@ : vacall-mips64.s + $(CC) @GCC_X_NONE@ -c vacall-mips64.s + +vacall-mips64.s : $(srcdir)/vacall-mips64@ENDIANNESS@-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/vacall-mips64@ENDIANNESS@-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-mips64.s + +vacall-alpha.@OBJEXT@ : vacall-alpha.s + $(CC) @GCC_X_NONE@ -c vacall-alpha.s + +vacall-alpha.s : $(srcdir)/vacall-alpha-macro.S + $(CPP) $(ASPFLAGS) $(srcdir)/vacall-alpha-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-alpha.s + +vacall-hppa.@OBJEXT@ : vacall-hppa.s + $(CC) @GCC_X_NONE@ -c vacall-hppa.s + +vacall-hppa.s : $(srcdir)/vacall-hppa-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/vacall-hppa-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e "s,!,',g" > vacall-hppa.s + +vacall-hppa64.@OBJEXT@ : vacall-hppa64.s + $(CC) @GCC_X_NONE@ -c vacall-hppa64.s + +vacall-hppa64.s : $(srcdir)/vacall-hppa64-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/vacall-hppa64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e "s,!,',g" > vacall-hppa64.s + +vacall-arm.@OBJEXT@ : vacall-arm.s + $(CC) @GCC_X_NONE@ -c vacall-arm.s + +vacall-arm.s : $(srcdir)/vacall-arm-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/vacall-arm-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//,@,g' -e 's,\$$,#,g' > vacall-arm.s + +vacall-armhf.@OBJEXT@ : vacall-armhf.s + $(CC) @GCC_X_NONE@ -c vacall-armhf.s + +vacall-armhf.s : $(srcdir)/vacall-armhf-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/vacall-armhf-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//,@,g' -e 's,\$$,#,g' > vacall-armhf.s + +vacall-arm64.@OBJEXT@ : vacall-arm64.s + $(CC) @GCC_X_NONE@ -c vacall-arm64.s + +vacall-arm64.s : $(srcdir)/vacall-arm64-macro.S + $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/vacall-arm64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//,@,g' -e 's,\$$,#,g' > vacall-arm64.s + +vacall-powerpc.@OBJEXT@ : vacall-powerpc.s + $(CC) @GCC_X_NONE@ -c vacall-powerpc.s + +vacall-powerpc.s : $(srcdir)/vacall-powerpc-aix.s $(srcdir)/vacall-powerpc-linux-macro.S $(srcdir)/vacall-powerpc-macos.s $(srcdir)/vacall-powerpc-sysv4-macro.S + case "$(OS)" in \ + aix*) syntax=aix;; \ + linux* | netbsd* | openbsd*) syntax=linux;; \ + macos* | darwin*) syntax=macos;; \ + *) syntax=sysv4;; \ + esac; \ + case $${syntax} in \ + macos) \ + grep -v '\.machine' $(srcdir)/vacall-powerpc-$${syntax}.s > vacall-powerpc.s || exit 1 ;; \ + linux | sysv4) \ + $(CPP) $(ASPFLAGS) $(srcdir)/vacall-powerpc-$${syntax}-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-powerpc.s || exit 1 ;; \ + *) \ + cp $(srcdir)/vacall-powerpc-$${syntax}.s vacall-powerpc.s || exit 1 ;; \ + esac + +vacall-powerpc64.@OBJEXT@ : vacall-powerpc64.s + $(CC) @GCC_X_NONE@ -c vacall-powerpc64.s + +vacall-powerpc64.s : $(srcdir)/vacall-powerpc64-aix.s $(srcdir)/vacall-powerpc64-linux.S + case "$(OS)" in \ + aix*) syntax=aix;; \ + *) syntax=linux;; \ + esac; \ + case $${syntax} in \ + linux) \ + $(CPP) $(ASPFLAGS) $(srcdir)/vacall-powerpc64-$${syntax}.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-powerpc64.s || exit 1 ;; \ + *) \ + cp $(srcdir)/vacall-powerpc64-$${syntax}.s vacall-powerpc64.s || exit 1 ;; \ + esac + +vacall-powerpc64-elfv2.@OBJEXT@ : vacall-powerpc64-elfv2.s + $(CC) @GCC_X_NONE@ -c vacall-powerpc64-elfv2.s + +vacall-powerpc64-elfv2.s : $(srcdir)/vacall-powerpc64-elfv2-linux.S + $(CPP) $(ASPFLAGS) $(srcdir)/vacall-powerpc64-elfv2-linux.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-powerpc64-elfv2.s + +vacall-ia64.@OBJEXT@ : vacall-ia64.s + $(CC) @GCC_X_NONE@ -c vacall-ia64.s + +vacall-ia64.s : $(srcdir)/vacall-ia64-macro.S + $(CPP) $(ASPFLAGS) $(srcdir)/vacall-ia64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-ia64.s + +@IFNOT_MSVC@vacall-x86_64.@OBJEXT@ : vacall-x86_64.s +@IFNOT_MSVC@ $(CC) @GCC_X_NONE@ -c vacall-x86_64.s + +@IFNOT_MSVC@vacall-x86_64.s : $(srcdir)/vacall-x86_64-macro.S $(srcdir)/vacall-x86_64-windows-macro.S +@IFNOT_MSVC@ case "$(OS)" in \ +@IFNOT_MSVC@ cygwin* | mingw*) variant='-windows';; \ +@IFNOT_MSVC@ *) variant='';; \ +@IFNOT_MSVC@ esac; \ +@IFNOT_MSVC@ $(CPP) $(ASPFLAGS) -I$(srcdir)/../common - < $(srcdir)/vacall-x86_64$${variant}-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,@ ,@,g' -e 's,//.*$$,,' -e 's/##//g' > vacall-x86_64.s + +@IF_MSVC@vacall-x86_64.@OBJEXT@ : vacall-x86_64.asm +@IF_MSVC@ ml64 -c -nologo vacall-x86_64.asm + +@IF_MSVC@vacall-x86_64.asm : $(srcdir)/vacall-x86_64-windows-macro.S +@IF_MSVC@ { echo 'EXTERNDEF vacall_function:QWORD'; $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/vacall-x86_64-windows-macro.S | grep -v '^#'; echo 'END'; } > vacall-x86_64.asm + +vacall-x86_64-x32.@OBJEXT@ : vacall-x86_64-x32.s + $(CC) @GCC_X_NONE@ -c vacall-x86_64-x32.s + +vacall-x86_64-x32.s : $(srcdir)/vacall-x86_64-x32-linux.s + cp $(srcdir)/vacall-x86_64-x32-linux.s vacall-x86_64-x32.s + +vacall-s390.@OBJEXT@ : vacall-s390.s + $(CC) @GCC_X_NONE@ -c vacall-s390.s + +vacall-s390.s : $(srcdir)/vacall-s390-macro.S + $(CPP) $(ASPFLAGS) $(srcdir)/vacall-s390-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-s390.s + +vacall-s390x.@OBJEXT@ : vacall-s390x.s + $(CC) @GCC_X_NONE@ -c vacall-s390x.s + +vacall-s390x.s : $(srcdir)/vacall-s390x-macro.S + $(CPP) $(ASPFLAGS) $(srcdir)/vacall-s390x-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-s390x.s + +vacall-riscv32-ilp32d.@OBJEXT@ : vacall-riscv32-ilp32d.s + $(CC) @GCC_X_NONE@ -c vacall-riscv32-ilp32d.s + +vacall-riscv32-ilp32d.s : $(srcdir)/vacall-riscv32-ilp32d-macro.S + $(CPP) $(ASPFLAGS) $(srcdir)/vacall-riscv32-ilp32d-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-riscv32-ilp32d.s + +vacall-riscv64-lp64d.@OBJEXT@ : vacall-riscv64-lp64d.s + $(CC) @GCC_X_NONE@ -c vacall-riscv64-lp64d.s + +vacall-riscv64-lp64d.s : $(srcdir)/vacall-riscv64-lp64d-macro.S + $(CPP) $(ASPFLAGS) $(srcdir)/vacall-riscv64-lp64d-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-riscv64-lp64d.s + +vacall-libapi.@OBJEXT@ : $(srcdir)/vacall-libapi.c $(srcdir)/vacall-internal.h $(srcdir)/vacall.h ../config.h + $(CC) $(INCLUDES_WITH_GNULIB) $(CPPFLAGS) $(CFLAGS) @DISABLE_TYPE_BASED_ALIASING@ -c $(srcdir)/vacall-libapi.c + +vacall-structcpy.@OBJEXT@ : $(srcdir)/vacall-structcpy.c $(srcdir)/../common/structcpy.c + $(CC) -I$(srcdir)/../common $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/vacall-structcpy.c + +libvacall.a : $(OBJECTS) + $(RM) libvacall.a + $(AR) $(AR_FLAGS) libvacall.a $(OBJECTS) + $(RANLIB) libvacall.a + +install : all force + mkdir -p $(DESTDIR)$(prefix) + mkdir -p $(DESTDIR)$(exec_prefix) + mkdir -p $(DESTDIR)$(libdir) + $(INSTALL_DATA) libvacall.a $(DESTDIR)$(libdir)/libvacall.a + mkdir -p $(DESTDIR)$(includedir) + $(INSTALL_DATA) $(srcdir)/vacall.h $(DESTDIR)$(includedir)/vacall.h + mkdir -p $(DESTDIR)$(mandir) + mkdir -p $(DESTDIR)$(mandir)/man3 + $(INSTALL_DATA) $(srcdir)/vacall.3 $(DESTDIR)$(mandir)/man3/vacall.3 + mkdir -p $(DESTDIR)$(datadir) + mkdir -p $(DESTDIR)$(htmldir) + $(INSTALL_DATA) $(srcdir)/vacall.html $(DESTDIR)$(htmldir)/vacall.html + +installdirs : force + mkdir -p $(DESTDIR)$(prefix) + mkdir -p $(DESTDIR)$(exec_prefix) + mkdir -p $(DESTDIR)$(libdir) + mkdir -p $(DESTDIR)$(includedir) + mkdir -p $(DESTDIR)$(mandir) + mkdir -p $(DESTDIR)$(mandir)/man3 + mkdir -p $(DESTDIR)$(datadir) + mkdir -p $(DESTDIR)$(htmldir) + +uninstall : force + $(RM) $(DESTDIR)$(libdir)/libvacall.a + $(RM) $(DESTDIR)$(includedir)/vacall.h + $(RM) $(DESTDIR)$(mandir)/man3/vacall.3 + $(RM) $(DESTDIR)$(htmldir)/vacall.html + +minitests.@OBJEXT@ : $(srcdir)/minitests.c $(srcdir)/tests.c $(srcdir)/vacall.h + $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/minitests.c + +minitests.s : $(srcdir)/minitests.c $(srcdir)/tests.c $(srcdir)/vacall.h + $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -S $(srcdir)/minitests.c + +minitests : minitests.@OBJEXT@ libvacall.a + $(CC) $(CFLAGS) @GCC_X_NONE@ minitests.@OBJEXT@ libvacall.a $(LDFLAGS) -o minitests + +minitests-c++.@OBJEXT@ : $(srcdir)/minitests-c++.cc $(srcdir)/minitests.c $(srcdir)/tests.c $(srcdir)/vacall.h + $(CXX) $(INCLUDES) $(CPPFLAGS) $(CXXFLAGS) -c $(srcdir)/minitests-c++.cc + +minitests-c++ : minitests-c++.@OBJEXT@ libvacall.a + $(CXX) $(CXXFLAGS) @GCC_X_NONE@ minitests-c++.@OBJEXT@ libvacall.a $(LDFLAGS) -o minitests-c++ + +check : all minitests + ./minitests > minitests.out + LC_ALL=C uniq -u < minitests.out > minitests.output.$(HOST) + test '!' -s minitests.output.$(HOST) +@IF_CXX@ ./minitests-c++ > minitests-c++.out +@IF_CXX@ LC_ALL=C uniq -u < minitests-c++.out > minitests-c++.output.$(HOST) +@IF_CXX@ test '!' -s minitests-c++.output.$(HOST) +@IF_CXX@check : minitests-c++ + +tests.@OBJEXT@ : $(srcdir)/tests.c $(srcdir)/vacall.h + $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/tests.c + +tests.s : $(srcdir)/tests.c $(srcdir)/vacall.h + $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -S $(srcdir)/tests.c + +tests : tests.@OBJEXT@ libvacall.a + $(CC) $(CFLAGS) @GCC_X_NONE@ tests.@OBJEXT@ libvacall.a $(LDFLAGS) -o tests + +extracheck : all tests + ./tests > tests.out + LC_ALL=C uniq -u < tests.out > tests.output.$(HOST) + test '!' -s tests.output.$(HOST) + +mostlyclean : clean + +clean : force + $(RM) *.@OBJEXT@ *.a core + $(RM) vacall-i386.s vacall-sparc.s vacall-sparc64.s vacall-m68k.s vacall-mips.s vacall-mipsn32.s vacall-mips64.s vacall-alpha.s vacall-hppa.s vacall-hppa64.s vacall-arm.s vacall-armhf.s vacall-arm64.s vacall-powerpc.s vacall-powerpc64.s vacall-powerpc64-elfv2.s vacall-ia64.s vacall-x86_64.s vacall-x86_64.asm vacall-x86_64-x32.s vacall-s390.s vacall-s390x.s vacall-riscv32-ilp32d.s vacall-riscv64-lp64d.s + $(RM) minitests.@OBJEXT@ minitests.s minitests minitests.out + $(RM) minitests-c++.@OBJEXT@ minitests-c++ minitests-c++.out + $(RM) tests.@OBJEXT@ tests.s tests tests.out + +distclean : clean + $(RM) Makefile minitests.output.* minitests-c++.output.* tests.output.* + +maintainer-clean : distclean + + +# List of source files (committed in version control or generated by Makefile.devel). +SOURCE_FILES = \ + COPYING \ + PLATFORMS README vacall.3 vacall.html \ + Makefile.devel \ + Makefile.maint \ + Makefile.in \ + vacall.h vacall-internal.h \ + vacall-alpha.c vacall-alpha-linux.s vacall-alpha-macro.S \ + vacall-arm.c vacall-arm-linux.s vacall-arm-linux-pic.s vacall-arm-macro.S \ + vacall-armhf.c vacall-armhf-linux.s vacall-armhf-linux-pic.s vacall-armhf-macro.S \ + vacall-arm64.c vacall-arm64-macro.S \ + vacall-hppa.c vacall-hppa-linux.s vacall-hppa-macro.S \ + vacall-hppa64.c vacall-hppa64-linux.s vacall-hppa64-macro.S \ + vacall-i386.c vacall-i386-linux.s vacall-i386-linux-pic.s vacall-i386-macro.S \ + vacall-ia64.c vacall-ia64-linux.s vacall-ia64-macro.S \ + vacall-m68k.c vacall-m68k-linux.s vacall-m68k-sun.s vacall-m68k.mit.S vacall-m68k.motorola.S \ + vacall-mips.c vacall-mipseb-linux.s vacall-mipsel-linux.s vacall-mipseb-macro.S vacall-mipsel-macro.S \ + vacall-mipsn32.c vacall-mipsn32eb-linux.s vacall-mipsn32el-linux.s vacall-mipsn32eb-macro.S vacall-mipsn32el-macro.S \ + vacall-mips64.c vacall-mips64eb-linux.s vacall-mips64el-linux.s vacall-mips64eb-macro.S vacall-mips64el-macro.S \ + vacall-powerpc.c \ + vacall-powerpc-aix.s \ + vacall-powerpc-linux.s vacall-powerpc-linux-macro.S vacall-powerpc-macos.s vacall-powerpc-sysv4-macro.S \ + vacall-powerpc64.c vacall-powerpc64-aix.s vacall-powerpc64-linux.S vacall-powerpc64-elfv2-linux.S \ + vacall-riscv32.c vacall-riscv32-ilp32d-linux.s vacall-riscv32-ilp32d-macro.S \ + vacall-riscv64.c vacall-riscv64-lp64d-linux.s vacall-riscv64-lp64d-macro.S \ + vacall-s390.c vacall-s390-linux.s vacall-s390-macro.S \ + vacall-s390x.c vacall-s390x-linux.s vacall-s390x-macro.S \ + vacall-sparc.c vacall-sparc-linux.s vacall-sparc-linux-pic.s vacall-sparc-macro.S \ + vacall-sparc64.c vacall-sparc64-linux.s vacall-sparc64-linux-pic.s vacall-sparc64-macro.S \ + vacall-x86_64.c vacall-x86_64-linux.s vacall-x86_64-macro.S vacall-x86_64-x32-linux.s \ + vacall-x86_64-windows.c vacall-x86_64-windows.s vacall-x86_64-windows-macro.S \ + vacall-libapi.c \ + vacall-structcpy.c \ + minitests.c minitests-c++.cc \ + tests.c +# List of distributed files generated by Makefile.maint. +GENERATED_FILES = \ + vacall.man \ + vacall-i386-msvc.c +# List of distributed files. +DISTFILES = $(SOURCE_FILES) $(GENERATED_FILES) + +distdir : $(DISTFILES) + for file in $(DISTFILES); do \ + if test -f $$file; then dir='.'; else dir='$(srcdir)'; fi; \ + cp -p "$$dir/$$file" '$(distdir)'/$$file || exit 1; \ + done + + +force : + diff --git a/vacall/Makefile.maint b/vacall/Makefile.maint new file mode 100644 index 0000000..51789a9 --- /dev/null +++ b/vacall/Makefile.maint @@ -0,0 +1,24 @@ +# maintainer -*-Makefile-*- + +LN = ln -s +RM = rm -f + +# ==================== Easily regeneratable files ==================== + +ROFF_MAN = groff -Tutf8 -mandoc + +all : vacall.man \ + vacall-i386-msvc.c + +vacall.man : vacall.3 + $(ROFF_MAN) vacall.3 > vacall.man + +vacall-i386-msvc.c : vacall-i386-macro.S + (echo '#ifdef _MSC_VER' ; echo '#include "vacall.h"' ; echo '#endif' ; cat vacall-i386-macro.S) > vacall-i386-msvc.c + +totally-clean : force + $(RM) vacall.man + $(RM) vacall-i386-msvc.c + + +force : diff --git a/vacall/PLATFORMS b/vacall/PLATFORMS new file mode 100644 index 0000000..f60ac57 --- /dev/null +++ b/vacall/PLATFORMS @@ -0,0 +1,51 @@ +Supported CPUs: (Put the GNU config.guess values here.) + i386 i486-unknown-linux (gcc), i686-unknown-gnu0.9 (gcc), + i386-unknown-sysv4.0 (gcc, /usr/bin/cc, /usr/ucb/cc), + i386-pc-solaris2.6 (gcc), i386-pc-solaris2.10 (gcc, cc), + i486-unknown-sco3.2v4.2 (gcc, cc -Of), i386-pc-cygwin32 (gcc), + i386-w64-mingw32 (gcc, MSVC 14), + i586-unknown-freebsd11.0 (cc), i386-unknown-dragonfly3.8 (gcc), + i386-unknown-netbsdelf7.0 (gcc), i386-unknown-openbsd6.0 (gcc), + i586-pc-haiku (gcc-x86), i386-pc-minix (clang) + m68k m68k-next-nextstep3 (cc), m68k-sun-sunos4.0 (cc), + m68k-unknown-linux (gcc) + mips mips-sgi-irix4.0.5 (gcc, cc -ansi, cc -D__STDC__, cc -cckr), + mips-sgi-irix5.2 (gcc, cc -ansi, cc -D__STDC__, cc -cckr), + mips-sgi-irix5.2 (gcc, cc -ansi, cc -D__STDC__, cc -cckr), + mips-sgi-irix6.2 (cc -32), + mips-sgi-irix6.4 (cc -32, cc -n32, cc -64), + mips-sgi-irix6.5 (cc -32, cc -n32, gcc -mabi=n32), + mips-unknown-linux (gcc -mabi=32), + mips64-unknown-linux (gcc -mabi=n32, -mabi=64) + sparc sparc-sun-sunos4.1.1 (gcc, cc), sparc-sun-solaris2.3 (gcc), + sparc-sun-solaris2.4 (gcc, cc), sparc-sun-solaris2.10 (gcc, cc), + sparc64-sun-solaris2.10 (gcc -m64, cc -xarch=generic64), + sparc-unknown-linux (gcc), sparc64-unknown-linux (gcc), + sparc-unknown-netbsdelf7.1 (gcc), + sparc64-unknown-netbsd8.0 (gcc) + alpha alpha-dec-osf3.0 (gcc, cc), alpha-dec-osf4.0 (gcc, cc), + alphaev67-unknown-linux (gcc) + hppa hppa1.0-hp-hpux8.00 (gcc, cc), hppa1.1-hp-hpux9.05 (cc), + hppa1.1-hp-hpux10.01 (cc), hppa2.0-hp-hpux10.20 (cc +DA1.1), + hppa2.0w-hp-hpux11.31 (cc), hppa-unknown-linux (gcc) + hppa64 hppa64-hp-hpux11.31 (cc +DD64) + arm armv5tejl-unknown-linux (gcc), armv6l-unknown-linux (gcc), + armv7l-unknown-linux (gcc) + arm64 aarch64-unknown-linux (gcc) + powerpc powerpc-ibm-aix4.1.4.0 (cc), powerpc-ibm-aix7.1.3.0 (xlc, gcc), + powerpc-unknown-linux (gcc), powerpc-apple-darwin6.8 (gcc), + powerpc-apple-darwin9.8.0 (gcc) + powerpc64 powerpc-ibm-aix7.1.3.0 (gcc -maix64, xlc -q64; AR="ar -X 64"), + powerpc64-unknown-linux (gcc -m64), + powerpc64le-unknown-linux (gcc) + ia64 ia64-unknown-linux (gcc) + x86_64 x86_64-suse-linux (gcc), x86_64-unknown-linux (gcc -mx32), + x86_64-pc-solaris2.10 (gcc -m64, cc -xarch=generic64), + x86_64-pc-cygwin (gcc), x86_64-w64-mingw32 (gcc, MSVC 14), + x86_64-unknown-freebsd11.0 (cc), x86_64-unknown-netbsd7.0 (gcc), + x86_64-unknown-openbsd6.0 (gcc) + s390 s390x-ibm-linux (gcc -m31) + s390x s390x-ibm-linux (gcc) + riscv32 riscv32-unknown-linux (gcc -mabi=ilp32d) + riscv64 riscv64-unknown-linux (gcc -mabi=lp64d) + diff --git a/vacall/README b/vacall/README new file mode 100644 index 0000000..152436d --- /dev/null +++ b/vacall/README @@ -0,0 +1,78 @@ +vacall - C functions called with variable arguments + +This library allows C functions to be called with variable arguments and +to return variable return values. This is much like the varargs(3) facility, +but also allows the return value to be specified at run time. + +A typical use is the implementation of call-back functions in embedded +interpreters. + + +Installation instructions: + + Configure the parent directory. Then: + cd vacall + make + make check + make install + + +Files in this package: + + Documentation: + + README this text + COPYING free software license + PLATFORMS list of supported platforms + vacall.3 manual page in Unix man format + vacall.man manual page + vacall.html manual page in HTML format + + Source: + + vacall.h main include file + vacall-*.c source for the main interface function + vacall-*.[sS] its translation to assembly language + vacall-libapi.c implementation of other library API + vacall-structcpy.c auxiliary function + tests.c test program + + Building: + + Makefile.in Makefile master + + Porting: + + Makefile.devel developer's Makefile + + +This subdirectory produces a static library. Reason: +The vacall-*.c files access global variables. Such accesses causes +portability problems when combined with the option -fPIC (because of +the small/medium/large memory models and platform dependent assembler +syntax to access the GOT). +Therefore Makefile.devel in this directory compiles the files without -fPIC. +Therefore the resulting object files are not suitable for being put into +a shared library. +Therefore this direcory must + - either not use libtool, + - or pass '-static' to $(LIBTOOL_LINK) when creating libvacall.la. + + +Copyright notice: + +Copyright 1995-2017 Bruno Haible + +This program is free software: you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2 of the License, or +(at your option) any later version. + +This program is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with this program. If not, see . + diff --git a/vacall/minitests-c++.cc b/vacall/minitests-c++.cc new file mode 100644 index 0000000..1738e11 --- /dev/null +++ b/vacall/minitests-c++.cc @@ -0,0 +1,18 @@ +/* + * Copyright 2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "minitests.c" diff --git a/vacall/minitests.c b/vacall/minitests.c new file mode 100644 index 0000000..b0f50fe --- /dev/null +++ b/vacall/minitests.c @@ -0,0 +1,19 @@ +/* + * Copyright 1999-2001 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#define SKIP_EXTRA_STRUCTS +#include "tests.c" diff --git a/vacall/tests.c b/vacall/tests.c new file mode 100644 index 0000000..2401a95 --- /dev/null +++ b/vacall/tests.c @@ -0,0 +1,2216 @@ +/* Some random tests for vacall. */ + +/* + * Copyright 1993 Bill Triggs + * Copyright 1995-2019 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include +#include +#include +#include "vacall.h" + +#include "testcases.c" + +#if defined(__m68k__) && defined(__GNUC__) +/* "gcc-2.6.3 -freg-struct-return" returns T = struct { char c[3]; } (which + * has size 4 !) in memory, in contrast to struct { char a,b,c; } and + * struct { char c[4]; } and struct { char a,b,c,d; } which have the same + * size and the same alignment but are returned in registers. I don't know why. + */ +#define SKIP_T +#endif +#if defined(__sparc__) && defined(__sun) && defined(__SUNPRO_C) /* SUNWspro cc */ +/* SunPRO cc miscompiles the simulator function for X_BcdB: d.i[1] is + * temporarily stored in %l2 and put onto the stack from %l2, but in between + * the copy of X has used %l2 as a counter without saving and restoring its + * value. + */ +#define SKIP_X +#endif +#if defined(__mipsn32__) && !defined(__GNUC__) +/* The X test crashes for an unknown reason. */ +#define SKIP_X +#endif + + +void* current_function; + +/* This function simulates the behaviour of current_function. */ +void simulator (va_alist alist) +{ + /* void tests */ + if (current_function == (void*)&v_v) + { + va_start_void(alist); + fprintf(out,"void f(void):\n"); + fflush(out); + va_return_void(alist); + } + + /* int tests */ + else if (current_function == (void*)&i_v) + { + va_start_int(alist); + {int r=99; + fprintf(out,"int f(void):"); + fflush(out); + va_return_int(alist, r); + }} + else if (current_function == (void*)&i_i) + { + va_start_int(alist); + {int a = va_arg_int(alist); + int r=a+1; + fprintf(out,"int f(int):(%d)",a); + fflush(out); + va_return_int(alist, r); + }} + else if (current_function == (void*)&i_i2) + { + va_start_int(alist); + {int a = va_arg_int(alist); + int b = va_arg_int(alist); + int r=a+b; + fprintf(out,"int f(2*int):(%d,%d)",a,b); + fflush(out); + va_return_int(alist, r); + }} + else if (current_function == (void*)&i_i4) + { + va_start_int(alist); + {int a = va_arg_int(alist); + int b = va_arg_int(alist); + int c = va_arg_int(alist); + int d = va_arg_int(alist); + int r=a+b+c+d; + fprintf(out,"int f(4*int):(%d,%d,%d,%d)",a,b,c,d); + fflush(out); + va_return_int(alist, r); + }} + else if (current_function == (void*)&i_i8) + { + va_start_int(alist); + {int a = va_arg_int(alist); + int b = va_arg_int(alist); + int c = va_arg_int(alist); + int d = va_arg_int(alist); + int e = va_arg_int(alist); + int f = va_arg_int(alist); + int g = va_arg_int(alist); + int h = va_arg_int(alist); + int r=a+b+c+d+e+f+g+h; + fprintf(out,"int f(8*int):(%d,%d,%d,%d,%d,%d,%d,%d)",a,b,c,d,e,f,g,h); + fflush(out); + va_return_int(alist, r); + }} + else if (current_function == (void*)&i_i16) + { + va_start_int(alist); + {int a = va_arg_int(alist); + int b = va_arg_int(alist); + int c = va_arg_int(alist); + int d = va_arg_int(alist); + int e = va_arg_int(alist); + int f = va_arg_int(alist); + int g = va_arg_int(alist); + int h = va_arg_int(alist); + int i = va_arg_int(alist); + int j = va_arg_int(alist); + int k = va_arg_int(alist); + int l = va_arg_int(alist); + int m = va_arg_int(alist); + int n = va_arg_int(alist); + int o = va_arg_int(alist); + int p = va_arg_int(alist); + int r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p; + fprintf(out,"int f(16*int):(%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d)", + a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p); + fflush(out); + va_return_int(alist, r); + }} + else if (current_function == (void*)&i_i32) + { + va_start_int(alist); + {int a = va_arg_int(alist); + int b = va_arg_int(alist); + int c = va_arg_int(alist); + int d = va_arg_int(alist); + int e = va_arg_int(alist); + int f = va_arg_int(alist); + int g = va_arg_int(alist); + int h = va_arg_int(alist); + int i = va_arg_int(alist); + int j = va_arg_int(alist); + int k = va_arg_int(alist); + int l = va_arg_int(alist); + int m = va_arg_int(alist); + int n = va_arg_int(alist); + int o = va_arg_int(alist); + int p = va_arg_int(alist); + int aa = va_arg_int(alist); + int ab = va_arg_int(alist); + int ac = va_arg_int(alist); + int ad = va_arg_int(alist); + int ae = va_arg_int(alist); + int af = va_arg_int(alist); + int ag = va_arg_int(alist); + int ah = va_arg_int(alist); + int ai = va_arg_int(alist); + int aj = va_arg_int(alist); + int ak = va_arg_int(alist); + int al = va_arg_int(alist); + int am = va_arg_int(alist); + int an = va_arg_int(alist); + int ao = va_arg_int(alist); + int ap = va_arg_int(alist); + int r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+aa+ab+ac+ad+ae+af+ag+ah+ai+aj+ak+al+am+an+ao+ap; + fprintf(out,"int f(32*int):(%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d)", + a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,aa,ab,ac,ad,ae,af,ag,ah,ai,aj,ak,al,am,an,ao,ap); + fflush(out); + va_return_int(alist, r); + }} + + /* float tests */ + else if (current_function == (void*)&f_f) + { + va_start_float(alist); + {float a = va_arg_float(alist); + float r=a+1.0; + fprintf(out,"float f(float):(%g)",a); + fflush(out); + va_return_float(alist, r); + }} + else if (current_function == (void*)&f_f2) + { + va_start_float(alist); + {float a = va_arg_float(alist); + float b = va_arg_float(alist); + float r=a+b; + fprintf(out,"float f(2*float):(%g,%g)",a,b); + fflush(out); + va_return_float(alist, r); + }} + else if (current_function == (void*)&f_f4) + { + va_start_float(alist); + {float a = va_arg_float(alist); + float b = va_arg_float(alist); + float c = va_arg_float(alist); + float d = va_arg_float(alist); + float r=a+b+c+d; + fprintf(out,"float f(4*float):(%g,%g,%g,%g)",a,b,c,d); + fflush(out); + va_return_float(alist, r); + }} + else if (current_function == (void*)&f_f8) + { + va_start_float(alist); + {float a = va_arg_float(alist); + float b = va_arg_float(alist); + float c = va_arg_float(alist); + float d = va_arg_float(alist); + float e = va_arg_float(alist); + float f = va_arg_float(alist); + float g = va_arg_float(alist); + float h = va_arg_float(alist); + float r=a+b+c+d+e+f+g+h; + fprintf(out,"float f(8*float):(%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h); + fflush(out); + va_return_float(alist, r); + }} + else if (current_function == (void*)&f_f16) + { + va_start_float(alist); + {float a = va_arg_float(alist); + float b = va_arg_float(alist); + float c = va_arg_float(alist); + float d = va_arg_float(alist); + float e = va_arg_float(alist); + float f = va_arg_float(alist); + float g = va_arg_float(alist); + float h = va_arg_float(alist); + float i = va_arg_float(alist); + float j = va_arg_float(alist); + float k = va_arg_float(alist); + float l = va_arg_float(alist); + float m = va_arg_float(alist); + float n = va_arg_float(alist); + float o = va_arg_float(alist); + float p = va_arg_float(alist); + float r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p; + fprintf(out,"float f(16*float):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p); + fflush(out); + va_return_float(alist, r); + }} + else if (current_function == (void*)&f_f24) + { + va_start_float(alist); + {float a = va_arg_float(alist); + float b = va_arg_float(alist); + float c = va_arg_float(alist); + float d = va_arg_float(alist); + float e = va_arg_float(alist); + float f = va_arg_float(alist); + float g = va_arg_float(alist); + float h = va_arg_float(alist); + float i = va_arg_float(alist); + float j = va_arg_float(alist); + float k = va_arg_float(alist); + float l = va_arg_float(alist); + float m = va_arg_float(alist); + float n = va_arg_float(alist); + float o = va_arg_float(alist); + float p = va_arg_float(alist); + float q = va_arg_float(alist); + float s = va_arg_float(alist); + float t = va_arg_float(alist); + float u = va_arg_float(alist); + float v = va_arg_float(alist); + float w = va_arg_float(alist); + float x = va_arg_float(alist); + float y = va_arg_float(alist); + float r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+s+t+u+v+w+x+y; + fprintf(out,"float f(24*float):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,s,t,u,v,w,x,y); + fflush(out); + va_return_float(alist, r); + }} + + /* double tests */ + else if (current_function == (void*)&d_d) + { + va_start_double(alist); + {double a = va_arg_double(alist); + double r=a+1.0; + fprintf(out,"double f(double):(%g)",a); + fflush(out); + va_return_double(alist, r); + }} + else if (current_function == (void*)&d_d2) + { + va_start_double(alist); + {double a = va_arg_double(alist); + double b = va_arg_double(alist); + double r=a+b; + fprintf(out,"double f(2*double):(%g,%g)",a,b); + fflush(out); + va_return_double(alist, r); + }} + else if (current_function == (void*)&d_d4) + { + va_start_double(alist); + {double a = va_arg_double(alist); + double b = va_arg_double(alist); + double c = va_arg_double(alist); + double d = va_arg_double(alist); + double r=a+b+c+d; + fprintf(out,"double f(4*double):(%g,%g,%g,%g)",a,b,c,d); + fflush(out); + va_return_double(alist, r); + }} + else if (current_function == (void*)&d_d8) + { + va_start_double(alist); + {double a = va_arg_double(alist); + double b = va_arg_double(alist); + double c = va_arg_double(alist); + double d = va_arg_double(alist); + double e = va_arg_double(alist); + double f = va_arg_double(alist); + double g = va_arg_double(alist); + double h = va_arg_double(alist); + double r=a+b+c+d+e+f+g+h; + fprintf(out,"double f(8*double):(%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h); + fflush(out); + va_return_double(alist, r); + }} + else if (current_function == (void*)&d_d16) + { + va_start_double(alist); + {double a = va_arg_double(alist); + double b = va_arg_double(alist); + double c = va_arg_double(alist); + double d = va_arg_double(alist); + double e = va_arg_double(alist); + double f = va_arg_double(alist); + double g = va_arg_double(alist); + double h = va_arg_double(alist); + double i = va_arg_double(alist); + double j = va_arg_double(alist); + double k = va_arg_double(alist); + double l = va_arg_double(alist); + double m = va_arg_double(alist); + double n = va_arg_double(alist); + double o = va_arg_double(alist); + double p = va_arg_double(alist); + double r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p; + fprintf(out,"double f(16*double):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p); + fflush(out); + va_return_double(alist, r); + }} + + /* pointer tests */ + else if (current_function == (void*)&vp_vpdpcpsp) + { + va_start_ptr(alist, void*); + {void* a = va_arg_ptr(alist, void*); + double* b = va_arg_ptr(alist, double*); + char* c = va_arg_ptr(alist, char*); + Int* d = va_arg_ptr(alist, Int*); + void* ret = (char*)b + 1; + fprintf(out,"void* f(void*,double*,char*,Int*):(0x%p,0x%p,0x%p,0x%p)",a,b,c,d); + fflush(out); + va_return_ptr(alist, void*, ret); + }} + + /* mixed number tests */ + else if (current_function == (void*)&uc_ucsil) + { + va_start_uchar(alist); + {uchar a = va_arg_uchar(alist); + ushort b = va_arg_ushort(alist); + uint c = va_arg_uint(alist); + ulong d = va_arg_ulong(alist); + uchar r = (uchar)-1; + fprintf(out,"uchar f(uchar,ushort,uint,ulong):(%u,%u,%u,%lu)",a,b,c,d); + fflush(out); + va_return_uchar(alist, r); + }} + else if (current_function == (void*)&d_iidd) + { + va_start_double(alist); + {int a = va_arg_int(alist); + int b = va_arg_int(alist); + double c = va_arg_double(alist); + double d = va_arg_double(alist); + double r=a+b+c+d; + fprintf(out,"double f(int,int,double,double):(%d,%d,%g,%g)",a,b,c,d); + fflush(out); + va_return_double(alist, r); + }} + else if (current_function == (void*)&d_iiidi) + { + va_start_double(alist); + {int a = va_arg_int(alist); + int b = va_arg_int(alist); + int c = va_arg_int(alist); + double d = va_arg_double(alist); + int e = va_arg_int(alist); + double r=a+b+c+d+e; + fprintf(out,"double f(int,int,int,double,int):(%d,%d,%d,%g,%d)",a,b,c,d,e); + fflush(out); + va_return_double(alist, r); + }} + else if (current_function == (void*)&d_idid) + { + va_start_double(alist); + {int a = va_arg_int(alist); + double b = va_arg_double(alist); + int c = va_arg_int(alist); + double d = va_arg_double(alist); + double r=a+b+c+d; + fprintf(out,"double f(int,double,int,double):(%d,%g,%d,%g)",a,b,c,d); + fflush(out); + va_return_double(alist, r); + }} + else if (current_function == (void*)&d_fdi) + { + va_start_double(alist); + {float a = va_arg_float(alist); + double b = va_arg_double(alist); + int c = va_arg_int(alist); + double r=a+b+c; + fprintf(out,"double f(float,double,int):(%g,%g,%d)",a,b,c); + fflush(out); + va_return_double(alist, r); + }} + else if (current_function == (void*)&us_cdcd) + { + va_start_ushort(alist); + {char a = va_arg_char(alist); + double b = va_arg_double(alist); + char c = va_arg_char(alist); + double d = va_arg_double(alist); + ushort r = (ushort)(a + b + c + d); + fprintf(out,"ushort f(char,double,char,double):('%c',%g,'%c',%g)",a,b,c,d); + fflush(out); + va_return_ushort(alist, r); + }} + else if (current_function == (void*)&ll_iiilli) + { + va_start_longlong(alist); + {int a = va_arg_int(alist); + int b = va_arg_int(alist); + int c = va_arg_int(alist); + long long d = va_arg_longlong(alist); + int e = va_arg_int(alist); + long long r = (long long)a + (long long)b + (long long)c + d + (long long)e; + fprintf(out,"long long f(int,int,int,long long,int):(%d,%d,%d,0x%lx%08lx,%d)",a,b,c,(long)(d>>32),(long)(d&0xffffffff),e); + fflush(out); + va_return_longlong(alist, r); + }} + else if (current_function == (void*)&ll_flli) + { + va_start_longlong(alist); + {float a = va_arg_float(alist); + long long b = va_arg_longlong(alist); + int c = va_arg_int(alist); + long long r = (long long)(int)a + b + (long long)c; + fprintf(out,"long long f(float,long long,int):(%g,0x%lx%08lx,0x%lx)",a,(long)(b>>32),(long)(b&0xffffffff),(long)c); + fflush(out); + va_return_longlong(alist, r); + }} + else if (current_function == (void*)&f_fi) + { + va_start_float(alist); + {float a = va_arg_float(alist); + int z = va_arg_int(alist); + float r = a+z; + fprintf(out,"float f(float,int):(%g,%d)",a,z); + fflush(out); + va_return_float(alist, r); + }} + else if (current_function == (void*)&f_f2i) + { + va_start_float(alist); + {float a = va_arg_float(alist); + float b = va_arg_float(alist); + int z = va_arg_int(alist); + float r = a+b+z; + fprintf(out,"float f(2*float,int):(%g,%g,%d)",a,b,z); + fflush(out); + va_return_float(alist, r); + }} + else if (current_function == (void*)&f_f3i) + { + va_start_float(alist); + {float a = va_arg_float(alist); + float b = va_arg_float(alist); + float c = va_arg_float(alist); + int z = va_arg_int(alist); + float r = a+b+c+z; + fprintf(out,"float f(3*float,int):(%g,%g,%g,%d)",a,b,c,z); + fflush(out); + va_return_float(alist, r); + }} + else if (current_function == (void*)&f_f4i) + { + va_start_float(alist); + {float a = va_arg_float(alist); + float b = va_arg_float(alist); + float c = va_arg_float(alist); + float d = va_arg_float(alist); + int z = va_arg_int(alist); + float r = a+b+c+d+z; + fprintf(out,"float f(4*float,int):(%g,%g,%g,%g,%d)",a,b,c,d,z); + fflush(out); + va_return_float(alist, r); + }} + else if (current_function == (void*)&f_f7i) + { + va_start_float(alist); + {float a = va_arg_float(alist); + float b = va_arg_float(alist); + float c = va_arg_float(alist); + float d = va_arg_float(alist); + float e = va_arg_float(alist); + float f = va_arg_float(alist); + float g = va_arg_float(alist); + int z = va_arg_int(alist); + float r = a+b+c+d+e+f+g+z; + fprintf(out,"float f(7*float,int):(%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,z); + fflush(out); + va_return_float(alist, r); + }} + else if (current_function == (void*)&f_f8i) + { + va_start_float(alist); + {float a = va_arg_float(alist); + float b = va_arg_float(alist); + float c = va_arg_float(alist); + float d = va_arg_float(alist); + float e = va_arg_float(alist); + float f = va_arg_float(alist); + float g = va_arg_float(alist); + float h = va_arg_float(alist); + int z = va_arg_int(alist); + float r = a+b+c+d+e+f+g+h+z; + fprintf(out,"float f(8*float,int):(%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,z); + fflush(out); + va_return_float(alist, r); + }} + else if (current_function == (void*)&f_f12i) + { + va_start_float(alist); + {float a = va_arg_float(alist); + float b = va_arg_float(alist); + float c = va_arg_float(alist); + float d = va_arg_float(alist); + float e = va_arg_float(alist); + float f = va_arg_float(alist); + float g = va_arg_float(alist); + float h = va_arg_float(alist); + float i = va_arg_float(alist); + float j = va_arg_float(alist); + float k = va_arg_float(alist); + float l = va_arg_float(alist); + int z = va_arg_int(alist); + float r = a+b+c+d+e+f+g+h+i+j+k+l+z; + fprintf(out,"float f(12*float,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,z); + fflush(out); + va_return_float(alist, r); + }} + else if (current_function == (void*)&f_f13i) + { + va_start_float(alist); + {float a = va_arg_float(alist); + float b = va_arg_float(alist); + float c = va_arg_float(alist); + float d = va_arg_float(alist); + float e = va_arg_float(alist); + float f = va_arg_float(alist); + float g = va_arg_float(alist); + float h = va_arg_float(alist); + float i = va_arg_float(alist); + float j = va_arg_float(alist); + float k = va_arg_float(alist); + float l = va_arg_float(alist); + float m = va_arg_float(alist); + int z = va_arg_int(alist); + float r = a+b+c+d+e+f+g+h+i+j+k+l+m+z; + fprintf(out,"float f(13*float,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,m,z); + fflush(out); + va_return_float(alist, r); + }} + else if (current_function == (void*)&d_di) + { + va_start_double(alist); + {double a = va_arg_double(alist); + int z = va_arg_int(alist); + double r = a+z; + fprintf(out,"double f(double,int):(%g,%d)",a,z); + fflush(out); + va_return_double(alist, r); + }} + else if (current_function == (void*)&d_d2i) + { + va_start_double(alist); + {double a = va_arg_double(alist); + double b = va_arg_double(alist); + int z = va_arg_int(alist); + double r = a+b+z; + fprintf(out,"double f(2*double,int):(%g,%g,%d)",a,b,z); + fflush(out); + va_return_double(alist, r); + }} + else if (current_function == (void*)&d_d3i) + { + va_start_double(alist); + {double a = va_arg_double(alist); + double b = va_arg_double(alist); + double c = va_arg_double(alist); + int z = va_arg_int(alist); + double r = a+b+c+z; + fprintf(out,"double f(3*double,int):(%g,%g,%g,%d)",a,b,c,z); + fflush(out); + va_return_double(alist, r); + }} + else if (current_function == (void*)&d_d4i) + { + va_start_double(alist); + {double a = va_arg_double(alist); + double b = va_arg_double(alist); + double c = va_arg_double(alist); + double d = va_arg_double(alist); + int z = va_arg_int(alist); + double r = a+b+c+d+z; + fprintf(out,"double f(4*double,int):(%g,%g,%g,%g,%d)",a,b,c,d,z); + fflush(out); + va_return_double(alist, r); + }} + else if (current_function == (void*)&d_d7i) + { + va_start_double(alist); + {double a = va_arg_double(alist); + double b = va_arg_double(alist); + double c = va_arg_double(alist); + double d = va_arg_double(alist); + double e = va_arg_double(alist); + double f = va_arg_double(alist); + double g = va_arg_double(alist); + int z = va_arg_int(alist); + double r = a+b+c+d+e+f+g+z; + fprintf(out,"double f(7*double,int):(%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,z); + fflush(out); + va_return_double(alist, r); + }} + else if (current_function == (void*)&d_d8i) + { + va_start_double(alist); + {double a = va_arg_double(alist); + double b = va_arg_double(alist); + double c = va_arg_double(alist); + double d = va_arg_double(alist); + double e = va_arg_double(alist); + double f = va_arg_double(alist); + double g = va_arg_double(alist); + double h = va_arg_double(alist); + int z = va_arg_int(alist); + double r = a+b+c+d+e+f+g+h+z; + fprintf(out,"double f(8*double,int):(%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,z); + fflush(out); + va_return_double(alist, r); + }} + else if (current_function == (void*)&d_d12i) + { + va_start_double(alist); + {double a = va_arg_double(alist); + double b = va_arg_double(alist); + double c = va_arg_double(alist); + double d = va_arg_double(alist); + double e = va_arg_double(alist); + double f = va_arg_double(alist); + double g = va_arg_double(alist); + double h = va_arg_double(alist); + double i = va_arg_double(alist); + double j = va_arg_double(alist); + double k = va_arg_double(alist); + double l = va_arg_double(alist); + int z = va_arg_int(alist); + double r = a+b+c+d+e+f+g+h+i+j+k+l+z; + fprintf(out,"double f(12*double,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,z); + fflush(out); + va_return_double(alist, r); + }} + else if (current_function == (void*)&d_d13i) + { + va_start_double(alist); + {double a = va_arg_double(alist); + double b = va_arg_double(alist); + double c = va_arg_double(alist); + double d = va_arg_double(alist); + double e = va_arg_double(alist); + double f = va_arg_double(alist); + double g = va_arg_double(alist); + double h = va_arg_double(alist); + double i = va_arg_double(alist); + double j = va_arg_double(alist); + double k = va_arg_double(alist); + double l = va_arg_double(alist); + double m = va_arg_double(alist); + int z = va_arg_int(alist); + double r = a+b+c+d+e+f+g+h+i+j+k+l+m+z; + fprintf(out,"double f(13*double,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,m,z); + fflush(out); + va_return_double(alist, r); + }} + + /* small structure return tests */ + else if (current_function == (void*)&S1_v) + { + Size1 r; + va_start_struct(alist, Size1, 1); + r = Size1_1; + fprintf(out,"Size1 f(void):"); + fflush(out); + va_return_struct(alist, Size1, r); + } + else if (current_function == (void*)&S2_v) + { + Size2 r; + va_start_struct(alist, Size2, 1); + r = Size2_1; + fprintf(out,"Size2 f(void):"); + fflush(out); + va_return_struct(alist, Size2, r); + } + else if (current_function == (void*)&S3_v) + { + Size3 r; + va_start_struct(alist, Size3, 1); + r = Size3_1; + fprintf(out,"Size3 f(void):"); + fflush(out); + va_return_struct(alist, Size3, r); + } + else if (current_function == (void*)&S4_v) + { + Size4 r; + va_start_struct(alist, Size4, 1); + r = Size4_1; + fprintf(out,"Size4 f(void):"); + fflush(out); + va_return_struct(alist, Size4, r); + } + else if (current_function == (void*)&S7_v) + { + Size7 r; + va_start_struct(alist, Size7, 1); + r = Size7_1; + fprintf(out,"Size7 f(void):"); + fflush(out); + va_return_struct(alist, Size7, r); + } + else if (current_function == (void*)&S8_v) + { + Size8 r; + va_start_struct(alist, Size8, 1); + r = Size8_1; + fprintf(out,"Size8 f(void):"); + fflush(out); + va_return_struct(alist, Size8, r); + } + else if (current_function == (void*)&S12_v) + { + Size12 r; + va_start_struct(alist, Size12, 1); + r = Size12_1; + fprintf(out,"Size12 f(void):"); + fflush(out); + va_return_struct(alist, Size12, r); + } + else if (current_function == (void*)&S15_v) + { + Size15 r; + va_start_struct(alist, Size15, 1); + r = Size15_1; + fprintf(out,"Size15 f(void):"); + fflush(out); + va_return_struct(alist, Size15, r); + } + else if (current_function == (void*)&S16_v) + { + Size16 r; + va_start_struct(alist, Size16, 1); + r = Size16_1; + fprintf(out,"Size16 f(void):"); + fflush(out); + va_return_struct(alist, Size16, r); + } + + /* structure tests */ + else if (current_function == (void*)&I_III) + { + Int a; + Int b; + Int c; + Int r; + va_start_struct(alist, Int, 1); + a = va_arg_struct(alist, Int); + b = va_arg_struct(alist, Int); + c = va_arg_struct(alist, Int); + r.x = a.x + b.x + c.x; + fprintf(out,"Int f(Int,Int,Int):({%d},{%d},{%d})",a.x,b.x,c.x); + fflush(out); + va_return_struct(alist, Int, r); + } +#ifndef SKIP_EXTRA_STRUCTS + else if (current_function == (void*)&C_CdC) + { + Char a; + double b; + Char c; + Char r; + va_start_struct(alist, Char, 1); + a = va_arg_struct(alist, Char); + b = va_arg_double(alist); + c = va_arg_struct(alist, Char); + r.x = (a.x + c.x)/2; + fprintf(out,"Char f(Char,double,Char):({'%c'},%g,{'%c'})",a.x,b,c.x); + fflush(out); + va_return_struct(alist, Char, r); + } + else if (current_function == (void*)&F_Ffd) + { + Float a; + float b; + double c; + Float r; + va_start_struct(alist, Float, va_word_splittable_1(float)); + a = va_arg_struct(alist, Float); + b = va_arg_float(alist); + c = va_arg_double(alist); + r.x = a.x + b + c; + fprintf(out,"Float f(Float,float,double):({%g},%g,%g)",a.x,b,c); + fflush(out); + va_return_struct(alist, Float, r); + } + else if (current_function == (void*)&D_fDd) + { + float a; + Double b; + double c; + Double r; + va_start_struct(alist, Double, va_word_splittable_1(double)); + a = va_arg_float(alist); + b = va_arg_struct(alist, Double); + c = va_arg_double(alist); + r.x = a + b.x + c; + fprintf(out,"Double f(float,Double,double):(%g,{%g},%g)",a,b.x,c); + fflush(out); + va_return_struct(alist, Double, r); + } + else if (current_function == (void*)&D_Dfd) + { + Double a; + float b; + double c; + Double r; + va_start_struct(alist, Double, va_word_splittable_1(double)); + a = va_arg_struct(alist, Double); + b = va_arg_float(alist); + c = va_arg_double(alist); + r.x = a.x + b + c; + fprintf(out,"Double f(Double,float,double):({%g},%g,%g)",a.x,b,c); + fflush(out); + va_return_struct(alist, Double, r); + } +#endif + else if (current_function == (void*)&J_JiJ) + { + J a; + int b; + J c; + J r; + va_start_struct(alist, J, va_word_splittable_2(long,long)); + a = va_arg_struct(alist, J); + b = va_arg_int(alist); + c = va_arg_struct(alist, J); + r.l1 = a.l1+c.l1; r.l2 = a.l2+b+c.l2; + fprintf(out,"J f(J,int,J):({%ld,%ld},%d,{%ld,%ld})",a.l1,a.l2,b,c.l1,c.l2); + fflush(out); + va_return_struct(alist, J, r); + } +#ifndef SKIP_EXTRA_STRUCTS + else if (current_function == (void*)&T_TcT) + { + T a; + char b; + T c; + T r; + va_start_struct(alist, T, 1); + a = va_arg_struct(alist, T); + b = va_arg_char(alist); + c = va_arg_struct(alist, T); + r.c[0]='b'; r.c[1]=c.c[1]; r.c[2]=c.c[2]; + fprintf(out,"T f(T,char,T):({\"%c%c%c\"},'%c',{\"%c%c%c\"})",a.c[0],a.c[1],a.c[2],b,c.c[0],c.c[1],c.c[2]); + fflush(out); + va_return_struct(alist, T, r); + } + else if (current_function == (void*)&X_BcdB) + { + B a; + char b; + double c; + B d; + static X xr={"return val",'R'}; + X r; + va_start_struct(alist, X, 0); + a = va_arg_struct(alist, B); + b = va_arg_char(alist); + c = va_arg_double(alist); + d = va_arg_struct(alist, B); + r = xr; + r.c1 = b; + fprintf(out,"X f(B,char,double,B):({%g,{%d,%d,%d}},'%c',%g,{%g,{%d,%d,%d}})", + a.d,a.i[0],a.i[1],a.i[2],b,c,d.d,d.i[0],d.i[1],d.i[2]); + fflush(out); + va_return_struct(alist, X, r); + } +#endif + + /* gpargs boundary tests */ + else if (current_function == (void*)&l_l0J) + { + va_start_long(alist); + {J b = va_arg_struct(alist, J); + long c = va_arg_long(alist); + long r = b.l1 + b.l2 + c; + fprintf(out,"long f(J,long):(%ld,%ld,%ld)",b.l1,b.l2,c); + fflush(out); + va_return_long(alist, r); + }} + else if (current_function == (void*)&l_l1J) + { + va_start_long(alist); + {long a1 = va_arg_long(alist); + J b = va_arg_struct(alist, J); + long c = va_arg_long(alist); + long r = a1 + b.l1 + b.l2 + c; + fprintf(out,"long f(long,J,long):(%ld,%ld,%ld,%ld)",a1,b.l1,b.l2,c); + fflush(out); + va_return_long(alist, r); + }} + else if (current_function == (void*)&l_l2J) + { + va_start_long(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + J b = va_arg_struct(alist, J); + long c = va_arg_long(alist); + long r = a1 + a2 + b.l1 + b.l2 + c; + fprintf(out,"long f(2*long,J,long):(%ld,%ld,%ld,%ld,%ld)",a1,a2,b.l1,b.l2,c); + fflush(out); + va_return_long(alist, r); + }} + else if (current_function == (void*)&l_l3J) + { + va_start_long(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + J b = va_arg_struct(alist, J); + long c = va_arg_long(alist); + long r = a1 + a2 + a3 + b.l1 + b.l2 + c; + fprintf(out,"long f(3*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,b.l1,b.l2,c); + fflush(out); + va_return_long(alist, r); + }} + else if (current_function == (void*)&l_l4J) + { + va_start_long(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + J b = va_arg_struct(alist, J); + long c = va_arg_long(alist); + long r = a1 + a2 + a3 + a4 + b.l1 + b.l2 + c; + fprintf(out,"long f(4*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,b.l1,b.l2,c); + fflush(out); + va_return_long(alist, r); + }} + else if (current_function == (void*)&l_l5J) + { + va_start_long(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + long a5 = va_arg_long(alist); + J b = va_arg_struct(alist, J); + long c = va_arg_long(alist); + long r = a1 + a2 + a3 + a4 + a5 + b.l1 + b.l2 + c; + fprintf(out,"long f(5*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,b.l1,b.l2,c); + fflush(out); + va_return_long(alist, r); + }} + else if (current_function == (void*)&l_l6J) + { + va_start_long(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + long a5 = va_arg_long(alist); + long a6 = va_arg_long(alist); + J b = va_arg_struct(alist, J); + long c = va_arg_long(alist); + long r = a1 + a2 + a3 + a4 + a5 + a6 + b.l1 + b.l2 + c; + fprintf(out,"long f(6*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,a6,b.l1,b.l2,c); + fflush(out); + va_return_long(alist, r); + }} + else if (current_function == (void*)&l_l7J) + { + va_start_long(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + long a5 = va_arg_long(alist); + long a6 = va_arg_long(alist); + long a7 = va_arg_long(alist); + J b = va_arg_struct(alist, J); + long c = va_arg_long(alist); + long r = a1 + a2 + a3 + a4 + a5 + a6 + a7 + b.l1 + b.l2 + c; + fprintf(out,"long f(7*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,a6,a7,b.l1,b.l2,c); + fflush(out); + va_return_long(alist, r); + }} + else if (current_function == (void*)&l_l0K) + { + va_start_long(alist); + {K b = va_arg_struct(alist, K); + long c = va_arg_long(alist); + long r = b.l1 + b.l2 + b.l3 + b.l4 + c; + fprintf(out,"long f(K,long):(%ld,%ld,%ld,%ld,%ld)",b.l1,b.l2,b.l3,b.l4,c); + fflush(out); + va_return_long(alist, r); + }} + else if (current_function == (void*)&l_l1K) + { + va_start_long(alist); + {long a1 = va_arg_long(alist); + K b = va_arg_struct(alist, K); + long c = va_arg_long(alist); + long r = a1 + b.l1 + b.l2 + b.l3 + b.l4 + c; + fprintf(out,"long f(long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld)",a1,b.l1,b.l2,b.l3,b.l4,c); + fflush(out); + va_return_long(alist, r); + }} + else if (current_function == (void*)&l_l2K) + { + va_start_long(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + K b = va_arg_struct(alist, K); + long c = va_arg_long(alist); + long r = a1 + a2 + b.l1 + b.l2 + b.l3 + b.l4 + c; + fprintf(out,"long f(2*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,b.l1,b.l2,b.l3,b.l4,c); + fflush(out); + va_return_long(alist, r); + }} + else if (current_function == (void*)&l_l3K) + { + va_start_long(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + K b = va_arg_struct(alist, K); + long c = va_arg_long(alist); + long r = a1 + a2 + a3 + b.l1 + b.l2 + b.l3 + b.l4 + c; + fprintf(out,"long f(3*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,b.l1,b.l2,b.l3,b.l4,c); + fflush(out); + va_return_long(alist, r); + }} + else if (current_function == (void*)&l_l4K) + { + va_start_long(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + K b = va_arg_struct(alist, K); + long c = va_arg_long(alist); + long r = a1 + a2 + a3 + a4 + b.l1 + b.l2 + b.l3 + b.l4 + c; + fprintf(out,"long f(4*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,b.l1,b.l2,b.l3,b.l4,c); + fflush(out); + va_return_long(alist, r); + }} + else if (current_function == (void*)&l_l5K) + { + va_start_long(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + long a5 = va_arg_long(alist); + K b = va_arg_struct(alist, K); + long c = va_arg_long(alist); + long r = a1 + a2 + a3 + a4 + a5 + b.l1 + b.l2 + b.l3 + b.l4 + c; + fprintf(out,"long f(5*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,b.l1,b.l2,b.l3,b.l4,c); + fflush(out); + va_return_long(alist, r); + }} + else if (current_function == (void*)&l_l6K) + { + va_start_long(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + long a5 = va_arg_long(alist); + long a6 = va_arg_long(alist); + K b = va_arg_struct(alist, K); + long c = va_arg_long(alist); + long r = a1 + a2 + a3 + a4 + a5 + a6 + b.l1 + b.l2 + b.l3 + b.l4 + c; + fprintf(out,"long f(6*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,a6,b.l1,b.l2,b.l3,b.l4,c); + fflush(out); + va_return_long(alist, r); + }} + else if (current_function == (void*)&f_f17l3L) + { + va_start_float(alist); + {float a = va_arg_float(alist); + float b = va_arg_float(alist); + float c = va_arg_float(alist); + float d = va_arg_float(alist); + float e = va_arg_float(alist); + float f = va_arg_float(alist); + float g = va_arg_float(alist); + float h = va_arg_float(alist); + float i = va_arg_float(alist); + float j = va_arg_float(alist); + float k = va_arg_float(alist); + float l = va_arg_float(alist); + float m = va_arg_float(alist); + float n = va_arg_float(alist); + float o = va_arg_float(alist); + float p = va_arg_float(alist); + float q = va_arg_float(alist); + long s = va_arg_long(alist); + long t = va_arg_long(alist); + long u = va_arg_long(alist); + L z = va_arg_struct(alist, L); + float r = a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+s+t+u+z.l1+z.l2+z.l3+z.l4+z.l5+z.l6; + fprintf(out,"float f(17*float,3*int,L):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,s,t,u,z.l1,z.l2,z.l3,z.l4,z.l5,z.l6); + fflush(out); + va_return_float(alist, r); + }} + else if (current_function == (void*)&d_d17l3L) + { + va_start_double(alist); + {double a = va_arg_double(alist); + double b = va_arg_double(alist); + double c = va_arg_double(alist); + double d = va_arg_double(alist); + double e = va_arg_double(alist); + double f = va_arg_double(alist); + double g = va_arg_double(alist); + double h = va_arg_double(alist); + double i = va_arg_double(alist); + double j = va_arg_double(alist); + double k = va_arg_double(alist); + double l = va_arg_double(alist); + double m = va_arg_double(alist); + double n = va_arg_double(alist); + double o = va_arg_double(alist); + double p = va_arg_double(alist); + double q = va_arg_double(alist); + long s = va_arg_long(alist); + long t = va_arg_long(alist); + long u = va_arg_long(alist); + L z = va_arg_struct(alist, L); + double r = a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+s+t+u+z.l1+z.l2+z.l3+z.l4+z.l5+z.l6; + fprintf(out,"double f(17*double,3*int,L):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,s,t,u,z.l1,z.l2,z.l3,z.l4,z.l5,z.l6); + fflush(out); + va_return_double(alist, r); + }} + else if (current_function == (void*)&ll_l2ll) + { + va_start_longlong(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long long b = va_arg_longlong(alist); + long c = va_arg_long(alist); + long long r = (long long) (a1 + a2) + b + c; + fprintf(out,"long long f(2*long,long long,long):(%ld,%ld,0x%lx%08lx,%ld)",a1,a2,(long)(b>>32),(long)(b&0xffffffff),c); + fflush(out); + va_return_longlong(alist, r); + }} + else if (current_function == (void*)&ll_l3ll) + { + va_start_longlong(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long long b = va_arg_longlong(alist); + long c = va_arg_long(alist); + long long r = (long long) (a1 + a2 + a3) + b + c; + fprintf(out,"long long f(3*long,long long,long):(%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,(long)(b>>32),(long)(b&0xffffffff),c); + fflush(out); + va_return_longlong(alist, r); + }} + else if (current_function == (void*)&ll_l4ll) + { + va_start_longlong(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + long long b = va_arg_longlong(alist); + long c = va_arg_long(alist); + long long r = (long long) (a1 + a2 + a3 + a4) + b + c; + fprintf(out,"long long f(4*long,long long,long):(%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,(long)(b>>32),(long)(b&0xffffffff),c); + fflush(out); + va_return_longlong(alist, r); + }} + else if (current_function == (void*)&ll_l5ll) + { + va_start_longlong(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + long a5 = va_arg_long(alist); + long long b = va_arg_longlong(alist); + long c = va_arg_long(alist); + long long r = (long long) (a1 + a2 + a3 + a4 + a5) + b + c; + fprintf(out,"long long f(5*long,long long,long):(%ld,%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,a5,(long)(b>>32),(long)(b&0xffffffff),c); + fflush(out); + va_return_longlong(alist, r); + }} + else if (current_function == (void*)&ll_l6ll) + { + va_start_longlong(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + long a5 = va_arg_long(alist); + long a6 = va_arg_long(alist); + long long b = va_arg_longlong(alist); + long c = va_arg_long(alist); + long long r = (long long) (a1 + a2 + a3 + a4 + a5 + a6) + b + c; + fprintf(out,"long long f(6*long,long long,long):(%ld,%ld,%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,a5,a6,(long)(b>>32),(long)(b&0xffffffff),c); + fflush(out); + va_return_longlong(alist, r); + }} + else if (current_function == (void*)&ll_l7ll) + { + va_start_longlong(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + long a5 = va_arg_long(alist); + long a6 = va_arg_long(alist); + long a7 = va_arg_long(alist); + long long b = va_arg_longlong(alist); + long c = va_arg_long(alist); + long long r = (long long) (a1 + a2 + a3 + a4 + a5 + a6 + a7) + b + c; + fprintf(out,"long long f(7*long,long long,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,a5,a6,a7,(long)(b>>32),(long)(b&0xffffffff),c); + fflush(out); + va_return_longlong(alist, r); + }} + else if (current_function == (void*)&d_l2d) + { + va_start_double(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + double b = va_arg_double(alist); + long c = va_arg_long(alist); + double r = (double) (a1 + a2) + b + c; + fprintf(out,"double f(2*long,double,long):(%ld,%ld,%g,%ld)",a1,a2,b,c); + fflush(out); + va_return_double(alist, r); + }} + else if (current_function == (void*)&d_l3d) + { + va_start_double(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + double b = va_arg_double(alist); + long c = va_arg_long(alist); + double r = (double) (a1 + a2 + a3) + b + c; + fprintf(out,"double f(3*long,double,long):(%ld,%ld,%ld,%g,%ld)",a1,a2,a3,b,c); + fflush(out); + va_return_double(alist, r); + }} + else if (current_function == (void*)&d_l4d) + { + va_start_double(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + double b = va_arg_double(alist); + long c = va_arg_long(alist); + double r = (double) (a1 + a2 + a3 + a4) + b + c; + fprintf(out,"double f(4*long,double,long):(%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,b,c); + fflush(out); + va_return_double(alist, r); + }} + else if (current_function == (void*)&d_l5d) + { + va_start_double(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + long a5 = va_arg_long(alist); + double b = va_arg_double(alist); + long c = va_arg_long(alist); + double r = (double) (a1 + a2 + a3 + a4 + a5) + b + c; + fprintf(out,"double f(5*long,double,long):(%ld,%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,a5,b,c); + fflush(out); + va_return_double(alist, r); + }} + else if (current_function == (void*)&d_l6d) + { + va_start_double(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + long a5 = va_arg_long(alist); + long a6 = va_arg_long(alist); + double b = va_arg_double(alist); + long c = va_arg_long(alist); + double r = (double) (a1 + a2 + a3 + a4 + a5 + a6) + b + c; + fprintf(out,"double f(6*long,double,long):(%ld,%ld,%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,a5,a6,b,c); + fflush(out); + va_return_double(alist, r); + }} + else if (current_function == (void*)&d_l7d) + { + va_start_double(alist); + {long a1 = va_arg_long(alist); + long a2 = va_arg_long(alist); + long a3 = va_arg_long(alist); + long a4 = va_arg_long(alist); + long a5 = va_arg_long(alist); + long a6 = va_arg_long(alist); + long a7 = va_arg_long(alist); + double b = va_arg_double(alist); + long c = va_arg_long(alist); + double r = (double) (a1 + a2 + a3 + a4 + a5 + a6 + a7) + b + c; + fprintf(out,"double f(7*long,double,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,a5,a6,a7,b,c); + fflush(out); + va_return_double(alist, r); + }} + + /* by-value tests */ + else if (current_function == (void*)&v_clobber_K) + { + va_start_void(alist); + {K k = va_arg_struct(alist, K); + k.l1 += 1; + k.l2 += 10; + k.l3 += 100; + k.l4 += 1000; + va_return_void(alist); + }} + + else + { + fprintf(out,"simulate: unknown function\n"); + fflush(out); + } +} + + +/* + * The way we run these tests - first call the function directly, then + * through vacall() - there is the danger that arguments or results seem + * to be passed correctly, but what we are seeing are in fact the vestiges + * (traces) or the previous call. This may seriously fake the test. + * Avoid this by clearing the registers between the first and the second call. + */ +long clear_traces_i (long a, long b, long c, long d, long e, long f, long g, long h, + long i, long j, long k, long l, long m, long n, long o, long p) +{ return 0; } +float clear_traces_f (float a, float b, float c, float d, float e, float f, float g, + float h, float i, float j, float k, float l, float m, float n, + float o, float p) +{ return 0.0; } +double clear_traces_d (double a, double b, double c, double d, double e, double f, double g, + double h, double i, double j, double k, double l, double m, double n, + double o, double p) +{ return 0.0; } +J clear_traces_J (void) +{ J j; j.l1 = j.l2 = 0; return j; } +void clear_traces (void) +{ clear_traces_i(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0); + clear_traces_f(0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0); + clear_traces_d(0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0); + clear_traces_J(); +} + +int main (void) +{ + out = stdout; + + vacall_function = &simulator; + + /* void tests */ + v_v(); + clear_traces(); + current_function = (void*) &v_v; ((void (*) (void)) vacall) (); + + /* int tests */ + { int ir; + + ir = i_v(); + fprintf(out,"->%d\n",ir); + fflush(out); + ir = 0; clear_traces(); + current_function = (void*) &i_v; ir = ((int (*) (void)) vacall) (); + fprintf(out,"->%d\n",ir); + fflush(out); + + ir = i_i(i1); + fprintf(out,"->%d\n",ir); + fflush(out); + ir = 0; clear_traces(); + current_function = (void*) &i_i; ir = ((int (*) (int)) vacall) (i1); + fprintf(out,"->%d\n",ir); + fflush(out); + + ir = i_i2(i1,i2); + fprintf(out,"->%d\n",ir); + fflush(out); + ir = 0; clear_traces(); + current_function = (void*) &i_i2; ir = ((int (*) (int,int)) vacall) (i1,i2); + fprintf(out,"->%d\n",ir); + fflush(out); + + ir = i_i4(i1,i2,i3,i4); + fprintf(out,"->%d\n",ir); + fflush(out); + ir = 0; clear_traces(); + current_function = (void*) &i_i4; ir = ((int (*) (int,int,int,int)) vacall) (i1,i2,i3,i4); + fprintf(out,"->%d\n",ir); + fflush(out); + + ir = i_i8(i1,i2,i3,i4,i5,i6,i7,i8); + fprintf(out,"->%d\n",ir); + fflush(out); + ir = 0; clear_traces(); + current_function = (void*) &i_i8; ir = ((int (*) (int,int,int,int,int,int,int,int)) vacall) (i1,i2,i3,i4,i5,i6,i7,i8); + fprintf(out,"->%d\n",ir); + fflush(out); + + ir = i_i16(i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15,i16); + fprintf(out,"->%d\n",ir); + fflush(out); + ir = 0; clear_traces(); + current_function = (void*) &i_i16; ir = ((int (*) (int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int)) vacall) (i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15,i16); + fprintf(out,"->%d\n",ir); + fflush(out); + + ir = i_i32(i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15,i16,i17,i18,i19,i20,i21,i22,i23,i24,i25,i26,i27,i28,i29,i30,i31,i32); + fprintf(out,"->%d\n",ir); + fflush(out); + ir = 0; clear_traces(); + current_function = (void*) &i_i32; ir = ((int (*) (int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int)) vacall) (i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15,i16,i17,i18,i19,i20,i21,i22,i23,i24,i25,i26,i27,i28,i29,i30,i31,i32); + fprintf(out,"->%d\n",ir); + fflush(out); + } + + /* float tests */ + { float fr; + + fr = f_f(f1); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + current_function = (void*) &f_f; fr = ((float (*) (float)) vacall) (f1); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f2(f1,f2); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + current_function = (void*) &f_f2; fr = ((float (*) (float,float)) vacall) (f1,f2); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f4(f1,f2,f3,f4); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + current_function = (void*) &f_f4; fr = ((float (*) (float,float,float,float)) vacall) (f1,f2,f3,f4); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f8(f1,f2,f3,f4,f5,f6,f7,f8); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + current_function = (void*) &f_f8; fr = ((float (*) (float,float,float,float,float,float,float,float)) vacall) (f1,f2,f3,f4,f5,f6,f7,f8); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f16(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + current_function = (void*) &f_f16; fr = ((float (*) (float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float)) vacall) (f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f24(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18,f19,f20,f21,f22,f23,f24); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + current_function = (void*) &f_f24; fr = ((float (*) (float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float)) vacall) (f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18,f19,f20,f21,f22,f23,f24); + fprintf(out,"->%g\n",fr); + fflush(out); + } + + /* double tests */ + { double dr; + + dr = d_d(d1); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + current_function = (void*) &d_d; dr = ((double (*) (double)) vacall) (d1); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d2(d1,d2); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + current_function = (void*) &d_d2; dr = ((double (*) (double,double)) vacall) (d1,d2); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d4(d1,d2,d3,d4); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + current_function = (void*) &d_d4; dr = ((double (*) (double,double,double,double)) vacall) (d1,d2,d3,d4); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d8(d1,d2,d3,d4,d5,d6,d7,d8); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + current_function = (void*) &d_d8; dr = ((double (*) (double,double,double,double,double,double,double,double)) vacall) (d1,d2,d3,d4,d5,d6,d7,d8); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d16(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + current_function = (void*) &d_d16; dr = ((double (*) (double,double,double,double,double,double,double,double,double,double,double,double,double,double,double,double)) vacall) (d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16); + fprintf(out,"->%g\n",dr); + fflush(out); + } + + /* pointer tests */ + { void* vpr; + + vpr = vp_vpdpcpsp(&uc1,&d2,str3,&I4); + fprintf(out,"->0x%p\n",vpr); + fflush(out); + vpr = 0; clear_traces(); + current_function = (void*) &vp_vpdpcpsp; vpr = ((void* (*) (void*,double*,char*,Int*)) vacall) (&uc1,&d2,str3,&I4); + fprintf(out,"->0x%p\n",vpr); + fflush(out); + } + + /* mixed number tests */ + { uchar ucr; + ushort usr; + float fr; + double dr; + long long llr; + + ucr = uc_ucsil(uc1,us2,ui3,ul4); + fprintf(out,"->%u\n",ucr); + fflush(out); + ucr = 0; clear_traces(); + current_function = (void*) &uc_ucsil; ucr = ((uchar (*) (uchar,ushort,uint,ulong)) vacall) (uc1,us2,ui3,ul4); + fprintf(out,"->%u\n",ucr); + fflush(out); + + dr = d_iidd(i1,i2,d3,d4); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + current_function = (void*) &d_iidd; dr = ((double (*) (int,int,double,double)) vacall) (i1,i2,d3,d4); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_iiidi(i1,i2,i3,d4,i5); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + current_function = (void*) &d_iiidi; dr = ((double (*) (int,int,int,double,int)) vacall) (i1,i2,i3,d4,i5); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_idid(i1,d2,i3,d4); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + current_function = (void*) &d_idid; dr = ((double (*) (int,double,int,double)) vacall) (i1,d2,i3,d4); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_fdi(f1,d2,i3); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + current_function = (void*) &d_fdi; dr = ((double (*) (float,double,int)) vacall) (f1,d2,i3); + fprintf(out,"->%g\n",dr); + fflush(out); + + usr = us_cdcd(c1,d2,c3,d4); + fprintf(out,"->%u\n",usr); + fflush(out); + usr = 0; clear_traces(); + current_function = (void*) &us_cdcd; usr = ((ushort (*) (char,double,char,double)) vacall) (c1,d2,c3,d4); + fprintf(out,"->%u\n",usr); + fflush(out); + + llr = ll_iiilli(i1,i2,i3,ll1,i13); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + llr = 0; clear_traces(); + current_function = (void*) &ll_iiilli; llr = ((long long (*) (int,int,int,long long,int)) vacall) (i1,i2,i3,ll1,i13); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + + llr = ll_flli(f13,ll1,i13); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + llr = 0; clear_traces(); + current_function = (void*) &ll_flli; llr = ((long long (*) (float,long long,int)) vacall) (f13,ll1,i13); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + + fr = f_fi(f1,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + current_function = (void*) &f_fi; fr = ((float (*) (float,int)) vacall) (f1,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f2i(f1,f2,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + current_function = (void*) &f_f2i; fr = ((float (*) (float,float,int)) vacall) (f1,f2,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f3i(f1,f2,f3,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + current_function = (void*) &f_f3i; fr = ((float (*) (float,float,float,int)) vacall) (f1,f2,f3,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f4i(f1,f2,f3,f4,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + current_function = (void*) &f_f4i; fr = ((float (*) (float,float,float,float,int)) vacall) (f1,f2,f3,f4,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f7i(f1,f2,f3,f4,f5,f6,f7,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + current_function = (void*) &f_f7i; fr = ((float (*) (float,float,float,float,float,float,float,int)) vacall) (f1,f2,f3,f4,f5,f6,f7,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f8i(f1,f2,f3,f4,f5,f6,f7,f8,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + current_function = (void*) &f_f8i; fr = ((float (*) (float,float,float,float,float,float,float,float,int)) vacall) (f1,f2,f3,f4,f5,f6,f7,f8,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f12i(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + current_function = (void*) &f_f12i; fr = ((float (*) (float,float,float,float,float,float,float,float,float,float,float,float,int)) vacall) (f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + + fr = f_f13i(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + current_function = (void*) &f_f13i; fr = ((float (*) (float,float,float,float,float,float,float,float,float,float,float,float,float,int)) vacall) (f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,i9); + fprintf(out,"->%g\n",fr); + fflush(out); + + dr = d_di(d1,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + current_function = (void*) &d_di; dr = ((double (*) (double,int)) vacall) (d1,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d2i(d1,d2,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + current_function = (void*) &d_d2i; dr = ((double (*) (double,double,int)) vacall) (d1,d2,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d3i(d1,d2,d3,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + current_function = (void*) &d_d3i; dr = ((double (*) (double,double,double,int)) vacall) (d1,d2,d3,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d4i(d1,d2,d3,d4,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + current_function = (void*) &d_d4i; dr = ((double (*) (double,double,double,double,int)) vacall) (d1,d2,d3,d4,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d7i(d1,d2,d3,d4,d5,d6,d7,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + current_function = (void*) &d_d7i; dr = ((double (*) (double,double,double,double,double,double,double,int)) vacall) (d1,d2,d3,d4,d5,d6,d7,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d8i(d1,d2,d3,d4,d5,d6,d7,d8,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + current_function = (void*) &d_d8i; dr = ((double (*) (double,double,double,double,double,double,double,double,int)) vacall) (d1,d2,d3,d4,d5,d6,d7,d8,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d12i(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + current_function = (void*) &d_d12i; dr = ((double (*) (double,double,double,double,double,double,double,double,double,double,double,double,int)) vacall) (d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_d13i(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + current_function = (void*) &d_d13i; dr = ((double (*) (double,double,double,double,double,double,double,double,double,double,double,double,double,int)) vacall) (d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,i9); + fprintf(out,"->%g\n",dr); + fflush(out); + } + + /* small structure return tests */ + { + Size1 r = S1_v(); + fprintf(out,"->{%c}\n",r.x1); + fflush(out); + memset(&r,0,sizeof(r)); clear_traces(); + current_function = (void*) &S1_v; r = ((Size1 (*) (void)) vacall) (); + fprintf(out,"->{%c}\n",r.x1); + fflush(out); + } + { + Size2 r = S2_v(); + fprintf(out,"->{%c%c}\n",r.x1,r.x2); + fflush(out); + memset(&r,0,sizeof(r)); clear_traces(); + current_function = (void*) &S2_v; r = ((Size2 (*) (void)) vacall) (); + fprintf(out,"->{%c%c}\n",r.x1,r.x2); + fflush(out); + } + { + Size3 r = S3_v(); + fprintf(out,"->{%c%c%c}\n",r.x1,r.x2,r.x3); + fflush(out); + memset(&r,0,sizeof(r)); clear_traces(); + current_function = (void*) &S3_v; r = ((Size3 (*) (void)) vacall) (); + fprintf(out,"->{%c%c%c}\n",r.x1,r.x2,r.x3); + fflush(out); + } + { + Size4 r = S4_v(); + fprintf(out,"->{%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4); + fflush(out); + memset(&r,0,sizeof(r)); clear_traces(); + current_function = (void*) &S4_v; r = ((Size4 (*) (void)) vacall) (); + fprintf(out,"->{%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4); + fflush(out); + } + { + Size7 r = S7_v(); + fprintf(out,"->{%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7); + fflush(out); + memset(&r,0,sizeof(r)); clear_traces(); + current_function = (void*) &S7_v; r = ((Size7 (*) (void)) vacall) (); + fprintf(out,"->{%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7); + fflush(out); + } + { + Size8 r = S8_v(); + fprintf(out,"->{%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8); + fflush(out); + memset(&r,0,sizeof(r)); clear_traces(); + current_function = (void*) &S8_v; r = ((Size8 (*) (void)) vacall) (); + fprintf(out,"->{%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8); + fflush(out); + } + { + Size12 r = S12_v(); + fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12); + fflush(out); + memset(&r,0,sizeof(r)); clear_traces(); + current_function = (void*) &S12_v; r = ((Size12 (*) (void)) vacall) (); + fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12); + fflush(out); + } + { + Size15 r = S15_v(); + fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15); + fflush(out); + memset(&r,0,sizeof(r)); clear_traces(); + current_function = (void*) &S15_v; r = ((Size15 (*) (void)) vacall) (); + fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15); + fflush(out); + } + { + Size16 r = S16_v(); + fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15,r.x16); + fflush(out); + memset(&r,0,sizeof(r)); clear_traces(); + current_function = (void*) &S16_v; r = ((Size16 (*) (void)) vacall) (); + fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15,r.x16); + fflush(out); + } + + /* structure tests */ + { Int Ir; + Char Cr; + Float Fr; + Double Dr; + J Jr; + T Tr; + X Xr; + + Ir = I_III(I1,I2,I3); + fprintf(out,"->{%d}\n",Ir.x); + fflush(out); + Ir.x = 0; clear_traces(); + current_function = (void*) &I_III; Ir = ((Int (*) (Int,Int,Int)) vacall) (I1,I2,I3); + fprintf(out,"->{%d}\n",Ir.x); + fflush(out); + +#ifndef SKIP_EXTRA_STRUCTS + Cr = C_CdC(C1,d2,C3); + fprintf(out,"->{'%c'}\n",Cr.x); + fflush(out); + Cr.x = '\0'; clear_traces(); + current_function = (void*) &C_CdC; Cr = ((Char (*) (Char,double,Char)) vacall) (C1,d2,C3); + fprintf(out,"->{'%c'}\n",Cr.x); + fflush(out); + + Fr = F_Ffd(F1,f2,d3); + fprintf(out,"->{%g}\n",Fr.x); + fflush(out); + Fr.x = 0.0; clear_traces(); + current_function = (void*) &F_Ffd; Fr = ((Float (*) (Float,float,double)) vacall) (F1,f2,d3); + fprintf(out,"->{%g}\n",Fr.x); + fflush(out); + + Dr = D_fDd(f1,D2,d3); + fprintf(out,"->{%g}\n",Dr.x); + fflush(out); + Dr.x = 0.0; clear_traces(); + current_function = (void*) &D_fDd; Dr = ((Double (*) (float,Double,double)) vacall) (f1,D2,d3); + fprintf(out,"->{%g}\n",Dr.x); + fflush(out); + + Dr = D_Dfd(D1,f2,d3); + fprintf(out,"->{%g}\n",Dr.x); + fflush(out); + Dr.x = 0.0; clear_traces(); + current_function = (void*) &D_Dfd; Dr = ((Double (*) (Double,float,double)) vacall) (D1,f2,d3); + fprintf(out,"->{%g}\n",Dr.x); + fflush(out); +#endif + + Jr = J_JiJ(J1,i2,J2); + fprintf(out,"->{%ld,%ld}\n",Jr.l1,Jr.l2); + fflush(out); + Jr.l1 = Jr.l2 = 0; clear_traces(); + current_function = (void*) &J_JiJ; Jr = ((J (*) (J,int,J)) vacall) (J1,i2,J2); + fprintf(out,"->{%ld,%ld}\n",Jr.l1,Jr.l2); + fflush(out); + +#ifndef SKIP_EXTRA_STRUCTS +#ifndef SKIP_T + Tr = T_TcT(T1,' ',T2); + fprintf(out,"->{\"%c%c%c\"}\n",Tr.c[0],Tr.c[1],Tr.c[2]); + fflush(out); + Tr.c[0] = Tr.c[1] = Tr.c[2] = 0; clear_traces(); + current_function = (void*) &T_TcT; Tr = ((T (*) (T,char,T)) vacall) (T1,' ',T2); + fprintf(out,"->{\"%c%c%c\"}\n",Tr.c[0],Tr.c[1],Tr.c[2]); + fflush(out); +#endif + +#ifndef SKIP_X + Xr = X_BcdB(B1,c2,d3,B2); + fprintf(out,"->{\"%s\",'%c'}\n",Xr.c,Xr.c1); + fflush(out); + Xr.c[0]=Xr.c1='\0'; clear_traces(); + current_function = (void*) &X_BcdB; Xr = ((X (*) (B,char,double,B)) vacall) (B1,c2,d3,B2); + fprintf(out,"->{\"%s\",'%c'}\n",Xr.c,Xr.c1); + fflush(out); +#endif +#endif + } + + /* gpargs boundary tests */ + { long lr; + long long llr; + float fr; + double dr; + + lr = l_l0J(J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + current_function = (void*) &l_l0J; lr = ((long (*) (J,long)) vacall) (J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l1J(l1,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + current_function = (void*) &l_l1J; lr = ((long (*) (long,J,long)) vacall) (l1,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l2J(l1,l2,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + current_function = (void*) &l_l2J; lr = ((long (*) (long,long,J,long)) vacall) (l1,l2,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l3J(l1,l2,l3,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + current_function = (void*) &l_l3J; lr = ((long (*) (long,long,long,J,long)) vacall) (l1,l2,l3,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l4J(l1,l2,l3,l4,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + current_function = (void*) &l_l4J; lr = ((long (*) (long,long,long,long,J,long)) vacall) (l1,l2,l3,l4,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l5J(l1,l2,l3,l4,l5,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + current_function = (void*) &l_l5J; lr = ((long (*) (long,long,long,long,long,J,long)) vacall) (l1,l2,l3,l4,l5,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l6J(l1,l2,l3,l4,l5,l6,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + current_function = (void*) &l_l6J; lr = ((long (*) (long,long,long,long,long,long,J,long)) vacall) (l1,l2,l3,l4,l5,l6,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l7J(l1,l2,l3,l4,l5,l6,l7,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + current_function = (void*) &l_l7J; lr = ((long (*) (long,long,long,long,long,long,long,J,long)) vacall) (l1,l2,l3,l4,l5,l6,l7,J1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l0K(K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + current_function = (void*) &l_l0K; lr = ((long (*) (K,long)) vacall) (K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l1K(l1,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + current_function = (void*) &l_l1K; lr = ((long (*) (long,K,long)) vacall) (l1,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l2K(l1,l2,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + current_function = (void*) &l_l2K; lr = ((long (*) (long,long,K,long)) vacall) (l1,l2,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l3K(l1,l2,l3,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + current_function = (void*) &l_l3K; lr = ((long (*) (long,long,long,K,long)) vacall) (l1,l2,l3,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l4K(l1,l2,l3,l4,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + current_function = (void*) &l_l4K; lr = ((long (*) (long,long,long,long,K,long)) vacall) (l1,l2,l3,l4,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l5K(l1,l2,l3,l4,l5,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + current_function = (void*) &l_l5K; lr = ((long (*) (long,long,long,long,long,K,long)) vacall) (l1,l2,l3,l4,l5,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + lr = l_l6K(l1,l2,l3,l4,l5,l6,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + lr = 0; clear_traces(); + current_function = (void*) &l_l6K; lr = ((long (*) (long,long,long,long,long,long,K,long)) vacall) (l1,l2,l3,l4,l5,l6,K1,l9); + fprintf(out,"->%ld\n",lr); + fflush(out); + + fr = f_f17l3L(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,l6,l7,l8,L1); + fprintf(out,"->%g\n",fr); + fflush(out); + fr = 0.0; clear_traces(); + current_function = (void*) &f_f17l3L; fr = ((float (*) (float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,long,long,long,L)) vacall) (f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,l6,l7,l8,L1); + fprintf(out,"->%g\n",fr); + fflush(out); + + dr = d_d17l3L(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16,d17,l6,l7,l8,L1); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + current_function = (void*) &d_d17l3L; dr = ((double (*) (double,double,double,double,double,double,double,double,double,double,double,double,double,double,double,double,double,long,long,long,L)) vacall) (d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16,d17,l6,l7,l8,L1); + fprintf(out,"->%g\n",dr); + fflush(out); + + llr = ll_l2ll(l1,l2,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + llr = 0; clear_traces(); + current_function = (void*) &ll_l2ll; llr = ((long long (*) (long,long,long long,long)) vacall) (l1,l2,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + + llr = ll_l3ll(l1,l2,l3,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + llr = 0; clear_traces(); + current_function = (void*) &ll_l3ll; llr = ((long long (*) (long,long,long,long long,long)) vacall) (l1,l2,l3,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + + llr = ll_l4ll(l1,l2,l3,l4,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + llr = 0; clear_traces(); + current_function = (void*) &ll_l4ll; llr = ((long long (*) (long,long,long,long,long long,long)) vacall) (l1,l2,l3,l4,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + + llr = ll_l5ll(l1,l2,l3,l4,l5,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + llr = 0; clear_traces(); + current_function = (void*) &ll_l5ll; llr = ((long long (*) (long,long,long,long,long,long long,long)) vacall) (l1,l2,l3,l4,l5,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + + llr = ll_l6ll(l1,l2,l3,l4,l5,l6,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + llr = 0; clear_traces(); + current_function = (void*) &ll_l6ll; llr = ((long long (*) (long,long,long,long,long,long,long long,long)) vacall) (l1,l2,l3,l4,l5,l6,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + + llr = ll_l7ll(l1,l2,l3,l4,l5,l6,l7,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + llr = 0; clear_traces(); + current_function = (void*) &ll_l7ll; llr = ((long long (*) (long,long,long,long,long,long,long,long long,long)) vacall) (l1,l2,l3,l4,l5,l6,l7,ll1,l9); + fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); + fflush(out); + + dr = d_l2d(l1,l2,ll1,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + current_function = (void*) &d_l2d; dr = ((double (*) (long,long,double,long)) vacall) (l1,l2,ll1,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_l3d(l1,l2,l3,ll1,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + current_function = (void*) &d_l3d; dr = ((double (*) (long,long,long,double,long)) vacall) (l1,l2,l3,ll1,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_l4d(l1,l2,l3,l4,ll1,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + current_function = (void*) &d_l4d; dr = ((double (*) (long,long,long,long,double,long)) vacall) (l1,l2,l3,l4,ll1,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_l5d(l1,l2,l3,l4,l5,ll1,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + current_function = (void*) &d_l5d; dr = ((double (*) (long,long,long,long,long,double,long)) vacall) (l1,l2,l3,l4,l5,ll1,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_l6d(l1,l2,l3,l4,l5,l6,ll1,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + current_function = (void*) &d_l6d; dr = ((double (*) (long,long,long,long,long,long,double,long)) vacall) (l1,l2,l3,l4,l5,l6,ll1,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + + dr = d_l7d(l1,l2,l3,l4,l5,l6,l7,ll1,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + dr = 0.0; clear_traces(); + current_function = (void*) &d_l7d; dr = ((double (*) (long,long,long,long,long,long,long,double,long)) vacall) (l1,l2,l3,l4,l5,l6,l7,ll1,l9); + fprintf(out,"->%g\n",dr); + fflush(out); + } + + /* by-value tests */ + /* This test is trivial, since a copy of k is allocated on the callee's stack. + But anyway... */ + { K k; + + k.l1 = l1; + k.l2 = l2; + k.l3 = l3; + k.l4 = l4; + fprintf(out,"by_value:%ld,%ld,%ld,%ld\n",k.l1,k.l2,k.l3,k.l4); + fflush(out); + clear_traces(); + current_function = (void*) &v_clobber_K; ((void (*) (K)) vacall) (k); + fprintf(out,"by_value:%ld,%ld,%ld,%ld\n",k.l1,k.l2,k.l3,k.l4); + fflush(out); + } + + exit(0); +} diff --git a/vacall/vacall-alpha-linux.s b/vacall/vacall-alpha-linux.s new file mode 100644 index 0000000..85364c8 --- /dev/null +++ b/vacall/vacall-alpha-linux.s @@ -0,0 +1,174 @@ + .set noreorder + .set volatile + .set noat + .set nomacro + .text + .align 2 + .align 4 + .globl vacall_receiver + .ent vacall_receiver +vacall_receiver: + .frame $15,192,$26,48 + .mask 0x4008000,-192 + ldah $29,0($27) !gpdisp!1 + lda $29,0($29) !gpdisp!1 +$vacall_receiver..ng: + lda $30,-192($30) + stq $15,8($30) + mov $30,$15 + lda $3,144($15) + stq $26,0($30) + .prologue 1 + lda $2,88($15) + stq $16,144($15) + subq $2,$3,$2 + ldq $3,vacall_function($29) !literal + stq $2,80($15) + lda $2,192($15) + lda $16,16($15) + stq $2,72($15) + ldq $27,0($3) + lda $2,144($15) + stq $17,152($15) + stq $18,160($15) + stq $19,168($15) + stq $20,176($15) + stq $21,184($15) + stt $f16,88($15) + stt $f17,96($15) + stt $f18,104($15) + stt $f19,112($15) + stt $f20,120($15) + stt $f21,128($15) + stl $31,16($15) + stq $2,40($15) + stq $31,48($15) + stl $31,56($15) + jsr $26,($27),0 + ldah $29,0($26) !gpdisp!2 + lda $29,0($29) !gpdisp!2 + ldl $2,56($15) + beq $2,$L43 + zapnot $2,15,$3 + cmpeq $3,1,$2 + bne $2,$L44 + cmpeq $3,2,$2 + bne $2,$L44 + cmpeq $3,3,$2 + bne $2,$L50 + cmpeq $3,4,$2 + bne $2,$L51 + cmpeq $3,5,$2 + bne $2,$L52 + cmpeq $3,6,$2 + bne $2,$L53 + cmpeq $3,7,$2 + bne $2,$L54 + cmpeq $3,8,$2 + bne $2,$L48 + cmpeq $3,9,$2 + bne $2,$L48 + cmpeq $3,10,$2 + bne $2,$L48 + cmpeq $3,11,$2 + bne $2,$L48 + cmpeq $3,12,$2 + bne $2,$L55 + cmpeq $3,13,$2 + bne $2,$L56 + cmpeq $3,14,$2 + bne $2,$L48 + cmpeq $3,15,$2 + beq $2,$L43 + lda $2,1024($31) + ldl $3,16($15) + and $2,$3,$2 + beq $2,$L43 + ldq $3,64($15) + cmpeq $3,1,$2 + bne $2,$L57 + cmpeq $3,2,$2 + bne $2,$L58 + cmpeq $3,4,$2 + bne $2,$L59 + cmpeq $3,8,$2 + bne $2,$L60 + cmpeq $3,16,$2 + beq $2,$L43 + ldq $2,48($15) + ldq $1,8($2) + ldq $0,0($2) + .align 4 +$L43: + mov $15,$30 + ldq $26,0($30) + ldq $15,8($30) + lda $30,192($30) + ret $31,($26),1 + .align 4 +$L44: + mov $15,$30 + ldl $2,24($15) + ldq $26,0($30) + sll $2,56,$2 + sra $2,56,$0 + ldq $15,8($30) + lda $30,192($30) + ret $31,($26),1 +$L51: + ldl $2,24($15) + sll $2,48,$2 + sra $2,48,$0 + br $31,$L43 +$L50: + ldl $2,24($15) + bis $31,$31,$31 + and $2,0xff,$0 + br $31,$L43 +$L48: + ldq $0,24($15) + br $31,$L43 +$L52: + ldl $2,24($15) + bis $31,$31,$31 + zapnot $2,3,$0 + br $31,$L43 +$L53: + ldl $3,24($15) + bis $31,$31,$31 + mov $3,$0 + br $31,$L43 +$L54: + ldl $2,24($15) + bis $31,$31,$31 + zapnot $2,15,$0 + br $31,$L43 +$L55: + lds $f0,24($15) + br $31,$L43 +$L56: + ldt $f0,24($15) + br $31,$L43 +$L57: + ldq $3,48($15) + ldq_u $2,0($3) + extbl $2,$3,$0 + br $31,$L43 +$L58: + ldq $3,48($15) + ldq_u $2,0($3) + extwl $2,$3,$0 + br $31,$L43 +$L60: + ldq $2,48($15) + bis $31,$31,$31 + ldq $0,0($2) + br $31,$L43 +$L59: + ldq $2,48($15) + ldl $3,0($2) + zapnot $3,15,$0 + br $31,$L43 + .end vacall_receiver + .ident "GCC: (GNU) 4.0.2" + .section .note.GNU-stack,"",@progbits diff --git a/vacall/vacall-alpha-macro.S b/vacall/vacall-alpha-macro.S new file mode 100644 index 0000000..2655035 --- /dev/null +++ b/vacall/vacall-alpha-macro.S @@ -0,0 +1,175 @@ + .set noreorder + .set volatile + .set noat + .set nomacro + .text + .align 2 + .align 4 + .globl vacall_receiver + .ent vacall_receiver +vacall_receiver: + .frame $15,192,$26,48 + .mask 0x4008000,-192 + ldah $29,0($27) !gpdisp!1 + lda $29,0($29) !gpdisp!1 +$vacall_receiver..ng: + lda $30,-192($30) + stq $15,8($30) + mov $30,$15 + lda $3,144($15) + stq $26,0($30) + .prologue 1 + lda $2,88($15) + stq $16,144($15) + subq $2,$3,$2 + ldq $3,vacall_function($29) !literal + stq $2,80($15) + lda $2,192($15) + lda $16,16($15) + stq $2,72($15) + ldq $27,0($3) + lda $2,144($15) + stq $17,152($15) + stq $18,160($15) + stq $19,168($15) + stq $20,176($15) + stq $21,184($15) + stt $f16,88($15) + stt $f17,96($15) + stt $f18,104($15) + stt $f19,112($15) + stt $f20,120($15) + stt $f21,128($15) + stl $31,16($15) + stq $2,40($15) + stq $31,48($15) + stl $31,56($15) + jsr $26,($27),0 + ldah $29,0($26) !gpdisp!2 + lda $29,0($29) !gpdisp!2 + ldl $2,56($15) + beq $2,$L43 + zapnot $2,15,$3 + cmpeq $3,1,$2 + bne $2,$L44 + cmpeq $3,2,$2 + bne $2,$L44 + cmpeq $3,3,$2 + bne $2,$L50 + cmpeq $3,4,$2 + bne $2,$L51 + cmpeq $3,5,$2 + bne $2,$L52 + cmpeq $3,6,$2 + bne $2,$L53 + cmpeq $3,7,$2 + bne $2,$L54 + cmpeq $3,8,$2 + bne $2,$L48 + cmpeq $3,9,$2 + bne $2,$L48 + cmpeq $3,10,$2 + bne $2,$L48 + cmpeq $3,11,$2 + bne $2,$L48 + cmpeq $3,12,$2 + bne $2,$L55 + cmpeq $3,13,$2 + bne $2,$L56 + cmpeq $3,14,$2 + bne $2,$L48 + cmpeq $3,15,$2 + beq $2,$L43 + lda $2,1024($31) + ldl $3,16($15) + and $2,$3,$2 + beq $2,$L43 + ldq $3,64($15) + cmpeq $3,1,$2 + bne $2,$L57 + cmpeq $3,2,$2 + bne $2,$L58 + cmpeq $3,4,$2 + bne $2,$L59 + cmpeq $3,8,$2 + bne $2,$L60 + cmpeq $3,16,$2 + beq $2,$L43 + ldq $2,48($15) + ldq $1,8($2) + ldq $0,0($2) + .align 4 +$L43: + mov $15,$30 + ldq $26,0($30) + ldq $15,8($30) + lda $30,192($30) + ret $31,($26),1 + .align 4 +$L44: + mov $15,$30 + ldl $2,24($15) + ldq $26,0($30) + sll $2,56,$2 + sra $2,56,$0 + ldq $15,8($30) + lda $30,192($30) + ret $31,($26),1 +$L51: + ldl $2,24($15) + sll $2,48,$2 + sra $2,48,$0 + br $31,$L43 +$L50: + ldl $2,24($15) + bis $31,$31,$31 + and $2,0xff,$0 + br $31,$L43 +$L48: + ldq $0,24($15) + br $31,$L43 +$L52: + ldl $2,24($15) + bis $31,$31,$31 + zapnot $2,3,$0 + br $31,$L43 +$L53: + ldl $3,24($15) + bis $31,$31,$31 + mov $3,$0 + br $31,$L43 +$L54: + ldl $2,24($15) + bis $31,$31,$31 + zapnot $2,15,$0 + br $31,$L43 +$L55: + lds $f0,24($15) + br $31,$L43 +$L56: + ldt $f0,24($15) + br $31,$L43 +$L57: + ldq $3,48($15) + ldq_u $2,0($3) + extbl $2,$3,$0 + br $31,$L43 +$L58: + ldq $3,48($15) + ldq_u $2,0($3) + extwl $2,$3,$0 + br $31,$L43 +$L60: + ldq $2,48($15) + bis $31,$31,$31 + ldq $0,0($2) + br $31,$L43 +$L59: + ldq $2,48($15) + ldl $3,0($2) + zapnot $3,15,$0 + br $31,$L43 + .end vacall_receiver +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/vacall/vacall-alpha.c b/vacall/vacall-alpha.c new file mode 100644 index 0000000..cb74c91 --- /dev/null +++ b/vacall/vacall-alpha.c @@ -0,0 +1,161 @@ +/* vacall function for alpha CPU */ + +/* + * Copyright 1995-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "vacall-internal.h" + +#ifdef REENTRANT +#define vacall_receiver callback_receiver +register struct { void (*vacall_function) (void*,va_alist); void* arg; } + * env __asm__("$1"); +#endif +register long arg1 __asm__("$16"); +register long arg2 __asm__("$17"); +register long arg3 __asm__("$18"); +register long arg4 __asm__("$19"); +register long arg5 __asm__("$20"); +register long arg6 __asm__("$21"); +register double farg1 __asm__("$f16"); +register double farg2 __asm__("$f17"); +register double farg3 __asm__("$f18"); +register double farg4 __asm__("$f19"); +register double farg5 __asm__("$f20"); +register double farg6 __asm__("$f21"); +register __vaword iret __asm__("$0"); +register __vaword iret2 __asm__("$1"); +register float fret __asm__("$f0"); +register double dret __asm__("$f0"); + +/* The ABI requires that the first 6 general-purpose argument words are + being passed in registers, even if these words belong to a struct. No room + is allocated for these register words on the stack by the caller, but the + callee allocates room for them - at the right place in the stack frame, + that is, above the usual {fp, retaddr} combo - if and only if they are part + of a larger struct that extends to the stack and the address of this struct + is taken. */ +struct gpargsequence { + __vaword word1; /* $16 */ + __vaword word2; /* $17 */ + __vaword word3; /* $18 */ + __vaword word4; /* $19 */ + __vaword word5; /* $20 */ + __vaword word6; /* $21 */ + __vaword firststackword; +}; + +#ifdef REENTRANT +static +#endif +void /* the return type is variable, not void! */ +vacall_receiver (struct gpargsequence gpargs) +{ + __va_alist list; + /* Move the arguments passed in registers to their stack locations. */ + list.farg[0] = farg1; + list.farg[1] = farg2; + list.farg[2] = farg3; + list.farg[3] = farg4; + list.farg[4] = farg5; + list.farg[5] = farg6; + /* Prepare the va_alist. */ + list.flags = 0; + list.aptr = (long)&gpargs; + list.raddr = (void*)0; + list.rtype = __VAvoid; + list.memargptr = (long)&gpargs.firststackword; + list.farg_offset = (long)&list.farg[0] - list.aptr; + /* Call vacall_function. The macros do all the rest. */ +#ifndef REENTRANT + (*vacall_function) (&list); +#else /* REENTRANT */ + (*env->vacall_function) (env->arg,&list); +#endif + /* Put return value into proper register. */ + if (list.rtype == __VAvoid) { + } else + if (list.rtype == __VAchar) { + iret = list.tmp._char; + } else + if (list.rtype == __VAschar) { + iret = list.tmp._schar; + } else + if (list.rtype == __VAuchar) { + iret = list.tmp._uchar; + } else + if (list.rtype == __VAshort) { + iret = list.tmp._short; + } else + if (list.rtype == __VAushort) { + iret = list.tmp._ushort; + } else + if (list.rtype == __VAint) { + iret = list.tmp._int; + } else + if (list.rtype == __VAuint) { + iret = list.tmp._uint; + } else + if (list.rtype == __VAlong) { + iret = list.tmp._long; + } else + if (list.rtype == __VAulong) { + iret = list.tmp._ulong; + } else + if (list.rtype == __VAlonglong) { + iret = list.tmp._long; + } else + if (list.rtype == __VAulonglong) { + iret = list.tmp._ulong; + } else + if (list.rtype == __VAfloat) { + fret = list.tmp._float; + } else + if (list.rtype == __VAdouble) { + dret = list.tmp._double; + } else + if (list.rtype == __VAvoidp) { + iret = (long)list.tmp._ptr; + } else + if (list.rtype == __VAstruct) { + if (list.flags & __VA_REGISTER_STRUCT_RETURN) { + if (list.rsize == sizeof(char)) { + iret = *(unsigned char *) list.raddr; + } else + if (list.rsize == sizeof(short)) { + iret = *(unsigned short *) list.raddr; + } else + if (list.rsize == sizeof(int)) { + iret = *(unsigned int *) list.raddr; + } else + if (list.rsize == sizeof(long)) { + iret = *(unsigned long *) list.raddr; + } else + if (list.rsize == 2*sizeof(__vaword)) { + iret = ((__vaword *) list.raddr)[0]; + iret2 = ((__vaword *) list.raddr)[1]; + } + } + } +} + +#ifdef REENTRANT +__vacall_r_t +callback_get_receiver (void) +{ + return (__vacall_r_t)(void*)&callback_receiver; +} +#endif diff --git a/vacall/vacall-arm-linux-pic.s b/vacall/vacall-arm-linux-pic.s new file mode 100644 index 0000000..9035020 --- /dev/null +++ b/vacall/vacall-arm-linux-pic.s @@ -0,0 +1,100 @@ + .file "vacall-arm.c" + .text + .align 2 + .global vacall_receiver + .type vacall_receiver,function +vacall_receiver: + @ args = 20, pretend = 16, frame = 32 + @ frame_needed = 1, uses_anonymous_args = 0 + mov ip, sp + sub sp, sp, #16 + stmfd sp!, {sl, fp, ip, lr, pc} + sub fp, ip, #20 + add ip, fp, #4 + ldr sl, .L41 + sub sp, sp, #32 + stmia ip, {r0, r1, r2, r3} + ldr r3, .L41+4 + mov lr, #0 +.L36: + add sl, pc, sl + ldr r2, [sl, r3] + str ip, [fp, #-32] + str lr, [fp, #-24] + str lr, [fp, #-48] + str lr, [fp, #-28] + bic sp, sp, #7 + sub r0, fp, #48 + mov lr, pc + ldr pc, [r2, #0] + ldr r2, [fp, #-24] + cmp r2, #0 + beq .L1 + cmp r2, #1 + beq .L39 + cmp r2, #2 + ldreqsb r0, [fp, #-40] + beq .L1 + cmp r2, #3 + beq .L39 + cmp r2, #4 + ldreqsh r0, [fp, #-40] + beq .L1 + cmp r2, #5 + ldreqh r0, [fp, #-40] + beq .L1 + cmp r2, #6 + beq .L38 + cmp r2, #7 + beq .L38 + cmp r2, #8 + beq .L38 + cmp r2, #9 + beq .L38 + sub r3, r2, #10 + cmp r3, #1 + bls .L37 + cmp r2, #12 + ldreq r0, [fp, #-40] @ float + beq .L1 + cmp r2, #13 + beq .L37 + cmp r2, #14 + beq .L38 + cmp r2, #15 + beq .L40 +.L1: + ldmea fp, {sl, fp, sp, pc} +.L40: + ldr r3, [fp, #-48] + tst r3, #1024 + beq .L1 + ldr r3, [fp, #-20] + cmp r3, #1 + ldreq r3, [fp, #-28] + ldreqb r0, [r3, #0] @ zero_extendqisi2 + beq .L1 + cmp r3, #2 + ldreq r3, [fp, #-28] + ldrne r3, [fp, #-28] + ldreqh r0, [r3, #0] + ldrne r0, [r3, #0] + b .L1 +.L38: + ldr r0, [fp, #-40] + b .L1 +.L37: + sub r0, fp, #40 + ldmia r0, {r0, r1} @ phole ldm + b .L1 +.L39: + ldrb r0, [fp, #-40] @ zero_extendqisi2 + b .L1 +.L42: + .align 2 +.L41: + .word _GLOBAL_OFFSET_TABLE_-(.L36+8) + .word vacall_function(GOT) +.Lfe1: + .size vacall_receiver,.Lfe1-vacall_receiver + .ident "GCC: (GNU) 3.1" diff --git a/vacall/vacall-arm-linux.s b/vacall/vacall-arm-linux.s new file mode 100644 index 0000000..1c9118b --- /dev/null +++ b/vacall/vacall-arm-linux.s @@ -0,0 +1,95 @@ + .file "vacall-arm.c" + .text + .align 2 + .global vacall_receiver + .type vacall_receiver,function +vacall_receiver: + @ args = 20, pretend = 16, frame = 32 + @ frame_needed = 1, uses_anonymous_args = 0 + mov ip, sp + sub sp, sp, #16 + stmfd sp!, {fp, ip, lr, pc} + sub fp, ip, #20 + add lr, fp, #4 + mov ip, #0 + sub sp, sp, #32 + stmia lr, {r0, r1, r2, r3} + bic sp, sp, #7 + str lr, [fp, #-28] + str ip, [fp, #-20] + str ip, [fp, #-44] + str ip, [fp, #-24] + sub r0, fp, #44 + ldr r3, .L40 + mov lr, pc + ldr pc, [r3, #0] + ldr r2, [fp, #-20] + cmp r2, #0 + beq .L1 + cmp r2, #1 + beq .L38 + cmp r2, #2 + ldreqsb r0, [fp, #-36] + beq .L1 + cmp r2, #3 + beq .L38 + cmp r2, #4 + ldreqsh r0, [fp, #-36] + beq .L1 + cmp r2, #5 + ldreqh r0, [fp, #-36] + beq .L1 + cmp r2, #6 + beq .L37 + cmp r2, #7 + beq .L37 + cmp r2, #8 + beq .L37 + cmp r2, #9 + beq .L37 + sub r3, r2, #10 + cmp r3, #1 + bls .L36 + cmp r2, #12 + ldreq r0, [fp, #-36] @ float + beq .L1 + cmp r2, #13 + beq .L36 + cmp r2, #14 + beq .L37 + cmp r2, #15 + beq .L39 +.L1: + ldmea fp, {fp, sp, pc} +.L39: + ldr r3, [fp, #-44] + tst r3, #1024 + beq .L1 + ldr r3, [fp, #-16] + cmp r3, #1 + ldreq r3, [fp, #-24] + ldreqb r0, [r3, #0] @ zero_extendqisi2 + beq .L1 + cmp r3, #2 + ldreq r3, [fp, #-24] + ldrne r3, [fp, #-24] + ldreqh r0, [r3, #0] + ldrne r0, [r3, #0] + b .L1 +.L37: + ldr r0, [fp, #-36] + b .L1 +.L36: + sub r0, fp, #36 + ldmia r0, {r0, r1} @ phole ldm + b .L1 +.L38: + ldrb r0, [fp, #-36] @ zero_extendqisi2 + b .L1 +.L41: + .align 2 +.L40: + .word vacall_function +.Lfe1: + .size vacall_receiver,.Lfe1-vacall_receiver + .ident "GCC: (GNU) 3.1" diff --git a/vacall/vacall-arm-macro.S b/vacall/vacall-arm-macro.S new file mode 100644 index 0000000..3ff455b --- /dev/null +++ b/vacall/vacall-arm-macro.S @@ -0,0 +1,198 @@ +#include "asm-arm.h" +#ifdef __PIC__ + .text + .align 2 + .global C(vacall_receiver) + DECLARE_FUNCTION(vacall_receiver) +FUNBEGIN(vacall_receiver) + // args = 20, pretend = 16, frame = 32 + // frame_needed = 1, uses_anonymous_args = 0 + mov ip, sp + sub sp, sp, $16 + stmfd sp!, {sl, fp, ip, lr, pc} + sub fp, ip, $20 + add ip, fp, $4 + ldr sl, L(41) + sub sp, sp, $32 + stmia ip, {r0, r1, r2, r3} + ldr r3, L(41)+4 + mov lr, $0 +L(36): + add sl, pc, sl + ldr r2, [sl, r3] + str ip, [fp, $-32] + str lr, [fp, $-24] + str lr, [fp, $-48] + str lr, [fp, $-28] + bic sp, sp, $7 + sub r0, fp, $48 + mov lr, pc + ldr pc, [r2, $0] + ldr r2, [fp, $-24] + cmp r2, $0 + beq L(1) + cmp r2, $1 + beq L(39) + cmp r2, $2 + ldreqsb r0, [fp, $-40] + beq L(1) + cmp r2, $3 + beq L(39) + cmp r2, $4 + ldreqsh r0, [fp, $-40] + beq L(1) + cmp r2, $5 + ldreqh r0, [fp, $-40] + beq L(1) + cmp r2, $6 + beq L(38) + cmp r2, $7 + beq L(38) + cmp r2, $8 + beq L(38) + cmp r2, $9 + beq L(38) + sub r3, r2, $10 + cmp r3, $1 + bls L(37) + cmp r2, $12 + ldreq r0, [fp, $-40] // float + beq L(1) + cmp r2, $13 + beq L(37) + cmp r2, $14 + beq L(38) + cmp r2, $15 + beq L(40) +L(1): + ldmea fp, {sl, fp, sp, pc} +L(40): + ldr r3, [fp, $-48] + tst r3, $1024 + beq L(1) + ldr r3, [fp, $-20] + cmp r3, $1 + ldreq r3, [fp, $-28] + ldreqb r0, [r3, $0] // zero_extendqisi2 + beq L(1) + cmp r3, $2 + ldreq r3, [fp, $-28] + ldrne r3, [fp, $-28] + ldreqh r0, [r3, $0] + ldrne r0, [r3, $0] + b L(1) +L(38): + ldr r0, [fp, $-40] + b L(1) +L(37): + sub r0, fp, $40 + ldmia r0, {r0, r1} // phole ldm + b L(1) +L(39): + ldrb r0, [fp, $-40] // zero_extendqisi2 + b L(1) +L(42): + .align 2 +L(41): + .word _GLOBAL_OFFSET_TABLE_-(L(36)+8) + .word C(vacall_function)(GOT) +L(fe1): + FUNEND(vacall_receiver) +#else + .text + .align 2 + .global C(vacall_receiver) + DECLARE_FUNCTION(vacall_receiver) +FUNBEGIN(vacall_receiver) + // args = 20, pretend = 16, frame = 32 + // frame_needed = 1, uses_anonymous_args = 0 + mov ip, sp + sub sp, sp, $16 + stmfd sp!, {fp, ip, lr, pc} + sub fp, ip, $20 + add lr, fp, $4 + mov ip, $0 + sub sp, sp, $32 + stmia lr, {r0, r1, r2, r3} + bic sp, sp, $7 + str lr, [fp, $-28] + str ip, [fp, $-20] + str ip, [fp, $-44] + str ip, [fp, $-24] + sub r0, fp, $44 + ldr r3, L(40) + mov lr, pc + ldr pc, [r3, $0] + ldr r2, [fp, $-20] + cmp r2, $0 + beq L(1) + cmp r2, $1 + beq L(38) + cmp r2, $2 + ldreqsb r0, [fp, $-36] + beq L(1) + cmp r2, $3 + beq L(38) + cmp r2, $4 + ldreqsh r0, [fp, $-36] + beq L(1) + cmp r2, $5 + ldreqh r0, [fp, $-36] + beq L(1) + cmp r2, $6 + beq L(37) + cmp r2, $7 + beq L(37) + cmp r2, $8 + beq L(37) + cmp r2, $9 + beq L(37) + sub r3, r2, $10 + cmp r3, $1 + bls L(36) + cmp r2, $12 + ldreq r0, [fp, $-36] // float + beq L(1) + cmp r2, $13 + beq L(36) + cmp r2, $14 + beq L(37) + cmp r2, $15 + beq L(39) +L(1): + ldmea fp, {fp, sp, pc} +L(39): + ldr r3, [fp, $-44] + tst r3, $1024 + beq L(1) + ldr r3, [fp, $-16] + cmp r3, $1 + ldreq r3, [fp, $-24] + ldreqb r0, [r3, $0] // zero_extendqisi2 + beq L(1) + cmp r3, $2 + ldreq r3, [fp, $-24] + ldrne r3, [fp, $-24] + ldreqh r0, [r3, $0] + ldrne r0, [r3, $0] + b L(1) +L(37): + ldr r0, [fp, $-36] + b L(1) +L(36): + sub r0, fp, $36 + ldmia r0, {r0, r1} // phole ldm + b L(1) +L(38): + ldrb r0, [fp, $-36] // zero_extendqisi2 + b L(1) +L(41): + .align 2 +L(40): + .word C(vacall_function) +L(fe1): + FUNEND(vacall_receiver) +#endif +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",%progbits +#endif diff --git a/vacall/vacall-arm.c b/vacall/vacall-arm.c new file mode 100644 index 0000000..e6b4bd5 --- /dev/null +++ b/vacall/vacall-arm.c @@ -0,0 +1,149 @@ +/* vacall function for arm CPU */ + +/* + * Copyright 1995-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "vacall-internal.h" + +#ifdef REENTRANT +#define vacall_receiver callback_receiver +typedef struct { void (*vacall_function) (void*,va_alist); void* arg; } env_t; +#endif + +/* armel have only softvfp which uses generic registers */ +register __vaword iret __asm__("r0"); +register __vaword iret2 __asm__("r1"); +register float fret __asm__("r0"); +register __vaword dret1 __asm__("r0"); +register __vaword dret2 __asm__("r1"); + +#ifndef REENTRANT +/* The ARM ABI requires that the first 4 general-purpose argument words are + being passed in registers, even if these words belong to a struct. No room + is allocated for these register words on the stack by the caller, but the + callee allocates room for them - at the right place in the stack frame, + that is, above the usual {fp, sp, retaddr, pc} combo - if and only if + they are part of a larger struct that extends to the stack and the address + of this struct is taken. */ +struct gpargsequence { + __vaword word1; /* r0 */ + __vaword word2; /* r1 */ + __vaword word3; /* r2 */ + __vaword word4; /* r3 */ + __vaword firststackword; +}; + +void /* the return type is variable, not void! */ +vacall_receiver (struct gpargsequence gpargs) +#else /* REENTRANT */ +/* The first 4 general-purpose argument words have already been pushed to the + stack by the trampoline. We can ignore them here. */ +static +void /* the return type is variable, not void! */ +vacall_receiver (__vaword ignored1, __vaword ignored2, __vaword ignored3, __vaword ignored4, + env_t* env, __vaword filler, __vaword saved_fp, __vaword saved_sp, __vaword saved_lr, __vaword saved_pc, + __vaword firstword) +#endif +{ + __va_alist list; + + /* Enforce 8-bytes-alignment of the stack pointer. + We need to do it this way because the old GCC that we use to compile + this file does not support the option '-mabi=aapcs'. */ + register unsigned long sp __asm__("r13"); /* C names for registers */ + sp &= -8; + + /* Prepare the va_alist. */ + list.flags = 0; +#ifndef REENTRANT + list.aptr = (long)&gpargs; +#else /* REENTRANT */ + list.aptr = (long)&firstword; +#endif + list.raddr = (void*)0; + list.rtype = __VAvoid; + /* Call vacall_function. The macros do all the rest. */ +#ifndef REENTRANT + (*vacall_function) (&list); +#else /* REENTRANT */ + (*env->vacall_function) (env->arg,&list); +#endif + /* Put return value into proper register. */ + if (list.rtype == __VAvoid) { + } else + if (list.rtype == __VAchar) { + iret = list.tmp._char; + } else + if (list.rtype == __VAschar) { + iret = list.tmp._schar; + } else + if (list.rtype == __VAuchar) { + iret = list.tmp._uchar; + } else + if (list.rtype == __VAshort) { + iret = list.tmp._short; + } else + if (list.rtype == __VAushort) { + iret = list.tmp._ushort; + } else + if (list.rtype == __VAint) { + iret = list.tmp._int; + } else + if (list.rtype == __VAuint) { + iret = list.tmp._uint; + } else + if (list.rtype == __VAlong) { + iret = list.tmp._long; + } else + if (list.rtype == __VAulong) { + iret = list.tmp._ulong; + } else + if (list.rtype == __VAlonglong || list.rtype == __VAulonglong) { + iret = ((__vaword *) &list.tmp._longlong)[0]; + iret2 = ((__vaword *) &list.tmp._longlong)[1]; + } else + if (list.rtype == __VAfloat) { + fret = list.tmp._float; + } else + if (list.rtype == __VAdouble) { + dret1 = ((__vaword *) &list.tmp._double)[0]; + dret2 = ((__vaword *) &list.tmp._double)[1]; + } else + if (list.rtype == __VAvoidp) { + iret = (long)list.tmp._ptr; + } else + if (list.rtype == __VAstruct) { + /* NB: On arm, all structure sizes are divisible by 4. */ + if (list.flags & __VA_REGISTER_STRUCT_RETURN) { + if (list.rsize == sizeof(char)) { /* can't occur */ + iret = *(unsigned char *) list.raddr; + } else + if (list.rsize == sizeof(short)) { /* can't occur */ + iret = *(unsigned short *) list.raddr; + } else + iret = *(unsigned int *) list.raddr; /* struct of size 3 :) */ + } + } +} + +#ifdef REENTRANT +__vacall_r_t +callback_get_receiver (void) +{ + return (__vacall_r_t)(void*)&callback_receiver; +} +#endif diff --git a/vacall/vacall-arm64-macro.S b/vacall/vacall-arm64-macro.S new file mode 100644 index 0000000..63b9cb6 --- /dev/null +++ b/vacall/vacall-arm64-macro.S @@ -0,0 +1,182 @@ +#include "asm-arm.h" + .cpu generic+fp+simd + .text + .align 2 + .p2align 3,,7 + .global C(vacall_receiver) + .type vacall_receiver, %function +FUNBEGIN(vacall_receiver) + stp x29, x30, [sp, -256]! + adrp x9, vacall_function + add x29, sp, 0 + add x10, x29, 256 + stp s0, s1, [x29, 156] + ldr x9, [x9, $:lo12:vacall_function] + stp x0, x1, [x29, 88] + stp s2, s3, [x29, 164] + stp x10, xzr, [x29, 40] + stp s4, s5, [x29, 172] + str x8, [x29, 72] + stp s6, s7, [x29, 180] + stp x2, x3, [x29, 104] + stp d0, d1, [x29, 192] + stp x4, x5, [x29, 120] + stp d2, d3, [x29, 208] + stp x6, x7, [x29, 136] + str wzr, [x29, 16] + add x0, x29, 16 + str wzr, [x29, 56] + str wzr, [x29, 80] + str wzr, [x29, 152] + stp d4, d5, [x29, 224] + stp d6, d7, [x29, 240] + blr x9 + ldr w9, [x29, 56] + cbz w9, L(1) + cmp w9, 1 + beq L(25) + cmp w9, 2 + beq L(29) + cmp w9, 3 + beq L(25) + cmp w9, 4 + beq L(30) + cmp w9, 5 + beq L(31) + cmp w9, 6 + beq L(32) + cmp w9, 7 + beq L(33) + and w10, w9, -3 + cmp w10, 8 + beq L(27) + cmp w10, 9 + beq L(27) + cmp w9, 12 + beq L(34) + cmp w9, 13 + beq L(35) + cmp w9, 14 + beq L(27) + cmp w9, 15 + bne L(1) + ldr w9, [x29, 16] + tbz x9, 10, L(1) + ldr x9, [x29, 64] + sub x10, x9, $1 + cmp x10, 15 + bhi L(1) + ldr x11, [x29, 48] + cmp x9, 8 + and x10, x11, 7 + and x11, x11, -8 + add x9, x9, x10 + bhi L(15) + cmp x9, 8 + lsl w9, w9, 3 + bhi L(16) + mov x12, 2 + sub w9, w9, $1 + lsl x9, x12, x9 + ldr x11, [x11] + sub x9, x9, $1 + lsl w10, w10, 3 + and x9, x9, x11 + asr x0, x9, x10 +L(1): + ldp x29, x30, [sp], 256 + ret + .p2align 3 +L(25): + ldrb w0, [x29, 24] + ldp x29, x30, [sp], 256 + ret + .p2align 3 +L(27): + ldr x0, [x29, 24] + b L(1) + .p2align 3 +L(29): + ldrsb x0, [x29, 24] + b L(1) + .p2align 3 +L(30): + ldrsh x0, [x29, 24] + b L(1) + .p2align 3 +L(31): + ldrh w0, [x29, 24] + b L(1) + .p2align 3 +L(32): + ldrsw x0, [x29, 24] + b L(1) + .p2align 3 +L(33): + ldr w0, [x29, 24] + b L(1) +L(34): + ldr s0, [x29, 24] + b L(1) +L(35): + ldr d0, [x29, 24] + b L(1) +L(15): + cmp x9, 16 + lsl w9, w9, 3 + bls L(36) + mov x13, 2 + sub w9, w9, $129 + ldp x14, x12, [x11, 8] + lsl x9, x13, x9 + lsl w15, w10, 3 + sub x9, x9, $1 + neg w10, w10, lsl 3 + ldr x11, [x11] + add w10, w10, 64 + and x9, x9, x12 + lsl x16, x14, x10 + asr x11, x11, x15 + asr x14, x14, x15 + lsl x10, x9, x10 + orr x0, x11, x16 + orr x1, x10, x14 + b L(1) +L(16): + mov w13, -8 + mov x14, 2 + sub w9, w9, $65 + lsl w15, w10, 3 + ldr x12, [x11, 8] + lsl x9, x14, x9 + mul w10, w13, w10 + sub x9, x9, $1 + ldr x11, [x11] + add w10, w10, 64 + and x9, x9, x12 + asr x11, x11, x15 + lsl x9, x9, x10 + orr x0, x9, x11 + b L(1) +L(36): + mov w13, -4 + mov x14, 2 + sub w9, w9, $65 + lsl w15, w10, 3 + ldr x12, [x11, 8] + lsl x9, x14, x9 + mul w10, w13, w10 + sub x9, x9, $1 + ldr x11, [x11] + add w10, w10, 32 + and x9, x9, x12 + asr x1, x9, x15 + lsl x9, x9, x10 + asr x11, x11, x15 + lsl x9, x9, x10 + orr x0, x11, x9 + b L(1) + FUNEND(vacall_receiver) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",%progbits +#endif diff --git a/vacall/vacall-arm64.c b/vacall/vacall-arm64.c new file mode 100644 index 0000000..e4264f8 --- /dev/null +++ b/vacall/vacall-arm64.c @@ -0,0 +1,229 @@ +/* vacall function for arm64 (a.k.a. aarch64) CPU */ + +/* + * Copyright 1995-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "vacall-internal.h" + +#ifdef REENTRANT +#define vacall_receiver callback_receiver +register struct { void (*vacall_function) (void*,va_alist); void* arg; } + * env __asm__("x18"); +#endif + +register __vaword* sret __asm__("x8"); /* structure return pointer */ + +register __vaword iarg1 __asm__("x0"); +register __vaword iarg2 __asm__("x1"); +register __vaword iarg3 __asm__("x2"); +register __vaword iarg4 __asm__("x3"); +register __vaword iarg5 __asm__("x4"); +register __vaword iarg6 __asm__("x5"); +register __vaword iarg7 __asm__("x6"); +register __vaword iarg8 __asm__("x7"); + +register float farg1 __asm__("s0"); +register float farg2 __asm__("s1"); +register float farg3 __asm__("s2"); +register float farg4 __asm__("s3"); +register float farg5 __asm__("s4"); +register float farg6 __asm__("s5"); +register float farg7 __asm__("s6"); +register float farg8 __asm__("s7"); + +register double darg1 __asm__("d0"); +register double darg2 __asm__("d1"); +register double darg3 __asm__("d2"); +register double darg4 __asm__("d3"); +register double darg5 __asm__("d4"); +register double darg6 __asm__("d5"); +register double darg7 __asm__("d6"); +register double darg8 __asm__("d7"); + +register __vaword iret __asm__("x0"); +register __vaword iret2 __asm__("x1"); +register float fret __asm__("s0"); +register double dret __asm__("d0"); + +#ifdef REENTRANT +static +#endif +void /* the return type is variable, not void! */ +vacall_receiver (__vaword word1, __vaword word2, __vaword word3, __vaword word4, + __vaword word5, __vaword word6, __vaword word7, __vaword word8, + __vaword firstword) +{ + __va_alist list; + /* Move the arguments passed in registers to temp storage. */ + list.iarg[0] = iarg1; + list.iarg[1] = iarg2; + list.iarg[2] = iarg3; + list.iarg[3] = iarg4; + list.iarg[4] = iarg5; + list.iarg[5] = iarg6; + list.iarg[6] = iarg7; + list.iarg[7] = iarg8; + list.farg[0] = farg1; + list.farg[1] = farg2; + list.farg[2] = farg3; + list.farg[3] = farg4; + list.farg[4] = farg5; + list.farg[5] = farg6; + list.farg[6] = farg7; + list.farg[7] = farg8; + list.darg[0] = darg1; + list.darg[1] = darg2; + list.darg[2] = darg3; + list.darg[3] = darg4; + list.darg[4] = darg5; + list.darg[5] = darg6; + list.darg[6] = darg7; + list.darg[7] = darg8; + /* Prepare the va_alist. */ + list.flags = 0; + list.aptr = (long)&firstword; + list.raddr = (void*)0; + list.rtype = __VAvoid; + list.structraddr = sret; + list.ianum = 0; + list.fanum = 0; + /* Call vacall_function. The macros do all the rest. */ +#ifndef REENTRANT + (*vacall_function) (&list); +#else /* REENTRANT */ + (*env->vacall_function) (env->arg,&list); +#endif + /* Put return value into proper register. */ + if (list.rtype == __VAvoid) { + } else + if (list.rtype == __VAchar) { + iret = list.tmp._char; + } else + if (list.rtype == __VAschar) { + iret = list.tmp._schar; + } else + if (list.rtype == __VAuchar) { + iret = list.tmp._uchar; + } else + if (list.rtype == __VAshort) { + iret = list.tmp._short; + } else + if (list.rtype == __VAushort) { + iret = list.tmp._ushort; + } else + if (list.rtype == __VAint) { + iret = list.tmp._int; + } else + if (list.rtype == __VAuint) { + iret = list.tmp._uint; + } else + if (list.rtype == __VAlong || list.rtype == __VAlonglong) { + iret = list.tmp._long; + } else + if (list.rtype == __VAulong || list.rtype == __VAulonglong) { + iret = list.tmp._ulong; + } else + if (list.rtype == __VAfloat) { + fret = list.tmp._float; + } else + if (list.rtype == __VAdouble) { + dret = list.tmp._double; + } else + if (list.rtype == __VAvoidp) { + iret = (long)list.tmp._ptr; + } else + if (list.rtype == __VAstruct) { + /* normal struct return convention */ + if (list.flags & __VA_REGISTER_STRUCT_RETURN) { + /* Return structs of size <= 16 in registers. */ + if (list.rsize > 0 && list.rsize <= 16) { + #if 0 /* Unoptimized */ + iret = (__vaword)((unsigned char *) list.raddr)[0]; + if (list.rsize >= 2) + iret |= (__vaword)((unsigned char *) list.raddr)[1] << 8; + if (list.rsize >= 3) + iret |= (__vaword)((unsigned char *) list.raddr)[2] << 16; + if (list.rsize >= 4) + iret |= (__vaword)((unsigned char *) list.raddr)[3] << 24; + if (list.rsize >= 5) + iret |= (__vaword)((unsigned char *) list.raddr)[4] << 32; + if (list.rsize >= 6) + iret |= (__vaword)((unsigned char *) list.raddr)[5] << 40; + if (list.rsize >= 7) + iret |= (__vaword)((unsigned char *) list.raddr)[6] << 48; + if (list.rsize >= 8) + iret |= (__vaword)((unsigned char *) list.raddr)[7] << 56; + if (list.rsize >= 9) { + iret2 = (__vaword)((unsigned char *) list.raddr)[8]; + if (list.rsize >= 10) + iret2 |= (__vaword)((unsigned char *) list.raddr)[9] << 8; + if (list.rsize >= 11) + iret2 |= (__vaword)((unsigned char *) list.raddr)[10] << 16; + if (list.rsize >= 12) + iret2 |= (__vaword)((unsigned char *) list.raddr)[11] << 24; + if (list.rsize >= 13) + iret2 |= (__vaword)((unsigned char *) list.raddr)[12] << 32; + if (list.rsize >= 14) + iret2 |= (__vaword)((unsigned char *) list.raddr)[13] << 40; + if (list.rsize >= 15) + iret2 |= (__vaword)((unsigned char *) list.raddr)[14] << 48; + if (list.rsize >= 16) + iret2 |= (__vaword)((unsigned char *) list.raddr)[15] << 56; + } + #else /* Optimized: fewer conditional jumps, fewer memory accesses */ + uintptr_t count = list.rsize; /* > 0, ≤ 2*sizeof(__vaword) */ + __vaword* wordaddr = (__vaword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__vaword)-1)); + uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__vaword)-1); /* ≥ 0, < sizeof(__vaword) */ + uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__vaword) */ + if (count <= sizeof(__vaword)) { + /* Assign iret. */ + if (end_offset <= sizeof(__vaword)) { + /* 0 < end_offset ≤ sizeof(__vaword) */ + __vaword mask0 = ((__vaword)2 << (end_offset*8-1)) - 1; + iret = (wordaddr[0] & mask0) >> (start_offset*8); + } else { + /* sizeof(__vaword) < end_offset < 2*sizeof(__vaword), start_offset > 0 */ + __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; + iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*8-start_offset*8)); + } + } else { + /* Assign iret, iret2. */ + if (end_offset <= 2*sizeof(__vaword)) { + /* sizeof(__vaword) < end_offset ≤ 2*sizeof(__vaword) */ + __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; + iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*4-start_offset*4) << (sizeof(__vaword)*4-start_offset*4)); + iret2 = (wordaddr[1] & mask1) >> (start_offset*8); + } else { + /* 2*sizeof(__vaword) < end_offset < 3*sizeof(__vaword), start_offset > 0 */ + __vaword mask2 = ((__vaword)2 << (end_offset*8-2*sizeof(__vaword)*8-1)) - 1; + iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__vaword)*8-start_offset*8)); + iret2 = (wordaddr[1] >> (start_offset*8)) | ((wordaddr[2] & mask2) << (sizeof(__vaword)*8-start_offset*8)); + } + } + #endif + } + } + } +} + +#ifdef REENTRANT +__vacall_r_t +callback_get_receiver (void) +{ + return (__vacall_r_t)(void*)&callback_receiver; +} +#endif diff --git a/vacall/vacall-armhf-linux-pic.s b/vacall/vacall-armhf-linux-pic.s new file mode 100644 index 0000000..a591771 --- /dev/null +++ b/vacall/vacall-armhf-linux-pic.s @@ -0,0 +1,155 @@ + .arch armv6 + .eabi_attribute 28, 1 + .eabi_attribute 20, 1 + .eabi_attribute 21, 1 + .eabi_attribute 23, 3 + .eabi_attribute 24, 1 + .eabi_attribute 25, 1 + .eabi_attribute 26, 1 + .eabi_attribute 30, 2 + .eabi_attribute 34, 1 + .eabi_attribute 18, 4 + .file "vacall-armhf.c" + .text + .align 2 + .global vacall_receiver + .syntax unified + .arm + .fpu vfpv3-d16 + .type vacall_receiver, %function +vacall_receiver: + @ args = 20, pretend = 16, frame = 176 + @ frame_needed = 1, uses_anonymous_args = 0 + sub sp, sp, #16 + mov ip, #0 + push {r4, r5, r6, fp, lr} + add fp, sp, #16 + ldr r4, .L32 + ldr r5, .L32+4 + add lr, fp, #4 +.LPIC0: + add r4, pc, r4 + add r6, fp, #20 + sub sp, sp, #180 + stm lr, {r0, r1, r2, r3} + vstr.32 s0, [fp, #-152] + vstr.32 s1, [fp, #-148] + vstr.32 s2, [fp, #-144] + vstr.32 s3, [fp, #-140] + vstr.32 s4, [fp, #-136] + vstr.32 s5, [fp, #-132] + vstr.32 s6, [fp, #-128] + vstr.32 s7, [fp, #-124] + vstr.32 s8, [fp, #-120] + vstr.32 s9, [fp, #-116] + vstr.32 s10, [fp, #-112] + vstr.32 s11, [fp, #-108] + vstr.32 s12, [fp, #-104] + vstr.32 s13, [fp, #-100] + vstr.32 s14, [fp, #-96] + vstr.32 s15, [fp, #-92] + vstr.64 d0, [fp, #-84] + vstr.64 d1, [fp, #-76] + vstr.64 d2, [fp, #-68] + vstr.64 d3, [fp, #-60] + vstr.64 d4, [fp, #-52] + vstr.64 d5, [fp, #-44] + vstr.64 d6, [fp, #-36] + vstr.64 d7, [fp, #-28] + str lr, [fp, #-164] + str ip, [fp, #-196] + str ip, [fp, #-160] + str r6, [fp, #-180] + str ip, [fp, #-156] + str ip, [fp, #-176] + strb ip, [fp, #-172] + ldr r2, [r4, r5] + mov r3, r4 + sub r0, fp, #196 + ldr r3, [r2] + blx r3 + ldrb r3, [fp, #-172] @ zero_extendqisi2 + cmp r3, #0 + beq .L1 + cmp r3, #1 + beq .L25 + cmp r3, #2 + ldrsbeq r0, [fp, #-188] + beq .L1 + cmp r3, #3 + beq .L25 + cmp r3, #4 + ldrsheq r0, [fp, #-188] + beq .L1 + cmp r3, #5 + ldrheq r0, [fp, #-188] + beq .L1 + cmp r3, #6 + beq .L27 + cmp r3, #7 + beq .L27 + cmp r3, #8 + beq .L27 + cmp r3, #9 + beq .L27 + sub r2, r3, #10 + cmp r2, #1 + bls .L29 + cmp r3, #12 + vldreq.32 s0, [fp, #-188] + beq .L1 + cmp r3, #13 + beq .L30 + cmp r3, #14 + beq .L27 + cmp r3, #15 + bne .L1 + ldr r3, [fp, #-196] + tst r3, #1024 + beq .L1 + ldr r3, [fp, #-168] + cmp r3, #1 + beq .L31 + cmp r3, #2 + ldr r3, [fp, #-176] + ldrheq r0, [r3] + ldrne r0, [r3] +.L1: + sub sp, fp, #16 + @ sp needed + pop {r4, r5, r6, fp, lr} + add sp, sp, #16 + bx lr +.L25: + ldrb r0, [fp, #-188] @ zero_extendqisi2 + sub sp, fp, #16 + @ sp needed + pop {r4, r5, r6, fp, lr} + add sp, sp, #16 + bx lr +.L27: + ldr r0, [fp, #-188] + sub sp, fp, #16 + @ sp needed + pop {r4, r5, r6, fp, lr} + add sp, sp, #16 + bx lr +.L30: + vldr.64 d0, [fp, #-188] + b .L1 +.L29: + ldr r0, [fp, #-188] + ldr r1, [fp, #-184] + b .L1 +.L31: + ldr r3, [fp, #-176] + ldrb r0, [r3] @ zero_extendqisi2 + b .L1 +.L33: + .align 2 +.L32: + .word _GLOBAL_OFFSET_TABLE_-(.LPIC0+8) + .word vacall_function(GOT) + .size vacall_receiver, .-vacall_receiver + .ident "GCC: (GNU) 6.3.0" + .section .note.GNU-stack,"",%progbits diff --git a/vacall/vacall-armhf-linux.s b/vacall/vacall-armhf-linux.s new file mode 100644 index 0000000..46ac622 --- /dev/null +++ b/vacall/vacall-armhf-linux.s @@ -0,0 +1,149 @@ + .arch armv6 + .eabi_attribute 28, 1 + .eabi_attribute 20, 1 + .eabi_attribute 21, 1 + .eabi_attribute 23, 3 + .eabi_attribute 24, 1 + .eabi_attribute 25, 1 + .eabi_attribute 26, 1 + .eabi_attribute 30, 2 + .eabi_attribute 34, 1 + .eabi_attribute 18, 4 + .file "vacall-armhf.c" + .text + .align 2 + .global vacall_receiver + .syntax unified + .arm + .fpu vfpv3-d16 + .type vacall_receiver, %function +vacall_receiver: + @ args = 20, pretend = 16, frame = 176 + @ frame_needed = 1, uses_anonymous_args = 0 + sub sp, sp, #16 + mov ip, #0 + push {r4, r5, fp, lr} + add fp, sp, #12 + ldr r4, .L32 + add lr, fp, #4 + add r5, fp, #20 + sub sp, sp, #176 + stm lr, {r0, r1, r2, r3} + vstr.32 s0, [fp, #-144] + vstr.32 s1, [fp, #-140] + vstr.32 s2, [fp, #-136] + vstr.32 s3, [fp, #-132] + vstr.32 s4, [fp, #-128] + vstr.32 s5, [fp, #-124] + vstr.32 s6, [fp, #-120] + vstr.32 s7, [fp, #-116] + vstr.32 s8, [fp, #-112] + vstr.32 s9, [fp, #-108] + vstr.32 s10, [fp, #-104] + vstr.32 s11, [fp, #-100] + vstr.32 s12, [fp, #-96] + vstr.32 s13, [fp, #-92] + vstr.32 s14, [fp, #-88] + vstr.32 s15, [fp, #-84] + vstr.64 d0, [fp, #-76] + vstr.64 d1, [fp, #-68] + vstr.64 d2, [fp, #-60] + vstr.64 d3, [fp, #-52] + vstr.64 d4, [fp, #-44] + vstr.64 d5, [fp, #-36] + vstr.64 d6, [fp, #-28] + vstr.64 d7, [fp, #-20] + str lr, [fp, #-156] + str ip, [fp, #-188] + sub r0, fp, #188 + str ip, [fp, #-152] + ldr r3, [r4] + str r5, [fp, #-172] + str ip, [fp, #-148] + str ip, [fp, #-168] + strb ip, [fp, #-164] + blx r3 + ldrb r3, [fp, #-164] @ zero_extendqisi2 + cmp r3, #0 + beq .L1 + cmp r3, #1 + beq .L25 + cmp r3, #2 + ldrsbeq r0, [fp, #-180] + beq .L1 + cmp r3, #3 + beq .L25 + cmp r3, #4 + ldrsheq r0, [fp, #-180] + beq .L1 + cmp r3, #5 + ldrheq r0, [fp, #-180] + beq .L1 + cmp r3, #6 + beq .L27 + cmp r3, #7 + beq .L27 + cmp r3, #8 + beq .L27 + cmp r3, #9 + beq .L27 + sub r2, r3, #10 + cmp r2, #1 + bls .L29 + cmp r3, #12 + vldreq.32 s0, [fp, #-180] + beq .L1 + cmp r3, #13 + beq .L30 + cmp r3, #14 + beq .L27 + cmp r3, #15 + bne .L1 + ldr r3, [fp, #-188] + tst r3, #1024 + beq .L1 + ldr r3, [fp, #-160] + cmp r3, #1 + beq .L31 + cmp r3, #2 + ldr r3, [fp, #-168] + ldrheq r0, [r3] + ldrne r0, [r3] +.L1: + sub sp, fp, #12 + @ sp needed + pop {r4, r5, fp, lr} + add sp, sp, #16 + bx lr +.L25: + ldrb r0, [fp, #-180] @ zero_extendqisi2 + sub sp, fp, #12 + @ sp needed + pop {r4, r5, fp, lr} + add sp, sp, #16 + bx lr +.L27: + ldr r0, [fp, #-180] + sub sp, fp, #12 + @ sp needed + pop {r4, r5, fp, lr} + add sp, sp, #16 + bx lr +.L30: + vldr.64 d0, [fp, #-180] + b .L1 +.L29: + ldr r0, [fp, #-180] + ldr r1, [fp, #-176] + b .L1 +.L31: + ldr r3, [fp, #-168] + ldrb r0, [r3] @ zero_extendqisi2 + b .L1 +.L33: + .align 2 +.L32: + .word vacall_function + .size vacall_receiver, .-vacall_receiver + .ident "GCC: (GNU) 6.3.0" + .section .note.GNU-stack,"",%progbits diff --git a/vacall/vacall-armhf-macro.S b/vacall/vacall-armhf-macro.S new file mode 100644 index 0000000..b9bbb59 --- /dev/null +++ b/vacall/vacall-armhf-macro.S @@ -0,0 +1,305 @@ +#include "asm-arm.h" +#ifdef __PIC__ + .arch armv6 + .eabi_attribute 28, 1 + .eabi_attribute 20, 1 + .eabi_attribute 21, 1 + .eabi_attribute 23, 3 + .eabi_attribute 24, 1 + .eabi_attribute 25, 1 + .eabi_attribute 26, 1 + .eabi_attribute 30, 2 + .eabi_attribute 34, 1 + .eabi_attribute 18, 4 + .text + .align 2 + .global C(vacall_receiver) + .syntax unified + .arm + .fpu vfpv3-d16 + .type vacall_receiver, %function +FUNBEGIN(vacall_receiver) + // args = 20, pretend = 16, frame = 176 + // frame_needed = 1, uses_anonymous_args = 0 + sub sp, sp, $16 + mov ip, $0 + push {r4, r5, r6, fp, lr} + add fp, sp, $16 + ldr r4, L(32) + ldr r5, L(32)+4 + add lr, fp, $4 +L(PIC0): + add r4, pc, r4 + add r6, fp, $20 + sub sp, sp, $180 + stm lr, {r0, r1, r2, r3} + vstr.32 s0, [fp, $-152] + vstr.32 s1, [fp, $-148] + vstr.32 s2, [fp, $-144] + vstr.32 s3, [fp, $-140] + vstr.32 s4, [fp, $-136] + vstr.32 s5, [fp, $-132] + vstr.32 s6, [fp, $-128] + vstr.32 s7, [fp, $-124] + vstr.32 s8, [fp, $-120] + vstr.32 s9, [fp, $-116] + vstr.32 s10, [fp, $-112] + vstr.32 s11, [fp, $-108] + vstr.32 s12, [fp, $-104] + vstr.32 s13, [fp, $-100] + vstr.32 s14, [fp, $-96] + vstr.32 s15, [fp, $-92] + vstr.64 d0, [fp, $-84] + vstr.64 d1, [fp, $-76] + vstr.64 d2, [fp, $-68] + vstr.64 d3, [fp, $-60] + vstr.64 d4, [fp, $-52] + vstr.64 d5, [fp, $-44] + vstr.64 d6, [fp, $-36] + vstr.64 d7, [fp, $-28] + str lr, [fp, $-164] + str ip, [fp, $-196] + str ip, [fp, $-160] + str r6, [fp, $-180] + str ip, [fp, $-156] + str ip, [fp, $-176] + strb ip, [fp, $-172] + ldr r2, [r4, r5] + mov r3, r4 + sub r0, fp, $196 + ldr r3, [r2] + blx r3 + ldrb r3, [fp, $-172] // zero_extendqisi2 + cmp r3, $0 + beq L(1) + cmp r3, $1 + beq L(25) + cmp r3, $2 + ldrsbeq r0, [fp, $-188] + beq L(1) + cmp r3, $3 + beq L(25) + cmp r3, $4 + ldrsheq r0, [fp, $-188] + beq L(1) + cmp r3, $5 + ldrheq r0, [fp, $-188] + beq L(1) + cmp r3, $6 + beq L(27) + cmp r3, $7 + beq L(27) + cmp r3, $8 + beq L(27) + cmp r3, $9 + beq L(27) + sub r2, r3, $10 + cmp r2, $1 + bls L(29) + cmp r3, $12 + vldreq.32 s0, [fp, $-188] + beq L(1) + cmp r3, $13 + beq L(30) + cmp r3, $14 + beq L(27) + cmp r3, $15 + bne L(1) + ldr r3, [fp, $-196] + tst r3, $1024 + beq L(1) + ldr r3, [fp, $-168] + cmp r3, $1 + beq L(31) + cmp r3, $2 + ldr r3, [fp, $-176] + ldrheq r0, [r3] + ldrne r0, [r3] +L(1): + sub sp, fp, $16 + // sp needed + pop {r4, r5, r6, fp, lr} + add sp, sp, $16 + bx lr +L(25): + ldrb r0, [fp, $-188] // zero_extendqisi2 + sub sp, fp, $16 + // sp needed + pop {r4, r5, r6, fp, lr} + add sp, sp, $16 + bx lr +L(27): + ldr r0, [fp, $-188] + sub sp, fp, $16 + // sp needed + pop {r4, r5, r6, fp, lr} + add sp, sp, $16 + bx lr +L(30): + vldr.64 d0, [fp, $-188] + b L(1) +L(29): + ldr r0, [fp, $-188] + ldr r1, [fp, $-184] + b L(1) +L(31): + ldr r3, [fp, $-176] + ldrb r0, [r3] // zero_extendqisi2 + b L(1) +L(33): + .align 2 +L(32): + .word _GLOBAL_OFFSET_TABLE_-(L(PIC0)+8) + .word C(vacall_function)(GOT) + FUNEND(vacall_receiver) +#else + .arch armv6 + .eabi_attribute 28, 1 + .eabi_attribute 20, 1 + .eabi_attribute 21, 1 + .eabi_attribute 23, 3 + .eabi_attribute 24, 1 + .eabi_attribute 25, 1 + .eabi_attribute 26, 1 + .eabi_attribute 30, 2 + .eabi_attribute 34, 1 + .eabi_attribute 18, 4 + .text + .align 2 + .global C(vacall_receiver) + .syntax unified + .arm + .fpu vfpv3-d16 + .type vacall_receiver, %function +FUNBEGIN(vacall_receiver) + // args = 20, pretend = 16, frame = 176 + // frame_needed = 1, uses_anonymous_args = 0 + sub sp, sp, $16 + mov ip, $0 + push {r4, r5, fp, lr} + add fp, sp, $12 + ldr r4, L(32) + add lr, fp, $4 + add r5, fp, $20 + sub sp, sp, $176 + stm lr, {r0, r1, r2, r3} + vstr.32 s0, [fp, $-144] + vstr.32 s1, [fp, $-140] + vstr.32 s2, [fp, $-136] + vstr.32 s3, [fp, $-132] + vstr.32 s4, [fp, $-128] + vstr.32 s5, [fp, $-124] + vstr.32 s6, [fp, $-120] + vstr.32 s7, [fp, $-116] + vstr.32 s8, [fp, $-112] + vstr.32 s9, [fp, $-108] + vstr.32 s10, [fp, $-104] + vstr.32 s11, [fp, $-100] + vstr.32 s12, [fp, $-96] + vstr.32 s13, [fp, $-92] + vstr.32 s14, [fp, $-88] + vstr.32 s15, [fp, $-84] + vstr.64 d0, [fp, $-76] + vstr.64 d1, [fp, $-68] + vstr.64 d2, [fp, $-60] + vstr.64 d3, [fp, $-52] + vstr.64 d4, [fp, $-44] + vstr.64 d5, [fp, $-36] + vstr.64 d6, [fp, $-28] + vstr.64 d7, [fp, $-20] + str lr, [fp, $-156] + str ip, [fp, $-188] + sub r0, fp, $188 + str ip, [fp, $-152] + ldr r3, [r4] + str r5, [fp, $-172] + str ip, [fp, $-148] + str ip, [fp, $-168] + strb ip, [fp, $-164] + blx r3 + ldrb r3, [fp, $-164] // zero_extendqisi2 + cmp r3, $0 + beq L(1) + cmp r3, $1 + beq L(25) + cmp r3, $2 + ldrsbeq r0, [fp, $-180] + beq L(1) + cmp r3, $3 + beq L(25) + cmp r3, $4 + ldrsheq r0, [fp, $-180] + beq L(1) + cmp r3, $5 + ldrheq r0, [fp, $-180] + beq L(1) + cmp r3, $6 + beq L(27) + cmp r3, $7 + beq L(27) + cmp r3, $8 + beq L(27) + cmp r3, $9 + beq L(27) + sub r2, r3, $10 + cmp r2, $1 + bls L(29) + cmp r3, $12 + vldreq.32 s0, [fp, $-180] + beq L(1) + cmp r3, $13 + beq L(30) + cmp r3, $14 + beq L(27) + cmp r3, $15 + bne L(1) + ldr r3, [fp, $-188] + tst r3, $1024 + beq L(1) + ldr r3, [fp, $-160] + cmp r3, $1 + beq L(31) + cmp r3, $2 + ldr r3, [fp, $-168] + ldrheq r0, [r3] + ldrne r0, [r3] +L(1): + sub sp, fp, $12 + // sp needed + pop {r4, r5, fp, lr} + add sp, sp, $16 + bx lr +L(25): + ldrb r0, [fp, $-180] // zero_extendqisi2 + sub sp, fp, $12 + // sp needed + pop {r4, r5, fp, lr} + add sp, sp, $16 + bx lr +L(27): + ldr r0, [fp, $-180] + sub sp, fp, $12 + // sp needed + pop {r4, r5, fp, lr} + add sp, sp, $16 + bx lr +L(30): + vldr.64 d0, [fp, $-180] + b L(1) +L(29): + ldr r0, [fp, $-180] + ldr r1, [fp, $-176] + b L(1) +L(31): + ldr r3, [fp, $-168] + ldrb r0, [r3] // zero_extendqisi2 + b L(1) +L(33): + .align 2 +L(32): + .word C(vacall_function) + FUNEND(vacall_receiver) +#endif +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",%progbits +#endif diff --git a/vacall/vacall-armhf.c b/vacall/vacall-armhf.c new file mode 100644 index 0000000..3c232b4 --- /dev/null +++ b/vacall/vacall-armhf.c @@ -0,0 +1,195 @@ +/* vacall function for arm CPU with -mfloat-abi=hard */ + +/* + * Copyright 1995-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "vacall-internal.h" + +#ifdef REENTRANT +#define vacall_receiver callback_receiver +typedef struct { void (*vacall_function) (void*,va_alist); void* arg; } env_t; +#endif + +/* armhf passes up to 16 float arguments and up to 8 double arguments + in floating-point registers. */ +register float farg0 __asm__("s0"); +register float farg1 __asm__("s1"); +register float farg2 __asm__("s2"); +register float farg3 __asm__("s3"); +register float farg4 __asm__("s4"); +register float farg5 __asm__("s5"); +register float farg6 __asm__("s6"); +register float farg7 __asm__("s7"); +register float farg8 __asm__("s8"); +register float farg9 __asm__("s9"); +register float farg10 __asm__("s10"); +register float farg11 __asm__("s11"); +register float farg12 __asm__("s12"); +register float farg13 __asm__("s13"); +register float farg14 __asm__("s14"); +register float farg15 __asm__("s15"); +register double darg0 __asm__("d0"); /* overlaps s0,s1 */ +register double darg1 __asm__("d1"); /* overlaps s2,s3 */ +register double darg2 __asm__("d2"); /* overlaps s4,s5 */ +register double darg3 __asm__("d3"); /* overlaps s6,s7 */ +register double darg4 __asm__("d4"); /* overlaps s8,s9 */ +register double darg5 __asm__("d5"); /* overlaps s10,s11 */ +register double darg6 __asm__("d6"); /* overlaps s12,s13 */ +register double darg7 __asm__("d7"); /* overlaps s14,s15 */ +register __vaword iret __asm__("r0"); +register __vaword iret2 __asm__("r1"); +register float fret __asm__("s0"); +register double dret __asm__("d0"); + +#ifndef REENTRANT +/* The ARM ABI requires that the first 4 general-purpose argument words are + being passed in registers, even if these words belong to a struct. No room + is allocated for these register words on the stack by the caller, but the + callee allocates room for them - at the right place in the stack frame, + that is, above the usual {fp, sp, retaddr, pc} combo - if and only if + they are part of a larger struct that extends to the stack and the address + of this struct is taken. */ +struct gpargsequence { + __vaword word1; /* r0 */ + __vaword word2; /* r1 */ + __vaword word3; /* r2 */ + __vaword word4; /* r3 */ + __vaword firststackword; +}; + +#ifdef REENTRANT +static +#endif +void /* the return type is variable, not void! */ +vacall_receiver (struct gpargsequence gpargs) +#else /* REENTRANT */ +/* The first 4 general-purpose argument words have already been pushed to the + stack by the trampoline. We can ignore them here. */ +void /* the return type is variable, not void! */ +vacall_receiver (__vaword ignored1, __vaword ignored2, __vaword ignored3, __vaword ignored4, + env_t* env, __vaword filler, __vaword saved_fp, __vaword saved_sp, __vaword saved_lr, __vaword saved_pc, + __vaword firstword) +#endif +{ + __va_alist list; + /* Save the floating point argument registers. */ + list.farg[0] = farg0; + list.farg[1] = farg1; + list.farg[2] = farg2; + list.farg[3] = farg3; + list.farg[4] = farg4; + list.farg[5] = farg5; + list.farg[6] = farg6; + list.farg[7] = farg7; + list.farg[8] = farg8; + list.farg[9] = farg9; + list.farg[10] = farg10; + list.farg[11] = farg11; + list.farg[12] = farg12; + list.farg[13] = farg13; + list.farg[14] = farg14; + list.farg[15] = farg15; + list.darg[0] = darg0; + list.darg[1] = darg1; + list.darg[2] = darg2; + list.darg[3] = darg3; + list.darg[4] = darg4; + list.darg[5] = darg5; + list.darg[6] = darg6; + list.darg[7] = darg7; + /* Prepare the va_alist. */ + list.flags = 0; +#ifndef REENTRANT + list.iarg = (__vaword*)&gpargs; +#else /* REENTRANT */ + list.iarg = (__vaword*)&firstword; +#endif + list.aptr = (long)(list.iarg + __VA_IARG_NUM); + list.ianum = 0; + list.fanum = 0; + list.raddr = (void*)0; + list.rtype = __VAvoid; + /* Call vacall_function. The macros do all the rest. */ +#ifndef REENTRANT + (*vacall_function) (&list); +#else /* REENTRANT */ + (*env->vacall_function) (env->arg,&list); +#endif + /* Put return value into proper register. */ + if (list.rtype == __VAvoid) { + } else + if (list.rtype == __VAchar) { + iret = list.tmp._char; + } else + if (list.rtype == __VAschar) { + iret = list.tmp._schar; + } else + if (list.rtype == __VAuchar) { + iret = list.tmp._uchar; + } else + if (list.rtype == __VAshort) { + iret = list.tmp._short; + } else + if (list.rtype == __VAushort) { + iret = list.tmp._ushort; + } else + if (list.rtype == __VAint) { + iret = list.tmp._int; + } else + if (list.rtype == __VAuint) { + iret = list.tmp._uint; + } else + if (list.rtype == __VAlong) { + iret = list.tmp._long; + } else + if (list.rtype == __VAulong) { + iret = list.tmp._ulong; + } else + if (list.rtype == __VAlonglong || list.rtype == __VAulonglong) { + iret = ((__vaword *) &list.tmp._longlong)[0]; + iret2 = ((__vaword *) &list.tmp._longlong)[1]; + } else + if (list.rtype == __VAfloat) { + fret = list.tmp._float; + } else + if (list.rtype == __VAdouble) { + dret = list.tmp._double; + } else + if (list.rtype == __VAvoidp) { + iret = (long)list.tmp._ptr; + } else + if (list.rtype == __VAstruct) { + /* NB: On arm, all structure sizes are divisible by 4. */ + if (list.flags & __VA_REGISTER_STRUCT_RETURN) { + if (list.rsize == sizeof(char)) { /* can't occur */ + iret = *(unsigned char *) list.raddr; + } else + if (list.rsize == sizeof(short)) { /* can't occur */ + iret = *(unsigned short *) list.raddr; + } else + iret = *(unsigned int *) list.raddr; /* struct of size 3 :) */ + } + } +} + +#ifdef REENTRANT +__vacall_r_t +callback_get_receiver (void) +{ + return (__vacall_r_t)(void*)&callback_receiver; +} +#endif diff --git a/vacall/vacall-hppa-linux.s b/vacall/vacall-hppa-linux.s new file mode 100644 index 0000000..fb9c5be --- /dev/null +++ b/vacall/vacall-hppa-linux.s @@ -0,0 +1,182 @@ + .LEVEL 1.1 + .text + .align 4 +.globl vacall_receiver + .type vacall_receiver,@function +vacall_receiver: + .PROC + .CALLINFO FRAME=192,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=3 + .ENTRY + copy %r3,%r1 + stw %r2,-20(%r30) + copy %r30,%r3 + stwm %r1,192(%r30) + addil LR'vacall_function-$global$,%r27 + ldo -32(%r3),%r2 + ldo 16(%r3),%r22 + sub %r22,%r2,%r20 + ldo 104(%r3),%r19 + ldo 72(%r3),%r21 + ldo 80(%r20),%r31 + fstds %fr5,-16(%r19) + ldo 64(%r20),%r20 + ldo -48(%r3),%r19 + stw %r26,-36(%r3) + copy %r22,%r26 + stw %r20,56(%r3) + fstws %fr7L,-8(%r21) + stw %r19,52(%r3) + stw %r31,60(%r3) + stw %r25,-40(%r3) + stw %r24,-44(%r3) + stw %r23,-48(%r3) + fstds %fr7,8(%r21) + fstws %fr4L,4(%r21) + fstws %fr5L,0(%r21) + fstws %fr6L,-4(%r21) + stw %r0,16(%r3) + stw %r2,32(%r3) + stw %r0,36(%r3) + stw %r0,40(%r3) + stw %r28,48(%r3) + ldw RR'vacall_function-$global$(%r1),%r22 + .CALL ARGW0=GR + bl $$dyncall,%r31 + copy %r31,%r2 + ldw 40(%r3),%r20 + comib,= 0,%r20,.L48 + ldw -20(%r3),%r2 + comib,= 1,%r20,.L49 + ldb 24(%r3),%r19 + comib,=,n 2,%r20,.L49 + comib,=,n 3,%r20,.L43 + comib,=,n 4,%r20,.L44 + comib,=,n 5,%r20,.L45 + comib,=,n 6,%r20,.L41 + comib,=,n 7,%r20,.L41 + comib,=,n 8,%r20,.L41 + comib,= 9,%r20,.L41 + ldo -10(%r20),%r19 + comib,<<,n 1,%r19,.L22 + ldw 24(%r3),%r28 +.L40: + ldw 28(%r3),%r29 +.L1: + ldw -20(%r3),%r2 +.L48: + ldo 64(%r3),%r30 + bv %r0(%r2) + ldwm -64(%r30),%r3 +.L22: + comib,= 12,%r20,.L46 + ldo 40(%r3),%r19 + comib,=,n 13,%r20,.L47 + comib,=,n 14,%r20,.L1 + ldw 24(%r3),%r28 + comib,<> 15,%r20,.L48 + ldw -20(%r3),%r2 + ldw 16(%r3),%r19 + bb,>= %r19,30,.L1 + ldw 44(%r3),%r2 + ldo -1(%r2),%r19 + comib,<< 7,%r19,.L1 + ldw 36(%r3),%r19 + extru %r19,31,2,%r22 + copy %r19,%r31 + depi 0,31,2,%r31 + comib,<< 4,%r2,.L33 + addl %r22,%r2,%r1 + zdep %r22,28,29,%r22 + mtsar %r22 + zvdepi 2,32,%r19 + comib,<< 4,%r1,.L34 + ldo -1(%r19),%r22 + ldw 0(%r31),%r19 + zdep %r1,28,29,%r20 + ldo -1(%r20),%r20 + and %r19,%r22,%r19 + mtsar %r20 + vextrs %r19,32,%r19 + movb,tr %r19,%r28,.L48 + ldw -20(%r3),%r2 +.L34: + ldw 0(%r31),%r19 + zdep %r1,28,29,%r21 + ldw 4(%r31),%r20 + and %r19,%r22,%r19 + ldo -33(%r21),%r31 + subi 63,%r21,%r21 + mtsar %r21 + zvdep %r19,32,%r19 + mtsar %r31 + vextrs %r20,32,%r20 +.L39: + b .L1 + or %r20,%r19,%r28 +.L33: + zdep %r22,28,29,%r22 + mtsar %r22 + zvdepi 2,32,%r19 + comib,<< 8,%r1,.L37 + ldo -1(%r19),%r2 + ldw 0(%r31),%r21 + zdep %r1,29,30,%r19 + and %r21,%r2,%r21 + ldw 4(%r31),%r22 + subi 47,%r19,%r2 + zdep %r1,28,29,%r19 + mtsar %r2 + ldo -33(%r19),%r19 + zvdep %r21,32,%r20 + zvdep %r20,32,%r20 + mtsar %r19 + vextrs %r22,32,%r22 + vextrs %r21,32,%r21 + movb,tr %r21,%r28,.L1 + or %r20,%r22,%r29 +.L37: + ldw 0(%r31),%r20 + zdep %r1,28,29,%r22 + ldw 8(%r31),%r21 + and %r20,%r2,%r20 + ldo -65(%r22),%r2 + ldw 4(%r31),%r19 + mtsar %r2 + subi 95,%r22,%r31 + vextrs %r21,32,%r21 + mtsar %r31 + zvdep %r19,32,%r22 + zvdep %r20,32,%r20 + or %r22,%r21,%r29 + mtsar %r2 + b .L39 + vextrs %r19,32,%r19 +.L41: + b .L1 + ldw 24(%r3),%r28 +.L47: + ldw 24(%r3),%r28 + b .L40 + fldds -16(%r19),%fr4 +.L46: + ldw 24(%r3),%r28 + b .L1 + fldws -16(%r19),%fr4L +.L45: + b .L1 + ldh 24(%r3),%r28 +.L44: + ldh 24(%r3),%r19 + b .L1 + extrs %r19,31,16,%r28 +.L43: + b .L1 + ldb 24(%r3),%r28 +.L49: + b .L1 + extrs %r19,31,8,%r28 + .EXIT + .PROCEND +.Lfe1: + .size vacall_receiver,.Lfe1-vacall_receiver + .ident "GCC: (GNU) 3.1" diff --git a/vacall/vacall-hppa-macro.S b/vacall/vacall-hppa-macro.S new file mode 100644 index 0000000..da42725 --- /dev/null +++ b/vacall/vacall-hppa-macro.S @@ -0,0 +1,188 @@ +#include "asm-hppa.h" + .LEVEL 1.1 + IMPORT_MILLICODE($$dyncall) + TEXT1() + TEXT2() + .align 4 +GLOBL(vacall_receiver) + DECLARE_FUNCTION(vacall_receiver) +DEF(vacall_receiver) + .PROC + .CALLINFO FRAME=192,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=3 + .ENTRY + copy %r3,%r1 + stw %r2,-20(%r30) + copy %r30,%r3 + stwm %r1,192(%r30) + addil LR!vacall_function-$global$,%r27 + ldo -32(%r3),%r2 + ldo 16(%r3),%r22 + sub %r22,%r2,%r20 + ldo 104(%r3),%r19 + ldo 72(%r3),%r21 + ldo 80(%r20),%r31 + fstds %fr5,-16(%r19) + ldo 64(%r20),%r20 + ldo -48(%r3),%r19 + stw %r26,-36(%r3) + copy %r22,%r26 + stw %r20,56(%r3) + fstws %fr7L,-8(%r21) + stw %r19,52(%r3) + stw %r31,60(%r3) + stw %r25,-40(%r3) + stw %r24,-44(%r3) + stw %r23,-48(%r3) + fstds %fr7,8(%r21) + fstws %fr4L,4(%r21) + fstws %fr5L,0(%r21) + fstws %fr6L,-4(%r21) + stw %r0,16(%r3) + stw %r2,32(%r3) + stw %r0,36(%r3) + stw %r0,40(%r3) + stw %r28,48(%r3) + ldw RR!vacall_function-$global$(%r1),%r22 + .CALL ARGW0=GR + bl $$dyncall,%r31 + copy %r31,%r2 + ldw 40(%r3),%r20 + comib,= 0,%r20,L(48) + ldw -20(%r3),%r2 + comib,= 1,%r20,L(49) + ldb 24(%r3),%r19 + comib,=,n 2,%r20,L(49) + comib,=,n 3,%r20,L(43) + comib,=,n 4,%r20,L(44) + comib,=,n 5,%r20,L(45) + comib,=,n 6,%r20,L(41) + comib,=,n 7,%r20,L(41) + comib,=,n 8,%r20,L(41) + comib,= 9,%r20,L(41) + ldo -10(%r20),%r19 + comib,<<,n 1,%r19,L(22) + ldw 24(%r3),%r28 +DEF(L(40)) + ldw 28(%r3),%r29 +DEF(L(1)) + ldw -20(%r3),%r2 +DEF(L(48)) + ldo 64(%r3),%r30 + bv %r0(%r2) + ldwm -64(%r30),%r3 +DEF(L(22)) + comib,= 12,%r20,L(46) + ldo 40(%r3),%r19 + comib,=,n 13,%r20,L(47) + comib,=,n 14,%r20,L(1) + ldw 24(%r3),%r28 + comib,<> 15,%r20,L(48) + ldw -20(%r3),%r2 + ldw 16(%r3),%r19 + bb,>= %r19,30,L(1) + ldw 44(%r3),%r2 + ldo -1(%r2),%r19 + comib,<< 7,%r19,L(1) + ldw 36(%r3),%r19 + extru %r19,31,2,%r22 + copy %r19,%r31 + depi 0,31,2,%r31 + comib,<< 4,%r2,L(33) + addl %r22,%r2,%r1 + zdep %r22,28,29,%r22 + mtsar %r22 + zvdepi 2,32,%r19 + comib,<< 4,%r1,L(34) + ldo -1(%r19),%r22 + ldw 0(%r31),%r19 + zdep %r1,28,29,%r20 + ldo -1(%r20),%r20 + and %r19,%r22,%r19 + mtsar %r20 + vextrs %r19,32,%r19 + movb,tr %r19,%r28,L(48) + ldw -20(%r3),%r2 +DEF(L(34)) + ldw 0(%r31),%r19 + zdep %r1,28,29,%r21 + ldw 4(%r31),%r20 + and %r19,%r22,%r19 + ldo -33(%r21),%r31 + subi 63,%r21,%r21 + mtsar %r21 + zvdep %r19,32,%r19 + mtsar %r31 + vextrs %r20,32,%r20 +DEF(L(39)) + b L(1) + or %r20,%r19,%r28 +DEF(L(33)) + zdep %r22,28,29,%r22 + mtsar %r22 + zvdepi 2,32,%r19 + comib,<< 8,%r1,L(37) + ldo -1(%r19),%r2 + ldw 0(%r31),%r21 + zdep %r1,29,30,%r19 + and %r21,%r2,%r21 + ldw 4(%r31),%r22 + subi 47,%r19,%r2 + zdep %r1,28,29,%r19 + mtsar %r2 + ldo -33(%r19),%r19 + zvdep %r21,32,%r20 + zvdep %r20,32,%r20 + mtsar %r19 + vextrs %r22,32,%r22 + vextrs %r21,32,%r21 + movb,tr %r21,%r28,L(1) + or %r20,%r22,%r29 +DEF(L(37)) + ldw 0(%r31),%r20 + zdep %r1,28,29,%r22 + ldw 8(%r31),%r21 + and %r20,%r2,%r20 + ldo -65(%r22),%r2 + ldw 4(%r31),%r19 + mtsar %r2 + subi 95,%r22,%r31 + vextrs %r21,32,%r21 + mtsar %r31 + zvdep %r19,32,%r22 + zvdep %r20,32,%r20 + or %r22,%r21,%r29 + mtsar %r2 + b L(39) + vextrs %r19,32,%r19 +DEF(L(41)) + b L(1) + ldw 24(%r3),%r28 +DEF(L(47)) + ldw 24(%r3),%r28 + b L(40) + fldds -16(%r19),%fr4 +DEF(L(46)) + ldw 24(%r3),%r28 + b L(1) + fldws -16(%r19),%fr4L +DEF(L(45)) + b L(1) + ldh 24(%r3),%r28 +DEF(L(44)) + ldh 24(%r3),%r19 + b L(1) + extrs %r19,31,16,%r28 +DEF(L(43)) + b L(1) + ldb 24(%r3),%r28 +DEF(L(49)) + b L(1) + extrs %r19,31,8,%r28 + .EXIT + .PROCEND +DEF(L(fe1)) + FUNEND(vacall_receiver) +IMPORT_DATA(vacall_function) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/vacall/vacall-hppa.c b/vacall/vacall-hppa.c new file mode 100644 index 0000000..50d70b5 --- /dev/null +++ b/vacall/vacall-hppa.c @@ -0,0 +1,256 @@ +/* vacall function for hppa CPU */ + +/* + * Copyright 1995-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +/*--------------------------------------------------------------------------- + HPPA Argument Passing Conventions: + + The calling conventions for anonymous functions and for explicitly named + functions are different. Only the convention for explicitly named functions + matters here. + + All arguments, except the first 4 words, are passed on the stack + - growing down! - with word alignment. Doubles take two words and force + double alignment. Structures args are passed as true structures embedded + in the argument stack. They force double alignment and - if they don't + fit entirely in the 4 register words - are passed in memory. + The first 2 words are passed like this: + %r26 = first integer arg, %r25 = second integer arg, or + %fr4L = first float arg, %fr5L = second float arg, or + %fr5 = double arg. + Similarly for the next 2 words, passed in %r24 and %r23, or + %fr6L and %fr7L, or + %fr7. + + To return a structure, the called function copies the return value to + the address supplied in register "%r28". +---------------------------------------------------------------------------*/ + +#include "vacall-internal.h" + +#ifdef REENTRANT +#define vacall_receiver callback_receiver +register struct { void (*vacall_function) (void*,va_alist); void* arg; } + * env __asm__("%r29"); +#endif +register void* sret __asm__("%r28"); +register long arg1 __asm__("%r26"); +register long arg2 __asm__("%r25"); +register long arg3 __asm__("%r24"); +register long arg4 __asm__("%r23"); +register float farg1 __asm__("%fr4"); /* fr4L */ +register float farg2 __asm__("%fr5"); /* fr5L */ +register float farg3 __asm__("%fr6"); /* fr6L */ +register float farg4 __asm__("%fr7"); /* fr7L */ +register double darg1 __asm__("%fr5"); +register double darg2 __asm__("%fr7"); +register int iret __asm__("%r28"); +register float fret __asm__("%fr4"); /* fr4L */ +register double dret __asm__("%fr4"); +register __vaword iret1 __asm__("%r28"); +register __vaword iret2 __asm__("%r29"); + +#ifdef REENTRANT +static +#endif +void /* the return type is variable, not void! */ +vacall_receiver (__vaword word1, __vaword word2, __vaword word3, __vaword word4, + __vaword firstword) +{ + /* gcc-2.6.3 source says: When a parameter is passed in a register, + * stack space is still allocated for it. + */ + /* Note about stack offsets (see vacall-hppa.s): + * &firstword = %r30 - 244, &word4 = %r30 - 240, ..., &word1 = %r30 - 228, + */ + __va_alist list; + /* Move the arguments passed in registers to their stack locations. */ + (&firstword)[4] = word1; + (&firstword)[3] = word2; + (&firstword)[2] = word3; + (&firstword)[1] = word4; + list.darg[1] = darg1; + list.darg[0] = darg2; + list.farg[3] = farg1; + list.farg[2] = farg2; + list.farg[1] = farg3; + list.farg[0] = farg4; + /* Prepare the va_alist. */ + list.flags = 0; + list.aptr = (long)(&firstword + 5); + list.raddr = (void*)0; + list.rtype = __VAvoid; + list.structraddr = sret; + list.memargptr = (long)(&firstword + 1); + list.farg_offset = (long)&list.farg[4] - list.aptr; + list.darg_offset = (long)&list.darg[2] - list.aptr; + /* Call vacall_function. The macros do all the rest. */ +#ifndef REENTRANT + (*vacall_function) (&list); +#else /* REENTRANT */ + (*env->vacall_function) (env->arg,&list); +#endif + /* Put return value into proper register. */ + if (list.rtype == __VAvoid) { + } else + if (list.rtype == __VAchar) { + iret = list.tmp._char; + } else + if (list.rtype == __VAschar) { + iret = list.tmp._schar; + } else + if (list.rtype == __VAuchar) { + iret = list.tmp._uchar; + } else + if (list.rtype == __VAshort) { + iret = list.tmp._short; + } else + if (list.rtype == __VAushort) { + iret = list.tmp._ushort; + } else + if (list.rtype == __VAint) { + iret = list.tmp._int; + } else + if (list.rtype == __VAuint) { + iret = list.tmp._uint; + } else + if (list.rtype == __VAlong) { + iret = list.tmp._long; + } else + if (list.rtype == __VAulong) { + iret = list.tmp._ulong; + } else + if (list.rtype == __VAlonglong || list.rtype == __VAulonglong) { + iret1 = ((__vaword *) &list.tmp._longlong)[0]; + iret2 = ((__vaword *) &list.tmp._longlong)[1]; + } else + if (list.rtype == __VAfloat) { + fret = list.tmp._float; + iret1 = list.tmp._words[0]; /* HP cc generates a RTNVAL=GR call */ + } else + if (list.rtype == __VAdouble) { + dret = list.tmp._double; + iret1 = list.tmp._words[0]; /* HP cc generates a RTNVAL=GR call */ + iret2 = list.tmp._words[1]; /* i.e. result is expected in r28,r29 */ + } else + if (list.rtype == __VAvoidp) { + iret = (long)list.tmp._ptr; + } else + if (list.rtype == __VAstruct) { + if (list.flags & __VA_SMALL_STRUCT_RETURN) { + /* cc, c89 and gcc >= 2.7 return structs of size <= 8 in registers. */ + /* This is really weird code, unlike all other big-endian platforms. */ + if (list.rsize > 0 && list.rsize <= 8) { + #if 0 /* Unoptimized */ + if (list.rsize == 1) { + iret = ((unsigned char *) list.raddr)[0]; + } else + if (list.rsize == 2) { + iret = (((unsigned char *) list.raddr)[0] << 8) + | ((unsigned char *) list.raddr)[1]; + } else + if (list.rsize == 3) { + iret = (((unsigned char *) list.raddr)[0] << 16) + | (((unsigned char *) list.raddr)[1] << 8) + | ((unsigned char *) list.raddr)[2]; + } else + if (list.rsize == 4) { + iret = (((unsigned char *) list.raddr)[0] << 24) + | (((unsigned char *) list.raddr)[1] << 16) + | (((unsigned char *) list.raddr)[2] << 8) + | ((unsigned char *) list.raddr)[3]; + } else + if (list.rsize == 5) { + iret1 = ((unsigned char *) list.raddr)[0]; + iret2 = (((unsigned char *) list.raddr)[1] << 24) + | (((unsigned char *) list.raddr)[2] << 16) + | (((unsigned char *) list.raddr)[3] << 8) + | ((unsigned char *) list.raddr)[4]; + } else + if (list.rsize == 6) { + iret1 = (((unsigned char *) list.raddr)[0] << 8) + | ((unsigned char *) list.raddr)[1]; + iret2 = (((unsigned char *) list.raddr)[2] << 24) + | (((unsigned char *) list.raddr)[3] << 16) + | (((unsigned char *) list.raddr)[4] << 8) + | ((unsigned char *) list.raddr)[5]; + } else + if (list.rsize == 7) { + iret1 = (((unsigned char *) list.raddr)[0] << 16) + | (((unsigned char *) list.raddr)[1] << 8) + | ((unsigned char *) list.raddr)[2]; + iret2 = (((unsigned char *) list.raddr)[3] << 24) + | (((unsigned char *) list.raddr)[4] << 16) + | (((unsigned char *) list.raddr)[5] << 8) + | ((unsigned char *) list.raddr)[6]; + } else + if (list.rsize == 8) { + iret1 = (((unsigned char *) list.raddr)[0] << 24) + | (((unsigned char *) list.raddr)[1] << 16) + | (((unsigned char *) list.raddr)[2] << 8) + | ((unsigned char *) list.raddr)[3]; + iret2 = (((unsigned char *) list.raddr)[4] << 24) + | (((unsigned char *) list.raddr)[5] << 16) + | (((unsigned char *) list.raddr)[6] << 8) + | ((unsigned char *) list.raddr)[7]; + } + #else /* Optimized: fewer conditional jumps, fewer memory accesses */ + uintptr_t count = list.rsize; /* > 0, ≤ 2*sizeof(__vaword) */ + __vaword* wordaddr = (__vaword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__vaword)-1)); + uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__vaword)-1); /* ≥ 0, < sizeof(__vaword) */ + uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__vaword) */ + if (count <= sizeof(__vaword)) { + /* Assign iret. */ + __vaword mask0 = ((__vaword)2 << (sizeof(__vaword)*8-start_offset*8-1)) - 1; + if (end_offset <= sizeof(__vaword)) { + /* 0 < end_offset ≤ sizeof(__vaword) */ + iret = (wordaddr[0] & mask0) >> (sizeof(__vaword)*8-end_offset*8); + } else { + /* sizeof(__vaword) < end_offset < 2*sizeof(__vaword), start_offset > 0 */ + iret = ((wordaddr[0] & mask0) << (end_offset*8-sizeof(__vaword)*8)) + | (wordaddr[1] >> (2*sizeof(__vaword)*8-end_offset*8)); + } + } else { + /* Assign iret, iret2. */ + __vaword mask0 = ((__vaword)2 << (sizeof(__vaword)*8-start_offset*8-1)) - 1; + if (end_offset <= 2*sizeof(__vaword)) { + /* sizeof(__vaword) < end_offset ≤ 2*sizeof(__vaword) */ + iret = (wordaddr[0] & mask0) >> (2*sizeof(__vaword)*8-end_offset*8); + iret2 = ((wordaddr[0] & mask0) << (end_offset*4-sizeof(__vaword)*4) << (end_offset*4-sizeof(__vaword)*4)) + | (wordaddr[1] >> (2*sizeof(__vaword)*8-end_offset*8)); + } else { + /* 2*sizeof(__vaword) < end_offset < 3*sizeof(__vaword), start_offset > 0 */ + iret = ((wordaddr[0] & mask0) << (end_offset*8-2*sizeof(__vaword)*8)) + | (wordaddr[1] >> (3*sizeof(__vaword)*8-end_offset*8)); + iret2 = (wordaddr[1] << (end_offset*8-2*sizeof(__vaword)*8)) + | (wordaddr[2] >> (3*sizeof(__vaword)*8-end_offset*8)); + } + } + #endif + } + } + } +} + +#ifdef REENTRANT +__vacall_r_t +callback_get_receiver (void) +{ + return (__vacall_r_t)(void*)&callback_receiver; +} +#endif diff --git a/vacall/vacall-hppa64-linux.s b/vacall/vacall-hppa64-linux.s new file mode 100644 index 0000000..8d1317f --- /dev/null +++ b/vacall/vacall-hppa64-linux.s @@ -0,0 +1,225 @@ + .LEVEL 2.0w + .text + .align 8 +.globl vacall_receiver + .type vacall_receiver,@function +vacall_receiver: + .PROC + .CALLINFO FRAME=384,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=8 + .ENTRY + copy %r3,%r1 + std %r2,-16(%r30) + copy %r30,%r3 + std,ma %r1,384(%r30) + std %r4,224(%r3) + copy %r27,%r4 + std %r8,192(%r3) + std %r7,200(%r3) + std %r6,208(%r3) + std %r5,216(%r3) + std %r26,-64(%r29) + std %r19,-8(%r29) + std %r25,-56(%r29) + std %r24,-48(%r29) + std %r23,-40(%r29) + std %r22,-32(%r29) + std %r21,-24(%r29) + std %r20,-16(%r29) +#APP + fstw %fr4R,88(%r3) + fstw %fr5R,92(%r3) + fstw %fr6R,96(%r3) + fstw %fr7R,100(%r3) + fstw %fr8R,104(%r3) + fstw %fr9R,108(%r3) + fstw %fr10R,112(%r3) + fstw %fr11R,116(%r3) +#NO_APP + fstd %fr10,168(%r3) + addil LT'vacall_function,%r27 + ldo -64(%r29),%r31 + ldd RT'vacall_function(%r1),%r1 + ldo 16(%r3),%r26 + std %r31,40(%r3) + std %r29,80(%r3) + ldo -16(%r30),%r29 + ldd 0(%r1),%r31 + fstd %fr11,176(%r3) + fstd %fr4,120(%r3) + fstd %fr5,128(%r3) + fstd %fr6,136(%r3) + fstd %fr7,144(%r3) + fstd %fr8,152(%r3) + fstd %fr9,160(%r3) + stw %r0,16(%r3) + std %r0,48(%r3) + stw %r0,56(%r3) + ldd 16(%r31),%r2 + ldd 24(%r31),%r27 + bve,l (%r2),%r2 + nop + ldw 56(%r3),%r31 + cmpib,= 0,%r31,.L1 + copy %r4,%r27 + cmpib,=,n 1,%r31,.L43 + cmpib,=,n 2,%r31,.L43 + cmpib,=,n 3,%r31,.L44 + cmpib,=,n 4,%r31,.L45 + cmpib,=,n 5,%r31,.L46 + cmpib,=,n 6,%r31,.L47 + cmpib,=,n 7,%r31,.L41 + cmpib,=,n 8,%r31,.L40 + cmpib,=,n 10,%r31,.L40 + cmpib,=,n 9,%r31,.L40 + cmpib,=,n 11,%r31,.L40 + cmpib,=,n 12,%r31,.L48 + cmpib,=,n 13,%r31,.L49 + cmpib,=,n 14,%r31,.L40 + cmpib,= 15,%r31,.L50 + ldw 16(%r3),%r31 +.L1: + ldd -16(%r3),%r2 + ldd 192(%r3),%r8 + ldd 200(%r3),%r7 + ldd 208(%r3),%r6 + ldd 216(%r3),%r5 + ldd 224(%r3),%r4 + ldo 64(%r3),%r30 + bve (%r2) + ldd,mb -64(%r30),%r3 +.L50: + extrd,u %r31,53+1-1,1,%r31 + cmpib,= 0,%r31,.L1 + ldd 48(%r3),%r28 + ldd 48(%r3),%r31 + ldd 64(%r3),%r2 + extrd,u %r31,63,3,%r6 + copy %r31,%r1 + depdi 0,63,3,%r1 + cmpib,*<< 8,%r2,.L32 + add,l %r6,%r2,%r4 + cmpib,*<< 8,%r4,.L33 + depd,z %r4,60,61,%r31 + subi 64,%r31,%r31 + ldd 0(%r1),%r2 + extrd,s %r31,63,32,%r31 + mtsarcm %r31 + depd,z %r6,60,61,%r4 + depdi,z 1,%sar,64,%r31 + mtsarcm %r4 + sub %r0,%r31,%r31 + and %r2,%r31,%r2 + depd,z %r2,%sar,64,%r2 + b .L1 + copy %r2,%r28 +.L33: + subi 128,%r31,%r31 + depd,z %r6,60,61,%r2 + extrd,s %r31,63,32,%r31 + subi 64,%r2,%r5 + mtsarcm %r31 + subi 63,%r2,%r7 + depdi,z 1,%sar,64,%r31 + mtsar %r7 + ldd 8(%r1),%r4 + sub %r0,%r31,%r31 + extrd,s %r5,63,32,%r5 + ldd 0(%r1),%r2 + subi 63,%r5,%r5 + and %r4,%r31,%r4 + depd,z %r2,%sar,64,%r2 + mtsar %r5 + extrd,s %r4,%sar,64,%r4 +.L39: + b .L1 + or %r4,%r2,%r28 +.L32: + ldi 16,%r31 + cmpb,*<< %r31,%r4,.L36 + depd,z %r4,60,61,%r31 + subi 128,%r31,%r31 + depd,z %r6,61,62,%r2 + extrd,s %r31,63,32,%r31 + subi 32,%r2,%r2 + mtsarcm %r31 + extrd,s %r2,63,32,%r2 + depdi,z 1,%sar,64,%r31 + subi 63,%r2,%r7 + ldd 8(%r1),%r4 + sub %r0,%r31,%r31 + mtsar %r7 + ldd 0(%r1),%r5 + and %r4,%r31,%r4 + depd,z %r6,60,61,%r31 + extrd,s %r4,%sar,64,%r2 + subi 63,%r31,%r31 + extrd,s %r2,%sar,64,%r2 + mtsar %r31 + depd,z %r4,%sar,64,%r4 + depd,z %r5,%sar,64,%r5 + copy %r4,%r29 + b .L1 + or %r5,%r2,%r28 +.L36: + subi 192,%r31,%r31 + depd,z %r6,60,61,%r2 + extrd,s %r31,63,32,%r31 + subi 64,%r2,%r6 + mtsarcm %r31 + subi 63,%r2,%r8 + depdi,z 1,%sar,64,%r31 + mtsar %r8 + ldd 8(%r1),%r2 + sub %r0,%r31,%r31 + ldd 16(%r1),%r5 + extrd,s %r6,63,32,%r6 + subi 63,%r6,%r6 + and %r5,%r31,%r5 + ldd 0(%r1),%r4 + depd,z %r2,%sar,64,%r31 + mtsar %r6 + extrd,s %r5,%sar,64,%r5 + mtsar %r8 + depd,z %r4,%sar,64,%r4 + or %r31,%r5,%r29 + mtsar %r6 + b .L39 + extrd,s %r2,%sar,64,%r2 +.L40: + b .L1 + ldd 24(%r3),%r28 +.L49: + b .L40 + fldd 24(%r3),%fr4 +.L48: +#APP + fldw 24(%r3),%fr4R +#NO_APP +.L41: + ldw 24(%r3),%r31 +.L42: + b .L1 + copy %r31,%r28 +.L47: + ldw 24(%r3),%r31 + b .L1 + extrd,s %r31,63,32,%r28 +.L46: + b .L42 + ldh 24(%r3),%r31 +.L45: + ldh 24(%r3),%r31 + b .L1 + extrd,s %r31,63,16,%r28 +.L44: + b .L42 + ldb 24(%r3),%r31 +.L43: + ldb 24(%r3),%r31 + b .L1 + extrd,s %r31,63,8,%r28 + .EXIT + .PROCEND +.Lfe1: + .size vacall_receiver,.Lfe1-vacall_receiver + .ident "GCC: (GNU) 3.1" diff --git a/vacall/vacall-hppa64-macro.S b/vacall/vacall-hppa64-macro.S new file mode 100644 index 0000000..0bf669b --- /dev/null +++ b/vacall/vacall-hppa64-macro.S @@ -0,0 +1,226 @@ +#include "asm-hppa64.h" + .LEVEL 2.0w + TEXT1() + TEXT2() + .align 8 +GLOBL(vacall_receiver) + DECLARE_FUNCTION(vacall_receiver) +DEF(vacall_receiver) + .PROC + .CALLINFO FRAME=384,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=8 + .ENTRY + copy %r3,%r1 + std %r2,-16(%r30) + copy %r30,%r3 + std,ma %r1,384(%r30) + std %r4,224(%r3) + copy %r27,%r4 + std %r8,192(%r3) + std %r7,200(%r3) + std %r6,208(%r3) + std %r5,216(%r3) + std %r26,-64(%r29) + std %r19,-8(%r29) + std %r25,-56(%r29) + std %r24,-48(%r29) + std %r23,-40(%r29) + std %r22,-32(%r29) + std %r21,-24(%r29) + std %r20,-16(%r29) + fstw %fr4R,88(%r3) + fstw %fr5R,92(%r3) + fstw %fr6R,96(%r3) + fstw %fr7R,100(%r3) + fstw %fr8R,104(%r3) + fstw %fr9R,108(%r3) + fstw %fr10R,112(%r3) + fstw %fr11R,116(%r3) + fstd %fr10,168(%r3) + addil LT!vacall_function,%r27 + ldo -64(%r29),%r31 + ldd RT!vacall_function(%r1),%r1 + ldo 16(%r3),%r26 + std %r31,40(%r3) + std %r29,80(%r3) + ldo -16(%r30),%r29 + ldd 0(%r1),%r31 + fstd %fr11,176(%r3) + fstd %fr4,120(%r3) + fstd %fr5,128(%r3) + fstd %fr6,136(%r3) + fstd %fr7,144(%r3) + fstd %fr8,152(%r3) + fstd %fr9,160(%r3) + stw %r0,16(%r3) + std %r0,48(%r3) + stw %r0,56(%r3) + ldd 16(%r31),%r2 + ldd 24(%r31),%r27 + bve,l (%r2),%r2 + nop + ldw 56(%r3),%r31 + cmpib,= 0,%r31,L(1) + copy %r4,%r27 + cmpib,=,n 1,%r31,L(43) + cmpib,=,n 2,%r31,L(43) + cmpib,=,n 3,%r31,L(44) + cmpib,=,n 4,%r31,L(45) + cmpib,=,n 5,%r31,L(46) + cmpib,=,n 6,%r31,L(47) + cmpib,=,n 7,%r31,L(41) + cmpib,=,n 8,%r31,L(40) + cmpib,=,n 10,%r31,L(40) + cmpib,=,n 9,%r31,L(40) + cmpib,=,n 11,%r31,L(40) + cmpib,=,n 12,%r31,L(48) + cmpib,=,n 13,%r31,L(49) + cmpib,=,n 14,%r31,L(40) + cmpib,= 15,%r31,L(50) + ldw 16(%r3),%r31 +DEF(L(1)) + ldd -16(%r3),%r2 + ldd 192(%r3),%r8 + ldd 200(%r3),%r7 + ldd 208(%r3),%r6 + ldd 216(%r3),%r5 + ldd 224(%r3),%r4 + ldo 64(%r3),%r30 + bve (%r2) + ldd,mb -64(%r30),%r3 +DEF(L(50)) + extrd,u %r31,53+1-1,1,%r31 + cmpib,= 0,%r31,L(1) + ldd 48(%r3),%r28 + ldd 48(%r3),%r31 + ldd 64(%r3),%r2 + extrd,u %r31,63,3,%r6 + copy %r31,%r1 + depdi 0,63,3,%r1 + cmpib,*<< 8,%r2,L(32) + add,l %r6,%r2,%r4 + cmpib,*<< 8,%r4,L(33) + depd,z %r4,60,61,%r31 + subi 64,%r31,%r31 + ldd 0(%r1),%r2 + extrd,s %r31,63,32,%r31 + mtsarcm %r31 + depd,z %r6,60,61,%r4 + depdi,z 1,%sar,64,%r31 + mtsarcm %r4 + sub %r0,%r31,%r31 + and %r2,%r31,%r2 + depd,z %r2,%sar,64,%r2 + b L(1) + copy %r2,%r28 +DEF(L(33)) + subi 128,%r31,%r31 + depd,z %r6,60,61,%r2 + extrd,s %r31,63,32,%r31 + subi 64,%r2,%r5 + mtsarcm %r31 + subi 63,%r2,%r7 + depdi,z 1,%sar,64,%r31 + mtsar %r7 + ldd 8(%r1),%r4 + sub %r0,%r31,%r31 + extrd,s %r5,63,32,%r5 + ldd 0(%r1),%r2 + subi 63,%r5,%r5 + and %r4,%r31,%r4 + depd,z %r2,%sar,64,%r2 + mtsar %r5 + extrd,s %r4,%sar,64,%r4 +DEF(L(39)) + b L(1) + or %r4,%r2,%r28 +DEF(L(32)) + ldi 16,%r31 + cmpb,*<< %r31,%r4,L(36) + depd,z %r4,60,61,%r31 + subi 128,%r31,%r31 + depd,z %r6,61,62,%r2 + extrd,s %r31,63,32,%r31 + subi 32,%r2,%r2 + mtsarcm %r31 + extrd,s %r2,63,32,%r2 + depdi,z 1,%sar,64,%r31 + subi 63,%r2,%r7 + ldd 8(%r1),%r4 + sub %r0,%r31,%r31 + mtsar %r7 + ldd 0(%r1),%r5 + and %r4,%r31,%r4 + depd,z %r6,60,61,%r31 + extrd,s %r4,%sar,64,%r2 + subi 63,%r31,%r31 + extrd,s %r2,%sar,64,%r2 + mtsar %r31 + depd,z %r4,%sar,64,%r4 + depd,z %r5,%sar,64,%r5 + copy %r4,%r29 + b L(1) + or %r5,%r2,%r28 +DEF(L(36)) + subi 192,%r31,%r31 + depd,z %r6,60,61,%r2 + extrd,s %r31,63,32,%r31 + subi 64,%r2,%r6 + mtsarcm %r31 + subi 63,%r2,%r8 + depdi,z 1,%sar,64,%r31 + mtsar %r8 + ldd 8(%r1),%r2 + sub %r0,%r31,%r31 + ldd 16(%r1),%r5 + extrd,s %r6,63,32,%r6 + subi 63,%r6,%r6 + and %r5,%r31,%r5 + ldd 0(%r1),%r4 + depd,z %r2,%sar,64,%r31 + mtsar %r6 + extrd,s %r5,%sar,64,%r5 + mtsar %r8 + depd,z %r4,%sar,64,%r4 + or %r31,%r5,%r29 + mtsar %r6 + b L(39) + extrd,s %r2,%sar,64,%r2 +DEF(L(40)) + b L(1) + ldd 24(%r3),%r28 +DEF(L(49)) + b L(40) + fldd 24(%r3),%fr4 +DEF(L(48)) + fldw 24(%r3),%fr4R +DEF(L(41)) + ldw 24(%r3),%r31 +DEF(L(42)) + b L(1) + copy %r31,%r28 +DEF(L(47)) + ldw 24(%r3),%r31 + b L(1) + extrd,s %r31,63,32,%r28 +DEF(L(46)) + b L(42) + ldh 24(%r3),%r31 +DEF(L(45)) + ldh 24(%r3),%r31 + b L(1) + extrd,s %r31,63,16,%r28 +DEF(L(44)) + b L(42) + ldb 24(%r3),%r31 +DEF(L(43)) + ldb 24(%r3),%r31 + b L(1) + extrd,s %r31,63,8,%r28 + .EXIT + .PROCEND +DEF(L(fe1)) + FUNEND(vacall_receiver) +IMPORT_DATA(vacall_function) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/vacall/vacall-hppa64.c b/vacall/vacall-hppa64.c new file mode 100644 index 0000000..7abc8da --- /dev/null +++ b/vacall/vacall-hppa64.c @@ -0,0 +1,294 @@ +/* vacall function for hppa64 CPU */ + +/* + * Copyright 1995-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "vacall-internal.h" + +#ifdef REENTRANT +#define vacall_receiver callback_receiver +register struct { void (*vacall_function) (void*,va_alist); void* arg; } + * env __asm__("%r31"); +#endif + +register __vaword arg1 __asm__("r26"); +register __vaword arg2 __asm__("r25"); +register __vaword arg3 __asm__("r24"); +register __vaword arg4 __asm__("r23"); +register __vaword arg5 __asm__("r22"); +register __vaword arg6 __asm__("r21"); +register __vaword arg7 __asm__("r20"); +register __vaword arg8 __asm__("r19"); + +/*register float farg1 __asm__("fr4R");*/ +/*register float farg2 __asm__("fr5R");*/ +/*register float farg3 __asm__("fr6R");*/ +/*register float farg4 __asm__("fr7R");*/ +/*register float farg5 __asm__("fr8R");*/ +/*register float farg6 __asm__("fr9R");*/ +/*register float farg7 __asm__("fr10R");*/ +/*register float farg8 __asm__("fr11R");*/ + +register double darg1 __asm__("fr4"); +register double darg2 __asm__("fr5"); +register double darg3 __asm__("fr6"); +register double darg4 __asm__("fr7"); +register double darg5 __asm__("fr8"); +register double darg6 __asm__("fr9"); +register double darg7 __asm__("fr10"); +register double darg8 __asm__("fr11"); + +register __vaword iret __asm__("r28"); +register __vaword iret2 __asm__("r29"); + +void /* the return type is variable, not void! */ +vacall_receiver (__vaword word1, __vaword word2, __vaword word3, __vaword word4, + __vaword word5, __vaword word6, __vaword word7, __vaword word8, + __vaword firstword) +{ + __va_alist list; + /* Move the arguments passed in registers to their stack locations. */ + (&firstword)[-8] = word1; + (&firstword)[-7] = word2; + (&firstword)[-6] = word3; + (&firstword)[-5] = word4; + (&firstword)[-4] = word5; + (&firstword)[-3] = word6; + (&firstword)[-2] = word7; + (&firstword)[-1] = word8; + __asm__ __volatile__ ("fstw %%fr4R,%0" : : "m" (list.farg[0])); /* list.farg[0] = farg1; */ + __asm__ __volatile__ ("fstw %%fr5R,%0" : : "m" (list.farg[1])); /* list.farg[1] = farg2; */ + __asm__ __volatile__ ("fstw %%fr6R,%0" : : "m" (list.farg[2])); /* list.farg[2] = farg3; */ + __asm__ __volatile__ ("fstw %%fr7R,%0" : : "m" (list.farg[3])); /* list.farg[3] = farg4; */ + __asm__ __volatile__ ("fstw %%fr8R,%0" : : "m" (list.farg[4])); /* list.farg[4] = farg5; */ + __asm__ __volatile__ ("fstw %%fr9R,%0" : : "m" (list.farg[5])); /* list.farg[5] = farg6; */ + __asm__ __volatile__ ("fstw %%fr10R,%0" : : "m" (list.farg[6])); /* list.farg[6] = farg7; */ + __asm__ __volatile__ ("fstw %%fr11R,%0" : : "m" (list.farg[7])); /* list.farg[7] = farg8; */ + list.darg[0] = darg1; + list.darg[1] = darg2; + list.darg[2] = darg3; + list.darg[3] = darg4; + list.darg[4] = darg5; + list.darg[5] = darg6; + list.darg[6] = darg7; + list.darg[7] = darg8; + /* Prepare the va_alist. */ + list.flags = 0; + list.aptr = (long)(&firstword - 8); + list.raddr = (void*)0; + list.rtype = __VAvoid; + list.memargptr = (long)&firstword; + /* Call vacall_function. The macros do all the rest. */ +#ifndef REENTRANT + (*vacall_function) (&list); +#else /* REENTRANT */ + (*env->vacall_function) (env->arg,&list); +#endif + /* Put return value into proper register. */ + if (list.rtype == __VAvoid) { + } else + if (list.rtype == __VAchar) { + iret = list.tmp._char; + } else + if (list.rtype == __VAschar) { + iret = list.tmp._schar; + } else + if (list.rtype == __VAuchar) { + iret = list.tmp._uchar; + } else + if (list.rtype == __VAshort) { + iret = list.tmp._short; + } else + if (list.rtype == __VAushort) { + iret = list.tmp._ushort; + } else + if (list.rtype == __VAint) { + iret = list.tmp._int; + } else + if (list.rtype == __VAuint) { + iret = list.tmp._uint; + } else + if (list.rtype == __VAlong || list.rtype == __VAlonglong) { + iret = list.tmp._long; + } else + if (list.rtype == __VAulong || list.rtype == __VAulonglong) { + iret = list.tmp._ulong; + } else + if (list.rtype == __VAfloat) { + __asm__ __volatile__ ("fldw %0,%%fr4R" : : "m" (list.tmp._float)); /* farg1 = list.tmp._float; */ + iret = *(unsigned int *)&list.tmp._float; + } else + if (list.rtype == __VAdouble) { + darg1 = list.tmp._double; + iret = *(unsigned long*)&list.tmp._double; + } else + if (list.rtype == __VAvoidp) { + iret = (long)list.tmp._ptr; + } else + if (list.rtype == __VAstruct) { + if (list.flags & __VA_REGISTER_STRUCT_RETURN) { + #if 0 /* Unoptimized */ + if (list.rsize == 1) { + iret = (__vaword)((unsigned char *) list.raddr)[0] << 56; + } else + if (list.rsize == 2) { + iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) + | ((__vaword)((unsigned char *) list.raddr)[1] << 48); + } else + if (list.rsize == 3) { + iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) + | ((__vaword)((unsigned char *) list.raddr)[1] << 48) + | ((__vaword)((unsigned char *) list.raddr)[2] << 40); + } else + if (list.rsize == 4) { + iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) + | ((__vaword)((unsigned char *) list.raddr)[1] << 48) + | ((__vaword)((unsigned char *) list.raddr)[2] << 40) + | ((__vaword)((unsigned char *) list.raddr)[3] << 32); + } else + if (list.rsize == 5) { + iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) + | ((__vaword)((unsigned char *) list.raddr)[1] << 48) + | ((__vaword)((unsigned char *) list.raddr)[2] << 40) + | ((__vaword)((unsigned char *) list.raddr)[3] << 32) + | ((__vaword)((unsigned char *) list.raddr)[4] << 24); + } else + if (list.rsize == 6) { + iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) + | ((__vaword)((unsigned char *) list.raddr)[1] << 48) + | ((__vaword)((unsigned char *) list.raddr)[2] << 40) + | ((__vaword)((unsigned char *) list.raddr)[3] << 32) + | ((__vaword)((unsigned char *) list.raddr)[4] << 24) + | ((__vaword)((unsigned char *) list.raddr)[5] << 16); + } else + if (list.rsize == 7) { + iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) + | ((__vaword)((unsigned char *) list.raddr)[1] << 48) + | ((__vaword)((unsigned char *) list.raddr)[2] << 40) + | ((__vaword)((unsigned char *) list.raddr)[3] << 32) + | ((__vaword)((unsigned char *) list.raddr)[4] << 24) + | ((__vaword)((unsigned char *) list.raddr)[5] << 16) + | ((__vaword)((unsigned char *) list.raddr)[6] << 8); + } else + if (list.rsize >= 8 && list.rsize <= 16) { + iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) + | ((__vaword)((unsigned char *) list.raddr)[1] << 48) + | ((__vaword)((unsigned char *) list.raddr)[2] << 40) + | ((__vaword)((unsigned char *) list.raddr)[3] << 32) + | ((__vaword)((unsigned char *) list.raddr)[4] << 24) + | ((__vaword)((unsigned char *) list.raddr)[5] << 16) + | ((__vaword)((unsigned char *) list.raddr)[6] << 8) + | (__vaword)((unsigned char *) list.raddr)[7]; + if (list.rsize == 8) { + } else + if (list.rsize == 9) { + iret2 = (__vaword)((unsigned char *) list.raddr)[8] << 56; + } else + if (list.rsize == 10) { + iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) + | ((__vaword)((unsigned char *) list.raddr)[9] << 48); + } else + if (list.rsize == 11) { + iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) + | ((__vaword)((unsigned char *) list.raddr)[9] << 48) + | ((__vaword)((unsigned char *) list.raddr)[10] << 40); + } else + if (list.rsize == 12) { + iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) + | ((__vaword)((unsigned char *) list.raddr)[9] << 48) + | ((__vaword)((unsigned char *) list.raddr)[10] << 40) + | ((__vaword)((unsigned char *) list.raddr)[11] << 32); + } else + if (list.rsize == 13) { + iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) + | ((__vaword)((unsigned char *) list.raddr)[9] << 48) + | ((__vaword)((unsigned char *) list.raddr)[10] << 40) + | ((__vaword)((unsigned char *) list.raddr)[11] << 32) + | ((__vaword)((unsigned char *) list.raddr)[12] << 24); + } else + if (list.rsize == 14) { + iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) + | ((__vaword)((unsigned char *) list.raddr)[9] << 48) + | ((__vaword)((unsigned char *) list.raddr)[10] << 40) + | ((__vaword)((unsigned char *) list.raddr)[11] << 32) + | ((__vaword)((unsigned char *) list.raddr)[12] << 24) + | ((__vaword)((unsigned char *) list.raddr)[13] << 16); + } else + if (list.rsize == 15) { + iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) + | ((__vaword)((unsigned char *) list.raddr)[9] << 48) + | ((__vaword)((unsigned char *) list.raddr)[10] << 40) + | ((__vaword)((unsigned char *) list.raddr)[11] << 32) + | ((__vaword)((unsigned char *) list.raddr)[12] << 24) + | ((__vaword)((unsigned char *) list.raddr)[13] << 16) + | ((__vaword)((unsigned char *) list.raddr)[14] << 8); + } else + if (list.rsize == 16) { + iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) + | ((__vaword)((unsigned char *) list.raddr)[9] << 48) + | ((__vaword)((unsigned char *) list.raddr)[10] << 40) + | ((__vaword)((unsigned char *) list.raddr)[11] << 32) + | ((__vaword)((unsigned char *) list.raddr)[12] << 24) + | ((__vaword)((unsigned char *) list.raddr)[13] << 16) + | ((__vaword)((unsigned char *) list.raddr)[14] << 8) + | (__vaword)((unsigned char *) list.raddr)[15]; + } + } + #else /* Optimized: fewer conditional jumps, fewer memory accesses */ + uintptr_t count = list.rsize; /* > 0, ≤ 2*sizeof(__vaword) */ + __vaword* wordaddr = (__vaword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__vaword)-1)); + uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__vaword)-1); /* ≥ 0, < sizeof(__vaword) */ + uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__vaword) */ + if (count <= sizeof(__vaword)) { + /* Assign iret. */ + if (end_offset <= sizeof(__vaword)) { + /* 0 < end_offset ≤ sizeof(__vaword) */ + __vaword mask0 = - ((__vaword)1 << (sizeof(__vaword)*8-end_offset*8)); + iret = (wordaddr[0] & mask0) << (start_offset*8); + } else { + /* sizeof(__vaword) < end_offset < 2*sizeof(__vaword), start_offset > 0 */ + __vaword mask1 = - ((__vaword)1 << (2*sizeof(__vaword)*8-end_offset*8)); + iret = (wordaddr[0] << (start_offset*8)) | ((wordaddr[1] & mask1) >> (sizeof(__vaword)*8-start_offset*8)); + } + } else { + /* Assign iret, iret2. */ + if (end_offset <= 2*sizeof(__vaword)) { + /* sizeof(__vaword) < end_offset ≤ 2*sizeof(__vaword) */ + __vaword mask1 = - ((__vaword)1 << (2*sizeof(__vaword)*8-end_offset*8)); + iret = (wordaddr[0] << (start_offset*8)) | ((wordaddr[1] & mask1) >> (sizeof(__vaword)*4-start_offset*4) >> (sizeof(__vaword)*4-start_offset*4)); + iret2 = (wordaddr[1] & mask1) << (start_offset*8); + } else { + /* 2*sizeof(__vaword) < end_offset < 3*sizeof(__vaword), start_offset > 0 */ + __vaword mask2 = - ((__vaword)1 << (3*sizeof(__vaword)*8-end_offset*8)); + iret = (wordaddr[0] << (start_offset*8)) | (wordaddr[1] >> (sizeof(__vaword)*8-start_offset*8)); + iret2 = (wordaddr[1] << (start_offset*8)) | ((wordaddr[2] & mask2) >> (sizeof(__vaword)*8-start_offset*8)); + } + } + #endif + } else { + iret = (long)list.raddr; + } + } +} + +#ifdef REENTRANT +__vacall_r_t +callback_get_receiver (void) +{ + return (__vacall_r_t)(void*)&callback_receiver; +} +#endif diff --git a/vacall/vacall-i386-linux-pic.s b/vacall/vacall-i386-linux-pic.s new file mode 100644 index 0000000..65470a8 --- /dev/null +++ b/vacall/vacall-i386-linux-pic.s @@ -0,0 +1,159 @@ + .file "vacall-i386.c" + .text + .align 2 + .p2align 2,,3 +.globl vacall_receiver + .type vacall_receiver,@function +vacall_receiver: + pushl %ebp + movl %esp, %ebp + pushl %esi + pushl %ebx + subl $48, %esp + call .L44 +.L44: + popl %ebx + addl $_GLOBAL_OFFSET_TABLE_+[.-.L44], %ebx + leal 8(%ebp), %edx + movl %edx, -40(%ebp) + subl $12, %esp + leal -56(%ebp), %edx + movl $0, -56(%ebp) + movl $0, -36(%ebp) + movl $0, -32(%ebp) + movl %ebx, -24(%ebp) + pushl %edx + movl vacall_function@GOT(%ebx), %edx + call *(%edx) + movl -32(%ebp), %ecx + addl $16, %esp + testl %ecx, %ecx + je .L43 + cmpl $1, %ecx + je .L45 + cmpl $2, %ecx + je .L45 + cmpl $3, %ecx + je .L50 + cmpl $4, %ecx + je .L51 + cmpl $5, %ecx + je .L52 + cmpl $6, %ecx + je .L49 + cmpl $7, %ecx + je .L49 + cmpl $8, %ecx + je .L49 + cmpl $9, %ecx + je .L49 + leal -10(%ecx), %edx + cmpl $1, %edx + ja .L22 + movl -48(%ebp), %eax +#APP + movl -44(%ebp),%edx +.L33: + .p2align 2,,3 +#NO_APP +.L43: + movl -56(%ebp), %ecx +.L3: + andl $512, %ecx + je .L1 +#APP + movl 0(%ebp),%ecx +#NO_APP + movl -40(%ebp), %esp +#APP + jmp *%ecx +#NO_APP +.L1: + leal -8(%ebp), %esp + popl %ebx + popl %esi + leave + ret +.L22: + cmpl $12, %ecx + je .L53 + cmpl $13, %ecx + je .L54 + cmpl $14, %ecx + je .L49 + cmpl $15, %ecx + jne .L43 + movl -56(%ebp), %ecx + testl $1024, %ecx + movl %ecx, %esi + je .L31 + movl -28(%ebp), %edx + cmpl $1, %edx + je .L55 + cmpl $2, %edx + je .L56 + cmpl $4, %edx + je .L57 + cmpl $8, %edx + je .L58 +.L31: + andl $16, %esi + movl -36(%ebp), %eax + jne .L3 +#APP + leal -4(%ebp), %esp + popl %esi + leave + ret $4 +#NO_APP + jmp .L3 +.L58: + movl -36(%ebp), %edx + movl (%edx), %eax +#APP + movl 4(%edx),%edx +#NO_APP + jmp .L3 +.L57: + movl -36(%ebp), %edx + movl (%edx), %eax + jmp .L3 +.L56: + movl -36(%ebp), %edx + movzwl (%edx), %eax + jmp .L3 +.L55: + movl -36(%ebp), %edx + movzbl (%edx), %eax + jmp .L3 + .p2align 2,,3 +.L49: + movl -48(%ebp), %eax + jmp .L43 +.L54: +#APP + fldl -48(%ebp) +#NO_APP + jmp .L43 +.L53: +#APP + flds -48(%ebp) +#NO_APP + jmp .L43 + .p2align 2,,3 +.L52: + movzwl -48(%ebp), %eax + jmp .L43 +.L51: + movswl -48(%ebp),%eax + jmp .L43 +.L50: + movzbl -48(%ebp), %eax + jmp .L43 + .p2align 2,,3 +.L45: + movsbl -48(%ebp),%eax + jmp .L43 +.Lfe1: + .size vacall_receiver,.Lfe1-vacall_receiver + .ident "GCC: (GNU) 3.1" diff --git a/vacall/vacall-i386-linux.s b/vacall/vacall-i386-linux.s new file mode 100644 index 0000000..d8c714e --- /dev/null +++ b/vacall/vacall-i386-linux.s @@ -0,0 +1,150 @@ + .file "vacall-i386.c" + .text + .align 2 + .p2align 2,,3 +.globl vacall_receiver + .type vacall_receiver,@function +vacall_receiver: + pushl %ebp + movl %esp, %ebp + leal 8(%ebp), %edx + pushl %esi + subl $64, %esp + movl %edx, -40(%ebp) + leal -56(%ebp), %edx + movl $0, -56(%ebp) + movl $0, -36(%ebp) + movl $0, -32(%ebp) + movl %ebx, -24(%ebp) + pushl %edx + call *vacall_function + movl -32(%ebp), %ecx + addl $16, %esp + testl %ecx, %ecx + je .L43 + cmpl $1, %ecx + je .L44 + cmpl $2, %ecx + je .L44 + cmpl $3, %ecx + je .L49 + cmpl $4, %ecx + je .L50 + cmpl $5, %ecx + je .L51 + cmpl $6, %ecx + je .L48 + cmpl $7, %ecx + je .L48 + cmpl $8, %ecx + je .L48 + cmpl $9, %ecx + je .L48 + leal -10(%ecx), %edx + cmpl $1, %edx + ja .L22 + movl -48(%ebp), %eax +#APP + movl -44(%ebp),%edx +.L33: + .p2align 2,,3 +#NO_APP +.L43: + movl -56(%ebp), %ecx +.L3: + andl $512, %ecx + je .L1 +#APP + movl 0(%ebp),%ecx +#NO_APP + movl -40(%ebp), %esp +#APP + jmp *%ecx +#NO_APP +.L1: + movl -4(%ebp), %esi + leave + ret +.L22: + cmpl $12, %ecx + je .L52 + cmpl $13, %ecx + je .L53 + cmpl $14, %ecx + je .L48 + cmpl $15, %ecx + jne .L43 + movl -56(%ebp), %ecx + testl $1024, %ecx + movl %ecx, %esi + je .L31 + movl -28(%ebp), %edx + cmpl $1, %edx + je .L54 + cmpl $2, %edx + je .L55 + cmpl $4, %edx + je .L56 + cmpl $8, %edx + je .L57 +.L31: + andl $16, %esi + movl -36(%ebp), %eax + jne .L3 +#APP + leal -4(%ebp), %esp + popl %esi + leave + ret $4 +#NO_APP + jmp .L3 +.L57: + movl -36(%ebp), %edx + movl (%edx), %eax +#APP + movl 4(%edx),%edx +#NO_APP + jmp .L3 +.L56: + movl -36(%ebp), %edx + movl (%edx), %eax + jmp .L3 +.L55: + movl -36(%ebp), %edx + movzwl (%edx), %eax + jmp .L3 +.L54: + movl -36(%ebp), %edx + movzbl (%edx), %eax + jmp .L3 + .p2align 2,,3 +.L48: + movl -48(%ebp), %eax + jmp .L43 +.L53: +#APP + fldl -48(%ebp) +#NO_APP + jmp .L43 +.L52: +#APP + flds -48(%ebp) +#NO_APP + jmp .L43 + .p2align 2,,3 +.L51: + movzwl -48(%ebp), %eax + jmp .L43 +.L50: + movswl -48(%ebp),%eax + jmp .L43 +.L49: + movzbl -48(%ebp), %eax + jmp .L43 + .p2align 2,,3 +.L44: + movsbl -48(%ebp),%eax + jmp .L43 +.Lfe1: + .size vacall_receiver,.Lfe1-vacall_receiver + .ident "GCC: (GNU) 3.1" diff --git a/vacall/vacall-i386-macro.S b/vacall/vacall-i386-macro.S new file mode 100644 index 0000000..c352c94 --- /dev/null +++ b/vacall/vacall-i386-macro.S @@ -0,0 +1,288 @@ +#include "asm-i386.h" +#ifdef __PIC__ + TEXT() + ALIGN(2) + P2ALIGN(2,3) +GLOBL(C(vacall_receiver)) + DECLARE_FUNCTION(vacall_receiver) +FUNBEGIN(vacall_receiver) + INSN1(push,l ,R(ebp)) + INSN2(mov,l ,R(esp), R(ebp)) + INSN1(push,l ,R(esi)) + INSN1(push,l ,R(ebx)) + INSN2(sub,l ,NUM(48), R(esp)) + INSN1(call,_ ,L(44)) +L(44): + INSN1(pop,l ,R(ebx)) +#ifdef __ELF__ + INSN2(add,l ,NUM()_GLOBAL_OFFSET_TABLE_+[.-L(44)],R(ebx)) +#endif + INSN2(lea,l ,X4 MEM_DISP(ebp,8), R(edx)) + INSN2(mov,l ,R(edx),X4 MEM_DISP(ebp,-40)) + INSN2(sub,l ,NUM(12), R(esp)) + INSN2(lea,l ,X4 MEM_DISP(ebp,-56), R(edx)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-56)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-36)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-32)) + INSN2(mov,l ,R(ebx),X4 MEM_DISP(ebp,-24)) + INSN1(push,l ,R(edx)) + INSN2(mov,l ,C(vacall_function)@MEM_DISP(ebx,GOT), R(edx)) + INSN1(call,_ ,INDIR(X4 MEM(edx))) + INSN2(mov,l ,X4 MEM_DISP(ebp,-32), R(ecx)) + INSN2(add,l ,NUM(16), R(esp)) + INSN2(test,l ,R(ecx), R(ecx)) + INSN1(je,_ ,L(43)) + INSN2(cmp,l ,NUM(1), R(ecx)) + INSN1(je,_ ,L(45)) + INSN2(cmp,l ,NUM(2), R(ecx)) + INSN1(je,_ ,L(45)) + INSN2(cmp,l ,NUM(3), R(ecx)) + INSN1(je,_ ,L(50)) + INSN2(cmp,l ,NUM(4), R(ecx)) + INSN1(je,_ ,L(51)) + INSN2(cmp,l ,NUM(5), R(ecx)) + INSN1(je,_ ,L(52)) + INSN2(cmp,l ,NUM(6), R(ecx)) + INSN1(je,_ ,L(49)) + INSN2(cmp,l ,NUM(7), R(ecx)) + INSN1(je,_ ,L(49)) + INSN2(cmp,l ,NUM(8), R(ecx)) + INSN1(je,_ ,L(49)) + INSN2(cmp,l ,NUM(9), R(ecx)) + INSN1(je,_ ,L(49)) + INSN2(lea,l ,X4 MEM_DISP(ecx,-10), R(edx)) + INSN2(cmp,l ,NUM(1), R(edx)) + INSN1(ja,_ ,L(22)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-48), R(eax)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-44),R(edx)) +L(33): + P2ALIGN(2,3) +L(43): + INSN2(mov,l ,X4 MEM_DISP(ebp,-56), R(ecx)) +L(3): + INSN2(and,l ,NUM(512), R(ecx)) + INSN1(je,_ ,L(1)) + INSN2(mov,l ,X4 MEM_DISP(ebp,0),R(ecx)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-40), R(esp)) + INSN1(jmp,_ ,INDIR(R(ecx))) +L(1): + INSN2(lea,l ,X4 MEM_DISP(ebp,-8), R(esp)) + INSN1(pop,l ,R(ebx)) + INSN1(pop,l ,R(esi)) + leave + ret +L(22): + INSN2(cmp,l ,NUM(12), R(ecx)) + INSN1(je,_ ,L(53)) + INSN2(cmp,l ,NUM(13), R(ecx)) + INSN1(je,_ ,L(54)) + INSN2(cmp,l ,NUM(14), R(ecx)) + INSN1(je,_ ,L(49)) + INSN2(cmp,l ,NUM(15), R(ecx)) + INSN1(jne,_ ,L(43)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-56), R(ecx)) + INSN2(test,l ,NUM(1024), R(ecx)) + INSN2(mov,l ,R(ecx), R(esi)) + INSN1(je,_ ,L(31)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-28), R(edx)) + INSN2(cmp,l ,NUM(1), R(edx)) + INSN1(je,_ ,L(55)) + INSN2(cmp,l ,NUM(2), R(edx)) + INSN1(je,_ ,L(56)) + INSN2(cmp,l ,NUM(4), R(edx)) + INSN1(je,_ ,L(57)) + INSN2(cmp,l ,NUM(8), R(edx)) + INSN1(je,_ ,L(58)) +L(31): + INSN2(and,l ,NUM(16), R(esi)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(eax)) + INSN1(jne,_ ,L(3)) + INSN2(lea,l ,X4 MEM_DISP(ebp,-4), R(esp)) + INSN1(pop,l ,R(esi)) + leave + ret NUM(4) + INSN1(jmp,_ ,L(3)) +L(58): + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) + INSN2(mov,l ,X4 MEM(edx), R(eax)) + INSN2(mov,l ,X4 MEM_DISP(edx,4),R(edx)) + INSN1(jmp,_ ,L(3)) +L(57): + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) + INSN2(mov,l ,X4 MEM(edx), R(eax)) + INSN1(jmp,_ ,L(3)) +L(56): + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) + INSN2MOVXL(movz,w,X2 MEM(edx), R(eax)) + INSN1(jmp,_ ,L(3)) +L(55): + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) + INSN2MOVXL(movz,b,X1 MEM(edx), R(eax)) + INSN1(jmp,_ ,L(3)) + P2ALIGN(2,3) +L(49): + INSN2(mov,l ,X4 MEM_DISP(ebp,-48), R(eax)) + INSN1(jmp,_ ,L(43)) +L(54): + INSN1(fld,l ,X8 MEM_DISP(ebp,-48)) + INSN1(jmp,_ ,L(43)) +L(53): + INSN1(fld,s ,X4 MEM_DISP(ebp,-48)) + INSN1(jmp,_ ,L(43)) + P2ALIGN(2,3) +L(52): + INSN2MOVXL(movz,w,X2 MEM_DISP(ebp,-48), R(eax)) + INSN1(jmp,_ ,L(43)) +L(51): + INSN2MOVXL(movs,w,X2 MEM_DISP(ebp,-48),R(eax)) + INSN1(jmp,_ ,L(43)) +L(50): + INSN2MOVXL(movz,b,X1 MEM_DISP(ebp,-48), R(eax)) + INSN1(jmp,_ ,L(43)) + P2ALIGN(2,3) +L(45): + INSN2MOVXL(movs,b,X1 MEM_DISP(ebp,-48),R(eax)) + INSN1(jmp,_ ,L(43)) +L(fe1): + FUNEND(vacall_receiver,L(fe1)-vacall_receiver) + +#else + TEXT() + ALIGN(2) + P2ALIGN(2,3) +GLOBL(C(vacall_receiver)) + DECLARE_FUNCTION(vacall_receiver) +FUNBEGIN(vacall_receiver) + INSN1(push,l ,R(ebp)) + INSN2(mov,l ,R(esp), R(ebp)) + INSN2(lea,l ,X4 MEM_DISP(ebp,8), R(edx)) + INSN1(push,l ,R(esi)) + INSN2(sub,l ,NUM(64), R(esp)) + INSN2(mov,l ,R(edx),X4 MEM_DISP(ebp,-40)) + INSN2(lea,l ,X4 MEM_DISP(ebp,-56), R(edx)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-56)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-36)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-32)) + INSN2(mov,l ,R(ebx),X4 MEM_DISP(ebp,-24)) + INSN1(push,l ,R(edx)) + INSN1(call,_ ,INDIR(X4 C(vacall_function))) + INSN2(mov,l ,X4 MEM_DISP(ebp,-32), R(ecx)) + INSN2(add,l ,NUM(16), R(esp)) + INSN2(test,l ,R(ecx), R(ecx)) + INSN1(je,_ ,L(43)) + INSN2(cmp,l ,NUM(1), R(ecx)) + INSN1(je,_ ,L(44)) + INSN2(cmp,l ,NUM(2), R(ecx)) + INSN1(je,_ ,L(44)) + INSN2(cmp,l ,NUM(3), R(ecx)) + INSN1(je,_ ,L(49)) + INSN2(cmp,l ,NUM(4), R(ecx)) + INSN1(je,_ ,L(50)) + INSN2(cmp,l ,NUM(5), R(ecx)) + INSN1(je,_ ,L(51)) + INSN2(cmp,l ,NUM(6), R(ecx)) + INSN1(je,_ ,L(48)) + INSN2(cmp,l ,NUM(7), R(ecx)) + INSN1(je,_ ,L(48)) + INSN2(cmp,l ,NUM(8), R(ecx)) + INSN1(je,_ ,L(48)) + INSN2(cmp,l ,NUM(9), R(ecx)) + INSN1(je,_ ,L(48)) + INSN2(lea,l ,X4 MEM_DISP(ecx,-10), R(edx)) + INSN2(cmp,l ,NUM(1), R(edx)) + INSN1(ja,_ ,L(22)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-48), R(eax)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-44),R(edx)) +L(33): + P2ALIGN(2,3) +L(43): + INSN2(mov,l ,X4 MEM_DISP(ebp,-56), R(ecx)) +L(3): + INSN2(and,l ,NUM(512), R(ecx)) + INSN1(je,_ ,L(1)) + INSN2(mov,l ,X4 MEM_DISP(ebp,0),R(ecx)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-40), R(esp)) + INSN1(jmp,_ ,INDIR(R(ecx))) +L(1): + INSN2(mov,l ,X4 MEM_DISP(ebp,-4), R(esi)) + leave + ret +L(22): + INSN2(cmp,l ,NUM(12), R(ecx)) + INSN1(je,_ ,L(52)) + INSN2(cmp,l ,NUM(13), R(ecx)) + INSN1(je,_ ,L(53)) + INSN2(cmp,l ,NUM(14), R(ecx)) + INSN1(je,_ ,L(48)) + INSN2(cmp,l ,NUM(15), R(ecx)) + INSN1(jne,_ ,L(43)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-56), R(ecx)) + INSN2(test,l ,NUM(1024), R(ecx)) + INSN2(mov,l ,R(ecx), R(esi)) + INSN1(je,_ ,L(31)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-28), R(edx)) + INSN2(cmp,l ,NUM(1), R(edx)) + INSN1(je,_ ,L(54)) + INSN2(cmp,l ,NUM(2), R(edx)) + INSN1(je,_ ,L(55)) + INSN2(cmp,l ,NUM(4), R(edx)) + INSN1(je,_ ,L(56)) + INSN2(cmp,l ,NUM(8), R(edx)) + INSN1(je,_ ,L(57)) +L(31): + INSN2(and,l ,NUM(16), R(esi)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(eax)) + INSN1(jne,_ ,L(3)) + INSN2(lea,l ,X4 MEM_DISP(ebp,-4), R(esp)) + INSN1(pop,l ,R(esi)) + leave + ret NUM(4) + INSN1(jmp,_ ,L(3)) +L(57): + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) + INSN2(mov,l ,X4 MEM(edx), R(eax)) + INSN2(mov,l ,X4 MEM_DISP(edx,4),R(edx)) + INSN1(jmp,_ ,L(3)) +L(56): + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) + INSN2(mov,l ,X4 MEM(edx), R(eax)) + INSN1(jmp,_ ,L(3)) +L(55): + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) + INSN2MOVXL(movz,w,X2 MEM(edx), R(eax)) + INSN1(jmp,_ ,L(3)) +L(54): + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) + INSN2MOVXL(movz,b,X1 MEM(edx), R(eax)) + INSN1(jmp,_ ,L(3)) + P2ALIGN(2,3) +L(48): + INSN2(mov,l ,X4 MEM_DISP(ebp,-48), R(eax)) + INSN1(jmp,_ ,L(43)) +L(53): + INSN1(fld,l ,X8 MEM_DISP(ebp,-48)) + INSN1(jmp,_ ,L(43)) +L(52): + INSN1(fld,s ,X4 MEM_DISP(ebp,-48)) + INSN1(jmp,_ ,L(43)) + P2ALIGN(2,3) +L(51): + INSN2MOVXL(movz,w,X2 MEM_DISP(ebp,-48), R(eax)) + INSN1(jmp,_ ,L(43)) +L(50): + INSN2MOVXL(movs,w,X2 MEM_DISP(ebp,-48),R(eax)) + INSN1(jmp,_ ,L(43)) +L(49): + INSN2MOVXL(movz,b,X1 MEM_DISP(ebp,-48), R(eax)) + INSN1(jmp,_ ,L(43)) + P2ALIGN(2,3) +L(44): + INSN2MOVXL(movs,b,X1 MEM_DISP(ebp,-48),R(eax)) + INSN1(jmp,_ ,L(43)) +L(fe1): + FUNEND(vacall_receiver,L(fe1)-vacall_receiver) + +#endif +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/vacall/vacall-i386-msvc.c b/vacall/vacall-i386-msvc.c new file mode 100644 index 0000000..170067e --- /dev/null +++ b/vacall/vacall-i386-msvc.c @@ -0,0 +1,291 @@ +#ifdef _MSC_VER +#include "vacall.h" +#endif +#include "asm-i386.h" +#ifdef __PIC__ + TEXT() + ALIGN(2) + P2ALIGN(2,3) +GLOBL(C(vacall_receiver)) + DECLARE_FUNCTION(vacall_receiver) +FUNBEGIN(vacall_receiver) + INSN1(push,l ,R(ebp)) + INSN2(mov,l ,R(esp), R(ebp)) + INSN1(push,l ,R(esi)) + INSN1(push,l ,R(ebx)) + INSN2(sub,l ,NUM(48), R(esp)) + INSN1(call,_ ,L(44)) +L(44): + INSN1(pop,l ,R(ebx)) +#ifdef __ELF__ + INSN2(add,l ,NUM()_GLOBAL_OFFSET_TABLE_+[.-L(44)],R(ebx)) +#endif + INSN2(lea,l ,X4 MEM_DISP(ebp,8), R(edx)) + INSN2(mov,l ,R(edx),X4 MEM_DISP(ebp,-40)) + INSN2(sub,l ,NUM(12), R(esp)) + INSN2(lea,l ,X4 MEM_DISP(ebp,-56), R(edx)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-56)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-36)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-32)) + INSN2(mov,l ,R(ebx),X4 MEM_DISP(ebp,-24)) + INSN1(push,l ,R(edx)) + INSN2(mov,l ,C(vacall_function)@MEM_DISP(ebx,GOT), R(edx)) + INSN1(call,_ ,INDIR(X4 MEM(edx))) + INSN2(mov,l ,X4 MEM_DISP(ebp,-32), R(ecx)) + INSN2(add,l ,NUM(16), R(esp)) + INSN2(test,l ,R(ecx), R(ecx)) + INSN1(je,_ ,L(43)) + INSN2(cmp,l ,NUM(1), R(ecx)) + INSN1(je,_ ,L(45)) + INSN2(cmp,l ,NUM(2), R(ecx)) + INSN1(je,_ ,L(45)) + INSN2(cmp,l ,NUM(3), R(ecx)) + INSN1(je,_ ,L(50)) + INSN2(cmp,l ,NUM(4), R(ecx)) + INSN1(je,_ ,L(51)) + INSN2(cmp,l ,NUM(5), R(ecx)) + INSN1(je,_ ,L(52)) + INSN2(cmp,l ,NUM(6), R(ecx)) + INSN1(je,_ ,L(49)) + INSN2(cmp,l ,NUM(7), R(ecx)) + INSN1(je,_ ,L(49)) + INSN2(cmp,l ,NUM(8), R(ecx)) + INSN1(je,_ ,L(49)) + INSN2(cmp,l ,NUM(9), R(ecx)) + INSN1(je,_ ,L(49)) + INSN2(lea,l ,X4 MEM_DISP(ecx,-10), R(edx)) + INSN2(cmp,l ,NUM(1), R(edx)) + INSN1(ja,_ ,L(22)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-48), R(eax)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-44),R(edx)) +L(33): + P2ALIGN(2,3) +L(43): + INSN2(mov,l ,X4 MEM_DISP(ebp,-56), R(ecx)) +L(3): + INSN2(and,l ,NUM(512), R(ecx)) + INSN1(je,_ ,L(1)) + INSN2(mov,l ,X4 MEM_DISP(ebp,0),R(ecx)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-40), R(esp)) + INSN1(jmp,_ ,INDIR(R(ecx))) +L(1): + INSN2(lea,l ,X4 MEM_DISP(ebp,-8), R(esp)) + INSN1(pop,l ,R(ebx)) + INSN1(pop,l ,R(esi)) + leave + ret +L(22): + INSN2(cmp,l ,NUM(12), R(ecx)) + INSN1(je,_ ,L(53)) + INSN2(cmp,l ,NUM(13), R(ecx)) + INSN1(je,_ ,L(54)) + INSN2(cmp,l ,NUM(14), R(ecx)) + INSN1(je,_ ,L(49)) + INSN2(cmp,l ,NUM(15), R(ecx)) + INSN1(jne,_ ,L(43)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-56), R(ecx)) + INSN2(test,l ,NUM(1024), R(ecx)) + INSN2(mov,l ,R(ecx), R(esi)) + INSN1(je,_ ,L(31)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-28), R(edx)) + INSN2(cmp,l ,NUM(1), R(edx)) + INSN1(je,_ ,L(55)) + INSN2(cmp,l ,NUM(2), R(edx)) + INSN1(je,_ ,L(56)) + INSN2(cmp,l ,NUM(4), R(edx)) + INSN1(je,_ ,L(57)) + INSN2(cmp,l ,NUM(8), R(edx)) + INSN1(je,_ ,L(58)) +L(31): + INSN2(and,l ,NUM(16), R(esi)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(eax)) + INSN1(jne,_ ,L(3)) + INSN2(lea,l ,X4 MEM_DISP(ebp,-4), R(esp)) + INSN1(pop,l ,R(esi)) + leave + ret NUM(4) + INSN1(jmp,_ ,L(3)) +L(58): + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) + INSN2(mov,l ,X4 MEM(edx), R(eax)) + INSN2(mov,l ,X4 MEM_DISP(edx,4),R(edx)) + INSN1(jmp,_ ,L(3)) +L(57): + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) + INSN2(mov,l ,X4 MEM(edx), R(eax)) + INSN1(jmp,_ ,L(3)) +L(56): + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) + INSN2MOVXL(movz,w,X2 MEM(edx), R(eax)) + INSN1(jmp,_ ,L(3)) +L(55): + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) + INSN2MOVXL(movz,b,X1 MEM(edx), R(eax)) + INSN1(jmp,_ ,L(3)) + P2ALIGN(2,3) +L(49): + INSN2(mov,l ,X4 MEM_DISP(ebp,-48), R(eax)) + INSN1(jmp,_ ,L(43)) +L(54): + INSN1(fld,l ,X8 MEM_DISP(ebp,-48)) + INSN1(jmp,_ ,L(43)) +L(53): + INSN1(fld,s ,X4 MEM_DISP(ebp,-48)) + INSN1(jmp,_ ,L(43)) + P2ALIGN(2,3) +L(52): + INSN2MOVXL(movz,w,X2 MEM_DISP(ebp,-48), R(eax)) + INSN1(jmp,_ ,L(43)) +L(51): + INSN2MOVXL(movs,w,X2 MEM_DISP(ebp,-48),R(eax)) + INSN1(jmp,_ ,L(43)) +L(50): + INSN2MOVXL(movz,b,X1 MEM_DISP(ebp,-48), R(eax)) + INSN1(jmp,_ ,L(43)) + P2ALIGN(2,3) +L(45): + INSN2MOVXL(movs,b,X1 MEM_DISP(ebp,-48),R(eax)) + INSN1(jmp,_ ,L(43)) +L(fe1): + FUNEND(vacall_receiver,L(fe1)-vacall_receiver) + +#else + TEXT() + ALIGN(2) + P2ALIGN(2,3) +GLOBL(C(vacall_receiver)) + DECLARE_FUNCTION(vacall_receiver) +FUNBEGIN(vacall_receiver) + INSN1(push,l ,R(ebp)) + INSN2(mov,l ,R(esp), R(ebp)) + INSN2(lea,l ,X4 MEM_DISP(ebp,8), R(edx)) + INSN1(push,l ,R(esi)) + INSN2(sub,l ,NUM(64), R(esp)) + INSN2(mov,l ,R(edx),X4 MEM_DISP(ebp,-40)) + INSN2(lea,l ,X4 MEM_DISP(ebp,-56), R(edx)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-56)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-36)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-32)) + INSN2(mov,l ,R(ebx),X4 MEM_DISP(ebp,-24)) + INSN1(push,l ,R(edx)) + INSN1(call,_ ,INDIR(X4 C(vacall_function))) + INSN2(mov,l ,X4 MEM_DISP(ebp,-32), R(ecx)) + INSN2(add,l ,NUM(16), R(esp)) + INSN2(test,l ,R(ecx), R(ecx)) + INSN1(je,_ ,L(43)) + INSN2(cmp,l ,NUM(1), R(ecx)) + INSN1(je,_ ,L(44)) + INSN2(cmp,l ,NUM(2), R(ecx)) + INSN1(je,_ ,L(44)) + INSN2(cmp,l ,NUM(3), R(ecx)) + INSN1(je,_ ,L(49)) + INSN2(cmp,l ,NUM(4), R(ecx)) + INSN1(je,_ ,L(50)) + INSN2(cmp,l ,NUM(5), R(ecx)) + INSN1(je,_ ,L(51)) + INSN2(cmp,l ,NUM(6), R(ecx)) + INSN1(je,_ ,L(48)) + INSN2(cmp,l ,NUM(7), R(ecx)) + INSN1(je,_ ,L(48)) + INSN2(cmp,l ,NUM(8), R(ecx)) + INSN1(je,_ ,L(48)) + INSN2(cmp,l ,NUM(9), R(ecx)) + INSN1(je,_ ,L(48)) + INSN2(lea,l ,X4 MEM_DISP(ecx,-10), R(edx)) + INSN2(cmp,l ,NUM(1), R(edx)) + INSN1(ja,_ ,L(22)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-48), R(eax)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-44),R(edx)) +L(33): + P2ALIGN(2,3) +L(43): + INSN2(mov,l ,X4 MEM_DISP(ebp,-56), R(ecx)) +L(3): + INSN2(and,l ,NUM(512), R(ecx)) + INSN1(je,_ ,L(1)) + INSN2(mov,l ,X4 MEM_DISP(ebp,0),R(ecx)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-40), R(esp)) + INSN1(jmp,_ ,INDIR(R(ecx))) +L(1): + INSN2(mov,l ,X4 MEM_DISP(ebp,-4), R(esi)) + leave + ret +L(22): + INSN2(cmp,l ,NUM(12), R(ecx)) + INSN1(je,_ ,L(52)) + INSN2(cmp,l ,NUM(13), R(ecx)) + INSN1(je,_ ,L(53)) + INSN2(cmp,l ,NUM(14), R(ecx)) + INSN1(je,_ ,L(48)) + INSN2(cmp,l ,NUM(15), R(ecx)) + INSN1(jne,_ ,L(43)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-56), R(ecx)) + INSN2(test,l ,NUM(1024), R(ecx)) + INSN2(mov,l ,R(ecx), R(esi)) + INSN1(je,_ ,L(31)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-28), R(edx)) + INSN2(cmp,l ,NUM(1), R(edx)) + INSN1(je,_ ,L(54)) + INSN2(cmp,l ,NUM(2), R(edx)) + INSN1(je,_ ,L(55)) + INSN2(cmp,l ,NUM(4), R(edx)) + INSN1(je,_ ,L(56)) + INSN2(cmp,l ,NUM(8), R(edx)) + INSN1(je,_ ,L(57)) +L(31): + INSN2(and,l ,NUM(16), R(esi)) + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(eax)) + INSN1(jne,_ ,L(3)) + INSN2(lea,l ,X4 MEM_DISP(ebp,-4), R(esp)) + INSN1(pop,l ,R(esi)) + leave + ret NUM(4) + INSN1(jmp,_ ,L(3)) +L(57): + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) + INSN2(mov,l ,X4 MEM(edx), R(eax)) + INSN2(mov,l ,X4 MEM_DISP(edx,4),R(edx)) + INSN1(jmp,_ ,L(3)) +L(56): + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) + INSN2(mov,l ,X4 MEM(edx), R(eax)) + INSN1(jmp,_ ,L(3)) +L(55): + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) + INSN2MOVXL(movz,w,X2 MEM(edx), R(eax)) + INSN1(jmp,_ ,L(3)) +L(54): + INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) + INSN2MOVXL(movz,b,X1 MEM(edx), R(eax)) + INSN1(jmp,_ ,L(3)) + P2ALIGN(2,3) +L(48): + INSN2(mov,l ,X4 MEM_DISP(ebp,-48), R(eax)) + INSN1(jmp,_ ,L(43)) +L(53): + INSN1(fld,l ,X8 MEM_DISP(ebp,-48)) + INSN1(jmp,_ ,L(43)) +L(52): + INSN1(fld,s ,X4 MEM_DISP(ebp,-48)) + INSN1(jmp,_ ,L(43)) + P2ALIGN(2,3) +L(51): + INSN2MOVXL(movz,w,X2 MEM_DISP(ebp,-48), R(eax)) + INSN1(jmp,_ ,L(43)) +L(50): + INSN2MOVXL(movs,w,X2 MEM_DISP(ebp,-48),R(eax)) + INSN1(jmp,_ ,L(43)) +L(49): + INSN2MOVXL(movz,b,X1 MEM_DISP(ebp,-48), R(eax)) + INSN1(jmp,_ ,L(43)) + P2ALIGN(2,3) +L(44): + INSN2MOVXL(movs,b,X1 MEM_DISP(ebp,-48),R(eax)) + INSN1(jmp,_ ,L(43)) +L(fe1): + FUNEND(vacall_receiver,L(fe1)-vacall_receiver) + +#endif +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/vacall/vacall-i386.c b/vacall/vacall-i386.c new file mode 100644 index 0000000..5666a27 --- /dev/null +++ b/vacall/vacall-i386.c @@ -0,0 +1,163 @@ +/* vacall function for i386 CPU */ + +/* + * Copyright 1995-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "vacall-internal.h" + +#ifdef REENTRANT +#define vacall_receiver callback_receiver +typedef struct { void (*vacall_function) (void*,va_alist); void* arg; } env_t; +register env_t* env __asm__("%ecx"); +#endif +register void* sp __asm__("%esp"); +register void* sret __asm__("%ebx"); +register int iret __asm__("%eax"); + +#ifdef REENTRANT +static +#endif +void /* the return type is variable, not void! */ +vacall_receiver (__vaword firstword) +{ + __va_alist list; + /* Prepare the va_alist. */ + list.flags = 0; + list.aptr = (long)&firstword; + list.raddr = (void*)0; + list.rtype = __VAvoid; + list.structraddr = sret; + /* Call vacall_function. The macros do all the rest. */ +#ifndef REENTRANT + (*vacall_function) (&list); +#else /* REENTRANT */ + (*env->vacall_function) (env->arg,&list); +#endif + /* Put return value into proper register. */ + if (list.rtype == __VAvoid) { + } else + if (list.rtype == __VAchar) { + iret = list.tmp._char; + } else + if (list.rtype == __VAschar) { + iret = list.tmp._schar; + } else + if (list.rtype == __VAuchar) { + iret = list.tmp._uchar; + } else + if (list.rtype == __VAshort) { + iret = list.tmp._short; + } else + if (list.rtype == __VAushort) { + iret = list.tmp._ushort; + } else + if (list.rtype == __VAint) { + iret = list.tmp._int; + } else + if (list.rtype == __VAuint) { + iret = list.tmp._uint; + } else + if (list.rtype == __VAlong) { + iret = list.tmp._long; + } else + if (list.rtype == __VAulong) { + iret = list.tmp._ulong; + } else + if (list.rtype == __VAlonglong || list.rtype == __VAulonglong) { + /* This code is EXTREMELY fragile!! */ + /* It depends on the register allocation chosen by gcc. */ + iret = ((__vaword *) &list.tmp._longlong)[0]; + asm volatile ("movl %0,%%edx" : : "g"(((__vaword *) &list.tmp._longlong)[1])); + } else + if (list.rtype == __VAfloat) { + asm volatile ("flds %0": : "m"(list.tmp._float)); + } else + if (list.rtype == __VAdouble) { + asm volatile ("fldl %0": : "m"(list.tmp._double)); + } else + if (list.rtype == __VAvoidp) { + iret = (long)list.tmp._ptr; + } else + if (list.rtype == __VAstruct) { + if (list.flags & __VA_REGISTER_STRUCT_RETURN) { + if (list.rsize == sizeof(char)) { + iret = *(unsigned char *) list.raddr; + goto done; + } else + if (list.rsize == sizeof(short)) { + iret = *(unsigned short *) list.raddr; + goto done; + } else + if (list.rsize == sizeof(int)) { + iret = *(unsigned int *) list.raddr; + goto done; + } else + if (list.rsize == 2*sizeof(__vaword)) { + /* This code is EXTREMELY fragile!! */ + /* It depends on the register allocation chosen by gcc. */ + iret = ((__vaword *) list.raddr)[0]; + asm volatile ("movl %0,%%edx" : : "g"(((__vaword *) list.raddr)[1])); + goto done; + } + } + /* On MSVC and on FreeBSD, must put the structure address into %eax. + For the other platforms, it does not matter, but doesn't hurt either. */ + iret = (long) list.raddr; + if (!(list.flags & __VA_MSVC_STRUCT_RETURN)) { + /* We have to pop the struct return address off the stack. */ + /* Callers compiled with -fomit-frame-pointer expect this. */ + /* Return via a "ret $4" instruction. */ + /* NOTE: This is EXTREMELY fragile. We must use the same return sequence + * as the one generated by GCC, except that we use a "ret $4" instruction + * in place of the "ret" instruction. Look at the 'pushl' instructions + * at the beginning of the generated code and at the sequence of + * instructions right before the generated "ret" instruction. */ +#ifdef REENTRANT + asm volatile ("leal -8(%ebp), %esp"); + asm volatile ("popl %esi"); + asm volatile ("popl %edi"); + asm volatile ("leave"); +#else + asm volatile ("leal -4(%ebp), %esp"); + asm volatile ("popl %esi"); + asm volatile ("leave"); +#endif + asm volatile ("ret $4"); + /*NOTREACHED*/ + } + done: ; + } + if (list.flags & __VA_STDCALL_CLEANUP) { + /* Return, and at the same time pop the arguments off the stack. */ + /* Normally done through a "ret $n" instruction. */ + /* Be careful not to clobber %eax and %edx. Only %ecx can be used. */ + /* Use *__builtin_frame_address(0), since __builtin_return_address(0) + * is buggy in gcc-2.7.2. */ + asm volatile ("movl %0,%%ecx" : : "g" (*(void**)__builtin_frame_address(0))); + sp = (void*)list.aptr; + asm volatile ("jmp *%ecx"); + /*NOTREACHED*/ + } +} + +#ifdef REENTRANT +__vacall_r_t +callback_get_receiver (void) +{ + return (__vacall_r_t)(void*)&callback_receiver; +} +#endif diff --git a/vacall/vacall-ia64-linux.s b/vacall/vacall-ia64-linux.s new file mode 100644 index 0000000..864463e --- /dev/null +++ b/vacall/vacall-ia64-linux.s @@ -0,0 +1,842 @@ + .file "vacall-ia64.c" + .pred.safe_across_calls p1-p5,p16-p63 + .text + .align 16 + .global vacall_receiver# + .proc vacall_receiver# +vacall_receiver: + .prologue 14, 41 + .spill 48 + .mmb + .save ar.pfs, r42 + alloc r42 = ar.pfs, 8, 5, 1, 0 + .vframe r43 + mov r43 = r12 + nop 0 + .mmi + adds r12 = -208, r12 + mov r44 = r1 + .save rp, r41 + mov r41 = b0 + .body + ;; + .mmi + adds r14 = -48, r43 + adds r16 = -48, r43 + adds r40 = -152, r43 + .mmb + adds r45 = -192, r43 + st8 [r43] = r38 + nop 0 + ;; + .mmi + nop 0 + st8 [r14] = r32, 8 + adds r32 = -160, r43 + .mmi + st4 [r40] = r0 + ;; + st8 [r14] = r33 + adds r14 = -32, r43 + .mmi + st4 [r45] = r0 + ;; + st8 [r14] = r34 + addl r14 = @ltoffx(vacall_function#), r1 + .mmb + nop 0 + st8 [r32] = r0 + nop 0 + ;; + .mmi + ld8.mov r14 = [r14], vacall_function# + ;; + ld8 r15 = [r14] + nop 0 + .mmi + adds r14 = -24, r43 + ;; + st8 [r14] = r35 + adds r14 = -16, r43 + ;; + .mfi + st8 [r14] = r36 + nop 0 + adds r14 = -8, r43 + .mmi + nop 0 + ;; + st8 [r14] = r37 + nop 0 + .mmi + adds r14 = 8, r43 + ;; + st8 [r14] = r39 + adds r14 = -112, r43 + ;; + .mfi + stfd [r14] = f8 + nop 0 + adds r14 = -104, r43 + .mmi + nop 0 + ;; + stfd [r14] = f9 + nop 0 + .mmi + adds r14 = -96, r43 + ;; + stfd [r14] = f10 + adds r14 = -88, r43 + ;; + .mfi + stfd [r14] = f11 + nop 0 + adds r14 = -80, r43 + .mmi + nop 0 + ;; + stfd [r14] = f12 + nop 0 + .mmi + adds r14 = -72, r43 + ;; + stfd [r14] = f13 + adds r14 = -64, r43 + ;; + .mfi + stfd [r14] = f14 + nop 0 + adds r14 = -56, r43 + .mmi + nop 0 + ;; + stfd [r14] = f15 + nop 0 + .mmi + adds r14 = -168, r43 + ;; + st8 [r14] = r16 + adds r14 = -128, r43 + ;; + .mii + st8 [r14] = r16 + adds r14 = -120, r43 + ;; + nop 0 + .mii + st4 [r14] = r0 + adds r14 = -136, r43 + ;; + nop 0 + .mmb + st8 [r14] = r8 + ld8 r14 = [r15], 8 + nop 0 + ;; + .mib + nop 0 + mov b6 = r14 + nop 0 + .mbb + ld8 r1 = [r15] + nop 0 + br.call.sptk.many b0 = b6 + ;; + .mmb + mov r1 = r44 + ld4 r40 = [r40] + nop 0 + ;; + .mfb + cmp4.eq p6, p7 = 0, r40 + nop 0 + (p6) br.cond.dpnt .L49 + ;; + .mfb + cmp4.ne p6, p7 = 1, r40 + nop 0 + (p7) br.cond.dpnt .L50 + ;; + .mfb + cmp4.ne p6, p7 = 2, r40 + nop 0 + (p7) br.cond.dpnt .L50 + ;; + .mii + nop 0 + cmp4.ne p6, p7 = 3, r40 + ;; + (p7) adds r14 = -184, r43 + ;; + .mfb + (p7) ld1 r8 = [r14] + nop 0 + (p7) br.cond.dpnt .L49 + .mii + nop 0 + cmp4.ne p6, p7 = 4, r40 + ;; + nop 0 + .mmi + (p7) adds r14 = -184, r43 + ;; + (p7) ld2 r14 = [r14] + nop 0 + ;; + .mib + nop 0 + (p7) sxt2 r8 = r14 + (p7) br.cond.dpnt .L49 + .mii + nop 0 + cmp4.ne p6, p7 = 5, r40 + ;; + (p7) adds r14 = -184, r43 + ;; + .mfb + (p7) ld2 r8 = [r14] + nop 0 + (p7) br.cond.dpnt .L49 + .mii + nop 0 + cmp4.ne p6, p7 = 6, r40 + ;; + nop 0 + .mmi + (p7) adds r14 = -184, r43 + ;; + (p7) ld4 r14 = [r14] + nop 0 + ;; + .mib + nop 0 + (p7) sxt4 r8 = r14 + (p7) br.cond.dpnt .L49 + .mii + nop 0 + cmp4.ne p6, p7 = 7, r40 + ;; + (p7) adds r14 = -184, r43 + ;; + .mfb + (p7) ld4 r8 = [r14] + nop 0 + (p7) br.cond.dpnt .L49 + .mfb + cmp4.ne p6, p7 = 8, r40 + nop 0 + (p7) br.cond.dpnt .L54 + ;; + .mfb + cmp4.ne p6, p7 = 9, r40 + nop 0 + (p7) br.cond.dpnt .L54 + ;; + .mfb + cmp4.ne p6, p7 = 10, r40 + nop 0 + (p7) br.cond.dpnt .L54 + ;; + .mfb + cmp4.ne p6, p7 = 11, r40 + nop 0 + (p7) br.cond.dpnt .L54 + ;; + .mii + nop 0 + cmp4.ne p6, p7 = 12, r40 + ;; + (p7) adds r14 = -184, r43 + ;; + .mfb + (p7) ldfs f8 = [r14] + nop 0 + (p7) br.cond.dpnt .L49 + .mii + nop 0 + cmp4.ne p6, p7 = 13, r40 + ;; + (p7) adds r14 = -184, r43 + ;; + .mfb + (p7) ldfd f8 = [r14] + nop 0 + (p7) br.cond.dpnt .L49 + .mfb + cmp4.ne p6, p7 = 14, r40 + nop 0 + (p7) br.cond.dpnt .L54 + ;; + .mib + nop 0 + cmp4.ne p6, p7 = 15, r40 + (p6) br.cond.dptk .L49 + .mii + nop 0 + adds r15 = -192, r43 + ;; + nop 0 + .mmi + ld4 r14 = [r15] + ;; + nop 0 + tbit.z p6, p7 = r14, 10 + .mfb + adds r14 = -144, r43 + nop 0 + (p6) br.cond.dpnt .L49 + ;; + .mmi + ld8 r21 = [r14] + ;; + adds r14 = -1, r21 + nop 0 + ;; + .mib + nop 0 + cmp.ltu p6, p7 = 31, r14 + (p6) br.cond.dpnt .L49 + .mmi + ld8 r14 = [r32] + ;; + and r20 = 7, r14 + and r23 = -8, r14 + .mii + nop 0 + cmp.ltu p6, p7 = 8, r21 + ;; + nop 0 + .mfb + add r14 = r21, r20 + nop 0 + (p6) br.cond.dptk .L35 + ;; + .mib + nop 0 + cmp.ltu p6, p7 = 8, r14 + (p6) br.cond.dptk .L37 + .mfi + shladd r15 = r14, 3, r0 + nop 0 + addl r14 = 2, r0 + .mii + ld8 r16 = [r23] + shladd r17 = r20, 3, r0 + ;; + adds r15 = -1, r15 + ;; + .mii + nop 0 + sxt4 r15 = r15 + ;; + shl r14 = r14, r15 + ;; + .mmi + adds r14 = -1, r14 + ;; + and r14 = r16, r14 + nop 0 + .mmi + nop 0 + ;; + nop 0 + shr r8 = r14, r17 +.L49: + .mii + nop 0 + mov ar.pfs = r42 + mov b0 = r41 + .mib + nop 0 + .label_state 1 + .restore sp + mov r12 = r43 + br.ret.sptk.many b0 +.L50: + .body + .copy_state 1 + .mii + nop 0 + adds r14 = -184, r43 + ;; + nop 0 + .mii + ld1 r14 = [r14] + nop 0 + ;; + sxt1 r8 = r14 + .mii + nop 0 + mov ar.pfs = r42 + mov b0 = r41 + .mib + nop 0 + .label_state 2 + .restore sp + mov r12 = r43 + br.ret.sptk.many b0 +.L54: + .body + .copy_state 2 + .mmb + nop 0 + adds r14 = -184, r43 + nop 0 + ;; + .mii + ld8 r8 = [r14] + mov ar.pfs = r42 + mov b0 = r41 + .mib + nop 0 + .label_state 3 + .restore sp + mov r12 = r43 + br.ret.sptk.many b0 +.L35: + .body + .copy_state 3 + .mib + nop 0 + cmp.ltu p6, p7 = 16, r21 + (p6) br.cond.dptk .L39 + ;; + .mib + nop 0 + cmp.ltu p6, p7 = 16, r14 + (p6) br.cond.dptk .L41 + .mmi + shladd r15 = r14, 3, r0 + adds r14 = 8, r23 + shladd r16 = r20, 2, r0 + .mmb + shladd r18 = r20, 3, r0 + ld8 r17 = [r23] + nop 0 + ;; + .mfi + ld8 r19 = [r14] + nop 0 + addl r14 = 2, r0 + .mii + adds r15 = -65, r15 + sub r16 = 32, r16 + ;; + sxt4 r15 = r15 + .mii + nop 0 + sxt4 r16 = r16 + shr r17 = r17, r18 + ;; + .mii + nop 0 + shl r14 = r14, r15 + ;; + adds r14 = -1, r14 + ;; + .mii + nop 0 + and r14 = r19, r14 + ;; + shl r15 = r14, r16 + .mii + nop 0 + shr r9 = r14, r18 + ;; + shl r15 = r15, r16 + ;; + .mii + or r8 = r15, r17 + mov ar.pfs = r42 + mov b0 = r41 + .mib + nop 0 + .label_state 4 + .restore sp + mov r12 = r43 + br.ret.sptk.many b0 +.L37: + .body + .copy_state 4 + .mfi + shladd r15 = r14, 3, r0 + nop 0 + addl r14 = 2, r0 + .mii + ld8 r17 = [r23], 8 + shladd r18 = r20, 3, r0 + ;; + adds r15 = -65, r15 + .mii + ld8 r19 = [r23] + sub r16 = 64, r18 + ;; + sxt4 r15 = r15 + .mii + nop 0 + sxt4 r16 = r16 + ;; + shl r14 = r14, r15 + .mii + nop 0 + shr r17 = r17, r18 + ;; + adds r14 = -1, r14 + ;; + .mii + nop 0 + and r14 = r19, r14 + ;; + shl r14 = r14, r16 + ;; + .mii + or r8 = r14, r17 + mov ar.pfs = r42 + mov b0 = r41 + .mib + nop 0 + .label_state 5 + .restore sp + mov r12 = r43 + br.ret.sptk.many b0 +.L39: + .body + .copy_state 5 + .mib + nop 0 + cmp.ltu p6, p7 = 24, r21 + (p6) br.cond.dptk .L43 + ;; + .mib + nop 0 + cmp.ltu p6, p7 = 24, r14 + (p6) br.cond.dptk .L45 + .mmi + shladd r15 = r14, 3, r0 + adds r14 = 8, r23 + shladd r16 = r20, 2, r0 + .mmb + shladd r19 = r20, 3, r0 + ld8 r18 = [r23], 16 + nop 0 + ;; + .mmi + ld8 r17 = [r14] + addl r14 = 2, r0 + adds r15 = -65, r15 + .mmb + sub r16 = 32, r16 + ld8 r20 = [r23] + nop 0 + ;; + .mii + nop 0 + sxt4 r15 = r15 + sxt4 r16 = r16 + .mii + nop 0 + shr r18 = r18, r19 + ;; + shl r14 = r14, r15 + .mii + nop 0 + shl r15 = r17, r16 + shr r17 = r17, r19 + ;; + .mii + nop 0 + shl r15 = r15, r16 + adds r14 = -1, r14 + ;; + .mii + and r14 = r20, r14 + or r8 = r15, r18 + ;; + shl r15 = r14, r16 + .mii + nop 0 + shr r10 = r14, r19 + ;; + shl r15 = r15, r16 + ;; + .mii + or r9 = r15, r17 + mov ar.pfs = r42 + mov b0 = r41 + .mib + nop 0 + .label_state 6 + .restore sp + mov r12 = r43 + br.ret.sptk.many b0 +.L41: + .body + .copy_state 6 + .mfi + shladd r16 = r14, 3, r0 + nop 0 + adds r14 = 8, r23 + .mfi + ld8 r18 = [r23], 16 + nop 0 + shladd r15 = r20, 3, r0 + ;; + .mmi + ld8 r17 = [r14] + addl r14 = 2, r0 + adds r16 = -129, r16 + .mmi + ld8 r20 = [r23] + mov r19 = r15 + sub r15 = 64, r15 + ;; + .mii + nop 0 + sxt4 r16 = r16 + sxt4 r15 = r15 + ;; + .mii + nop 0 + shl r14 = r14, r16 + shr r18 = r18, r19 + .mii + nop 0 + shl r16 = r17, r15 + shr r17 = r17, r19 + ;; + .mmi + adds r14 = -1, r14 + ;; + and r14 = r20, r14 + or r8 = r16, r18 + ;; + .mib + nop 0 + shl r14 = r14, r15 + nop 0 + ;; + .mii + or r9 = r14, r17 + mov ar.pfs = r42 + mov b0 = r41 + .mib + nop 0 + .label_state 7 + .restore sp + mov r12 = r43 + br.ret.sptk.many b0 +.L45: + .body + .copy_state 7 + .mmi + shladd r16 = r14, 3, r0 + adds r14 = 24, r23 + shladd r15 = r20, 3, r0 + .mmi + adds r18 = 8, r23 + ld8 r20 = [r23] + adds r19 = 16, r23 + ;; + .mmi + ld8 r22 = [r14] + addl r14 = 2, r0 + adds r16 = -129, r16 + .mmi + mov r17 = r15 + ld8 r18 = [r18] + sub r15 = 64, r15 + ;; + .mib + nop 0 + sxt4 r16 = r16 + nop 0 + .mii + ld8 r19 = [r19] + sxt4 r15 = r15 + ;; + shl r14 = r14, r16 + .mii + nop 0 + shr r21 = r19, r17 + shl r16 = r18, r15 + .mii + nop 0 + shr r20 = r20, r17 + shr r18 = r18, r17 + .mii + nop 0 + shl r19 = r19, r15 + ;; + nop 0 + .mmi + adds r14 = -1, r14 + ;; + and r14 = r22, r14 + or r8 = r16, r20 + .mii + nop 0 + or r9 = r19, r18 + ;; + shl r14 = r14, r15 + ;; + .mii + or r10 = r14, r21 + mov ar.pfs = r42 + mov b0 = r41 + .mib + nop 0 + .label_state 8 + .restore sp + mov r12 = r43 + br.ret.sptk.many b0 +.L43: + .body + .copy_state 8 + .mib + nop 0 + cmp.ltu p6, p7 = 32, r14 + (p6) br.cond.dptk .L47 + .mmi + adds r15 = 24, r23 + shladd r14 = r14, 3, r0 + adds r17 = 8, r23 + .mmi + shladd r16 = r20, 2, r0 + adds r18 = 16, r23 + shladd r20 = r20, 3, r0 + ;; + .mmi + nop 0 + ld8 r22 = [r15] + addl r15 = 2, r0 + .mmi + adds r14 = -65, r14 + ld8 r19 = [r17] + sub r16 = 32, r16 + ;; + .mii + nop 0 + sxt4 r14 = r14 + sxt4 r16 = r16 + .mmb + ld8 r21 = [r18] + ld8 r18 = [r23] + nop 0 + ;; + .mii + nop 0 + shl r15 = r15, r14 + shl r14 = r19, r16 + .mii + nop 0 + shr r18 = r18, r20 + shl r17 = r21, r16 + ;; + .mii + nop 0 + shl r14 = r14, r16 + shr r19 = r19, r20 + .mii + adds r15 = -1, r15 + shl r17 = r17, r16 + shr r21 = r21, r20 + ;; + .mmi + nop 0 + and r15 = r22, r15 + or r8 = r14, r18 + .mmi + or r9 = r17, r19 + ;; + nop 0 + shl r14 = r15, r16 + .mii + nop 0 + shr r11 = r15, r20 + ;; + shl r14 = r14, r16 + ;; + .mii + or r10 = r14, r21 + mov ar.pfs = r42 + mov b0 = r41 + .mib + nop 0 + .label_state 9 + .restore sp + mov r12 = r43 + br.ret.sptk.many b0 +.L47: + .body + .copy_state 9 + .mmb + shladd r16 = r14, 3, r0 + adds r14 = 32, r23 + nop 0 + .mmi + adds r18 = 8, r23 + adds r19 = 16, r23 + shladd r15 = r20, 3, r0 + ;; + .mfi + ld8 r22 = [r14] + nop 0 + adds r14 = 24, r23 + .mmi + ld8 r20 = [r18] + adds r16 = -129, r16 + mov r17 = r15 + .mfi + ld8 r18 = [r19] + nop 0 + sub r15 = 64, r15 + ;; + .mmi + ld8 r19 = [r14] + addl r14 = 2, r0 + sxt4 r16 = r16 + .mii + nop 0 + sxt4 r15 = r15 + ;; + shl r21 = r20, r15 + .mii + nop 0 + shr r20 = r20, r17 + shl r14 = r14, r16 + .mii + ld8 r16 = [r23] + shr r23 = r19, r17 + shl r19 = r19, r15 + ;; + .mii + nop 0 + shr r16 = r16, r17 + shr r17 = r18, r17 + .mii + adds r14 = -1, r14 + shl r18 = r18, r15 + ;; + and r14 = r22, r14 + .mmi + nop 0 + or r8 = r21, r16 + or r10 = r19, r17 + .mii + nop 0 + or r9 = r18, r20 + ;; + shl r14 = r14, r15 + ;; + .mii + or r11 = r14, r23 + mov ar.pfs = r42 + mov b0 = r41 + .mib + nop 0 + .restore sp + mov r12 = r43 + br.ret.sptk.many b0 + .endp vacall_receiver# + .ident "GCC: (GNU) 4.0.1" diff --git a/vacall/vacall-ia64-macro.S b/vacall/vacall-ia64-macro.S new file mode 100644 index 0000000..23fcb30 --- /dev/null +++ b/vacall/vacall-ia64-macro.S @@ -0,0 +1,845 @@ + .file "vacall-ia64.c" + .pred.safe_across_calls p1-p5,p16-p63 + .text + .align 16 + .global vacall_receiver# + .proc vacall_receiver# +vacall_receiver: + .prologue 14, 41 + .spill 48 + .mmb + .save ar.pfs, r42 + alloc r42 = ar.pfs, 8, 5, 1, 0 + .vframe r43 + mov r43 = r12 + nop 0 + .mmi + adds r12 = -208, r12 + mov r44 = r1 + .save rp, r41 + mov r41 = b0 + .body + ;; + .mmi + adds r14 = -48, r43 + adds r16 = -48, r43 + adds r40 = -152, r43 + .mmb + adds r45 = -192, r43 + st8 [r43] = r38 + nop 0 + ;; + .mmi + nop 0 + st8 [r14] = r32, 8 + adds r32 = -160, r43 + .mmi + st4 [r40] = r0 + ;; + st8 [r14] = r33 + adds r14 = -32, r43 + .mmi + st4 [r45] = r0 + ;; + st8 [r14] = r34 + addl r14 = @ltoffx(vacall_function#), r1 + .mmb + nop 0 + st8 [r32] = r0 + nop 0 + ;; + .mmi + ld8.mov r14 = [r14], vacall_function# + ;; + ld8 r15 = [r14] + nop 0 + .mmi + adds r14 = -24, r43 + ;; + st8 [r14] = r35 + adds r14 = -16, r43 + ;; + .mfi + st8 [r14] = r36 + nop 0 + adds r14 = -8, r43 + .mmi + nop 0 + ;; + st8 [r14] = r37 + nop 0 + .mmi + adds r14 = 8, r43 + ;; + st8 [r14] = r39 + adds r14 = -112, r43 + ;; + .mfi + stfd [r14] = f8 + nop 0 + adds r14 = -104, r43 + .mmi + nop 0 + ;; + stfd [r14] = f9 + nop 0 + .mmi + adds r14 = -96, r43 + ;; + stfd [r14] = f10 + adds r14 = -88, r43 + ;; + .mfi + stfd [r14] = f11 + nop 0 + adds r14 = -80, r43 + .mmi + nop 0 + ;; + stfd [r14] = f12 + nop 0 + .mmi + adds r14 = -72, r43 + ;; + stfd [r14] = f13 + adds r14 = -64, r43 + ;; + .mfi + stfd [r14] = f14 + nop 0 + adds r14 = -56, r43 + .mmi + nop 0 + ;; + stfd [r14] = f15 + nop 0 + .mmi + adds r14 = -168, r43 + ;; + st8 [r14] = r16 + adds r14 = -128, r43 + ;; + .mii + st8 [r14] = r16 + adds r14 = -120, r43 + ;; + nop 0 + .mii + st4 [r14] = r0 + adds r14 = -136, r43 + ;; + nop 0 + .mmb + st8 [r14] = r8 + ld8 r14 = [r15], 8 + nop 0 + ;; + .mib + nop 0 + mov b6 = r14 + nop 0 + .mbb + ld8 r1 = [r15] + nop 0 + br.call.sptk.many b0 = b6 + ;; + .mmb + mov r1 = r44 + ld4 r40 = [r40] + nop 0 + ;; + .mfb + cmp4.eq p6, p7 = 0, r40 + nop 0 + (p6) br.cond.dpnt .L49 + ;; + .mfb + cmp4.ne p6, p7 = 1, r40 + nop 0 + (p7) br.cond.dpnt .L50 + ;; + .mfb + cmp4.ne p6, p7 = 2, r40 + nop 0 + (p7) br.cond.dpnt .L50 + ;; + .mii + nop 0 + cmp4.ne p6, p7 = 3, r40 + ;; + (p7) adds r14 = -184, r43 + ;; + .mfb + (p7) ld1 r8 = [r14] + nop 0 + (p7) br.cond.dpnt .L49 + .mii + nop 0 + cmp4.ne p6, p7 = 4, r40 + ;; + nop 0 + .mmi + (p7) adds r14 = -184, r43 + ;; + (p7) ld2 r14 = [r14] + nop 0 + ;; + .mib + nop 0 + (p7) sxt2 r8 = r14 + (p7) br.cond.dpnt .L49 + .mii + nop 0 + cmp4.ne p6, p7 = 5, r40 + ;; + (p7) adds r14 = -184, r43 + ;; + .mfb + (p7) ld2 r8 = [r14] + nop 0 + (p7) br.cond.dpnt .L49 + .mii + nop 0 + cmp4.ne p6, p7 = 6, r40 + ;; + nop 0 + .mmi + (p7) adds r14 = -184, r43 + ;; + (p7) ld4 r14 = [r14] + nop 0 + ;; + .mib + nop 0 + (p7) sxt4 r8 = r14 + (p7) br.cond.dpnt .L49 + .mii + nop 0 + cmp4.ne p6, p7 = 7, r40 + ;; + (p7) adds r14 = -184, r43 + ;; + .mfb + (p7) ld4 r8 = [r14] + nop 0 + (p7) br.cond.dpnt .L49 + .mfb + cmp4.ne p6, p7 = 8, r40 + nop 0 + (p7) br.cond.dpnt .L54 + ;; + .mfb + cmp4.ne p6, p7 = 9, r40 + nop 0 + (p7) br.cond.dpnt .L54 + ;; + .mfb + cmp4.ne p6, p7 = 10, r40 + nop 0 + (p7) br.cond.dpnt .L54 + ;; + .mfb + cmp4.ne p6, p7 = 11, r40 + nop 0 + (p7) br.cond.dpnt .L54 + ;; + .mii + nop 0 + cmp4.ne p6, p7 = 12, r40 + ;; + (p7) adds r14 = -184, r43 + ;; + .mfb + (p7) ldfs f8 = [r14] + nop 0 + (p7) br.cond.dpnt .L49 + .mii + nop 0 + cmp4.ne p6, p7 = 13, r40 + ;; + (p7) adds r14 = -184, r43 + ;; + .mfb + (p7) ldfd f8 = [r14] + nop 0 + (p7) br.cond.dpnt .L49 + .mfb + cmp4.ne p6, p7 = 14, r40 + nop 0 + (p7) br.cond.dpnt .L54 + ;; + .mib + nop 0 + cmp4.ne p6, p7 = 15, r40 + (p6) br.cond.dptk .L49 + .mii + nop 0 + adds r15 = -192, r43 + ;; + nop 0 + .mmi + ld4 r14 = [r15] + ;; + nop 0 + tbit.z p6, p7 = r14, 10 + .mfb + adds r14 = -144, r43 + nop 0 + (p6) br.cond.dpnt .L49 + ;; + .mmi + ld8 r21 = [r14] + ;; + adds r14 = -1, r21 + nop 0 + ;; + .mib + nop 0 + cmp.ltu p6, p7 = 31, r14 + (p6) br.cond.dpnt .L49 + .mmi + ld8 r14 = [r32] + ;; + and r20 = 7, r14 + and r23 = -8, r14 + .mii + nop 0 + cmp.ltu p6, p7 = 8, r21 + ;; + nop 0 + .mfb + add r14 = r21, r20 + nop 0 + (p6) br.cond.dptk .L35 + ;; + .mib + nop 0 + cmp.ltu p6, p7 = 8, r14 + (p6) br.cond.dptk .L37 + .mfi + shladd r15 = r14, 3, r0 + nop 0 + addl r14 = 2, r0 + .mii + ld8 r16 = [r23] + shladd r17 = r20, 3, r0 + ;; + adds r15 = -1, r15 + ;; + .mii + nop 0 + sxt4 r15 = r15 + ;; + shl r14 = r14, r15 + ;; + .mmi + adds r14 = -1, r14 + ;; + and r14 = r16, r14 + nop 0 + .mmi + nop 0 + ;; + nop 0 + shr r8 = r14, r17 +.L49: + .mii + nop 0 + mov ar.pfs = r42 + mov b0 = r41 + .mib + nop 0 + .label_state 1 + .restore sp + mov r12 = r43 + br.ret.sptk.many b0 +.L50: + .body + .copy_state 1 + .mii + nop 0 + adds r14 = -184, r43 + ;; + nop 0 + .mii + ld1 r14 = [r14] + nop 0 + ;; + sxt1 r8 = r14 + .mii + nop 0 + mov ar.pfs = r42 + mov b0 = r41 + .mib + nop 0 + .label_state 2 + .restore sp + mov r12 = r43 + br.ret.sptk.many b0 +.L54: + .body + .copy_state 2 + .mmb + nop 0 + adds r14 = -184, r43 + nop 0 + ;; + .mii + ld8 r8 = [r14] + mov ar.pfs = r42 + mov b0 = r41 + .mib + nop 0 + .label_state 3 + .restore sp + mov r12 = r43 + br.ret.sptk.many b0 +.L35: + .body + .copy_state 3 + .mib + nop 0 + cmp.ltu p6, p7 = 16, r21 + (p6) br.cond.dptk .L39 + ;; + .mib + nop 0 + cmp.ltu p6, p7 = 16, r14 + (p6) br.cond.dptk .L41 + .mmi + shladd r15 = r14, 3, r0 + adds r14 = 8, r23 + shladd r16 = r20, 2, r0 + .mmb + shladd r18 = r20, 3, r0 + ld8 r17 = [r23] + nop 0 + ;; + .mfi + ld8 r19 = [r14] + nop 0 + addl r14 = 2, r0 + .mii + adds r15 = -65, r15 + sub r16 = 32, r16 + ;; + sxt4 r15 = r15 + .mii + nop 0 + sxt4 r16 = r16 + shr r17 = r17, r18 + ;; + .mii + nop 0 + shl r14 = r14, r15 + ;; + adds r14 = -1, r14 + ;; + .mii + nop 0 + and r14 = r19, r14 + ;; + shl r15 = r14, r16 + .mii + nop 0 + shr r9 = r14, r18 + ;; + shl r15 = r15, r16 + ;; + .mii + or r8 = r15, r17 + mov ar.pfs = r42 + mov b0 = r41 + .mib + nop 0 + .label_state 4 + .restore sp + mov r12 = r43 + br.ret.sptk.many b0 +.L37: + .body + .copy_state 4 + .mfi + shladd r15 = r14, 3, r0 + nop 0 + addl r14 = 2, r0 + .mii + ld8 r17 = [r23], 8 + shladd r18 = r20, 3, r0 + ;; + adds r15 = -65, r15 + .mii + ld8 r19 = [r23] + sub r16 = 64, r18 + ;; + sxt4 r15 = r15 + .mii + nop 0 + sxt4 r16 = r16 + ;; + shl r14 = r14, r15 + .mii + nop 0 + shr r17 = r17, r18 + ;; + adds r14 = -1, r14 + ;; + .mii + nop 0 + and r14 = r19, r14 + ;; + shl r14 = r14, r16 + ;; + .mii + or r8 = r14, r17 + mov ar.pfs = r42 + mov b0 = r41 + .mib + nop 0 + .label_state 5 + .restore sp + mov r12 = r43 + br.ret.sptk.many b0 +.L39: + .body + .copy_state 5 + .mib + nop 0 + cmp.ltu p6, p7 = 24, r21 + (p6) br.cond.dptk .L43 + ;; + .mib + nop 0 + cmp.ltu p6, p7 = 24, r14 + (p6) br.cond.dptk .L45 + .mmi + shladd r15 = r14, 3, r0 + adds r14 = 8, r23 + shladd r16 = r20, 2, r0 + .mmb + shladd r19 = r20, 3, r0 + ld8 r18 = [r23], 16 + nop 0 + ;; + .mmi + ld8 r17 = [r14] + addl r14 = 2, r0 + adds r15 = -65, r15 + .mmb + sub r16 = 32, r16 + ld8 r20 = [r23] + nop 0 + ;; + .mii + nop 0 + sxt4 r15 = r15 + sxt4 r16 = r16 + .mii + nop 0 + shr r18 = r18, r19 + ;; + shl r14 = r14, r15 + .mii + nop 0 + shl r15 = r17, r16 + shr r17 = r17, r19 + ;; + .mii + nop 0 + shl r15 = r15, r16 + adds r14 = -1, r14 + ;; + .mii + and r14 = r20, r14 + or r8 = r15, r18 + ;; + shl r15 = r14, r16 + .mii + nop 0 + shr r10 = r14, r19 + ;; + shl r15 = r15, r16 + ;; + .mii + or r9 = r15, r17 + mov ar.pfs = r42 + mov b0 = r41 + .mib + nop 0 + .label_state 6 + .restore sp + mov r12 = r43 + br.ret.sptk.many b0 +.L41: + .body + .copy_state 6 + .mfi + shladd r16 = r14, 3, r0 + nop 0 + adds r14 = 8, r23 + .mfi + ld8 r18 = [r23], 16 + nop 0 + shladd r15 = r20, 3, r0 + ;; + .mmi + ld8 r17 = [r14] + addl r14 = 2, r0 + adds r16 = -129, r16 + .mmi + ld8 r20 = [r23] + mov r19 = r15 + sub r15 = 64, r15 + ;; + .mii + nop 0 + sxt4 r16 = r16 + sxt4 r15 = r15 + ;; + .mii + nop 0 + shl r14 = r14, r16 + shr r18 = r18, r19 + .mii + nop 0 + shl r16 = r17, r15 + shr r17 = r17, r19 + ;; + .mmi + adds r14 = -1, r14 + ;; + and r14 = r20, r14 + or r8 = r16, r18 + ;; + .mib + nop 0 + shl r14 = r14, r15 + nop 0 + ;; + .mii + or r9 = r14, r17 + mov ar.pfs = r42 + mov b0 = r41 + .mib + nop 0 + .label_state 7 + .restore sp + mov r12 = r43 + br.ret.sptk.many b0 +.L45: + .body + .copy_state 7 + .mmi + shladd r16 = r14, 3, r0 + adds r14 = 24, r23 + shladd r15 = r20, 3, r0 + .mmi + adds r18 = 8, r23 + ld8 r20 = [r23] + adds r19 = 16, r23 + ;; + .mmi + ld8 r22 = [r14] + addl r14 = 2, r0 + adds r16 = -129, r16 + .mmi + mov r17 = r15 + ld8 r18 = [r18] + sub r15 = 64, r15 + ;; + .mib + nop 0 + sxt4 r16 = r16 + nop 0 + .mii + ld8 r19 = [r19] + sxt4 r15 = r15 + ;; + shl r14 = r14, r16 + .mii + nop 0 + shr r21 = r19, r17 + shl r16 = r18, r15 + .mii + nop 0 + shr r20 = r20, r17 + shr r18 = r18, r17 + .mii + nop 0 + shl r19 = r19, r15 + ;; + nop 0 + .mmi + adds r14 = -1, r14 + ;; + and r14 = r22, r14 + or r8 = r16, r20 + .mii + nop 0 + or r9 = r19, r18 + ;; + shl r14 = r14, r15 + ;; + .mii + or r10 = r14, r21 + mov ar.pfs = r42 + mov b0 = r41 + .mib + nop 0 + .label_state 8 + .restore sp + mov r12 = r43 + br.ret.sptk.many b0 +.L43: + .body + .copy_state 8 + .mib + nop 0 + cmp.ltu p6, p7 = 32, r14 + (p6) br.cond.dptk .L47 + .mmi + adds r15 = 24, r23 + shladd r14 = r14, 3, r0 + adds r17 = 8, r23 + .mmi + shladd r16 = r20, 2, r0 + adds r18 = 16, r23 + shladd r20 = r20, 3, r0 + ;; + .mmi + nop 0 + ld8 r22 = [r15] + addl r15 = 2, r0 + .mmi + adds r14 = -65, r14 + ld8 r19 = [r17] + sub r16 = 32, r16 + ;; + .mii + nop 0 + sxt4 r14 = r14 + sxt4 r16 = r16 + .mmb + ld8 r21 = [r18] + ld8 r18 = [r23] + nop 0 + ;; + .mii + nop 0 + shl r15 = r15, r14 + shl r14 = r19, r16 + .mii + nop 0 + shr r18 = r18, r20 + shl r17 = r21, r16 + ;; + .mii + nop 0 + shl r14 = r14, r16 + shr r19 = r19, r20 + .mii + adds r15 = -1, r15 + shl r17 = r17, r16 + shr r21 = r21, r20 + ;; + .mmi + nop 0 + and r15 = r22, r15 + or r8 = r14, r18 + .mmi + or r9 = r17, r19 + ;; + nop 0 + shl r14 = r15, r16 + .mii + nop 0 + shr r11 = r15, r20 + ;; + shl r14 = r14, r16 + ;; + .mii + or r10 = r14, r21 + mov ar.pfs = r42 + mov b0 = r41 + .mib + nop 0 + .label_state 9 + .restore sp + mov r12 = r43 + br.ret.sptk.many b0 +.L47: + .body + .copy_state 9 + .mmb + shladd r16 = r14, 3, r0 + adds r14 = 32, r23 + nop 0 + .mmi + adds r18 = 8, r23 + adds r19 = 16, r23 + shladd r15 = r20, 3, r0 + ;; + .mfi + ld8 r22 = [r14] + nop 0 + adds r14 = 24, r23 + .mmi + ld8 r20 = [r18] + adds r16 = -129, r16 + mov r17 = r15 + .mfi + ld8 r18 = [r19] + nop 0 + sub r15 = 64, r15 + ;; + .mmi + ld8 r19 = [r14] + addl r14 = 2, r0 + sxt4 r16 = r16 + .mii + nop 0 + sxt4 r15 = r15 + ;; + shl r21 = r20, r15 + .mii + nop 0 + shr r20 = r20, r17 + shl r14 = r14, r16 + .mii + ld8 r16 = [r23] + shr r23 = r19, r17 + shl r19 = r19, r15 + ;; + .mii + nop 0 + shr r16 = r16, r17 + shr r17 = r18, r17 + .mii + adds r14 = -1, r14 + shl r18 = r18, r15 + ;; + and r14 = r22, r14 + .mmi + nop 0 + or r8 = r21, r16 + or r10 = r19, r17 + .mii + nop 0 + or r9 = r18, r20 + ;; + shl r14 = r14, r15 + ;; + .mii + or r11 = r14, r23 + mov ar.pfs = r42 + mov b0 = r41 + .mib + nop 0 + .restore sp + mov r12 = r43 + br.ret.sptk.many b0 + .endp vacall_receiver# + .ident "GCC: (GNU) 4.0.1" +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/vacall/vacall-ia64.c b/vacall/vacall-ia64.c new file mode 100644 index 0000000..0bdbc7d --- /dev/null +++ b/vacall/vacall-ia64.c @@ -0,0 +1,282 @@ +/* vacall function for ia64 CPU */ + +/* + * Copyright 1995-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "vacall-internal.h" + +#ifdef REENTRANT +#define vacall_receiver callback_receiver +register struct { void (*vacall_function) (void*,va_alist); void* arg; } + * env __asm__("r15"); +#endif +register double farg1 __asm__("f8"); +register double farg2 __asm__("f9"); +register double farg3 __asm__("f10"); +register double farg4 __asm__("f11"); +register double farg5 __asm__("f12"); +register double farg6 __asm__("f13"); +register double farg7 __asm__("f14"); +register double farg8 __asm__("f15"); +register __vaword* sret __asm__("r8"); +register __vaword iret __asm__("r8"); +register __vaword iret2 __asm__("r9"); +register __vaword iret3 __asm__("r10"); +register __vaword iret4 __asm__("r11"); +register float fret __asm__("f8"); +register double dret __asm__("f8"); + +/* The ABI requires that the first 8 general-purpose argument words are + being passed in registers, even if these words belong to a struct. No room + is allocated for these register words on the stack by the caller, but the + callee allocates room for them - at the right place in the stack frame, + that is, above the usual {fp, retaddr} combo - if and only if they are part + of a larger struct that extends to the stack and the address of this struct + is taken. */ +struct gpargsequence { + __vaword word1; /* r32 */ + __vaword word2; /* r33 */ + __vaword word3; /* r34 */ + __vaword word4; /* r35 */ + __vaword word5; /* r36 */ + __vaword word6; /* r37 */ + __vaword word7; /* r38 */ + __vaword word8; /* r39 */ + __vaword firststackword; +}; + +#ifdef REENTRANT +static +#endif +void /* the return type is variable, not void! */ +vacall_receiver (struct gpargsequence gpargs) +{ + __va_alist list; + /* Move the arguments passed in registers to their stack locations. */ + list.farg[0] = farg1; + list.farg[1] = farg2; + list.farg[2] = farg3; + list.farg[3] = farg4; + list.farg[4] = farg5; + list.farg[5] = farg6; + list.farg[6] = farg7; + list.farg[7] = farg8; + /* Prepare the va_alist. */ + list.flags = 0; + list.aptr = (long)&gpargs; + list.saptr = (__vaword*)&gpargs; + list.fanum = 0; + list.raddr = (void*)0; + list.rtype = __VAvoid; + list.structraddr = sret; + /* Call vacall_function. The macros do all the rest. */ +#ifndef REENTRANT + (*vacall_function) (&list); +#else /* REENTRANT */ + (*env->vacall_function) (env->arg,&list); +#endif + /* Put return value into proper register. */ + if (list.rtype == __VAvoid) { + } else + if (list.rtype == __VAchar) { + iret = list.tmp._char; + } else + if (list.rtype == __VAschar) { + iret = list.tmp._schar; + } else + if (list.rtype == __VAuchar) { + iret = list.tmp._uchar; + } else + if (list.rtype == __VAshort) { + iret = list.tmp._short; + } else + if (list.rtype == __VAushort) { + iret = list.tmp._ushort; + } else + if (list.rtype == __VAint) { + iret = list.tmp._int; + } else + if (list.rtype == __VAuint) { + iret = list.tmp._uint; + } else + if (list.rtype == __VAlong) { + iret = list.tmp._long; + } else + if (list.rtype == __VAulong) { + iret = list.tmp._ulong; + } else + if (list.rtype == __VAlonglong) { + iret = list.tmp._long; + } else + if (list.rtype == __VAulonglong) { + iret = list.tmp._ulong; + } else + if (list.rtype == __VAfloat) { + fret = list.tmp._float; + } else + if (list.rtype == __VAdouble) { + dret = list.tmp._double; + } else + if (list.rtype == __VAvoidp) { + iret = (long)list.tmp._ptr; + } else + if (list.rtype == __VAstruct) { + if (list.flags & __VA_REGISTER_STRUCT_RETURN) { + /* Return structs of size <= 32 in registers. */ + if (list.rsize > 0 && list.rsize <= 32) { + #if 0 /* Unoptimized */ + iret = (__vaword)((unsigned char *) list.raddr)[0]; + if (list.rsize >= 2) + iret |= (__vaword)((unsigned char *) list.raddr)[1] << 8; + if (list.rsize >= 3) + iret |= (__vaword)((unsigned char *) list.raddr)[2] << 16; + if (list.rsize >= 4) + iret |= (__vaword)((unsigned char *) list.raddr)[3] << 24; + if (list.rsize >= 5) + iret |= (__vaword)((unsigned char *) list.raddr)[4] << 32; + if (list.rsize >= 6) + iret |= (__vaword)((unsigned char *) list.raddr)[5] << 40; + if (list.rsize >= 7) + iret |= (__vaword)((unsigned char *) list.raddr)[6] << 48; + if (list.rsize >= 8) + iret |= (__vaword)((unsigned char *) list.raddr)[7] << 56; + if (list.rsize >= 9) { + iret2 = (__vaword)((unsigned char *) list.raddr)[8]; + if (list.rsize >= 10) + iret2 |= (__vaword)((unsigned char *) list.raddr)[9] << 8; + if (list.rsize >= 11) + iret2 |= (__vaword)((unsigned char *) list.raddr)[10] << 16; + if (list.rsize >= 12) + iret2 |= (__vaword)((unsigned char *) list.raddr)[11] << 24; + if (list.rsize >= 13) + iret2 |= (__vaword)((unsigned char *) list.raddr)[12] << 32; + if (list.rsize >= 14) + iret2 |= (__vaword)((unsigned char *) list.raddr)[13] << 40; + if (list.rsize >= 15) + iret2 |= (__vaword)((unsigned char *) list.raddr)[14] << 48; + if (list.rsize >= 16) + iret2 |= (__vaword)((unsigned char *) list.raddr)[15] << 56; + if (list.rsize >= 17) { + iret3 = (__vaword)((unsigned char *) list.raddr)[16]; + if (list.rsize >= 18) + iret3 |= (__vaword)((unsigned char *) list.raddr)[17] << 8; + if (list.rsize >= 19) + iret3 |= (__vaword)((unsigned char *) list.raddr)[18] << 16; + if (list.rsize >= 20) + iret3 |= (__vaword)((unsigned char *) list.raddr)[19] << 24; + if (list.rsize >= 21) + iret3 |= (__vaword)((unsigned char *) list.raddr)[20] << 32; + if (list.rsize >= 22) + iret3 |= (__vaword)((unsigned char *) list.raddr)[21] << 40; + if (list.rsize >= 23) + iret3 |= (__vaword)((unsigned char *) list.raddr)[22] << 48; + if (list.rsize >= 24) + iret3 |= (__vaword)((unsigned char *) list.raddr)[23] << 56; + if (list.rsize >= 25) { + iret4 = (__vaword)((unsigned char *) list.raddr)[24]; + if (list.rsize >= 26) + iret4 |= (__vaword)((unsigned char *) list.raddr)[25] << 8; + if (list.rsize >= 27) + iret4 |= (__vaword)((unsigned char *) list.raddr)[26] << 16; + if (list.rsize >= 28) + iret4 |= (__vaword)((unsigned char *) list.raddr)[27] << 24; + if (list.rsize >= 29) + iret4 |= (__vaword)((unsigned char *) list.raddr)[28] << 32; + if (list.rsize >= 30) + iret4 |= (__vaword)((unsigned char *) list.raddr)[29] << 40; + if (list.rsize >= 31) + iret4 |= (__vaword)((unsigned char *) list.raddr)[30] << 48; + if (list.rsize >= 32) + iret4 |= (__vaword)((unsigned char *) list.raddr)[31] << 56; + } + } + } + #else /* Optimized: fewer conditional jumps, fewer memory accesses */ + uintptr_t count = list.rsize; /* > 0, ≤ 4*sizeof(__vaword) */ + __vaword* wordaddr = (__vaword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__vaword)-1)); + uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__vaword)-1); /* ≥ 0, < sizeof(__vaword) */ + uintptr_t end_offset = start_offset + count; /* > 0, < 5*sizeof(__vaword) */ + if (count <= sizeof(__vaword)) { + /* Assign iret. */ + if (end_offset <= sizeof(__vaword)) { + /* 0 < end_offset ≤ sizeof(__vaword) */ + __vaword mask0 = ((__vaword)2 << (end_offset*8-1)) - 1; + iret = (wordaddr[0] & mask0) >> (start_offset*8); + } else { + /* sizeof(__vaword) < end_offset < 2*sizeof(__vaword), start_offset > 0 */ + __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; + iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*8-start_offset*8)); + } + } else if (count <= 2*sizeof(__vaword)) { + /* Assign iret, iret2. */ + if (end_offset <= 2*sizeof(__vaword)) { + /* sizeof(__vaword) < end_offset ≤ 2*sizeof(__vaword) */ + __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; + iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*4-start_offset*4) << (sizeof(__vaword)*4-start_offset*4)); + iret2 = (wordaddr[1] & mask1) >> (start_offset*8); + } else { + /* 2*sizeof(__vaword) < end_offset < 3*sizeof(__vaword), start_offset > 0 */ + __vaword mask2 = ((__vaword)2 << (end_offset*8-2*sizeof(__vaword)*8-1)) - 1; + iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__vaword)*8-start_offset*8)); + iret2 = (wordaddr[1] >> (start_offset*8)) | ((wordaddr[2] & mask2) << (sizeof(__vaword)*8-start_offset*8)); + } + } else if (count <= 3*sizeof(__vaword)) { + /* Assign iret, iret2, iret3. */ + if (end_offset <= 3*sizeof(__vaword)) { + /* 2*sizeof(__vaword) < end_offset ≤ 3*sizeof(__vaword) */ + __vaword mask2 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; + iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__vaword)*4-start_offset*4) << (sizeof(__vaword)*4-start_offset*4)); + iret2 = (wordaddr[1] >> (start_offset*8)) | ((wordaddr[2] & mask2) << (sizeof(__vaword)*4-start_offset*4) << (sizeof(__vaword)*4-start_offset*4)); + iret3 = (wordaddr[2] & mask2) >> (start_offset*8); + } else { + /* 3*sizeof(__vaword) < end_offset < 4*sizeof(__vaword), start_offset > 0 */ + __vaword mask3 = ((__vaword)2 << (end_offset*8-2*sizeof(__vaword)*8-1)) - 1; + iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__vaword)*8-start_offset*8)); + iret2 = (wordaddr[1] >> (start_offset*8)) | (wordaddr[2] << (sizeof(__vaword)*8-start_offset*8)); + iret3 = (wordaddr[2] >> (start_offset*8)) | ((wordaddr[3] & mask3) << (sizeof(__vaword)*8-start_offset*8)); + } + } else { + /* Assign iret, iret2, iret3, iret4. */ + if (end_offset <= 4*sizeof(__vaword)) { + /* 3*sizeof(__vaword) < end_offset ≤ 4*sizeof(__vaword) */ + __vaword mask3 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; + iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__vaword)*4-start_offset*4) << (sizeof(__vaword)*4-start_offset*4)); + iret2 = (wordaddr[1] >> (start_offset*8)) | (wordaddr[2] << (sizeof(__vaword)*4-start_offset*4) << (sizeof(__vaword)*4-start_offset*4)); + iret3 = (wordaddr[2] >> (start_offset*8)) | ((wordaddr[3] & mask3) << (sizeof(__vaword)*4-start_offset*4) << (sizeof(__vaword)*4-start_offset*4)); + iret4 = (wordaddr[3] & mask3) >> (start_offset*8); + } else { + /* 4*sizeof(__vaword) < end_offset < 5*sizeof(__vaword), start_offset > 0 */ + __vaword mask4 = ((__vaword)2 << (end_offset*8-2*sizeof(__vaword)*8-1)) - 1; + iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__vaword)*8-start_offset*8)); + iret2 = (wordaddr[1] >> (start_offset*8)) | (wordaddr[2] << (sizeof(__vaword)*8-start_offset*8)); + iret3 = (wordaddr[2] >> (start_offset*8)) | (wordaddr[3] << (sizeof(__vaword)*8-start_offset*8)); + iret4 = (wordaddr[3] >> (start_offset*8)) | ((wordaddr[4] & mask4) << (sizeof(__vaword)*8-start_offset*8)); + } + } + #endif + } + } + } +} + +#ifdef REENTRANT +__vacall_r_t +callback_get_receiver (void) +{ + return (__vacall_r_t)(void*)&callback_receiver; +} +#endif diff --git a/vacall/vacall-internal.h b/vacall/vacall-internal.h new file mode 100644 index 0000000..e29a6d4 --- /dev/null +++ b/vacall/vacall-internal.h @@ -0,0 +1,1204 @@ +/* + * Copyright 1995-2019 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#ifndef _VACALL_INTERNAL_H +#define _VACALL_INTERNAL_H + +/* Get intptr_t, uintptr_t. */ +#include "ffcall-stdint.h" + +/* Include the public definitions, */ +#ifndef REENTRANT +#include "vacall.h" +#else +#include "vacall_r.h" +#endif + + +/* The platform indicator symbols (__i386__, etc.) come from + - "config.h" when compiling vacall-libapi.c, + - the GCC command line options when compiling vacall-$(CPU).c. + */ + +/* These two variants of powerpc ABIs are quite different. */ +#if defined(__powerpc__) && !defined(__powerpc64__) +#if defined(_AIX) || (defined(__MACH__) && defined(__APPLE__)) +#define __powerpc_aix__ 1 +#else +#define __powerpc_sysv4__ 1 +#endif +#endif + +/* The Unix and Windows variants of x86_64 ABIs are quite different. */ +#if defined(__x86_64__) +#if defined(_WIN32) || defined(__CYGWIN__) +#define __x86_64_ms__ 1 +#else +#define __x86_64_sysv__ 1 +#endif +#endif + + +/* Max # words in temporary structure storage. + */ +#ifndef __VA_ALIST_WORDS +#define __VA_ALIST_WORDS 256 +#endif + +/* + * Definition of the ‘__va_alist’ type. + */ +/* Note: This struct must not contain members of type 'long' or 'unsigned long', + because in the mingw port we use precompiled code that assumes 'long' is + 64-bit whereas avcall-libapi.c is then compiled by a compiler that has a + 32-bit 'long' type. */ +typedef struct vacall_alist +{ + /* some va_... macros need these flags */ + int flags; + /* temporary storage for return value */ +#if defined(__i386__) || defined(__arm__) || defined(__armhf__) || (defined(__powerpc__) && !defined(__powerpc64__) && defined(__MACH__) && defined(__APPLE__)) + /* Filler word, needed if the numbers of words up to now in this structure */ + /* is odd. */ + /* - On MSVC, alignof(double) = 8, but normally on i386 it is = 4. */ + /* - On ARM, GCC 3.1 produces code for an ABI where alignof(double) = 4 */ + /* and alignof(long long) = 4. But in the newer AAPCS ABI, these */ + /* alignments are 8. */ + /* - On Mac OS X, the Apple compiler has alignof(double) = 8 whereas the */ + /* standard GCC has alignof(double) = 4. */ + __vaword filler1; +#endif + union { + char _char; + signed char _schar; + unsigned char _uchar; + short _short; + unsigned short _ushort; + int _int; + unsigned int _uint; + long _long; + unsigned long _ulong; +#if !(defined(__mips64__) || defined(__sparc64__) || defined(__alpha__) || defined(__hppa64__) || defined(__arm64__) || defined(__powerpc64__) || defined(__ia64__) || defined(__riscv64__)) + long long _longlong; + unsigned long long _ulonglong; +#endif + float _float; + double _double; + void* _ptr; + __vaword _words[2]; + } tmp; + /* current pointer into the argument array */ + uintptr_t aptr; + /* structure return pointer, return type, return type size */ + void* raddr; + enum __VAtype rtype; + uintptr_t rsize; +#if defined(__i386__) || defined(__m68k__) || (defined(__sparc__) && !defined(__sparc64__)) || defined(__hppa__) || defined(__hppa64__) || defined(__arm64__) || defined(__ia64__) + void* structraddr; +#endif +#if (defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)) || defined(__alpha__) || defined(__hppa__) || defined(__hppa64__) + uintptr_t memargptr; +#endif +#if defined(__alpha__) + long farg_offset; + double farg[6]; +#endif +#if defined(__hppa__) && !defined(__hppa64__) + long farg_offset; + long darg_offset; + float farg[4]; + double darg[2]; +#endif +#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) + unsigned int anum; +#define __VA_FARG_NUM 2 + unsigned int fanum; + float farg[__VA_FARG_NUM]; + double darg[__VA_FARG_NUM]; +#endif +#if defined(__mipsn32__) || defined(__mips64__) + int anum; +#define __VA_FARG_NUM 8 + float farg[__VA_FARG_NUM]; + double darg[__VA_FARG_NUM]; +#endif +#if defined(__sparc64__) + int anum; + float farg[16]; + double darg[16]; +#endif +#if defined(__hppa64__) +#define __VA_FARG_NUM 8 + float farg[__VA_FARG_NUM]; + double darg[__VA_FARG_NUM]; +#endif +#if defined(__armhf__) +#define __VA_IARG_NUM 4 + /* The first __AV_IARG_NUM integer arguments are passed in registers, even if + some floating-point arguments have already been allocated on the stack. */ + __vaword* iarg; + unsigned int ianum; + unsigned int fanum; + float farg[16]; + double darg[8]; +#endif +#if defined(__arm64__) +#define __VA_IARG_NUM 8 + unsigned int ianum; + __vaword iarg[__VA_IARG_NUM]; +#define __VA_FARG_NUM 8 + unsigned int fanum; + float farg[__VA_FARG_NUM]; + double darg[__VA_FARG_NUM]; +#endif +#if defined(__powerpc__) || defined(__powerpc64__) +#if defined(__powerpc_sysv4__) +#define __VA_IARG_NUM 8 + unsigned int ianum; + __vaword iarg[__VA_IARG_NUM]; +#define __VA_FARG_NUM 8 +#else +#define __VA_FARG_NUM 13 +#endif + unsigned int fanum; + double farg[__VA_FARG_NUM]; +#endif +#if defined(__ia64__) + __vaword* saptr; +#define __VA_FARG_NUM 8 + unsigned int fanum; + double farg[__VA_FARG_NUM]; +#endif +#if defined(__x86_64_sysv__) +#define __VA_FARG_NUM 8 + unsigned int fanum; + double farg[__VA_FARG_NUM]; +#define __VA_IARG_NUM 6 + unsigned int ianum; + __vaword iarg[__VA_IARG_NUM]; +#endif +#if defined(__x86_64_ms__) + int anum; +#define __VA_FARG_NUM 4 + float farg[__VA_FARG_NUM]; + double darg[__VA_FARG_NUM]; +#endif +#if defined(__s390__) && !defined(__s390x__) +#define __VA_IARG_NUM 5 + unsigned int ianum; + __vaword iarg[5]; +#define __VA_FARG_NUM 2 + unsigned int fanum; + float farg[__VA_FARG_NUM]; + double darg[__VA_FARG_NUM]; +#endif +#if defined(__s390x__) +#define __VA_IARG_NUM 5 + unsigned int ianum; + __vaword iarg[__VA_IARG_NUM]; +#define __VA_FARG_NUM 4 + unsigned int fanum; + float farg[__VA_FARG_NUM]; + double darg[__VA_FARG_NUM]; +#endif +#if defined(__riscv32__) || defined(__riscv64__) +#define __VA_IARG_NUM 8 + unsigned int ianum; + __vaword iarg[__VA_IARG_NUM]; + /* Note: iarg[7] == ((__vaword *) (initial aptr))[-1]. */ +#define __VA_FARG_NUM 8 + unsigned int fanum; + float farg[__VA_FARG_NUM]; + double darg[__VA_FARG_NUM]; +#endif +} __va_alist; + + +/* Avoid macro redefinition warnings on DragonFly BSD. */ +#undef __va_start +#undef __va_arg + + +/* + * Definition of the va_start_xxx macros. + */ + +#define __va_start(LIST,RETTYPE,FLAGS) \ + ((LIST)->flags = (FLAGS), \ + (LIST)->rtype = (RETTYPE) \ + ) + +/* + * va_start_struct: Preparing structure return. + */ +#define __va_start_struct(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE,FLAGS) \ + (__va_start(LIST,__VAstruct,FLAGS), \ + (LIST)->rsize = (TYPE_SIZE), \ + ((LIST)->flags & __VA_SUNPROCC_STRUCT_RETURN \ + ? __va_start_struct2(LIST) \ + : ((LIST)->flags & __VA_SUNCC_STRUCT_RETURN \ + ? ((TYPE_SIZE) <= sizeof(vacall_struct_buffer) || (vacall_error_struct_too_large(TYPE_SIZE), 0), \ + (LIST)->raddr = &vacall_struct_buffer, \ + 0 \ + ) \ + : (((LIST)->flags & __VA_SMALL_STRUCT_RETURN) \ + && __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ + ? ((LIST)->raddr = &(LIST)->tmp, \ + __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ + ) \ + : __va_start_struct2(LIST) \ + )) ) ) +/* Determines whether a structure is returned in registers, + * depending on its size and its word-splittable flag. + */ +#if (defined(__i386__) && defined(_WIN32)) +#define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ + ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 \ + || ((TYPE_SIZE) == 8 \ + && (((LIST)->flags & __VA_MSVC_STRUCT_RETURN) \ + || ((TYPE_SPLITTABLE) \ + && ((LIST)->flags & __VA_GCC_STRUCT_RETURN) \ + ) ) ) ) +/* Turn on __VA_REGISTER_STRUCT_RETURN if __VA_SMALL_STRUCT_RETURN was set + * and the struct will actually be returned in registers. + */ +#define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ + ((LIST)->flags |= __VA_REGISTER_STRUCT_RETURN, 0) +#endif +#if (defined(__i386__) && !defined(_WIN32)) || defined(__m68k__) || (defined(__powerpc__) && !defined(__powerpc64__)) || (defined(__s390__) && !defined(__s390x__)) +#define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ + ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 \ + || ((TYPE_SIZE) == 8 && (TYPE_SPLITTABLE) \ + && ((LIST)->flags & __VA_GCC_STRUCT_RETURN) \ + ) ) +/* Turn on __VA_REGISTER_STRUCT_RETURN if __VA_SMALL_STRUCT_RETURN was set + * and the struct will actually be returned in registers. + */ +#define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ + ((LIST)->flags |= __VA_REGISTER_STRUCT_RETURN, 0) +#endif +#if defined(__arm__) || defined(__armhf__) +/* structs of size 3 also will be returned in register */ +#define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ + ((TYPE_SIZE) <= 4) +/* Turn on __VA_REGISTER_STRUCT_RETURN if __VA_SMALL_STRUCT_RETURN was set + * and the struct will actually be returned in registers. + */ +#define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ + ((LIST)->flags |= __VA_REGISTER_STRUCT_RETURN, 0) +#endif +#if defined(__alpha__) +#define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ + ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 || (TYPE_SIZE) == 8 \ + || ((TYPE_SIZE) == 16 && (TYPE_SPLITTABLE) \ + && ((LIST)->flags & __VA_GCC_STRUCT_RETURN) \ + ) ) +/* Turn on __VA_REGISTER_STRUCT_RETURN if __VA_SMALL_STRUCT_RETURN was set + * and the struct will actually be returned in registers. + */ +#define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ + ((LIST)->flags |= __VA_REGISTER_STRUCT_RETURN, 0) +#endif +#if (defined(__hppa__) && !defined(__hppa64__)) || defined(__riscv32__) +#define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ + ((TYPE_SIZE) <= 8) +/* Test __VA_SMALL_STRUCT_RETURN at run time. */ +#define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ + 0 +#endif +#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) || (defined(__sparc__) && !defined(__sparc64__)) +#define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ + ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4) +/* Test __VA_SMALL_STRUCT_RETURN instead of __VA_REGISTER_STRUCT_RETURN. */ +#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) +#define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ + ((LIST)->anum++, \ + 0 \ + ) +#else +#define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ + 0 +#endif +#endif +#if defined(__mipsn32__) || defined(__mips64__) +#define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ + ((LIST)->flags & __VA_GCC_STRUCT_RETURN \ + ? ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 || (TYPE_SIZE) == 8) \ + : ((TYPE_SIZE) <= 16) \ + ) +/* Turn on __VA_REGISTER_STRUCT_RETURN if __VA_SMALL_STRUCT_RETURN was set + * and the struct will actually be returned in registers. Also turn on + * __VA_REGISTER_FLOATSTRUCT_RETURN or __VA_REGISTER_DOUBLESTRUCT_RETURN if + * the struct will be returned in floating-point registers. + */ +#define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ + ((LIST)->flags |= __VA_REGISTER_STRUCT_RETURN, \ + (TYPE_ALIGN) == sizeof(float) && (TYPE_SPLITTABLE) \ + && ((TYPE_SIZE) == sizeof(float) || (TYPE_SIZE) == 2*sizeof(float)) \ + && ((LIST)->flags |= __VA_REGISTER_FLOATSTRUCT_RETURN), \ + (TYPE_ALIGN) == sizeof(double) && (TYPE_SPLITTABLE) \ + && ((TYPE_SIZE) == sizeof(double) || (TYPE_SIZE) == 2*sizeof(double)) \ + && ((LIST)->flags |= __VA_REGISTER_DOUBLESTRUCT_RETURN), \ + 0) +#endif +#if (defined(__powerpc64__) && !defined(__powerpc64_elfv2__)) || defined(__s390x__) +#define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ + 0 +#define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ + 0 +#endif +#if defined(__sparc64__) || defined(__ia64__) +#define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ + ((TYPE_SIZE) <= 32) +/* Turn on __VA_REGISTER_STRUCT_RETURN if __VA_SMALL_STRUCT_RETURN was set + * and the struct will actually be returned in registers. + */ +#define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ + ((LIST)->flags |= __VA_REGISTER_STRUCT_RETURN, \ + 0) +#endif +#if defined(__hppa64__) || defined(__arm64__) || (defined(__powerpc64__) && defined(__powerpc64_elfv2__)) || defined(__x86_64_sysv__) || defined(__riscv64__) +#define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ + ((TYPE_SIZE) <= 16) +/* Turn on __VA_REGISTER_STRUCT_RETURN if __VA_SMALL_STRUCT_RETURN was set + * and the struct will actually be returned in registers. + */ +#define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ + ((LIST)->flags |= __VA_REGISTER_STRUCT_RETURN, \ + 0) +#endif +#if defined(__x86_64_ms__) +#define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ + ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 || (TYPE_SIZE) == 8) +/* Turn on __VA_REGISTER_STRUCT_RETURN if __VA_SMALL_STRUCT_RETURN was set + * and the struct will actually be returned in registers. + */ +#define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ + ((LIST)->flags |= __VA_REGISTER_STRUCT_RETURN, \ + 0) +#endif +/* + * Preparing structure return in memory. + */ +#if defined(__i386__) || defined(__alpha__) || (defined(__arm__) && !defined(__armhf__)) || defined(__powerpc_aix__) || defined(__powerpc64__) +/* Return structure pointer is passed as first arg. */ +#define __va_start_struct2(LIST) \ + ((LIST)->raddr = *(void* *)((LIST)->aptr), \ + (LIST)->aptr += sizeof(void*), \ + 0 \ + ) +#endif +#if defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc64__) || defined(__x86_64_ms__) +/* Return structure pointer is passed as first arg. */ +#define __va_start_struct2(LIST) \ + ((LIST)->raddr = *(void* *)((LIST)->aptr), \ + (LIST)->aptr += sizeof(void*), \ + (LIST)->anum++, \ + 0 \ + ) +#endif +#if defined(__armhf__) +/* Return structure pointer is passed as first arg. */ +#define __va_start_struct2(LIST) \ + ((LIST)->raddr = (void*)(LIST)->iarg[(LIST)->ianum], \ + (LIST)->ianum++, \ + 0 \ + ) +#endif +#if defined(__powerpc_sysv4__) || defined(__x86_64_sysv__) || defined(__s390__) || defined(__s390x__) || defined(__riscv32__) || defined(__riscv64__) +/* Return structure pointer is passed as first arg. */ +#define __va_start_struct2(LIST) \ + ((LIST)->raddr = (void*)((LIST)->iarg[(LIST)->ianum++]), \ + 0 \ + ) +#endif +#if defined(__m68k__) || (defined(__sparc__) && !defined(__sparc64__)) || defined(__hppa__) || defined(__hppa64__) || defined(__arm64__) || defined(__ia64__) +/* Return structure pointer is passed in a special register. */ +#define __va_start_struct2(LIST) \ + ((LIST)->raddr = (LIST)->structraddr, 0) +#endif + + +/* + * Definition of the va_arg_xxx macros. + */ + +/* Padding of non-struct arguments. */ +#define __va_argsize(TYPE_SIZE) \ + (((TYPE_SIZE) + sizeof(__vaword)-1) & -(intptr_t)sizeof(__vaword)) +#if defined(__i386__) || defined(__m68k__) || (defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)) || (defined(__sparc__) && !defined(__sparc64__)) || defined(__alpha__) || (defined(__arm__) && !defined(__armhf__)) || defined(__arm64__) || defined(__powerpc_aix__) || defined(__powerpc64__) || defined(__ia64__) || defined(__x86_64_sysv__) || defined(__s390__) || defined(__s390x__) || defined(__riscv32__) || defined(__riscv64__) +/* args grow up */ +/* small structures < 1 word are adjusted depending on compiler */ +#define __va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + ((LIST)->aptr += __va_argsize(TYPE_SIZE), \ + (LIST)->aptr - __va_argsize(TYPE_SIZE) \ + ) +#define __va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + ((LIST)->aptr += __va_argsize(TYPE_SIZE), \ + (LIST)->aptr - ((TYPE_SIZE) < sizeof(__vaword) \ + ? (TYPE_SIZE) \ + : __va_argsize(TYPE_SIZE) \ + ) \ + ) +#endif +#if defined(__armhf__) +/* args grow up */ +/* small structures < 1 word are adjusted depending on compiler */ +/* the first __VA_IARG_NUM argument words are passed in registers */ +#define __va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + (((LIST)->ianum + ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword) <= __VA_IARG_NUM \ + ? ((LIST)->ianum += __va_argsize(TYPE_SIZE) / sizeof(__vaword), \ + (char*)&(LIST)->iarg[(LIST)->ianum] \ + ) \ + : (((LIST)->aptr == (uintptr_t)&(LIST)->iarg[__VA_IARG_NUM] \ + ? /* split case */ \ + ((LIST)->aptr = (uintptr_t)&(LIST)->iarg[(LIST)->ianum] + __va_argsize(TYPE_SIZE), \ + 0) \ + : ((LIST)->aptr += __va_argsize(TYPE_SIZE), \ + 0)), \ + (LIST)->ianum = __VA_IARG_NUM, \ + (char*)(LIST)->aptr \ + ) ) \ + - __va_argsize(TYPE_SIZE) \ + ) +#define __va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + (((LIST)->ianum + ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword) <= __VA_IARG_NUM \ + ? ((LIST)->ianum += __va_argsize(TYPE_SIZE) / sizeof(__vaword), \ + (char*)&(LIST)->iarg[(LIST)->ianum] \ + ) \ + : (((LIST)->aptr == (uintptr_t)&(LIST)->iarg[__VA_IARG_NUM] \ + ? /* split case */ \ + ((LIST)->aptr = (uintptr_t)&(LIST)->iarg[(LIST)->ianum] + __va_argsize(TYPE_SIZE), \ + 0) \ + : ((LIST)->aptr += __va_argsize(TYPE_SIZE), \ + 0)), \ + (LIST)->ianum = __VA_IARG_NUM, \ + (char*)(LIST)->aptr \ + ) ) \ + - ((TYPE_SIZE) < sizeof(__vaword) \ + ? (TYPE_SIZE) \ + : __va_argsize(TYPE_SIZE) \ + ) \ + ) +#endif +#if defined(__powerpc_sysv4__) +/* args grow up */ +/* small structures < 1 word are adjusted depending on compiler */ +/* the first __VA_IARG_NUM argument words are passed in registers */ +#define __va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + (((LIST)->ianum + ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword) <= __VA_IARG_NUM \ + ? ((LIST)->ianum += __va_argsize(TYPE_SIZE) / sizeof(__vaword), \ + (char*)&(LIST)->iarg[(LIST)->ianum] \ + ) \ + : ((LIST)->aptr += __va_argsize(TYPE_SIZE), \ + (char*)(LIST)->aptr \ + ) ) \ + - __va_argsize(TYPE_SIZE) \ + ) +#define __va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + (((LIST)->ianum + ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword) <= __VA_IARG_NUM \ + ? ((LIST)->ianum += __va_argsize(TYPE_SIZE) / sizeof(__vaword), \ + (char*)&(LIST)->iarg[(LIST)->ianum] \ + ) \ + : ((LIST)->aptr += __va_argsize(TYPE_SIZE), \ + (char*)(LIST)->aptr \ + ) ) \ + - ((TYPE_SIZE) < sizeof(__vaword) \ + ? (TYPE_SIZE) \ + : __va_argsize(TYPE_SIZE) \ + ) \ + ) +#endif +#if defined(__mipsn32__) || defined(__mips64__) || defined(__sparc64__) || defined(__x86_64_ms__) +/* args grow up */ +/* small structures < 1 word are adjusted depending on compiler */ +#define __va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + ((LIST)->anum += __va_argsize(TYPE_SIZE)/sizeof(__vaword), \ + (LIST)->aptr += __va_argsize(TYPE_SIZE), \ + (LIST)->aptr - __va_argsize(TYPE_SIZE) \ + ) +#define __va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + ((LIST)->anum += __va_argsize(TYPE_SIZE)/sizeof(__vaword), \ + (LIST)->aptr += __va_argsize(TYPE_SIZE), \ + (LIST)->aptr - ((TYPE_SIZE) < sizeof(__vaword) \ + ? (TYPE_SIZE) \ + : __va_argsize(TYPE_SIZE) \ + ) \ + ) +#endif +#if defined(__hppa__) && !defined(__hppa64__) +/* args grow down */ +#define __va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + ((LIST)->aptr = (LIST)->aptr - __va_argsize(TYPE_SIZE), \ + ((TYPE_SIZE) > 4 && ((LIST)->aptr &= -8)), \ + (LIST)->aptr \ + ) +#define __va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + ((LIST)->aptr = (LIST)->aptr - __va_argsize(TYPE_SIZE), \ + ((TYPE_SIZE) > 4 && ((LIST)->aptr &= -8)), \ + (LIST)->aptr + ((-(TYPE_SIZE)) & 3) \ + ) +#endif +#if defined(__hppa64__) +/* args grow up */ +#define __va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + (((TYPE_SIZE) > 8 && ((LIST)->aptr = (((LIST)->aptr +15) & -16))), \ + (LIST)->aptr += __va_argsize(TYPE_SIZE), \ + (LIST)->aptr - __va_argsize(TYPE_SIZE) \ + ) +#define __va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + (((TYPE_SIZE) > 8 && ((LIST)->aptr = (((LIST)->aptr +15) & -16))), \ + (LIST)->aptr += __va_argsize(TYPE_SIZE), \ + (LIST)->aptr - ((TYPE_SIZE) < sizeof(__vaword) \ + ? (TYPE_SIZE) \ + : __va_argsize(TYPE_SIZE) \ + ) \ + ) +#endif +#if defined(__i386__) || ((defined(__mipsn32__) || defined(__mips64__)) && defined(_MIPSEL)) || defined(__alpha__) || ((defined(__arm__) || defined(__armhf__)) && defined(__ARMEL__)) || defined(__ia64__) || (defined(__powerpc64__) && defined(_LITTLE_ENDIAN)) || defined(__x86_64_ms__) +/* little endian -> small args < 1 word are adjusted to the left */ +#define __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + (void*)__va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) +#endif +#if defined(__m68k__) || ((defined(__mipsn32__) || defined(__mips64__)) && defined(_MIPSEB)) || defined(__sparc__) || defined(__sparc64__) || defined(__hppa__) || defined(__hppa64__) || ((defined(__arm__) || defined(__armhf__)) && !defined(__ARMEL__)) || (defined(__powerpc__) && !defined(__powerpc64__)) || (defined(__powerpc64__) && defined(_BIG_ENDIAN)) +/* big endian -> small args < 1 word are adjusted to the right */ +#define __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + (void*)__va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) +#endif +#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) +#ifdef _MIPSEB +/* big endian -> small args < 1 word are adjusted to the right */ +#define __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + ((LIST)->anum++, \ + (void*)__va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN)) +#else /* _MIPSEL */ +/* little endian -> small args < 1 word are adjusted to the left */ +#define __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + ((LIST)->anum++, \ + (void*)__va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN)) +#endif +#endif +#if defined(__arm64__) +/* the first __VA_IARG_NUM argument words are passed in registers */ +#define __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + ((LIST)->ianum + ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword) <= __VA_IARG_NUM \ + ? ((LIST)->ianum += ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword), \ + &(LIST)->iarg[(LIST)->ianum - ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword)] \ + ) \ + : ((LIST)->ianum = __VA_IARG_NUM, \ + (void*)__va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + ) ) +#endif +#if defined(__x86_64_sysv__) +/* the first __VA_IARG_NUM argument words are passed in registers */ +#define __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + (((TYPE_SIZE) <= 2*sizeof(__vaword) \ + && (LIST)->ianum + ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword) <= __VA_IARG_NUM) \ + ? ((LIST)->ianum += ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword), \ + &(LIST)->iarg[(LIST)->ianum - ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword)] \ + ) \ + : (void*)__va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + ) +#endif +#if defined(__s390__) || defined(__s390x__) +/* the first __VA_IARG_NUM argument words are passed in registers */ +#define __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + ((LIST)->ianum + ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword) <= __VA_IARG_NUM \ + ? ((LIST)->ianum += ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword), \ + (void*)((uintptr_t)&(LIST)->iarg[(LIST)->ianum] - (TYPE_SIZE)) \ + ) \ + : ((LIST)->ianum = __VA_IARG_NUM, \ + (void*)__va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + ) ) +#endif +#if defined(__riscv32__) || defined(__riscv64__) +/* the first __VA_IARG_NUM argument words are passed in registers */ +#define __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + ((LIST)->ianum + ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword) <= __VA_IARG_NUM \ + ? ((LIST)->ianum += ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword), \ + &(LIST)->iarg[(LIST)->ianum - ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword)] \ + ) \ + : (((LIST)->ianum < __VA_IARG_NUM \ + ? ((LIST)->aptr -= (__VA_IARG_NUM - (LIST)->ianum) * sizeof(__vaword), \ + (LIST)->ianum = __VA_IARG_NUM, \ + 0) \ + : 0), \ + (void*)__va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + ) ) +#endif +#define __va_arg(LIST,TYPE) \ + *(TYPE*)__va_arg_adjusted(LIST,sizeof(TYPE),__VA_alignof(TYPE)) + +/* Integer arguments. */ + +#define _va_arg_char(LIST) __va_arg(LIST,char) +#define _va_arg_schar(LIST) __va_arg(LIST,signed char) +#define _va_arg_uchar(LIST) __va_arg(LIST,unsigned char) +#define _va_arg_short(LIST) __va_arg(LIST,short) +#define _va_arg_ushort(LIST) __va_arg(LIST,unsigned short) +#define _va_arg_int(LIST) __va_arg(LIST,int) +#define _va_arg_uint(LIST) __va_arg(LIST,unsigned int) +#define _va_arg_long(LIST) __va_arg(LIST,long) +#define _va_arg_ulong(LIST) __va_arg(LIST,unsigned long) + +#if defined(__mips64__) || defined(__sparc64__) || defined(__alpha__) || defined(__hppa64__) || defined(__arm64__) || defined(__powerpc64__) || defined(__ia64__) || (defined(__x86_64__) && !defined(__x86_64_x32__) && !defined(__VA_LLP64)) || defined(__s390x__) || defined(__riscv64__) +/* ‘long long’ and ‘long’ are identical. */ +#define _va_arg_longlong _va_arg_long +#define _va_arg_ulonglong _va_arg_ulong +#elif defined(__mipsn32__) || defined(__x86_64_x32__) || (defined(__x86_64__) && defined(__VA_LLP64)) +/* ‘long long’ fits in __vaword. */ +#define _va_arg_longlong(LIST) __va_arg(LIST,long long) +#define _va_arg_ulonglong(LIST) __va_arg(LIST,unsigned long long) +#elif defined(__i386__) || defined(__m68k__) || defined(__mips__) || (defined(__sparc__) && !defined(__sparc64__)) || (defined(__hppa__) && !defined(__hppa64__)) || defined(__arm__) || defined(__armhf__) || defined(__powerpc__) || (defined(__s390__) && !defined(__s390x__)) || defined(__riscv32__) +/* ‘long long’s are passed embedded on the arg stack. */ +#define _va_arg_longlong(LIST) __va_arg_longlong(LIST,long long) +#define _va_arg_ulonglong(LIST) __va_arg_longlong(LIST,unsigned long long) +#if defined(__i386__) || defined(__m68k__) || defined(__powerpc_aix__) +/* ‘long long’s are (at most) word-aligned. */ +#define __va_arg_longlong(LIST,TYPE) __va_arg(LIST,TYPE) +#endif +#if defined(__mips__) || defined(__arm__) +/* ‘long long’s have alignment 8. */ +#define __va_arg_longlong(LIST,TYPE) \ + ((LIST)->aptr = (((LIST)->aptr+__VA_alignof(TYPE)-1) & -(intptr_t)__VA_alignof(TYPE)), \ + __va_arg(LIST,TYPE)) +#endif +#if defined(__armhf__) || defined(__powerpc_sysv4__) +/* ‘long long’s have alignment 8. */ +#define __va_arg_longlong(LIST,TYPE) \ + (((LIST)->ianum < __VA_IARG_NUM \ + ? ((LIST)->ianum = (((LIST)->ianum+__VA_alignof(TYPE)/sizeof(__vaword)-1) & -(intptr_t)(__VA_alignof(TYPE)/sizeof(__vaword))), 0) \ + : ((LIST)->aptr = (((LIST)->aptr+__VA_alignof(TYPE)-1) & -(intptr_t)__VA_alignof(TYPE)), 0) \ + ), \ + __va_arg(LIST,TYPE)) +#endif +#if (defined(__s390__) && !defined(__s390x__)) || defined(__riscv32__) +/* Within the arg stack, the alignment is only 4, not 8. */ +#define __va_arg_longlong(LIST,TYPE) __va_arg(LIST,TYPE) +#endif +#if (defined(__sparc__) && !defined(__sparc64__)) +/* Within the arg stack, the alignment is only 4, not 8. */ +/* Beware against unaligned accesses! */ +#define __va_arg_longlong(LIST,TYPE) \ + ((LIST)->tmp._words[0] = ((__vaword*)((LIST)->aptr))[0], \ + (LIST)->tmp._words[1] = ((__vaword*)((LIST)->aptr))[1], \ + (LIST)->aptr += sizeof(TYPE), \ + (TYPE)((LIST)->tmp._longlong) \ + ) +#endif +#if defined(__hppa__) && !defined(__hppa64__) +/* ‘long long’s have alignment 8. */ +#define __va_arg_longlong(LIST,TYPE) \ + ((LIST)->aptr = ((LIST)->aptr & -(intptr_t)__VA_alignof(TYPE)), \ + __va_arg(LIST,TYPE)) +#endif +#endif + +/* Floating point arguments. */ + +#if defined(__i386__) || defined(__m68k__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc__) || defined(__sparc64__) || defined(__alpha__) || defined(__hppa64__) || defined(__arm64__) || defined(__powerpc__) || defined(__powerpc64__) || defined(__ia64__) || defined(__x86_64__) || defined(__s390__) || defined(__s390x__) || defined(__riscv32__) || defined(__riscv64__) +#define __va_align_double(LIST) +#endif +#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) || defined(__arm__) || defined(__armhf__) +/* __VA_alignof(double) > sizeof(__vaword) */ +#define __va_align_double(LIST) \ + (LIST)->aptr = ((LIST)->aptr + sizeof(double)-1) & -(intptr_t)sizeof(double), +#endif +#if defined(__hppa__) && !defined(__hppa64__) +#define __va_align_double(LIST) \ + (LIST)->aptr = (LIST)->aptr & -(intptr_t)sizeof(double), +#endif + +#if defined(__sparc__) && !defined(__sparc64__) +/* Beware against unaligned ‘double’ accesses! */ +#define _va_arg_double(LIST) \ + (__va_align_double(LIST) \ + (LIST)->tmp._words[0] = ((__vaword*)((LIST)->aptr))[0], \ + (LIST)->tmp._words[1] = ((__vaword*)((LIST)->aptr))[1], \ + (LIST)->aptr += sizeof(double), \ + (LIST)->tmp._double \ + ) +#endif +#if defined(__alpha__) +/* The first 6 floating point registers have been stored in another place. */ +#define _va_arg_double(LIST) \ + (((LIST)->aptr += sizeof(double)) <= (LIST)->memargptr \ + ? *(double*)((LIST)->aptr - sizeof(double) + (LIST)->farg_offset) \ + : *(double*)((LIST)->aptr - sizeof(double)) \ + ) +#define _va_arg_float(LIST) \ + (((LIST)->aptr += sizeof(double)) <= (LIST)->memargptr \ + ? /* The first 6 args have been put into memory by "stt" instructions */\ + /* (see vacall-alpha.s!). Therefore load them as doubles. */ \ + /* When viewed as floats, the value will be the correct one. */ \ + (float)*(double*)((LIST)->aptr - sizeof(double) + (LIST)->farg_offset) \ + : /* These args have been put into memory by "sts" instructions, */ \ + /* therefore load them as floats. */ \ + *(float*)((LIST)->aptr - sizeof(double)) \ + ) +#endif +#if defined(__hppa__) && !defined(__hppa64__) +/* The floats and doubles among the first 4 argument words are passed + * - in both general registers and floating-point registers when the + * function call is a variadic one, which means: + * - for HP cc: the call is done through a function pointer or + * directly to a function declared with a varargs prototype, + * - for GCC: the function's type is a varargs function. + * - in floating-point registers otherwise. + * Since the code in tests.c uses a function pointer, casted to a non-varargs + * function type, we are in the first case for HP cc, but in the second case + * for GCC. + * Therefore we need to take the values from the floating-point registers. + */ +#define _va_arg_float(LIST) \ + (((LIST)->aptr -= sizeof(float)) >= (LIST)->memargptr \ + ? /* The first 4 float args are stored separately. */ \ + *(float*)((LIST)->aptr + (LIST)->farg_offset) \ + : *(float*)((LIST)->aptr) \ + ) +#define _va_arg_double(LIST) \ + (__va_align_double(LIST) \ + (((LIST)->aptr -= sizeof(double)) >= (LIST)->memargptr \ + ? /* The first 2 double args are stored separately. */ \ + *(double*)((LIST)->aptr + (LIST)->darg_offset) \ + : *(double*)((LIST)->aptr) \ + )) +#endif +#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) +/* The first 0,1,2 registers are stored elsewhere if they are floating-point + * parameters. + */ +#define _va_arg_float(LIST) \ + ((LIST)->aptr += sizeof(float), \ + (LIST)->anum++, \ + (LIST)->fanum++, \ + ((LIST)->anum == (LIST)->fanum && (LIST)->fanum <= __VA_FARG_NUM \ + ? /* only floating-point arguments so far */ \ + (LIST)->farg[(LIST)->fanum - 1] \ + : *(float*)((LIST)->aptr - sizeof(float)) \ + )) +#define _va_arg_double(LIST) \ + (__va_align_double(LIST) \ + (LIST)->aptr += sizeof(double), \ + (LIST)->anum++, \ + (LIST)->fanum++, \ + ((LIST)->anum == (LIST)->fanum && (LIST)->fanum <= __VA_FARG_NUM \ + ? /* only floating-point arguments so far */ \ + (LIST)->darg[(LIST)->fanum - 1] \ + : *(double*)((LIST)->aptr - sizeof(double)) \ + )) +#endif +#if defined(__mipsn32__) || defined(__mips64__) || defined(__x86_64_ms__) +/* The first 0,..,8 registers are stored elsewhere if they are floating-point + * parameters. + */ +#define _va_arg_float(LIST) \ + (__va_align_double(LIST) \ + (LIST)->aptr += sizeof(double), \ + (++(LIST)->anum <= __VA_FARG_NUM \ + ? (LIST)->farg[(LIST)->anum - 1] \ + : *(float*)((LIST)->aptr - sizeof(double)) \ + )) +#define _va_arg_double(LIST) \ + (__va_align_double(LIST) \ + (LIST)->aptr += sizeof(double), \ + (++(LIST)->anum <= __VA_FARG_NUM \ + ? (LIST)->darg[(LIST)->anum - 1] \ + : *(double*)((LIST)->aptr - sizeof(double)) \ + )) +#endif +#if defined(__sparc64__) +/* The first 0,..,16 registers are stored elsewhere if they are floating-point + * parameters. + */ +#define _va_arg_float(LIST) \ + (__va_align_double(LIST) \ + (LIST)->aptr += sizeof(double), \ + (++(LIST)->anum <= 16 \ + ? (LIST)->farg[(LIST)->anum - 1] \ + : *(float*)((LIST)->aptr - sizeof(float)) \ + )) +#define _va_arg_double(LIST) \ + (__va_align_double(LIST) \ + (LIST)->aptr += sizeof(double), \ + (++(LIST)->anum <= 16 \ + ? (LIST)->darg[(LIST)->anum - 1] \ + : *(double*)((LIST)->aptr - sizeof(double)) \ + )) +#endif +#if defined(__hppa64__) +/* The floating-point arguments among the first 8 argument words have been + stored elsewhere. */ +#define _va_arg_float(LIST) \ + ((LIST)->aptr += sizeof(double), \ + ((LIST)->aptr <= (LIST)->memargptr \ + ? (LIST)->farg[__VA_FARG_NUM-1-((LIST)->memargptr - (LIST)->aptr)/sizeof(__vaword)] \ + : ((float*)(LIST)->aptr)[-1] \ + )) +#define _va_arg_double(LIST) \ + ((LIST)->aptr += sizeof(double), \ + ((LIST)->aptr <= (LIST)->memargptr \ + ? (LIST)->darg[__VA_FARG_NUM-1-((LIST)->memargptr - (LIST)->aptr)/sizeof(__vaword)] \ + : ((double*)(LIST)->aptr)[-1] \ + )) +#endif +#if defined(__armhf__) +#define _va_arg_float(LIST) \ + ((LIST)->fanum <= 15 \ + ? (LIST)->farg[(LIST)->fanum++] \ + : ((LIST)->aptr += sizeof(float), \ + *(float*)((LIST)->aptr - sizeof(float)) \ + ) ) +#define _va_arg_double(LIST) \ + (((LIST)->fanum % 2 ? (LIST)->fanum++ : 0), \ + ((LIST)->fanum <= 14 \ + ? ((LIST)->fanum += 2, (LIST)->darg[(LIST)->fanum / 2 - 1]) \ + : ((LIST)->aptr += sizeof(double), \ + *(double*)((LIST)->aptr - sizeof(double)) \ + )) ) +#endif +#if defined(__arm64__) +/* The first __VA_FARG_NUM floating-point args have been stored elsewhere. */ +#define _va_arg_float(LIST) \ + ((LIST)->fanum < __VA_FARG_NUM \ + ? (LIST)->farg[(LIST)->fanum++] \ + : ((LIST)->aptr += sizeof(__vaword), \ + *(float*)((LIST)->aptr - sizeof(__vaword)) \ + ) ) +#define _va_arg_double(LIST) \ + ((LIST)->fanum < __VA_FARG_NUM \ + ? (LIST)->darg[(LIST)->fanum++] \ + : ((LIST)->aptr += sizeof(__vaword), \ + *(double*)((LIST)->aptr - sizeof(__vaword)) \ + ) ) +#endif +#if defined(__powerpc_aix__) +/* The first __VA_FARG_NUM floating-point args have been stored elsewhere. */ +#define _va_arg_float(LIST) \ + ((LIST)->aptr += sizeof(float), \ + ((LIST)->fanum < __VA_FARG_NUM \ + ? (float) (LIST)->farg[(LIST)->fanum++] \ + : *(float*)((LIST)->aptr - sizeof(float)) \ + )) +#define _va_arg_double(LIST) \ + (__va_align_double(LIST) \ + (LIST)->aptr += sizeof(double), \ + ((LIST)->fanum < __VA_FARG_NUM \ + ? (LIST)->farg[(LIST)->fanum++] \ + : *(double*)((LIST)->aptr - sizeof(double)) \ + )) +#endif +#if defined(__powerpc_sysv4__) +/* The first __VA_FARG_NUM floating-point args have been stored elsewhere. */ +#define _va_arg_float(LIST) \ + ((LIST)->fanum < __VA_FARG_NUM \ + ? (float) (LIST)->farg[(LIST)->fanum++] \ + : ((LIST)->aptr += sizeof(float), \ + *(float*)((LIST)->aptr - sizeof(float)) \ + ) ) +#define _va_arg_double(LIST) \ + ((LIST)->fanum < __VA_FARG_NUM \ + ? (LIST)->farg[(LIST)->fanum++] \ + : (__va_align_double(LIST) \ + (LIST)->aptr += sizeof(double), \ + *(double*)((LIST)->aptr - sizeof(double)) \ + ) ) +#endif +#if defined(__powerpc64__) +/* The first __VA_FARG_NUM floating-point args have been stored elsewhere. */ +#if defined(_AIX) +#define _va_arg_float(LIST) \ + ((LIST)->aptr += sizeof(__vaword), \ + ((LIST)->fanum < __VA_FARG_NUM \ + ? (float) (LIST)->farg[(LIST)->fanum++] \ + : ((float*)(LIST)->aptr)[(LIST)->flags & __VA_AIXCC_FLOAT_ARGS ? -2 : -1] \ + )) +#elif defined(_LITTLE_ENDIAN) +#define _va_arg_float(LIST) \ + ((LIST)->aptr += sizeof(__vaword), \ + ((LIST)->fanum < __VA_FARG_NUM \ + ? (float) (LIST)->farg[(LIST)->fanum++] \ + : ((float*)(LIST)->aptr)[-2] \ + )) +#else /* _BIG_ENDIAN */ +#define _va_arg_float(LIST) \ + ((LIST)->aptr += sizeof(__vaword), \ + ((LIST)->fanum < __VA_FARG_NUM \ + ? (float) (LIST)->farg[(LIST)->fanum++] \ + : ((float*)(LIST)->aptr)[-1] \ + )) +#endif +#define _va_arg_double(LIST) \ + (__va_align_double(LIST) \ + (LIST)->aptr += sizeof(double), \ + ((LIST)->fanum < __VA_FARG_NUM \ + ? (LIST)->farg[(LIST)->fanum++] \ + : *(double*)((LIST)->aptr - sizeof(double)) \ + )) +#endif +#if defined(__ia64__) +/* The first 8 floating-point args have been stored elsewhere. */ +#define _va_arg_float(LIST) \ + ((LIST)->aptr += sizeof(__vaword), \ + ((LIST)->fanum < __VA_FARG_NUM \ + ? (float) (LIST)->farg[(LIST)->fanum++] \ + : *(float*)((LIST)->aptr - sizeof(__vaword)) \ + )) +#define _va_arg_double(LIST) \ + (__va_align_double(LIST) \ + (LIST)->aptr += sizeof(double), \ + ((LIST)->fanum < __VA_FARG_NUM \ + ? (LIST)->farg[(LIST)->fanum++] \ + : *(double*)((LIST)->aptr - sizeof(double)) \ + )) +#endif +#if defined(__x86_64_sysv__) +/* The first 8 floating-point args have been stored elsewhere. */ +#define _va_arg_float(LIST) \ + ((LIST)->fanum < __VA_FARG_NUM \ + ? *(float*)&(LIST)->farg[(LIST)->fanum++] \ + : ((LIST)->aptr += sizeof(__vaword), \ + *(float*)((LIST)->aptr - sizeof(__vaword)) \ + ) ) +#define _va_arg_double(LIST) \ + ((LIST)->fanum < __VA_FARG_NUM \ + ? (LIST)->farg[(LIST)->fanum++] \ + : ((LIST)->aptr += sizeof(__vaword), \ + *(double*)((LIST)->aptr - sizeof(__vaword)) \ + ) ) +#endif +#if defined(__s390__) || defined(__s390x__) +/* The first __VA_FARG_NUM floating-point args have been stored elsewhere. */ +#define _va_arg_float(LIST) \ + ((LIST)->fanum < __VA_FARG_NUM \ + ? (LIST)->farg[(LIST)->fanum++] \ + : ((LIST)->aptr += sizeof(__vaword), \ + ((float*)(LIST)->aptr)[-1] \ + ) ) +#define _va_arg_double(LIST) \ + ((LIST)->fanum < __VA_FARG_NUM \ + ? (LIST)->darg[(LIST)->fanum++] \ + : ((LIST)->aptr += sizeof(double), \ + *(double*)((LIST)->aptr - sizeof(double)) \ + ) ) +#endif +#if defined(__riscv32__) || defined(__riscv64__) +/* The first __VA_FARG_NUM floating-point args have been stored elsewhere. */ +#define _va_arg_float(LIST) \ + ((LIST)->fanum < __VA_FARG_NUM \ + ? (LIST)->farg[(LIST)->fanum++] \ + : __va_arg((LIST),float) \ + ) +#define _va_arg_double(LIST) \ + ((LIST)->fanum < __VA_FARG_NUM \ + ? (LIST)->darg[(LIST)->fanum++] \ + : __va_arg((LIST),double) \ + ) +#endif +#ifndef _va_arg_float +#define _va_arg_float(LIST) __va_arg(LIST,float) +#endif +#ifndef _va_arg_double +#define _va_arg_double(LIST) \ + (__va_align_double(LIST) __va_arg(LIST,double)) +#endif + +/* Pointer arguments. */ +#define _va_arg_ptr(LIST) __va_arg(LIST,void*) + +/* Structure arguments. */ +/* Structure argument alignment. */ +#if defined(__i386__) && defined(_MSC_VER) +/* In MSVC, doubles inside structures have alignment 8, i.e. + * __VA_alignof(double) = 8, but doubles (and also structures containing + * doubles) are passed on the stack with alignment 4. Looks really weird. + */ +#define __va_struct_alignment(TYPE_ALIGN) \ + ((TYPE_ALIGN) <= 4 ? (TYPE_ALIGN) : 4) +#else +#define __va_struct_alignment(TYPE_ALIGN) \ + (TYPE_ALIGN) +#endif +#define __va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ + (LIST)->aptr = ((LIST)->aptr + __va_struct_alignment(TYPE_ALIGN)-1) & -(intptr_t)__va_struct_alignment(TYPE_ALIGN), +#if defined(__i386__) || defined(__m68k__) || defined(__alpha__) || defined(__arm__) || defined(__armhf__) || (defined(__powerpc64__) && !defined(_AIX)) || defined(__x86_64_sysv__) +#define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ + (__va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ + __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + ) +#endif +#if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) +/* small structures < 1 word are adjusted depending on compiler */ +#define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ + (__va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ + ((LIST)->flags & __VA_SGICC_STRUCT_ARGS \ + ? /* SGI MIPS cc passes small structures left-adjusted, although big-endian! */\ + (void*)__va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + : /* SGI MIPS gcc passes small structures within the first four words left- \ + * adjusted, for compatibility with cc. But structures in memory are passed \ + * right-adjusted!! See gcc-2.6.3/config/mips/mips.c:function_arg(). \ + */ \ + ((LIST)->aptr < (LIST)->memargptr \ + ? (void*)__va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + : (void*)__va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + )) ) +#endif +#if defined(__mipsn32__) || defined(__mips64__) +/* small structures < 1 word are adjusted depending on compiler */ +#define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ + (__va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ + ((LIST)->flags & __VA_SGICC_STRUCT_ARGS \ + ? /* SGI MIPS cc and gcc >= 3.4 passes small structures left-adjusted, although big-endian! */\ + (void*)__va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + : /* SGI MIPS gcc < 3.4 passes small structures right-adjusted. */ \ + (void*)__va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + )) +#endif +#if defined(__powerpc_aix__) || (defined(__powerpc64__) && defined(_AIX)) +/* small structures < 1 word are adjusted depending on compiler */ +#define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ + (__va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ + ((LIST)->flags & __VA_AIXCC_STRUCT_ARGS \ + ? /* AIX cc and xlc pass small structures left-adjusted, although big-endian! */\ + (void*)__va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + : /* gcc passes small structures right-adjusted. */ \ + (void*)__va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + )) +#endif +#if defined(__powerpc_sysv4__) +/* Structures are passed as pointers to caller-made local copies. */ +#define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ + va_arg_ptr(LIST,void*) +#endif +#if defined(__sparc__) && !defined(__sparc64__) +/* Structures are passed as pointers to caller-made local copies. */ +#define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ + va_arg_ptr(LIST,void*) +#endif +#if defined(__sparc64__) +/* Small structures are passed left-adjusted, although big-endian! */ +/* Big structures are passed as pointers to caller-made local copies. */ +#define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ + ((TYPE_SIZE) <= 16 \ + ? (__va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ + (void*)__va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN)) \ + : va_arg_ptr(LIST,void*) \ + ) +#endif +#if defined(__hppa64__) +/* Structures are passed left-adjusted (although big-endian!). */ +#define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ + (__va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ + (void*)__va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + ) +#endif +#if defined(__arm64__) || defined(__riscv32__) || defined(__riscv64__) +/* Small structures are passed in registers or on the stack. */ +/* Big structures are passed as pointers to caller-made local copies. */ +#define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ + ((TYPE_SIZE) <= 2*sizeof(__vaword) \ + ? (void*)__va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + : va_arg_ptr(LIST,void*) \ + ) +#endif +#if defined(__x86_64_ms__) || defined(__s390__) || defined(__s390x__) +/* Structures of 1, 2, 4, 8 bytes are passed as embedded copies on the arg stack. + * Big structures are passed as pointers to caller-made local copies. + */ +#define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ + ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 || (TYPE_SIZE) == 8 \ + ? (void*)__va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + : va_arg_ptr(LIST,void*) \ + ) +#endif +#if defined(__hppa__) && !defined(__hppa64__) +/* Structures <= 8 bytes are passed as embedded copies on the arg stack. + * Big structures are passed as pointers (to caller-made local copies + * with GCC >= 8, without copy otherwise). + */ +#define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ + ((TYPE_SIZE) > 8 \ + ? va_arg_ptr(LIST,void*) \ + : /* FIXME: gcc-2.6.3 passes structures <= 4 bytes in memory left-adjusted! ?? */\ + (void*)__va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + ) +#endif +#if defined(__ia64__) +/* With GCC < 3, types larger than a word have 2-word alignment. */ +#define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ + (__va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ + (((LIST)->flags & __VA_OLDGCC_STRUCT_ARGS) && (TYPE_SIZE) > sizeof(__vaword) && (((__vaword*)(LIST)->aptr - (LIST)->saptr) & 1) ? (LIST)->aptr += sizeof(__vaword) : 0), \ + __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + ) +#endif + + +/* + * Definition of the va_return_xxx macros. + */ +#define __va_return(LIST,RETTYPE) \ + (((LIST)->rtype == (RETTYPE)) || (vacall_error_type_mismatch((LIST)->rtype,RETTYPE), 0)) +#define _va_return_void(LIST) \ + __va_return(LIST,__VAvoid) +#define _va_return_char(LIST,VAL) \ + (__va_return(LIST,__VAchar), (LIST)->tmp._char = (VAL)) +#define _va_return_schar(LIST,VAL) \ + (__va_return(LIST,__VAschar), (LIST)->tmp._schar = (VAL)) +#define _va_return_uchar(LIST,VAL) \ + (__va_return(LIST,__VAuchar), (LIST)->tmp._uchar = (VAL)) +#define _va_return_short(LIST,VAL) \ + (__va_return(LIST,__VAshort), (LIST)->tmp._short = (VAL)) +#define _va_return_ushort(LIST,VAL) \ + (__va_return(LIST,__VAushort), (LIST)->tmp._ushort = (VAL)) +#define _va_return_int(LIST,VAL) \ + (__va_return(LIST,__VAint), (LIST)->tmp._int = (VAL)) +#define _va_return_uint(LIST,VAL) \ + (__va_return(LIST,__VAuint), (LIST)->tmp._uint = (VAL)) +#define _va_return_long(LIST,VAL) \ + (__va_return(LIST,__VAlong), (LIST)->tmp._long = (VAL)) +#define _va_return_ulong(LIST,VAL) \ + (__va_return(LIST,__VAulong), (LIST)->tmp._ulong = (VAL)) +#if defined(__mips64__) || defined(__sparc64__) || defined(__alpha__) || defined(__hppa64__) || defined(__arm64__) || defined(__powerpc64__) || defined(__ia64__) || (defined(__x86_64__) && !defined(__x86_64_x32__) && !defined(__VA_LLP64)) || defined(__riscv64__) +#define _va_return_longlong(LIST,VAL) \ + (__va_return(LIST,__VAlonglong), (LIST)->tmp._long = (VAL)) +#define _va_return_ulonglong(LIST,VAL) \ + (__va_return(LIST,__VAulonglong), (LIST)->tmp._ulong = (VAL)) +#else +#define _va_return_longlong(LIST,VAL) \ + (__va_return(LIST,__VAlonglong), (LIST)->tmp._longlong = (VAL)) +#define _va_return_ulonglong(LIST,VAL) \ + (__va_return(LIST,__VAulonglong), (LIST)->tmp._ulonglong = (VAL)) +#endif +#define _va_return_float(LIST,VAL) \ + (__va_return(LIST,__VAfloat), (LIST)->tmp._float = (VAL)) +#define _va_return_double(LIST,VAL) \ + (__va_return(LIST,__VAdouble), (LIST)->tmp._double = (VAL)) +#define _va_return_ptr(LIST,VAL) \ + (__va_return(LIST,__VAvoidp), (LIST)->tmp._ptr = (VAL)) +#define __va_return_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL_ADDR) \ + (__va_return(LIST,__VAstruct), \ + vacall_structcpy((void*)((LIST)->raddr),VAL_ADDR,TYPE_SIZE,TYPE_ALIGN) \ + ) + + +/* + * Miscellaneous declarations. + */ +extern void vacall_structcpy (void* dest, const void* src, unsigned long size, unsigned long alignment); + + +#endif /* _VACALL_INTERNAL_H */ diff --git a/vacall/vacall-libapi.c b/vacall/vacall-libapi.c new file mode 100644 index 0000000..385e7be --- /dev/null +++ b/vacall/vacall-libapi.c @@ -0,0 +1,232 @@ +/* + * Copyright 1995-2018 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "config.h" +#include +#include +#include + +#include "vacall-internal.h" + +/* This is the implementation of the library API. + The symbols that the linker sees are all prefixed with 'vacall', + to avoid potential collisions with other libraries. */ + +#ifndef REENTRANT + +/* This is the function pointer vacall(). A function pointer indirection is + needed because gcc-3.4 generates invalid code when the address of a symbol + is casted to a function pointer with different return type. + (https://gcc.gnu.org/ml/gcc-patches/2003-12/msg01767.html) */ +#ifdef __cplusplus +extern "C" void vacall_receiver (); /* the return type is variable, not void! */ +#else +extern void vacall_receiver (); /* the return type is variable, not void! */ +#endif +void (*vacall) () = vacall_receiver; + +/* This is the function called by vacall(). */ +void (* vacall_function) (va_alist); + +#endif + +/* Room for returning structs according to the Sun C non-reentrant struct return convention. */ +typedef union { __vaword room[__VA_ALIST_WORDS]; double align; } __va_struct_buffer_t; +static __va_struct_buffer_t vacall_struct_buffer; + +static _Noreturn void +vacall_error_type_mismatch (enum __VAtype start_type, enum __VAtype return_type) +{ + /* If you see this, fix your code. */ + fprintf (stderr, "vacall: va_start type %d and va_return type %d disagree.\n", + (int)start_type, (int)return_type); + abort(); +} + +static _Noreturn void +vacall_error_struct_too_large (unsigned int size) +{ + /* If you see this, increase __VA_ALIST_WORDS: */ + fprintf (stderr, "vacall: struct of size %u too large for Sun C struct return.\n", + size); + abort(); +} + +void vacall_start (va_alist list, int rettype, int flags) +{ + __va_start(list,rettype,flags); +} + +void vacall_start_struct (va_alist list, size_t type_size, size_t type_align, int type_splittable, int flags) +{ + __va_start_struct(list,type_size,type_align,type_splittable,flags); +} + +char vacall_arg_char (va_alist list) +{ + return _va_arg_char(list); +} + +signed char vacall_arg_schar (va_alist list) +{ + return _va_arg_schar(list); +} + +unsigned char vacall_arg_uchar (va_alist list) +{ + return _va_arg_uchar(list); +} + +short vacall_arg_short (va_alist list) +{ + return _va_arg_short(list); +} + +unsigned short vacall_arg_ushort (va_alist list) +{ + return _va_arg_ushort(list); +} + +int vacall_arg_int (va_alist list) +{ + return _va_arg_int(list); +} + +unsigned int vacall_arg_uint (va_alist list) +{ + return _va_arg_uint(list); +} + +long vacall_arg_long (va_alist list) +{ + return _va_arg_long(list); +} + +unsigned long vacall_arg_ulong (va_alist list) +{ + return _va_arg_ulong(list); +} + +long long vacall_arg_longlong (va_alist list) +{ + return _va_arg_longlong(list); +} + +unsigned long long vacall_arg_ulonglong (va_alist list) +{ + return _va_arg_ulonglong(list); +} + +float vacall_arg_float (va_alist list) +{ + return _va_arg_float(list); +} + +double vacall_arg_double (va_alist list) +{ + return _va_arg_double(list); +} + +void* vacall_arg_ptr (va_alist list) +{ + return _va_arg_ptr(list); +} + +void* vacall_arg_struct (va_alist list, size_t type_size, size_t type_align) +{ + return __va_arg_struct(list,type_size,type_align); +} + +void vacall_return_void (va_alist list) +{ + _va_return_void(list); +} + +void vacall_return_char (va_alist list, char val) +{ + _va_return_char(list,val); +} + +void vacall_return_schar (va_alist list, signed char val) +{ + _va_return_schar(list,val); +} + +void vacall_return_uchar (va_alist list, unsigned char val) +{ + _va_return_uchar(list,val); +} + +void vacall_return_short (va_alist list, short val) +{ + _va_return_short(list,val); +} + +void vacall_return_ushort (va_alist list, unsigned short val) +{ + _va_return_ushort(list,val); +} + +void vacall_return_int (va_alist list, int val) +{ + _va_return_int(list,val); +} + +void vacall_return_uint (va_alist list, unsigned int val) +{ + _va_return_uint(list,val); +} + +void vacall_return_long (va_alist list, long val) +{ + _va_return_long(list,val); +} + +void vacall_return_ulong (va_alist list, unsigned long val) +{ + _va_return_ulong(list,val); +} + +void vacall_return_longlong (va_alist list, long long val) +{ + _va_return_longlong(list,val); +} + +void vacall_return_ulonglong (va_alist list, unsigned long long val) +{ + _va_return_ulonglong(list,val); +} + +void vacall_return_float (va_alist list, float val) +{ + _va_return_float(list,val); +} + +void vacall_return_double (va_alist list, double val) +{ + _va_return_double(list,val); +} + +void vacall_return_ptr (va_alist list, void* val) +{ + _va_return_ptr(list,val); +} + +void vacall_return_struct (va_alist list, size_t type_size, size_t type_align, const void* val_addr) +{ + __va_return_struct(list,type_size,type_align,val_addr); +} diff --git a/vacall/vacall-m68k-linux.s b/vacall/vacall-m68k-linux.s new file mode 100644 index 0000000..808fd79 --- /dev/null +++ b/vacall/vacall-m68k-linux.s @@ -0,0 +1,171 @@ + .file "vacall-m68k.c" + .text + .align 2 + .globl vacall_receiver + .type vacall_receiver,@function +vacall_receiver: + link.w %a6,#-32 + movm.l #0x3030,-(%sp) + clr.l -32(%a6) + lea (8,%a6),%a2 + move.l %a2,-20(%a6) + clr.l -16(%a6) + clr.l -12(%a6) + move.l %a1,-4(%a6) + pea -32(%a6) + move.l vacall_function,%a2 + jbsr (%a2) + addq.l #4,%sp + move.l -12(%a6),%a3 + tst.l %a3 + jbeq .L1 + moveq.l #1,%d2 + cmp.l %a3,%d2 + jbeq .L46 + moveq.l #2,%d3 + cmp.l %a3,%d3 + jbeq .L46 + moveq.l #3,%d2 + cmp.l %a3,%d2 + jbeq .L47 + moveq.l #4,%d3 + cmp.l %a3,%d3 + jbeq .L48 + moveq.l #5,%d2 + cmp.l %a3,%d2 + jbeq .L49 + moveq.l #6,%d3 + cmp.l %a3,%d3 + jbeq .L45 + moveq.l #7,%d2 + cmp.l %a3,%d2 + jbeq .L45 + moveq.l #8,%d3 + cmp.l %a3,%d3 + jbeq .L45 + moveq.l #9,%d2 + cmp.l %a3,%d2 + jbeq .L45 + lea (-10,%a3),%a2 + moveq.l #1,%d3 + cmp.l %a2,%d3 + jbcs .L22 + move.l -28(%a6),%d0 + move.l -24(%a6),%d1 + jbra .L1 + .align 2 +.L22: + moveq.l #12,%d2 + cmp.l %a3,%d2 + jbeq .L50 + moveq.l #13,%d2 + cmp.l %a3,%d2 + jbeq .L51 + moveq.l #14,%d3 + cmp.l %a3,%d3 + jbeq .L52 + moveq.l #15,%d2 + cmp.l %a3,%d2 + jbne .L1 + btst #2,-30(%a6) + jbeq .L1 + move.l -8(%a6),%d2 + moveq.l #1,%d3 + cmp.l %d2,%d3 + jbeq .L53 + moveq.l #2,%d3 + cmp.l %d2,%d3 + jbeq .L54 + moveq.l #4,%d3 + cmp.l %d2,%d3 + jbeq .L55 + moveq.l #8,%d3 + cmp.l %d2,%d3 + jbne .L1 + move.l -16(%a6),%a2 + move.l (%a2),%d0 + move.l 4(%a2),%d1 + jbra .L1 + .align 2 +.L55: + move.l -16(%a6),%a2 + move.l (%a2),%d0 + jbra .L1 + .align 2 +.L54: + move.l -16(%a6),%a2 + clr.l %d0 + move.w (%a2),%d0 + jbra .L1 + .align 2 +.L53: + move.l -16(%a6),%a2 + clr.l %d0 + move.b (%a2),%d0 + jbra .L1 + .align 2 +.L52: + move.l -28(%a6),%d0 + move.l %d0,%a0 + jbra .L1 + .align 2 +.L51: + btst #6,-29(%a6) + jbeq .L31 + fmove.d -28(%a6),%fp0 + jbra .L1 + .align 2 +.L31: + move.l -28(%a6),%d0 + move.l -24(%a6),%d1 + jbra .L1 + .align 2 +.L50: + move.l -32(%a6),%d2 + btst #6,%d2 + jbeq .L25 + fmove.s -28(%a6),%fp0 + jbra .L1 + .align 2 +.L25: + btst #5,%d2 + jbeq .L27 + fmove.s -28(%a6),%fp1 + fmove.d %fp1,-(%sp) + move.l (%sp)+,%d0 + move.l (%sp)+,%d1 + jbra .L1 + .align 2 +.L27: + move.l -28(%a6),%d0 + jbra .L1 + .align 2 +.L45: + move.l -28(%a6),%d0 + jbra .L1 + .align 2 +.L49: + clr.l %d0 + move.w -28(%a6),%d0 + jbra .L1 + .align 2 +.L48: + move.w -28(%a6),%d0 + ext.l %d0 + jbra .L1 + .align 2 +.L47: + clr.l %d0 + move.b -28(%a6),%d0 + jbra .L1 + .align 2 +.L46: + move.b -28(%a6),%d0 + extb.l %d0 +.L1: + movm.l -48(%a6),#0xc0c + unlk %a6 + rts +.Lfe1: + .size vacall_receiver,.Lfe1-vacall_receiver + .ident "GCC: (GNU) 3.1" diff --git a/vacall/vacall-m68k-sun.s b/vacall/vacall-m68k-sun.s new file mode 100644 index 0000000..07fae31 --- /dev/null +++ b/vacall/vacall-m68k-sun.s @@ -0,0 +1,167 @@ +#NO_APP + .text + .even + .globl _vacall_receiver +_vacall_receiver: + link a6,#-32 + moveml #0x3030,sp@- + clrl a6@(-32) + lea a6@(8),a2 + movel a2,a6@(-20) + clrl a6@(-16) + clrl a6@(-12) + movel a1,a6@(-4) + pea a6@(-32) + movel _vacall_function,a2 + jbsr a2@ + addql #4,sp + movel a6@(-12),a3 + tstl a3 + jeq L1 + moveq #1,d2 + cmpl a3,d2 + jeq L46 + moveq #2,d3 + cmpl a3,d3 + jeq L46 + moveq #3,d2 + cmpl a3,d2 + jeq L47 + moveq #4,d3 + cmpl a3,d3 + jeq L48 + moveq #5,d2 + cmpl a3,d2 + jeq L49 + moveq #6,d3 + cmpl a3,d3 + jeq L45 + moveq #7,d2 + cmpl a3,d2 + jeq L45 + moveq #8,d3 + cmpl a3,d3 + jeq L45 + moveq #9,d2 + cmpl a3,d2 + jeq L45 + lea a3@(-10),a2 + moveq #1,d3 + cmpl a2,d3 + jcs L22 + movel a6@(-28),d0 + movel a6@(-24),d1 + jra L1 + .even +L22: + moveq #12,d2 + cmpl a3,d2 + jeq L50 + moveq #13,d2 + cmpl a3,d2 + jeq L51 + moveq #14,d3 + cmpl a3,d3 + jeq L52 + moveq #15,d2 + cmpl a3,d2 + jne L1 + btst #2,a6@(-30) + jeq L1 + movel a6@(-8),d2 + moveq #1,d3 + cmpl d2,d3 + jeq L53 + moveq #2,d3 + cmpl d2,d3 + jeq L54 + moveq #4,d3 + cmpl d2,d3 + jeq L55 + moveq #8,d3 + cmpl d2,d3 + jne L1 + movel a6@(-16),a2 + movel a2@,d0 + movel a2@(4),d1 + jra L1 + .even +L55: + movel a6@(-16),a2 + movel a2@,d0 + jra L1 + .even +L54: + movel a6@(-16),a2 + clrl d0 + movew a2@,d0 + jra L1 + .even +L53: + movel a6@(-16),a2 + clrl d0 + moveb a2@,d0 + jra L1 + .even +L52: + movel a6@(-28),d0 + movel d0,a0 + jra L1 + .even +L51: + btst #6,a6@(-29) + jeq L31 + fmoved a6@(-28),fp0 + jra L1 + .even +L31: + movel a6@(-28),d0 + movel a6@(-24),d1 + jra L1 + .even +L50: + movel a6@(-32),d2 + btst #6,d2 + jeq L25 + fmoves a6@(-28),fp0 + jra L1 + .even +L25: + btst #5,d2 + jeq L27 + fmoves a6@(-28),fp1 + fmoved fp1,sp@- + movel sp@+,d0 + movel sp@+,d1 + jra L1 + .even +L27: + movel a6@(-28),d0 + jra L1 + .even +L45: + movel a6@(-28),d0 + jra L1 + .even +L49: + clrl d0 + movew a6@(-28),d0 + jra L1 + .even +L48: + movew a6@(-28),d0 + extl d0 + jra L1 + .even +L47: + clrl d0 + moveb a6@(-28),d0 + jra L1 + .even +L46: + moveb a6@(-28),d0 + extbl d0 +L1: + moveml a6@(-48),#0xc0c + unlk a6 + rts diff --git a/vacall/vacall-m68k.c b/vacall/vacall-m68k.c new file mode 100644 index 0000000..e6394df --- /dev/null +++ b/vacall/vacall-m68k.c @@ -0,0 +1,136 @@ +/* vacall function for m68k CPU */ + +/* + * Copyright 1995-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "vacall-internal.h" + +#ifdef REENTRANT +#define vacall_receiver callback_receiver +register struct { void (*vacall_function) (void*,va_alist); void* arg; } + * env __asm__("a0"); +#endif +register void* sret __asm__("a1"); +register int iret __asm__("d0"); +register int iret2 __asm__("d1"); +register int pret __asm__("a0"); /* some compilers return pointers in a0 */ +register float fret __asm__("d0"); /* d0 */ +register double dret __asm__("d0"); /* d0,d1 */ +register float fp_fret __asm__("fp0"); +register double fp_dret __asm__("fp0"); + +#ifdef REENTRANT +static +#endif +void /* the return type is variable, not void! */ +vacall_receiver (__vaword firstword) +{ + __va_alist list; + /* Prepare the va_alist. */ + list.flags = 0; + list.aptr = (long)&firstword; + list.raddr = (void*)0; + list.rtype = __VAvoid; + list.structraddr = sret; + /* Call vacall_function. The macros do all the rest. */ +#ifndef REENTRANT + (*vacall_function) (&list); +#else /* REENTRANT */ + (*env->vacall_function) (env->arg,&list); +#endif + /* Put return value into proper register. */ + if (list.rtype == __VAvoid) { + } else + if (list.rtype == __VAchar) { + iret = list.tmp._char; + } else + if (list.rtype == __VAschar) { + iret = list.tmp._schar; + } else + if (list.rtype == __VAuchar) { + iret = list.tmp._uchar; + } else + if (list.rtype == __VAshort) { + iret = list.tmp._short; + } else + if (list.rtype == __VAushort) { + iret = list.tmp._ushort; + } else + if (list.rtype == __VAint) { + iret = list.tmp._int; + } else + if (list.rtype == __VAuint) { + iret = list.tmp._uint; + } else + if (list.rtype == __VAlong) { + iret = list.tmp._long; + } else + if (list.rtype == __VAulong) { + iret = list.tmp._ulong; + } else + if (list.rtype == __VAlonglong || list.rtype == __VAulonglong) { + iret = ((__vaword *) &list.tmp._longlong)[0]; + iret2 = ((__vaword *) &list.tmp._longlong)[1]; + } else + if (list.rtype == __VAfloat) { + if (list.flags & __VA_FREG_FLOAT_RETURN) { + fp_fret = list.tmp._float; + } else { + if (list.flags & __VA_SUNCC_FLOAT_RETURN) { + dret = (double)list.tmp._float; + } else { + fret = list.tmp._float; + } + } + } else + if (list.rtype == __VAdouble) { + if (list.flags & __VA_FREG_FLOAT_RETURN) { + fp_dret = list.tmp._double; + } else { + dret = list.tmp._double; + } + } else + if (list.rtype == __VAvoidp) { + pret = iret = (long)list.tmp._ptr; + } else + if (list.rtype == __VAstruct) { + /* NB: On m68k, all structure sizes are divisible by 2. */ + if (list.flags & __VA_REGISTER_STRUCT_RETURN) { + if (list.rsize == sizeof(char)) { /* can't occur */ + iret = *(unsigned char *) list.raddr; + } else + if (list.rsize == sizeof(short)) { + iret = *(unsigned short *) list.raddr; + } else + if (list.rsize == sizeof(int)) { + iret = *(unsigned int *) list.raddr; + } else + if (list.rsize == 2*sizeof(__vaword)) { + iret = ((__vaword *) list.raddr)[0]; + iret2 = ((__vaword *) list.raddr)[1]; + } + } + } +} + +#ifdef REENTRANT +__vacall_r_t +callback_get_receiver (void) +{ + return (__vacall_r_t)(void*)&callback_receiver; +} +#endif diff --git a/vacall/vacall-m68k.mit.S b/vacall/vacall-m68k.mit.S new file mode 100644 index 0000000..d617c3f --- /dev/null +++ b/vacall/vacall-m68k.mit.S @@ -0,0 +1,172 @@ +#include "asm-m68k.h" + .text + .even + .globl C(vacall_receiver) + DECLARE_FUNCTION(vacall_receiver) +FUNBEGIN(vacall_receiver) + link $a6,#-32 + moveml #0x3030,$sp@- + clrl $a6@(-32) + lea $a6@(8),$a2 + movel $a2,$a6@(-20) + clrl $a6@(-16) + clrl $a6@(-12) + movel $a1,$a6@(-4) + pea $a6@(-32) + movel C(vacall_function),$a2 + jbsr $a2@ + addql #4,$sp + movel $a6@(-12),$a3 + tstl $a3 + jeq L(1) + moveq #1,$d2 + cmpl $a3,$d2 + jeq L(46) + moveq #2,$d3 + cmpl $a3,$d3 + jeq L(46) + moveq #3,$d2 + cmpl $a3,$d2 + jeq L(47) + moveq #4,$d3 + cmpl $a3,$d3 + jeq L(48) + moveq #5,$d2 + cmpl $a3,$d2 + jeq L(49) + moveq #6,$d3 + cmpl $a3,$d3 + jeq L(45) + moveq #7,$d2 + cmpl $a3,$d2 + jeq L(45) + moveq #8,$d3 + cmpl $a3,$d3 + jeq L(45) + moveq #9,$d2 + cmpl $a3,$d2 + jeq L(45) + lea $a3@(-10),$a2 + moveq #1,$d3 + cmpl $a2,$d3 + jcs L(22) + movel $a6@(-28),$d0 + movel $a6@(-24),$d1 + jra L(1) + .even +L(22): + moveq #12,$d2 + cmpl $a3,$d2 + jeq L(50) + moveq #13,$d2 + cmpl $a3,$d2 + jeq L(51) + moveq #14,$d3 + cmpl $a3,$d3 + jeq L(52) + moveq #15,$d2 + cmpl $a3,$d2 + jne L(1) + btst #2,$a6@(-30) + jeq L(1) + movel $a6@(-8),$d2 + moveq #1,$d3 + cmpl $d2,$d3 + jeq L(53) + moveq #2,$d3 + cmpl $d2,$d3 + jeq L(54) + moveq #4,$d3 + cmpl $d2,$d3 + jeq L(55) + moveq #8,$d3 + cmpl $d2,$d3 + jne L(1) + movel $a6@(-16),$a2 + movel $a2@,$d0 + movel $a2@(4),$d1 + jra L(1) + .even +L(55): + movel $a6@(-16),$a2 + movel $a2@,$d0 + jra L(1) + .even +L(54): + movel $a6@(-16),$a2 + clrl $d0 + movew $a2@,$d0 + jra L(1) + .even +L(53): + movel $a6@(-16),$a2 + clrl $d0 + moveb $a2@,$d0 + jra L(1) + .even +L(52): + movel $a6@(-28),$d0 + movel $d0,$a0 + jra L(1) + .even +L(51): + btst #6,$a6@(-29) + jeq L(31) + fmoved $a6@(-28),$fp0 + jra L(1) + .even +L(31): + movel $a6@(-28),$d0 + movel $a6@(-24),$d1 + jra L(1) + .even +L(50): + movel $a6@(-32),$d2 + btst #6,$d2 + jeq L(25) + fmoves $a6@(-28),$fp0 + jra L(1) + .even +L(25): + btst #5,$d2 + jeq L(27) + fmoves $a6@(-28),$fp1 + fmoved $fp1,$sp@- + movel $sp@+,$d0 + movel $sp@+,$d1 + jra L(1) + .even +L(27): + movel $a6@(-28),$d0 + jra L(1) + .even +L(45): + movel $a6@(-28),$d0 + jra L(1) + .even +L(49): + clrl $d0 + movew $a6@(-28),$d0 + jra L(1) + .even +L(48): + movew $a6@(-28),$d0 + extl $d0 + jra L(1) + .even +L(47): + clrl $d0 + moveb $a6@(-28),$d0 + jra L(1) + .even +L(46): + moveb $a6@(-28),$d0 + extbl $d0 +L(1): + moveml $a6@(-48),#0xc0c + unlk $a6 + rts +FUNEND(vacall_receiver) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/vacall/vacall-m68k.motorola.S b/vacall/vacall-m68k.motorola.S new file mode 100644 index 0000000..e4beb5b --- /dev/null +++ b/vacall/vacall-m68k.motorola.S @@ -0,0 +1,173 @@ +#include "asm-m68k.h" + .text + .align 2 + .globl C(vacall_receiver) + DECLARE_FUNCTION(vacall_receiver) +FUNBEGIN(vacall_receiver) + link.w %a6,#-32 + movm.l #0x3030,-(%sp) + clr.l -32(%a6) + lea (8,%a6),%a2 + move.l %a2,-20(%a6) + clr.l -16(%a6) + clr.l -12(%a6) + move.l %a1,-4(%a6) + pea -32(%a6) + move.l C(vacall_function),%a2 + jbsr (%a2) + addq.l #4,%sp + move.l -12(%a6),%a3 + tst.l %a3 + jbeq L(1) + moveq.l #1,%d2 + cmp.l %a3,%d2 + jbeq L(46) + moveq.l #2,%d3 + cmp.l %a3,%d3 + jbeq L(46) + moveq.l #3,%d2 + cmp.l %a3,%d2 + jbeq L(47) + moveq.l #4,%d3 + cmp.l %a3,%d3 + jbeq L(48) + moveq.l #5,%d2 + cmp.l %a3,%d2 + jbeq L(49) + moveq.l #6,%d3 + cmp.l %a3,%d3 + jbeq L(45) + moveq.l #7,%d2 + cmp.l %a3,%d2 + jbeq L(45) + moveq.l #8,%d3 + cmp.l %a3,%d3 + jbeq L(45) + moveq.l #9,%d2 + cmp.l %a3,%d2 + jbeq L(45) + lea (-10,%a3),%a2 + moveq.l #1,%d3 + cmp.l %a2,%d3 + jbcs L(22) + move.l -28(%a6),%d0 + move.l -24(%a6),%d1 + jbra L(1) + .align 2 +L(22): + moveq.l #12,%d2 + cmp.l %a3,%d2 + jbeq L(50) + moveq.l #13,%d2 + cmp.l %a3,%d2 + jbeq L(51) + moveq.l #14,%d3 + cmp.l %a3,%d3 + jbeq L(52) + moveq.l #15,%d2 + cmp.l %a3,%d2 + jbne L(1) + btst #2,-30(%a6) + jbeq L(1) + move.l -8(%a6),%d2 + moveq.l #1,%d3 + cmp.l %d2,%d3 + jbeq L(53) + moveq.l #2,%d3 + cmp.l %d2,%d3 + jbeq L(54) + moveq.l #4,%d3 + cmp.l %d2,%d3 + jbeq L(55) + moveq.l #8,%d3 + cmp.l %d2,%d3 + jbne L(1) + move.l -16(%a6),%a2 + move.l (%a2),%d0 + move.l 4(%a2),%d1 + jbra L(1) + .align 2 +L(55): + move.l -16(%a6),%a2 + move.l (%a2),%d0 + jbra L(1) + .align 2 +L(54): + move.l -16(%a6),%a2 + clr.l %d0 + move.w (%a2),%d0 + jbra L(1) + .align 2 +L(53): + move.l -16(%a6),%a2 + clr.l %d0 + move.b (%a2),%d0 + jbra L(1) + .align 2 +L(52): + move.l -28(%a6),%d0 + move.l %d0,%a0 + jbra L(1) + .align 2 +L(51): + btst #6,-29(%a6) + jbeq L(31) + fmove.d -28(%a6),%fp0 + jbra L(1) + .align 2 +L(31): + move.l -28(%a6),%d0 + move.l -24(%a6),%d1 + jbra L(1) + .align 2 +L(50): + move.l -32(%a6),%d2 + btst #6,%d2 + jbeq L(25) + fmove.s -28(%a6),%fp0 + jbra L(1) + .align 2 +L(25): + btst #5,%d2 + jbeq L(27) + fmove.s -28(%a6),%fp1 + fmove.d %fp1,-(%sp) + move.l (%sp)+,%d0 + move.l (%sp)+,%d1 + jbra L(1) + .align 2 +L(27): + move.l -28(%a6),%d0 + jbra L(1) + .align 2 +L(45): + move.l -28(%a6),%d0 + jbra L(1) + .align 2 +L(49): + clr.l %d0 + move.w -28(%a6),%d0 + jbra L(1) + .align 2 +L(48): + move.w -28(%a6),%d0 + ext.l %d0 + jbra L(1) + .align 2 +L(47): + clr.l %d0 + move.b -28(%a6),%d0 + jbra L(1) + .align 2 +L(46): + move.b -28(%a6),%d0 + extb.l %d0 +L(1): + movm.l -48(%a6),#0xc0c + unlk %a6 + rts +L(fe1): + FUNEND(vacall_receiver) +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/vacall/vacall-mips.c b/vacall/vacall-mips.c new file mode 100644 index 0000000..dad244c --- /dev/null +++ b/vacall/vacall-mips.c @@ -0,0 +1,139 @@ +/* vacall function for mips CPU */ + +/* + * Copyright 1995-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "vacall-internal.h" + +#ifndef REENTRANT +typedef void (*func_pointer)(va_alist); +#else /* REENTRANT */ +#define vacall_receiver callback_receiver +typedef void (*func_pointer)(void*,va_alist); +register struct { func_pointer vacall_function; void* arg; } + * env __asm__("$2"); +#endif +register float farg1 __asm__("$f12"); +register float farg2 __asm__("$f14"); +register double darg1 __asm__("$f12"); +register double darg2 __asm__("$f14"); +register int iret __asm__("$2"); +register int iret2 __asm__("$3"); +register float fret __asm__("$f0"); +register double dret __asm__("$f0"); + +#ifdef REENTRANT +static +#endif +void /* the return type is variable, not void! */ +vacall_receiver (__vaword word1, __vaword word2, __vaword word3, __vaword word4, + __vaword firstword) +{ + __va_alist list; + /* gcc-2.6.3 source says: When a parameter is passed in a register, + * stack space is still allocated for it. + */ + /* Move the arguments passed in registers to their stack locations. */ + (&firstword)[-4] = word1; + (&firstword)[-3] = word2; + (&firstword)[-2] = word3; + (&firstword)[-1] = word4; + list.darg[0] = darg1; + list.darg[1] = darg2; + list.farg[0] = farg1; + list.farg[1] = farg2; + /* Prepare the va_alist. */ + list.flags = 0; + list.aptr = (long)(&firstword - 4); + list.raddr = (void*)0; + list.rtype = __VAvoid; + list.memargptr = (long)&firstword; + list.anum = 0; + list.fanum = 0; + /* Call vacall_function. The macros do all the rest. */ +#ifndef REENTRANT + (*vacall_function) (&list); +#else /* REENTRANT */ + (*env->vacall_function) (env->arg,&list); +#endif + /* Put return value into proper register. */ + if (list.rtype == __VAvoid) { + } else + if (list.rtype == __VAchar) { + iret = list.tmp._char; + } else + if (list.rtype == __VAschar) { + iret = list.tmp._schar; + } else + if (list.rtype == __VAuchar) { + iret = list.tmp._uchar; + } else + if (list.rtype == __VAshort) { + iret = list.tmp._short; + } else + if (list.rtype == __VAushort) { + iret = list.tmp._ushort; + } else + if (list.rtype == __VAint) { + iret = list.tmp._int; + } else + if (list.rtype == __VAuint) { + iret = list.tmp._uint; + } else + if (list.rtype == __VAlong) { + iret = list.tmp._long; + } else + if (list.rtype == __VAulong) { + iret = list.tmp._ulong; + } else + if (list.rtype == __VAlonglong || list.rtype == __VAulonglong) { + iret = ((__vaword *) &list.tmp._longlong)[0]; + iret2 = ((__vaword *) &list.tmp._longlong)[1]; + } else + if (list.rtype == __VAfloat) { + fret = list.tmp._float; + } else + if (list.rtype == __VAdouble) { + dret = list.tmp._double; + } else + if (list.rtype == __VAvoidp) { + iret = (long)list.tmp._ptr; + } else + if (list.rtype == __VAstruct) { + if (list.flags & __VA_SMALL_STRUCT_RETURN) { + if (list.rsize == sizeof(char)) { + iret = *(unsigned char *) list.raddr; + } else + if (list.rsize == sizeof(short)) { + iret = *(unsigned short *) list.raddr; + } else + if (list.rsize == sizeof(int)) { + iret = *(unsigned int *) list.raddr; + } + } else { + iret = (long)list.raddr; + } + } +} + +#ifdef REENTRANT +__vacall_r_t +callback_get_receiver (void) +{ + return (__vacall_r_t)(void*)&callback_receiver; +} +#endif diff --git a/vacall/vacall-mips64.c b/vacall/vacall-mips64.c new file mode 100644 index 0000000..9b5aeac --- /dev/null +++ b/vacall/vacall-mips64.c @@ -0,0 +1,508 @@ +/* vacall function for mips CPU */ + +/* + * Copyright 1995-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "vacall-internal.h" + +#ifndef REENTRANT +typedef void (*func_pointer)(va_alist); +#else /* REENTRANT */ +#define vacall_receiver callback_receiver +typedef void (*func_pointer)(void*,va_alist); +register struct { func_pointer vacall_function; void* arg; } + * env __asm__("$2"); +#endif +register void* sp __asm__("$sp"); +register long iarg0 __asm__("$4"); +register long iarg1 __asm__("$5"); +register long iarg2 __asm__("$6"); +register long iarg3 __asm__("$7"); +register long iarg4 __asm__("$8"); +register long iarg5 __asm__("$9"); +register long iarg6 __asm__("$10"); +register long iarg7 __asm__("$11"); +register float farg0 __asm__("$f12"); +register float farg1 __asm__("$f13"); +register float farg2 __asm__("$f14"); +register float farg3 __asm__("$f15"); +register float farg4 __asm__("$f16"); +register float farg5 __asm__("$f17"); +register float farg6 __asm__("$f18"); +register float farg7 __asm__("$f19"); +register double darg0 __asm__("$f12"); +register double darg1 __asm__("$f13"); +register double darg2 __asm__("$f14"); +register double darg3 __asm__("$f15"); +register double darg4 __asm__("$f16"); +register double darg5 __asm__("$f17"); +register double darg6 __asm__("$f18"); +register double darg7 __asm__("$f19"); +register long iret __asm__("$2"); +register long iret2 __asm__("$3"); +register float fret __asm__("$f0"); +register float fret2 __asm__("$f2"); +register double dret __asm__("$f0"); +register double dret2 __asm__("$f2"); + +/* The ABI requires that the first 8 general-purpose argument words are + being passed in registers, even if these words belong to a struct. No room + is allocated for these register words on the stack by the caller, but the + callee allocates room for them - at the right place in the stack frame, + that is, above the usual {fp, retaddr} combo - if and only if they are part + of a larger struct that extends to the stack and the address of this struct + is taken. */ +struct gpargsequence { + __vaword word1; /* r4 */ + __vaword word2; /* r5 */ + __vaword word3; /* r6 */ + __vaword word4; /* r7 */ + __vaword word5; /* r8 */ + __vaword word6; /* r9 */ + __vaword word7; /* r10 */ + __vaword word8; /* r11 */ + __vaword firststackword; +}; + +#ifdef REENTRANT +static +#endif +void /* the return type is variable, not void! */ +vacall_receiver (struct gpargsequence gpargs) +{ + __va_alist list; + list.darg[0] = darg0; + list.darg[1] = darg1; + list.darg[2] = darg2; + list.darg[3] = darg3; + list.darg[4] = darg4; + list.darg[5] = darg5; + list.darg[6] = darg6; + list.darg[7] = darg7; + list.farg[0] = farg0; + list.farg[1] = farg1; + list.farg[2] = farg2; + list.farg[3] = farg3; + list.farg[4] = farg4; + list.farg[5] = farg5; + list.farg[6] = farg6; + list.farg[7] = farg7; + /* Prepare the va_alist. */ + list.flags = 0; + list.aptr = (long)&gpargs; + list.raddr = (void*)0; + list.rtype = __VAvoid; + list.anum = 0; + /* Call vacall_function. The macros do all the rest. */ +#ifndef REENTRANT + (*vacall_function) (&list); +#else /* REENTRANT */ + (*env->vacall_function) (env->arg,&list); +#endif + /* Put return value into proper register. */ + if (list.rtype == __VAvoid) { + } else + if (list.rtype == __VAchar) { + iret = list.tmp._char; + } else + if (list.rtype == __VAschar) { + iret = list.tmp._schar; + } else + if (list.rtype == __VAuchar) { + iret = list.tmp._uchar; + } else + if (list.rtype == __VAshort) { + iret = list.tmp._short; + } else + if (list.rtype == __VAushort) { + iret = list.tmp._ushort; + } else + if (list.rtype == __VAint) { + iret = list.tmp._int; + } else + if (list.rtype == __VAuint) { + iret = list.tmp._uint; + } else + if (list.rtype == __VAlong) { + iret = list.tmp._long; + } else + if (list.rtype == __VAulong) { + iret = list.tmp._ulong; + } else + if (list.rtype == __VAlonglong) { + iret = list.tmp._long; + } else + if (list.rtype == __VAulonglong) { + iret = list.tmp._ulong; + } else + if (list.rtype == __VAfloat) { + fret = list.tmp._float; + } else + if (list.rtype == __VAdouble) { + dret = list.tmp._double; + } else + if (list.rtype == __VAvoidp) { + iret = (long)list.tmp._ptr; + } else + if (list.rtype == __VAstruct) { + if (list.flags & __VA_REGISTER_STRUCT_RETURN) { + if (list.flags & __VA_GCC_STRUCT_RETURN) { + /* gcc returns structs of size 1,2,4,8 in registers. */ + if (list.rsize == sizeof(char)) { + iret = *(unsigned char *) list.raddr; + } else + if (list.rsize == sizeof(short)) { + iret = *(unsigned short *) list.raddr; + } else + if (list.rsize == sizeof(int)) { + iret = *(unsigned int *) list.raddr; + } else + if (list.rsize == sizeof(long)) { + iret = *(unsigned long *) list.raddr; + } + } else { + /* cc returns structs of size <= 16 in registers. */ + /* Maybe this big if cascade could be replaced with + * if (list.rsize > 0 && list.rsize <= 16) + * __asm__ ("ldl $2,%0 ; ldr $2,%1" + * : : "m" (((unsigned char *) list.raddr)[0]), + * "m" (((unsigned char *) list.raddr)[7])); + */ + if (list.rsize > 0 && list.rsize <= 16) { + #if 0 /* Unoptimized */ + if (list.rsize == 1) { + #if defined(_MIPSEL) + iret = (__vaword)((unsigned char *) list.raddr)[0]; + #else + iret = (__vaword)((unsigned char *) list.raddr)[0] << 56; + #endif + } else + if (list.rsize == 2) { + #if defined(_MIPSEL) + iret = ((__vaword)((unsigned char *) list.raddr)[0]) + | ((__vaword)((unsigned char *) list.raddr)[1] << 8); + #else + iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) + | ((__vaword)((unsigned char *) list.raddr)[1] << 48); + #endif + } else + if (list.rsize == 3) { + #if defined(_MIPSEL) + iret = ((__vaword)((unsigned char *) list.raddr)[0]) + | ((__vaword)((unsigned char *) list.raddr)[1] << 8) + | ((__vaword)((unsigned char *) list.raddr)[2] << 16); + #else + iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) + | ((__vaword)((unsigned char *) list.raddr)[1] << 48) + | ((__vaword)((unsigned char *) list.raddr)[2] << 40); + #endif + } else + if (list.rsize == 4) { + #if defined(_MIPSEL) + iret = ((__vaword)((unsigned char *) list.raddr)[0]) + | ((__vaword)((unsigned char *) list.raddr)[1] << 8) + | ((__vaword)((unsigned char *) list.raddr)[2] << 16) + | ((__vaword)((unsigned char *) list.raddr)[3] << 24); + #else + iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) + | ((__vaword)((unsigned char *) list.raddr)[1] << 48) + | ((__vaword)((unsigned char *) list.raddr)[2] << 40) + | ((__vaword)((unsigned char *) list.raddr)[3] << 32); + #endif + } else + if (list.rsize == 5) { + #if defined(_MIPSEL) + iret = ((__vaword)((unsigned char *) list.raddr)[0]) + | ((__vaword)((unsigned char *) list.raddr)[1] << 8) + | ((__vaword)((unsigned char *) list.raddr)[2] << 16) + | ((__vaword)((unsigned char *) list.raddr)[3] << 24) + | ((__vaword)((unsigned char *) list.raddr)[4] << 32); + #else + iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) + | ((__vaword)((unsigned char *) list.raddr)[1] << 48) + | ((__vaword)((unsigned char *) list.raddr)[2] << 40) + | ((__vaword)((unsigned char *) list.raddr)[3] << 32) + | ((__vaword)((unsigned char *) list.raddr)[4] << 24); + #endif + } else + if (list.rsize == 6) { + #if defined(_MIPSEL) + iret = ((__vaword)((unsigned char *) list.raddr)[0]) + | ((__vaword)((unsigned char *) list.raddr)[1] << 8) + | ((__vaword)((unsigned char *) list.raddr)[2] << 16) + | ((__vaword)((unsigned char *) list.raddr)[3] << 24) + | ((__vaword)((unsigned char *) list.raddr)[4] << 32) + | ((__vaword)((unsigned char *) list.raddr)[5] << 40); + #else + iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) + | ((__vaword)((unsigned char *) list.raddr)[1] << 48) + | ((__vaword)((unsigned char *) list.raddr)[2] << 40) + | ((__vaword)((unsigned char *) list.raddr)[3] << 32) + | ((__vaword)((unsigned char *) list.raddr)[4] << 24) + | ((__vaword)((unsigned char *) list.raddr)[5] << 16); + #endif + } else + if (list.rsize == 7) { + #if defined(_MIPSEL) + iret = ((__vaword)((unsigned char *) list.raddr)[0]) + | ((__vaword)((unsigned char *) list.raddr)[1] << 8) + | ((__vaword)((unsigned char *) list.raddr)[2] << 16) + | ((__vaword)((unsigned char *) list.raddr)[3] << 24) + | ((__vaword)((unsigned char *) list.raddr)[4] << 32) + | ((__vaword)((unsigned char *) list.raddr)[5] << 40) + | ((__vaword)((unsigned char *) list.raddr)[6] << 48); + #else + iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) + | ((__vaword)((unsigned char *) list.raddr)[1] << 48) + | ((__vaword)((unsigned char *) list.raddr)[2] << 40) + | ((__vaword)((unsigned char *) list.raddr)[3] << 32) + | ((__vaword)((unsigned char *) list.raddr)[4] << 24) + | ((__vaword)((unsigned char *) list.raddr)[5] << 16) + | ((__vaword)((unsigned char *) list.raddr)[6] << 8); + #endif + } else + if (list.rsize >= 8 && list.rsize <= 16) { + #if defined(_MIPSEL) + iret = ((__vaword)((unsigned char *) list.raddr)[0]) + | ((__vaword)((unsigned char *) list.raddr)[1] << 8) + | ((__vaword)((unsigned char *) list.raddr)[2] << 16) + | ((__vaword)((unsigned char *) list.raddr)[3] << 24) + | ((__vaword)((unsigned char *) list.raddr)[4] << 32) + | ((__vaword)((unsigned char *) list.raddr)[5] << 40) + | ((__vaword)((unsigned char *) list.raddr)[6] << 48) + | ((__vaword)((unsigned char *) list.raddr)[7] << 56); + #else + iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) + | ((__vaword)((unsigned char *) list.raddr)[1] << 48) + | ((__vaword)((unsigned char *) list.raddr)[2] << 40) + | ((__vaword)((unsigned char *) list.raddr)[3] << 32) + | ((__vaword)((unsigned char *) list.raddr)[4] << 24) + | ((__vaword)((unsigned char *) list.raddr)[5] << 16) + | ((__vaword)((unsigned char *) list.raddr)[6] << 8) + | (__vaword)((unsigned char *) list.raddr)[7]; + #endif + /* Maybe this big if cascade could be replaced with + * if (list.rsize > 8 && list.rsize <= 16) + * __asm__ ("ldl $3,%0 ; ldr $3,%1" + * : : "m" (((unsigned char *) list.raddr)[8]), + * "m" (((unsigned char *) list.raddr)[15])); + */ + if (list.rsize == 8) { + } else + if (list.rsize == 9) { + #if defined(_MIPSEL) + iret2 = (__vaword)((unsigned char *) list.raddr)[8]; + #else + iret2 = (__vaword)((unsigned char *) list.raddr)[8] << 56; + #endif + } else + if (list.rsize == 10) { + #if defined(_MIPSEL) + iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) + | ((__vaword)((unsigned char *) list.raddr)[9] << 8); + #else + iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) + | ((__vaword)((unsigned char *) list.raddr)[9] << 48); + #endif + } else + if (list.rsize == 11) { + #if defined(_MIPSEL) + iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) + | ((__vaword)((unsigned char *) list.raddr)[9] << 8) + | ((__vaword)((unsigned char *) list.raddr)[10] << 16); + #else + iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) + | ((__vaword)((unsigned char *) list.raddr)[9] << 48) + | ((__vaword)((unsigned char *) list.raddr)[10] << 40); + #endif + } else + if (list.rsize == 12) { + #if defined(_MIPSEL) + iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) + | ((__vaword)((unsigned char *) list.raddr)[9] << 8) + | ((__vaword)((unsigned char *) list.raddr)[10] << 16) + | ((__vaword)((unsigned char *) list.raddr)[11] << 24); + #else + iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) + | ((__vaword)((unsigned char *) list.raddr)[9] << 48) + | ((__vaword)((unsigned char *) list.raddr)[10] << 40) + | ((__vaword)((unsigned char *) list.raddr)[11] << 32); + #endif + } else + if (list.rsize == 13) { + #if defined(_MIPSEL) + iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) + | ((__vaword)((unsigned char *) list.raddr)[9] << 8) + | ((__vaword)((unsigned char *) list.raddr)[10] << 16) + | ((__vaword)((unsigned char *) list.raddr)[11] << 24) + | ((__vaword)((unsigned char *) list.raddr)[12] << 32); + #else + iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) + | ((__vaword)((unsigned char *) list.raddr)[9] << 48) + | ((__vaword)((unsigned char *) list.raddr)[10] << 40) + | ((__vaword)((unsigned char *) list.raddr)[11] << 32) + | ((__vaword)((unsigned char *) list.raddr)[12] << 24); + #endif + } else + if (list.rsize == 14) { + #if defined(_MIPSEL) + iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) + | ((__vaword)((unsigned char *) list.raddr)[9] << 8) + | ((__vaword)((unsigned char *) list.raddr)[10] << 16) + | ((__vaword)((unsigned char *) list.raddr)[11] << 24) + | ((__vaword)((unsigned char *) list.raddr)[12] << 32) + | ((__vaword)((unsigned char *) list.raddr)[13] << 40); + #else + iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) + | ((__vaword)((unsigned char *) list.raddr)[9] << 48) + | ((__vaword)((unsigned char *) list.raddr)[10] << 40) + | ((__vaword)((unsigned char *) list.raddr)[11] << 32) + | ((__vaword)((unsigned char *) list.raddr)[12] << 24) + | ((__vaword)((unsigned char *) list.raddr)[13] << 16); + #endif + } else + if (list.rsize == 15) { + #if defined(_MIPSEL) + iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) + | ((__vaword)((unsigned char *) list.raddr)[9] << 8) + | ((__vaword)((unsigned char *) list.raddr)[10] << 16) + | ((__vaword)((unsigned char *) list.raddr)[11] << 24) + | ((__vaword)((unsigned char *) list.raddr)[12] << 32) + | ((__vaword)((unsigned char *) list.raddr)[13] << 40) + | ((__vaword)((unsigned char *) list.raddr)[14] << 48); + #else + iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) + | ((__vaword)((unsigned char *) list.raddr)[9] << 48) + | ((__vaword)((unsigned char *) list.raddr)[10] << 40) + | ((__vaword)((unsigned char *) list.raddr)[11] << 32) + | ((__vaword)((unsigned char *) list.raddr)[12] << 24) + | ((__vaword)((unsigned char *) list.raddr)[13] << 16) + | ((__vaword)((unsigned char *) list.raddr)[14] << 8); + #endif + } else + if (list.rsize == 16) { + #if defined(_MIPSEL) + iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) + | ((__vaword)((unsigned char *) list.raddr)[9] << 8) + | ((__vaword)((unsigned char *) list.raddr)[10] << 16) + | ((__vaword)((unsigned char *) list.raddr)[11] << 24) + | ((__vaword)((unsigned char *) list.raddr)[12] << 32) + | ((__vaword)((unsigned char *) list.raddr)[13] << 40) + | ((__vaword)((unsigned char *) list.raddr)[14] << 48) + | ((__vaword)((unsigned char *) list.raddr)[15] << 56); + #else + iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) + | ((__vaword)((unsigned char *) list.raddr)[9] << 48) + | ((__vaword)((unsigned char *) list.raddr)[10] << 40) + | ((__vaword)((unsigned char *) list.raddr)[11] << 32) + | ((__vaword)((unsigned char *) list.raddr)[12] << 24) + | ((__vaword)((unsigned char *) list.raddr)[13] << 16) + | ((__vaword)((unsigned char *) list.raddr)[14] << 8) + | (__vaword)((unsigned char *) list.raddr)[15]; + #endif + } + } + #else /* Optimized: fewer conditional jumps, fewer memory accesses */ + uintptr_t count = list.rsize; /* > 0, ≤ 2*sizeof(__vaword) */ + __vaword* wordaddr = (__vaword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__vaword)-1)); + uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__vaword)-1); /* ≥ 0, < sizeof(__vaword) */ + uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__vaword) */ + #if defined(_MIPSEL) + if (count <= sizeof(__vaword)) { + /* Assign iret. */ + if (end_offset <= sizeof(__vaword)) { + /* 0 < end_offset ≤ sizeof(__vaword) */ + __vaword mask0 = ((__vaword)2 << (end_offset*8-1)) - 1; + iret = (wordaddr[0] & mask0) >> (start_offset*8); + } else { + /* sizeof(__vaword) < end_offset < 2*sizeof(__vaword), start_offset > 0 */ + __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; + iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*8-start_offset*8)); + } + } else { + /* Assign iret, iret2. */ + if (end_offset <= 2*sizeof(__vaword)) { + /* sizeof(__vaword) < end_offset ≤ 2*sizeof(__vaword) */ + __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; + iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*4-start_offset*4) << (sizeof(__vaword)*4-start_offset*4)); + iret2 = (wordaddr[1] & mask1) >> (start_offset*8); + } else { + /* 2*sizeof(__vaword) < end_offset < 3*sizeof(__vaword), start_offset > 0 */ + __vaword mask2 = ((__vaword)2 << (end_offset*8-2*sizeof(__vaword)*8-1)) - 1; + iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__vaword)*8-start_offset*8)); + iret2 = (wordaddr[1] >> (start_offset*8)) | ((wordaddr[2] & mask2) << (sizeof(__vaword)*8-start_offset*8)); + } + } + #else + if (count <= sizeof(__vaword)) { + /* Assign iret. */ + if (end_offset <= sizeof(__vaword)) { + /* 0 < end_offset ≤ sizeof(__vaword) */ + __vaword mask0 = - ((__vaword)1 << (sizeof(__vaword)*8-end_offset*8)); + iret = (wordaddr[0] & mask0) << (start_offset*8); + } else { + /* sizeof(__vaword) < end_offset < 2*sizeof(__vaword), start_offset > 0 */ + __vaword mask1 = - ((__vaword)1 << (2*sizeof(__vaword)*8-end_offset*8)); + iret = (wordaddr[0] << (start_offset*8)) | ((wordaddr[1] & mask1) >> (sizeof(__vaword)*8-start_offset*8)); + } + } else { + /* Assign iret, iret2. */ + if (end_offset <= 2*sizeof(__vaword)) { + /* sizeof(__vaword) < end_offset ≤ 2*sizeof(__vaword) */ + __vaword mask1 = - ((__vaword)1 << (2*sizeof(__vaword)*8-end_offset*8)); + iret = (wordaddr[0] << (start_offset*8)) | ((wordaddr[1] & mask1) >> (sizeof(__vaword)*4-start_offset*4) >> (sizeof(__vaword)*4-start_offset*4)); + iret2 = (wordaddr[1] & mask1) << (start_offset*8); + } else { + /* 2*sizeof(__vaword) < end_offset < 3*sizeof(__vaword), start_offset > 0 */ + __vaword mask2 = - ((__vaword)1 << (3*sizeof(__vaword)*8-end_offset*8)); + iret = (wordaddr[0] << (start_offset*8)) | (wordaddr[1] >> (sizeof(__vaword)*8-start_offset*8)); + iret2 = (wordaddr[1] << (start_offset*8)) | ((wordaddr[2] & mask2) >> (sizeof(__vaword)*8-start_offset*8)); + } + } + #endif + #endif + } + if (list.flags & __VA_REGISTER_FLOATSTRUCT_RETURN) { + if (list.rsize == sizeof(float)) { + fret = *(float*)list.raddr; + } else + if (list.rsize == 2*sizeof(float)) { + fret = *(float*)list.raddr; + fret2 = *(float*)((char*)list.raddr + 4); + } + } + if (list.flags & __VA_REGISTER_DOUBLESTRUCT_RETURN) { + if (list.rsize == sizeof(double)) { + dret = *(double*)list.raddr; + } else + if (list.rsize == 2*sizeof(double)) { + dret = *(double*)list.raddr; + dret2 = *(double*)((char*)list.raddr + 8); + } + } + } + } + } +} + +#ifdef REENTRANT +__vacall_r_t +callback_get_receiver (void) +{ + return (__vacall_r_t)(void*)&callback_receiver; +} +#endif diff --git a/vacall/vacall-mips64eb-linux.s b/vacall/vacall-mips64eb-linux.s new file mode 100644 index 0000000..caeec7b --- /dev/null +++ b/vacall/vacall-mips64eb-linux.s @@ -0,0 +1,362 @@ + .file 1 "vacall-mips64.c" + .section .mdebug.abi64 + .previous + .nan legacy + .module fp=64 + .module oddspreg + .abicalls + .text + .align 2 + .align 3 + .globl vacall_receiver + .set nomips16 + .set nomicromips + .ent vacall_receiver + .type vacall_receiver, @function +vacall_receiver: + .frame $fp,272,$31 # vars= 160, regs= 6/0, args= 0, gp= 0 + .mask 0xd0070000,-72 + .fmask 0x00000000,0 + .set noreorder + .set nomacro + daddiu $sp,$sp,-272 + sd $28,184($sp) + lui $28,%hi(%neg(%gp_rel(vacall_receiver))) + daddu $28,$28,$25 + daddiu $28,$28,%lo(%neg(%gp_rel(vacall_receiver))) + ld $12,%got_disp(vacall_function)($28) + sd $fp,192($sp) + move $fp,$sp + ld $25,0($12) + daddiu $12,$fp,208 + sd $31,200($sp) + sd $18,176($sp) + sd $17,168($sp) + sd $16,160($sp) + sd $4,208($fp) + sd $5,216($fp) + sd $6,224($fp) + sd $7,232($fp) + sd $8,240($fp) + sd $9,248($fp) + sd $10,256($fp) + sd $11,264($fp) + sdc1 $f12,96($fp) + sdc1 $f13,104($fp) + sdc1 $f14,112($fp) + sdc1 $f15,120($fp) + sdc1 $f16,128($fp) + sdc1 $f17,136($fp) + sdc1 $f18,144($fp) + sdc1 $f19,152($fp) + swc1 $f12,60($fp) + swc1 $f13,64($fp) + swc1 $f14,68($fp) + swc1 $f15,72($fp) + swc1 $f16,76($fp) + swc1 $f17,80($fp) + swc1 $f18,84($fp) + swc1 $f19,88($fp) + move $4,$fp + sw $0,0($fp) + sd $12,24($fp) + sd $0,32($fp) + sw $0,40($fp) + jalr $25 + sw $0,56($fp) + + lw $12,40($fp) + beq $12,$0,.L1 + li $13,1 # 0x1 + + beq $12,$13,.L43 + li $13,2 # 0x2 + + beq $12,$13,.L43 + li $13,3 # 0x3 + + beq $12,$13,.L46 + li $13,4 # 0x4 + + beq $12,$13,.L47 + li $13,5 # 0x5 + + beq $12,$13,.L48 + li $13,6 # 0x6 + + beq $12,$13,.L49 + li $13,7 # 0x7 + + beq $12,$13,.L50 + li $13,8 # 0x8 + + beq $12,$13,.L44 + li $13,9 # 0x9 + + beq $12,$13,.L44 + li $13,10 # 0xa + + beq $12,$13,.L44 + li $13,11 # 0xb + + beq $12,$13,.L44 + li $13,12 # 0xc + + beq $12,$13,.L51 + li $13,13 # 0xd + + beq $12,$13,.L52 + li $13,14 # 0xe + + beq $12,$13,.L44 + li $13,15 # 0xf + + bnel $12,$13,.L58 + move $sp,$fp + + lw $12,0($fp) + andi $13,$12,0x400 + beq $13,$0,.L1 + andi $13,$12,0x4 + + beq $13,$0,.L19 + ld $14,48($fp) + + ld $12,48($fp) + li $13,1 # 0x1 + beq $12,$13,.L53 + li $13,2 # 0x2 + + beq $12,$13,.L54 + li $13,4 # 0x4 + + beq $12,$13,.L55 + li $13,8 # 0x8 + + bnel $12,$13,.L58 + move $sp,$fp + + ld $12,32($fp) + ld $2,0($12) +.L1: + move $sp,$fp +.L58: + ld $31,200($sp) + ld $fp,192($sp) + ld $28,184($sp) + ld $18,176($sp) + ld $17,168($sp) + ld $16,160($sp) + j $31 + daddiu $sp,$sp,272 + + .align 3 +.L43: + move $sp,$fp + ld $31,200($sp) + ld $28,184($sp) + ld $18,176($sp) + ld $17,168($sp) + ld $16,160($sp) + lb $2,8($fp) + ld $fp,192($sp) + j $31 + daddiu $sp,$sp,272 + + .align 3 +.L44: + b .L1 + ld $2,8($fp) + + .align 3 +.L46: + b .L1 + lbu $2,8($fp) + + .align 3 +.L47: + b .L1 + lh $2,8($fp) + + .align 3 +.L48: + b .L1 + lhu $2,8($fp) + + .align 3 +.L49: + b .L1 + lw $2,8($fp) + + .align 3 +.L51: + b .L1 + lwc1 $f0,8($fp) + + .align 3 +.L50: + b .L1 + lwu $2,8($fp) + +.L52: + b .L1 + ldc1 $f0,8($fp) + +.L19: + daddiu $13,$14,-1 + sltu $13,$13,16 + beql $13,$0,.L59 + andi $13,$12,0x800 + + ld $13,32($fp) + li $24,-8 # 0xfffffffffffffff8 + sltu $25,$14,9 + andi $15,$13,0x7 + and $24,$13,$24 + beq $25,$0,.L24 + daddu $13,$14,$15 + + sltu $25,$13,9 + sll $13,$13,0 + beq $25,$0,.L25 + subu $13,$0,$13 + + ld $25,0($24) + sll $13,$13,3 + li $24,-1 # 0xffffffffffffffff + dsll $13,$24,$13 + and $13,$13,$25 + sll $15,$15,3 + dsll $2,$13,$15 +.L23: + andi $13,$12,0x800 +.L59: + beql $13,$0,.L27 + andi $12,$12,0x1000 + + li $13,4 # 0x4 + beq $14,$13,.L56 + li $13,8 # 0x8 + + beql $14,$13,.L57 + ld $13,32($fp) + + andi $12,$12,0x1000 + beql $12,$0,.L58 + move $sp,$fp + + li $12,16 # 0x10 +.L60: + bnel $14,$12,.L58 + move $sp,$fp + + ld $12,32($fp) + ldc1 $f0,0($12) + b .L1 + ldc1 $f2,8($12) + +.L27: + beq $12,$0,.L1 + li $12,8 # 0x8 + + bne $14,$12,.L60 + li $12,16 # 0x10 + + ld $13,32($fp) + b .L1 + ldc1 $f0,0($13) + +.L24: + sltu $25,$13,17 + beq $25,$0,.L26 + sll $13,$13,0 + + ld $18,8($24) + subu $13,$0,$13 + move $16,$15 + li $25,-1 # 0xffffffffffffffff + subu $15,$0,$15 + sll $13,$13,3 + dsll $13,$25,$13 + ld $17,0($24) + sll $25,$15,2 + addiu $24,$25,32 + and $13,$13,$18 + sll $15,$16,3 + dsra $25,$13,$24 + dsll $16,$17,$15 + dsra $24,$25,$24 + or $2,$16,$24 + b .L23 + dsll $3,$13,$15 + +.L53: + ld $12,32($fp) + b .L1 + lbu $2,0($12) + +.L54: + ld $12,32($fp) + b .L1 + lhu $2,0($12) + +.L26: + ld $18,16($24) + subu $13,$0,$13 + ld $16,8($24) + ld $17,0($24) + subu $25,$0,$15 + sll $13,$13,3 + li $24,-1 # 0xffffffffffffffff + dsll $24,$24,$13 + sll $25,$25,3 + sll $15,$15,3 + addiu $25,$25,64 + and $13,$24,$18 + dsra $13,$13,$25 + dsll $24,$17,$15 + dsra $17,$16,$25 + dsll $15,$16,$15 + or $2,$24,$17 + b .L23 + or $3,$13,$15 + +.L56: + ld $12,32($fp) + b .L1 + lwc1 $f0,0($12) + +.L55: + ld $12,32($fp) + b .L1 + lwu $2,0($12) + +.L25: + ld $16,8($24) + ld $25,0($24) + sll $13,$13,3 + li $24,-1 # 0xffffffffffffffff + dsll $13,$24,$13 + subu $24,$0,$15 + and $13,$13,$16 + sll $24,$24,3 + sll $15,$15,3 + dsra $13,$13,$24 + dsll $15,$25,$15 + b .L23 + or $2,$13,$15 + +.L57: + andi $12,$12,0x1000 + lwc1 $f0,0($13) + beq $12,$0,.L1 + lwc1 $f2,4($13) + + b .L1 + ldc1 $f0,0($13) + + .set macro + .set reorder + .end vacall_receiver + .size vacall_receiver, .-vacall_receiver + .ident "GCC: (GNU) 5.4.0" diff --git a/vacall/vacall-mips64eb-macro.S b/vacall/vacall-mips64eb-macro.S new file mode 100644 index 0000000..87b6667 --- /dev/null +++ b/vacall/vacall-mips64eb-macro.S @@ -0,0 +1,356 @@ +#include "asm-mips.h" + .file 1 "vacall-mips64.c" + .text + .align 2 + .align 3 + .globl vacall_receiver + .set nomips16 + .set nomicromips + .ent vacall_receiver + DECLARE_FUNCTION(vacall_receiver) +vacall_receiver: + .frame $fp,272,$31 + .mask 0xd0070000,-72 + .fmask 0x00000000,0 + .set noreorder + .set nomacro + daddiu $sp,$sp,-272 + sd $28,184($sp) + lui $28,%hi(%neg(%gp_rel(vacall_receiver))) + daddu $28,$28,$25 + daddiu $28,$28,%lo(%neg(%gp_rel(vacall_receiver))) + ld $12,%got_disp(vacall_function)($28) + sd $fp,192($sp) + move $fp,$sp + ld $25,0($12) + daddiu $12,$fp,208 + sd $31,200($sp) + sd $18,176($sp) + sd $17,168($sp) + sd $16,160($sp) + sd $4,208($fp) + sd $5,216($fp) + sd $6,224($fp) + sd $7,232($fp) + sd $8,240($fp) + sd $9,248($fp) + sd $10,256($fp) + sd $11,264($fp) + sdc1 $f12,96($fp) + sdc1 $f13,104($fp) + sdc1 $f14,112($fp) + sdc1 $f15,120($fp) + sdc1 $f16,128($fp) + sdc1 $f17,136($fp) + sdc1 $f18,144($fp) + sdc1 $f19,152($fp) + swc1 $f12,60($fp) + swc1 $f13,64($fp) + swc1 $f14,68($fp) + swc1 $f15,72($fp) + swc1 $f16,76($fp) + swc1 $f17,80($fp) + swc1 $f18,84($fp) + swc1 $f19,88($fp) + move $4,$fp + sw $0,0($fp) + sd $12,24($fp) + sd $0,32($fp) + sw $0,40($fp) + jalr $25 + sw $0,56($fp) + + lw $12,40($fp) + beq $12,$0,.L1 + li $13,1 + + beq $12,$13,.L43 + li $13,2 + + beq $12,$13,.L43 + li $13,3 + + beq $12,$13,.L46 + li $13,4 + + beq $12,$13,.L47 + li $13,5 + + beq $12,$13,.L48 + li $13,6 + + beq $12,$13,.L49 + li $13,7 + + beq $12,$13,.L50 + li $13,8 + + beq $12,$13,.L44 + li $13,9 + + beq $12,$13,.L44 + li $13,10 + + beq $12,$13,.L44 + li $13,11 + + beq $12,$13,.L44 + li $13,12 + + beq $12,$13,.L51 + li $13,13 + + beq $12,$13,.L52 + li $13,14 + + beq $12,$13,.L44 + li $13,15 + + bnel $12,$13,.L58 + move $sp,$fp + + lw $12,0($fp) + andi $13,$12,0x400 + beq $13,$0,.L1 + andi $13,$12,0x4 + + beq $13,$0,.L19 + ld $14,48($fp) + + ld $12,48($fp) + li $13,1 + beq $12,$13,.L53 + li $13,2 + + beq $12,$13,.L54 + li $13,4 + + beq $12,$13,.L55 + li $13,8 + + bnel $12,$13,.L58 + move $sp,$fp + + ld $12,32($fp) + ld $2,0($12) +.L1: + move $sp,$fp +.L58: + ld $31,200($sp) + ld $fp,192($sp) + ld $28,184($sp) + ld $18,176($sp) + ld $17,168($sp) + ld $16,160($sp) + j $31 + daddiu $sp,$sp,272 + + .align 3 +.L43: + move $sp,$fp + ld $31,200($sp) + ld $28,184($sp) + ld $18,176($sp) + ld $17,168($sp) + ld $16,160($sp) + lb $2,8($fp) + ld $fp,192($sp) + j $31 + daddiu $sp,$sp,272 + + .align 3 +.L44: + b .L1 + ld $2,8($fp) + + .align 3 +.L46: + b .L1 + lbu $2,8($fp) + + .align 3 +.L47: + b .L1 + lh $2,8($fp) + + .align 3 +.L48: + b .L1 + lhu $2,8($fp) + + .align 3 +.L49: + b .L1 + lw $2,8($fp) + + .align 3 +.L51: + b .L1 + lwc1 $f0,8($fp) + + .align 3 +.L50: + b .L1 + lwu $2,8($fp) + +.L52: + b .L1 + ldc1 $f0,8($fp) + +.L19: + daddiu $13,$14,-1 + sltu $13,$13,16 + beql $13,$0,.L59 + andi $13,$12,0x800 + + ld $13,32($fp) + li $24,-8 + sltu $25,$14,9 + andi $15,$13,0x7 + and $24,$13,$24 + beq $25,$0,.L24 + daddu $13,$14,$15 + + sltu $25,$13,9 + sll $13,$13,0 + beq $25,$0,.L25 + subu $13,$0,$13 + + ld $25,0($24) + sll $13,$13,3 + li $24,-1 + dsll $13,$24,$13 + and $13,$13,$25 + sll $15,$15,3 + dsll $2,$13,$15 +.L23: + andi $13,$12,0x800 +.L59: + beql $13,$0,.L27 + andi $12,$12,0x1000 + + li $13,4 + beq $14,$13,.L56 + li $13,8 + + beql $14,$13,.L57 + ld $13,32($fp) + + andi $12,$12,0x1000 + beql $12,$0,.L58 + move $sp,$fp + + li $12,16 +.L60: + bnel $14,$12,.L58 + move $sp,$fp + + ld $12,32($fp) + ldc1 $f0,0($12) + b .L1 + ldc1 $f2,8($12) + +.L27: + beq $12,$0,.L1 + li $12,8 + + bne $14,$12,.L60 + li $12,16 + + ld $13,32($fp) + b .L1 + ldc1 $f0,0($13) + +.L24: + sltu $25,$13,17 + beq $25,$0,.L26 + sll $13,$13,0 + + ld $18,8($24) + subu $13,$0,$13 + move $16,$15 + li $25,-1 + subu $15,$0,$15 + sll $13,$13,3 + dsll $13,$25,$13 + ld $17,0($24) + sll $25,$15,2 + addiu $24,$25,32 + and $13,$13,$18 + sll $15,$16,3 + dsra $25,$13,$24 + dsll $16,$17,$15 + dsra $24,$25,$24 + or $2,$16,$24 + b .L23 + dsll $3,$13,$15 + +.L53: + ld $12,32($fp) + b .L1 + lbu $2,0($12) + +.L54: + ld $12,32($fp) + b .L1 + lhu $2,0($12) + +.L26: + ld $18,16($24) + subu $13,$0,$13 + ld $16,8($24) + ld $17,0($24) + subu $25,$0,$15 + sll $13,$13,3 + li $24,-1 + dsll $24,$24,$13 + sll $25,$25,3 + sll $15,$15,3 + addiu $25,$25,64 + and $13,$24,$18 + dsra $13,$13,$25 + dsll $24,$17,$15 + dsra $17,$16,$25 + dsll $15,$16,$15 + or $2,$24,$17 + b .L23 + or $3,$13,$15 + +.L56: + ld $12,32($fp) + b .L1 + lwc1 $f0,0($12) + +.L55: + ld $12,32($fp) + b .L1 + lwu $2,0($12) + +.L25: + ld $16,8($24) + ld $25,0($24) + sll $13,$13,3 + li $24,-1 + dsll $13,$24,$13 + subu $24,$0,$15 + and $13,$13,$16 + sll $24,$24,3 + sll $15,$15,3 + dsra $13,$13,$24 + dsll $15,$25,$15 + b .L23 + or $2,$13,$15 + +.L57: + andi $12,$12,0x1000 + lwc1 $f0,0($13) + beq $12,$0,.L1 + lwc1 $f2,4($13) + + b .L1 + ldc1 $f0,0($13) + + .set macro + .set reorder + .end vacall_receiver + .size vacall_receiver, .-vacall_receiver diff --git a/vacall/vacall-mips64el-linux.s b/vacall/vacall-mips64el-linux.s new file mode 100644 index 0000000..a2ea9ad --- /dev/null +++ b/vacall/vacall-mips64el-linux.s @@ -0,0 +1,366 @@ + .file 1 "vacall-mips64.c" + .section .mdebug.abi64 + .previous + .nan legacy + .module fp=64 + .module oddspreg + .abicalls + .text + .align 2 + .align 3 + .globl vacall_receiver + .set nomips16 + .set nomicromips + .ent vacall_receiver + .type vacall_receiver, @function +vacall_receiver: + .frame $fp,272,$31 # vars= 160, regs= 6/0, args= 0, gp= 0 + .mask 0xd0070000,-72 + .fmask 0x00000000,0 + .set noreorder + .set nomacro + daddiu $sp,$sp,-272 + sd $28,184($sp) + lui $28,%hi(%neg(%gp_rel(vacall_receiver))) + daddu $28,$28,$25 + daddiu $28,$28,%lo(%neg(%gp_rel(vacall_receiver))) + ld $12,%got_disp(vacall_function)($28) + sd $fp,192($sp) + move $fp,$sp + ld $25,0($12) + daddiu $12,$fp,208 + sd $31,200($sp) + sd $18,176($sp) + sd $17,168($sp) + sd $16,160($sp) + sd $4,208($fp) + sd $5,216($fp) + sd $6,224($fp) + sd $7,232($fp) + sd $8,240($fp) + sd $9,248($fp) + sd $10,256($fp) + sd $11,264($fp) + sdc1 $f12,96($fp) + sdc1 $f13,104($fp) + sdc1 $f14,112($fp) + sdc1 $f15,120($fp) + sdc1 $f16,128($fp) + sdc1 $f17,136($fp) + sdc1 $f18,144($fp) + sdc1 $f19,152($fp) + swc1 $f12,60($fp) + swc1 $f13,64($fp) + swc1 $f14,68($fp) + swc1 $f15,72($fp) + swc1 $f16,76($fp) + swc1 $f17,80($fp) + swc1 $f18,84($fp) + swc1 $f19,88($fp) + move $4,$fp + sw $0,0($fp) + sd $12,24($fp) + sd $0,32($fp) + sw $0,40($fp) + jalr $25 + sw $0,56($fp) + + lw $12,40($fp) + beq $12,$0,.L1 + li $13,1 # 0x1 + + beq $12,$13,.L43 + li $13,2 # 0x2 + + beq $12,$13,.L43 + li $13,3 # 0x3 + + beq $12,$13,.L46 + li $13,4 # 0x4 + + beq $12,$13,.L47 + li $13,5 # 0x5 + + beq $12,$13,.L48 + li $13,6 # 0x6 + + beq $12,$13,.L49 + li $13,7 # 0x7 + + beq $12,$13,.L50 + li $13,8 # 0x8 + + beq $12,$13,.L44 + li $13,9 # 0x9 + + beq $12,$13,.L44 + li $13,10 # 0xa + + beq $12,$13,.L44 + li $13,11 # 0xb + + beq $12,$13,.L44 + li $13,12 # 0xc + + beq $12,$13,.L51 + li $13,13 # 0xd + + beq $12,$13,.L52 + li $13,14 # 0xe + + beq $12,$13,.L44 + li $13,15 # 0xf + + bnel $12,$13,.L58 + move $sp,$fp + + lw $12,0($fp) + andi $13,$12,0x400 + beq $13,$0,.L1 + andi $13,$12,0x4 + + beq $13,$0,.L19 + ld $14,48($fp) + + ld $12,48($fp) + li $13,1 # 0x1 + beq $12,$13,.L53 + li $13,2 # 0x2 + + beq $12,$13,.L54 + li $13,4 # 0x4 + + beq $12,$13,.L55 + li $13,8 # 0x8 + + bnel $12,$13,.L58 + move $sp,$fp + + ld $12,32($fp) + ld $2,0($12) +.L1: + move $sp,$fp +.L58: + ld $31,200($sp) + ld $fp,192($sp) + ld $28,184($sp) + ld $18,176($sp) + ld $17,168($sp) + ld $16,160($sp) + j $31 + daddiu $sp,$sp,272 + + .align 3 +.L43: + move $sp,$fp + ld $31,200($sp) + ld $28,184($sp) + ld $18,176($sp) + ld $17,168($sp) + ld $16,160($sp) + lb $2,8($fp) + ld $fp,192($sp) + j $31 + daddiu $sp,$sp,272 + + .align 3 +.L44: + b .L1 + ld $2,8($fp) + + .align 3 +.L46: + b .L1 + lbu $2,8($fp) + + .align 3 +.L47: + b .L1 + lh $2,8($fp) + + .align 3 +.L48: + b .L1 + lhu $2,8($fp) + + .align 3 +.L49: + b .L1 + lw $2,8($fp) + + .align 3 +.L51: + b .L1 + lwc1 $f0,8($fp) + + .align 3 +.L50: + b .L1 + lwu $2,8($fp) + +.L52: + b .L1 + ldc1 $f0,8($fp) + +.L19: + daddiu $13,$14,-1 + sltu $13,$13,16 + beql $13,$0,.L59 + andi $13,$12,0x800 + + ld $13,32($fp) + li $15,-8 # 0xfffffffffffffff8 + sltu $25,$14,9 + andi $24,$13,0x7 + and $15,$13,$15 + beq $25,$0,.L24 + daddu $13,$14,$24 + + sltu $25,$13,9 + beq $25,$0,.L25 + dsll $13,$13,3 + + daddiu $13,$13,-1 + ld $25,0($15) + sll $13,$13,0 + li $15,2 # 0x2 + dsll $13,$15,$13 + daddiu $13,$13,-1 + and $13,$13,$25 + sll $24,$24,3 + dsra $2,$13,$24 +.L23: + andi $13,$12,0x800 +.L59: + beql $13,$0,.L27 + andi $12,$12,0x1000 + + li $13,4 # 0x4 + beq $14,$13,.L56 + li $13,8 # 0x8 + + beql $14,$13,.L57 + ld $13,32($fp) + + andi $12,$12,0x1000 + beql $12,$0,.L58 + move $sp,$fp + + li $12,16 # 0x10 +.L60: + bnel $14,$12,.L58 + move $sp,$fp + + ld $12,32($fp) + ldc1 $f0,0($12) + b .L1 + ldc1 $f2,8($12) + +.L27: + beq $12,$0,.L1 + li $12,8 # 0x8 + + bne $14,$12,.L60 + li $12,16 # 0x10 + + ld $13,32($fp) + b .L1 + ldc1 $f0,0($13) + +.L24: + sltu $25,$13,17 + beq $25,$0,.L26 + dsll $13,$13,3 + + daddiu $13,$13,-65 + ld $17,8($15) + li $25,2 # 0x2 + sll $13,$13,0 + dsll $13,$25,$13 + subu $25,$0,$24 + sll $25,$25,2 + ld $16,0($15) + daddiu $13,$13,-1 + addiu $15,$25,32 + and $13,$13,$17 + sll $24,$24,3 + dsll $25,$13,$15 + dsra $16,$16,$24 + dsll $15,$25,$15 + or $2,$16,$15 + b .L23 + dsra $3,$13,$24 + +.L53: + ld $12,32($fp) + b .L1 + lbu $2,0($12) + +.L54: + ld $12,32($fp) + b .L1 + lhu $2,0($12) + +.L26: + daddiu $13,$13,-129 + ld $16,8($15) + ld $17,0($15) + sll $13,$13,0 + ld $18,16($15) + li $15,2 # 0x2 + subu $25,$0,$24 + dsll $15,$15,$13 + daddiu $15,$15,-1 + sll $25,$25,3 + sll $24,$24,3 + addiu $25,$25,64 + and $13,$15,$18 + dsll $13,$13,$25 + dsra $15,$17,$24 + dsll $17,$16,$25 + dsra $24,$16,$24 + or $2,$15,$17 + b .L23 + or $3,$13,$24 + +.L56: + ld $12,32($fp) + b .L1 + lwc1 $f0,0($12) + +.L55: + ld $12,32($fp) + b .L1 + lwu $2,0($12) + +.L25: + daddiu $13,$13,-65 + li $25,2 # 0x2 + sll $13,$13,0 + ld $17,8($15) + dsll $13,$25,$13 + ld $25,0($15) + daddiu $13,$13,-1 + subu $16,$0,$24 + and $15,$13,$17 + sll $24,$24,3 + sll $13,$16,3 + dsll $13,$15,$13 + dsra $24,$25,$24 + b .L23 + or $2,$13,$24 + +.L57: + andi $12,$12,0x1000 + lwc1 $f0,0($13) + beq $12,$0,.L1 + lwc1 $f2,4($13) + + b .L1 + ldc1 $f0,0($13) + + .set macro + .set reorder + .end vacall_receiver + .size vacall_receiver, .-vacall_receiver + .ident "GCC: (GNU) 5.4.0" diff --git a/vacall/vacall-mips64el-macro.S b/vacall/vacall-mips64el-macro.S new file mode 100644 index 0000000..63b81f5 --- /dev/null +++ b/vacall/vacall-mips64el-macro.S @@ -0,0 +1,360 @@ +#include "asm-mips.h" + .file 1 "vacall-mips64.c" + .text + .align 2 + .align 3 + .globl vacall_receiver + .set nomips16 + .set nomicromips + .ent vacall_receiver + DECLARE_FUNCTION(vacall_receiver) +vacall_receiver: + .frame $fp,272,$31 + .mask 0xd0070000,-72 + .fmask 0x00000000,0 + .set noreorder + .set nomacro + daddiu $sp,$sp,-272 + sd $28,184($sp) + lui $28,%hi(%neg(%gp_rel(vacall_receiver))) + daddu $28,$28,$25 + daddiu $28,$28,%lo(%neg(%gp_rel(vacall_receiver))) + ld $12,%got_disp(vacall_function)($28) + sd $fp,192($sp) + move $fp,$sp + ld $25,0($12) + daddiu $12,$fp,208 + sd $31,200($sp) + sd $18,176($sp) + sd $17,168($sp) + sd $16,160($sp) + sd $4,208($fp) + sd $5,216($fp) + sd $6,224($fp) + sd $7,232($fp) + sd $8,240($fp) + sd $9,248($fp) + sd $10,256($fp) + sd $11,264($fp) + sdc1 $f12,96($fp) + sdc1 $f13,104($fp) + sdc1 $f14,112($fp) + sdc1 $f15,120($fp) + sdc1 $f16,128($fp) + sdc1 $f17,136($fp) + sdc1 $f18,144($fp) + sdc1 $f19,152($fp) + swc1 $f12,60($fp) + swc1 $f13,64($fp) + swc1 $f14,68($fp) + swc1 $f15,72($fp) + swc1 $f16,76($fp) + swc1 $f17,80($fp) + swc1 $f18,84($fp) + swc1 $f19,88($fp) + move $4,$fp + sw $0,0($fp) + sd $12,24($fp) + sd $0,32($fp) + sw $0,40($fp) + jalr $25 + sw $0,56($fp) + + lw $12,40($fp) + beq $12,$0,.L1 + li $13,1 + + beq $12,$13,.L43 + li $13,2 + + beq $12,$13,.L43 + li $13,3 + + beq $12,$13,.L46 + li $13,4 + + beq $12,$13,.L47 + li $13,5 + + beq $12,$13,.L48 + li $13,6 + + beq $12,$13,.L49 + li $13,7 + + beq $12,$13,.L50 + li $13,8 + + beq $12,$13,.L44 + li $13,9 + + beq $12,$13,.L44 + li $13,10 + + beq $12,$13,.L44 + li $13,11 + + beq $12,$13,.L44 + li $13,12 + + beq $12,$13,.L51 + li $13,13 + + beq $12,$13,.L52 + li $13,14 + + beq $12,$13,.L44 + li $13,15 + + bnel $12,$13,.L58 + move $sp,$fp + + lw $12,0($fp) + andi $13,$12,0x400 + beq $13,$0,.L1 + andi $13,$12,0x4 + + beq $13,$0,.L19 + ld $14,48($fp) + + ld $12,48($fp) + li $13,1 + beq $12,$13,.L53 + li $13,2 + + beq $12,$13,.L54 + li $13,4 + + beq $12,$13,.L55 + li $13,8 + + bnel $12,$13,.L58 + move $sp,$fp + + ld $12,32($fp) + ld $2,0($12) +.L1: + move $sp,$fp +.L58: + ld $31,200($sp) + ld $fp,192($sp) + ld $28,184($sp) + ld $18,176($sp) + ld $17,168($sp) + ld $16,160($sp) + j $31 + daddiu $sp,$sp,272 + + .align 3 +.L43: + move $sp,$fp + ld $31,200($sp) + ld $28,184($sp) + ld $18,176($sp) + ld $17,168($sp) + ld $16,160($sp) + lb $2,8($fp) + ld $fp,192($sp) + j $31 + daddiu $sp,$sp,272 + + .align 3 +.L44: + b .L1 + ld $2,8($fp) + + .align 3 +.L46: + b .L1 + lbu $2,8($fp) + + .align 3 +.L47: + b .L1 + lh $2,8($fp) + + .align 3 +.L48: + b .L1 + lhu $2,8($fp) + + .align 3 +.L49: + b .L1 + lw $2,8($fp) + + .align 3 +.L51: + b .L1 + lwc1 $f0,8($fp) + + .align 3 +.L50: + b .L1 + lwu $2,8($fp) + +.L52: + b .L1 + ldc1 $f0,8($fp) + +.L19: + daddiu $13,$14,-1 + sltu $13,$13,16 + beql $13,$0,.L59 + andi $13,$12,0x800 + + ld $13,32($fp) + li $15,-8 + sltu $25,$14,9 + andi $24,$13,0x7 + and $15,$13,$15 + beq $25,$0,.L24 + daddu $13,$14,$24 + + sltu $25,$13,9 + beq $25,$0,.L25 + dsll $13,$13,3 + + daddiu $13,$13,-1 + ld $25,0($15) + sll $13,$13,0 + li $15,2 + dsll $13,$15,$13 + daddiu $13,$13,-1 + and $13,$13,$25 + sll $24,$24,3 + dsra $2,$13,$24 +.L23: + andi $13,$12,0x800 +.L59: + beql $13,$0,.L27 + andi $12,$12,0x1000 + + li $13,4 + beq $14,$13,.L56 + li $13,8 + + beql $14,$13,.L57 + ld $13,32($fp) + + andi $12,$12,0x1000 + beql $12,$0,.L58 + move $sp,$fp + + li $12,16 +.L60: + bnel $14,$12,.L58 + move $sp,$fp + + ld $12,32($fp) + ldc1 $f0,0($12) + b .L1 + ldc1 $f2,8($12) + +.L27: + beq $12,$0,.L1 + li $12,8 + + bne $14,$12,.L60 + li $12,16 + + ld $13,32($fp) + b .L1 + ldc1 $f0,0($13) + +.L24: + sltu $25,$13,17 + beq $25,$0,.L26 + dsll $13,$13,3 + + daddiu $13,$13,-65 + ld $17,8($15) + li $25,2 + sll $13,$13,0 + dsll $13,$25,$13 + subu $25,$0,$24 + sll $25,$25,2 + ld $16,0($15) + daddiu $13,$13,-1 + addiu $15,$25,32 + and $13,$13,$17 + sll $24,$24,3 + dsll $25,$13,$15 + dsra $16,$16,$24 + dsll $15,$25,$15 + or $2,$16,$15 + b .L23 + dsra $3,$13,$24 + +.L53: + ld $12,32($fp) + b .L1 + lbu $2,0($12) + +.L54: + ld $12,32($fp) + b .L1 + lhu $2,0($12) + +.L26: + daddiu $13,$13,-129 + ld $16,8($15) + ld $17,0($15) + sll $13,$13,0 + ld $18,16($15) + li $15,2 + subu $25,$0,$24 + dsll $15,$15,$13 + daddiu $15,$15,-1 + sll $25,$25,3 + sll $24,$24,3 + addiu $25,$25,64 + and $13,$15,$18 + dsll $13,$13,$25 + dsra $15,$17,$24 + dsll $17,$16,$25 + dsra $24,$16,$24 + or $2,$15,$17 + b .L23 + or $3,$13,$24 + +.L56: + ld $12,32($fp) + b .L1 + lwc1 $f0,0($12) + +.L55: + ld $12,32($fp) + b .L1 + lwu $2,0($12) + +.L25: + daddiu $13,$13,-65 + li $25,2 + sll $13,$13,0 + ld $17,8($15) + dsll $13,$25,$13 + ld $25,0($15) + daddiu $13,$13,-1 + subu $16,$0,$24 + and $15,$13,$17 + sll $24,$24,3 + sll $13,$16,3 + dsll $13,$15,$13 + dsra $24,$25,$24 + b .L23 + or $2,$13,$24 + +.L57: + andi $12,$12,0x1000 + lwc1 $f0,0($13) + beq $12,$0,.L1 + lwc1 $f2,4($13) + + b .L1 + ldc1 $f0,0($13) + + .set macro + .set reorder + .end vacall_receiver + .size vacall_receiver, .-vacall_receiver diff --git a/vacall/vacall-mipseb-linux.s b/vacall/vacall-mipseb-linux.s new file mode 100644 index 0000000..7cc4184 --- /dev/null +++ b/vacall/vacall-mipseb-linux.s @@ -0,0 +1,295 @@ + .file 1 "vacall-mips.c" + .section .mdebug.abi32 + .previous + .nan legacy + .module fp=xx + .module nooddspreg + .abicalls + .text + .align 2 + .globl vacall_receiver + .set nomips16 + .set nomicromips + .ent vacall_receiver + .type vacall_receiver, @function +vacall_receiver: + .frame $fp,104,$31 # vars= 72, regs= 2/0, args= 16, gp= 8 + .mask 0xc0000000,-4 + .fmask 0x00000000,0 + .set noreorder + .cpload $25 + .set reorder + addiu $sp,$sp,-104 + sw $fp,96($sp) + move $fp,$sp + sw $31,100($sp) + la $8,vacall_function + sw $4,104($fp) + lw $25,0($8) + addiu $4,$fp,104 + sw $4,40($fp) + addiu $4,$fp,120 + sw $4,56($fp) + .cprestore 16 + addiu $4,$fp,24 + sw $5,108($fp) + sw $6,112($fp) + sw $7,116($fp) + sdc1 $f12,80($fp) + sdc1 $f14,88($fp) + swc1 $f12,68($fp) + swc1 $f14,72($fp) + sw $0,24($fp) + sw $0,44($fp) + sw $0,48($fp) + sw $0,60($fp) + sw $0,64($fp) + jal $25 + lw $4,48($fp) + .set noreorder + .set nomacro + beq $4,$0,$L1 + li $5,1 # 0x1 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L23 + li $5,2 # 0x2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L23 + li $5,3 # 0x3 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L29 + li $5,4 # 0x4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L30 + li $5,5 # 0x5 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L31 + li $5,6 # 0x6 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,7 # 0x7 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,8 # 0x8 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,9 # 0x9 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + addiu $5,$4,-10 + .set macro + .set reorder + + sltu $5,$5,2 + .set noreorder + .set nomacro + bne $5,$0,$L32 + li $5,12 # 0xc + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L33 + li $5,13 # 0xd + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L34 + li $5,14 # 0xe + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,15 # 0xf + .set macro + .set reorder + + .set noreorder + .set nomacro + bnel $4,$5,$L37 + move $sp,$fp + .set macro + .set reorder + + lw $4,24($fp) + andi $4,$4,0x2 + .set noreorder + .set nomacro + beql $4,$0,$L38 + lw $2,44($fp) + .set macro + .set reorder + + lw $4,52($fp) + li $5,1 # 0x1 + .set noreorder + .set nomacro + beql $4,$5,$L35 + lw $4,44($fp) + .set macro + .set reorder + + li $5,2 # 0x2 + .set noreorder + .set nomacro + beq $4,$5,$L36 + li $5,4 # 0x4 + .set macro + .set reorder + + .set noreorder + .set nomacro + bnel $4,$5,$L37 + move $sp,$fp + .set macro + .set reorder + + lw $4,44($fp) + lw $2,0($4) +$L1: +$L38: + move $sp,$fp +$L37: + lw $31,100($sp) + lw $fp,96($sp) + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,104 + .set macro + .set reorder + +$L23: + move $sp,$fp + lw $31,100($sp) + lb $2,32($fp) + lw $fp,96($sp) + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,104 + .set macro + .set reorder + +$L27: + move $sp,$fp + lw $31,100($sp) + lw $2,32($fp) + lw $fp,96($sp) + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,104 + .set macro + .set reorder + +$L29: + .set noreorder + .set nomacro + b $L1 + lbu $2,32($fp) + .set macro + .set reorder + +$L30: + .set noreorder + .set nomacro + b $L1 + lh $2,32($fp) + .set macro + .set reorder + +$L31: + .set noreorder + .set nomacro + b $L1 + lhu $2,32($fp) + .set macro + .set reorder + +$L34: + .set noreorder + .set nomacro + b $L1 + ldc1 $f0,32($fp) + .set macro + .set reorder + +$L32: + lw $2,32($fp) + .set noreorder + .set nomacro + b $L1 + lw $3,36($fp) + .set macro + .set reorder + +$L33: + .set noreorder + .set nomacro + b $L1 + lwc1 $f0,32($fp) + .set macro + .set reorder + +$L35: + .set noreorder + .set nomacro + b $L1 + lbu $2,0($4) + .set macro + .set reorder + +$L36: + lw $4,44($fp) + .set noreorder + .set nomacro + b $L1 + lhu $2,0($4) + .set macro + .set reorder + + .end vacall_receiver + .size vacall_receiver, .-vacall_receiver + .ident "GCC: (GNU) 5.4.0" diff --git a/vacall/vacall-mipseb-macro.S b/vacall/vacall-mipseb-macro.S new file mode 100644 index 0000000..9255dce --- /dev/null +++ b/vacall/vacall-mipseb-macro.S @@ -0,0 +1,289 @@ +#include "asm-mips.h" + .file 1 "vacall-mips.c" + .text + .align 2 + .globl vacall_receiver + .set nomips16 + .set nomicromips + .ent vacall_receiver + DECLARE_FUNCTION(vacall_receiver) +vacall_receiver: + .frame $fp,104,$31 + .mask 0xc0000000,-4 + .fmask 0x00000000,0 + .set noreorder + .cpload $25 + .set reorder + addiu $sp,$sp,-104 + sw $fp,96($sp) + move $fp,$sp + sw $31,100($sp) + la $8,vacall_function + sw $4,104($fp) + lw $25,0($8) + addiu $4,$fp,104 + sw $4,40($fp) + addiu $4,$fp,120 + sw $4,56($fp) + .cprestore 16 + addiu $4,$fp,24 + sw $5,108($fp) + sw $6,112($fp) + sw $7,116($fp) + sdc1 $f12,80($fp) + sdc1 $f14,88($fp) + swc1 $f12,68($fp) + swc1 $f14,72($fp) + sw $0,24($fp) + sw $0,44($fp) + sw $0,48($fp) + sw $0,60($fp) + sw $0,64($fp) + jal $25 + lw $4,48($fp) + .set noreorder + .set nomacro + beq $4,$0,$L1 + li $5,1 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L23 + li $5,2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L23 + li $5,3 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L29 + li $5,4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L30 + li $5,5 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L31 + li $5,6 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,7 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,8 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,9 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + addiu $5,$4,-10 + .set macro + .set reorder + + sltu $5,$5,2 + .set noreorder + .set nomacro + bne $5,$0,$L32 + li $5,12 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L33 + li $5,13 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L34 + li $5,14 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,15 + .set macro + .set reorder + + .set noreorder + .set nomacro + bnel $4,$5,$L37 + move $sp,$fp + .set macro + .set reorder + + lw $4,24($fp) + andi $4,$4,0x2 + .set noreorder + .set nomacro + beql $4,$0,$L38 + lw $2,44($fp) + .set macro + .set reorder + + lw $4,52($fp) + li $5,1 + .set noreorder + .set nomacro + beql $4,$5,$L35 + lw $4,44($fp) + .set macro + .set reorder + + li $5,2 + .set noreorder + .set nomacro + beq $4,$5,$L36 + li $5,4 + .set macro + .set reorder + + .set noreorder + .set nomacro + bnel $4,$5,$L37 + move $sp,$fp + .set macro + .set reorder + + lw $4,44($fp) + lw $2,0($4) +$L1: +$L38: + move $sp,$fp +$L37: + lw $31,100($sp) + lw $fp,96($sp) + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,104 + .set macro + .set reorder + +$L23: + move $sp,$fp + lw $31,100($sp) + lb $2,32($fp) + lw $fp,96($sp) + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,104 + .set macro + .set reorder + +$L27: + move $sp,$fp + lw $31,100($sp) + lw $2,32($fp) + lw $fp,96($sp) + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,104 + .set macro + .set reorder + +$L29: + .set noreorder + .set nomacro + b $L1 + lbu $2,32($fp) + .set macro + .set reorder + +$L30: + .set noreorder + .set nomacro + b $L1 + lh $2,32($fp) + .set macro + .set reorder + +$L31: + .set noreorder + .set nomacro + b $L1 + lhu $2,32($fp) + .set macro + .set reorder + +$L34: + .set noreorder + .set nomacro + b $L1 + ldc1 $f0,32($fp) + .set macro + .set reorder + +$L32: + lw $2,32($fp) + .set noreorder + .set nomacro + b $L1 + lw $3,36($fp) + .set macro + .set reorder + +$L33: + .set noreorder + .set nomacro + b $L1 + lwc1 $f0,32($fp) + .set macro + .set reorder + +$L35: + .set noreorder + .set nomacro + b $L1 + lbu $2,0($4) + .set macro + .set reorder + +$L36: + lw $4,44($fp) + .set noreorder + .set nomacro + b $L1 + lhu $2,0($4) + .set macro + .set reorder + + .end vacall_receiver + .size vacall_receiver, .-vacall_receiver diff --git a/vacall/vacall-mipsel-linux.s b/vacall/vacall-mipsel-linux.s new file mode 100644 index 0000000..7cc4184 --- /dev/null +++ b/vacall/vacall-mipsel-linux.s @@ -0,0 +1,295 @@ + .file 1 "vacall-mips.c" + .section .mdebug.abi32 + .previous + .nan legacy + .module fp=xx + .module nooddspreg + .abicalls + .text + .align 2 + .globl vacall_receiver + .set nomips16 + .set nomicromips + .ent vacall_receiver + .type vacall_receiver, @function +vacall_receiver: + .frame $fp,104,$31 # vars= 72, regs= 2/0, args= 16, gp= 8 + .mask 0xc0000000,-4 + .fmask 0x00000000,0 + .set noreorder + .cpload $25 + .set reorder + addiu $sp,$sp,-104 + sw $fp,96($sp) + move $fp,$sp + sw $31,100($sp) + la $8,vacall_function + sw $4,104($fp) + lw $25,0($8) + addiu $4,$fp,104 + sw $4,40($fp) + addiu $4,$fp,120 + sw $4,56($fp) + .cprestore 16 + addiu $4,$fp,24 + sw $5,108($fp) + sw $6,112($fp) + sw $7,116($fp) + sdc1 $f12,80($fp) + sdc1 $f14,88($fp) + swc1 $f12,68($fp) + swc1 $f14,72($fp) + sw $0,24($fp) + sw $0,44($fp) + sw $0,48($fp) + sw $0,60($fp) + sw $0,64($fp) + jal $25 + lw $4,48($fp) + .set noreorder + .set nomacro + beq $4,$0,$L1 + li $5,1 # 0x1 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L23 + li $5,2 # 0x2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L23 + li $5,3 # 0x3 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L29 + li $5,4 # 0x4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L30 + li $5,5 # 0x5 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L31 + li $5,6 # 0x6 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,7 # 0x7 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,8 # 0x8 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,9 # 0x9 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + addiu $5,$4,-10 + .set macro + .set reorder + + sltu $5,$5,2 + .set noreorder + .set nomacro + bne $5,$0,$L32 + li $5,12 # 0xc + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L33 + li $5,13 # 0xd + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L34 + li $5,14 # 0xe + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,15 # 0xf + .set macro + .set reorder + + .set noreorder + .set nomacro + bnel $4,$5,$L37 + move $sp,$fp + .set macro + .set reorder + + lw $4,24($fp) + andi $4,$4,0x2 + .set noreorder + .set nomacro + beql $4,$0,$L38 + lw $2,44($fp) + .set macro + .set reorder + + lw $4,52($fp) + li $5,1 # 0x1 + .set noreorder + .set nomacro + beql $4,$5,$L35 + lw $4,44($fp) + .set macro + .set reorder + + li $5,2 # 0x2 + .set noreorder + .set nomacro + beq $4,$5,$L36 + li $5,4 # 0x4 + .set macro + .set reorder + + .set noreorder + .set nomacro + bnel $4,$5,$L37 + move $sp,$fp + .set macro + .set reorder + + lw $4,44($fp) + lw $2,0($4) +$L1: +$L38: + move $sp,$fp +$L37: + lw $31,100($sp) + lw $fp,96($sp) + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,104 + .set macro + .set reorder + +$L23: + move $sp,$fp + lw $31,100($sp) + lb $2,32($fp) + lw $fp,96($sp) + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,104 + .set macro + .set reorder + +$L27: + move $sp,$fp + lw $31,100($sp) + lw $2,32($fp) + lw $fp,96($sp) + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,104 + .set macro + .set reorder + +$L29: + .set noreorder + .set nomacro + b $L1 + lbu $2,32($fp) + .set macro + .set reorder + +$L30: + .set noreorder + .set nomacro + b $L1 + lh $2,32($fp) + .set macro + .set reorder + +$L31: + .set noreorder + .set nomacro + b $L1 + lhu $2,32($fp) + .set macro + .set reorder + +$L34: + .set noreorder + .set nomacro + b $L1 + ldc1 $f0,32($fp) + .set macro + .set reorder + +$L32: + lw $2,32($fp) + .set noreorder + .set nomacro + b $L1 + lw $3,36($fp) + .set macro + .set reorder + +$L33: + .set noreorder + .set nomacro + b $L1 + lwc1 $f0,32($fp) + .set macro + .set reorder + +$L35: + .set noreorder + .set nomacro + b $L1 + lbu $2,0($4) + .set macro + .set reorder + +$L36: + lw $4,44($fp) + .set noreorder + .set nomacro + b $L1 + lhu $2,0($4) + .set macro + .set reorder + + .end vacall_receiver + .size vacall_receiver, .-vacall_receiver + .ident "GCC: (GNU) 5.4.0" diff --git a/vacall/vacall-mipsel-macro.S b/vacall/vacall-mipsel-macro.S new file mode 100644 index 0000000..9255dce --- /dev/null +++ b/vacall/vacall-mipsel-macro.S @@ -0,0 +1,289 @@ +#include "asm-mips.h" + .file 1 "vacall-mips.c" + .text + .align 2 + .globl vacall_receiver + .set nomips16 + .set nomicromips + .ent vacall_receiver + DECLARE_FUNCTION(vacall_receiver) +vacall_receiver: + .frame $fp,104,$31 + .mask 0xc0000000,-4 + .fmask 0x00000000,0 + .set noreorder + .cpload $25 + .set reorder + addiu $sp,$sp,-104 + sw $fp,96($sp) + move $fp,$sp + sw $31,100($sp) + la $8,vacall_function + sw $4,104($fp) + lw $25,0($8) + addiu $4,$fp,104 + sw $4,40($fp) + addiu $4,$fp,120 + sw $4,56($fp) + .cprestore 16 + addiu $4,$fp,24 + sw $5,108($fp) + sw $6,112($fp) + sw $7,116($fp) + sdc1 $f12,80($fp) + sdc1 $f14,88($fp) + swc1 $f12,68($fp) + swc1 $f14,72($fp) + sw $0,24($fp) + sw $0,44($fp) + sw $0,48($fp) + sw $0,60($fp) + sw $0,64($fp) + jal $25 + lw $4,48($fp) + .set noreorder + .set nomacro + beq $4,$0,$L1 + li $5,1 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L23 + li $5,2 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L23 + li $5,3 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L29 + li $5,4 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L30 + li $5,5 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L31 + li $5,6 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,7 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,8 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,9 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + addiu $5,$4,-10 + .set macro + .set reorder + + sltu $5,$5,2 + .set noreorder + .set nomacro + bne $5,$0,$L32 + li $5,12 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L33 + li $5,13 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L34 + li $5,14 + .set macro + .set reorder + + .set noreorder + .set nomacro + beq $4,$5,$L27 + li $5,15 + .set macro + .set reorder + + .set noreorder + .set nomacro + bnel $4,$5,$L37 + move $sp,$fp + .set macro + .set reorder + + lw $4,24($fp) + andi $4,$4,0x2 + .set noreorder + .set nomacro + beql $4,$0,$L38 + lw $2,44($fp) + .set macro + .set reorder + + lw $4,52($fp) + li $5,1 + .set noreorder + .set nomacro + beql $4,$5,$L35 + lw $4,44($fp) + .set macro + .set reorder + + li $5,2 + .set noreorder + .set nomacro + beq $4,$5,$L36 + li $5,4 + .set macro + .set reorder + + .set noreorder + .set nomacro + bnel $4,$5,$L37 + move $sp,$fp + .set macro + .set reorder + + lw $4,44($fp) + lw $2,0($4) +$L1: +$L38: + move $sp,$fp +$L37: + lw $31,100($sp) + lw $fp,96($sp) + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,104 + .set macro + .set reorder + +$L23: + move $sp,$fp + lw $31,100($sp) + lb $2,32($fp) + lw $fp,96($sp) + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,104 + .set macro + .set reorder + +$L27: + move $sp,$fp + lw $31,100($sp) + lw $2,32($fp) + lw $fp,96($sp) + .set noreorder + .set nomacro + j $31 + addiu $sp,$sp,104 + .set macro + .set reorder + +$L29: + .set noreorder + .set nomacro + b $L1 + lbu $2,32($fp) + .set macro + .set reorder + +$L30: + .set noreorder + .set nomacro + b $L1 + lh $2,32($fp) + .set macro + .set reorder + +$L31: + .set noreorder + .set nomacro + b $L1 + lhu $2,32($fp) + .set macro + .set reorder + +$L34: + .set noreorder + .set nomacro + b $L1 + ldc1 $f0,32($fp) + .set macro + .set reorder + +$L32: + lw $2,32($fp) + .set noreorder + .set nomacro + b $L1 + lw $3,36($fp) + .set macro + .set reorder + +$L33: + .set noreorder + .set nomacro + b $L1 + lwc1 $f0,32($fp) + .set macro + .set reorder + +$L35: + .set noreorder + .set nomacro + b $L1 + lbu $2,0($4) + .set macro + .set reorder + +$L36: + lw $4,44($fp) + .set noreorder + .set nomacro + b $L1 + lhu $2,0($4) + .set macro + .set reorder + + .end vacall_receiver + .size vacall_receiver, .-vacall_receiver diff --git a/vacall/vacall-mipsn32.c b/vacall/vacall-mipsn32.c new file mode 100644 index 0000000..32599ce --- /dev/null +++ b/vacall/vacall-mipsn32.c @@ -0,0 +1,508 @@ +/* vacall function for mips CPU */ + +/* + * Copyright 1995-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "vacall-internal.h" + +#ifndef REENTRANT +typedef void (*func_pointer)(va_alist); +#else /* REENTRANT */ +#define vacall_receiver callback_receiver +typedef void (*func_pointer)(void*,va_alist); +register struct { func_pointer vacall_function; void* arg; } + * env __asm__("$2"); +#endif +register void* sp __asm__("$sp"); +register __vaword iarg0 __asm__("$4"); +register __vaword iarg1 __asm__("$5"); +register __vaword iarg2 __asm__("$6"); +register __vaword iarg3 __asm__("$7"); +register __vaword iarg4 __asm__("$8"); +register __vaword iarg5 __asm__("$9"); +register __vaword iarg6 __asm__("$10"); +register __vaword iarg7 __asm__("$11"); +register float farg0 __asm__("$f12"); +register float farg1 __asm__("$f13"); +register float farg2 __asm__("$f14"); +register float farg3 __asm__("$f15"); +register float farg4 __asm__("$f16"); +register float farg5 __asm__("$f17"); +register float farg6 __asm__("$f18"); +register float farg7 __asm__("$f19"); +register double darg0 __asm__("$f12"); +register double darg1 __asm__("$f13"); +register double darg2 __asm__("$f14"); +register double darg3 __asm__("$f15"); +register double darg4 __asm__("$f16"); +register double darg5 __asm__("$f17"); +register double darg6 __asm__("$f18"); +register double darg7 __asm__("$f19"); +register __vaword iret __asm__("$2"); +register __vaword iret2 __asm__("$3"); +register float fret __asm__("$f0"); +register float fret2 __asm__("$f2"); +register double dret __asm__("$f0"); +register double dret2 __asm__("$f2"); + +/* The ABI requires that the first 8 general-purpose argument words are + being passed in registers, even if these words belong to a struct. No room + is allocated for these register words on the stack by the caller, but the + callee allocates room for them - at the right place in the stack frame, + that is, above the usual {fp, retaddr} combo - if and only if they are part + of a larger struct that extends to the stack and the address of this struct + is taken. */ +struct gpargsequence { + __vaword word1; /* r4 */ + __vaword word2; /* r5 */ + __vaword word3; /* r6 */ + __vaword word4; /* r7 */ + __vaword word5; /* r8 */ + __vaword word6; /* r9 */ + __vaword word7; /* r10 */ + __vaword word8; /* r11 */ + __vaword firststackword; +}; + +#ifdef REENTRANT +static +#endif +void /* the return type is variable, not void! */ +vacall_receiver (struct gpargsequence gpargs) +{ + __va_alist list; + list.darg[0] = darg0; + list.darg[1] = darg1; + list.darg[2] = darg2; + list.darg[3] = darg3; + list.darg[4] = darg4; + list.darg[5] = darg5; + list.darg[6] = darg6; + list.darg[7] = darg7; + list.farg[0] = farg0; + list.farg[1] = farg1; + list.farg[2] = farg2; + list.farg[3] = farg3; + list.farg[4] = farg4; + list.farg[5] = farg5; + list.farg[6] = farg6; + list.farg[7] = farg7; + /* Prepare the va_alist. */ + list.flags = 0; + list.aptr = (long)&gpargs; + list.raddr = (void*)0; + list.rtype = __VAvoid; + list.anum = 0; + /* Call vacall_function. The macros do all the rest. */ +#ifndef REENTRANT + (*vacall_function) (&list); +#else /* REENTRANT */ + (*env->vacall_function) (env->arg,&list); +#endif + /* Put return value into proper register. */ + if (list.rtype == __VAvoid) { + } else + if (list.rtype == __VAchar) { + iret = list.tmp._char; + } else + if (list.rtype == __VAschar) { + iret = list.tmp._schar; + } else + if (list.rtype == __VAuchar) { + iret = list.tmp._uchar; + } else + if (list.rtype == __VAshort) { + iret = list.tmp._short; + } else + if (list.rtype == __VAushort) { + iret = list.tmp._ushort; + } else + if (list.rtype == __VAint) { + iret = list.tmp._int; + } else + if (list.rtype == __VAuint) { + iret = list.tmp._uint; + } else + if (list.rtype == __VAlong) { + iret = list.tmp._long; + } else + if (list.rtype == __VAulong) { + iret = list.tmp._ulong; + } else + if (list.rtype == __VAlonglong) { + iret = list.tmp._longlong; + } else + if (list.rtype == __VAulonglong) { + iret = list.tmp._ulonglong; + } else + if (list.rtype == __VAfloat) { + fret = list.tmp._float; + } else + if (list.rtype == __VAdouble) { + dret = list.tmp._double; + } else + if (list.rtype == __VAvoidp) { + iret = (long)list.tmp._ptr; + } else + if (list.rtype == __VAstruct) { + if (list.flags & __VA_REGISTER_STRUCT_RETURN) { + if (list.flags & __VA_GCC_STRUCT_RETURN) { + /* gcc returns structs of size 1,2,4,8 in registers. */ + if (list.rsize == sizeof(char)) { + iret = *(unsigned char *) list.raddr; + } else + if (list.rsize == sizeof(short)) { + iret = *(unsigned short *) list.raddr; + } else + if (list.rsize == sizeof(int)) { + iret = *(unsigned int *) list.raddr; + } else + if (list.rsize == sizeof(long long)) { + iret = *(unsigned long long *) list.raddr; + } + } else { + /* cc returns structs of size <= 16 in registers. */ + /* Maybe this big if cascade could be replaced with + * if (list.rsize > 0 && list.rsize <= 16) + * __asm__ ("ldl $2,%0 ; ldr $2,%1" + * : : "m" (((unsigned char *) list.raddr)[0]), + * "m" (((unsigned char *) list.raddr)[7])); + */ + if (list.rsize > 0 && list.rsize <= 16) { + #if 0 /* Unoptimized */ + if (list.rsize == 1) { + #if defined(_MIPSEL) + iret = (__vaword)((unsigned char *) list.raddr)[0]; + #else + iret = (__vaword)((unsigned char *) list.raddr)[0] << 56; + #endif + } else + if (list.rsize == 2) { + #if defined(_MIPSEL) + iret = ((__vaword)((unsigned char *) list.raddr)[0]) + | ((__vaword)((unsigned char *) list.raddr)[1] << 8); + #else + iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) + | ((__vaword)((unsigned char *) list.raddr)[1] << 48); + #endif + } else + if (list.rsize == 3) { + #if defined(_MIPSEL) + iret = ((__vaword)((unsigned char *) list.raddr)[0]) + | ((__vaword)((unsigned char *) list.raddr)[1] << 8) + | ((__vaword)((unsigned char *) list.raddr)[2] << 16); + #else + iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) + | ((__vaword)((unsigned char *) list.raddr)[1] << 48) + | ((__vaword)((unsigned char *) list.raddr)[2] << 40); + #endif + } else + if (list.rsize == 4) { + #if defined(_MIPSEL) + iret = ((__vaword)((unsigned char *) list.raddr)[0]) + | ((__vaword)((unsigned char *) list.raddr)[1] << 8) + | ((__vaword)((unsigned char *) list.raddr)[2] << 16) + | ((__vaword)((unsigned char *) list.raddr)[3] << 24); + #else + iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) + | ((__vaword)((unsigned char *) list.raddr)[1] << 48) + | ((__vaword)((unsigned char *) list.raddr)[2] << 40) + | ((__vaword)((unsigned char *) list.raddr)[3] << 32); + #endif + } else + if (list.rsize == 5) { + #if defined(_MIPSEL) + iret = ((__vaword)((unsigned char *) list.raddr)[0]) + | ((__vaword)((unsigned char *) list.raddr)[1] << 8) + | ((__vaword)((unsigned char *) list.raddr)[2] << 16) + | ((__vaword)((unsigned char *) list.raddr)[3] << 24) + | ((__vaword)((unsigned char *) list.raddr)[4] << 32); + #else + iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) + | ((__vaword)((unsigned char *) list.raddr)[1] << 48) + | ((__vaword)((unsigned char *) list.raddr)[2] << 40) + | ((__vaword)((unsigned char *) list.raddr)[3] << 32) + | ((__vaword)((unsigned char *) list.raddr)[4] << 24); + #endif + } else + if (list.rsize == 6) { + #if defined(_MIPSEL) + iret = ((__vaword)((unsigned char *) list.raddr)[0]) + | ((__vaword)((unsigned char *) list.raddr)[1] << 8) + | ((__vaword)((unsigned char *) list.raddr)[2] << 16) + | ((__vaword)((unsigned char *) list.raddr)[3] << 24) + | ((__vaword)((unsigned char *) list.raddr)[4] << 32) + | ((__vaword)((unsigned char *) list.raddr)[5] << 40); + #else + iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) + | ((__vaword)((unsigned char *) list.raddr)[1] << 48) + | ((__vaword)((unsigned char *) list.raddr)[2] << 40) + | ((__vaword)((unsigned char *) list.raddr)[3] << 32) + | ((__vaword)((unsigned char *) list.raddr)[4] << 24) + | ((__vaword)((unsigned char *) list.raddr)[5] << 16); + #endif + } else + if (list.rsize == 7) { + #if defined(_MIPSEL) + iret = ((__vaword)((unsigned char *) list.raddr)[0]) + | ((__vaword)((unsigned char *) list.raddr)[1] << 8) + | ((__vaword)((unsigned char *) list.raddr)[2] << 16) + | ((__vaword)((unsigned char *) list.raddr)[3] << 24) + | ((__vaword)((unsigned char *) list.raddr)[4] << 32) + | ((__vaword)((unsigned char *) list.raddr)[5] << 40) + | ((__vaword)((unsigned char *) list.raddr)[6] << 48); + #else + iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) + | ((__vaword)((unsigned char *) list.raddr)[1] << 48) + | ((__vaword)((unsigned char *) list.raddr)[2] << 40) + | ((__vaword)((unsigned char *) list.raddr)[3] << 32) + | ((__vaword)((unsigned char *) list.raddr)[4] << 24) + | ((__vaword)((unsigned char *) list.raddr)[5] << 16) + | ((__vaword)((unsigned char *) list.raddr)[6] << 8); + #endif + } else + if (list.rsize >= 8 && list.rsize <= 16) { + #if defined(_MIPSEL) + iret = ((__vaword)((unsigned char *) list.raddr)[0]) + | ((__vaword)((unsigned char *) list.raddr)[1] << 8) + | ((__vaword)((unsigned char *) list.raddr)[2] << 16) + | ((__vaword)((unsigned char *) list.raddr)[3] << 24) + | ((__vaword)((unsigned char *) list.raddr)[4] << 32) + | ((__vaword)((unsigned char *) list.raddr)[5] << 40) + | ((__vaword)((unsigned char *) list.raddr)[6] << 48) + | ((__vaword)((unsigned char *) list.raddr)[7] << 56); + #else + iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) + | ((__vaword)((unsigned char *) list.raddr)[1] << 48) + | ((__vaword)((unsigned char *) list.raddr)[2] << 40) + | ((__vaword)((unsigned char *) list.raddr)[3] << 32) + | ((__vaword)((unsigned char *) list.raddr)[4] << 24) + | ((__vaword)((unsigned char *) list.raddr)[5] << 16) + | ((__vaword)((unsigned char *) list.raddr)[6] << 8) + | (__vaword)((unsigned char *) list.raddr)[7]; + #endif + /* Maybe this big if cascade could be replaced with + * if (list.rsize > 8 && list.rsize <= 16) + * __asm__ ("ldl $3,%0 ; ldr $3,%1" + * : : "m" (((unsigned char *) list.raddr)[8]), + * "m" (((unsigned char *) list.raddr)[15])); + */ + if (list.rsize == 8) { + } else + if (list.rsize == 9) { + #if defined(_MIPSEL) + iret2 = (__vaword)((unsigned char *) list.raddr)[8]; + #else + iret2 = (__vaword)((unsigned char *) list.raddr)[8] << 56; + #endif + } else + if (list.rsize == 10) { + #if defined(_MIPSEL) + iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) + | ((__vaword)((unsigned char *) list.raddr)[9] << 8); + #else + iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) + | ((__vaword)((unsigned char *) list.raddr)[9] << 48); + #endif + } else + if (list.rsize == 11) { + #if defined(_MIPSEL) + iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) + | ((__vaword)((unsigned char *) list.raddr)[9] << 8) + | ((__vaword)((unsigned char *) list.raddr)[10] << 16); + #else + iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) + | ((__vaword)((unsigned char *) list.raddr)[9] << 48) + | ((__vaword)((unsigned char *) list.raddr)[10] << 40); + #endif + } else + if (list.rsize == 12) { + #if defined(_MIPSEL) + iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) + | ((__vaword)((unsigned char *) list.raddr)[9] << 8) + | ((__vaword)((unsigned char *) list.raddr)[10] << 16) + | ((__vaword)((unsigned char *) list.raddr)[11] << 24); + #else + iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) + | ((__vaword)((unsigned char *) list.raddr)[9] << 48) + | ((__vaword)((unsigned char *) list.raddr)[10] << 40) + | ((__vaword)((unsigned char *) list.raddr)[11] << 32); + #endif + } else + if (list.rsize == 13) { + #if defined(_MIPSEL) + iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) + | ((__vaword)((unsigned char *) list.raddr)[9] << 8) + | ((__vaword)((unsigned char *) list.raddr)[10] << 16) + | ((__vaword)((unsigned char *) list.raddr)[11] << 24) + | ((__vaword)((unsigned char *) list.raddr)[12] << 32); + #else + iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) + | ((__vaword)((unsigned char *) list.raddr)[9] << 48) + | ((__vaword)((unsigned char *) list.raddr)[10] << 40) + | ((__vaword)((unsigned char *) list.raddr)[11] << 32) + | ((__vaword)((unsigned char *) list.raddr)[12] << 24); + #endif + } else + if (list.rsize == 14) { + #if defined(_MIPSEL) + iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) + | ((__vaword)((unsigned char *) list.raddr)[9] << 8) + | ((__vaword)((unsigned char *) list.raddr)[10] << 16) + | ((__vaword)((unsigned char *) list.raddr)[11] << 24) + | ((__vaword)((unsigned char *) list.raddr)[12] << 32) + | ((__vaword)((unsigned char *) list.raddr)[13] << 40); + #else + iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) + | ((__vaword)((unsigned char *) list.raddr)[9] << 48) + | ((__vaword)((unsigned char *) list.raddr)[10] << 40) + | ((__vaword)((unsigned char *) list.raddr)[11] << 32) + | ((__vaword)((unsigned char *) list.raddr)[12] << 24) + | ((__vaword)((unsigned char *) list.raddr)[13] << 16); + #endif + } else + if (list.rsize == 15) { + #if defined(_MIPSEL) + iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) + | ((__vaword)((unsigned char *) list.raddr)[9] << 8) + | ((__vaword)((unsigned char *) list.raddr)[10] << 16) + | ((__vaword)((unsigned char *) list.raddr)[11] << 24) + | ((__vaword)((unsigned char *) list.raddr)[12] << 32) + | ((__vaword)((unsigned char *) list.raddr)[13] << 40) + | ((__vaword)((unsigned char *) list.raddr)[14] << 48); + #else + iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) + | ((__vaword)((unsigned char *) list.raddr)[9] << 48) + | ((__vaword)((unsigned char *) list.raddr)[10] << 40) + | ((__vaword)((unsigned char *) list.raddr)[11] << 32) + | ((__vaword)((unsigned char *) list.raddr)[12] << 24) + | ((__vaword)((unsigned char *) list.raddr)[13] << 16) + | ((__vaword)((unsigned char *) list.raddr)[14] << 8); + #endif + } else + if (list.rsize == 16) { + #if defined(_MIPSEL) + iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) + | ((__vaword)((unsigned char *) list.raddr)[9] << 8) + | ((__vaword)((unsigned char *) list.raddr)[10] << 16) + | ((__vaword)((unsigned char *) list.raddr)[11] << 24) + | ((__vaword)((unsigned char *) list.raddr)[12] << 32) + | ((__vaword)((unsigned char *) list.raddr)[13] << 40) + | ((__vaword)((unsigned char *) list.raddr)[14] << 48) + | ((__vaword)((unsigned char *) list.raddr)[15] << 56); + #else + iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) + | ((__vaword)((unsigned char *) list.raddr)[9] << 48) + | ((__vaword)((unsigned char *) list.raddr)[10] << 40) + | ((__vaword)((unsigned char *) list.raddr)[11] << 32) + | ((__vaword)((unsigned char *) list.raddr)[12] << 24) + | ((__vaword)((unsigned char *) list.raddr)[13] << 16) + | ((__vaword)((unsigned char *) list.raddr)[14] << 8) + | (__vaword)((unsigned char *) list.raddr)[15]; + #endif + } + } + #else /* Optimized: fewer conditional jumps, fewer memory accesses */ + uintptr_t count = list.rsize; /* > 0, ≤ 2*sizeof(__vaword) */ + __vaword* wordaddr = (__vaword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__vaword)-1)); + uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__vaword)-1); /* ≥ 0, < sizeof(__vaword) */ + uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__vaword) */ + #if defined(_MIPSEL) + if (count <= sizeof(__vaword)) { + /* Assign iret. */ + if (end_offset <= sizeof(__vaword)) { + /* 0 < end_offset ≤ sizeof(__vaword) */ + __vaword mask0 = ((__vaword)2 << (end_offset*8-1)) - 1; + iret = (wordaddr[0] & mask0) >> (start_offset*8); + } else { + /* sizeof(__vaword) < end_offset < 2*sizeof(__vaword), start_offset > 0 */ + __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; + iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*8-start_offset*8)); + } + } else { + /* Assign iret, iret2. */ + if (end_offset <= 2*sizeof(__vaword)) { + /* sizeof(__vaword) < end_offset ≤ 2*sizeof(__vaword) */ + __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; + iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*4-start_offset*4) << (sizeof(__vaword)*4-start_offset*4)); + iret2 = (wordaddr[1] & mask1) >> (start_offset*8); + } else { + /* 2*sizeof(__vaword) < end_offset < 3*sizeof(__vaword), start_offset > 0 */ + __vaword mask2 = ((__vaword)2 << (end_offset*8-2*sizeof(__vaword)*8-1)) - 1; + iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__vaword)*8-start_offset*8)); + iret2 = (wordaddr[1] >> (start_offset*8)) | ((wordaddr[2] & mask2) << (sizeof(__vaword)*8-start_offset*8)); + } + } + #else + if (count <= sizeof(__vaword)) { + /* Assign iret. */ + if (end_offset <= sizeof(__vaword)) { + /* 0 < end_offset ≤ sizeof(__vaword) */ + __vaword mask0 = - ((__vaword)1 << (sizeof(__vaword)*8-end_offset*8)); + iret = (wordaddr[0] & mask0) << (start_offset*8); + } else { + /* sizeof(__vaword) < end_offset < 2*sizeof(__vaword), start_offset > 0 */ + __vaword mask1 = - ((__vaword)1 << (2*sizeof(__vaword)*8-end_offset*8)); + iret = (wordaddr[0] << (start_offset*8)) | ((wordaddr[1] & mask1) >> (sizeof(__vaword)*8-start_offset*8)); + } + } else { + /* Assign iret, iret2. */ + if (end_offset <= 2*sizeof(__vaword)) { + /* sizeof(__vaword) < end_offset ≤ 2*sizeof(__vaword) */ + __vaword mask1 = - ((__vaword)1 << (2*sizeof(__vaword)*8-end_offset*8)); + iret = (wordaddr[0] << (start_offset*8)) | ((wordaddr[1] & mask1) >> (sizeof(__vaword)*4-start_offset*4) >> (sizeof(__vaword)*4-start_offset*4)); + iret2 = (wordaddr[1] & mask1) << (start_offset*8); + } else { + /* 2*sizeof(__vaword) < end_offset < 3*sizeof(__vaword), start_offset > 0 */ + __vaword mask2 = - ((__vaword)1 << (3*sizeof(__vaword)*8-end_offset*8)); + iret = (wordaddr[0] << (start_offset*8)) | (wordaddr[1] >> (sizeof(__vaword)*8-start_offset*8)); + iret2 = (wordaddr[1] << (start_offset*8)) | ((wordaddr[2] & mask2) >> (sizeof(__vaword)*8-start_offset*8)); + } + } + #endif + #endif + } + if (list.flags & __VA_REGISTER_FLOATSTRUCT_RETURN) { + if (list.rsize == sizeof(float)) { + fret = *(float*)list.raddr; + } else + if (list.rsize == 2*sizeof(float)) { + fret = *(float*)list.raddr; + fret2 = *(float*)((char*)list.raddr + 4); + } + } + if (list.flags & __VA_REGISTER_DOUBLESTRUCT_RETURN) { + if (list.rsize == sizeof(double)) { + dret = *(double*)list.raddr; + } else + if (list.rsize == 2*sizeof(double)) { + dret = *(double*)list.raddr; + dret2 = *(double*)((char*)list.raddr + 8); + } + } + } + } + } +} + +#ifdef REENTRANT +__vacall_r_t +callback_get_receiver (void) +{ + return (__vacall_r_t)(void*)&callback_receiver; +} +#endif diff --git a/vacall/vacall-mipsn32eb-linux.s b/vacall/vacall-mipsn32eb-linux.s new file mode 100644 index 0000000..9feb329 --- /dev/null +++ b/vacall/vacall-mipsn32eb-linux.s @@ -0,0 +1,357 @@ + .file 1 "vacall-mipsn32.c" + .section .mdebug.abiN32 + .previous + .nan legacy + .module fp=64 + .module oddspreg + .abicalls + .text + .align 2 + .align 3 + .globl vacall_receiver + .set nomips16 + .set nomicromips + .ent vacall_receiver + .type vacall_receiver, @function +vacall_receiver: + .frame $fp,256,$31 # vars= 144, regs= 6/0, args= 0, gp= 0 + .mask 0xd0070000,-72 + .fmask 0x00000000,0 + .set noreorder + .set nomacro + addiu $sp,$sp,-256 + sd $28,168($sp) + lui $28,%hi(__gnu_local_gp) + addiu $28,$28,%lo(__gnu_local_gp) + lw $12,%got_disp(vacall_function)($28) + sd $fp,176($sp) + move $fp,$sp + lw $25,0($12) + addiu $12,$fp,192 + sd $31,184($sp) + sd $18,160($sp) + sd $17,152($sp) + sd $16,144($sp) + sd $4,192($fp) + sd $5,200($fp) + sd $6,208($fp) + sd $7,216($fp) + sd $8,224($fp) + sd $9,232($fp) + sd $10,240($fp) + sd $11,248($fp) + sdc1 $f12,80($fp) + sdc1 $f13,88($fp) + sdc1 $f14,96($fp) + sdc1 $f15,104($fp) + sdc1 $f16,112($fp) + sdc1 $f17,120($fp) + sdc1 $f18,128($fp) + sdc1 $f19,136($fp) + swc1 $f12,44($fp) + swc1 $f13,48($fp) + swc1 $f14,52($fp) + swc1 $f15,56($fp) + swc1 $f16,60($fp) + swc1 $f17,64($fp) + swc1 $f18,68($fp) + swc1 $f19,72($fp) + move $4,$fp + sw $0,0($fp) + sw $12,24($fp) + sw $0,28($fp) + sw $0,32($fp) + jalr $25 + sw $0,40($fp) + + lw $12,32($fp) + beq $12,$0,.L1 + li $13,1 # 0x1 + + beq $12,$13,.L43 + li $13,2 # 0x2 + + beq $12,$13,.L43 + li $13,3 # 0x3 + + beq $12,$13,.L49 + li $13,4 # 0x4 + + beq $12,$13,.L50 + li $13,5 # 0x5 + + beq $12,$13,.L51 + li $13,6 # 0x6 + + beq $12,$13,.L46 + li $13,7 # 0x7 + + beq $12,$13,.L45 + li $13,8 # 0x8 + + beq $12,$13,.L46 + li $13,9 # 0x9 + + beq $12,$13,.L45 + li $13,10 # 0xa + + beq $12,$13,.L47 + li $13,11 # 0xb + + beq $12,$13,.L47 + li $13,12 # 0xc + + beq $12,$13,.L52 + li $13,13 # 0xd + + beq $12,$13,.L53 + li $13,14 # 0xe + + beq $12,$13,.L46 + li $13,15 # 0xf + + bnel $12,$13,.L59 + move $sp,$fp + + lw $12,0($fp) + andi $13,$12,0x400 + beq $13,$0,.L1 + andi $13,$12,0x4 + + beq $13,$0,.L19 + lw $24,36($fp) + + lw $12,36($fp) + li $13,1 # 0x1 + beq $12,$13,.L54 + li $13,2 # 0x2 + + beq $12,$13,.L55 + li $13,4 # 0x4 + + beq $12,$13,.L56 + li $13,8 # 0x8 + + bnel $12,$13,.L59 + move $sp,$fp + + lw $12,28($fp) + ld $2,0($12) +.L1: + move $sp,$fp +.L59: + ld $31,184($sp) + ld $fp,176($sp) + ld $28,168($sp) + ld $18,160($sp) + ld $17,152($sp) + ld $16,144($sp) + j $31 + addiu $sp,$sp,256 + + .align 3 +.L43: + move $sp,$fp + ld $31,184($sp) + ld $28,168($sp) + ld $18,160($sp) + ld $17,152($sp) + ld $16,144($sp) + lb $2,8($fp) + ld $fp,176($sp) + j $31 + addiu $sp,$sp,256 + + .align 3 +.L46: + b .L1 + lw $2,8($fp) + + .align 3 +.L49: + b .L1 + lbu $2,8($fp) + + .align 3 +.L50: + b .L1 + lh $2,8($fp) + + .align 3 +.L45: + b .L1 + lwu $2,8($fp) + + .align 3 +.L51: + b .L1 + lhu $2,8($fp) + + .align 3 +.L52: + b .L1 + lwc1 $f0,8($fp) + + .align 3 +.L47: + b .L1 + ld $2,8($fp) + +.L53: + b .L1 + ldc1 $f0,8($fp) + +.L19: + addiu $13,$24,-1 + sltu $13,$13,16 + beql $13,$0,.L60 + andi $13,$12,0x800 + + lw $13,28($fp) + li $15,-8 # 0xfffffffffffffff8 + sltu $25,$24,9 + andi $14,$13,0x7 + and $15,$13,$15 + beq $25,$0,.L24 + addu $13,$24,$14 + + sltu $25,$13,9 + beq $25,$0,.L25 + subu $13,$0,$13 + + ld $25,0($15) + sll $13,$13,3 + li $15,-1 # 0xffffffffffffffff + dsll $13,$15,$13 + and $13,$13,$25 + sll $14,$14,3 + dsll $2,$13,$14 +.L23: + andi $13,$12,0x800 +.L60: + beql $13,$0,.L27 + andi $12,$12,0x1000 + + li $13,4 # 0x4 + beq $24,$13,.L57 + li $13,8 # 0x8 + + beql $24,$13,.L58 + lw $13,28($fp) + + andi $12,$12,0x1000 + beql $12,$0,.L59 + move $sp,$fp + + li $12,16 # 0x10 +.L61: + bnel $24,$12,.L59 + move $sp,$fp + + lw $12,28($fp) + ldc1 $f0,0($12) + b .L1 + ldc1 $f2,8($12) + +.L27: + beq $12,$0,.L1 + li $12,8 # 0x8 + + bne $24,$12,.L61 + li $12,16 # 0x10 + + lw $13,28($fp) + b .L1 + ldc1 $f0,0($13) + +.L24: + sltu $25,$13,17 + beq $25,$0,.L26 + subu $13,$0,$13 + + ld $17,8($15) + subu $16,$0,$14 + li $25,-1 # 0xffffffffffffffff + sll $13,$13,3 + dsll $13,$25,$13 + sll $25,$16,2 + ld $16,0($15) + and $13,$13,$17 + addiu $15,$25,32 + sll $14,$14,3 + dsra $25,$13,$15 + dsll $16,$16,$14 + dsra $15,$25,$15 + or $2,$16,$15 + b .L23 + dsll $3,$13,$14 + +.L54: + lw $12,28($fp) + b .L1 + lbu $2,0($12) + +.L55: + lw $12,28($fp) + b .L1 + lhu $2,0($12) + +.L26: + ld $18,16($15) + ld $16,8($15) + ld $17,0($15) + subu $25,$0,$14 + li $15,-1 # 0xffffffffffffffff + sll $13,$13,3 + sll $25,$25,3 + dsll $13,$15,$13 + sll $14,$14,3 + addiu $15,$25,64 + and $13,$13,$18 + dsll $25,$17,$14 + dsra $13,$13,$15 + dsra $17,$16,$15 + dsll $14,$16,$14 + or $2,$25,$17 + b .L23 + or $3,$13,$14 + +.L57: + lw $12,28($fp) + b .L1 + lwc1 $f0,0($12) + +.L56: + lw $12,28($fp) + b .L1 + lwu $2,0($12) + +.L25: + ld $16,8($15) + ld $25,0($15) + sll $13,$13,3 + li $15,-1 # 0xffffffffffffffff + dsll $13,$15,$13 + subu $15,$0,$14 + and $13,$13,$16 + sll $15,$15,3 + sll $14,$14,3 + dsra $13,$13,$15 + dsll $14,$25,$14 + b .L23 + or $2,$13,$14 + +.L58: + andi $12,$12,0x1000 + lwc1 $f0,0($13) + beq $12,$0,.L1 + lwc1 $f2,4($13) + + b .L1 + ldc1 $f0,0($13) + + .set macro + .set reorder + .end vacall_receiver + .size vacall_receiver, .-vacall_receiver + .ident "GCC: (GNU) 5.4.0" diff --git a/vacall/vacall-mipsn32eb-macro.S b/vacall/vacall-mipsn32eb-macro.S new file mode 100644 index 0000000..f19511d --- /dev/null +++ b/vacall/vacall-mipsn32eb-macro.S @@ -0,0 +1,351 @@ +#include "asm-mips.h" + .file 1 "vacall-mipsn32.c" + .text + .align 2 + .align 3 + .globl vacall_receiver + .set nomips16 + .set nomicromips + .ent vacall_receiver + DECLARE_FUNCTION(vacall_receiver) +vacall_receiver: + .frame $fp,256,$31 + .mask 0xd0070000,-72 + .fmask 0x00000000,0 + .set noreorder + .set nomacro + addiu $sp,$sp,-256 + sd $28,168($sp) + lui $28,%hi(__gnu_local_gp) + addiu $28,$28,%lo(__gnu_local_gp) + lw $12,%got_disp(vacall_function)($28) + sd $fp,176($sp) + move $fp,$sp + lw $25,0($12) + addiu $12,$fp,192 + sd $31,184($sp) + sd $18,160($sp) + sd $17,152($sp) + sd $16,144($sp) + sd $4,192($fp) + sd $5,200($fp) + sd $6,208($fp) + sd $7,216($fp) + sd $8,224($fp) + sd $9,232($fp) + sd $10,240($fp) + sd $11,248($fp) + sdc1 $f12,80($fp) + sdc1 $f13,88($fp) + sdc1 $f14,96($fp) + sdc1 $f15,104($fp) + sdc1 $f16,112($fp) + sdc1 $f17,120($fp) + sdc1 $f18,128($fp) + sdc1 $f19,136($fp) + swc1 $f12,44($fp) + swc1 $f13,48($fp) + swc1 $f14,52($fp) + swc1 $f15,56($fp) + swc1 $f16,60($fp) + swc1 $f17,64($fp) + swc1 $f18,68($fp) + swc1 $f19,72($fp) + move $4,$fp + sw $0,0($fp) + sw $12,24($fp) + sw $0,28($fp) + sw $0,32($fp) + jalr $25 + sw $0,40($fp) + + lw $12,32($fp) + beq $12,$0,.L1 + li $13,1 + + beq $12,$13,.L43 + li $13,2 + + beq $12,$13,.L43 + li $13,3 + + beq $12,$13,.L49 + li $13,4 + + beq $12,$13,.L50 + li $13,5 + + beq $12,$13,.L51 + li $13,6 + + beq $12,$13,.L46 + li $13,7 + + beq $12,$13,.L45 + li $13,8 + + beq $12,$13,.L46 + li $13,9 + + beq $12,$13,.L45 + li $13,10 + + beq $12,$13,.L47 + li $13,11 + + beq $12,$13,.L47 + li $13,12 + + beq $12,$13,.L52 + li $13,13 + + beq $12,$13,.L53 + li $13,14 + + beq $12,$13,.L46 + li $13,15 + + bnel $12,$13,.L59 + move $sp,$fp + + lw $12,0($fp) + andi $13,$12,0x400 + beq $13,$0,.L1 + andi $13,$12,0x4 + + beq $13,$0,.L19 + lw $24,36($fp) + + lw $12,36($fp) + li $13,1 + beq $12,$13,.L54 + li $13,2 + + beq $12,$13,.L55 + li $13,4 + + beq $12,$13,.L56 + li $13,8 + + bnel $12,$13,.L59 + move $sp,$fp + + lw $12,28($fp) + ld $2,0($12) +.L1: + move $sp,$fp +.L59: + ld $31,184($sp) + ld $fp,176($sp) + ld $28,168($sp) + ld $18,160($sp) + ld $17,152($sp) + ld $16,144($sp) + j $31 + addiu $sp,$sp,256 + + .align 3 +.L43: + move $sp,$fp + ld $31,184($sp) + ld $28,168($sp) + ld $18,160($sp) + ld $17,152($sp) + ld $16,144($sp) + lb $2,8($fp) + ld $fp,176($sp) + j $31 + addiu $sp,$sp,256 + + .align 3 +.L46: + b .L1 + lw $2,8($fp) + + .align 3 +.L49: + b .L1 + lbu $2,8($fp) + + .align 3 +.L50: + b .L1 + lh $2,8($fp) + + .align 3 +.L45: + b .L1 + lwu $2,8($fp) + + .align 3 +.L51: + b .L1 + lhu $2,8($fp) + + .align 3 +.L52: + b .L1 + lwc1 $f0,8($fp) + + .align 3 +.L47: + b .L1 + ld $2,8($fp) + +.L53: + b .L1 + ldc1 $f0,8($fp) + +.L19: + addiu $13,$24,-1 + sltu $13,$13,16 + beql $13,$0,.L60 + andi $13,$12,0x800 + + lw $13,28($fp) + li $15,-8 + sltu $25,$24,9 + andi $14,$13,0x7 + and $15,$13,$15 + beq $25,$0,.L24 + addu $13,$24,$14 + + sltu $25,$13,9 + beq $25,$0,.L25 + subu $13,$0,$13 + + ld $25,0($15) + sll $13,$13,3 + li $15,-1 + dsll $13,$15,$13 + and $13,$13,$25 + sll $14,$14,3 + dsll $2,$13,$14 +.L23: + andi $13,$12,0x800 +.L60: + beql $13,$0,.L27 + andi $12,$12,0x1000 + + li $13,4 + beq $24,$13,.L57 + li $13,8 + + beql $24,$13,.L58 + lw $13,28($fp) + + andi $12,$12,0x1000 + beql $12,$0,.L59 + move $sp,$fp + + li $12,16 +.L61: + bnel $24,$12,.L59 + move $sp,$fp + + lw $12,28($fp) + ldc1 $f0,0($12) + b .L1 + ldc1 $f2,8($12) + +.L27: + beq $12,$0,.L1 + li $12,8 + + bne $24,$12,.L61 + li $12,16 + + lw $13,28($fp) + b .L1 + ldc1 $f0,0($13) + +.L24: + sltu $25,$13,17 + beq $25,$0,.L26 + subu $13,$0,$13 + + ld $17,8($15) + subu $16,$0,$14 + li $25,-1 + sll $13,$13,3 + dsll $13,$25,$13 + sll $25,$16,2 + ld $16,0($15) + and $13,$13,$17 + addiu $15,$25,32 + sll $14,$14,3 + dsra $25,$13,$15 + dsll $16,$16,$14 + dsra $15,$25,$15 + or $2,$16,$15 + b .L23 + dsll $3,$13,$14 + +.L54: + lw $12,28($fp) + b .L1 + lbu $2,0($12) + +.L55: + lw $12,28($fp) + b .L1 + lhu $2,0($12) + +.L26: + ld $18,16($15) + ld $16,8($15) + ld $17,0($15) + subu $25,$0,$14 + li $15,-1 + sll $13,$13,3 + sll $25,$25,3 + dsll $13,$15,$13 + sll $14,$14,3 + addiu $15,$25,64 + and $13,$13,$18 + dsll $25,$17,$14 + dsra $13,$13,$15 + dsra $17,$16,$15 + dsll $14,$16,$14 + or $2,$25,$17 + b .L23 + or $3,$13,$14 + +.L57: + lw $12,28($fp) + b .L1 + lwc1 $f0,0($12) + +.L56: + lw $12,28($fp) + b .L1 + lwu $2,0($12) + +.L25: + ld $16,8($15) + ld $25,0($15) + sll $13,$13,3 + li $15,-1 + dsll $13,$15,$13 + subu $15,$0,$14 + and $13,$13,$16 + sll $15,$15,3 + sll $14,$14,3 + dsra $13,$13,$15 + dsll $14,$25,$14 + b .L23 + or $2,$13,$14 + +.L58: + andi $12,$12,0x1000 + lwc1 $f0,0($13) + beq $12,$0,.L1 + lwc1 $f2,4($13) + + b .L1 + ldc1 $f0,0($13) + + .set macro + .set reorder + .end vacall_receiver + .size vacall_receiver, .-vacall_receiver diff --git a/vacall/vacall-mipsn32el-linux.s b/vacall/vacall-mipsn32el-linux.s new file mode 100644 index 0000000..54a7cdc --- /dev/null +++ b/vacall/vacall-mipsn32el-linux.s @@ -0,0 +1,361 @@ + .file 1 "vacall-mipsn32.c" + .section .mdebug.abiN32 + .previous + .nan legacy + .module fp=64 + .module oddspreg + .abicalls + .text + .align 2 + .align 3 + .globl vacall_receiver + .set nomips16 + .set nomicromips + .ent vacall_receiver + .type vacall_receiver, @function +vacall_receiver: + .frame $fp,256,$31 # vars= 144, regs= 6/0, args= 0, gp= 0 + .mask 0xd0070000,-72 + .fmask 0x00000000,0 + .set noreorder + .set nomacro + addiu $sp,$sp,-256 + sd $28,168($sp) + lui $28,%hi(__gnu_local_gp) + addiu $28,$28,%lo(__gnu_local_gp) + lw $12,%got_disp(vacall_function)($28) + sd $fp,176($sp) + move $fp,$sp + lw $25,0($12) + addiu $12,$fp,192 + sd $31,184($sp) + sd $18,160($sp) + sd $17,152($sp) + sd $16,144($sp) + sd $4,192($fp) + sd $5,200($fp) + sd $6,208($fp) + sd $7,216($fp) + sd $8,224($fp) + sd $9,232($fp) + sd $10,240($fp) + sd $11,248($fp) + sdc1 $f12,80($fp) + sdc1 $f13,88($fp) + sdc1 $f14,96($fp) + sdc1 $f15,104($fp) + sdc1 $f16,112($fp) + sdc1 $f17,120($fp) + sdc1 $f18,128($fp) + sdc1 $f19,136($fp) + swc1 $f12,44($fp) + swc1 $f13,48($fp) + swc1 $f14,52($fp) + swc1 $f15,56($fp) + swc1 $f16,60($fp) + swc1 $f17,64($fp) + swc1 $f18,68($fp) + swc1 $f19,72($fp) + move $4,$fp + sw $0,0($fp) + sw $12,24($fp) + sw $0,28($fp) + sw $0,32($fp) + jalr $25 + sw $0,40($fp) + + lw $12,32($fp) + beq $12,$0,.L1 + li $13,1 # 0x1 + + beq $12,$13,.L43 + li $13,2 # 0x2 + + beq $12,$13,.L43 + li $13,3 # 0x3 + + beq $12,$13,.L49 + li $13,4 # 0x4 + + beq $12,$13,.L50 + li $13,5 # 0x5 + + beq $12,$13,.L51 + li $13,6 # 0x6 + + beq $12,$13,.L46 + li $13,7 # 0x7 + + beq $12,$13,.L45 + li $13,8 # 0x8 + + beq $12,$13,.L46 + li $13,9 # 0x9 + + beq $12,$13,.L45 + li $13,10 # 0xa + + beq $12,$13,.L47 + li $13,11 # 0xb + + beq $12,$13,.L47 + li $13,12 # 0xc + + beq $12,$13,.L52 + li $13,13 # 0xd + + beq $12,$13,.L53 + li $13,14 # 0xe + + beq $12,$13,.L46 + li $13,15 # 0xf + + bnel $12,$13,.L59 + move $sp,$fp + + lw $12,0($fp) + andi $13,$12,0x400 + beq $13,$0,.L1 + andi $13,$12,0x4 + + beq $13,$0,.L19 + lw $24,36($fp) + + lw $12,36($fp) + li $13,1 # 0x1 + beq $12,$13,.L54 + li $13,2 # 0x2 + + beq $12,$13,.L55 + li $13,4 # 0x4 + + beq $12,$13,.L56 + li $13,8 # 0x8 + + bnel $12,$13,.L59 + move $sp,$fp + + lw $12,28($fp) + ld $2,0($12) +.L1: + move $sp,$fp +.L59: + ld $31,184($sp) + ld $fp,176($sp) + ld $28,168($sp) + ld $18,160($sp) + ld $17,152($sp) + ld $16,144($sp) + j $31 + addiu $sp,$sp,256 + + .align 3 +.L43: + move $sp,$fp + ld $31,184($sp) + ld $28,168($sp) + ld $18,160($sp) + ld $17,152($sp) + ld $16,144($sp) + lb $2,8($fp) + ld $fp,176($sp) + j $31 + addiu $sp,$sp,256 + + .align 3 +.L46: + b .L1 + lw $2,8($fp) + + .align 3 +.L49: + b .L1 + lbu $2,8($fp) + + .align 3 +.L50: + b .L1 + lh $2,8($fp) + + .align 3 +.L45: + b .L1 + lwu $2,8($fp) + + .align 3 +.L51: + b .L1 + lhu $2,8($fp) + + .align 3 +.L52: + b .L1 + lwc1 $f0,8($fp) + + .align 3 +.L47: + b .L1 + ld $2,8($fp) + +.L53: + b .L1 + ldc1 $f0,8($fp) + +.L19: + addiu $13,$24,-1 + sltu $13,$13,16 + beql $13,$0,.L60 + andi $13,$12,0x800 + + lw $13,28($fp) + li $15,-8 # 0xfffffffffffffff8 + sltu $25,$24,9 + andi $14,$13,0x7 + and $15,$13,$15 + beq $25,$0,.L24 + addu $13,$24,$14 + + sltu $25,$13,9 + beq $25,$0,.L25 + sll $13,$13,3 + + ld $25,0($15) + addiu $13,$13,-1 + li $15,2 # 0x2 + dsll $13,$15,$13 + daddiu $13,$13,-1 + and $13,$13,$25 + sll $14,$14,3 + dsra $2,$13,$14 +.L23: + andi $13,$12,0x800 +.L60: + beql $13,$0,.L27 + andi $12,$12,0x1000 + + li $13,4 # 0x4 + beq $24,$13,.L57 + li $13,8 # 0x8 + + beql $24,$13,.L58 + lw $13,28($fp) + + andi $12,$12,0x1000 + beql $12,$0,.L59 + move $sp,$fp + + li $12,16 # 0x10 +.L61: + bnel $24,$12,.L59 + move $sp,$fp + + lw $12,28($fp) + ldc1 $f0,0($12) + b .L1 + ldc1 $f2,8($12) + +.L27: + beq $12,$0,.L1 + li $12,8 # 0x8 + + bne $24,$12,.L61 + li $12,16 # 0x10 + + lw $13,28($fp) + b .L1 + ldc1 $f0,0($13) + +.L24: + sltu $25,$13,17 + beq $25,$0,.L26 + sll $13,$13,3 + + ld $17,8($15) + li $25,2 # 0x2 + addiu $13,$13,-65 + dsll $13,$25,$13 + subu $25,$0,$14 + sll $25,$25,2 + ld $16,0($15) + daddiu $13,$13,-1 + addiu $15,$25,32 + and $13,$13,$17 + sll $14,$14,3 + dsll $25,$13,$15 + dsra $16,$16,$14 + dsll $15,$25,$15 + or $2,$16,$15 + b .L23 + dsra $3,$13,$14 + +.L54: + lw $12,28($fp) + b .L1 + lbu $2,0($12) + +.L55: + lw $12,28($fp) + b .L1 + lhu $2,0($12) + +.L26: + ld $16,8($15) + ld $17,0($15) + addiu $13,$13,-129 + ld $18,16($15) + li $15,2 # 0x2 + subu $25,$0,$14 + dsll $15,$15,$13 + daddiu $15,$15,-1 + sll $25,$25,3 + sll $14,$14,3 + addiu $25,$25,64 + and $13,$15,$18 + dsll $13,$13,$25 + dsra $15,$17,$14 + dsll $17,$16,$25 + dsra $14,$16,$14 + or $2,$15,$17 + b .L23 + or $3,$13,$14 + +.L57: + lw $12,28($fp) + b .L1 + lwc1 $f0,0($12) + +.L56: + lw $12,28($fp) + b .L1 + lwu $2,0($12) + +.L25: + li $25,2 # 0x2 + addiu $13,$13,-65 + ld $17,8($15) + dsll $13,$25,$13 + ld $25,0($15) + daddiu $13,$13,-1 + subu $16,$0,$14 + and $15,$13,$17 + sll $14,$14,3 + sll $13,$16,3 + dsll $13,$15,$13 + dsra $14,$25,$14 + b .L23 + or $2,$13,$14 + +.L58: + andi $12,$12,0x1000 + lwc1 $f0,0($13) + beq $12,$0,.L1 + lwc1 $f2,4($13) + + b .L1 + ldc1 $f0,0($13) + + .set macro + .set reorder + .end vacall_receiver + .size vacall_receiver, .-vacall_receiver + .ident "GCC: (GNU) 5.4.0" diff --git a/vacall/vacall-mipsn32el-macro.S b/vacall/vacall-mipsn32el-macro.S new file mode 100644 index 0000000..0aa74c5 --- /dev/null +++ b/vacall/vacall-mipsn32el-macro.S @@ -0,0 +1,355 @@ +#include "asm-mips.h" + .file 1 "vacall-mipsn32.c" + .text + .align 2 + .align 3 + .globl vacall_receiver + .set nomips16 + .set nomicromips + .ent vacall_receiver + DECLARE_FUNCTION(vacall_receiver) +vacall_receiver: + .frame $fp,256,$31 + .mask 0xd0070000,-72 + .fmask 0x00000000,0 + .set noreorder + .set nomacro + addiu $sp,$sp,-256 + sd $28,168($sp) + lui $28,%hi(__gnu_local_gp) + addiu $28,$28,%lo(__gnu_local_gp) + lw $12,%got_disp(vacall_function)($28) + sd $fp,176($sp) + move $fp,$sp + lw $25,0($12) + addiu $12,$fp,192 + sd $31,184($sp) + sd $18,160($sp) + sd $17,152($sp) + sd $16,144($sp) + sd $4,192($fp) + sd $5,200($fp) + sd $6,208($fp) + sd $7,216($fp) + sd $8,224($fp) + sd $9,232($fp) + sd $10,240($fp) + sd $11,248($fp) + sdc1 $f12,80($fp) + sdc1 $f13,88($fp) + sdc1 $f14,96($fp) + sdc1 $f15,104($fp) + sdc1 $f16,112($fp) + sdc1 $f17,120($fp) + sdc1 $f18,128($fp) + sdc1 $f19,136($fp) + swc1 $f12,44($fp) + swc1 $f13,48($fp) + swc1 $f14,52($fp) + swc1 $f15,56($fp) + swc1 $f16,60($fp) + swc1 $f17,64($fp) + swc1 $f18,68($fp) + swc1 $f19,72($fp) + move $4,$fp + sw $0,0($fp) + sw $12,24($fp) + sw $0,28($fp) + sw $0,32($fp) + jalr $25 + sw $0,40($fp) + + lw $12,32($fp) + beq $12,$0,.L1 + li $13,1 + + beq $12,$13,.L43 + li $13,2 + + beq $12,$13,.L43 + li $13,3 + + beq $12,$13,.L49 + li $13,4 + + beq $12,$13,.L50 + li $13,5 + + beq $12,$13,.L51 + li $13,6 + + beq $12,$13,.L46 + li $13,7 + + beq $12,$13,.L45 + li $13,8 + + beq $12,$13,.L46 + li $13,9 + + beq $12,$13,.L45 + li $13,10 + + beq $12,$13,.L47 + li $13,11 + + beq $12,$13,.L47 + li $13,12 + + beq $12,$13,.L52 + li $13,13 + + beq $12,$13,.L53 + li $13,14 + + beq $12,$13,.L46 + li $13,15 + + bnel $12,$13,.L59 + move $sp,$fp + + lw $12,0($fp) + andi $13,$12,0x400 + beq $13,$0,.L1 + andi $13,$12,0x4 + + beq $13,$0,.L19 + lw $24,36($fp) + + lw $12,36($fp) + li $13,1 + beq $12,$13,.L54 + li $13,2 + + beq $12,$13,.L55 + li $13,4 + + beq $12,$13,.L56 + li $13,8 + + bnel $12,$13,.L59 + move $sp,$fp + + lw $12,28($fp) + ld $2,0($12) +.L1: + move $sp,$fp +.L59: + ld $31,184($sp) + ld $fp,176($sp) + ld $28,168($sp) + ld $18,160($sp) + ld $17,152($sp) + ld $16,144($sp) + j $31 + addiu $sp,$sp,256 + + .align 3 +.L43: + move $sp,$fp + ld $31,184($sp) + ld $28,168($sp) + ld $18,160($sp) + ld $17,152($sp) + ld $16,144($sp) + lb $2,8($fp) + ld $fp,176($sp) + j $31 + addiu $sp,$sp,256 + + .align 3 +.L46: + b .L1 + lw $2,8($fp) + + .align 3 +.L49: + b .L1 + lbu $2,8($fp) + + .align 3 +.L50: + b .L1 + lh $2,8($fp) + + .align 3 +.L45: + b .L1 + lwu $2,8($fp) + + .align 3 +.L51: + b .L1 + lhu $2,8($fp) + + .align 3 +.L52: + b .L1 + lwc1 $f0,8($fp) + + .align 3 +.L47: + b .L1 + ld $2,8($fp) + +.L53: + b .L1 + ldc1 $f0,8($fp) + +.L19: + addiu $13,$24,-1 + sltu $13,$13,16 + beql $13,$0,.L60 + andi $13,$12,0x800 + + lw $13,28($fp) + li $15,-8 + sltu $25,$24,9 + andi $14,$13,0x7 + and $15,$13,$15 + beq $25,$0,.L24 + addu $13,$24,$14 + + sltu $25,$13,9 + beq $25,$0,.L25 + sll $13,$13,3 + + ld $25,0($15) + addiu $13,$13,-1 + li $15,2 + dsll $13,$15,$13 + daddiu $13,$13,-1 + and $13,$13,$25 + sll $14,$14,3 + dsra $2,$13,$14 +.L23: + andi $13,$12,0x800 +.L60: + beql $13,$0,.L27 + andi $12,$12,0x1000 + + li $13,4 + beq $24,$13,.L57 + li $13,8 + + beql $24,$13,.L58 + lw $13,28($fp) + + andi $12,$12,0x1000 + beql $12,$0,.L59 + move $sp,$fp + + li $12,16 +.L61: + bnel $24,$12,.L59 + move $sp,$fp + + lw $12,28($fp) + ldc1 $f0,0($12) + b .L1 + ldc1 $f2,8($12) + +.L27: + beq $12,$0,.L1 + li $12,8 + + bne $24,$12,.L61 + li $12,16 + + lw $13,28($fp) + b .L1 + ldc1 $f0,0($13) + +.L24: + sltu $25,$13,17 + beq $25,$0,.L26 + sll $13,$13,3 + + ld $17,8($15) + li $25,2 + addiu $13,$13,-65 + dsll $13,$25,$13 + subu $25,$0,$14 + sll $25,$25,2 + ld $16,0($15) + daddiu $13,$13,-1 + addiu $15,$25,32 + and $13,$13,$17 + sll $14,$14,3 + dsll $25,$13,$15 + dsra $16,$16,$14 + dsll $15,$25,$15 + or $2,$16,$15 + b .L23 + dsra $3,$13,$14 + +.L54: + lw $12,28($fp) + b .L1 + lbu $2,0($12) + +.L55: + lw $12,28($fp) + b .L1 + lhu $2,0($12) + +.L26: + ld $16,8($15) + ld $17,0($15) + addiu $13,$13,-129 + ld $18,16($15) + li $15,2 + subu $25,$0,$14 + dsll $15,$15,$13 + daddiu $15,$15,-1 + sll $25,$25,3 + sll $14,$14,3 + addiu $25,$25,64 + and $13,$15,$18 + dsll $13,$13,$25 + dsra $15,$17,$14 + dsll $17,$16,$25 + dsra $14,$16,$14 + or $2,$15,$17 + b .L23 + or $3,$13,$14 + +.L57: + lw $12,28($fp) + b .L1 + lwc1 $f0,0($12) + +.L56: + lw $12,28($fp) + b .L1 + lwu $2,0($12) + +.L25: + li $25,2 + addiu $13,$13,-65 + ld $17,8($15) + dsll $13,$25,$13 + ld $25,0($15) + daddiu $13,$13,-1 + subu $16,$0,$14 + and $15,$13,$17 + sll $14,$14,3 + sll $13,$16,3 + dsll $13,$15,$13 + dsra $14,$25,$14 + b .L23 + or $2,$13,$14 + +.L58: + andi $12,$12,0x1000 + lwc1 $f0,0($13) + beq $12,$0,.L1 + lwc1 $f2,4($13) + + b .L1 + ldc1 $f0,0($13) + + .set macro + .set reorder + .end vacall_receiver + .size vacall_receiver, .-vacall_receiver diff --git a/vacall/vacall-powerpc-aix.s b/vacall/vacall-powerpc-aix.s new file mode 100644 index 0000000..b4e3505 --- /dev/null +++ b/vacall/vacall-powerpc-aix.s @@ -0,0 +1,171 @@ + .file "vacall-powerpc.c" + .toc + .csect .text[PR] + .toc +LC..0: + .tc vacall_function[TC],vacall_function[RW] + .csect .text[PR] + .align 2 + .globl vacall_receiver + .globl .vacall_receiver + .csect vacall_receiver[DS] +vacall_receiver: + .long .vacall_receiver, TOC[tc0], 0 + .csect .text[PR] +.vacall_receiver: + .extern __mulh + .extern __mull + .extern __divss + .extern __divus + .extern __quoss + .extern __quous + mflr 0 + stw 0,8(1) + stw 29,-12(1) + stw 31,-4(1) + lwz 11,LC..0(2) + stwu 1,-216(1) + mr 31,1 + lwz 29,0(11) + addi 0,31,240 + li 11,0 + stw 9,264(31) + stw 3,240(31) + stw 5,248(31) + stw 6,252(31) + stw 7,256(31) + stw 8,260(31) + stw 10,268(31) + stw 11,88(31) + stw 4,244(31) + stfd 1,92(31) + stfd 2,100(31) + stfd 3,108(31) + stfd 4,116(31) + stfd 5,124(31) + stfd 6,132(31) + stfd 7,140(31) + stfd 8,148(31) + stfd 9,156(31) + stfd 10,164(31) + stfd 11,172(31) + stfd 12,180(31) + stfd 13,188(31) + stw 11,56(31) + stw 11,76(31) + stw 11,80(31) + stw 0,72(31) + lwz 0,0(29) + addi 3,31,56 + stw 2,20(1) + mtctr 0 + lwz 11,8(29) + lwz 2,4(29) + bctrl + lwz 2,20(1) + lwz 9,80(31) + cmpwi 0,9,0 + beq- 0,L..1 + cmpwi 0,9,1 + beq- 0,L..41 + cmpwi 0,9,2 + beq- 0,L..42 + cmpwi 0,9,3 + beq- 0,L..41 + cmpwi 0,9,4 + beq- 0,L..43 + cmpwi 0,9,5 + beq- 0,L..44 + cmpwi 0,9,6 + beq- 0,L..40 + cmpwi 0,9,7 + beq- 0,L..40 + cmpwi 0,9,8 + beq- 0,L..40 + cmpwi 0,9,9 + beq- 0,L..40 + addi 0,9,-10 + cmplwi 0,0,1 + bgt- 0,L..22 + lwz 3,64(31) + lwz 4,68(31) +L..1: + lwz 1,0(1) + lwz 0,8(1) + lwz 29,-12(1) + mtlr 0 + lwz 31,-4(1) + blr +L..22: + cmpwi 0,9,12 + beq- 0,L..45 + cmpwi 0,9,13 + beq- 0,L..46 + cmpwi 0,9,14 + beq- 0,L..40 + cmpwi 0,9,15 + bne+ 0,L..1 + lwz 0,56(31) + andi. 9,0,1024 + beq- 0,L..1 + lwz 0,84(31) + cmpwi 0,0,1 + beq- 0,L..47 + cmpwi 0,0,2 + beq- 0,L..48 + cmpwi 0,0,4 + beq- 0,L..49 + cmpwi 0,0,8 + bne+ 0,L..1 + lwz 9,76(31) + lwz 4,4(9) +L..39: + lwz 3,0(9) + b L..1 +L..49: + lwz 9,76(31) + b L..39 +L..48: + lwz 9,76(31) + lhz 3,0(9) + b L..1 +L..47: + lwz 9,76(31) + lbz 3,0(9) + b L..1 +L..40: + lwz 3,64(31) + b L..1 +L..46: + lfd 1,64(31) + b L..1 +L..45: + lfs 1,64(31) + b L..1 +L..44: + lhz 3,64(31) + b L..1 +L..43: + lha 3,64(31) + b L..1 +L..41: + lbz 3,64(31) + b L..1 +L..42: + lbz 0,64(31) + slwi 0,0,24 + srawi 3,0,24 + b L..1 +LT..vacall_receiver: + .long 0 + .byte 0,0,32,97,128,3,8,0 + .long 0 + .long LT..vacall_receiver-.vacall_receiver + .short 15 + .byte "vacall_receiver" + .byte 31 + .align 2 +_section_.text: + .csect .data[RW],3 + .long _section_.text + .extern vacall_function[RW] diff --git a/vacall/vacall-powerpc-linux-macro.S b/vacall/vacall-powerpc-linux-macro.S new file mode 100644 index 0000000..3d56e0f --- /dev/null +++ b/vacall/vacall-powerpc-linux-macro.S @@ -0,0 +1,143 @@ + .file "vacall-powerpc.c" + .section ".text" + .align 2 + .globl vacall_receiver + .type vacall_receiver, @function +vacall_receiver: + .extern __mulh + .extern __mull + .extern __divss + .extern __divus + .extern __quoss + .extern __quous + stwu 1,-176(1) + mflr 0 + li 11,0 + stw 0,180(1) + stw 31,172(1) + mr 31,1 + stw 9,76(31) + addi 0,31,184 + lis 9,vacall_function@ha + stw 3,52(31) + lwz 9,vacall_function@l(9) + addi 3,31,16 + stw 5,60(31) + mtctr 9 + stw 6,64(31) + stw 7,68(31) + stw 8,72(31) + stw 10,80(31) + stw 0,32(31) + stw 11,84(31) + stw 4,56(31) + stfd 1,88(31) + stfd 2,96(31) + stfd 3,104(31) + stfd 4,112(31) + stfd 5,120(31) + stfd 6,128(31) + stfd 7,136(31) + stfd 8,144(31) + stw 11,16(31) + stw 11,48(31) + stw 11,36(31) + stw 11,40(31) + bctrl + lwz 9,40(31) + cmpwi 0,9,0 + beq- 0,.L1 + cmpwi 0,9,1 + beq- 0,.L41 + cmpwi 0,9,2 + beq- 0,.L42 + cmpwi 0,9,3 + beq- 0,.L41 + cmpwi 0,9,4 + beq- 0,.L43 + cmpwi 0,9,5 + beq- 0,.L44 + cmpwi 0,9,6 + beq- 0,.L40 + cmpwi 0,9,7 + beq- 0,.L40 + cmpwi 0,9,8 + beq- 0,.L40 + cmpwi 0,9,9 + beq- 0,.L40 + addi 0,9,-10 + cmplwi 0,0,1 + bgt- 0,.L22 + lwz 3,24(31) + lwz 4,28(31) +.L1: + lwz 11,0(1) + lwz 0,4(11) + lwz 31,-4(11) + mtlr 0 + mr 1,11 + blr +.L22: + cmpwi 0,9,12 + beq- 0,.L45 + cmpwi 0,9,13 + beq- 0,.L46 + cmpwi 0,9,14 + beq- 0,.L40 + cmpwi 0,9,15 + bne+ 0,.L1 + lwz 0,16(31) + andi. 9,0,1024 + beq- 0,.L1 + lwz 0,44(31) + cmpwi 0,0,1 + beq- 0,.L47 + cmpwi 0,0,2 + beq- 0,.L48 + cmpwi 0,0,4 + beq- 0,.L49 + cmpwi 0,0,8 + bne+ 0,.L1 + lwz 9,36(31) + lwz 4,4(9) +.L39: + lwz 3,0(9) + b .L1 +.L49: + lwz 9,36(31) + b .L39 +.L48: + lwz 9,36(31) + lhz 3,0(9) + b .L1 +.L47: + lwz 9,36(31) + lbz 3,0(9) + b .L1 +.L40: + lwz 3,24(31) + b .L1 +.L46: + lfd 1,24(31) + b .L1 +.L45: + lfs 1,24(31) + b .L1 +.L44: + lhz 3,24(31) + b .L1 +.L43: + lha 3,24(31) + b .L1 +.L41: + lbz 3,24(31) + b .L1 +.L42: + lbz 0,24(31) + slwi 0,0,24 + srawi 3,0,24 + b .L1 + .size vacall_receiver, .-vacall_receiver +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/vacall/vacall-powerpc-linux.s b/vacall/vacall-powerpc-linux.s new file mode 100644 index 0000000..b40c8aa --- /dev/null +++ b/vacall/vacall-powerpc-linux.s @@ -0,0 +1,142 @@ + .file "vacall-powerpc.c" + .section ".text" + .align 2 + .globl vacall_receiver + .type vacall_receiver, @function +vacall_receiver: + .extern __mulh + .extern __mull + .extern __divss + .extern __divus + .extern __quoss + .extern __quous + stwu 1,-176(1) + mflr 0 + li 11,0 + stw 0,180(1) + stw 31,172(1) + mr 31,1 + stw 9,76(31) + addi 0,31,184 + lis 9,vacall_function@ha + stw 3,52(31) + lwz 9,vacall_function@l(9) + addi 3,31,16 + stw 5,60(31) + mtctr 9 + stw 6,64(31) + stw 7,68(31) + stw 8,72(31) + stw 10,80(31) + stw 0,32(31) + stw 11,84(31) + stw 4,56(31) + stfd 1,88(31) + stfd 2,96(31) + stfd 3,104(31) + stfd 4,112(31) + stfd 5,120(31) + stfd 6,128(31) + stfd 7,136(31) + stfd 8,144(31) + stw 11,16(31) + stw 11,48(31) + stw 11,36(31) + stw 11,40(31) + bctrl + lwz 9,40(31) + cmpwi 0,9,0 + beq- 0,.L1 + cmpwi 0,9,1 + beq- 0,.L41 + cmpwi 0,9,2 + beq- 0,.L42 + cmpwi 0,9,3 + beq- 0,.L41 + cmpwi 0,9,4 + beq- 0,.L43 + cmpwi 0,9,5 + beq- 0,.L44 + cmpwi 0,9,6 + beq- 0,.L40 + cmpwi 0,9,7 + beq- 0,.L40 + cmpwi 0,9,8 + beq- 0,.L40 + cmpwi 0,9,9 + beq- 0,.L40 + addi 0,9,-10 + cmplwi 0,0,1 + bgt- 0,.L22 + lwz 3,24(31) + lwz 4,28(31) +.L1: + lwz 11,0(1) + lwz 0,4(11) + lwz 31,-4(11) + mtlr 0 + mr 1,11 + blr +.L22: + cmpwi 0,9,12 + beq- 0,.L45 + cmpwi 0,9,13 + beq- 0,.L46 + cmpwi 0,9,14 + beq- 0,.L40 + cmpwi 0,9,15 + bne+ 0,.L1 + lwz 0,16(31) + andi. 9,0,1024 + beq- 0,.L1 + lwz 0,44(31) + cmpwi 0,0,1 + beq- 0,.L47 + cmpwi 0,0,2 + beq- 0,.L48 + cmpwi 0,0,4 + beq- 0,.L49 + cmpwi 0,0,8 + bne+ 0,.L1 + lwz 9,36(31) + lwz 4,4(9) +.L39: + lwz 3,0(9) + b .L1 +.L49: + lwz 9,36(31) + b .L39 +.L48: + lwz 9,36(31) + lhz 3,0(9) + b .L1 +.L47: + lwz 9,36(31) + lbz 3,0(9) + b .L1 +.L40: + lwz 3,24(31) + b .L1 +.L46: + lfd 1,24(31) + b .L1 +.L45: + lfs 1,24(31) + b .L1 +.L44: + lhz 3,24(31) + b .L1 +.L43: + lha 3,24(31) + b .L1 +.L41: + lbz 3,24(31) + b .L1 +.L42: + lbz 0,24(31) + slwi 0,0,24 + srawi 3,0,24 + b .L1 + .size vacall_receiver, .-vacall_receiver + .section .note.GNU-stack,"",@progbits + .ident "GCC: (GNU) 3.3.6" diff --git a/vacall/vacall-powerpc-macos.s b/vacall/vacall-powerpc-macos.s new file mode 100644 index 0000000..a508e75 --- /dev/null +++ b/vacall/vacall-powerpc-macos.s @@ -0,0 +1,142 @@ +.text + .align 2 + .globl _vacall_receiver +_vacall_receiver: + mflr r0 + stmw r29,-12(r1) + bcl 20,31,L1$pb +L1$pb: + stw r0,8(r1) + mflr r31 + stwu r1,-224(r1) + addis r29,r31,ha16(L_vacall_function$non_lazy_ptr-L1$pb) + li r11,0 + lwz r29,lo16(L_vacall_function$non_lazy_ptr-L1$pb)(r29) + mr r30,r1 + addi r0,r30,248 + stw r3,248(r30) + lwz r29,0(r29) + addi r3,r30,64 + stw r9,272(r30) + stw r5,256(r30) + mtctr r29 + stw r6,260(r30) + stw r7,264(r30) + stw r8,268(r30) + stw r10,276(r30) + stw r0,80(r30) + stw r11,96(r30) + stw r4,252(r30) + stfd f1,100(r30) + stfd f2,108(r30) + stfd f3,116(r30) + stfd f4,124(r30) + stfd f5,132(r30) + stfd f6,140(r30) + stfd f7,148(r30) + stfd f8,156(r30) + stfd f9,164(r30) + stfd f10,172(r30) + stfd f11,180(r30) + stfd f12,188(r30) + stfd f13,196(r30) + stw r11,64(r30) + stw r11,84(r30) + stw r11,88(r30) + bctrl + lwz r9,88(r30) + cmpwi cr0,r9,0 + beq- cr0,L1 + cmpwi cr0,r9,1 + beq- cr0,L41 + cmpwi cr0,r9,2 + beq- cr0,L41 + cmpwi cr0,r9,3 + beq- cr0,L42 + cmpwi cr0,r9,4 + beq- cr0,L43 + cmpwi cr0,r9,5 + beq- cr0,L44 + cmpwi cr0,r9,6 + beq- cr0,L40 + cmpwi cr0,r9,7 + beq- cr0,L40 + cmpwi cr0,r9,8 + beq- cr0,L40 + cmpwi cr0,r9,9 + beq- cr0,L40 + addi r0,r9,-10 + cmplwi cr0,r0,1 + bgt- cr0,L22 + lwz r3,72(r30) + lwz r4,76(r30) +L1: + lwz r1,0(r1) + lwz r0,8(r1) + lmw r29,-12(r1) + mtlr r0 + blr +L22: + cmpwi cr0,r9,12 + beq- cr0,L45 + cmpwi cr0,r9,13 + beq- cr0,L46 + cmpwi cr0,r9,14 + beq- cr0,L40 + cmpwi cr0,r9,15 + bne+ cr0,L1 + lwz r0,64(r30) + andi. r9,r0,1024 + beq- cr0,L1 + lwz r0,92(r30) + cmpwi cr0,r0,1 + beq- cr0,L47 + cmpwi cr0,r0,2 + beq- cr0,L48 + cmpwi cr0,r0,4 + beq- cr0,L49 + cmpwi cr0,r0,8 + bne+ cr0,L1 + lwz r9,84(r30) + lwz r4,4(r9) +L39: + lwz r3,0(r9) + b L1 +L49: + lwz r9,84(r30) + b L39 +L48: + lwz r9,84(r30) + lhz r3,0(r9) + b L1 +L47: + lwz r9,84(r30) + lbz r3,0(r9) + b L1 +L40: + lwz r3,72(r30) + b L1 +L46: + lfd f1,72(r30) + b L1 +L45: + lfs f1,72(r30) + b L1 +L44: + lhz r3,72(r30) + b L1 +L43: + lha r3,72(r30) + b L1 +L42: + lbz r3,72(r30) + b L1 +L41: + lbz r0,72(r30) + extsb r3,r0 + b L1 +.data +.non_lazy_symbol_pointer +L_vacall_function$non_lazy_ptr: + .indirect_symbol _vacall_function + .long 0 diff --git a/vacall/vacall-powerpc-sysv4-macro.S b/vacall/vacall-powerpc-sysv4-macro.S new file mode 100644 index 0000000..3d56e0f --- /dev/null +++ b/vacall/vacall-powerpc-sysv4-macro.S @@ -0,0 +1,143 @@ + .file "vacall-powerpc.c" + .section ".text" + .align 2 + .globl vacall_receiver + .type vacall_receiver, @function +vacall_receiver: + .extern __mulh + .extern __mull + .extern __divss + .extern __divus + .extern __quoss + .extern __quous + stwu 1,-176(1) + mflr 0 + li 11,0 + stw 0,180(1) + stw 31,172(1) + mr 31,1 + stw 9,76(31) + addi 0,31,184 + lis 9,vacall_function@ha + stw 3,52(31) + lwz 9,vacall_function@l(9) + addi 3,31,16 + stw 5,60(31) + mtctr 9 + stw 6,64(31) + stw 7,68(31) + stw 8,72(31) + stw 10,80(31) + stw 0,32(31) + stw 11,84(31) + stw 4,56(31) + stfd 1,88(31) + stfd 2,96(31) + stfd 3,104(31) + stfd 4,112(31) + stfd 5,120(31) + stfd 6,128(31) + stfd 7,136(31) + stfd 8,144(31) + stw 11,16(31) + stw 11,48(31) + stw 11,36(31) + stw 11,40(31) + bctrl + lwz 9,40(31) + cmpwi 0,9,0 + beq- 0,.L1 + cmpwi 0,9,1 + beq- 0,.L41 + cmpwi 0,9,2 + beq- 0,.L42 + cmpwi 0,9,3 + beq- 0,.L41 + cmpwi 0,9,4 + beq- 0,.L43 + cmpwi 0,9,5 + beq- 0,.L44 + cmpwi 0,9,6 + beq- 0,.L40 + cmpwi 0,9,7 + beq- 0,.L40 + cmpwi 0,9,8 + beq- 0,.L40 + cmpwi 0,9,9 + beq- 0,.L40 + addi 0,9,-10 + cmplwi 0,0,1 + bgt- 0,.L22 + lwz 3,24(31) + lwz 4,28(31) +.L1: + lwz 11,0(1) + lwz 0,4(11) + lwz 31,-4(11) + mtlr 0 + mr 1,11 + blr +.L22: + cmpwi 0,9,12 + beq- 0,.L45 + cmpwi 0,9,13 + beq- 0,.L46 + cmpwi 0,9,14 + beq- 0,.L40 + cmpwi 0,9,15 + bne+ 0,.L1 + lwz 0,16(31) + andi. 9,0,1024 + beq- 0,.L1 + lwz 0,44(31) + cmpwi 0,0,1 + beq- 0,.L47 + cmpwi 0,0,2 + beq- 0,.L48 + cmpwi 0,0,4 + beq- 0,.L49 + cmpwi 0,0,8 + bne+ 0,.L1 + lwz 9,36(31) + lwz 4,4(9) +.L39: + lwz 3,0(9) + b .L1 +.L49: + lwz 9,36(31) + b .L39 +.L48: + lwz 9,36(31) + lhz 3,0(9) + b .L1 +.L47: + lwz 9,36(31) + lbz 3,0(9) + b .L1 +.L40: + lwz 3,24(31) + b .L1 +.L46: + lfd 1,24(31) + b .L1 +.L45: + lfs 1,24(31) + b .L1 +.L44: + lhz 3,24(31) + b .L1 +.L43: + lha 3,24(31) + b .L1 +.L41: + lbz 3,24(31) + b .L1 +.L42: + lbz 0,24(31) + slwi 0,0,24 + srawi 3,0,24 + b .L1 + .size vacall_receiver, .-vacall_receiver +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/vacall/vacall-powerpc.c b/vacall/vacall-powerpc.c new file mode 100644 index 0000000..ea3e208 --- /dev/null +++ b/vacall/vacall-powerpc.c @@ -0,0 +1,181 @@ +/* vacall function for powerpc CPU */ + +/* + * Copyright 1995-2017 Bruno Haible + * Copyright 2000 Adam Fedor + * Copyright 2004 Paul Guyot + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "vacall-internal.h" + +#ifdef REENTRANT +#define vacall_receiver callback_receiver +register struct { void (*vacall_function) (void*,va_alist); void* arg; } + * env __asm__("r11"); +#endif +register double farg1 __asm__("fr1"); +register double farg2 __asm__("fr2"); +register double farg3 __asm__("fr3"); +register double farg4 __asm__("fr4"); +register double farg5 __asm__("fr5"); +register double farg6 __asm__("fr6"); +register double farg7 __asm__("fr7"); +register double farg8 __asm__("fr8"); +register double farg9 __asm__("fr9"); +register double farg10 __asm__("fr10"); +register double farg11 __asm__("fr11"); +register double farg12 __asm__("fr12"); +register double farg13 __asm__("fr13"); +register __vaword iret __asm__("r3"); +register __vaword iret2 __asm__("r4"); +register float fret __asm__("fr1"); +register double dret __asm__("fr1"); + +#ifdef REENTRANT +static +#endif +void /* the return type is variable, not void! */ +vacall_receiver (__vaword word1, __vaword word2, __vaword word3, __vaword word4, + __vaword word5, __vaword word6, __vaword word7, __vaword word8, + __vaword firstword) +{ + __va_alist list; +#if defined(_AIX) || (defined(__MACH__) && defined(__APPLE__)) /* __powerpc_aix__ */ + /* gcc-2.6.3 source says: When a parameter is passed in a register, + * stack space is still allocated for it. + */ + /* Move the arguments passed in registers to their stack locations. */ + (&firstword)[-8] = word1; + (&firstword)[-7] = word2; + (&firstword)[-6] = word3; + (&firstword)[-5] = word4; + (&firstword)[-4] = word5; + (&firstword)[-3] = word6; + (&firstword)[-2] = word7; + (&firstword)[-1] = word8; +#else /* __powerpc_sysv4__ */ + /* Move the arguments passed in registers to temp storage, since + moving them to the stack would mess up the stack */ + list.iarg[0] = word1; + list.iarg[1] = word2; + list.iarg[2] = word3; + list.iarg[3] = word4; + list.iarg[4] = word5; + list.iarg[5] = word6; + list.iarg[6] = word7; + list.iarg[7] = word8; +#endif + list.farg[0] = farg1; + list.farg[1] = farg2; + list.farg[2] = farg3; + list.farg[3] = farg4; + list.farg[4] = farg5; + list.farg[5] = farg6; + list.farg[6] = farg7; + list.farg[7] = farg8; +#if defined(_AIX) || (defined(__MACH__) && defined(__APPLE__)) /* __powerpc_aix__ */ + list.farg[8] = farg9; + list.farg[9] = farg10; + list.farg[10] = farg11; + list.farg[11] = farg12; + list.farg[12] = farg13; +#endif + /* Prepare the va_alist. */ + list.flags = 0; +#if defined(_AIX) || (defined(__MACH__) && defined(__APPLE__)) /* __powerpc_aix__ */ + list.aptr = (long)(&firstword - 8); +#else /* __powerpc_sysv4__ */ + list.aptr = (long)(&firstword); + list.ianum = 0; +#endif + list.raddr = (void*)0; + list.rtype = __VAvoid; + list.fanum = 0; + /* Call vacall_function. The macros do all the rest. */ +#ifndef REENTRANT + (*vacall_function) (&list); +#else /* REENTRANT */ + (*env->vacall_function) (env->arg,&list); +#endif + /* Put return value into proper register. */ + if (list.rtype == __VAvoid) { + } else + if (list.rtype == __VAchar) { + iret = list.tmp._char; + } else + if (list.rtype == __VAschar) { + iret = list.tmp._schar; + } else + if (list.rtype == __VAuchar) { + iret = list.tmp._uchar; + } else + if (list.rtype == __VAshort) { + iret = list.tmp._short; + } else + if (list.rtype == __VAushort) { + iret = list.tmp._ushort; + } else + if (list.rtype == __VAint) { + iret = list.tmp._int; + } else + if (list.rtype == __VAuint) { + iret = list.tmp._uint; + } else + if (list.rtype == __VAlong) { + iret = list.tmp._long; + } else + if (list.rtype == __VAulong) { + iret = list.tmp._ulong; + } else + if (list.rtype == __VAlonglong || list.rtype == __VAulonglong) { + iret = ((__vaword *) &list.tmp._longlong)[0]; + iret2 = ((__vaword *) &list.tmp._longlong)[1]; + } else + if (list.rtype == __VAfloat) { + fret = list.tmp._float; + } else + if (list.rtype == __VAdouble) { + dret = list.tmp._double; + } else + if (list.rtype == __VAvoidp) { + iret = (long)list.tmp._ptr; + } else + if (list.rtype == __VAstruct) { + if (list.flags & __VA_REGISTER_STRUCT_RETURN) { + if (list.rsize == sizeof(char)) { + iret = *(unsigned char *) list.raddr; + } else + if (list.rsize == sizeof(short)) { + iret = *(unsigned short *) list.raddr; + } else + if (list.rsize == sizeof(int)) { + iret = *(unsigned int *) list.raddr; + } else + if (list.rsize == 2*sizeof(__vaword)) { + iret = ((__vaword *) list.raddr)[0]; + iret2 = ((__vaword *) list.raddr)[1]; + } + } + } +} + +#ifdef REENTRANT +__vacall_r_t +callback_get_receiver (void) +{ + return (__vacall_r_t)(void*)&callback_receiver; +} +#endif diff --git a/vacall/vacall-powerpc64-aix.s b/vacall/vacall-powerpc64-aix.s new file mode 100644 index 0000000..bb888b7 --- /dev/null +++ b/vacall/vacall-powerpc64-aix.s @@ -0,0 +1,151 @@ + .file "vacall-powerpc64.c" + .csect .text[PR] + .toc + .csect .text[PR] + .toc +LC..0: + .tc vacall_function[TC],vacall_function[UA] + .csect .text[PR] + .align 2 + .align 4 + .globl vacall_receiver + .globl .vacall_receiver + .csect vacall_receiver[DS],3 +vacall_receiver: + .llong .vacall_receiver, TOC[tc0], 0 + .csect .text[PR] +.vacall_receiver: + mflr 0 + std 31,-8(1) + li 11,0 + std 0,16(1) + li 0,0 + stdu 1,-304(1) + mr 31,1 + std 2,40(1) + stw 0,112(31) + stw 11,152(31) + stw 11,168(31) + std 9,400(31) + addi 9,31,352 + std 3,352(31) + stfd 1,172(31) + std 4,360(31) + std 5,368(31) + std 6,376(31) + std 7,384(31) + std 8,392(31) + stfd 2,180(31) + addi 3,31,112 + stfd 3,188(31) + stfd 4,196(31) + stfd 5,204(31) + stfd 6,212(31) + stfd 7,220(31) + stfd 8,228(31) + stfd 9,236(31) + stfd 10,244(31) + stfd 11,252(31) + stfd 12,260(31) + stfd 13,268(31) + std 9,136(31) + std 11,144(31) + std 10,408(31) + ld 9,LC..0(2) + ld 9,0(9) + ld 10,0(9) + ld 11,16(9) + mtctr 10 + ld 2,8(9) + bctrl + ld 2,40(1) + lwz 9,152(31) + cmpdi 7,9,0 + beq 7,L..1 + cmplwi 7,9,1 + beq 7,L..20 + cmplwi 7,9,2 + beq 7,L..23 + cmplwi 7,9,3 + beq 7,L..20 + cmplwi 7,9,4 + beq 7,L..24 + cmplwi 7,9,5 + beq 7,L..25 + cmplwi 7,9,6 + beq 7,L..26 + cmplwi 7,9,7 + beq 7,L..27 + cmplwi 7,9,8 + beq 7,L..21 + cmplwi 7,9,9 + beq 7,L..21 + cmplwi 7,9,10 + beq 7,L..21 + cmplwi 7,9,11 + beq 7,L..21 + cmplwi 7,9,12 + beq 7,L..28 + cmplwi 7,9,13 + beq 7,L..29 + cmplwi 7,9,14 + beq 7,L..21 +L..1: + addi 1,31,304 + ld 0,16(1) + ld 31,-8(1) + mtlr 0 + blr + .align 4 +L..20: + lbz 3,120(31) + addi 1,31,304 + ld 0,16(1) + ld 31,-8(1) + mtlr 0 + blr + .align 4 +L..23: + lbz 9,120(31) + extsb 3,9 + b L..1 + .align 4 +L..21: + ld 3,120(31) + b L..1 + .align 4 +L..24: + lha 3,120(31) + b L..1 + .align 4 +L..25: + lhz 3,120(31) + b L..1 + .align 4 +L..26: + lwa 3,120(31) + b L..1 + .align 4 +L..28: + lfs 1,120(31) + b L..1 + .align 4 +L..27: + lwz 3,120(31) + b L..1 +L..29: + lfd 1,120(31) + b L..1 +LT..vacall_receiver: + .long 0 + .byte 0,0,32,97,128,1,8,0 + .long 0 + .long LT..vacall_receiver-.vacall_receiver + .short 15 + .byte "vacall_receiver" + .byte 31 + .align 2 +_section_.text: + .csect .data[RW],4 + .llong _section_.text + .extern vacall_function[UA] diff --git a/vacall/vacall-powerpc64-elfv2-linux.S b/vacall/vacall-powerpc64-elfv2-linux.S new file mode 100644 index 0000000..45e391d --- /dev/null +++ b/vacall/vacall-powerpc64-elfv2-linux.S @@ -0,0 +1,225 @@ + .file "vacall-powerpc64.c" + .machine power4 + .abiversion 2 + .section ".toc","aw" + .section ".text" + .section ".toc","aw" +.LC0: + .quad vacall_function + .section ".text" + .align 2 + .p2align 4,,15 + .globl vacall_receiver + .type vacall_receiver, @function +vacall_receiver: +0: addis 2,12,.TOC.-0b@ha + addi 2,2,.TOC.-0b@l + .localentry vacall_receiver,.-vacall_receiver + mflr 0 + std 31,-8(1) + addis 11,2,.LC0@toc@ha + ld 12,.LC0@toc@l(11) + li 11,0 + std 0,16(1) + stdu 1,-224(1) + mr 31,1 + ld 0,0(12) + std 2,24(1) + std 9,304(31) + li 9,0 + std 3,256(31) + addi 3,31,32 + std 4,264(31) + std 5,272(31) + mtctr 0 + stw 9,32(31) + std 6,280(31) + std 7,288(31) + std 8,296(31) + std 10,312(31) + stfd 1,96(31) + addi 9,31,256 + stfd 2,104(31) + stfd 3,112(31) + stfd 4,120(31) + stfd 5,128(31) + mr 12,0 + std 9,56(31) + stfd 6,136(31) + stfd 7,144(31) + stfd 8,152(31) + stfd 9,160(31) + stfd 10,168(31) + stfd 11,176(31) + stfd 12,184(31) + stfd 13,192(31) + std 11,64(31) + stw 11,72(31) + stw 11,88(31) + bctrl + ld 2,24(1) + lwz 9,72(31) + cmpdi 7,9,0 + beq 7,.L1 + cmplwi 7,9,1 + beq 7,.L27 + cmplwi 7,9,2 + beq 7,.L30 + cmplwi 7,9,3 + beq 7,.L27 + cmplwi 7,9,4 + beq 7,.L31 + cmplwi 7,9,5 + beq 7,.L32 + cmplwi 7,9,6 + beq 7,.L33 + cmplwi 7,9,7 + beq 7,.L34 + cmplwi 7,9,8 + beq 7,.L28 + cmplwi 7,9,9 + beq 7,.L28 + cmplwi 7,9,10 + beq 7,.L28 + cmplwi 7,9,11 + beq 7,.L28 + cmplwi 7,9,12 + beq 7,.L35 + cmplwi 7,9,13 + beq 7,.L36 + cmplwi 7,9,14 + beq 7,.L28 + cmplwi 7,9,15 + bne 7,.L1 + lwz 9,32(31) + rldicl. 10,9,54,63 + beq 0,.L1 + ld 9,80(31) + addi 10,9,-1 + cmpldi 7,10,15 + bgt 7,.L1 + ld 8,64(31) + cmpldi 7,9,8 + rldicl 10,8,0,61 + rldicr 8,8,0,60 + add 9,9,10 + bgt 7,.L17 + cmpldi 7,9,8 + slwi 9,9,3 + bgt 7,.L18 + ld 7,0(8) + addi 9,9,-1 + li 8,2 + slwi 10,10,3 + sld 9,8,9 + addi 9,9,-1 + and 9,9,7 + srad 3,9,10 +.L1: + addi 1,31,224 + ld 0,16(1) + ld 31,-8(1) + mtlr 0 + blr + .p2align 4,,15 +.L27: + addi 1,31,224 + lbz 3,40(31) + ld 0,16(1) + ld 31,-8(1) + mtlr 0 + blr + .p2align 4,,15 +.L30: + lbz 9,40(31) + extsb 3,9 + b .L1 + .p2align 4,,15 +.L28: + ld 3,40(31) + b .L1 + .p2align 4,,15 +.L31: + lha 3,40(31) + b .L1 + .p2align 4,,15 +.L32: + lhz 3,40(31) + b .L1 + .p2align 4,,15 +.L33: + lwa 3,40(31) + b .L1 + .p2align 4,,15 +.L35: + lfs 1,40(31) + b .L1 + .p2align 4,,15 +.L34: + lwz 3,40(31) + b .L1 +.L36: + lfd 1,40(31) + b .L1 +.L17: + cmpldi 7,9,16 + rldicl 10,10,0,32 + slwi 9,9,3 + ble 7,.L37 + li 7,2 + addi 9,9,-129 + ld 11,16(8) + ld 5,0(8) + mulli 6,10,-8 + sld 9,7,9 + ld 7,8(8) + addi 8,9,-1 + slwi 9,10,3 + addi 6,6,64 + and 10,8,11 + srad 8,5,9 + sld 5,7,6 + srad 9,7,9 + sld 10,10,6 + or 3,8,5 + or 4,10,9 + b .L1 +.L18: + rldicl 10,10,0,32 + li 7,2 + ld 6,8(8) + ld 8,0(8) + addi 9,9,-65 + sld 9,7,9 + mulli 7,10,-8 + slwi 10,10,3 + addi 9,9,-1 + srad 10,8,10 + and 9,9,6 + addi 7,7,64 + sld 9,9,7 + or 3,9,10 + b .L1 +.L37: + li 7,2 + addi 9,9,-65 + ld 5,8(8) + ld 6,0(8) + sld 9,7,9 + mulli 7,10,-4 + addi 9,9,-1 + addi 7,7,32 + and 8,9,5 + slwi 9,10,3 + sld 10,8,7 + srad 6,6,9 + srad 4,8,9 + sld 7,10,7 + or 3,6,7 + b .L1 + .long 0 + .byte 0,0,0,1,128,1,0,0 + .size vacall_receiver,.-vacall_receiver +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/vacall/vacall-powerpc64-linux.S b/vacall/vacall-powerpc64-linux.S new file mode 100644 index 0000000..0a402ef --- /dev/null +++ b/vacall/vacall-powerpc64-linux.S @@ -0,0 +1,146 @@ + .file "vacall-powerpc64.c" + .machine power4 + .section ".toc","aw" + .section ".text" + .section ".toc","aw" +.LC0: + .quad vacall_function + .section ".text" + .align 2 + .p2align 4,,15 + .globl vacall_receiver + .section ".opd","aw" + .align 3 +vacall_receiver: + .quad .L.vacall_receiver,.TOC.@tocbase,0 + .previous + .type vacall_receiver, @function +.L.vacall_receiver: + mflr 0 + std 31,-8(1) + li 11,0 + std 0,16(1) + stdu 1,-304(1) + li 0,0 + mr 31,1 + std 2,40(1) + stw 11,152(31) + stw 0,112(31) + stw 11,168(31) + std 9,400(31) + std 3,352(31) + std 4,360(31) + std 5,368(31) + std 6,376(31) + std 7,384(31) + std 8,392(31) + std 10,408(31) + stfd 1,176(31) + addi 9,31,352 + stfd 2,184(31) + stfd 3,192(31) + stfd 4,200(31) + stfd 5,208(31) + addis 10,2,.LC0@toc@ha + addi 3,31,112 + stfd 6,216(31) + stfd 7,224(31) + stfd 8,232(31) + stfd 9,240(31) + stfd 10,248(31) + stfd 11,256(31) + stfd 12,264(31) + stfd 13,272(31) + std 9,136(31) + std 11,144(31) + ld 9,.LC0@toc@l(10) + ld 9,0(9) + ld 10,0(9) + ld 11,16(9) + mtctr 10 + ld 2,8(9) + bctrl + ld 2,40(1) + lwz 9,152(31) + cmpdi 7,9,0 + beq 7,.L1 + cmplwi 7,9,1 + beq 7,.L20 + cmplwi 7,9,2 + beq 7,.L23 + cmplwi 7,9,3 + beq 7,.L20 + cmplwi 7,9,4 + beq 7,.L24 + cmplwi 7,9,5 + beq 7,.L25 + cmplwi 7,9,6 + beq 7,.L26 + cmplwi 7,9,7 + beq 7,.L27 + cmplwi 7,9,8 + beq 7,.L21 + cmplwi 7,9,9 + beq 7,.L21 + cmplwi 7,9,10 + beq 7,.L21 + cmplwi 7,9,11 + beq 7,.L21 + cmplwi 7,9,12 + beq 7,.L28 + cmplwi 7,9,13 + beq 7,.L29 + cmplwi 7,9,14 + beq 7,.L21 +.L1: + addi 1,31,304 + ld 0,16(1) + ld 31,-8(1) + mtlr 0 + blr + .p2align 4,,15 +.L20: + lbz 3,120(31) + addi 1,31,304 + ld 0,16(1) + ld 31,-8(1) + mtlr 0 + blr + .p2align 4,,15 +.L23: + lbz 9,120(31) + extsb 3,9 + b .L1 + .p2align 4,,15 +.L21: + ld 3,120(31) + b .L1 + .p2align 4,,15 +.L24: + lha 3,120(31) + b .L1 + .p2align 4,,15 +.L25: + lhz 3,120(31) + b .L1 + .p2align 4,,15 +.L26: + lwa 3,120(31) + b .L1 + .p2align 4,,15 +.L28: + lfs 1,120(31) + b .L1 + .p2align 4,,15 +.L27: + lwz 3,120(31) + b .L1 +.L29: + lfd 1,120(31) + b .L1 + .long 0 + .byte 0,0,0,1,128,1,0,0 + .size vacall_receiver,.-.L.vacall_receiver +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/vacall/vacall-powerpc64.c b/vacall/vacall-powerpc64.c new file mode 100644 index 0000000..19bcbbc --- /dev/null +++ b/vacall/vacall-powerpc64.c @@ -0,0 +1,293 @@ +/* vacall function for powerpc64 CPU */ + +/* + * Copyright 1995-2017 Bruno Haible + * Copyright 2000 Adam Fedor + * Copyright 2004 Paul Guyot + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "vacall-internal.h" + +#ifdef REENTRANT +#define vacall_receiver callback_receiver +register struct { void (*vacall_function) (void*,va_alist); void* arg; } + * env __asm__("r11"); +#endif +register double farg1 __asm__("fr1"); +register double farg2 __asm__("fr2"); +register double farg3 __asm__("fr3"); +register double farg4 __asm__("fr4"); +register double farg5 __asm__("fr5"); +register double farg6 __asm__("fr6"); +register double farg7 __asm__("fr7"); +register double farg8 __asm__("fr8"); +register double farg9 __asm__("fr9"); +register double farg10 __asm__("fr10"); +register double farg11 __asm__("fr11"); +register double farg12 __asm__("fr12"); +register double farg13 __asm__("fr13"); +register __vaword iret __asm__("r3"); +register __vaword iret2 __asm__("r4"); +register float fret __asm__("fr1"); +register double dret __asm__("fr1"); + +#ifdef REENTRANT +static +#endif +void /* the return type is variable, not void! */ +vacall_receiver (__vaword word1, __vaword word2, __vaword word3, __vaword word4, + __vaword word5, __vaword word6, __vaword word7, __vaword word8, + __vaword firstword) +{ + __va_alist list; + /* When a parameter is passed in a register, + * stack space is still allocated for it. + */ + /* Move the arguments passed in registers to their stack locations. */ + (&firstword)[-8] = word1; + (&firstword)[-7] = word2; + (&firstword)[-6] = word3; + (&firstword)[-5] = word4; + (&firstword)[-4] = word5; + (&firstword)[-3] = word6; + (&firstword)[-2] = word7; + (&firstword)[-1] = word8; + list.farg[0] = farg1; + list.farg[1] = farg2; + list.farg[2] = farg3; + list.farg[3] = farg4; + list.farg[4] = farg5; + list.farg[5] = farg6; + list.farg[6] = farg7; + list.farg[7] = farg8; + list.farg[8] = farg9; + list.farg[9] = farg10; + list.farg[10] = farg11; + list.farg[11] = farg12; + list.farg[12] = farg13; + /* Prepare the va_alist. */ + list.flags = 0; + list.aptr = (long)(&firstword - 8); + list.raddr = (void*)0; + list.rtype = __VAvoid; + list.fanum = 0; + /* Call vacall_function. The macros do all the rest. */ +#ifndef REENTRANT + (*vacall_function) (&list); +#else /* REENTRANT */ + (*env->vacall_function) (env->arg,&list); +#endif + /* Put return value into proper register. */ + if (list.rtype == __VAvoid) { + } else + if (list.rtype == __VAchar) { + iret = list.tmp._char; + } else + if (list.rtype == __VAschar) { + iret = list.tmp._schar; + } else + if (list.rtype == __VAuchar) { + iret = list.tmp._uchar; + } else + if (list.rtype == __VAshort) { + iret = list.tmp._short; + } else + if (list.rtype == __VAushort) { + iret = list.tmp._ushort; + } else + if (list.rtype == __VAint) { + iret = list.tmp._int; + } else + if (list.rtype == __VAuint) { + iret = list.tmp._uint; + } else + if (list.rtype == __VAlong) { + iret = list.tmp._long; + } else + if (list.rtype == __VAulong) { + iret = list.tmp._ulong; + } else + if (list.rtype == __VAlonglong) { + iret = list.tmp._long; + } else + if (list.rtype == __VAulonglong) { + iret = list.tmp._ulong; + } else + if (list.rtype == __VAfloat) { + fret = list.tmp._float; + } else + if (list.rtype == __VAdouble) { + dret = list.tmp._double; + } else + if (list.rtype == __VAvoidp) { + iret = (long)list.tmp._ptr; + } else + if (list.rtype == __VAstruct) { +#ifdef __powerpc64_elfv2__ + if (list.flags & __VA_REGISTER_STRUCT_RETURN) { + /* In the ELFv2 ABI, gcc returns structs of size <= 16 in registers. */ + if (list.rsize > 0 && list.rsize <= 16) { + #if 0 /* Unoptimized */ + if (list.rsize == 1) { + iret = (__vaword)((unsigned char *) list.raddr)[0]; + } else + if (list.rsize == 2) { + iret = ((__vaword)((unsigned char *) list.raddr)[0]) + | ((__vaword)((unsigned char *) list.raddr)[1] << 8); + } else + if (list.rsize == 3) { + iret = ((__vaword)((unsigned char *) list.raddr)[0]) + | ((__vaword)((unsigned char *) list.raddr)[1] << 8) + | ((__vaword)((unsigned char *) list.raddr)[2] << 16); + } else + if (list.rsize == 4) { + iret = ((__vaword)((unsigned char *) list.raddr)[0]) + | ((__vaword)((unsigned char *) list.raddr)[1] << 8) + | ((__vaword)((unsigned char *) list.raddr)[2] << 16) + | ((__vaword)((unsigned char *) list.raddr)[3] << 24); + } else + if (list.rsize == 5) { + iret = ((__vaword)((unsigned char *) list.raddr)[0]) + | ((__vaword)((unsigned char *) list.raddr)[1] << 8) + | ((__vaword)((unsigned char *) list.raddr)[2] << 16) + | ((__vaword)((unsigned char *) list.raddr)[3] << 24) + | ((__vaword)((unsigned char *) list.raddr)[4] << 32); + } else + if (list.rsize == 6) { + iret = ((__vaword)((unsigned char *) list.raddr)[0]) + | ((__vaword)((unsigned char *) list.raddr)[1] << 8) + | ((__vaword)((unsigned char *) list.raddr)[2] << 16) + | ((__vaword)((unsigned char *) list.raddr)[3] << 24) + | ((__vaword)((unsigned char *) list.raddr)[4] << 32) + | ((__vaword)((unsigned char *) list.raddr)[5] << 40); + } else + if (list.rsize == 7) { + iret = ((__vaword)((unsigned char *) list.raddr)[0]) + | ((__vaword)((unsigned char *) list.raddr)[1] << 8) + | ((__vaword)((unsigned char *) list.raddr)[2] << 16) + | ((__vaword)((unsigned char *) list.raddr)[3] << 24) + | ((__vaword)((unsigned char *) list.raddr)[4] << 32) + | ((__vaword)((unsigned char *) list.raddr)[5] << 40) + | ((__vaword)((unsigned char *) list.raddr)[6] << 48); + } else + if (list.rsize >= 8 && list.rsize <= 16) { + iret = ((__vaword)((unsigned char *) list.raddr)[0]) + | ((__vaword)((unsigned char *) list.raddr)[1] << 8) + | ((__vaword)((unsigned char *) list.raddr)[2] << 16) + | ((__vaword)((unsigned char *) list.raddr)[3] << 24) + | ((__vaword)((unsigned char *) list.raddr)[4] << 32) + | ((__vaword)((unsigned char *) list.raddr)[5] << 40) + | ((__vaword)((unsigned char *) list.raddr)[6] << 48) + | ((__vaword)((unsigned char *) list.raddr)[7] << 56); + if (list.rsize == 8) { + } else + if (list.rsize == 9) { + iret2 = (__vaword)((unsigned char *) list.raddr)[8]; + } else + if (list.rsize == 10) { + iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) + | ((__vaword)((unsigned char *) list.raddr)[9] << 8); + } else + if (list.rsize == 11) { + iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) + | ((__vaword)((unsigned char *) list.raddr)[9] << 8) + | ((__vaword)((unsigned char *) list.raddr)[10] << 16); + } else + if (list.rsize == 12) { + iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) + | ((__vaword)((unsigned char *) list.raddr)[9] << 8) + | ((__vaword)((unsigned char *) list.raddr)[10] << 16) + | ((__vaword)((unsigned char *) list.raddr)[11] << 24); + } else + if (list.rsize == 13) { + iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) + | ((__vaword)((unsigned char *) list.raddr)[9] << 8) + | ((__vaword)((unsigned char *) list.raddr)[10] << 16) + | ((__vaword)((unsigned char *) list.raddr)[11] << 24) + | ((__vaword)((unsigned char *) list.raddr)[12] << 32); + } else + if (list.rsize == 14) { + iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) + | ((__vaword)((unsigned char *) list.raddr)[9] << 8) + | ((__vaword)((unsigned char *) list.raddr)[10] << 16) + | ((__vaword)((unsigned char *) list.raddr)[11] << 24) + | ((__vaword)((unsigned char *) list.raddr)[12] << 32) + | ((__vaword)((unsigned char *) list.raddr)[13] << 40); + } else + if (list.rsize == 15) { + iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) + | ((__vaword)((unsigned char *) list.raddr)[9] << 8) + | ((__vaword)((unsigned char *) list.raddr)[10] << 16) + | ((__vaword)((unsigned char *) list.raddr)[11] << 24) + | ((__vaword)((unsigned char *) list.raddr)[12] << 32) + | ((__vaword)((unsigned char *) list.raddr)[13] << 40) + | ((__vaword)((unsigned char *) list.raddr)[14] << 48); + } else + if (list.rsize == 16) { + iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) + | ((__vaword)((unsigned char *) list.raddr)[9] << 8) + | ((__vaword)((unsigned char *) list.raddr)[10] << 16) + | ((__vaword)((unsigned char *) list.raddr)[11] << 24) + | ((__vaword)((unsigned char *) list.raddr)[12] << 32) + | ((__vaword)((unsigned char *) list.raddr)[13] << 40) + | ((__vaword)((unsigned char *) list.raddr)[14] << 48) + | ((__vaword)((unsigned char *) list.raddr)[15] << 56); + } + } + #else /* Optimized: fewer conditional jumps, fewer memory accesses */ + uintptr_t count = list.rsize; /* > 0, ≤ 2*sizeof(__vaword) */ + __vaword* wordaddr = (__vaword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__vaword)-1)); + uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__vaword)-1); /* ≥ 0, < sizeof(__vaword) */ + uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__vaword) */ + if (count <= sizeof(__vaword)) { + /* Assign iret. */ + if (end_offset <= sizeof(__vaword)) { + /* 0 < end_offset ≤ sizeof(__vaword) */ + __vaword mask0 = ((__vaword)2 << (end_offset*8-1)) - 1; + iret = (wordaddr[0] & mask0) >> (start_offset*8); + } else { + /* sizeof(__vaword) < end_offset < 2*sizeof(__vaword), start_offset > 0 */ + __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; + iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*8-start_offset*8)); + } + } else { + /* Assign iret, iret2. */ + if (end_offset <= 2*sizeof(__vaword)) { + /* sizeof(__vaword) < end_offset ≤ 2*sizeof(__vaword) */ + __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; + iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*4-start_offset*4) << (sizeof(__vaword)*4-start_offset*4)); + iret2 = (wordaddr[1] & mask1) >> (start_offset*8); + } else { + /* 2*sizeof(__vaword) < end_offset < 3*sizeof(__vaword), start_offset > 0 */ + __vaword mask2 = ((__vaword)2 << (end_offset*8-2*sizeof(__vaword)*8-1)) - 1; + iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__vaword)*8-start_offset*8)); + iret2 = (wordaddr[1] >> (start_offset*8)) | ((wordaddr[2] & mask2) << (sizeof(__vaword)*8-start_offset*8)); + } + } + #endif + } + } +#endif + } +} + +#ifdef REENTRANT +__vacall_r_t +callback_get_receiver (void) +{ + return (__vacall_r_t)(void*)&callback_receiver; +} +#endif diff --git a/vacall/vacall-riscv32-ilp32d-linux.s b/vacall/vacall-riscv32-ilp32d-linux.s new file mode 100644 index 0000000..0982775 --- /dev/null +++ b/vacall/vacall-riscv32-ilp32d-linux.s @@ -0,0 +1,163 @@ + .file "vacall-riscv32.c" + .option nopic + .text + .align 1 + .globl vacall_receiver + .type vacall_receiver, @function +vacall_receiver: + add sp,sp,-208 + sw ra,188(sp) + sw s0,184(sp) + add s0,sp,192 + lui t1,%hi(vacall_function) + lw t1,%lo(vacall_function)(t1) + sw a0,-148(s0) + add a0,s0,16 + sw a7,12(s0) + sw a1,-144(s0) + sw a2,-140(s0) + sw a3,-136(s0) + sw a4,-132(s0) + sw a5,-128(s0) + sw a6,-124(s0) + sw a7,-120(s0) + fsw fa0,-112(s0) + fsw fa1,-108(s0) + fsw fa2,-104(s0) + fsw fa3,-100(s0) + fsw fa4,-96(s0) + fsw fa5,-92(s0) + fsw fa6,-88(s0) + fsw fa7,-84(s0) + fsd fa0,-80(s0) + fsd fa1,-72(s0) + fsd fa2,-64(s0) + fsd fa3,-56(s0) + fsd fa4,-48(s0) + fsd fa5,-40(s0) + fsd fa6,-32(s0) + fsd fa7,-24(s0) + sw a0,-168(s0) + sw zero,-184(s0) + sw zero,-164(s0) + sw zero,-160(s0) + add a0,s0,-184 + sw zero,-152(s0) + sw zero,-116(s0) + jalr t1 + lw t1,-160(s0) + beqz t1,.L1 + li t3,1 + beq t1,t3,.L22 + li t3,2 + beq t1,t3,.L25 + li t3,3 + beq t1,t3,.L22 + li t3,4 + beq t1,t3,.L26 + li t3,5 + beq t1,t3,.L27 + li t3,6 + beq t1,t3,.L23 + li t3,7 + beq t1,t3,.L23 + li t3,8 + beq t1,t3,.L23 + li t3,9 + beq t1,t3,.L23 + add t3,t1,-10 + li t4,1 + bleu t3,t4,.L28 + li t3,12 + beq t1,t3,.L29 + li t3,13 + beq t1,t3,.L30 + li t3,14 + beq t1,t3,.L23 + li t3,15 + bne t1,t3,.L1 + lw t1,-184(s0) + and t1,t1,2 + beqz t1,.L1 + lw t3,-156(s0) + li t1,7 + add t5,t3,-1 + bgtu t5,t1,.L1 + lw t1,-164(s0) + lbu t5,0(t1) + mv a0,t5 + beq t3,t4,.L1 + lbu t4,1(t1) + li t6,2 + sll t4,t4,8 + or t5,t4,t5 + mv a0,t5 + beq t3,t6,.L1 + lbu t4,2(t1) + li t6,3 + sll t4,t4,16 + or t4,t4,t5 + mv a0,t4 + beq t3,t6,.L1 + lbu a0,3(t1) + li t5,4 + sll a0,a0,24 + or a0,a0,t4 + beq t3,t5,.L1 + lbu t5,4(t1) + li t4,5 + mv a1,t5 + beq t3,t4,.L1 + lbu t4,5(t1) + li t6,6 + sll t4,t4,8 + or t5,t4,t5 + mv a1,t5 + beq t3,t6,.L1 + lbu t4,6(t1) + li t6,8 + sll t4,t4,16 + or t4,t4,t5 + mv a1,t4 + bne t3,t6,.L1 + lbu a1,7(t1) + sll a1,a1,24 + or a1,a1,t4 +.L1: + lw ra,188(sp) + lw s0,184(sp) + add sp,sp,208 + jr ra +.L22: + lbu a0,-176(s0) + lw ra,188(sp) + lw s0,184(sp) + add sp,sp,208 + jr ra +.L23: + lw a0,-176(s0) + j .L1 +.L25: + lb a0,-176(s0) + lw ra,188(sp) + lw s0,184(sp) + add sp,sp,208 + jr ra +.L26: + lh a0,-176(s0) + j .L1 +.L27: + lhu a0,-176(s0) + j .L1 +.L28: + lw a0,-176(s0) + lw a1,-172(s0) + j .L1 +.L29: + flw fa0,-176(s0) + j .L1 +.L30: + fld fa0,-176(s0) + j .L1 + .size vacall_receiver, .-vacall_receiver + .ident "GCC: (GNU) 7.3.0" diff --git a/vacall/vacall-riscv32-ilp32d-macro.S b/vacall/vacall-riscv32-ilp32d-macro.S new file mode 100644 index 0000000..5142889 --- /dev/null +++ b/vacall/vacall-riscv32-ilp32d-macro.S @@ -0,0 +1,165 @@ + .file "vacall-riscv32.c" + .option nopic + .text + .align 1 + .globl vacall_receiver + .type vacall_receiver, @function +vacall_receiver: + add sp,sp,-208 + sw ra,188(sp) + sw s0,184(sp) + add s0,sp,192 + lui t1,%hi(vacall_function) + lw t1,%lo(vacall_function)(t1) + sw a0,-148(s0) + add a0,s0,16 + sw a7,12(s0) + sw a1,-144(s0) + sw a2,-140(s0) + sw a3,-136(s0) + sw a4,-132(s0) + sw a5,-128(s0) + sw a6,-124(s0) + sw a7,-120(s0) + fsw fa0,-112(s0) + fsw fa1,-108(s0) + fsw fa2,-104(s0) + fsw fa3,-100(s0) + fsw fa4,-96(s0) + fsw fa5,-92(s0) + fsw fa6,-88(s0) + fsw fa7,-84(s0) + fsd fa0,-80(s0) + fsd fa1,-72(s0) + fsd fa2,-64(s0) + fsd fa3,-56(s0) + fsd fa4,-48(s0) + fsd fa5,-40(s0) + fsd fa6,-32(s0) + fsd fa7,-24(s0) + sw a0,-168(s0) + sw zero,-184(s0) + sw zero,-164(s0) + sw zero,-160(s0) + add a0,s0,-184 + sw zero,-152(s0) + sw zero,-116(s0) + jalr t1 + lw t1,-160(s0) + beqz t1,.L1 + li t3,1 + beq t1,t3,.L22 + li t3,2 + beq t1,t3,.L25 + li t3,3 + beq t1,t3,.L22 + li t3,4 + beq t1,t3,.L26 + li t3,5 + beq t1,t3,.L27 + li t3,6 + beq t1,t3,.L23 + li t3,7 + beq t1,t3,.L23 + li t3,8 + beq t1,t3,.L23 + li t3,9 + beq t1,t3,.L23 + add t3,t1,-10 + li t4,1 + bleu t3,t4,.L28 + li t3,12 + beq t1,t3,.L29 + li t3,13 + beq t1,t3,.L30 + li t3,14 + beq t1,t3,.L23 + li t3,15 + bne t1,t3,.L1 + lw t1,-184(s0) + and t1,t1,2 + beqz t1,.L1 + lw t3,-156(s0) + li t1,7 + add t5,t3,-1 + bgtu t5,t1,.L1 + lw t1,-164(s0) + lbu t5,0(t1) + mv a0,t5 + beq t3,t4,.L1 + lbu t4,1(t1) + li t6,2 + sll t4,t4,8 + or t5,t4,t5 + mv a0,t5 + beq t3,t6,.L1 + lbu t4,2(t1) + li t6,3 + sll t4,t4,16 + or t4,t4,t5 + mv a0,t4 + beq t3,t6,.L1 + lbu a0,3(t1) + li t5,4 + sll a0,a0,24 + or a0,a0,t4 + beq t3,t5,.L1 + lbu t5,4(t1) + li t4,5 + mv a1,t5 + beq t3,t4,.L1 + lbu t4,5(t1) + li t6,6 + sll t4,t4,8 + or t5,t4,t5 + mv a1,t5 + beq t3,t6,.L1 + lbu t4,6(t1) + li t6,8 + sll t4,t4,16 + or t4,t4,t5 + mv a1,t4 + bne t3,t6,.L1 + lbu a1,7(t1) + sll a1,a1,24 + or a1,a1,t4 +.L1: + lw ra,188(sp) + lw s0,184(sp) + add sp,sp,208 + jr ra +.L22: + lbu a0,-176(s0) + lw ra,188(sp) + lw s0,184(sp) + add sp,sp,208 + jr ra +.L23: + lw a0,-176(s0) + j .L1 +.L25: + lb a0,-176(s0) + lw ra,188(sp) + lw s0,184(sp) + add sp,sp,208 + jr ra +.L26: + lh a0,-176(s0) + j .L1 +.L27: + lhu a0,-176(s0) + j .L1 +.L28: + lw a0,-176(s0) + lw a1,-172(s0) + j .L1 +.L29: + flw fa0,-176(s0) + j .L1 +.L30: + fld fa0,-176(s0) + j .L1 + .size vacall_receiver, .-vacall_receiver +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/vacall/vacall-riscv32.c b/vacall/vacall-riscv32.c new file mode 100644 index 0000000..b3f581f --- /dev/null +++ b/vacall/vacall-riscv32.c @@ -0,0 +1,226 @@ +/* vacall function for RISC-V 32-bit CPU */ + +/* + * Copyright 1995-2019 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "vacall-internal.h" + +#ifdef REENTRANT +#define vacall_receiver callback_receiver +register struct { void (*vacall_function) (void*,va_alist); void* arg; } + * env __asm__("t2"); +#endif + +register __vaword iarg1 __asm__("a0"); +register __vaword iarg2 __asm__("a1"); +register __vaword iarg3 __asm__("a2"); +register __vaword iarg4 __asm__("a3"); +register __vaword iarg5 __asm__("a4"); +register __vaword iarg6 __asm__("a5"); +register __vaword iarg7 __asm__("a6"); +register __vaword iarg8 __asm__("a7"); + +register float farg1 __asm__("fa0"); +register float farg2 __asm__("fa1"); +register float farg3 __asm__("fa2"); +register float farg4 __asm__("fa3"); +register float farg5 __asm__("fa4"); +register float farg6 __asm__("fa5"); +register float farg7 __asm__("fa6"); +register float farg8 __asm__("fa7"); + +register double darg1 __asm__("fa0"); +register double darg2 __asm__("fa1"); +register double darg3 __asm__("fa2"); +register double darg4 __asm__("fa3"); +register double darg5 __asm__("fa4"); +register double darg6 __asm__("fa5"); +register double darg7 __asm__("fa6"); +register double darg8 __asm__("fa7"); + +register __vaword iret __asm__("a0"); +register __vaword iret2 __asm__("a1"); +register float fret __asm__("fa0"); +register double dret __asm__("fa0"); + +/* The ABI requires that the first 8 general-purpose argument words are + being passed in registers, even if these words belong to structs that are + at most 2 words large. No room is allocated for these register words on + the stack by the caller, but the callee allocates room for them - at the + right place in the stack frame, that is, above the retaddr - if and only + if they are part of a struct that extends to the stack and the address of + this struct is taken. */ +struct gpargsequence { + __vaword word8; /* a7 */ + __vaword firststackword; +}; + +#ifdef REENTRANT +static +#endif +void /* the return type is variable, not void! */ +vacall_receiver (__vaword word1, __vaword word2, __vaword word3, __vaword word4, + __vaword word5, __vaword word6, __vaword word7, + struct gpargsequence gpargs) +{ + __va_alist list; + /* Move the arguments passed in registers to temp storage. */ + list.iarg[0] = iarg1; + list.iarg[1] = iarg2; + list.iarg[2] = iarg3; + list.iarg[3] = iarg4; + list.iarg[4] = iarg5; + list.iarg[5] = iarg6; + list.iarg[6] = iarg7; + list.iarg[7] = iarg8; /* = gpargs.word8 */ + list.farg[0] = farg1; + list.farg[1] = farg2; + list.farg[2] = farg3; + list.farg[3] = farg4; + list.farg[4] = farg5; + list.farg[5] = farg6; + list.farg[6] = farg7; + list.farg[7] = farg8; + list.darg[0] = darg1; + list.darg[1] = darg2; + list.darg[2] = darg3; + list.darg[3] = darg4; + list.darg[4] = darg5; + list.darg[5] = darg6; + list.darg[6] = darg7; + list.darg[7] = darg8; + /* Prepare the va_alist. */ + list.flags = 0; + list.aptr = (long)&gpargs + sizeof(__vaword); + list.raddr = (void*)0; + list.rtype = __VAvoid; + list.ianum = 0; + list.fanum = 0; + /* Call vacall_function. The macros do all the rest. */ +#ifndef REENTRANT + (*vacall_function) (&list); +#else /* REENTRANT */ + (*env->vacall_function) (env->arg,&list); +#endif + /* Put return value into proper register. */ + if (list.rtype == __VAvoid) { + } else + if (list.rtype == __VAchar) { + iret = list.tmp._char; + } else + if (list.rtype == __VAschar) { + iret = list.tmp._schar; + } else + if (list.rtype == __VAuchar) { + iret = list.tmp._uchar; + } else + if (list.rtype == __VAshort) { + iret = list.tmp._short; + } else + if (list.rtype == __VAushort) { + iret = list.tmp._ushort; + } else + if (list.rtype == __VAint) { + iret = list.tmp._int; + } else + if (list.rtype == __VAuint) { + iret = list.tmp._uint; + } else + if (list.rtype == __VAlong) { + iret = list.tmp._long; + } else + if (list.rtype == __VAulong) { + iret = list.tmp._ulong; + } else + if (list.rtype == __VAlonglong || list.rtype == __VAulonglong) { + iret = ((__vaword *) &list.tmp._longlong)[0]; + iret2 = ((__vaword *) &list.tmp._longlong)[1]; + } else + if (list.rtype == __VAfloat) { + fret = list.tmp._float; + } else + if (list.rtype == __VAdouble) { + dret = list.tmp._double; + } else + if (list.rtype == __VAvoidp) { + iret = (long)list.tmp._ptr; + } else + if (list.rtype == __VAstruct) { + /* normal struct return convention */ + if (list.flags & __VA_SMALL_STRUCT_RETURN) { + /* Return structs of size <= 8 in registers. */ + if (list.rsize > 0 && list.rsize <= 8) { + #if 1 /* Unoptimized */ + iret = (__vaword)((unsigned char *) list.raddr)[0]; + if (list.rsize >= 2) + iret |= (__vaword)((unsigned char *) list.raddr)[1] << 8; + if (list.rsize >= 3) + iret |= (__vaword)((unsigned char *) list.raddr)[2] << 16; + if (list.rsize >= 4) + iret |= (__vaword)((unsigned char *) list.raddr)[3] << 24; + if (list.rsize >= 5) { + iret2 = (__vaword)((unsigned char *) list.raddr)[4]; + if (list.rsize >= 6) + iret2 |= (__vaword)((unsigned char *) list.raddr)[5] << 8; + if (list.rsize >= 7) + iret2 |= (__vaword)((unsigned char *) list.raddr)[6] << 16; + if (list.rsize >= 8) + iret2 |= (__vaword)((unsigned char *) list.raddr)[7] << 24; + } + #else /* Optimized: fewer conditional jumps, fewer memory accesses */ + uintptr_t count = list.rsize; /* > 0, ≤ 2*sizeof(__vaword) */ + __vaword* wordaddr = (__vaword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__vaword)-1)); + uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__vaword)-1); /* ≥ 0, < sizeof(__vaword) */ + uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__vaword) */ + if (count <= sizeof(__vaword)) { + /* Assign iret. */ + if (end_offset <= sizeof(__vaword)) { + /* 0 < end_offset ≤ sizeof(__vaword) */ + __vaword mask0 = ((__vaword)2 << (end_offset*8-1)) - 1; + iret = (wordaddr[0] & mask0) >> (start_offset*8); + } else { + /* sizeof(__vaword) < end_offset < 2*sizeof(__vaword), start_offset > 0 */ + __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; + iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*8-start_offset*8)); + } + } else { + /* Assign iret, iret2. */ + if (end_offset <= 2*sizeof(__vaword)) { + /* sizeof(__vaword) < end_offset ≤ 2*sizeof(__vaword) */ + __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; + iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*4-start_offset*4) << (sizeof(__vaword)*4-start_offset*4)); + iret2 = (wordaddr[1] & mask1) >> (start_offset*8); + } else { + /* 2*sizeof(__vaword) < end_offset < 3*sizeof(__vaword), start_offset > 0 */ + __vaword mask2 = ((__vaword)2 << (end_offset*8-2*sizeof(__vaword)*8-1)) - 1; + iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__vaword)*8-start_offset*8)); + iret2 = (wordaddr[1] >> (start_offset*8)) | ((wordaddr[2] & mask2) << (sizeof(__vaword)*8-start_offset*8)); + } + } + #endif + } + } + } +} + +#ifdef REENTRANT +__vacall_r_t +callback_get_receiver (void) +{ + return (__vacall_r_t)(void*)&callback_receiver; +} +#endif diff --git a/vacall/vacall-riscv64-lp64d-linux.s b/vacall/vacall-riscv64-lp64d-linux.s new file mode 100644 index 0000000..65f5bc9 --- /dev/null +++ b/vacall/vacall-riscv64-lp64d-linux.s @@ -0,0 +1,190 @@ + .file "vacall-riscv64.c" + .option nopic + .text + .align 1 + .globl vacall_receiver + .type vacall_receiver, @function +vacall_receiver: + add sp,sp,-288 + sd ra,264(sp) + sd s0,256(sp) + sd s1,248(sp) + add s0,sp,272 + lui t1,%hi(vacall_function) + ld t1,%lo(vacall_function)(t1) + sd a0,-200(s0) + add a0,s0,16 + sd a7,8(s0) + sd a1,-192(s0) + sd a2,-184(s0) + sd a3,-176(s0) + sd a4,-168(s0) + sd a5,-160(s0) + sd a6,-152(s0) + sd a7,-144(s0) + fsw fa0,-132(s0) + fsw fa1,-128(s0) + fsw fa2,-124(s0) + fsw fa3,-120(s0) + fsw fa4,-116(s0) + fsw fa5,-112(s0) + fsw fa6,-108(s0) + fsw fa7,-104(s0) + fsd fa0,-96(s0) + fsd fa1,-88(s0) + fsd fa2,-80(s0) + fsd fa3,-72(s0) + fsd fa4,-64(s0) + fsd fa5,-56(s0) + fsd fa6,-48(s0) + fsd fa7,-40(s0) + sd a0,-240(s0) + sw zero,-264(s0) + sd zero,-232(s0) + add a0,s0,-264 + sw zero,-224(s0) + sw zero,-208(s0) + sw zero,-136(s0) + jalr t1 + lw t1,-224(s0) + beqz t1,.L1 + li t3,1 + beq t1,t3,.L25 + li t3,2 + beq t1,t3,.L29 + li t3,3 + beq t1,t3,.L25 + li t3,4 + beq t1,t3,.L30 + li t3,5 + beq t1,t3,.L31 + li t3,6 + beq t1,t3,.L32 + li t3,7 + beq t1,t3,.L33 + and t3,t1,-3 + li t4,8 + beq t3,t4,.L27 + li t4,9 + beq t3,t4,.L27 + li t3,12 + beq t1,t3,.L34 + li t3,13 + beq t1,t3,.L35 + li t3,14 + beq t1,t3,.L27 + li t3,15 + bne t1,t3,.L1 + lw t3,-264(s0) + and t3,t3,1024 + beqz t3,.L1 + ld t0,-216(s0) + add t3,t0,-1 + bgtu t3,t1,.L1 + ld t5,-232(s0) + li s1,8 + and t6,t5,7 + add t2,t0,t6 + and t5,t5,-8 + sext.w t6,t6 + sllw t1,t2,3 + ld t4,0(t5) + sll t3,t6,3 + bgtu t0,s1,.L15 + bgtu t2,s1,.L16 + addw t1,t1,-1 + li a0,2 + sll a0,a0,t1 + add a0,a0,-1 + and a0,a0,t4 + sra a0,a0,t3 +.L1: + ld ra,264(sp) + ld s0,256(sp) + ld s1,248(sp) + add sp,sp,288 + jr ra +.L25: + lbu a0,-256(s0) + ld ra,264(sp) + ld s0,256(sp) + ld s1,248(sp) + add sp,sp,288 + jr ra +.L29: + lb a0,-256(s0) + ld ra,264(sp) + ld s0,256(sp) + ld s1,248(sp) + add sp,sp,288 + jr ra +.L30: + lh a0,-256(s0) + j .L1 +.L33: + lwu a0,-256(s0) + j .L1 +.L31: + lhu a0,-256(s0) + j .L1 +.L27: + ld a0,-256(s0) + j .L1 +.L32: + lw a0,-256(s0) + j .L1 +.L34: + flw fa0,-256(s0) + j .L1 +.L35: + fld fa0,-256(s0) + j .L1 +.L15: + li s1,16 + sra t4,t4,t3 + ld t0,8(t5) + bleu t2,s1,.L36 + li a1,-8 + mulw t6,a1,t6 + addw t1,t1,-129 + ld a0,16(t5) + li a1,2 + sll a1,a1,t1 + add a1,a1,-1 + and a1,a1,a0 + sra t3,t0,t3 + addw t1,t6,64 + sll a0,t0,t1 + sll a1,a1,t1 + or a0,a0,t4 + or a1,a1,t3 + j .L1 +.L16: + li a0,-8 + mulw t6,a0,t6 + addw t1,t1,-65 + ld t5,8(t5) + li a0,2 + sll a0,a0,t1 + add a0,a0,-1 + and a0,a0,t5 + sra t4,t4,t3 + sll a0,a0,t6 + or a0,a0,t4 + j .L1 +.L36: + li a1,-4 + mulw t6,a1,t6 + addw t1,t1,-65 + li a0,2 + sll a0,a0,t1 + add a0,a0,-1 + and a0,a0,t0 + sra a1,a0,t3 + addw t1,t6,32 + sll a0,a0,t1 + sll a0,a0,t1 + or a0,a0,t4 + j .L1 + .size vacall_receiver, .-vacall_receiver + .ident "GCC: (GNU) 7.3.0" diff --git a/vacall/vacall-riscv64-lp64d-macro.S b/vacall/vacall-riscv64-lp64d-macro.S new file mode 100644 index 0000000..25bb90b --- /dev/null +++ b/vacall/vacall-riscv64-lp64d-macro.S @@ -0,0 +1,192 @@ + .file "vacall-riscv64.c" + .option nopic + .text + .align 1 + .globl vacall_receiver + .type vacall_receiver, @function +vacall_receiver: + add sp,sp,-288 + sd ra,264(sp) + sd s0,256(sp) + sd s1,248(sp) + add s0,sp,272 + lui t1,%hi(vacall_function) + ld t1,%lo(vacall_function)(t1) + sd a0,-200(s0) + add a0,s0,16 + sd a7,8(s0) + sd a1,-192(s0) + sd a2,-184(s0) + sd a3,-176(s0) + sd a4,-168(s0) + sd a5,-160(s0) + sd a6,-152(s0) + sd a7,-144(s0) + fsw fa0,-132(s0) + fsw fa1,-128(s0) + fsw fa2,-124(s0) + fsw fa3,-120(s0) + fsw fa4,-116(s0) + fsw fa5,-112(s0) + fsw fa6,-108(s0) + fsw fa7,-104(s0) + fsd fa0,-96(s0) + fsd fa1,-88(s0) + fsd fa2,-80(s0) + fsd fa3,-72(s0) + fsd fa4,-64(s0) + fsd fa5,-56(s0) + fsd fa6,-48(s0) + fsd fa7,-40(s0) + sd a0,-240(s0) + sw zero,-264(s0) + sd zero,-232(s0) + add a0,s0,-264 + sw zero,-224(s0) + sw zero,-208(s0) + sw zero,-136(s0) + jalr t1 + lw t1,-224(s0) + beqz t1,.L1 + li t3,1 + beq t1,t3,.L25 + li t3,2 + beq t1,t3,.L29 + li t3,3 + beq t1,t3,.L25 + li t3,4 + beq t1,t3,.L30 + li t3,5 + beq t1,t3,.L31 + li t3,6 + beq t1,t3,.L32 + li t3,7 + beq t1,t3,.L33 + and t3,t1,-3 + li t4,8 + beq t3,t4,.L27 + li t4,9 + beq t3,t4,.L27 + li t3,12 + beq t1,t3,.L34 + li t3,13 + beq t1,t3,.L35 + li t3,14 + beq t1,t3,.L27 + li t3,15 + bne t1,t3,.L1 + lw t3,-264(s0) + and t3,t3,1024 + beqz t3,.L1 + ld t0,-216(s0) + add t3,t0,-1 + bgtu t3,t1,.L1 + ld t5,-232(s0) + li s1,8 + and t6,t5,7 + add t2,t0,t6 + and t5,t5,-8 + sext.w t6,t6 + sllw t1,t2,3 + ld t4,0(t5) + sll t3,t6,3 + bgtu t0,s1,.L15 + bgtu t2,s1,.L16 + addw t1,t1,-1 + li a0,2 + sll a0,a0,t1 + add a0,a0,-1 + and a0,a0,t4 + sra a0,a0,t3 +.L1: + ld ra,264(sp) + ld s0,256(sp) + ld s1,248(sp) + add sp,sp,288 + jr ra +.L25: + lbu a0,-256(s0) + ld ra,264(sp) + ld s0,256(sp) + ld s1,248(sp) + add sp,sp,288 + jr ra +.L29: + lb a0,-256(s0) + ld ra,264(sp) + ld s0,256(sp) + ld s1,248(sp) + add sp,sp,288 + jr ra +.L30: + lh a0,-256(s0) + j .L1 +.L33: + lwu a0,-256(s0) + j .L1 +.L31: + lhu a0,-256(s0) + j .L1 +.L27: + ld a0,-256(s0) + j .L1 +.L32: + lw a0,-256(s0) + j .L1 +.L34: + flw fa0,-256(s0) + j .L1 +.L35: + fld fa0,-256(s0) + j .L1 +.L15: + li s1,16 + sra t4,t4,t3 + ld t0,8(t5) + bleu t2,s1,.L36 + li a1,-8 + mulw t6,a1,t6 + addw t1,t1,-129 + ld a0,16(t5) + li a1,2 + sll a1,a1,t1 + add a1,a1,-1 + and a1,a1,a0 + sra t3,t0,t3 + addw t1,t6,64 + sll a0,t0,t1 + sll a1,a1,t1 + or a0,a0,t4 + or a1,a1,t3 + j .L1 +.L16: + li a0,-8 + mulw t6,a0,t6 + addw t1,t1,-65 + ld t5,8(t5) + li a0,2 + sll a0,a0,t1 + add a0,a0,-1 + and a0,a0,t5 + sra t4,t4,t3 + sll a0,a0,t6 + or a0,a0,t4 + j .L1 +.L36: + li a1,-4 + mulw t6,a1,t6 + addw t1,t1,-65 + li a0,2 + sll a0,a0,t1 + add a0,a0,-1 + and a0,a0,t0 + sra a1,a0,t3 + addw t1,t6,32 + sll a0,a0,t1 + sll a0,a0,t1 + or a0,a0,t4 + j .L1 + .size vacall_receiver, .-vacall_receiver +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/vacall/vacall-riscv64.c b/vacall/vacall-riscv64.c new file mode 100644 index 0000000..8789968 --- /dev/null +++ b/vacall/vacall-riscv64.c @@ -0,0 +1,238 @@ +/* vacall function for RISC-V 64-bit CPU */ + +/* + * Copyright 1995-2019 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "vacall-internal.h" + +#ifdef REENTRANT +#define vacall_receiver callback_receiver +register struct { void (*vacall_function) (void*,va_alist); void* arg; } + * env __asm__("t2"); +#endif + +register __vaword iarg1 __asm__("a0"); +register __vaword iarg2 __asm__("a1"); +register __vaword iarg3 __asm__("a2"); +register __vaword iarg4 __asm__("a3"); +register __vaword iarg5 __asm__("a4"); +register __vaword iarg6 __asm__("a5"); +register __vaword iarg7 __asm__("a6"); +register __vaword iarg8 __asm__("a7"); + +register float farg1 __asm__("fa0"); +register float farg2 __asm__("fa1"); +register float farg3 __asm__("fa2"); +register float farg4 __asm__("fa3"); +register float farg5 __asm__("fa4"); +register float farg6 __asm__("fa5"); +register float farg7 __asm__("fa6"); +register float farg8 __asm__("fa7"); + +register double darg1 __asm__("fa0"); +register double darg2 __asm__("fa1"); +register double darg3 __asm__("fa2"); +register double darg4 __asm__("fa3"); +register double darg5 __asm__("fa4"); +register double darg6 __asm__("fa5"); +register double darg7 __asm__("fa6"); +register double darg8 __asm__("fa7"); + +register __vaword iret __asm__("a0"); +register __vaword iret2 __asm__("a1"); +register float fret __asm__("fa0"); +register double dret __asm__("fa0"); + +/* The ABI requires that the first 8 general-purpose argument words are + being passed in registers, even if these words belong to structs that are + at most 2 words large. No room is allocated for these register words on + the stack by the caller, but the callee allocates room for them - at the + right place in the stack frame, that is, above the retaddr - if and only + if they are part of a struct that extends to the stack and the address of + this struct is taken. */ +struct gpargsequence { + __vaword word8; /* a7 */ + __vaword firststackword; +}; + +#ifdef REENTRANT +static +#endif +void /* the return type is variable, not void! */ +vacall_receiver (__vaword word1, __vaword word2, __vaword word3, __vaword word4, + __vaword word5, __vaword word6, __vaword word7, + struct gpargsequence gpargs) +{ + __va_alist list; + /* Move the arguments passed in registers to temp storage. */ + list.iarg[0] = iarg1; + list.iarg[1] = iarg2; + list.iarg[2] = iarg3; + list.iarg[3] = iarg4; + list.iarg[4] = iarg5; + list.iarg[5] = iarg6; + list.iarg[6] = iarg7; + list.iarg[7] = iarg8; /* = gpargs.word8 */ + list.farg[0] = farg1; + list.farg[1] = farg2; + list.farg[2] = farg3; + list.farg[3] = farg4; + list.farg[4] = farg5; + list.farg[5] = farg6; + list.farg[6] = farg7; + list.farg[7] = farg8; + list.darg[0] = darg1; + list.darg[1] = darg2; + list.darg[2] = darg3; + list.darg[3] = darg4; + list.darg[4] = darg5; + list.darg[5] = darg6; + list.darg[6] = darg7; + list.darg[7] = darg8; + /* Prepare the va_alist. */ + list.flags = 0; + list.aptr = (long)&gpargs + sizeof(__vaword); + list.raddr = (void*)0; + list.rtype = __VAvoid; + list.ianum = 0; + list.fanum = 0; + /* Call vacall_function. The macros do all the rest. */ +#ifndef REENTRANT + (*vacall_function) (&list); +#else /* REENTRANT */ + (*env->vacall_function) (env->arg,&list); +#endif + /* Put return value into proper register. */ + if (list.rtype == __VAvoid) { + } else + if (list.rtype == __VAchar) { + iret = list.tmp._char; + } else + if (list.rtype == __VAschar) { + iret = list.tmp._schar; + } else + if (list.rtype == __VAuchar) { + iret = list.tmp._uchar; + } else + if (list.rtype == __VAshort) { + iret = list.tmp._short; + } else + if (list.rtype == __VAushort) { + iret = list.tmp._ushort; + } else + if (list.rtype == __VAint) { + iret = list.tmp._int; + } else + if (list.rtype == __VAuint) { + iret = list.tmp._uint; + } else + if (list.rtype == __VAlong || list.rtype == __VAlonglong) { + iret = list.tmp._long; + } else + if (list.rtype == __VAulong || list.rtype == __VAulonglong) { + iret = list.tmp._ulong; + } else + if (list.rtype == __VAfloat) { + fret = list.tmp._float; + } else + if (list.rtype == __VAdouble) { + dret = list.tmp._double; + } else + if (list.rtype == __VAvoidp) { + iret = (long)list.tmp._ptr; + } else + if (list.rtype == __VAstruct) { + /* normal struct return convention */ + if (list.flags & __VA_REGISTER_STRUCT_RETURN) { + /* Return structs of size <= 16 in registers. */ + if (list.rsize > 0 && list.rsize <= 16) { + #if 0 /* Unoptimized */ + iret = (__vaword)((unsigned char *) list.raddr)[0]; + if (list.rsize >= 2) + iret |= (__vaword)((unsigned char *) list.raddr)[1] << 8; + if (list.rsize >= 3) + iret |= (__vaword)((unsigned char *) list.raddr)[2] << 16; + if (list.rsize >= 4) + iret |= (__vaword)((unsigned char *) list.raddr)[3] << 24; + if (list.rsize >= 5) + iret |= (__vaword)((unsigned char *) list.raddr)[4] << 32; + if (list.rsize >= 6) + iret |= (__vaword)((unsigned char *) list.raddr)[5] << 40; + if (list.rsize >= 7) + iret |= (__vaword)((unsigned char *) list.raddr)[6] << 48; + if (list.rsize >= 8) + iret |= (__vaword)((unsigned char *) list.raddr)[7] << 56; + if (list.rsize >= 9) { + iret2 = (__vaword)((unsigned char *) list.raddr)[8]; + if (list.rsize >= 10) + iret2 |= (__vaword)((unsigned char *) list.raddr)[9] << 8; + if (list.rsize >= 11) + iret2 |= (__vaword)((unsigned char *) list.raddr)[10] << 16; + if (list.rsize >= 12) + iret2 |= (__vaword)((unsigned char *) list.raddr)[11] << 24; + if (list.rsize >= 13) + iret2 |= (__vaword)((unsigned char *) list.raddr)[12] << 32; + if (list.rsize >= 14) + iret2 |= (__vaword)((unsigned char *) list.raddr)[13] << 40; + if (list.rsize >= 15) + iret2 |= (__vaword)((unsigned char *) list.raddr)[14] << 48; + if (list.rsize >= 16) + iret2 |= (__vaword)((unsigned char *) list.raddr)[15] << 56; + } + #else /* Optimized: fewer conditional jumps, fewer memory accesses */ + uintptr_t count = list.rsize; /* > 0, ≤ 2*sizeof(__vaword) */ + __vaword* wordaddr = (__vaword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__vaword)-1)); + uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__vaword)-1); /* ≥ 0, < sizeof(__vaword) */ + uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__vaword) */ + if (count <= sizeof(__vaword)) { + /* Assign iret. */ + if (end_offset <= sizeof(__vaword)) { + /* 0 < end_offset ≤ sizeof(__vaword) */ + __vaword mask0 = ((__vaword)2 << (end_offset*8-1)) - 1; + iret = (wordaddr[0] & mask0) >> (start_offset*8); + } else { + /* sizeof(__vaword) < end_offset < 2*sizeof(__vaword), start_offset > 0 */ + __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; + iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*8-start_offset*8)); + } + } else { + /* Assign iret, iret2. */ + if (end_offset <= 2*sizeof(__vaword)) { + /* sizeof(__vaword) < end_offset ≤ 2*sizeof(__vaword) */ + __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; + iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*4-start_offset*4) << (sizeof(__vaword)*4-start_offset*4)); + iret2 = (wordaddr[1] & mask1) >> (start_offset*8); + } else { + /* 2*sizeof(__vaword) < end_offset < 3*sizeof(__vaword), start_offset > 0 */ + __vaword mask2 = ((__vaword)2 << (end_offset*8-2*sizeof(__vaword)*8-1)) - 1; + iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__vaword)*8-start_offset*8)); + iret2 = (wordaddr[1] >> (start_offset*8)) | ((wordaddr[2] & mask2) << (sizeof(__vaword)*8-start_offset*8)); + } + } + #endif + } + } + } +} + +#ifdef REENTRANT +__vacall_r_t +callback_get_receiver (void) +{ + return (__vacall_r_t)(void*)&callback_receiver; +} +#endif diff --git a/vacall/vacall-s390-linux.s b/vacall/vacall-s390-linux.s new file mode 100644 index 0000000..0b0038f --- /dev/null +++ b/vacall/vacall-s390-linux.s @@ -0,0 +1,144 @@ + .file "vacall-s390.c" +.text + .align 4 +.globl vacall_receiver + .type vacall_receiver,@function +vacall_receiver: + stm %r6,%r15,24(%r15) + bras %r13,.LTN0_0 +.LT0_0: +.LC0: + .long vacall_function +.LC1: + .long 0 +.LC2: + .long 255 +.LC3: + .long 65535 +.LC4: + .long 1 +.LTN0_0: + l %r1,.LC0-.LT0_0(%r13) + lr %r14,%r15 + ahi %r15,-184 + lr %r11,%r15 + l %r12,0(%r1) + st %r14,0(%r15) + la %r1,280(%r11) + st %r2,132(%r11) + la %r2,96(%r11) + st %r4,140(%r11) + st %r5,144(%r11) + st %r6,148(%r11) + st %r3,136(%r11) + std %f2,176(%r11) + std %f0,168(%r11) + ste %f2,160(%r11) + ste %f0,156(%r11) + mvc 96(4,%r11),.LC1-.LT0_0(%r13) + st %r1,112(%r11) + mvc 116(4,%r11),.LC1-.LT0_0(%r13) + mvc 120(4,%r11),.LC1-.LT0_0(%r13) + mvc 128(4,%r11),.LC1-.LT0_0(%r13) + mvc 152(4,%r11),.LC1-.LT0_0(%r13) + basr %r14,%r12 + icm %r4,15,120(%r11) + je .L1 + chi %r4,1 + je .L43 + chi %r4,2 + je .L44 + chi %r4,3 + je .L43 + chi %r4,4 + je .L45 + chi %r4,5 + je .L46 + chi %r4,6 + je .L40 + chi %r4,7 + je .L40 + chi %r4,8 + je .L40 + chi %r4,9 + je .L40 + lr %r1,%r4 + ahi %r1,-10 + cl %r1,.LC4-.LT0_0(%r13) + jh .L22 + l %r2,104(%r11) + l %r3,108(%r11) +.L1: + l %r4,240(%r11) + lm %r6,%r15,208(%r11) + br %r4 +.L22: + chi %r4,12 + je .L47 + chi %r4,13 + je .L48 + chi %r4,14 + je .L40 + chi %r4,15 + jne .L1 + tm 98(%r11),4 + je .L1 + l %r1,124(%r11) + chi %r1,1 + je .L49 + chi %r1,2 + je .L50 + chi %r1,4 + je .L51 + chi %r1,8 + jne .L1 + l %r1,116(%r11) + l %r3,4(%r1) +.L39: + l %r2,0(%r1) + j .L1 +.L51: + l %r1,116(%r11) + j .L39 +.L50: + l %r1,116(%r11) + lh %r4,0(%r1) + lr %r2,%r4 +.L41: + n %r2,.LC3-.LT0_0(%r13) + j .L1 +.L49: + l %r1,116(%r11) + ic %r4,0(%r1) + lr %r2,%r4 +.L42: + n %r2,.LC2-.LT0_0(%r13) + j .L1 +.L40: + l %r2,104(%r11) + j .L1 +.L48: + ld %f0,104(%r11) + j .L1 +.L47: + le %f0,104(%r11) + j .L1 +.L46: + lh %r1,104(%r11) + lr %r2,%r1 + j .L41 +.L45: + lh %r2,104(%r11) + j .L1 +.L43: + ic %r1,104(%r11) + lr %r2,%r1 + j .L42 +.L44: + icm %r1,8,104(%r11) + lr %r2,%r1 + sra %r2,24 + j .L1 +.Lfe1: + .size vacall_receiver,.Lfe1-vacall_receiver + .ident "GCC: (GNU) 3.1" diff --git a/vacall/vacall-s390-macro.S b/vacall/vacall-s390-macro.S new file mode 100644 index 0000000..de4c35e --- /dev/null +++ b/vacall/vacall-s390-macro.S @@ -0,0 +1,146 @@ + .file "vacall-s390.c" +.text + .align 4 +.globl vacall_receiver + .type vacall_receiver,@function +vacall_receiver: + stm %r6,%r15,24(%r15) + bras %r13,.LTN0_0 +.LT0_0: +.LC0: + .long vacall_function +.LC1: + .long 0 +.LC2: + .long 255 +.LC3: + .long 65535 +.LC4: + .long 1 +.LTN0_0: + l %r1,.LC0-.LT0_0(%r13) + lr %r14,%r15 + ahi %r15,-184 + lr %r11,%r15 + l %r12,0(%r1) + st %r14,0(%r15) + la %r1,280(%r11) + st %r2,132(%r11) + la %r2,96(%r11) + st %r4,140(%r11) + st %r5,144(%r11) + st %r6,148(%r11) + st %r3,136(%r11) + std %f2,176(%r11) + std %f0,168(%r11) + ste %f2,160(%r11) + ste %f0,156(%r11) + mvc 96(4,%r11),.LC1-.LT0_0(%r13) + st %r1,112(%r11) + mvc 116(4,%r11),.LC1-.LT0_0(%r13) + mvc 120(4,%r11),.LC1-.LT0_0(%r13) + mvc 128(4,%r11),.LC1-.LT0_0(%r13) + mvc 152(4,%r11),.LC1-.LT0_0(%r13) + basr %r14,%r12 + icm %r4,15,120(%r11) + je .L1 + chi %r4,1 + je .L43 + chi %r4,2 + je .L44 + chi %r4,3 + je .L43 + chi %r4,4 + je .L45 + chi %r4,5 + je .L46 + chi %r4,6 + je .L40 + chi %r4,7 + je .L40 + chi %r4,8 + je .L40 + chi %r4,9 + je .L40 + lr %r1,%r4 + ahi %r1,-10 + cl %r1,.LC4-.LT0_0(%r13) + jh .L22 + l %r2,104(%r11) + l %r3,108(%r11) +.L1: + l %r4,240(%r11) + lm %r6,%r15,208(%r11) + br %r4 +.L22: + chi %r4,12 + je .L47 + chi %r4,13 + je .L48 + chi %r4,14 + je .L40 + chi %r4,15 + jne .L1 + tm 98(%r11),4 + je .L1 + l %r1,124(%r11) + chi %r1,1 + je .L49 + chi %r1,2 + je .L50 + chi %r1,4 + je .L51 + chi %r1,8 + jne .L1 + l %r1,116(%r11) + l %r3,4(%r1) +.L39: + l %r2,0(%r1) + j .L1 +.L51: + l %r1,116(%r11) + j .L39 +.L50: + l %r1,116(%r11) + lh %r4,0(%r1) + lr %r2,%r4 +.L41: + n %r2,.LC3-.LT0_0(%r13) + j .L1 +.L49: + l %r1,116(%r11) + ic %r4,0(%r1) + lr %r2,%r4 +.L42: + n %r2,.LC2-.LT0_0(%r13) + j .L1 +.L40: + l %r2,104(%r11) + j .L1 +.L48: + ld %f0,104(%r11) + j .L1 +.L47: + le %f0,104(%r11) + j .L1 +.L46: + lh %r1,104(%r11) + lr %r2,%r1 + j .L41 +.L45: + lh %r2,104(%r11) + j .L1 +.L43: + ic %r1,104(%r11) + lr %r2,%r1 + j .L42 +.L44: + icm %r1,8,104(%r11) + lr %r2,%r1 + sra %r2,24 + j .L1 +.Lfe1: + .size vacall_receiver,.Lfe1-vacall_receiver +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/vacall/vacall-s390.c b/vacall/vacall-s390.c new file mode 100644 index 0000000..261d190 --- /dev/null +++ b/vacall/vacall-s390.c @@ -0,0 +1,142 @@ +/* vacall function for S/390 32-bit CPU */ + +/* + * Copyright 1995-2017 Bruno Haible + * Copyright 2000 Adam Fedor + * Copyright 2001 Gerhard Tonn + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "vacall-internal.h" + +#ifdef REENTRANT +#define vacall_receiver callback_receiver +register struct { void (*vacall_function) (void*,va_alist); void* arg; } + * env __asm__("r0"); +#endif +register float farg1 __asm__("f0"); +register float farg2 __asm__("f2"); +register double darg1 __asm__("f0"); +register double darg2 __asm__("f2"); +register __vaword iret __asm__("%r2"); +register __vaword iret2 __asm__("%r3"); +register float fret __asm__("%f0"); +register double dret __asm__("%f0"); + +#ifdef REENTRANT +static +#endif +void /* the return type is variable, not void! */ +vacall_receiver (__vaword word1, __vaword word2, __vaword word3, __vaword word4, + __vaword word5, + __vaword firstword) +{ + __va_alist list; + /* Move the arguments passed in registers to temp storage, since + moving them to the stack would mess up the stack */ + list.iarg[0] = word1; + list.iarg[1] = word2; + list.iarg[2] = word3; + list.iarg[3] = word4; + list.iarg[4] = word5; + + list.darg[1] = darg2; + list.darg[0] = darg1; + + list.farg[1] = farg2; + list.farg[0] = farg1; + + /* Prepare the va_alist. */ + list.flags = 0; + list.aptr = (long)&firstword; + list.raddr = (void*)0; + list.rtype = __VAvoid; + list.ianum = 0; + list.fanum = 0; + /* Call vacall_function. The macros do all the rest. */ +#ifndef REENTRANT + (*vacall_function) (&list); +#else /* REENTRANT */ + (*env->vacall_function) (env->arg,&list); +#endif + /* Put return value into proper register. */ + if (list.rtype == __VAvoid) { + } else + if (list.rtype == __VAchar) { + iret = list.tmp._char; + } else + if (list.rtype == __VAschar) { + iret = list.tmp._schar; + } else + if (list.rtype == __VAuchar) { + iret = list.tmp._uchar; + } else + if (list.rtype == __VAshort) { + iret = list.tmp._short; + } else + if (list.rtype == __VAushort) { + iret = list.tmp._ushort; + } else + if (list.rtype == __VAint) { + iret = list.tmp._int; + } else + if (list.rtype == __VAuint) { + iret = list.tmp._uint; + } else + if (list.rtype == __VAlong) { + iret = list.tmp._long; + } else + if (list.rtype == __VAulong) { + iret = list.tmp._ulong; + } else + if (list.rtype == __VAlonglong || list.rtype == __VAulonglong) { + iret = ((__vaword *) &list.tmp._longlong)[0]; + iret2 = ((__vaword *) &list.tmp._longlong)[1]; + } else + if (list.rtype == __VAfloat) { + fret = list.tmp._float; + } else + if (list.rtype == __VAdouble) { + dret = list.tmp._double; + } else + if (list.rtype == __VAvoidp) { + iret = (long)list.tmp._ptr; + } else + if (list.rtype == __VAstruct) { + if (list.flags & __VA_REGISTER_STRUCT_RETURN) { + if (list.rsize == sizeof(char)) { + iret = *(unsigned char *) list.raddr; + } else + if (list.rsize == sizeof(short)) { + iret = *(unsigned short *) list.raddr; + } else + if (list.rsize == sizeof(int)) { + iret = *(unsigned int *) list.raddr; + } else + if (list.rsize == 2*sizeof(__vaword)) { + iret = ((__vaword *) list.raddr)[0]; + iret2 = ((__vaword *) list.raddr)[1]; + } + } + } +} + +#ifdef REENTRANT +__vacall_r_t +callback_get_receiver (void) +{ + return (__vacall_r_t)(void*)&callback_receiver; +} +#endif diff --git a/vacall/vacall-s390x-linux.s b/vacall/vacall-s390x-linux.s new file mode 100644 index 0000000..a94a1a8 --- /dev/null +++ b/vacall/vacall-s390x-linux.s @@ -0,0 +1,127 @@ + .file "vacall-s390x.c" +.text + .align 8 +.globl vacall_receiver + .type vacall_receiver, @function +vacall_receiver: +.LFB0: + .cfi_startproc + stmg %r11,%r15,88(%r15) + .cfi_offset 11, -72 + .cfi_offset 12, -64 + .cfi_offset 13, -56 + .cfi_offset 14, -48 + .cfi_offset 15, -40 + aghi %r15,-320 + .cfi_def_cfa_offset 480 + lgr %r11,%r15 + .cfi_def_cfa_register 11 + larl %r1,vacall_function + lhi %r0,0 + lg %r1,0(%r1) + st %r0,160(%r11) + la %r0,480(%r11) + stg %r0,184(%r11) + lghi %r0,0 + stg %r2,224(%r11) + stg %r3,232(%r11) + stg %r4,240(%r11) + stg %r5,248(%r11) + stg %r6,256(%r11) + ste %f0,268(%r11) + ste %f2,272(%r11) + ste %f4,276(%r11) + ste %f6,280(%r11) + std %f0,288(%r11) + std %f2,296(%r11) + std %f4,304(%r11) + std %f6,312(%r11) + stg %r0,192(%r11) + st %r0,200(%r11) + st %r0,216(%r11) + st %r0,264(%r11) + la %r2,160(%r11) + basr %r14,%r1 + icm %r1,15,200(%r11) + je .L1 + chi %r1,1 + je .L18 + chi %r1,2 + je .L21 + chi %r1,3 + je .L18 + chi %r1,4 + je .L22 + chi %r1,5 + je .L23 + chi %r1,6 + je .L24 + chi %r1,7 + je .L25 + lr %r0,%r1 + nill %r0,65533 + chi %r0,8 + je .L19 + chi %r0,9 + je .L19 + chi %r1,12 + je .L26 + chi %r1,13 + je .L27 + chi %r1,14 + je .L19 +.L1: + lg %r4,432(%r11) + lmg %r11,%r15,408(%r11) + .cfi_remember_state + .cfi_restore 15 + .cfi_restore 14 + .cfi_restore 13 + .cfi_restore 12 + .cfi_restore 11 + .cfi_def_cfa 15, 160 + br %r4 +.L18: + .cfi_restore_state + lg %r4,432(%r11) + llgc %r2,168(%r11) + lmg %r11,%r15,408(%r11) + .cfi_remember_state + .cfi_restore 11 + .cfi_restore 12 + .cfi_restore 13 + .cfi_restore 14 + .cfi_restore 15 + .cfi_def_cfa 15, 160 + br %r4 +.L21: + .cfi_restore_state + icmh %r2,8,168(%r11) + srag %r2,%r2,56 + j .L1 +.L19: + lg %r2,168(%r11) + j .L1 +.L22: + lgh %r2,168(%r11) + j .L1 +.L23: + llgh %r2,168(%r11) + j .L1 +.L24: + lgf %r2,168(%r11) + j .L1 +.L26: + le %f0,168(%r11) + j .L1 +.L25: + llgf %r2,168(%r11) + j .L1 +.L27: + ld %f0,168(%r11) + j .L1 + .cfi_endproc +.LFE0: + .size vacall_receiver, .-vacall_receiver + .ident "GCC: (GNU) 5.4.0" + .section .note.GNU-stack,"",@progbits diff --git a/vacall/vacall-s390x-macro.S b/vacall/vacall-s390x-macro.S new file mode 100644 index 0000000..bd0c96c --- /dev/null +++ b/vacall/vacall-s390x-macro.S @@ -0,0 +1,128 @@ + .file "vacall-s390x.c" +.text + .align 8 +.globl vacall_receiver + .type vacall_receiver, @function +vacall_receiver: +.LFB0: + .cfi_startproc + stmg %r11,%r15,88(%r15) + .cfi_offset 11, -72 + .cfi_offset 12, -64 + .cfi_offset 13, -56 + .cfi_offset 14, -48 + .cfi_offset 15, -40 + aghi %r15,-320 + .cfi_def_cfa_offset 480 + lgr %r11,%r15 + .cfi_def_cfa_register 11 + larl %r1,vacall_function + lhi %r0,0 + lg %r1,0(%r1) + st %r0,160(%r11) + la %r0,480(%r11) + stg %r0,184(%r11) + lghi %r0,0 + stg %r2,224(%r11) + stg %r3,232(%r11) + stg %r4,240(%r11) + stg %r5,248(%r11) + stg %r6,256(%r11) + ste %f0,268(%r11) + ste %f2,272(%r11) + ste %f4,276(%r11) + ste %f6,280(%r11) + std %f0,288(%r11) + std %f2,296(%r11) + std %f4,304(%r11) + std %f6,312(%r11) + stg %r0,192(%r11) + st %r0,200(%r11) + st %r0,216(%r11) + st %r0,264(%r11) + la %r2,160(%r11) + basr %r14,%r1 + icm %r1,15,200(%r11) + je .L1 + chi %r1,1 + je .L18 + chi %r1,2 + je .L21 + chi %r1,3 + je .L18 + chi %r1,4 + je .L22 + chi %r1,5 + je .L23 + chi %r1,6 + je .L24 + chi %r1,7 + je .L25 + lr %r0,%r1 + nill %r0,65533 + chi %r0,8 + je .L19 + chi %r0,9 + je .L19 + chi %r1,12 + je .L26 + chi %r1,13 + je .L27 + chi %r1,14 + je .L19 +.L1: + lg %r4,432(%r11) + lmg %r11,%r15,408(%r11) + .cfi_remember_state + .cfi_restore 15 + .cfi_restore 14 + .cfi_restore 13 + .cfi_restore 12 + .cfi_restore 11 + .cfi_def_cfa 15, 160 + br %r4 +.L18: + .cfi_restore_state + lg %r4,432(%r11) + llgc %r2,168(%r11) + lmg %r11,%r15,408(%r11) + .cfi_remember_state + .cfi_restore 11 + .cfi_restore 12 + .cfi_restore 13 + .cfi_restore 14 + .cfi_restore 15 + .cfi_def_cfa 15, 160 + br %r4 +.L21: + .cfi_restore_state + icmh %r2,8,168(%r11) + srag %r2,%r2,56 + j .L1 +.L19: + lg %r2,168(%r11) + j .L1 +.L22: + lgh %r2,168(%r11) + j .L1 +.L23: + llgh %r2,168(%r11) + j .L1 +.L24: + lgf %r2,168(%r11) + j .L1 +.L26: + le %f0,168(%r11) + j .L1 +.L25: + llgf %r2,168(%r11) + j .L1 +.L27: + ld %f0,168(%r11) + j .L1 + .cfi_endproc +.LFE0: + .size vacall_receiver, .-vacall_receiver +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/vacall/vacall-s390x.c b/vacall/vacall-s390x.c new file mode 100644 index 0000000..c3cb71f --- /dev/null +++ b/vacall/vacall-s390x.c @@ -0,0 +1,134 @@ +/* vacall function for s390x (S/390 64-bit) CPU */ + +/* + * Copyright 1995-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "vacall-internal.h" + +#ifdef REENTRANT +#define vacall_receiver callback_receiver +register struct { void (*vacall_function) (void*,va_alist); void* arg; } + * env __asm__("r0"); +#endif + +register __vaword iarg1 __asm__("r2"); +register __vaword iarg2 __asm__("r3"); +register __vaword iarg3 __asm__("r4"); +register __vaword iarg4 __asm__("r5"); +register __vaword iarg5 __asm__("r6"); + +register float farg1 __asm__("f0"); +register float farg2 __asm__("f2"); +register float farg3 __asm__("f4"); +register float farg4 __asm__("f6"); + +register double darg1 __asm__("f0"); +register double darg2 __asm__("f2"); +register double darg3 __asm__("f4"); +register double darg4 __asm__("f6"); + +register __vaword iret __asm__("r2"); +register float fret __asm__("f0"); +register double dret __asm__("f0"); + +#ifdef REENTRANT +static +#endif +void /* the return type is variable, not void! */ +vacall_receiver (__vaword word1, __vaword word2, __vaword word3, __vaword word4, + __vaword word5, + __vaword firstword) +{ + __va_alist list; + /* Move the arguments passed in registers to temp storage. */ + list.iarg[0] = iarg1; + list.iarg[1] = iarg2; + list.iarg[2] = iarg3; + list.iarg[3] = iarg4; + list.iarg[4] = iarg5; + list.farg[0] = farg1; + list.farg[1] = farg2; + list.farg[2] = farg3; + list.farg[3] = farg4; + list.darg[0] = darg1; + list.darg[1] = darg2; + list.darg[2] = darg3; + list.darg[3] = darg4; + /* Prepare the va_alist. */ + list.flags = 0; + list.aptr = (long)&firstword; + list.raddr = (void*)0; + list.rtype = __VAvoid; + list.ianum = 0; + list.fanum = 0; + /* Call vacall_function. The macros do all the rest. */ +#ifndef REENTRANT + (*vacall_function) (&list); +#else /* REENTRANT */ + (*env->vacall_function) (env->arg,&list); +#endif + /* Put return value into proper register. */ + if (list.rtype == __VAvoid) { + } else + if (list.rtype == __VAchar) { + iret = list.tmp._char; + } else + if (list.rtype == __VAschar) { + iret = list.tmp._schar; + } else + if (list.rtype == __VAuchar) { + iret = list.tmp._uchar; + } else + if (list.rtype == __VAshort) { + iret = list.tmp._short; + } else + if (list.rtype == __VAushort) { + iret = list.tmp._ushort; + } else + if (list.rtype == __VAint) { + iret = list.tmp._int; + } else + if (list.rtype == __VAuint) { + iret = list.tmp._uint; + } else + if (list.rtype == __VAlong || list.rtype == __VAlonglong) { + iret = list.tmp._long; + } else + if (list.rtype == __VAulong || list.rtype == __VAulonglong) { + iret = list.tmp._ulong; + } else + if (list.rtype == __VAfloat) { + fret = list.tmp._float; + } else + if (list.rtype == __VAdouble) { + dret = list.tmp._double; + } else + if (list.rtype == __VAvoidp) { + iret = (long)list.tmp._ptr; + } else + if (list.rtype == __VAstruct) { + /* normal struct return convention */ + } +} + +#ifdef REENTRANT +__vacall_r_t +callback_get_receiver (void) +{ + return (__vacall_r_t)(void*)&callback_receiver; +} +#endif diff --git a/vacall/vacall-sparc-linux-pic.s b/vacall/vacall-sparc-linux-pic.s new file mode 100644 index 0000000..48f6d61 --- /dev/null +++ b/vacall/vacall-sparc-linux-pic.s @@ -0,0 +1,138 @@ + .file "vacall-sparc.c" + .section ".text" + .align 4 +.LLGETPC0: + retl + add %o7, %l7, %l7 + .align 4 + .global vacall_receiver + .type vacall_receiver,#function + .proc 020 +vacall_receiver: + !#PROLOGUE# 0 + save %sp, -144, %sp + sethi %hi(vacall_function), %o0 + sethi %hi(_GLOBAL_OFFSET_TABLE_-4), %l7 + call .LLGETPC0 + add %l7, %lo(_GLOBAL_OFFSET_TABLE_+4), %l7 + or %o0, %lo(vacall_function), %o0 + ld [%l7+%o0], %o1 + st %i2, [%fp+76] + ld [%o1], %o2 + add %fp, 68, %o0 + ld [%fp+64], %o1 + st %o0, [%fp-32] + st %o1, [%fp-16] + st %i3, [%fp+80] + st %i4, [%fp+84] + st %i5, [%fp+88] + st %i0, [%fp+68] + st %i1, [%fp+72] + st %g0, [%fp-48] + st %g0, [%fp-28] + st %g0, [%fp-24] + call %o2, 0 + add %fp, -48, %o0 + ld [%fp-24], %o1 + cmp %o1, 0 + be .LL1 + cmp %o1, 1 + be .LL44 + cmp %o1, 2 + be .LL44 + cmp %o1, 3 + be .LL45 + cmp %o1, 4 + be .LL46 + cmp %o1, 5 + be .LL47 + cmp %o1, 6 + be .LL43 + cmp %o1, 7 + be .LL43 + cmp %o1, 8 + be .LL43 + cmp %o1, 9 + be .LL43 + add %o1, -10, %o0 + cmp %o0, 1 + bgu .LL22 + cmp %o1, 12 + ld [%fp-40], %i0 + b .LL1 + ld [%fp-36], %i1 +.LL22: + be .LL48 + cmp %o1, 13 + be .LL49 + cmp %o1, 14 + be .LL43 + cmp %o1, 15 + bne .LL1 + ld [%fp-48], %o0 + andcc %o0, 16, %g0 + be .LL33 + andcc %o0, 2, %g0 + ld [%fp-20], %o0 + ld [%i7+8], %o1 + and %o0, 4095, %o0 + cmp %o0, %o1 + bne .LL1 + ld [%fp-28], %i0 + b .LL1 + add %i7, 4, %i7 +.LL33: + be,a .LL1 + add %i7, 4, %i7 + ld [%fp-20], %o0 + cmp %o0, 1 + be .LL50 + cmp %o0, 2 + be .LL51 + cmp %o0, 4 + bne,a .LL1 + add %i7, 4, %i7 + ld [%fp-28], %o0 + b .LL1 + ld [%o0], %i0 +.LL51: + ld [%fp-28], %o0 + b .LL1 + lduh [%o0], %i0 +.LL50: + ld [%fp-28], %o0 + b .LL1 + ldub [%o0], %i0 +.LL43: + b .LL1 + ld [%fp-40], %i0 +.LL49: + b .LL1 + ldd [%fp-40], %f0 +.LL48: + ld [%fp-48], %o0 + andcc %o0, 32, %g0 + be,a .LL1 + ld [%fp-40], %f0 + ld [%fp-40], %f2 + b .LL1 + fstod %f2, %f0 +.LL47: + b .LL1 + lduh [%fp-40], %i0 +.LL46: + b .LL1 + ldsh [%fp-40], %i0 +.LL45: + b .LL1 + ldub [%fp-40], %i0 +.LL44: + ldsb [%fp-40], %i0 +.LL38: +.LL1: + nop + ret + restore +.LLfe1: + .size vacall_receiver,.LLfe1-vacall_receiver + .ident "GCC: (GNU) 3.1" diff --git a/vacall/vacall-sparc-linux.s b/vacall/vacall-sparc-linux.s new file mode 100644 index 0000000..770fd06 --- /dev/null +++ b/vacall/vacall-sparc-linux.s @@ -0,0 +1,130 @@ + .file "vacall-sparc.c" + .section ".text" + .align 4 + .global vacall_receiver + .type vacall_receiver,#function + .proc 020 +vacall_receiver: + !#PROLOGUE# 0 + save %sp, -144, %sp + !#PROLOGUE# 1 + sethi %hi(vacall_function), %o0 + ld [%o0+%lo(vacall_function)], %o2 + st %i2, [%fp+76] + add %fp, 68, %o0 + ld [%fp+64], %o1 + st %o0, [%fp-32] + st %o1, [%fp-16] + st %i3, [%fp+80] + st %i4, [%fp+84] + st %i5, [%fp+88] + st %i0, [%fp+68] + st %i1, [%fp+72] + st %g0, [%fp-48] + st %g0, [%fp-28] + st %g0, [%fp-24] + call %o2, 0 + add %fp, -48, %o0 + ld [%fp-24], %o1 + cmp %o1, 0 + be .LL1 + cmp %o1, 1 + be .LL44 + cmp %o1, 2 + be .LL44 + cmp %o1, 3 + be .LL45 + cmp %o1, 4 + be .LL46 + cmp %o1, 5 + be .LL47 + cmp %o1, 6 + be .LL43 + cmp %o1, 7 + be .LL43 + cmp %o1, 8 + be .LL43 + cmp %o1, 9 + be .LL43 + add %o1, -10, %o0 + cmp %o0, 1 + bgu .LL22 + cmp %o1, 12 + ld [%fp-40], %i0 + b .LL1 + ld [%fp-36], %i1 +.LL22: + be .LL48 + cmp %o1, 13 + be .LL49 + cmp %o1, 14 + be .LL43 + cmp %o1, 15 + bne .LL1 + ld [%fp-48], %o0 + andcc %o0, 16, %g0 + be .LL33 + andcc %o0, 2, %g0 + ld [%fp-20], %o0 + ld [%i7+8], %o1 + and %o0, 4095, %o0 + cmp %o0, %o1 + bne .LL1 + ld [%fp-28], %i0 + b .LL1 + add %i7, 4, %i7 +.LL33: + be,a .LL1 + add %i7, 4, %i7 + ld [%fp-20], %o0 + cmp %o0, 1 + be .LL50 + cmp %o0, 2 + be .LL51 + cmp %o0, 4 + bne,a .LL1 + add %i7, 4, %i7 + ld [%fp-28], %o0 + b .LL1 + ld [%o0], %i0 +.LL51: + ld [%fp-28], %o0 + b .LL1 + lduh [%o0], %i0 +.LL50: + ld [%fp-28], %o0 + b .LL1 + ldub [%o0], %i0 +.LL43: + b .LL1 + ld [%fp-40], %i0 +.LL49: + b .LL1 + ldd [%fp-40], %f0 +.LL48: + ld [%fp-48], %o0 + andcc %o0, 32, %g0 + be,a .LL1 + ld [%fp-40], %f0 + ld [%fp-40], %f2 + b .LL1 + fstod %f2, %f0 +.LL47: + b .LL1 + lduh [%fp-40], %i0 +.LL46: + b .LL1 + ldsh [%fp-40], %i0 +.LL45: + b .LL1 + ldub [%fp-40], %i0 +.LL44: + ldsb [%fp-40], %i0 +.LL38: +.LL1: + nop + ret + restore +.LLfe1: + .size vacall_receiver,.LLfe1-vacall_receiver + .ident "GCC: (GNU) 3.1" diff --git a/vacall/vacall-sparc-macro.S b/vacall/vacall-sparc-macro.S new file mode 100644 index 0000000..d776589 --- /dev/null +++ b/vacall/vacall-sparc-macro.S @@ -0,0 +1,271 @@ +#include "asm-sparc.h" +#ifdef __PIC__ + .section ".text" + .align 4 +L(LGETPC0): + retl + add %o7, %l7, %l7 + .align 4 + .global C(vacall_receiver) + DECLARE_FUNCTION(vacall_receiver) + .proc 020 +FUNBEGIN(vacall_receiver) + !$PROLOGUE$ 0 + save %sp, -144, %sp + sethi %hi(C(vacall_function)), %o0 + sethi %hi(_GLOBAL_OFFSET_TABLE_-4), %l7 + call L(LGETPC0) + add %l7, %lo(_GLOBAL_OFFSET_TABLE_+4), %l7 + or %o0, %lo(C(vacall_function)), %o0 + ld [%l7+%o0], %o1 + st %i2, [%fp+76] + ld [%o1], %o2 + add %fp, 68, %o0 + ld [%fp+64], %o1 + st %o0, [%fp-32] + st %o1, [%fp-16] + st %i3, [%fp+80] + st %i4, [%fp+84] + st %i5, [%fp+88] + st %i0, [%fp+68] + st %i1, [%fp+72] + st %g0, [%fp-48] + st %g0, [%fp-28] + st %g0, [%fp-24] + call %o2, 0 + add %fp, -48, %o0 + ld [%fp-24], %o1 + cmp %o1, 0 + be L(L1) + cmp %o1, 1 + be L(L44) + cmp %o1, 2 + be L(L44) + cmp %o1, 3 + be L(L45) + cmp %o1, 4 + be L(L46) + cmp %o1, 5 + be L(L47) + cmp %o1, 6 + be L(L43) + cmp %o1, 7 + be L(L43) + cmp %o1, 8 + be L(L43) + cmp %o1, 9 + be L(L43) + add %o1, -10, %o0 + cmp %o0, 1 + bgu L(L22) + cmp %o1, 12 + ld [%fp-40], %i0 + b L(L1) + ld [%fp-36], %i1 +L(L22): + be L(L48) + cmp %o1, 13 + be L(L49) + cmp %o1, 14 + be L(L43) + cmp %o1, 15 + bne L(L1) + ld [%fp-48], %o0 + andcc %o0, 16, %g0 + be L(L33) + andcc %o0, 2, %g0 + ld [%fp-20], %o0 + ld [%i7+8], %o1 + and %o0, 4095, %o0 + cmp %o0, %o1 + bne L(L1) + ld [%fp-28], %i0 + b L(L1) + add %i7, 4, %i7 +L(L33): + be,a L(L1) + add %i7, 4, %i7 + ld [%fp-20], %o0 + cmp %o0, 1 + be L(L50) + cmp %o0, 2 + be L(L51) + cmp %o0, 4 + bne,a L(L1) + add %i7, 4, %i7 + ld [%fp-28], %o0 + b L(L1) + ld [%o0], %i0 +L(L51): + ld [%fp-28], %o0 + b L(L1) + lduh [%o0], %i0 +L(L50): + ld [%fp-28], %o0 + b L(L1) + ldub [%o0], %i0 +L(L43): + b L(L1) + ld [%fp-40], %i0 +L(L49): + b L(L1) + ldd [%fp-40], %f0 +L(L48): + ld [%fp-48], %o0 + andcc %o0, 32, %g0 + be,a L(L1) + ld [%fp-40], %f0 + ld [%fp-40], %f2 + b L(L1) + fstod %f2, %f0 +L(L47): + b L(L1) + lduh [%fp-40], %i0 +L(L46): + b L(L1) + ldsh [%fp-40], %i0 +L(L45): + b L(L1) + ldub [%fp-40], %i0 +L(L44): + ldsb [%fp-40], %i0 +L(L38): +L(L1): + nop + ret + restore +L(Lfe1): + FUNEND(vacall_receiver) +#else + .section ".text" + .align 4 + .global C(vacall_receiver) + DECLARE_FUNCTION(vacall_receiver) + .proc 020 +FUNBEGIN(vacall_receiver) + !$PROLOGUE$ 0 + save %sp, -144, %sp + !$PROLOGUE$ 1 + sethi %hi(C(vacall_function)), %o0 + ld [%o0+%lo(C(vacall_function))], %o2 + st %i2, [%fp+76] + add %fp, 68, %o0 + ld [%fp+64], %o1 + st %o0, [%fp-32] + st %o1, [%fp-16] + st %i3, [%fp+80] + st %i4, [%fp+84] + st %i5, [%fp+88] + st %i0, [%fp+68] + st %i1, [%fp+72] + st %g0, [%fp-48] + st %g0, [%fp-28] + st %g0, [%fp-24] + call %o2, 0 + add %fp, -48, %o0 + ld [%fp-24], %o1 + cmp %o1, 0 + be L(L1) + cmp %o1, 1 + be L(L44) + cmp %o1, 2 + be L(L44) + cmp %o1, 3 + be L(L45) + cmp %o1, 4 + be L(L46) + cmp %o1, 5 + be L(L47) + cmp %o1, 6 + be L(L43) + cmp %o1, 7 + be L(L43) + cmp %o1, 8 + be L(L43) + cmp %o1, 9 + be L(L43) + add %o1, -10, %o0 + cmp %o0, 1 + bgu L(L22) + cmp %o1, 12 + ld [%fp-40], %i0 + b L(L1) + ld [%fp-36], %i1 +L(L22): + be L(L48) + cmp %o1, 13 + be L(L49) + cmp %o1, 14 + be L(L43) + cmp %o1, 15 + bne L(L1) + ld [%fp-48], %o0 + andcc %o0, 16, %g0 + be L(L33) + andcc %o0, 2, %g0 + ld [%fp-20], %o0 + ld [%i7+8], %o1 + and %o0, 4095, %o0 + cmp %o0, %o1 + bne L(L1) + ld [%fp-28], %i0 + b L(L1) + add %i7, 4, %i7 +L(L33): + be,a L(L1) + add %i7, 4, %i7 + ld [%fp-20], %o0 + cmp %o0, 1 + be L(L50) + cmp %o0, 2 + be L(L51) + cmp %o0, 4 + bne,a L(L1) + add %i7, 4, %i7 + ld [%fp-28], %o0 + b L(L1) + ld [%o0], %i0 +L(L51): + ld [%fp-28], %o0 + b L(L1) + lduh [%o0], %i0 +L(L50): + ld [%fp-28], %o0 + b L(L1) + ldub [%o0], %i0 +L(L43): + b L(L1) + ld [%fp-40], %i0 +L(L49): + b L(L1) + ldd [%fp-40], %f0 +L(L48): + ld [%fp-48], %o0 + andcc %o0, 32, %g0 + be,a L(L1) + ld [%fp-40], %f0 + ld [%fp-40], %f2 + b L(L1) + fstod %f2, %f0 +L(L47): + b L(L1) + lduh [%fp-40], %i0 +L(L46): + b L(L1) + ldsh [%fp-40], %i0 +L(L45): + b L(L1) + ldub [%fp-40], %i0 +L(L44): + ldsb [%fp-40], %i0 +L(L38): +L(L1): + nop + ret + restore +L(Lfe1): + FUNEND(vacall_receiver) +#endif +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/vacall/vacall-sparc.c b/vacall/vacall-sparc.c new file mode 100644 index 0000000..787b3f2 --- /dev/null +++ b/vacall/vacall-sparc.c @@ -0,0 +1,141 @@ +/* vacall function for sparc CPU */ + +/* + * Copyright 1995-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "vacall-internal.h" + +#ifdef REENTRANT +#define vacall_receiver callback_receiver +register struct { void (*vacall_function) (void*,va_alist); void* arg; } + * env __asm__("%g2"); +#endif +register __vaword* fp __asm__("%fp"); /* our %fp, caller's %sp */ +register __vaword* ret __asm__("%i7"); /* %i7+8 = return address */ +register int iret __asm__("%i0"); +register int iret2 __asm__("%i1"); +register float fret __asm__("%f0"); /* %f0 */ +register double dret __asm__("%f0"); /* %f0,%f1 */ + +void /* the return type is variable, not void! */ +vacall_receiver (__vaword word1, __vaword word2, __vaword word3, __vaword word4, + __vaword word5, __vaword word6, + __vaword firstword) +{ + __va_alist list; + /* gcc-2.6.3 source says: When a parameter is passed in a register, + * stack space is still allocated for it. + */ + /* Move the arguments passed in registers to their stack locations. */ + (&firstword)[-6] = word1; + (&firstword)[-5] = word2; + (&firstword)[-4] = word3; + (&firstword)[-3] = word4; + (&firstword)[-2] = word5; + (&firstword)[-1] = word6; + /* Prepare the va_alist. */ + list.flags = 0; + list.aptr = (long)(&firstword - 6); + list.raddr = (void*)0; + list.rtype = __VAvoid; + list.structraddr = (void*)((&firstword)[-7]); /* = (void*) fp[16] */ + /* Call vacall_function. The macros do all the rest. */ +#ifndef REENTRANT + (*vacall_function) (&list); +#else /* REENTRANT */ + (*env->vacall_function) (env->arg,&list); +#endif + /* Put return value into proper register. */ + if (list.rtype == __VAvoid) { + } else + if (list.rtype == __VAchar) { + iret = list.tmp._char; + } else + if (list.rtype == __VAschar) { + iret = list.tmp._schar; + } else + if (list.rtype == __VAuchar) { + iret = list.tmp._uchar; + } else + if (list.rtype == __VAshort) { + iret = list.tmp._short; + } else + if (list.rtype == __VAushort) { + iret = list.tmp._ushort; + } else + if (list.rtype == __VAint) { + iret = list.tmp._int; + } else + if (list.rtype == __VAuint) { + iret = list.tmp._uint; + } else + if (list.rtype == __VAlong) { + iret = list.tmp._long; + } else + if (list.rtype == __VAulong) { + iret = list.tmp._ulong; + } else + if (list.rtype == __VAlonglong || list.rtype == __VAulonglong) { + iret = ((__vaword *) &list.tmp._longlong)[0]; + iret2 = ((__vaword *) &list.tmp._longlong)[1]; + } else + if (list.rtype == __VAfloat) { + if (list.flags & __VA_SUNCC_FLOAT_RETURN) { + dret = (double)list.tmp._float; + } else { + fret = list.tmp._float; + } + } else + if (list.rtype == __VAdouble) { + dret = list.tmp._double; + } else + if (list.rtype == __VAvoidp) { + iret = (long)list.tmp._ptr; + } else + if (list.rtype == __VAstruct) { + if (list.flags & __VA_SUNPROCC_STRUCT_RETURN) { + /* Sun cc struct return convention. */ + /* The desired struct return address was passed in fp[16], later on + * list.raddr = list.structraddr = fp[16]. Now the result has + * already been copied there. No need to copy the result once more. + * The caller expects to receive the struct return address in %o0. + */ + iret = (long) list.raddr; + if ((list.rsize & 0xfff) == ret[2]) + ret++; /* skip the "unimp n" instruction at the return address */ + /* else the "unimp n" instruction will cause a core dump */ + } else { + /* normal struct return convention */ + if (list.flags & __VA_SMALL_STRUCT_RETURN) { + if (list.rsize == sizeof(char)) { + iret = *(unsigned char *) list.raddr; + goto done; + } else + if (list.rsize == sizeof(short)) { + iret = *(unsigned short *) list.raddr; + goto done; + } else + if (list.rsize == sizeof(int)) { + iret = *(unsigned int *) list.raddr; + goto done; + } + } + ret++; /* skip the "unimp n" instruction at the return address */ + done: ; + } + } +} diff --git a/vacall/vacall-sparc64-linux-pic.s b/vacall/vacall-sparc64-linux-pic.s new file mode 100644 index 0000000..6d22787 --- /dev/null +++ b/vacall/vacall-sparc64-linux-pic.s @@ -0,0 +1,328 @@ + .file "vacall-sparc64.c" + .section ".text" + .align 4 +.LLADDPC0: + jmp %o7+8 + add %o7, %l7, %l7 + .align 4 + .global vacall_receiver + .type vacall_receiver, #function + .proc 020 +vacall_receiver: + .register %g2, #scratch + .register %g3, #scratch + save %sp, -448, %sp + add %fp, 2175, %g1 + stx %i0, [%fp+2175] + stx %i1, [%fp+2183] + stx %i2, [%fp+2191] + stx %i3, [%fp+2199] + stx %i4, [%fp+2207] + stx %i5, [%fp+2215] + std %f0, [%fp+1903] + std %f2, [%fp+1911] + std %f4, [%fp+1919] + std %f6, [%fp+1927] + std %f8, [%fp+1935] + std %f10, [%fp+1943] + std %f12, [%fp+1951] + std %f14, [%fp+1959] + std %f16, [%fp+1967] + std %f18, [%fp+1975] + std %f20, [%fp+1983] + std %f22, [%fp+1991] + std %f24, [%fp+1999] + std %f26, [%fp+2007] + std %f28, [%fp+2015] + std %f30, [%fp+2023] + st %f1, [%fp+1835] + st %f3, [%fp+1839] + st %f5, [%fp+1843] + st %f7, [%fp+1847] + st %f9, [%fp+1851] + st %f11, [%fp+1855] + st %f13, [%fp+1859] + st %f15, [%fp+1863] + st %f17, [%fp+1867] + st %f19, [%fp+1871] + st %f21, [%fp+1875] + sethi %hi(_GLOBAL_OFFSET_TABLE_-4), %l7 + call .LLADDPC0 + add %l7, %lo(_GLOBAL_OFFSET_TABLE_+4), %l7 + st %f23, [%fp+1879] + stx %g1, [%fp+1799] + sethi %hi(vacall_function), %g1 + or %g1, %lo(vacall_function), %g1 + st %f25, [%fp+1883] + ldx [%l7+%g1], %g2 + st %f27, [%fp+1887] + st %f29, [%fp+1891] + st %f31, [%fp+1895] + st %g0, [%fp+1775] + stx %g0, [%fp+1807] + st %g0, [%fp+1815] + st %g0, [%fp+1831] + ldx [%g2], %g3 + call %g3, 0 + add %fp, 1775, %o0 + lduw [%fp+1815], %g1 + cmp %g1, 0 + be,pn %icc, .LL61 + cmp %g1, 1 + be,pn %icc, .LL50 + cmp %g1, 2 + be,pn %icc, .LL50 + cmp %g1, 3 + be,pn %icc, .LL53 + cmp %g1, 4 + be,pn %icc, .LL54 + cmp %g1, 5 + be,pn %icc, .LL55 + cmp %g1, 6 + be,pn %icc, .LL56 + cmp %g1, 7 + be,pn %icc, .LL57 + cmp %g1, 8 + be,pn %icc, .LL51 + cmp %g1, 9 + be,pn %icc, .LL51 + cmp %g1, 10 + be,pn %icc, .LL51 + cmp %g1, 11 + be,pn %icc, .LL51 + cmp %g1, 12 + be,pn %icc, .LL58 + cmp %g1, 13 + be,pn %icc, .LL59 + cmp %g1, 14 + be,pn %icc, .LL51 + cmp %g1, 15 + bne,pt %icc, .LL61 + lduw [%fp+1775], %g1 + andcc %g1, 1024, %g0 + be,pn %xcc, .LL61 + ldx [%fp+1823], %g5 + add %g5, -1, %g1 + cmp %g1, 31 + bgu,pn %xcc, .LL61 + ldx [%fp+1807], %g1 + cmp %g5, 8 + and %g1, 7, %o2 + and %g1, -8, %l0 + bgu,pt %xcc, .LL35 + add %g5, %o2, %g2 + cmp %g2, 8 + bgu,pt %xcc, .LL37 + sllx %o2, 3, %g4 + sllx %g2, 3, %g2 + ldx [%l0], %g3 + sub %g0, %g2, %g2 + mov -1, %g1 + sllx %g1, %g2, %g1 + and %g1, %g3, %g1 + return %i7+8 + sllx %g1, %g4, %o0 +.LL47: + ldx [%l0], %g1 + sllx %g1, %o4, %g1 + ldx [%l0+8], %g4 + ldx [%l0+16], %g5 + sllx %g4, %o4, %o1 + sllx %g5, %o4, %o0 + ldx [%l0+24], %o5 + sllx %g2, 3, %o3 + sllx %o5, %o4, %o7 + ldx [%l0+32], %o2 + sub %g0, %o3, %o3 + mov 64, %g3 + sub %g3, %o4, %g3 + srax %g4, %g3, %g4 + srax %g5, %g3, %g5 + or %g1, %g4, %i0 + srax %o5, %g3, %o5 + mov -1, %g1 + or %o1, %g5, %i1 + sllx %g1, %o3, %g1 + or %o0, %o5, %i2 + and %g1, %o2, %g1 + srax %g1, %g3, %g1 + or %o7, %g1, %i3 +.LL61: + return %i7+8 + nop +.LL50: + ldsb [%fp+1783], %i0 + return %i7+8 + nop +.LL54: + ldsh [%fp+1783], %i0 + return %i7+8 + nop +.LL53: + ldub [%fp+1783], %i0 + return %i7+8 + nop +.LL51: + ldx [%fp+1783], %i0 + return %i7+8 + nop +.LL55: + lduh [%fp+1783], %i0 + return %i7+8 + nop +.LL56: + ldsw [%fp+1783], %i0 + return %i7+8 + nop +.LL57: + lduw [%fp+1783], %i0 + return %i7+8 + nop +.LL58: + ld [%fp+1783], %f0 + return %i7+8 + nop +.LL59: + ldd [%fp+1783], %f0 + return %i7+8 + nop +.LL35: + cmp %g5, 16 + bgu,pt %xcc, .LL39 + cmp %g5, 24 + cmp %g2, 16 + bgu,pt %xcc, .LL41 + sllx %o2, 3, %o5 + sllx %g2, 3, %g3 + ldx [%l0+8], %g2 + sll %o2, 3, %g5 + sllx %o2, 2, %o5 + sub %g0, %g3, %g3 + ldx [%l0], %g4 + mov -1, %g1 + sllx %g4, %g5, %g4 + sllx %g1, %g3, %g1 + and %g1, %g2, %g1 + mov 32, %g2 + sllx %g1, %g5, %i1 + sub %g2, %o5, %g2 + srax %g1, %g2, %g1 + srax %g1, %g2, %g1 + return %i7+8 + or %g4, %g1, %o0 +.LL37: + sllx %g2, 3, %g3 + ldx [%l0+8], %g5 + sub %g0, %g3, %g3 + sub %g0, %g4, %o5 + ldx [%l0], %g2 + mov -1, %g1 + sllx %g2, %g4, %g2 + sllx %g1, %g3, %g1 + and %g1, %g5, %g1 + srax %g1, %o5, %g1 + return %i7+8 + or %g2, %g1, %o0 +.LL39: + bgu,pt %xcc, .LL43 + cmp %g2, 32 + cmp %g2, 24 + bgu,pt %xcc, .LL45 + sllx %o2, 3, %o4 + sllx %o2, 2, %g1 + sll %o2, 3, %g5 + sllx %g2, 3, %o5 + ldx [%l0+8], %g3 + ldx [%l0+16], %o4 + sllx %g3, %g5, %o3 + sub %g0, %o5, %o5 + mov 32, %g4 + ldx [%l0], %g2 + sub %g4, %g1, %g4 + sllx %g2, %g5, %g2 + srax %g3, %g4, %g3 + mov -1, %g1 + srax %g3, %g4, %g3 + sllx %g1, %o5, %g1 + and %g1, %o4, %g1 + sllx %g1, %g5, %i2 + srax %g1, %g4, %g1 + srax %g1, %g4, %g1 + or %o3, %g1, %i1 + return %i7+8 + or %g2, %g3, %o0 +.LL41: + sllx %g2, 3, %g5 + ldx [%l0+8], %g3 + ldx [%l0+16], %o4 + sllx %g3, %o5, %o3 + sub %g0, %g5, %g5 + mov 64, %g4 + ldx [%l0], %g2 + sub %g4, %o5, %g4 + sllx %g2, %o5, %g2 + srax %g3, %g4, %g3 + mov -1, %g1 + sllx %g1, %g5, %g1 + and %g1, %o4, %g1 + srax %g1, %g4, %g1 + or %o3, %g1, %i1 + return %i7+8 + or %g2, %g3, %o0 +.LL45: + ldx [%l0], %g1 + sllx %g1, %o4, %g1 + ldx [%l0+8], %g3 + ldx [%l0+16], %g4 + sllx %g3, %o4, %o3 + sllx %g4, %o4, %o1 + sllx %g2, 3, %o5 + ldx [%l0+24], %o2 + sub %g0, %o5, %o5 + mov 64, %g5 + sub %g5, %o4, %g5 + srax %g3, %g5, %g3 + srax %g4, %g5, %g4 + or %g1, %g3, %i0 + or %o3, %g4, %i1 + mov -1, %g1 + sllx %g1, %o5, %g1 + and %g1, %o2, %g1 + srax %g1, %g5, %g1 + or %o1, %g1, %i2 + return %i7+8 + nop +.LL43: + bgu,pt %xcc, .LL47 + sllx %o2, 3, %o4 + sll %o2, 3, %o5 + ldx [%l0], %g1 + sllx %g1, %o5, %g1 + sllx %o2, 2, %o4 + sllx %g2, 3, %g5 + ldx [%l0+8], %g3 + ldx [%l0+16], %g4 + sllx %g3, %o5, %o2 + sllx %g4, %o5, %o1 + ldx [%l0+24], %o3 + sub %g0, %g5, %g5 + mov 32, %g2 + sub %g2, %o4, %g2 + srax %g3, %g2, %g3 + srax %g4, %g2, %g4 + srax %g3, %g2, %g3 + srax %g4, %g2, %g4 + or %g1, %g3, %i0 + or %o2, %g4, %i1 + mov -1, %g1 + sllx %g1, %g5, %g1 + and %g1, %o3, %g1 + sllx %g1, %o5, %i3 + srax %g1, %g2, %g1 + srax %g1, %g2, %g1 + or %o1, %g1, %i2 + return %i7+8 + nop + .size vacall_receiver, .-vacall_receiver + .ident "GCC: (GNU) 4.0.2" + .section ".note.GNU-stack" diff --git a/vacall/vacall-sparc64-linux.s b/vacall/vacall-sparc64-linux.s new file mode 100644 index 0000000..92c18cf --- /dev/null +++ b/vacall/vacall-sparc64-linux.s @@ -0,0 +1,323 @@ + .file "vacall-sparc64.c" + .section ".text" + .align 4 + .global vacall_receiver + .type vacall_receiver, #function + .proc 020 +vacall_receiver: + .register %g2, #scratch + .register %g3, #scratch + save %sp, -448, %sp + add %fp, 2175, %g1 + stx %i0, [%fp+2175] + stx %i1, [%fp+2183] + stx %i2, [%fp+2191] + stx %i3, [%fp+2199] + stx %i4, [%fp+2207] + stx %i5, [%fp+2215] + std %f0, [%fp+1903] + std %f2, [%fp+1911] + std %f4, [%fp+1919] + std %f6, [%fp+1927] + std %f8, [%fp+1935] + std %f10, [%fp+1943] + std %f12, [%fp+1951] + std %f14, [%fp+1959] + std %f16, [%fp+1967] + std %f18, [%fp+1975] + std %f20, [%fp+1983] + std %f22, [%fp+1991] + std %f24, [%fp+1999] + std %f26, [%fp+2007] + std %f28, [%fp+2015] + std %f30, [%fp+2023] + st %f1, [%fp+1835] + st %f3, [%fp+1839] + st %f5, [%fp+1843] + st %f7, [%fp+1847] + st %f9, [%fp+1851] + st %f11, [%fp+1855] + st %f13, [%fp+1859] + st %f15, [%fp+1863] + st %f17, [%fp+1867] + st %f19, [%fp+1871] + st %f21, [%fp+1875] + sethi %lm(vacall_function), %g2 + st %f23, [%fp+1879] + stx %g1, [%fp+1799] + st %f25, [%fp+1883] + st %f27, [%fp+1887] + st %f29, [%fp+1891] + st %f31, [%fp+1895] + st %g0, [%fp+1775] + stx %g0, [%fp+1807] + st %g0, [%fp+1815] + st %g0, [%fp+1831] + sethi %hh(vacall_function), %g1 + or %g1, %hm(vacall_function), %g1 + sllx %g1, 32, %g1 + add %g1, %g2, %g1 + ldx [%g1+%lo(vacall_function)], %g3 + call %g3, 0 + add %fp, 1775, %o0 + lduw [%fp+1815], %g1 + cmp %g1, 0 + be,pn %icc, .LL61 + cmp %g1, 1 + be,pn %icc, .LL50 + cmp %g1, 2 + be,pn %icc, .LL50 + cmp %g1, 3 + be,pn %icc, .LL53 + cmp %g1, 4 + be,pn %icc, .LL54 + cmp %g1, 5 + be,pn %icc, .LL55 + cmp %g1, 6 + be,pn %icc, .LL56 + cmp %g1, 7 + be,pn %icc, .LL57 + cmp %g1, 8 + be,pn %icc, .LL51 + cmp %g1, 9 + be,pn %icc, .LL51 + cmp %g1, 10 + be,pn %icc, .LL51 + cmp %g1, 11 + be,pn %icc, .LL51 + cmp %g1, 12 + be,pn %icc, .LL58 + cmp %g1, 13 + be,pn %icc, .LL59 + cmp %g1, 14 + be,pn %icc, .LL51 + cmp %g1, 15 + bne,pt %icc, .LL61 + lduw [%fp+1775], %g1 + andcc %g1, 1024, %g0 + be,pn %xcc, .LL61 + ldx [%fp+1823], %g5 + add %g5, -1, %g1 + cmp %g1, 31 + bgu,pn %xcc, .LL61 + ldx [%fp+1807], %g1 + cmp %g5, 8 + and %g1, 7, %o2 + and %g1, -8, %l0 + bgu,pt %xcc, .LL35 + add %g5, %o2, %g2 + cmp %g2, 8 + bgu,pt %xcc, .LL37 + sllx %o2, 3, %g4 + sllx %g2, 3, %g2 + ldx [%l0], %g3 + sub %g0, %g2, %g2 + mov -1, %g1 + sllx %g1, %g2, %g1 + and %g1, %g3, %g1 + return %i7+8 + sllx %g1, %g4, %o0 +.LL47: + ldx [%l0], %g1 + sllx %g1, %o4, %g1 + ldx [%l0+8], %g4 + ldx [%l0+16], %g5 + sllx %g4, %o4, %o1 + sllx %g5, %o4, %o0 + ldx [%l0+24], %o5 + sllx %g2, 3, %o3 + sllx %o5, %o4, %o7 + ldx [%l0+32], %o2 + sub %g0, %o3, %o3 + mov 64, %g3 + sub %g3, %o4, %g3 + srax %g4, %g3, %g4 + srax %g5, %g3, %g5 + or %g1, %g4, %i0 + srax %o5, %g3, %o5 + mov -1, %g1 + or %o1, %g5, %i1 + sllx %g1, %o3, %g1 + or %o0, %o5, %i2 + and %g1, %o2, %g1 + srax %g1, %g3, %g1 + or %o7, %g1, %i3 +.LL61: + return %i7+8 + nop +.LL50: + ldsb [%fp+1783], %i0 + return %i7+8 + nop +.LL54: + ldsh [%fp+1783], %i0 + return %i7+8 + nop +.LL53: + ldub [%fp+1783], %i0 + return %i7+8 + nop +.LL51: + ldx [%fp+1783], %i0 + return %i7+8 + nop +.LL55: + lduh [%fp+1783], %i0 + return %i7+8 + nop +.LL56: + ldsw [%fp+1783], %i0 + return %i7+8 + nop +.LL57: + lduw [%fp+1783], %i0 + return %i7+8 + nop +.LL58: + ld [%fp+1783], %f0 + return %i7+8 + nop +.LL59: + ldd [%fp+1783], %f0 + return %i7+8 + nop +.LL35: + cmp %g5, 16 + bgu,pt %xcc, .LL39 + cmp %g5, 24 + cmp %g2, 16 + bgu,pt %xcc, .LL41 + sllx %o2, 3, %o5 + sllx %g2, 3, %g3 + ldx [%l0+8], %g2 + sll %o2, 3, %g5 + sllx %o2, 2, %o5 + sub %g0, %g3, %g3 + ldx [%l0], %g4 + mov -1, %g1 + sllx %g4, %g5, %g4 + sllx %g1, %g3, %g1 + and %g1, %g2, %g1 + mov 32, %g2 + sllx %g1, %g5, %i1 + sub %g2, %o5, %g2 + srax %g1, %g2, %g1 + srax %g1, %g2, %g1 + return %i7+8 + or %g4, %g1, %o0 +.LL37: + sllx %g2, 3, %g3 + ldx [%l0+8], %g5 + sub %g0, %g3, %g3 + sub %g0, %g4, %o5 + ldx [%l0], %g2 + mov -1, %g1 + sllx %g2, %g4, %g2 + sllx %g1, %g3, %g1 + and %g1, %g5, %g1 + srax %g1, %o5, %g1 + return %i7+8 + or %g2, %g1, %o0 +.LL39: + bgu,pt %xcc, .LL43 + cmp %g2, 32 + cmp %g2, 24 + bgu,pt %xcc, .LL45 + sllx %o2, 3, %o4 + sllx %o2, 2, %g1 + sll %o2, 3, %g5 + sllx %g2, 3, %o5 + ldx [%l0+8], %g3 + ldx [%l0+16], %o4 + sllx %g3, %g5, %o3 + sub %g0, %o5, %o5 + mov 32, %g4 + ldx [%l0], %g2 + sub %g4, %g1, %g4 + sllx %g2, %g5, %g2 + srax %g3, %g4, %g3 + mov -1, %g1 + srax %g3, %g4, %g3 + sllx %g1, %o5, %g1 + and %g1, %o4, %g1 + sllx %g1, %g5, %i2 + srax %g1, %g4, %g1 + srax %g1, %g4, %g1 + or %o3, %g1, %i1 + return %i7+8 + or %g2, %g3, %o0 +.LL41: + sllx %g2, 3, %g5 + ldx [%l0+8], %g3 + ldx [%l0+16], %o4 + sllx %g3, %o5, %o3 + sub %g0, %g5, %g5 + mov 64, %g4 + ldx [%l0], %g2 + sub %g4, %o5, %g4 + sllx %g2, %o5, %g2 + srax %g3, %g4, %g3 + mov -1, %g1 + sllx %g1, %g5, %g1 + and %g1, %o4, %g1 + srax %g1, %g4, %g1 + or %o3, %g1, %i1 + return %i7+8 + or %g2, %g3, %o0 +.LL45: + ldx [%l0], %g1 + sllx %g1, %o4, %g1 + ldx [%l0+8], %g3 + ldx [%l0+16], %g4 + sllx %g3, %o4, %o3 + sllx %g4, %o4, %o1 + sllx %g2, 3, %o5 + ldx [%l0+24], %o2 + sub %g0, %o5, %o5 + mov 64, %g5 + sub %g5, %o4, %g5 + srax %g3, %g5, %g3 + srax %g4, %g5, %g4 + or %g1, %g3, %i0 + or %o3, %g4, %i1 + mov -1, %g1 + sllx %g1, %o5, %g1 + and %g1, %o2, %g1 + srax %g1, %g5, %g1 + or %o1, %g1, %i2 + return %i7+8 + nop +.LL43: + bgu,pt %xcc, .LL47 + sllx %o2, 3, %o4 + sll %o2, 3, %o5 + ldx [%l0], %g1 + sllx %g1, %o5, %g1 + sllx %o2, 2, %o4 + sllx %g2, 3, %g5 + ldx [%l0+8], %g3 + ldx [%l0+16], %g4 + sllx %g3, %o5, %o2 + sllx %g4, %o5, %o1 + ldx [%l0+24], %o3 + sub %g0, %g5, %g5 + mov 32, %g2 + sub %g2, %o4, %g2 + srax %g3, %g2, %g3 + srax %g4, %g2, %g4 + srax %g3, %g2, %g3 + srax %g4, %g2, %g4 + or %g1, %g3, %i0 + or %o2, %g4, %i1 + mov -1, %g1 + sllx %g1, %g5, %g1 + and %g1, %o3, %g1 + sllx %g1, %o5, %i3 + srax %g1, %g2, %g1 + srax %g1, %g2, %g1 + or %o1, %g1, %i2 + return %i7+8 + nop + .size vacall_receiver, .-vacall_receiver + .ident "GCC: (GNU) 4.0.2" + .section ".note.GNU-stack" diff --git a/vacall/vacall-sparc64-macro.S b/vacall/vacall-sparc64-macro.S new file mode 100644 index 0000000..841398d --- /dev/null +++ b/vacall/vacall-sparc64-macro.S @@ -0,0 +1,652 @@ +#include "asm-sparc.h" +#ifdef __PIC__ + .section ".text" + .align 4 +L(LADDPC0): + jmp %o7+8 + add %o7, %l7, %l7 + .align 4 + .global C(vacall_receiver) + DECLARE_FUNCTION(vacall_receiver) + .proc 020 +FUNBEGIN(vacall_receiver) + .register %g2, $scratch + .register %g3, $scratch + save %sp, -448, %sp + add %fp, 2175, %g1 + stx %i0, [%fp+2175] + stx %i1, [%fp+2183] + stx %i2, [%fp+2191] + stx %i3, [%fp+2199] + stx %i4, [%fp+2207] + stx %i5, [%fp+2215] + std %f0, [%fp+1903] + std %f2, [%fp+1911] + std %f4, [%fp+1919] + std %f6, [%fp+1927] + std %f8, [%fp+1935] + std %f10, [%fp+1943] + std %f12, [%fp+1951] + std %f14, [%fp+1959] + std %f16, [%fp+1967] + std %f18, [%fp+1975] + std %f20, [%fp+1983] + std %f22, [%fp+1991] + std %f24, [%fp+1999] + std %f26, [%fp+2007] + std %f28, [%fp+2015] + std %f30, [%fp+2023] + st %f1, [%fp+1835] + st %f3, [%fp+1839] + st %f5, [%fp+1843] + st %f7, [%fp+1847] + st %f9, [%fp+1851] + st %f11, [%fp+1855] + st %f13, [%fp+1859] + st %f15, [%fp+1863] + st %f17, [%fp+1867] + st %f19, [%fp+1871] + st %f21, [%fp+1875] + sethi %hi(_GLOBAL_OFFSET_TABLE_-4), %l7 + call L(LADDPC0) + add %l7, %lo(_GLOBAL_OFFSET_TABLE_+4), %l7 + st %f23, [%fp+1879] + stx %g1, [%fp+1799] + sethi %hi(C(vacall_function)), %g1 + or %g1, %lo(C(vacall_function)), %g1 + st %f25, [%fp+1883] + ldx [%l7+%g1], %g2 + st %f27, [%fp+1887] + st %f29, [%fp+1891] + st %f31, [%fp+1895] + st %g0, [%fp+1775] + stx %g0, [%fp+1807] + st %g0, [%fp+1815] + st %g0, [%fp+1831] + ldx [%g2], %g3 + call %g3, 0 + add %fp, 1775, %o0 + lduw [%fp+1815], %g1 + cmp %g1, 0 + be,pn %icc, L(L61) + cmp %g1, 1 + be,pn %icc, L(L50) + cmp %g1, 2 + be,pn %icc, L(L50) + cmp %g1, 3 + be,pn %icc, L(L53) + cmp %g1, 4 + be,pn %icc, L(L54) + cmp %g1, 5 + be,pn %icc, L(L55) + cmp %g1, 6 + be,pn %icc, L(L56) + cmp %g1, 7 + be,pn %icc, L(L57) + cmp %g1, 8 + be,pn %icc, L(L51) + cmp %g1, 9 + be,pn %icc, L(L51) + cmp %g1, 10 + be,pn %icc, L(L51) + cmp %g1, 11 + be,pn %icc, L(L51) + cmp %g1, 12 + be,pn %icc, L(L58) + cmp %g1, 13 + be,pn %icc, L(L59) + cmp %g1, 14 + be,pn %icc, L(L51) + cmp %g1, 15 + bne,pt %icc, L(L61) + lduw [%fp+1775], %g1 + andcc %g1, 1024, %g0 + be,pn %xcc, L(L61) + ldx [%fp+1823], %g5 + add %g5, -1, %g1 + cmp %g1, 31 + bgu,pn %xcc, L(L61) + ldx [%fp+1807], %g1 + cmp %g5, 8 + and %g1, 7, %o2 + and %g1, -8, %l0 + bgu,pt %xcc, L(L35) + add %g5, %o2, %g2 + cmp %g2, 8 + bgu,pt %xcc, L(L37) + sllx %o2, 3, %g4 + sllx %g2, 3, %g2 + ldx [%l0], %g3 + sub %g0, %g2, %g2 + mov -1, %g1 + sllx %g1, %g2, %g1 + and %g1, %g3, %g1 + return %i7+8 + sllx %g1, %g4, %o0 +L(L47): + ldx [%l0], %g1 + sllx %g1, %o4, %g1 + ldx [%l0+8], %g4 + ldx [%l0+16], %g5 + sllx %g4, %o4, %o1 + sllx %g5, %o4, %o0 + ldx [%l0+24], %o5 + sllx %g2, 3, %o3 + sllx %o5, %o4, %o7 + ldx [%l0+32], %o2 + sub %g0, %o3, %o3 + mov 64, %g3 + sub %g3, %o4, %g3 + srax %g4, %g3, %g4 + srax %g5, %g3, %g5 + or %g1, %g4, %i0 + srax %o5, %g3, %o5 + mov -1, %g1 + or %o1, %g5, %i1 + sllx %g1, %o3, %g1 + or %o0, %o5, %i2 + and %g1, %o2, %g1 + srax %g1, %g3, %g1 + or %o7, %g1, %i3 +L(L61): + return %i7+8 + nop +L(L50): + ldsb [%fp+1783], %i0 + return %i7+8 + nop +L(L54): + ldsh [%fp+1783], %i0 + return %i7+8 + nop +L(L53): + ldub [%fp+1783], %i0 + return %i7+8 + nop +L(L51): + ldx [%fp+1783], %i0 + return %i7+8 + nop +L(L55): + lduh [%fp+1783], %i0 + return %i7+8 + nop +L(L56): + ldsw [%fp+1783], %i0 + return %i7+8 + nop +L(L57): + lduw [%fp+1783], %i0 + return %i7+8 + nop +L(L58): + ld [%fp+1783], %f0 + return %i7+8 + nop +L(L59): + ldd [%fp+1783], %f0 + return %i7+8 + nop +L(L35): + cmp %g5, 16 + bgu,pt %xcc, L(L39) + cmp %g5, 24 + cmp %g2, 16 + bgu,pt %xcc, L(L41) + sllx %o2, 3, %o5 + sllx %g2, 3, %g3 + ldx [%l0+8], %g2 + sll %o2, 3, %g5 + sllx %o2, 2, %o5 + sub %g0, %g3, %g3 + ldx [%l0], %g4 + mov -1, %g1 + sllx %g4, %g5, %g4 + sllx %g1, %g3, %g1 + and %g1, %g2, %g1 + mov 32, %g2 + sllx %g1, %g5, %i1 + sub %g2, %o5, %g2 + srax %g1, %g2, %g1 + srax %g1, %g2, %g1 + return %i7+8 + or %g4, %g1, %o0 +L(L37): + sllx %g2, 3, %g3 + ldx [%l0+8], %g5 + sub %g0, %g3, %g3 + sub %g0, %g4, %o5 + ldx [%l0], %g2 + mov -1, %g1 + sllx %g2, %g4, %g2 + sllx %g1, %g3, %g1 + and %g1, %g5, %g1 + srax %g1, %o5, %g1 + return %i7+8 + or %g2, %g1, %o0 +L(L39): + bgu,pt %xcc, L(L43) + cmp %g2, 32 + cmp %g2, 24 + bgu,pt %xcc, L(L45) + sllx %o2, 3, %o4 + sllx %o2, 2, %g1 + sll %o2, 3, %g5 + sllx %g2, 3, %o5 + ldx [%l0+8], %g3 + ldx [%l0+16], %o4 + sllx %g3, %g5, %o3 + sub %g0, %o5, %o5 + mov 32, %g4 + ldx [%l0], %g2 + sub %g4, %g1, %g4 + sllx %g2, %g5, %g2 + srax %g3, %g4, %g3 + mov -1, %g1 + srax %g3, %g4, %g3 + sllx %g1, %o5, %g1 + and %g1, %o4, %g1 + sllx %g1, %g5, %i2 + srax %g1, %g4, %g1 + srax %g1, %g4, %g1 + or %o3, %g1, %i1 + return %i7+8 + or %g2, %g3, %o0 +L(L41): + sllx %g2, 3, %g5 + ldx [%l0+8], %g3 + ldx [%l0+16], %o4 + sllx %g3, %o5, %o3 + sub %g0, %g5, %g5 + mov 64, %g4 + ldx [%l0], %g2 + sub %g4, %o5, %g4 + sllx %g2, %o5, %g2 + srax %g3, %g4, %g3 + mov -1, %g1 + sllx %g1, %g5, %g1 + and %g1, %o4, %g1 + srax %g1, %g4, %g1 + or %o3, %g1, %i1 + return %i7+8 + or %g2, %g3, %o0 +L(L45): + ldx [%l0], %g1 + sllx %g1, %o4, %g1 + ldx [%l0+8], %g3 + ldx [%l0+16], %g4 + sllx %g3, %o4, %o3 + sllx %g4, %o4, %o1 + sllx %g2, 3, %o5 + ldx [%l0+24], %o2 + sub %g0, %o5, %o5 + mov 64, %g5 + sub %g5, %o4, %g5 + srax %g3, %g5, %g3 + srax %g4, %g5, %g4 + or %g1, %g3, %i0 + or %o3, %g4, %i1 + mov -1, %g1 + sllx %g1, %o5, %g1 + and %g1, %o2, %g1 + srax %g1, %g5, %g1 + or %o1, %g1, %i2 + return %i7+8 + nop +L(L43): + bgu,pt %xcc, L(L47) + sllx %o2, 3, %o4 + sll %o2, 3, %o5 + ldx [%l0], %g1 + sllx %g1, %o5, %g1 + sllx %o2, 2, %o4 + sllx %g2, 3, %g5 + ldx [%l0+8], %g3 + ldx [%l0+16], %g4 + sllx %g3, %o5, %o2 + sllx %g4, %o5, %o1 + ldx [%l0+24], %o3 + sub %g0, %g5, %g5 + mov 32, %g2 + sub %g2, %o4, %g2 + srax %g3, %g2, %g3 + srax %g4, %g2, %g4 + srax %g3, %g2, %g3 + srax %g4, %g2, %g4 + or %g1, %g3, %i0 + or %o2, %g4, %i1 + mov -1, %g1 + sllx %g1, %g5, %g1 + and %g1, %o3, %g1 + sllx %g1, %o5, %i3 + srax %g1, %g2, %g1 + srax %g1, %g2, %g1 + or %o1, %g1, %i2 + return %i7+8 + nop + FUNEND(vacall_receiver) +#else + .section ".text" + .align 4 + .global C(vacall_receiver) + DECLARE_FUNCTION(vacall_receiver) + .proc 020 +FUNBEGIN(vacall_receiver) + .register %g2, $scratch + .register %g3, $scratch + save %sp, -448, %sp + add %fp, 2175, %g1 + stx %i0, [%fp+2175] + stx %i1, [%fp+2183] + stx %i2, [%fp+2191] + stx %i3, [%fp+2199] + stx %i4, [%fp+2207] + stx %i5, [%fp+2215] + std %f0, [%fp+1903] + std %f2, [%fp+1911] + std %f4, [%fp+1919] + std %f6, [%fp+1927] + std %f8, [%fp+1935] + std %f10, [%fp+1943] + std %f12, [%fp+1951] + std %f14, [%fp+1959] + std %f16, [%fp+1967] + std %f18, [%fp+1975] + std %f20, [%fp+1983] + std %f22, [%fp+1991] + std %f24, [%fp+1999] + std %f26, [%fp+2007] + std %f28, [%fp+2015] + std %f30, [%fp+2023] + st %f1, [%fp+1835] + st %f3, [%fp+1839] + st %f5, [%fp+1843] + st %f7, [%fp+1847] + st %f9, [%fp+1851] + st %f11, [%fp+1855] + st %f13, [%fp+1859] + st %f15, [%fp+1863] + st %f17, [%fp+1867] + st %f19, [%fp+1871] + st %f21, [%fp+1875] + sethi %lm(C(vacall_function)), %g2 + st %f23, [%fp+1879] + stx %g1, [%fp+1799] + st %f25, [%fp+1883] + st %f27, [%fp+1887] + st %f29, [%fp+1891] + st %f31, [%fp+1895] + st %g0, [%fp+1775] + stx %g0, [%fp+1807] + st %g0, [%fp+1815] + st %g0, [%fp+1831] + sethi %hh(C(vacall_function)), %g1 + or %g1, %hm(C(vacall_function)), %g1 + sllx %g1, 32, %g1 + add %g1, %g2, %g1 + ldx [%g1+%lo(C(vacall_function))], %g3 + call %g3, 0 + add %fp, 1775, %o0 + lduw [%fp+1815], %g1 + cmp %g1, 0 + be,pn %icc, L(L61) + cmp %g1, 1 + be,pn %icc, L(L50) + cmp %g1, 2 + be,pn %icc, L(L50) + cmp %g1, 3 + be,pn %icc, L(L53) + cmp %g1, 4 + be,pn %icc, L(L54) + cmp %g1, 5 + be,pn %icc, L(L55) + cmp %g1, 6 + be,pn %icc, L(L56) + cmp %g1, 7 + be,pn %icc, L(L57) + cmp %g1, 8 + be,pn %icc, L(L51) + cmp %g1, 9 + be,pn %icc, L(L51) + cmp %g1, 10 + be,pn %icc, L(L51) + cmp %g1, 11 + be,pn %icc, L(L51) + cmp %g1, 12 + be,pn %icc, L(L58) + cmp %g1, 13 + be,pn %icc, L(L59) + cmp %g1, 14 + be,pn %icc, L(L51) + cmp %g1, 15 + bne,pt %icc, L(L61) + lduw [%fp+1775], %g1 + andcc %g1, 1024, %g0 + be,pn %xcc, L(L61) + ldx [%fp+1823], %g5 + add %g5, -1, %g1 + cmp %g1, 31 + bgu,pn %xcc, L(L61) + ldx [%fp+1807], %g1 + cmp %g5, 8 + and %g1, 7, %o2 + and %g1, -8, %l0 + bgu,pt %xcc, L(L35) + add %g5, %o2, %g2 + cmp %g2, 8 + bgu,pt %xcc, L(L37) + sllx %o2, 3, %g4 + sllx %g2, 3, %g2 + ldx [%l0], %g3 + sub %g0, %g2, %g2 + mov -1, %g1 + sllx %g1, %g2, %g1 + and %g1, %g3, %g1 + return %i7+8 + sllx %g1, %g4, %o0 +L(L47): + ldx [%l0], %g1 + sllx %g1, %o4, %g1 + ldx [%l0+8], %g4 + ldx [%l0+16], %g5 + sllx %g4, %o4, %o1 + sllx %g5, %o4, %o0 + ldx [%l0+24], %o5 + sllx %g2, 3, %o3 + sllx %o5, %o4, %o7 + ldx [%l0+32], %o2 + sub %g0, %o3, %o3 + mov 64, %g3 + sub %g3, %o4, %g3 + srax %g4, %g3, %g4 + srax %g5, %g3, %g5 + or %g1, %g4, %i0 + srax %o5, %g3, %o5 + mov -1, %g1 + or %o1, %g5, %i1 + sllx %g1, %o3, %g1 + or %o0, %o5, %i2 + and %g1, %o2, %g1 + srax %g1, %g3, %g1 + or %o7, %g1, %i3 +L(L61): + return %i7+8 + nop +L(L50): + ldsb [%fp+1783], %i0 + return %i7+8 + nop +L(L54): + ldsh [%fp+1783], %i0 + return %i7+8 + nop +L(L53): + ldub [%fp+1783], %i0 + return %i7+8 + nop +L(L51): + ldx [%fp+1783], %i0 + return %i7+8 + nop +L(L55): + lduh [%fp+1783], %i0 + return %i7+8 + nop +L(L56): + ldsw [%fp+1783], %i0 + return %i7+8 + nop +L(L57): + lduw [%fp+1783], %i0 + return %i7+8 + nop +L(L58): + ld [%fp+1783], %f0 + return %i7+8 + nop +L(L59): + ldd [%fp+1783], %f0 + return %i7+8 + nop +L(L35): + cmp %g5, 16 + bgu,pt %xcc, L(L39) + cmp %g5, 24 + cmp %g2, 16 + bgu,pt %xcc, L(L41) + sllx %o2, 3, %o5 + sllx %g2, 3, %g3 + ldx [%l0+8], %g2 + sll %o2, 3, %g5 + sllx %o2, 2, %o5 + sub %g0, %g3, %g3 + ldx [%l0], %g4 + mov -1, %g1 + sllx %g4, %g5, %g4 + sllx %g1, %g3, %g1 + and %g1, %g2, %g1 + mov 32, %g2 + sllx %g1, %g5, %i1 + sub %g2, %o5, %g2 + srax %g1, %g2, %g1 + srax %g1, %g2, %g1 + return %i7+8 + or %g4, %g1, %o0 +L(L37): + sllx %g2, 3, %g3 + ldx [%l0+8], %g5 + sub %g0, %g3, %g3 + sub %g0, %g4, %o5 + ldx [%l0], %g2 + mov -1, %g1 + sllx %g2, %g4, %g2 + sllx %g1, %g3, %g1 + and %g1, %g5, %g1 + srax %g1, %o5, %g1 + return %i7+8 + or %g2, %g1, %o0 +L(L39): + bgu,pt %xcc, L(L43) + cmp %g2, 32 + cmp %g2, 24 + bgu,pt %xcc, L(L45) + sllx %o2, 3, %o4 + sllx %o2, 2, %g1 + sll %o2, 3, %g5 + sllx %g2, 3, %o5 + ldx [%l0+8], %g3 + ldx [%l0+16], %o4 + sllx %g3, %g5, %o3 + sub %g0, %o5, %o5 + mov 32, %g4 + ldx [%l0], %g2 + sub %g4, %g1, %g4 + sllx %g2, %g5, %g2 + srax %g3, %g4, %g3 + mov -1, %g1 + srax %g3, %g4, %g3 + sllx %g1, %o5, %g1 + and %g1, %o4, %g1 + sllx %g1, %g5, %i2 + srax %g1, %g4, %g1 + srax %g1, %g4, %g1 + or %o3, %g1, %i1 + return %i7+8 + or %g2, %g3, %o0 +L(L41): + sllx %g2, 3, %g5 + ldx [%l0+8], %g3 + ldx [%l0+16], %o4 + sllx %g3, %o5, %o3 + sub %g0, %g5, %g5 + mov 64, %g4 + ldx [%l0], %g2 + sub %g4, %o5, %g4 + sllx %g2, %o5, %g2 + srax %g3, %g4, %g3 + mov -1, %g1 + sllx %g1, %g5, %g1 + and %g1, %o4, %g1 + srax %g1, %g4, %g1 + or %o3, %g1, %i1 + return %i7+8 + or %g2, %g3, %o0 +L(L45): + ldx [%l0], %g1 + sllx %g1, %o4, %g1 + ldx [%l0+8], %g3 + ldx [%l0+16], %g4 + sllx %g3, %o4, %o3 + sllx %g4, %o4, %o1 + sllx %g2, 3, %o5 + ldx [%l0+24], %o2 + sub %g0, %o5, %o5 + mov 64, %g5 + sub %g5, %o4, %g5 + srax %g3, %g5, %g3 + srax %g4, %g5, %g4 + or %g1, %g3, %i0 + or %o3, %g4, %i1 + mov -1, %g1 + sllx %g1, %o5, %g1 + and %g1, %o2, %g1 + srax %g1, %g5, %g1 + or %o1, %g1, %i2 + return %i7+8 + nop +L(L43): + bgu,pt %xcc, L(L47) + sllx %o2, 3, %o4 + sll %o2, 3, %o5 + ldx [%l0], %g1 + sllx %g1, %o5, %g1 + sllx %o2, 2, %o4 + sllx %g2, 3, %g5 + ldx [%l0+8], %g3 + ldx [%l0+16], %g4 + sllx %g3, %o5, %o2 + sllx %g4, %o5, %o1 + ldx [%l0+24], %o3 + sub %g0, %g5, %g5 + mov 32, %g2 + sub %g2, %o4, %g2 + srax %g3, %g2, %g3 + srax %g4, %g2, %g4 + srax %g3, %g2, %g3 + srax %g4, %g2, %g4 + or %g1, %g3, %i0 + or %o2, %g4, %i1 + mov -1, %g1 + sllx %g1, %g5, %g1 + and %g1, %o3, %g1 + sllx %g1, %o5, %i3 + srax %g1, %g2, %g1 + srax %g1, %g2, %g1 + or %o1, %g1, %i2 + return %i7+8 + nop + FUNEND(vacall_receiver) +#endif +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/vacall/vacall-sparc64.c b/vacall/vacall-sparc64.c new file mode 100644 index 0000000..3d78c94 --- /dev/null +++ b/vacall/vacall-sparc64.c @@ -0,0 +1,460 @@ +/* vacall function for sparc64 CPU */ + +/* + * Copyright 1995-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "vacall-internal.h" + +#ifdef REENTRANT +#define vacall_receiver callback_receiver +register struct { void (*vacall_function) (void*,va_alist); void* arg; } + * env __asm__("%g5"); +#endif +register __vaword* fp __asm__("%fp"); /* our %fp, caller's %sp */ +register __vaword* ret __asm__("%i7"); /* %i7+8 = return address */ +register float farg0 __asm__("%f1"); +register float farg1 __asm__("%f3"); +register float farg2 __asm__("%f5"); +register float farg3 __asm__("%f7"); +register float farg4 __asm__("%f9"); +register float farg5 __asm__("%f11"); +register float farg6 __asm__("%f13"); +register float farg7 __asm__("%f15"); +register float farg8 __asm__("%f17"); +register float farg9 __asm__("%f19"); +register float farg10 __asm__("%f21"); +register float farg11 __asm__("%f23"); +register float farg12 __asm__("%f25"); +register float farg13 __asm__("%f27"); +register float farg14 __asm__("%f29"); +register float farg15 __asm__("%f31"); +register double darg0 __asm__("%f0"); +register double darg1 __asm__("%f2"); +register double darg2 __asm__("%f4"); +register double darg3 __asm__("%f6"); +register double darg4 __asm__("%f8"); +register double darg5 __asm__("%f10"); +register double darg6 __asm__("%f12"); +register double darg7 __asm__("%f14"); +register double darg8 __asm__("%f16"); +register double darg9 __asm__("%f18"); +register double darg10 __asm__("%f20"); +register double darg11 __asm__("%f22"); +register double darg12 __asm__("%f24"); +register double darg13 __asm__("%f26"); +register double darg14 __asm__("%f28"); +register double darg15 __asm__("%f30"); +register __vaword iret __asm__("%i0"); +register __vaword o1 __asm__("%i1"); +register __vaword o2 __asm__("%i2"); +register __vaword o3 __asm__("%i3"); +register __vaword o4 __asm__("%i4"); +register __vaword o5 __asm__("%i5"); +register float fret __asm__("%f0"); /* %f0 */ +register double dret __asm__("%f0"); /* %f0,%f1 */ + +void /* the return type is variable, not void! */ +vacall_receiver (__vaword word1, __vaword word2, __vaword word3, __vaword word4, + __vaword word5, __vaword word6, + __vaword firstword) +{ + __va_alist list; + /* Move the arguments passed in registers to their stack locations. */ + (&firstword)[-6] = word1; + (&firstword)[-5] = word2; + (&firstword)[-4] = word3; + (&firstword)[-3] = word4; + (&firstword)[-2] = word5; + (&firstword)[-1] = word6; + list.darg[0] = darg0; + list.darg[1] = darg1; + list.darg[2] = darg2; + list.darg[3] = darg3; + list.darg[4] = darg4; + list.darg[5] = darg5; + list.darg[6] = darg6; + list.darg[7] = darg7; + list.darg[8] = darg8; + list.darg[9] = darg9; + list.darg[10] = darg10; + list.darg[11] = darg11; + list.darg[12] = darg12; + list.darg[13] = darg13; + list.darg[14] = darg14; + list.darg[15] = darg15; + list.farg[0] = farg0; + list.farg[1] = farg1; + list.farg[2] = farg2; + list.farg[3] = farg3; + list.farg[4] = farg4; + list.farg[5] = farg5; + list.farg[6] = farg6; + list.farg[7] = farg7; + list.farg[8] = farg8; + list.farg[9] = farg9; + list.farg[10] = farg10; + list.farg[11] = farg11; + list.farg[12] = farg12; + list.farg[13] = farg13; + list.farg[14] = farg14; + list.farg[15] = farg15; + /* Prepare the va_alist. */ + list.flags = 0; + list.aptr = (long)(&firstword - 6); + list.raddr = (void*)0; + list.rtype = __VAvoid; + list.anum = 0; + /* Call vacall_function. The macros do all the rest. */ +#ifndef REENTRANT + (*vacall_function) (&list); +#else /* REENTRANT */ + (*env->vacall_function) (env->arg,&list); +#endif + /* Put return value into proper register. */ + if (list.rtype == __VAvoid) { + } else + if (list.rtype == __VAchar) { + iret = list.tmp._char; + } else + if (list.rtype == __VAschar) { + iret = list.tmp._schar; + } else + if (list.rtype == __VAuchar) { + iret = list.tmp._uchar; + } else + if (list.rtype == __VAshort) { + iret = list.tmp._short; + } else + if (list.rtype == __VAushort) { + iret = list.tmp._ushort; + } else + if (list.rtype == __VAint) { + iret = list.tmp._int; + } else + if (list.rtype == __VAuint) { + iret = list.tmp._uint; + } else + if (list.rtype == __VAlong) { + iret = list.tmp._long; + } else + if (list.rtype == __VAulong) { + iret = list.tmp._ulong; + } else + if (list.rtype == __VAlonglong) { + iret = list.tmp._long; + } else + if (list.rtype == __VAulonglong) { + iret = list.tmp._ulong; + } else + if (list.rtype == __VAfloat) { + fret = list.tmp._float; + } else + if (list.rtype == __VAdouble) { + dret = list.tmp._double; + } else + if (list.rtype == __VAvoidp) { + iret = (long)list.tmp._ptr; + } else + if (list.rtype == __VAstruct) { + if (list.flags & __VA_REGISTER_STRUCT_RETURN) { + /* Return structs of size <= 32 in registers. */ + #define iret2 o1 + #define iret3 o2 + #define iret4 o3 + if (list.rsize > 0 && list.rsize <= 32) { + #if 0 /* Unoptimized */ + if (list.rsize == 1) { + iret = (__vaword)((unsigned char *) list.raddr)[0] << 56; + } else + if (list.rsize == 2) { + iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) + | ((__vaword)((unsigned char *) list.raddr)[1] << 48); + } else + if (list.rsize == 3) { + iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) + | ((__vaword)((unsigned char *) list.raddr)[1] << 48) + | ((__vaword)((unsigned char *) list.raddr)[2] << 40); + } else + if (list.rsize == 4) { + iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) + | ((__vaword)((unsigned char *) list.raddr)[1] << 48) + | ((__vaword)((unsigned char *) list.raddr)[2] << 40) + | ((__vaword)((unsigned char *) list.raddr)[3] << 32); + } else + if (list.rsize == 5) { + iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) + | ((__vaword)((unsigned char *) list.raddr)[1] << 48) + | ((__vaword)((unsigned char *) list.raddr)[2] << 40) + | ((__vaword)((unsigned char *) list.raddr)[3] << 32) + | ((__vaword)((unsigned char *) list.raddr)[4] << 24); + } else + if (list.rsize == 6) { + iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) + | ((__vaword)((unsigned char *) list.raddr)[1] << 48) + | ((__vaword)((unsigned char *) list.raddr)[2] << 40) + | ((__vaword)((unsigned char *) list.raddr)[3] << 32) + | ((__vaword)((unsigned char *) list.raddr)[4] << 24) + | ((__vaword)((unsigned char *) list.raddr)[5] << 16); + } else + if (list.rsize == 7) { + iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) + | ((__vaword)((unsigned char *) list.raddr)[1] << 48) + | ((__vaword)((unsigned char *) list.raddr)[2] << 40) + | ((__vaword)((unsigned char *) list.raddr)[3] << 32) + | ((__vaword)((unsigned char *) list.raddr)[4] << 24) + | ((__vaword)((unsigned char *) list.raddr)[5] << 16) + | ((__vaword)((unsigned char *) list.raddr)[6] << 8); + } else + if (list.rsize >= 8 && list.rsize <= 32) { + iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) + | ((__vaword)((unsigned char *) list.raddr)[1] << 48) + | ((__vaword)((unsigned char *) list.raddr)[2] << 40) + | ((__vaword)((unsigned char *) list.raddr)[3] << 32) + | ((__vaword)((unsigned char *) list.raddr)[4] << 24) + | ((__vaword)((unsigned char *) list.raddr)[5] << 16) + | ((__vaword)((unsigned char *) list.raddr)[6] << 8) + | (__vaword)((unsigned char *) list.raddr)[7]; + if (list.rsize == 8) { + } else + if (list.rsize == 9) { + iret2 = (__vaword)((unsigned char *) list.raddr)[8] << 56; + } else + if (list.rsize == 10) { + iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) + | ((__vaword)((unsigned char *) list.raddr)[9] << 48); + } else + if (list.rsize == 11) { + iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) + | ((__vaword)((unsigned char *) list.raddr)[9] << 48) + | ((__vaword)((unsigned char *) list.raddr)[10] << 40); + } else + if (list.rsize == 12) { + iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) + | ((__vaword)((unsigned char *) list.raddr)[9] << 48) + | ((__vaword)((unsigned char *) list.raddr)[10] << 40) + | ((__vaword)((unsigned char *) list.raddr)[11] << 32); + } else + if (list.rsize == 13) { + iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) + | ((__vaword)((unsigned char *) list.raddr)[9] << 48) + | ((__vaword)((unsigned char *) list.raddr)[10] << 40) + | ((__vaword)((unsigned char *) list.raddr)[11] << 32) + | ((__vaword)((unsigned char *) list.raddr)[12] << 24); + } else + if (list.rsize == 14) { + iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) + | ((__vaword)((unsigned char *) list.raddr)[9] << 48) + | ((__vaword)((unsigned char *) list.raddr)[10] << 40) + | ((__vaword)((unsigned char *) list.raddr)[11] << 32) + | ((__vaword)((unsigned char *) list.raddr)[12] << 24) + | ((__vaword)((unsigned char *) list.raddr)[13] << 16); + } else + if (list.rsize == 15) { + iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) + | ((__vaword)((unsigned char *) list.raddr)[9] << 48) + | ((__vaword)((unsigned char *) list.raddr)[10] << 40) + | ((__vaword)((unsigned char *) list.raddr)[11] << 32) + | ((__vaword)((unsigned char *) list.raddr)[12] << 24) + | ((__vaword)((unsigned char *) list.raddr)[13] << 16) + | ((__vaword)((unsigned char *) list.raddr)[14] << 8); + } else + if (list.rsize >= 16 && list.rsize <= 32) { + iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) + | ((__vaword)((unsigned char *) list.raddr)[9] << 48) + | ((__vaword)((unsigned char *) list.raddr)[10] << 40) + | ((__vaword)((unsigned char *) list.raddr)[11] << 32) + | ((__vaword)((unsigned char *) list.raddr)[12] << 24) + | ((__vaword)((unsigned char *) list.raddr)[13] << 16) + | ((__vaword)((unsigned char *) list.raddr)[14] << 8) + | (__vaword)((unsigned char *) list.raddr)[15]; + if (list.rsize == 16) { + } else + if (list.rsize == 17) { + iret3 = (__vaword)((unsigned char *) list.raddr)[16] << 56; + } else + if (list.rsize == 18) { + iret3 = ((__vaword)((unsigned char *) list.raddr)[16] << 56) + | ((__vaword)((unsigned char *) list.raddr)[17] << 48); + } else + if (list.rsize == 19) { + iret3 = ((__vaword)((unsigned char *) list.raddr)[16] << 56) + | ((__vaword)((unsigned char *) list.raddr)[17] << 48) + | ((__vaword)((unsigned char *) list.raddr)[18] << 40); + } else + if (list.rsize == 20) { + iret3 = ((__vaword)((unsigned char *) list.raddr)[16] << 56) + | ((__vaword)((unsigned char *) list.raddr)[17] << 48) + | ((__vaword)((unsigned char *) list.raddr)[18] << 40) + | ((__vaword)((unsigned char *) list.raddr)[19] << 32); + } else + if (list.rsize == 21) { + iret3 = ((__vaword)((unsigned char *) list.raddr)[16] << 56) + | ((__vaword)((unsigned char *) list.raddr)[17] << 48) + | ((__vaword)((unsigned char *) list.raddr)[18] << 40) + | ((__vaword)((unsigned char *) list.raddr)[19] << 32) + | ((__vaword)((unsigned char *) list.raddr)[20] << 24); + } else + if (list.rsize == 22) { + iret3 = ((__vaword)((unsigned char *) list.raddr)[16] << 56) + | ((__vaword)((unsigned char *) list.raddr)[17] << 48) + | ((__vaword)((unsigned char *) list.raddr)[18] << 40) + | ((__vaword)((unsigned char *) list.raddr)[19] << 32) + | ((__vaword)((unsigned char *) list.raddr)[20] << 24) + | ((__vaword)((unsigned char *) list.raddr)[21] << 16); + } else + if (list.rsize == 23) { + iret3 = ((__vaword)((unsigned char *) list.raddr)[16] << 56) + | ((__vaword)((unsigned char *) list.raddr)[17] << 48) + | ((__vaword)((unsigned char *) list.raddr)[18] << 40) + | ((__vaword)((unsigned char *) list.raddr)[19] << 32) + | ((__vaword)((unsigned char *) list.raddr)[20] << 24) + | ((__vaword)((unsigned char *) list.raddr)[21] << 16) + | ((__vaword)((unsigned char *) list.raddr)[22] << 8); + } else + if (list.rsize >= 24 && list.rsize <= 32) { + iret3 = ((__vaword)((unsigned char *) list.raddr)[16] << 56) + | ((__vaword)((unsigned char *) list.raddr)[17] << 48) + | ((__vaword)((unsigned char *) list.raddr)[18] << 40) + | ((__vaword)((unsigned char *) list.raddr)[19] << 32) + | ((__vaword)((unsigned char *) list.raddr)[20] << 24) + | ((__vaword)((unsigned char *) list.raddr)[21] << 16) + | ((__vaword)((unsigned char *) list.raddr)[22] << 8) + | (__vaword)((unsigned char *) list.raddr)[23]; + if (list.rsize == 24) { + } else + if (list.rsize == 25) { + iret4 = (__vaword)((unsigned char *) list.raddr)[24] << 56; + } else + if (list.rsize == 26) { + iret4 = ((__vaword)((unsigned char *) list.raddr)[24] << 56) + | ((__vaword)((unsigned char *) list.raddr)[25] << 48); + } else + if (list.rsize == 27) { + iret4 = ((__vaword)((unsigned char *) list.raddr)[24] << 56) + | ((__vaword)((unsigned char *) list.raddr)[25] << 48) + | ((__vaword)((unsigned char *) list.raddr)[26] << 40); + } else + if (list.rsize == 28) { + iret4 = ((__vaword)((unsigned char *) list.raddr)[24] << 56) + | ((__vaword)((unsigned char *) list.raddr)[25] << 48) + | ((__vaword)((unsigned char *) list.raddr)[26] << 40) + | ((__vaword)((unsigned char *) list.raddr)[27] << 32); + } else + if (list.rsize == 29) { + iret4 = ((__vaword)((unsigned char *) list.raddr)[24] << 56) + | ((__vaword)((unsigned char *) list.raddr)[25] << 48) + | ((__vaword)((unsigned char *) list.raddr)[26] << 40) + | ((__vaword)((unsigned char *) list.raddr)[27] << 32) + | ((__vaword)((unsigned char *) list.raddr)[28] << 24); + } else + if (list.rsize == 30) { + iret4 = ((__vaword)((unsigned char *) list.raddr)[24] << 56) + | ((__vaword)((unsigned char *) list.raddr)[25] << 48) + | ((__vaword)((unsigned char *) list.raddr)[26] << 40) + | ((__vaword)((unsigned char *) list.raddr)[27] << 32) + | ((__vaword)((unsigned char *) list.raddr)[28] << 24) + | ((__vaword)((unsigned char *) list.raddr)[29] << 16); + } else + if (list.rsize == 31) { + iret4 = ((__vaword)((unsigned char *) list.raddr)[24] << 56) + | ((__vaword)((unsigned char *) list.raddr)[25] << 48) + | ((__vaword)((unsigned char *) list.raddr)[26] << 40) + | ((__vaword)((unsigned char *) list.raddr)[27] << 32) + | ((__vaword)((unsigned char *) list.raddr)[28] << 24) + | ((__vaword)((unsigned char *) list.raddr)[29] << 16) + | ((__vaword)((unsigned char *) list.raddr)[30] << 8); + } else + if (list.rsize == 32) { + iret4 = ((__vaword)((unsigned char *) list.raddr)[24] << 56) + | ((__vaword)((unsigned char *) list.raddr)[25] << 48) + | ((__vaword)((unsigned char *) list.raddr)[26] << 40) + | ((__vaword)((unsigned char *) list.raddr)[27] << 32) + | ((__vaword)((unsigned char *) list.raddr)[28] << 24) + | ((__vaword)((unsigned char *) list.raddr)[29] << 16) + | ((__vaword)((unsigned char *) list.raddr)[30] << 8) + | (__vaword)((unsigned char *) list.raddr)[31]; + } + } + } + } + #else /* Optimized: fewer conditional jumps, fewer memory accesses */ + uintptr_t count = list.rsize; /* > 0, ≤ 4*sizeof(__vaword) */ + __vaword* wordaddr = (__vaword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__vaword)-1)); + uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__vaword)-1); /* ≥ 0, < sizeof(__vaword) */ + uintptr_t end_offset = start_offset + count; /* > 0, < 5*sizeof(__vaword) */ + if (count <= sizeof(__vaword)) { + /* Assign iret. */ + if (end_offset <= sizeof(__vaword)) { + /* 0 < end_offset ≤ sizeof(__vaword) */ + __vaword mask0 = - ((__vaword)1 << (sizeof(__vaword)*8-end_offset*8)); + iret = (wordaddr[0] & mask0) << (start_offset*8); + } else { + /* sizeof(__vaword) < end_offset < 2*sizeof(__vaword), start_offset > 0 */ + __vaword mask1 = - ((__vaword)1 << (2*sizeof(__vaword)*8-end_offset*8)); + iret = (wordaddr[0] << (start_offset*8)) | ((wordaddr[1] & mask1) >> (sizeof(__vaword)*8-start_offset*8)); + } + } else if (count <= 2*sizeof(__vaword)) { + /* Assign iret, iret2. */ + if (end_offset <= 2*sizeof(__vaword)) { + /* sizeof(__vaword) < end_offset ≤ 2*sizeof(__vaword) */ + __vaword mask1 = - ((__vaword)1 << (2*sizeof(__vaword)*8-end_offset*8)); + iret = (wordaddr[0] << (start_offset*8)) | ((wordaddr[1] & mask1) >> (sizeof(__vaword)*4-start_offset*4) >> (sizeof(__vaword)*4-start_offset*4)); + iret2 = (wordaddr[1] & mask1) << (start_offset*8); + } else { + /* 2*sizeof(__vaword) < end_offset < 3*sizeof(__vaword), start_offset > 0 */ + __vaword mask2 = - ((__vaword)1 << (3*sizeof(__vaword)*8-end_offset*8)); + iret = (wordaddr[0] << (start_offset*8)) | (wordaddr[1] >> (sizeof(__vaword)*8-start_offset*8)); + iret2 = (wordaddr[1] << (start_offset*8)) | ((wordaddr[2] & mask2) >> (sizeof(__vaword)*8-start_offset*8)); + } + } else if (count <= 3*sizeof(__vaword)) { + /* Assign iret, iret2, iret3. */ + if (end_offset <= 3*sizeof(__vaword)) { + /* 2*sizeof(__vaword) < end_offset ≤ 3*sizeof(__vaword) */ + __vaword mask2 = - ((__vaword)1 << (3*sizeof(__vaword)*8-end_offset*8)); + iret = (wordaddr[0] << (start_offset*8)) | (wordaddr[1] >> (sizeof(__vaword)*4-start_offset*4) >> (sizeof(__vaword)*4-start_offset*4)); + iret2 = (wordaddr[1] << (start_offset*8)) | ((wordaddr[2] & mask2) >> (sizeof(__vaword)*4-start_offset*4) >> (sizeof(__vaword)*4-start_offset*4)); + iret3 = (wordaddr[2] & mask2) << (start_offset*8); + } else { + /* 3*sizeof(__vaword) < end_offset < 4*sizeof(__vaword), start_offset > 0 */ + __vaword mask3 = - ((__vaword)1 << (4*sizeof(__vaword)*8-end_offset*8)); + iret = (wordaddr[0] << (start_offset*8)) | (wordaddr[1] >> (sizeof(__vaword)*8-start_offset*8)); + iret2 = (wordaddr[1] << (start_offset*8)) | (wordaddr[2] >> (sizeof(__vaword)*8-start_offset*8)); + iret3 = (wordaddr[2] << (start_offset*8)) | ((wordaddr[3] & mask3) >> (sizeof(__vaword)*8-start_offset*8)); + } + } else { + /* Assign iret, iret2, iret3, iret4. */ + if (end_offset <= 4*sizeof(__vaword)) { + /* 3*sizeof(__vaword) < end_offset ≤ 4*sizeof(__vaword) */ + __vaword mask3 = - ((__vaword)1 << (4*sizeof(__vaword)*8-end_offset*8)); + iret = (wordaddr[0] << (start_offset*8)) | (wordaddr[1] >> (sizeof(__vaword)*4-start_offset*4) >> (sizeof(__vaword)*4-start_offset*4)); + iret2 = (wordaddr[1] << (start_offset*8)) | (wordaddr[2] >> (sizeof(__vaword)*4-start_offset*4) >> (sizeof(__vaword)*4-start_offset*4)); + iret3 = (wordaddr[2] << (start_offset*8)) | ((wordaddr[3] & mask3) >> (sizeof(__vaword)*4-start_offset*4) >> (sizeof(__vaword)*4-start_offset*4)); + iret4 = (wordaddr[3] & mask3) << (start_offset*8); + } else { + /* 4*sizeof(__vaword) < end_offset < 5*sizeof(__vaword), start_offset > 0 */ + __vaword mask4 = - ((__vaword)1 << (5*sizeof(__vaword)*8-end_offset*8)); + iret = (wordaddr[0] << (start_offset*8)) | (wordaddr[1] >> (sizeof(__vaword)*8-start_offset*8)); + iret2 = (wordaddr[1] << (start_offset*8)) | (wordaddr[2] >> (sizeof(__vaword)*8-start_offset*8)); + iret3 = (wordaddr[2] << (start_offset*8)) | (wordaddr[3] >> (sizeof(__vaword)*8-start_offset*8)); + iret4 = (wordaddr[3] << (start_offset*8)) | ((wordaddr[4] & mask4) >> (sizeof(__vaword)*8-start_offset*8)); + } + } + #endif + } + } + } +} diff --git a/vacall/vacall-structcpy.c b/vacall/vacall-structcpy.c new file mode 100644 index 0000000..b6ffb90 --- /dev/null +++ b/vacall/vacall-structcpy.c @@ -0,0 +1,22 @@ +/* copy structs */ + +/* + * Copyright 2016 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#define __structcpy vacall_structcpy + +#include "structcpy.c" diff --git a/vacall/vacall-x86_64-linux.s b/vacall/vacall-x86_64-linux.s new file mode 100644 index 0000000..aaaa1c5 --- /dev/null +++ b/vacall/vacall-x86_64-linux.s @@ -0,0 +1,258 @@ + .file "vacall-x86_64.c" + .text + .p2align 4,,15 +.globl vacall_receiver + .type vacall_receiver, @function +vacall_receiver: +.LFB2: + pushq %rbp +.LCFI0: + movq %rsp, %rbp +.LCFI1: + pushq %r12 +.LCFI2: + subq $200, %rsp +.LCFI3: + movq %rcx, -48(%rbp) + leaq 16(%rbp), %rcx + movq %rdi, -72(%rbp) + movq %rsi, -64(%rbp) + movsd %xmm0, -144(%rbp) + movq %rcx, -184(%rbp) + movq %rdx, -56(%rbp) + movsd %xmm1, -136(%rbp) + movq %r8, -40(%rbp) + movsd %xmm2, -128(%rbp) + leaq -208(%rbp), %rdi + movq %r9, -32(%rbp) + movsd %xmm3, -120(%rbp) + movsd %xmm4, -112(%rbp) + movl $0, -208(%rbp) + movsd %xmm5, -104(%rbp) + movq $0, -176(%rbp) + movsd %xmm6, -96(%rbp) + movl $0, -168(%rbp) + movsd %xmm7, -88(%rbp) + movl $0, -80(%rbp) + movl $0, -152(%rbp) + call *vacall_function(%rip) + movl -168(%rbp), %ecx + testl %ecx, %ecx + je .L41 + cmpl $1, %ecx + je .L42 + cmpl $2, %ecx + je .L42 + cmpl $3, %ecx + .p2align 4,,5 + je .L48 + cmpl $4, %ecx + .p2align 4,,5 + je .L49 + cmpl $5, %ecx + .p2align 4,,5 + je .L50 + cmpl $6, %ecx + .p2align 4,,5 + je .L51 + cmpl $7, %ecx + .p2align 4,,5 + je .L52 + cmpl $8, %ecx + .p2align 4,,5 + je .L46 + cmpl $9, %ecx + .p2align 4,,5 + je .L46 + cmpl $10, %ecx + .p2align 4,,5 + je .L46 + cmpl $11, %ecx + .p2align 4,,5 + je .L46 + cmpl $12, %ecx + .p2align 4,,5 + je .L53 + cmpl $13, %ecx + .p2align 4,,5 + je .L54 + cmpl $14, %ecx + .p2align 4,,5 + je .L46 + cmpl $15, %ecx + .p2align 4,,5 + jne .L41 + testb $4, -207(%rbp) + .p2align 4,,2 + je .L41 + movq -160(%rbp), %rsi + leaq -1(%rsi), %rcx + cmpq $15, %rcx + ja .L41 + movq -176(%rbp), %rcx + movq %rcx, %r11 + movq %rcx, %r8 + andl $7, %r8d + andq $-8, %r11 + cmpq $8, %rsi + leaq (%rsi,%r8), %r10 + ja .L35 + cmpq $8, %r10 + ja .L37 + leal -1(,%r10,8), %ecx + movl $2, %esi + salq %cl, %rsi + leal 0(,%r8,8), %ecx + decq %rsi + andq (%r11), %rsi + movq %rsi, %rax + sarq %cl, %rax + .p2align 4,,7 +.L41: + addq $200, %rsp + popq %r12 + leave + ret + .p2align 4,,7 +.L42: + movsbq -200(%rbp),%rax + addq $200, %rsp + popq %r12 + leave + ret +.L49: + movswq -200(%rbp),%rax + jmp .L41 +.L48: + movzbq -200(%rbp), %rax + jmp .L41 +.L46: + movq -200(%rbp), %rax + jmp .L41 +.L50: + movzwq -200(%rbp), %rax + jmp .L41 +.L51: + movslq -200(%rbp),%rax + jmp .L41 +.L52: + mov -200(%rbp), %eax + jmp .L41 +.L53: + movss -200(%rbp), %xmm0 + jmp .L41 +.L54: + movlpd -200(%rbp), %xmm0 + jmp .L41 +.L35: + cmpq $16, %r10 + ja .L39 + leal -65(,%r10,8), %ecx + movl $2, %esi + leal 0(,%r8,8), %r9d + movl $32, %edi + salq %cl, %rsi + leaq 0(,%r8,4), %rcx + movq (%r11), %r8 + decq %rsi + andq 8(%r11), %rsi + subl %ecx, %edi + movl %r9d, %ecx + sarq %cl, %r8 + movl %edi, %ecx + movq %r8, %rax + movq %rsi, %r10 + movq %rsi, %rdx + salq %cl, %r10 + salq %cl, %r10 + movl %r9d, %ecx + orq %r10, %rax + sarq %cl, %rdx + jmp .L41 +.L37: + movq (%r11), %rdi + leal -65(,%r10,8), %esi + salq $3, %r8 + movl %r8d, %ecx + movl $2, %r10d + sarq %cl, %rdi + movl %esi, %ecx + movl $64, %esi + salq %cl, %r10 + subl %r8d, %esi + movq %rdi, %rax + decq %r10 + andq 8(%r11), %r10 + movl %esi, %ecx + salq %cl, %r10 + orq %r10, %rax + jmp .L41 +.L39: + leaq 0(,%r8,8), %rcx + movq (%r11), %r12 + movq 8(%r11), %r8 + movl $64, %edi + subl %ecx, %edi + movl %ecx, %r9d + sarq %cl, %r12 + movq %r8, %rsi + movl %edi, %ecx + salq %cl, %rsi + movq %r12, %rax + movl %r9d, %ecx + orq %rsi, %rax + leal -129(,%r10,8), %esi + sarq %cl, %r8 + movl $2, %r9d + movq %r8, %rdx + movl %esi, %ecx + salq %cl, %r9 + movl %edi, %ecx + leaq -1(%r9), %rsi + andq 16(%r11), %rsi + salq %cl, %rsi + orq %rsi, %rdx + jmp .L41 +.LFE2: + .size vacall_receiver, .-vacall_receiver + .section .eh_frame,"a",@progbits +.Lframe1: + .long .LECIE1-.LSCIE1 +.LSCIE1: + .long 0x0 + .byte 0x1 + .string "" + .uleb128 0x1 + .sleb128 -8 + .byte 0x10 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x90 + .uleb128 0x1 + .align 8 +.LECIE1: +.LSFDE1: + .long .LEFDE1-.LASFDE1 +.LASFDE1: + .long .LASFDE1-.Lframe1 + .quad .LFB2 + .quad .LFE2-.LFB2 + .byte 0x4 + .long .LCFI0-.LFB2 + .byte 0xe + .uleb128 0x10 + .byte 0x86 + .uleb128 0x2 + .byte 0x4 + .long .LCFI1-.LCFI0 + .byte 0xd + .uleb128 0x6 + .byte 0x4 + .long .LCFI3-.LCFI1 + .byte 0x8c + .uleb128 0x3 + .align 8 +.LEFDE1: + .ident "GCC: (GNU) 4.0.2" + .section .note.GNU-stack,"",@progbits diff --git a/vacall/vacall-x86_64-macro.S b/vacall/vacall-x86_64-macro.S new file mode 100644 index 0000000..0668ba5 --- /dev/null +++ b/vacall/vacall-x86_64-macro.S @@ -0,0 +1,261 @@ +#include "asm-x86_64.h" + TEXT() + P2ALIGN(4,15) +GLOBL(C(vacall_receiver)) + DECLARE_FUNCTION(vacall_receiver) +FUNBEGIN(vacall_receiver) +L(FB2): + INSN1(push,q ,R(rbp)) +L(CFI0): + INSN2(mov,q ,R(rsp), R(rbp)) +L(CFI1): + INSN1(push,q ,R(r12)) +L(CFI2): + INSN2(sub,q ,NUM(200), R(rsp)) +L(CFI3): + INSN2(mov,q ,R(rcx),X8 MEM_DISP(rbp,-48)) + INSN2(lea,q ,X8 MEM_DISP(rbp,16), R(rcx)) + INSN2(mov,q ,R(rdi),X8 MEM_DISP(rbp,-72)) + INSN2(mov,q ,R(rsi),X8 MEM_DISP(rbp,-64)) + INSN2S(movs,d ,R(xmm0),X8 MEM_DISP(rbp,-144)) + INSN2(mov,q ,R(rcx),X8 MEM_DISP(rbp,-184)) + INSN2(mov,q ,R(rdx),X8 MEM_DISP(rbp,-56)) + INSN2S(movs,d ,R(xmm1),X8 MEM_DISP(rbp,-136)) + INSN2(mov,q ,R(r8),X8 MEM_DISP(rbp,-40)) + INSN2S(movs,d ,R(xmm2),X8 MEM_DISP(rbp,-128)) + INSN2(lea,q ,X8 MEM_DISP(rbp,-208), R(rdi)) + INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) + INSN2S(movs,d ,R(xmm3),X8 MEM_DISP(rbp,-120)) + INSN2S(movs,d ,R(xmm4),X8 MEM_DISP(rbp,-112)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(rbp,-208)) + INSN2S(movs,d ,R(xmm5),X8 MEM_DISP(rbp,-104)) + INSN2(mov,q ,NUM(0),X8 MEM_DISP(rbp,-176)) + INSN2S(movs,d ,R(xmm6),X8 MEM_DISP(rbp,-96)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(rbp,-168)) + INSN2S(movs,d ,R(xmm7),X8 MEM_DISP(rbp,-88)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(rbp,-80)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(rbp,-152)) + INSN1(call,_ ,INDIR(X8 MEM_PCRELATIVE(C(vacall_function)))) + INSN2(mov,l ,X4 MEM_DISP(rbp,-168), R(ecx)) + INSN2(test,l ,R(ecx), R(ecx)) + INSN1(je,_ ,L(41)) + INSN2(cmp,l ,NUM(1), R(ecx)) + INSN1(je,_ ,L(42)) + INSN2(cmp,l ,NUM(2), R(ecx)) + INSN1(je,_ ,L(42)) + INSN2(cmp,l ,NUM(3), R(ecx)) + P2ALIGN(4,5) + INSN1(je,_ ,L(48)) + INSN2(cmp,l ,NUM(4), R(ecx)) + P2ALIGN(4,5) + INSN1(je,_ ,L(49)) + INSN2(cmp,l ,NUM(5), R(ecx)) + P2ALIGN(4,5) + INSN1(je,_ ,L(50)) + INSN2(cmp,l ,NUM(6), R(ecx)) + P2ALIGN(4,5) + INSN1(je,_ ,L(51)) + INSN2(cmp,l ,NUM(7), R(ecx)) + P2ALIGN(4,5) + INSN1(je,_ ,L(52)) + INSN2(cmp,l ,NUM(8), R(ecx)) + P2ALIGN(4,5) + INSN1(je,_ ,L(46)) + INSN2(cmp,l ,NUM(9), R(ecx)) + P2ALIGN(4,5) + INSN1(je,_ ,L(46)) + INSN2(cmp,l ,NUM(10), R(ecx)) + P2ALIGN(4,5) + INSN1(je,_ ,L(46)) + INSN2(cmp,l ,NUM(11), R(ecx)) + P2ALIGN(4,5) + INSN1(je,_ ,L(46)) + INSN2(cmp,l ,NUM(12), R(ecx)) + P2ALIGN(4,5) + INSN1(je,_ ,L(53)) + INSN2(cmp,l ,NUM(13), R(ecx)) + P2ALIGN(4,5) + INSN1(je,_ ,L(54)) + INSN2(cmp,l ,NUM(14), R(ecx)) + P2ALIGN(4,5) + INSN1(je,_ ,L(46)) + INSN2(cmp,l ,NUM(15), R(ecx)) + P2ALIGN(4,5) + INSN1(jne,_ ,L(41)) + INSN2(test,b ,NUM(4),X1 MEM_DISP(rbp,-207)) + P2ALIGN(4,2) + INSN1(je,_ ,L(41)) + INSN2(mov,q ,X8 MEM_DISP(rbp,-160), R(rsi)) + INSN2(lea,q ,X8 MEM_DISP(rsi,-1), R(rcx)) + INSN2(cmp,q ,NUM(15), R(rcx)) + INSN1(ja,_ ,L(41)) + INSN2(mov,q ,X8 MEM_DISP(rbp,-176), R(rcx)) + INSN2(mov,q ,R(rcx), R(r11)) + INSN2(mov,q ,R(rcx), R(r8)) + INSN2(and,l ,NUM(7), R(r8d)) + INSN2(and,q ,NUM(-8), R(r11)) + INSN2(cmp,q ,NUM(8), R(rsi)) + INSN2(lea,q ,X8 MEM_INDEX(rsi,r8), R(r10)) + INSN1(ja,_ ,L(35)) + INSN2(cmp,q ,NUM(8), R(r10)) + INSN1(ja,_ ,L(37)) + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-1,r10,8), R(ecx)) + INSN2(mov,l ,NUM(2), R(esi)) + INSN2(sal,q ,R(cl), R(rsi)) + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(0,r8,8), R(ecx)) + INSN1(dec,q ,R(rsi)) + INSN2(and,q ,X8 MEM(r11), R(rsi)) + INSN2(mov,q ,R(rsi), R(rax)) + INSN2(sar,q ,R(cl), R(rax)) + P2ALIGN(4,7) +L(41): + INSN2(add,q ,NUM(200), R(rsp)) + INSN1(pop,q ,R(r12)) + leave + ret + P2ALIGN(4,7) +L(42): + INSN2MOVXQ(movs,b,X1 MEM_DISP(rbp,-200),R(rax)) + INSN2(add,q ,NUM(200), R(rsp)) + INSN1(pop,q ,R(r12)) + leave + ret +L(49): + INSN2MOVXQ(movs,w,X2 MEM_DISP(rbp,-200),R(rax)) + INSN1(jmp,_ ,L(41)) +L(48): + INSN2MOVXQ(movz,b,X1 MEM_DISP(rbp,-200), R(rax)) + INSN1(jmp,_ ,L(41)) +L(46): + INSN2(mov,q ,X8 MEM_DISP(rbp,-200), R(rax)) + INSN1(jmp,_ ,L(41)) +L(50): + INSN2MOVXQ(movz,w,X2 MEM_DISP(rbp,-200), R(rax)) + INSN1(jmp,_ ,L(41)) +L(51): + INSN2MOVXLQ(movs,l,X4 MEM_DISP(rbp,-200),R(rax)) + INSN1(jmp,_ ,L(41)) +L(52): + INSN2(mov,l ,X4 MEM_DISP(rbp,-200), R(eax)) + INSN1(jmp,_ ,L(41)) +L(53): + INSN2S(movs,s ,X4 MEM_DISP(rbp,-200), R(xmm0)) + INSN1(jmp,_ ,L(41)) +L(54): + INSN2(movlp,d ,X8 MEM_DISP(rbp,-200), R(xmm0)) + INSN1(jmp,_ ,L(41)) +L(35): + INSN2(cmp,q ,NUM(16), R(r10)) + INSN1(ja,_ ,L(39)) + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-65,r10,8), R(ecx)) + INSN2(mov,l ,NUM(2), R(esi)) + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(0,r8,8), R(r9d)) + INSN2(mov,l ,NUM(32), R(edi)) + INSN2(sal,q ,R(cl), R(rsi)) + INSN2(lea,q ,X8 MEM_DISP_SHINDEX0(0,r8,4), R(rcx)) + INSN2(mov,q ,X8 MEM(r11), R(r8)) + INSN1(dec,q ,R(rsi)) + INSN2(and,q ,X8 MEM_DISP(r11,8), R(rsi)) + INSN2(sub,l ,R(ecx), R(edi)) + INSN2(mov,l ,R(r9d), R(ecx)) + INSN2(sar,q ,R(cl), R(r8)) + INSN2(mov,l ,R(edi), R(ecx)) + INSN2(mov,q ,R(r8), R(rax)) + INSN2(mov,q ,R(rsi), R(r10)) + INSN2(mov,q ,R(rsi), R(rdx)) + INSN2(sal,q ,R(cl), R(r10)) + INSN2(sal,q ,R(cl), R(r10)) + INSN2(mov,l ,R(r9d), R(ecx)) + INSN2(or,q ,R(r10), R(rax)) + INSN2(sar,q ,R(cl), R(rdx)) + INSN1(jmp,_ ,L(41)) +L(37): + INSN2(mov,q ,X8 MEM(r11), R(rdi)) + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-65,r10,8), R(esi)) + INSN2(sal,q ,NUM(3), R(r8)) + INSN2(mov,l ,R(r8d), R(ecx)) + INSN2(mov,l ,NUM(2), R(r10d)) + INSN2(sar,q ,R(cl), R(rdi)) + INSN2(mov,l ,R(esi), R(ecx)) + INSN2(mov,l ,NUM(64), R(esi)) + INSN2(sal,q ,R(cl), R(r10)) + INSN2(sub,l ,R(r8d), R(esi)) + INSN2(mov,q ,R(rdi), R(rax)) + INSN1(dec,q ,R(r10)) + INSN2(and,q ,X8 MEM_DISP(r11,8), R(r10)) + INSN2(mov,l ,R(esi), R(ecx)) + INSN2(sal,q ,R(cl), R(r10)) + INSN2(or,q ,R(r10), R(rax)) + INSN1(jmp,_ ,L(41)) +L(39): + INSN2(lea,q ,X8 MEM_DISP_SHINDEX0(0,r8,8), R(rcx)) + INSN2(mov,q ,X8 MEM(r11), R(r12)) + INSN2(mov,q ,X8 MEM_DISP(r11,8), R(r8)) + INSN2(mov,l ,NUM(64), R(edi)) + INSN2(sub,l ,R(ecx), R(edi)) + INSN2(mov,l ,R(ecx), R(r9d)) + INSN2(sar,q ,R(cl), R(r12)) + INSN2(mov,q ,R(r8), R(rsi)) + INSN2(mov,l ,R(edi), R(ecx)) + INSN2(sal,q ,R(cl), R(rsi)) + INSN2(mov,q ,R(r12), R(rax)) + INSN2(mov,l ,R(r9d), R(ecx)) + INSN2(or,q ,R(rsi), R(rax)) + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-129,r10,8), R(esi)) + INSN2(sar,q ,R(cl), R(r8)) + INSN2(mov,l ,NUM(2), R(r9d)) + INSN2(mov,q ,R(r8), R(rdx)) + INSN2(mov,l ,R(esi), R(ecx)) + INSN2(sal,q ,R(cl), R(r9)) + INSN2(mov,l ,R(edi), R(ecx)) + INSN2(lea,q ,X8 MEM_DISP(r9,-1), R(rsi)) + INSN2(and,q ,X8 MEM_DISP(r11,16), R(rsi)) + INSN2(sal,q ,R(cl), R(rsi)) + INSN2(or,q ,R(rsi), R(rdx)) + INSN1(jmp,_ ,L(41)) +L(FE2): + FUNEND(vacall_receiver, .-vacall_receiver) +#if !(defined __sun || (defined __APPLE__ && defined __MACH__) || (defined _WIN32 || defined __CYGWIN__)) + .section EH_FRAME_SECTION +L(frame1): + .long L(ECIE1)-.LSCIE1 +L(SCIE1): + .long 0x0 + .byte 0x1 + .string "" + .uleb128 0x1 + .sleb128 -8 + .byte 0x10 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x90 + .uleb128 0x1 + .align 8 +L(ECIE1): +L(SFDE1): + .long L(EFDE1)-.LASFDE1 +L(ASFDE1): + .long L(ASFDE1)-.Lframe1 + .quad L(FB2) + .quad L(FE2)-.LFB2 + .byte 0x4 + .long L(CFI0)-.LFB2 + .byte 0xe + .uleb128 0x10 + .byte 0x86 + .uleb128 0x2 + .byte 0x4 + .long L(CFI1)-.LCFI0 + .byte 0xd + .uleb128 0x6 + .byte 0x4 + .long L(CFI3)-.LCFI1 + .byte 0x8c + .uleb128 0x3 + .align 8 +L(EFDE1): +#endif +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/vacall/vacall-x86_64-windows-macro.S b/vacall/vacall-x86_64-windows-macro.S new file mode 100644 index 0000000..d3e076a --- /dev/null +++ b/vacall/vacall-x86_64-windows-macro.S @@ -0,0 +1,350 @@ +#include "asm-x86_64.h" + TEXT() + P2ALIGN(4,15) + GLOBL(C(vacall_receiver)) + DECLARE_FUNCTION(vacall_receiver) +FUNBEGIN(vacall_receiver) +L(FB0): + INSN1(push,q ,R(rbp)) +L(CFI0): + INSN2(mov,q ,R(rsp), R(rbp)) +L(CFI1): + INSN2(sub,q ,NUM(144), R(rsp)) + INSN2(mov,q ,R(rcx),X8 MEM_DISP(rbp,16)) + INSN2(lea,q ,X8 MEM_DISP(rbp,16), R(rcx)) + INSN2(mov,q ,R(rdx),X8 MEM_DISP(rbp,24)) + INSN2(mov,q ,R(r8),X8 MEM_DISP(rbp,32)) + INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,40)) + INSN2S(movs,s ,R(xmm0),X4 MEM_DISP(rbp,-52)) + INSN2(mov,q ,R(rcx),X8 MEM_DISP(rbp,-88)) + INSN2S(movs,s ,R(xmm1),X4 MEM_DISP(rbp,-48)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(rbp,-112)) + INSN2S(movs,s ,R(xmm2),X4 MEM_DISP(rbp,-44)) + INSN2(mov,q ,NUM(0),X8 MEM_DISP(rbp,-80)) + INSN2(lea,q ,X8 MEM_DISP(rbp,-112), R(rcx)) + INSN2S(movs,s ,R(xmm3),X4 MEM_DISP(rbp,-40)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(rbp,-72)) + INSN2S(movs,d ,R(xmm0),X8 MEM_DISP(rbp,-32)) + INSN2(mov,l ,NUM(0),X4 MEM_DISP(rbp,-56)) + INSN2S(movs,d ,R(xmm1),X8 MEM_DISP(rbp,-24)) + INSN2S(movs,d ,R(xmm2),X8 MEM_DISP(rbp,-16)) + INSN2S(movs,d ,R(xmm3),X8 MEM_DISP(rbp,-8)) + INSN1(call,_ ,INDIR(X8 MEM_PCRELATIVE(C(vacall_function)))) + INSN2(mov,l ,X4 MEM_DISP(rbp,-72), R(edx)) + INSN2(test,l ,R(edx), R(edx)) + INSN1(je,_ ,L(1)) + INSN2(cmp,l ,NUM(1), R(edx)) + INSN1(je,_ ,L(34)) + INSN2(cmp,l ,NUM(2), R(edx)) + INSN1(je,_ ,L(34)) + INSN2(cmp,l ,NUM(3), R(edx)) + INSN1(je,_ ,L(37)) + INSN2(cmp,l ,NUM(4), R(edx)) + INSN1(je,_ ,L(38)) + INSN2(cmp,l ,NUM(5), R(edx)) + INSN1(je,_ ,L(39)) + INSN2(cmp,l ,NUM(6), R(edx)) + INSN1(je,_ ,L(40)) + INSN2(cmp,l ,NUM(7), R(edx)) + INSN1(je,_ ,L(41)) + INSN2(cmp,l ,NUM(8), R(edx)) + INSN1(je,_ ,L(35)) + INSN2(cmp,l ,NUM(9), R(edx)) + INSN1(je,_ ,L(35)) + INSN2(cmp,l ,NUM(10), R(edx)) + INSN1(je,_ ,L(35)) + INSN2(cmp,l ,NUM(11), R(edx)) + INSN1(je,_ ,L(35)) + INSN2(cmp,l ,NUM(12), R(edx)) + INSN1(je,_ ,L(42)) + INSN2(cmp,l ,NUM(13), R(edx)) + INSN1(je,_ ,L(43)) + INSN2(cmp,l ,NUM(14), R(edx)) + INSN1(je,_ ,L(35)) + INSN2(cmp,l ,NUM(15), R(edx)) + INSN1(jne,_ ,L(1)) + INSN2(test,b ,NUM(4),X1 MEM_DISP(rbp,-111)) + INSN1(je,_ ,L(17)) + INSN2(mov,q ,X8 MEM_DISP(rbp,-64), R(rdx)) + INSN2(lea,q ,X8 MEM_DISP(rdx,-4), R(rcx)) + INSN2(test,q ,NUM(-5), R(rcx)) + INSN1(je,_ ,L(20)) + INSN2(lea,q ,X8 MEM_DISP(rdx,-1), R(rcx)) + INSN2(cmp,q ,NUM(1), R(rcx)) + INSN1(ja,_ ,L(1)) +L(20): + INSN2(mov,q ,X8 MEM_DISP(rbp,-80), R(r8)) + INSN2(mov,q ,R(r8), R(r9)) + INSN2(and,l ,NUM(7), R(r8d)) + INSN2(add,q ,R(r8), R(rdx)) + INSN2(and,q ,NUM(-8), R(r9)) + INSN2(cmp,q ,NUM(8), R(rdx)) + INSN1(ja,_ ,L(19)) + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-1,rdx,8), R(ecx)) + INSN2(mov,l ,NUM(2), R(edx)) + INSN2(sal,q ,R(cl), R(rdx)) + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(0,r8,8), R(ecx)) + INSN2(sub,q ,NUM(1), R(rdx)) + INSN2(and,q ,X8 MEM(r9), R(rdx)) + INSN2(sar,q ,R(cl), R(rdx)) + INSN2(mov,q ,R(rdx), R(rax)) +L(1): + leave +L(CFI2): + ret + P2ALIGN(4,10) + P2ALIGN(3,7) +L(34): +L(CFI3): + INSN2MOVXQ(movs,b,X1 MEM_DISP(rbp,-104), R(rax)) + leave +L(CFI4): + ret + P2ALIGN(4,10) + P2ALIGN(3,7) +L(35): +L(CFI5): + INSN2(mov,q ,X8 MEM_DISP(rbp,-104), R(rax)) + leave +L(CFI6): + ret + P2ALIGN(4,10) + P2ALIGN(3,7) +L(37): +L(CFI7): + INSN2MOVXL(movz,b,X1 MEM_DISP(rbp,-104), R(eax)) + leave +L(CFI8): + ret + P2ALIGN(4,10) + P2ALIGN(3,7) +L(38): +L(CFI9): + INSN2MOVXQ(movs,w,X2 MEM_DISP(rbp,-104), R(rax)) + leave +L(CFI10): + ret + P2ALIGN(4,10) + P2ALIGN(3,7) +L(39): +L(CFI11): + INSN2MOVXL(movz,w,X2 MEM_DISP(rbp,-104), R(eax)) + leave +L(CFI12): + ret + P2ALIGN(4,10) + P2ALIGN(3,7) +L(40): +L(CFI13): + INSN2MOVXLQ(movs,l,X4 MEM_DISP(rbp,-104), R(rax)) + leave +L(CFI14): + ret + P2ALIGN(4,10) + P2ALIGN(3,7) +L(42): +L(CFI15): + INSN2S(movs,s ,X4 MEM_DISP(rbp,-104), R(xmm0)) + leave +L(CFI16): + ret + P2ALIGN(4,10) + P2ALIGN(3,7) +L(41): +L(CFI17): + INSN2(mov,l ,X4 MEM_DISP(rbp,-104), R(eax)) + leave +L(CFI18): + ret +L(43): +L(CFI19): + INSN2S(movs,d ,X8 MEM_DISP(rbp,-104), R(xmm0)) + leave +L(CFI20): + ret +L(17): +L(CFI21): + INSN2(mov,q ,X8 MEM_DISP(rbp,-80), R(rax)) + leave +L(CFI22): + ret +L(19): +L(CFI23): + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-65,rdx,8), R(ecx)) + INSN2(mov,l ,NUM(2), R(edx)) + INSN2(sal,q ,R(cl), R(rdx)) + INSN2(mov,l ,R(r8d), R(ecx)) + INSN2(sub,q ,NUM(1), R(rdx)) + INSN2(and,q ,X8 MEM_DISP(r9,8), R(rdx)) + INSN1(neg,l ,R(ecx)) + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(64,rcx,8), R(ecx)) + INSN2(sal,q ,R(cl), R(rdx)) + INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(0,r8,8), R(ecx)) + INSN2(mov,q ,X8 MEM(r9), R(r8)) + leave +L(CFI24): + INSN2(sar,q ,R(cl), R(r8)) + INSN2(or,q ,R(r8), R(rdx)) + INSN2(mov,q ,R(rdx), R(rax)) + ret +L(FE0): + FUNEND(vacall_receiver, .-vacall_receiver) +#if !(defined __sun || (defined __APPLE__ && defined __MACH__) || (defined _WIN32 || defined __CYGWIN__)) + .section EH_FRAME_SECTION +L(frame1): + .long L(ECIE1)-.LSCIE1 +L(SCIE1): + .long 0 + .byte 0x3 + .string "zR" + .uleb128 0x1 + .sleb128 -8 + .uleb128 0x10 + .uleb128 0x1 + .byte 0x3 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x90 + .uleb128 0x1 + .align 8 +L(ECIE1): +L(SFDE1): + .long L(EFDE1)-.LASFDE1 +L(ASFDE1): + .long L(ASFDE1)-.Lframe1 + .long L(FB0) + .long L(FE0)-.LFB0 + .uleb128 0 + .byte 0x4 + .long L(CFI0)-.LFB0 + .byte 0xe + .uleb128 0x10 + .byte 0x86 + .uleb128 0x2 + .byte 0x4 + .long L(CFI1)-.LCFI0 + .byte 0xd + .uleb128 0x6 + .byte 0x4 + .long L(CFI2)-.LCFI1 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long L(CFI3)-.LCFI2 + .byte 0xb + .byte 0x4 + .long L(CFI4)-.LCFI3 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long L(CFI5)-.LCFI4 + .byte 0xb + .byte 0x4 + .long L(CFI6)-.LCFI5 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long L(CFI7)-.LCFI6 + .byte 0xb + .byte 0x4 + .long L(CFI8)-.LCFI7 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long L(CFI9)-.LCFI8 + .byte 0xb + .byte 0x4 + .long L(CFI10)-.LCFI9 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long L(CFI11)-.LCFI10 + .byte 0xb + .byte 0x4 + .long L(CFI12)-.LCFI11 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long L(CFI13)-.LCFI12 + .byte 0xb + .byte 0x4 + .long L(CFI14)-.LCFI13 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long L(CFI15)-.LCFI14 + .byte 0xb + .byte 0x4 + .long L(CFI16)-.LCFI15 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long L(CFI17)-.LCFI16 + .byte 0xb + .byte 0x4 + .long L(CFI18)-.LCFI17 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long L(CFI19)-.LCFI18 + .byte 0xb + .byte 0x4 + .long L(CFI20)-.LCFI19 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long L(CFI21)-.LCFI20 + .byte 0xb + .byte 0x4 + .long L(CFI22)-.LCFI21 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long L(CFI23)-.LCFI22 + .byte 0xb + .byte 0x4 + .long L(CFI24)-.LCFI23 + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .align 8 +L(EFDE1): +#endif +#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ + .section .note.GNU-stack,"",@progbits +#endif diff --git a/vacall/vacall-x86_64-windows.c b/vacall/vacall-x86_64-windows.c new file mode 100644 index 0000000..95ef376 --- /dev/null +++ b/vacall/vacall-x86_64-windows.c @@ -0,0 +1,191 @@ +/* vacall function for x86_64 CPU with the Windows ABI ('gcc -mabi=ms') */ + +/* + * Copyright 1995-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "vacall-internal.h" + +#ifdef REENTRANT +#define vacall_receiver callback_receiver +register struct { void (*vacall_function) (void*,va_alist); void* arg; } + * env __asm__("r10"); +#endif + +/*register __vaword iarg1 __asm__("rcx");*/ +/*register __vaword iarg2 __asm__("rdx");*/ +/*register __vaword iarg3 __asm__("r8");*/ +/*register __vaword iarg4 __asm__("r9");*/ + +register float farg1 __asm__("xmm0"); +register float farg2 __asm__("xmm1"); +register float farg3 __asm__("xmm2"); +register float farg4 __asm__("xmm3"); + +register double darg1 __asm__("xmm0"); +register double darg2 __asm__("xmm1"); +register double darg3 __asm__("xmm2"); +register double darg4 __asm__("xmm3"); + +register __vaword iret __asm__("rax"); +register float fret __asm__("xmm0"); +register double dret __asm__("xmm0"); + +/* + * Tell gcc to not use the call-saved registers %rbx, %rsi, %rdi. + * This ensures that the return sequence does not need to restore registers + * from the stack. + */ +register void* dummy1 __asm__("%rbx"); +register void* dummy2 __asm__("%rsi"); +register void* dummy3 __asm__("%rdi"); + +#ifdef REENTRANT +static +#endif +void /* the return type is variable, not void! */ +vacall_receiver (__vaword word1, __vaword word2, __vaword word3, __vaword word4, + __vaword firstword) +{ + __va_alist list; + /* Move the arguments passed in registers to their stack locations. */ + (&firstword)[-4] = word1; + (&firstword)[-3] = word2; + (&firstword)[-2] = word3; + (&firstword)[-1] = word4; + /* Move the floating-point arguments passed in registers to temp storage. */ + list.farg[0] = farg1; + list.farg[1] = farg2; + list.farg[2] = farg3; + list.farg[3] = farg4; + list.darg[0] = darg1; + list.darg[1] = darg2; + list.darg[2] = darg3; + list.darg[3] = darg4; + /* Prepare the va_alist. */ + list.flags = 0; + list.aptr = (long)(&firstword - 4); + list.raddr = (void*)0; + list.rtype = __VAvoid; + list.anum = 0; + /* Call vacall_function. The macros do all the rest. */ +#ifndef REENTRANT + (*vacall_function) (&list); +#else /* REENTRANT */ + (*env->vacall_function) (env->arg,&list); +#endif + /* Put return value into proper register. */ + if (list.rtype == __VAvoid) { + } else + if (list.rtype == __VAchar) { + iret = list.tmp._char; + } else + if (list.rtype == __VAschar) { + iret = list.tmp._schar; + } else + if (list.rtype == __VAuchar) { + iret = list.tmp._uchar; + } else + if (list.rtype == __VAshort) { + iret = list.tmp._short; + } else + if (list.rtype == __VAushort) { + iret = list.tmp._ushort; + } else + if (list.rtype == __VAint) { + iret = list.tmp._int; + } else + if (list.rtype == __VAuint) { + iret = list.tmp._uint; + } else + if (list.rtype == __VAlong) { + iret = list.tmp._long; + } else + if (list.rtype == __VAulong) { + iret = list.tmp._ulong; + } else + if (list.rtype == __VAlonglong) { + iret = list.tmp._long; + } else + if (list.rtype == __VAulonglong) { + iret = list.tmp._ulong; + } else + if (list.rtype == __VAfloat) { + fret = list.tmp._float; + } else + if (list.rtype == __VAdouble) { + dret = list.tmp._double; + } else + if (list.rtype == __VAvoidp) { + iret = (long)list.tmp._ptr; + } else + if (list.rtype == __VAstruct) { + if (list.flags & __VA_REGISTER_STRUCT_RETURN) { + /* Return structs of size 1, 2, 4, 8 in registers. */ + #if 0 /* Unoptimized */ + if (list.rsize == 1) { + iret = (__vaword)((unsigned char *) list.raddr)[0]; + } else + if (list.rsize == 2) { + iret = (__vaword)((unsigned char *) list.raddr)[0] + | ((__vaword)((unsigned char *) list.raddr)[1] << 8); + } else + if (list.rsize == 4) { + iret = (__vaword)((unsigned char *) list.raddr)[0] + | ((__vaword)((unsigned char *) list.raddr)[1] << 8) + | ((__vaword)((unsigned char *) list.raddr)[2] << 16) + | ((__vaword)((unsigned char *) list.raddr)[3] << 24); + } else + if (list.rsize == 8) { + iret = (__vaword)((unsigned char *) list.raddr)[0] + | ((__vaword)((unsigned char *) list.raddr)[1] << 8) + | ((__vaword)((unsigned char *) list.raddr)[2] << 16) + | ((__vaword)((unsigned char *) list.raddr)[3] << 24) + | ((__vaword)((unsigned char *) list.raddr)[4] << 32) + | ((__vaword)((unsigned char *) list.raddr)[5] << 40) + | ((__vaword)((unsigned char *) list.raddr)[6] << 48) + | ((__vaword)((unsigned char *) list.raddr)[7] << 56); + } + #else /* Optimized: fewer conditional jumps, fewer memory accesses */ + uintptr_t count = list.rsize; /* > 0, ≤ sizeof(__vaword) */ + if (count == 1 || count == 2 || count == 4 || count == 8) { + __vaword* wordaddr = (__vaword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__vaword)-1)); + uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__vaword)-1); /* ≥ 0, < sizeof(__vaword) */ + uintptr_t end_offset = start_offset + count; /* > 0, < 2*sizeof(__vaword) */ + if (end_offset <= sizeof(__vaword)) { + /* 0 < end_offset ≤ sizeof(__vaword) */ + __vaword mask0 = ((__vaword)2 << (end_offset*8-1)) - 1; + iret = (wordaddr[0] & mask0) >> (start_offset*8); + } else { + /* sizeof(__vaword) < end_offset < 2*sizeof(__vaword), start_offset > 0 */ + __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; + iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*8-start_offset*8)); + } + } + #endif + } else { + iret = (long)list.raddr; + } + } +} + +#ifdef REENTRANT +__vacall_r_t +callback_get_receiver (void) +{ + return (__vacall_r_t)(void*)&callback_receiver; +} +#endif diff --git a/vacall/vacall-x86_64-windows.s b/vacall/vacall-x86_64-windows.s new file mode 100644 index 0000000..e1cadfb --- /dev/null +++ b/vacall/vacall-x86_64-windows.s @@ -0,0 +1,347 @@ + .file "vacall-x86_64-windows.c" + .text + .p2align 4,,15 + .globl vacall_receiver + .type vacall_receiver, @function +vacall_receiver: +.LFB0: + pushq %rbp +.LCFI0: + movq %rsp, %rbp +.LCFI1: + subq $144, %rsp + movq %rcx, 16(%rbp) + leaq 16(%rbp), %rcx + movq %rdx, 24(%rbp) + movq %r8, 32(%rbp) + movq %r9, 40(%rbp) + movss %xmm0, -52(%rbp) + movq %rcx, -88(%rbp) + movss %xmm1, -48(%rbp) + movl $0, -112(%rbp) + movss %xmm2, -44(%rbp) + movq $0, -80(%rbp) + leaq -112(%rbp), %rcx + movss %xmm3, -40(%rbp) + movl $0, -72(%rbp) + movsd %xmm0, -32(%rbp) + movl $0, -56(%rbp) + movsd %xmm1, -24(%rbp) + movsd %xmm2, -16(%rbp) + movsd %xmm3, -8(%rbp) + call *vacall_function(%rip) + movl -72(%rbp), %edx + testl %edx, %edx + je .L1 + cmpl $1, %edx + je .L34 + cmpl $2, %edx + je .L34 + cmpl $3, %edx + je .L37 + cmpl $4, %edx + je .L38 + cmpl $5, %edx + je .L39 + cmpl $6, %edx + je .L40 + cmpl $7, %edx + je .L41 + cmpl $8, %edx + je .L35 + cmpl $9, %edx + je .L35 + cmpl $10, %edx + je .L35 + cmpl $11, %edx + je .L35 + cmpl $12, %edx + je .L42 + cmpl $13, %edx + je .L43 + cmpl $14, %edx + je .L35 + cmpl $15, %edx + jne .L1 + testb $4, -111(%rbp) + je .L17 + movq -64(%rbp), %rdx + leaq -4(%rdx), %rcx + testq $-5, %rcx + je .L20 + leaq -1(%rdx), %rcx + cmpq $1, %rcx + ja .L1 +.L20: + movq -80(%rbp), %r8 + movq %r8, %r9 + andl $7, %r8d + addq %r8, %rdx + andq $-8, %r9 + cmpq $8, %rdx + ja .L19 + leal -1(,%rdx,8), %ecx + movl $2, %edx + salq %cl, %rdx + leal 0(,%r8,8), %ecx + subq $1, %rdx + andq (%r9), %rdx + sarq %cl, %rdx + movq %rdx, %rax +.L1: + leave +.LCFI2: + ret + .p2align 4,,10 + .p2align 3 +.L34: +.LCFI3: + movsbq -104(%rbp), %rax + leave +.LCFI4: + ret + .p2align 4,,10 + .p2align 3 +.L35: +.LCFI5: + movq -104(%rbp), %rax + leave +.LCFI6: + ret + .p2align 4,,10 + .p2align 3 +.L37: +.LCFI7: + movzbl -104(%rbp), %eax + leave +.LCFI8: + ret + .p2align 4,,10 + .p2align 3 +.L38: +.LCFI9: + movswq -104(%rbp), %rax + leave +.LCFI10: + ret + .p2align 4,,10 + .p2align 3 +.L39: +.LCFI11: + movzwl -104(%rbp), %eax + leave +.LCFI12: + ret + .p2align 4,,10 + .p2align 3 +.L40: +.LCFI13: + movslq -104(%rbp), %rax + leave +.LCFI14: + ret + .p2align 4,,10 + .p2align 3 +.L42: +.LCFI15: + movss -104(%rbp), %xmm0 + leave +.LCFI16: + ret + .p2align 4,,10 + .p2align 3 +.L41: +.LCFI17: + movl -104(%rbp), %eax + leave +.LCFI18: + ret +.L43: +.LCFI19: + movsd -104(%rbp), %xmm0 + leave +.LCFI20: + ret +.L17: +.LCFI21: + movq -80(%rbp), %rax + leave +.LCFI22: + ret +.L19: +.LCFI23: + leal -65(,%rdx,8), %ecx + movl $2, %edx + salq %cl, %rdx + movl %r8d, %ecx + subq $1, %rdx + andq 8(%r9), %rdx + negl %ecx + leal 64(,%rcx,8), %ecx + salq %cl, %rdx + leal 0(,%r8,8), %ecx + movq (%r9), %r8 + leave +.LCFI24: + sarq %cl, %r8 + orq %r8, %rdx + movq %rdx, %rax + ret +.LFE0: + .size vacall_receiver, .-vacall_receiver + .section .eh_frame,"a",@progbits +.Lframe1: + .long .LECIE1-.LSCIE1 +.LSCIE1: + .long 0 + .byte 0x3 + .string "zR" + .uleb128 0x1 + .sleb128 -8 + .uleb128 0x10 + .uleb128 0x1 + .byte 0x3 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x90 + .uleb128 0x1 + .align 8 +.LECIE1: +.LSFDE1: + .long .LEFDE1-.LASFDE1 +.LASFDE1: + .long .LASFDE1-.Lframe1 + .long .LFB0 + .long .LFE0-.LFB0 + .uleb128 0 + .byte 0x4 + .long .LCFI0-.LFB0 + .byte 0xe + .uleb128 0x10 + .byte 0x86 + .uleb128 0x2 + .byte 0x4 + .long .LCFI1-.LCFI0 + .byte 0xd + .uleb128 0x6 + .byte 0x4 + .long .LCFI2-.LCFI1 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI3-.LCFI2 + .byte 0xb + .byte 0x4 + .long .LCFI4-.LCFI3 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI5-.LCFI4 + .byte 0xb + .byte 0x4 + .long .LCFI6-.LCFI5 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI7-.LCFI6 + .byte 0xb + .byte 0x4 + .long .LCFI8-.LCFI7 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI9-.LCFI8 + .byte 0xb + .byte 0x4 + .long .LCFI10-.LCFI9 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI11-.LCFI10 + .byte 0xb + .byte 0x4 + .long .LCFI12-.LCFI11 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI13-.LCFI12 + .byte 0xb + .byte 0x4 + .long .LCFI14-.LCFI13 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI15-.LCFI14 + .byte 0xb + .byte 0x4 + .long .LCFI16-.LCFI15 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI17-.LCFI16 + .byte 0xb + .byte 0x4 + .long .LCFI18-.LCFI17 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI19-.LCFI18 + .byte 0xb + .byte 0x4 + .long .LCFI20-.LCFI19 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI21-.LCFI20 + .byte 0xb + .byte 0x4 + .long .LCFI22-.LCFI21 + .byte 0xa + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI23-.LCFI22 + .byte 0xb + .byte 0x4 + .long .LCFI24-.LCFI23 + .byte 0xc6 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .align 8 +.LEFDE1: + .ident "GCC: (GNU) 5.4.0" + .section .note.GNU-stack,"",@progbits diff --git a/vacall/vacall-x86_64-x32-linux.s b/vacall/vacall-x86_64-x32-linux.s new file mode 100644 index 0000000..127f761 --- /dev/null +++ b/vacall/vacall-x86_64-x32-linux.s @@ -0,0 +1,286 @@ + .file "vacall-x86_64.c" + .section .text.unlikely,"ax",@progbits +.LCOLDB0: + .text +.LHOTB0: + .p2align 4,,15 + .globl vacall_receiver + .type vacall_receiver, @function +vacall_receiver: +.LFB0: + pushq %rbp +.LCFI0: + movl %esp, %ebp +.LCFI1: + pushq %r14 + subl $184, %esp +.LCFI2: + movq %rsi, -64(%ebp) + leal 16(%rbp), %esi + movq %rcx, -48(%ebp) + movl vacall_function(%rip), %ecx + movsd %xmm0, -144(%ebp) + movq %rdi, -72(%ebp) + movq %rdx, -56(%ebp) + movsd %xmm1, -136(%ebp) + movq %r8, -40(%ebp) + movsd %xmm2, -128(%ebp) + leal -192(%rbp), %edi + movq %r9, -32(%ebp) + movsd %xmm3, -120(%ebp) + movsd %xmm4, -112(%ebp) + movl $0, -192(%ebp) + movsd %xmm5, -104(%ebp) + movl %esi, -168(%ebp) + movsd %xmm6, -96(%ebp) + movl $0, -164(%ebp) + movsd %xmm7, -88(%ebp) + movl $0, -160(%ebp) + movl $0, -80(%ebp) + movl $0, -152(%ebp) + call *%rcx + movl -160(%ebp), %ecx + testl %ecx, %ecx + je .L1 + cmpl $1, %ecx + je .L27 + cmpl $2, %ecx + je .L27 + cmpl $3, %ecx + je .L33 + cmpl $4, %ecx + je .L34 + cmpl $5, %ecx + je .L35 + cmpl $6, %ecx + je .L28 + cmpl $7, %ecx + je .L30 + cmpl $8, %ecx + je .L28 + cmpl $9, %ecx + je .L30 + cmpl $10, %ecx + je .L31 + cmpl $11, %ecx + je .L31 + cmpl $12, %ecx + je .L36 + cmpl $13, %ecx + je .L37 + cmpl $14, %ecx + je .L30 + cmpl $15, %ecx + jne .L1 + testb $4, -191(%ebp) + je .L1 + movl -156(%ebp), %ecx + leal -1(%rcx), %esi + cmpl $15, %esi + ja .L1 + movl -164(%ebp), %esi + movl %esi, %edi + andl $7, %esi + andl $-8, %edi + cmpl $8, %ecx + leal (%rcx,%rsi), %r10d + ja .L17 + cmpl $8, %r10d + ja .L18 + leal -1(,%r10,8), %ecx + movl $2, %r8d + salq %cl, %r8 + movq %r8, %rcx + subq $1, %rcx + andq (%edi), %rcx + movq %rcx, %rdi + leal 0(,%rsi,8), %ecx + sarq %cl, %rdi + movq %rdi, %rax +.L1: + addl $184, %esp + popq %r14 + popq %rbp +.LCFI3: + ret + .p2align 4,,10 + .p2align 3 +.L27: +.LCFI4: + movsbq -184(%ebp), %rax + addl $184, %esp + popq %r14 + popq %rbp +.LCFI5: + ret + .p2align 4,,10 + .p2align 3 +.L28: +.LCFI6: + movslq -184(%ebp), %rax + jmp .L1 + .p2align 4,,10 + .p2align 3 +.L33: + movzbl -184(%ebp), %eax + jmp .L1 + .p2align 4,,10 + .p2align 3 +.L34: + movswq -184(%ebp), %rax + jmp .L1 + .p2align 4,,10 + .p2align 3 +.L30: + movl -184(%ebp), %eax + jmp .L1 + .p2align 4,,10 + .p2align 3 +.L35: + movzwl -184(%ebp), %eax + jmp .L1 + .p2align 4,,10 + .p2align 3 +.L36: + movss -184(%ebp), %xmm0 + jmp .L1 + .p2align 4,,10 + .p2align 3 +.L31: + movq -184(%ebp), %rax + jmp .L1 +.L37: + movsd -184(%ebp), %xmm0 + jmp .L1 +.L17: + cmpl $16, %r10d + leal 0(,%rsi,8), %r9d + jbe .L38 + negl %esi + movq 8(%edi), %r8 + movl %r9d, %ecx + leal 64(,%rsi,8), %r11d + movq (%edi), %rsi + movq %r8, %r14 + sarq %cl, %rsi + movl %r11d, %ecx + salq %cl, %r14 + leal -129(,%r10,8), %ecx + orq %r14, %rsi + movq %rsi, %rax + movl $2, %esi + salq %cl, %rsi + movl %r11d, %ecx + subq $1, %rsi + andq 16(%edi), %rsi + salq %cl, %rsi + movl %r9d, %ecx + sarq %cl, %r8 + orq %r8, %rsi + movq %rsi, %rdx + jmp .L1 +.L18: + leal -65(,%r10,8), %ecx + movl $2, %r8d + salq %cl, %r8 + movl %esi, %ecx + subq $1, %r8 + andq 8(%edi), %r8 + negl %ecx + leal 64(,%rcx,8), %ecx + movq (%edi), %rdi + salq %cl, %r8 + leal 0(,%rsi,8), %ecx + sarq %cl, %rdi + orq %rdi, %r8 + movq %r8, %rax + jmp .L1 +.L38: + leal -65(,%r10,8), %ecx + movl $2, %r8d + movq (%edi), %r10 + imull $-4, %esi, %esi + salq %cl, %r8 + movl %r9d, %ecx + subq $1, %r8 + andq 8(%edi), %r8 + sarq %cl, %r10 + addl $32, %esi + movl %esi, %ecx + movq %r8, %rdi + salq %cl, %rdi + salq %cl, %rdi + movl %r9d, %ecx + orq %rdi, %r10 + sarq %cl, %r8 + movq %r10, %rax + movq %r8, %rdx + jmp .L1 +.LFE0: + .size vacall_receiver, .-vacall_receiver + .section .text.unlikely +.LCOLDE0: + .text +.LHOTE0: + .section .eh_frame,"a",@progbits +.Lframe1: + .long .LECIE1-.LSCIE1 +.LSCIE1: + .long 0 + .byte 0x3 + .string "zR" + .uleb128 0x1 + .sleb128 -8 + .uleb128 0x10 + .uleb128 0x1 + .byte 0x3 + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x90 + .uleb128 0x1 + .align 4 +.LECIE1: +.LSFDE1: + .long .LEFDE1-.LASFDE1 +.LASFDE1: + .long .LASFDE1-.Lframe1 + .long .LFB0 + .long .LFE0-.LFB0 + .uleb128 0 + .byte 0x4 + .long .LCFI0-.LFB0 + .byte 0xe + .uleb128 0x10 + .byte 0x86 + .uleb128 0x2 + .byte 0x4 + .long .LCFI1-.LCFI0 + .byte 0xd + .uleb128 0x6 + .byte 0x4 + .long .LCFI2-.LCFI1 + .byte 0x8e + .uleb128 0x3 + .byte 0x4 + .long .LCFI3-.LCFI2 + .byte 0xa + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI4-.LCFI3 + .byte 0xb + .byte 0x4 + .long .LCFI5-.LCFI4 + .byte 0xa + .byte 0xc + .uleb128 0x7 + .uleb128 0x8 + .byte 0x4 + .long .LCFI6-.LCFI5 + .byte 0xb + .align 4 +.LEFDE1: + .ident "GCC: (GNU) 5.4.0" + .section .note.GNU-stack,"",@progbits diff --git a/vacall/vacall-x86_64.c b/vacall/vacall-x86_64.c new file mode 100644 index 0000000..5d50a04 --- /dev/null +++ b/vacall/vacall-x86_64.c @@ -0,0 +1,234 @@ +/* vacall function for x86_64 CPU with the Unix ABI ('gcc -mabi=sysv') */ + +/* + * Copyright 1995-2017 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "vacall-internal.h" + +#ifdef REENTRANT +#define vacall_receiver callback_receiver +register struct { void (*vacall_function) (void*,va_alist); void* arg; } + * env __asm__("r10"); +#endif + +/*register __vaword iarg1 __asm__("rdi");*/ +/*register __vaword iarg2 __asm__("rsi");*/ +/*register __vaword iarg3 __asm__("rdx");*/ +/*register __vaword iarg4 __asm__("rcx");*/ +/*register __vaword iarg5 __asm__("r8");*/ +/*register __vaword iarg6 __asm__("r9");*/ + +register double farg1 __asm__("xmm0"); +register double farg2 __asm__("xmm1"); +register double farg3 __asm__("xmm2"); +register double farg4 __asm__("xmm3"); +register double farg5 __asm__("xmm4"); +register double farg6 __asm__("xmm5"); +register double farg7 __asm__("xmm6"); +register double farg8 __asm__("xmm7"); + +register __vaword iret __asm__("rax"); +register __vaword iret2 __asm__("rdx"); +register float fret __asm__("xmm0"); +register double dret __asm__("xmm0"); + +/* + * Tell gcc to not use the call-saved registers %rbx, %rbp. + * This ensures that the return sequence does not need to restore registers + * from the stack. + */ +register void* dummy1 __asm__("%rbx"); +#if __GNUC__ < 4 || (__GNUC__ == 4 && __GNUC_MINOR__ < 9) +register void* dummy2 __asm__("%rbp"); +#endif + +#ifdef REENTRANT +static +#endif +void /* the return type is variable, not void! */ +vacall_receiver (__vaword word1, __vaword word2, __vaword word3, __vaword word4, + __vaword word5, __vaword word6, + __vaword firstword) +{ + __va_alist list; + /* Move the arguments passed in registers to temp storage. */ + list.iarg[0] = word1; + list.iarg[1] = word2; + list.iarg[2] = word3; + list.iarg[3] = word4; + list.iarg[4] = word5; + list.iarg[5] = word6; + list.farg[0] = farg1; + list.farg[1] = farg2; + list.farg[2] = farg3; + list.farg[3] = farg4; + list.farg[4] = farg5; + list.farg[5] = farg6; + list.farg[6] = farg7; + list.farg[7] = farg8; + /* Prepare the va_alist. */ + list.flags = 0; + list.aptr = (long)&firstword; + list.raddr = (void*)0; + list.rtype = __VAvoid; + list.ianum = 0; + list.fanum = 0; + /* Call vacall_function. The macros do all the rest. */ +#ifndef REENTRANT + (*vacall_function) (&list); +#else /* REENTRANT */ + (*env->vacall_function) (env->arg,&list); +#endif + /* Put return value into proper register. */ + if (list.rtype == __VAvoid) { + } else + if (list.rtype == __VAchar) { + iret = list.tmp._char; + } else + if (list.rtype == __VAschar) { + iret = list.tmp._schar; + } else + if (list.rtype == __VAuchar) { + iret = list.tmp._uchar; + } else + if (list.rtype == __VAshort) { + iret = list.tmp._short; + } else + if (list.rtype == __VAushort) { + iret = list.tmp._ushort; + } else + if (list.rtype == __VAint) { + iret = list.tmp._int; + } else + if (list.rtype == __VAuint) { + iret = list.tmp._uint; + } else + if (list.rtype == __VAlong) { + iret = list.tmp._long; + } else + if (list.rtype == __VAulong) { + iret = list.tmp._ulong; + } else + if (list.rtype == __VAlonglong) { +#ifdef __x86_64_x32__ + iret = list.tmp._longlong; +#else + iret = list.tmp._long; +#endif + } else + if (list.rtype == __VAulonglong) { +#ifdef __x86_64_x32__ + iret = list.tmp._ulonglong; +#else + iret = list.tmp._ulong; +#endif + } else + if (list.rtype == __VAfloat) { + fret = list.tmp._float; + } else + if (list.rtype == __VAdouble) { + dret = list.tmp._double; + } else + if (list.rtype == __VAvoidp) { +#ifdef __x86_64_x32__ + /* The x86_64 ABI, section 10.1, specifies that pointers are zero-extended + from 32 bits to 64 bits. */ + iret = (unsigned long long)(unsigned long)list.tmp._ptr; +#else + iret = (long)list.tmp._ptr; +#endif + } else + if (list.rtype == __VAstruct) { + if (list.flags & __VA_REGISTER_STRUCT_RETURN) { + /* Return structs of size <= 16 in registers. */ + if (list.rsize > 0 && list.rsize <= 16) { + #if 0 /* Unoptimized */ + iret = (__vaword)((unsigned char *) list.raddr)[0]; + if (list.rsize >= 2) + iret |= (__vaword)((unsigned char *) list.raddr)[1] << 8; + if (list.rsize >= 3) + iret |= (__vaword)((unsigned char *) list.raddr)[2] << 16; + if (list.rsize >= 4) + iret |= (__vaword)((unsigned char *) list.raddr)[3] << 24; + if (list.rsize >= 5) + iret |= (__vaword)((unsigned char *) list.raddr)[4] << 32; + if (list.rsize >= 6) + iret |= (__vaword)((unsigned char *) list.raddr)[5] << 40; + if (list.rsize >= 7) + iret |= (__vaword)((unsigned char *) list.raddr)[6] << 48; + if (list.rsize >= 8) + iret |= (__vaword)((unsigned char *) list.raddr)[7] << 56; + if (list.rsize >= 9) { + iret2 = (__vaword)((unsigned char *) list.raddr)[8]; + if (list.rsize >= 10) + iret2 |= (__vaword)((unsigned char *) list.raddr)[9] << 8; + if (list.rsize >= 11) + iret2 |= (__vaword)((unsigned char *) list.raddr)[10] << 16; + if (list.rsize >= 12) + iret2 |= (__vaword)((unsigned char *) list.raddr)[11] << 24; + if (list.rsize >= 13) + iret2 |= (__vaword)((unsigned char *) list.raddr)[12] << 32; + if (list.rsize >= 14) + iret2 |= (__vaword)((unsigned char *) list.raddr)[13] << 40; + if (list.rsize >= 15) + iret2 |= (__vaword)((unsigned char *) list.raddr)[14] << 48; + if (list.rsize >= 16) + iret2 |= (__vaword)((unsigned char *) list.raddr)[15] << 56; + } + #else /* Optimized: fewer conditional jumps, fewer memory accesses */ + uintptr_t count = list.rsize; /* > 0, ≤ 2*sizeof(__vaword) */ + __vaword* wordaddr = (__vaword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__vaword)-1)); + uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__vaword)-1); /* ≥ 0, < sizeof(__vaword) */ + uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__vaword) */ + if (count <= sizeof(__vaword)) { + /* Assign iret. */ + if (end_offset <= sizeof(__vaword)) { + /* 0 < end_offset ≤ sizeof(__vaword) */ + __vaword mask0 = ((__vaword)2 << (end_offset*8-1)) - 1; + iret = (wordaddr[0] & mask0) >> (start_offset*8); + } else { + /* sizeof(__vaword) < end_offset < 2*sizeof(__vaword), start_offset > 0 */ + __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; + iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*8-start_offset*8)); + } + } else { + /* Assign iret, iret2. */ + if (end_offset <= 2*sizeof(__vaword)) { + /* sizeof(__vaword) < end_offset ≤ 2*sizeof(__vaword) */ + __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; + iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*4-start_offset*4) << (sizeof(__vaword)*4-start_offset*4)); + iret2 = (wordaddr[1] & mask1) >> (start_offset*8); + } else { + /* 2*sizeof(__vaword) < end_offset < 3*sizeof(__vaword), start_offset > 0 */ + __vaword mask2 = ((__vaword)2 << (end_offset*8-2*sizeof(__vaword)*8-1)) - 1; + iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__vaword)*8-start_offset*8)); + iret2 = (wordaddr[1] >> (start_offset*8)) | ((wordaddr[2] & mask2) << (sizeof(__vaword)*8-start_offset*8)); + } + } + #endif + } + } + } +} + +#ifdef REENTRANT +__vacall_r_t +callback_get_receiver (void) +{ + return (__vacall_r_t)(void*)&callback_receiver; +} +#endif diff --git a/vacall/vacall.3 b/vacall/vacall.3 new file mode 100644 index 0000000..2737b2c --- /dev/null +++ b/vacall/vacall.3 @@ -0,0 +1,295 @@ +.\" Copyright (C) 1995-2017 Bruno Haible +.\" +.\" This manual is free documentation. It is dually licensed under the +.\" GNU FDL and the GNU GPL. This means that you can redistribute this +.\" manual under either of these two licenses, at your choice. +.\" +.\" This manual is covered by the GNU FDL. Permission is granted to copy, +.\" distribute and/or modify this document under the terms of the +.\" GNU Free Documentation License (FDL), either version 1.2 of the +.\" License, or (at your option) any later version published by the +.\" Free Software Foundation (FSF); with no Invariant Sections, with no +.\" Front-Cover Text, and with no Back-Cover Texts. +.\" A copy of the license is at . +.\" +.\" This manual is covered by the GNU GPL. You can redistribute it and/or +.\" modify it under the terms of the GNU General Public License (GPL), either +.\" version 2 of the License, or (at your option) any later version published +.\" by the Free Software Foundation (FSF). +.\" A copy of the license is at . +.\" +.TH VACALL 3 "1 January 2017" +.SH NAME +vacall \- C functions called with variable arguments +.SH SYNOPSIS +.B #include +.LP +.B extern void* vacall_function; +.LP +.nf +.BI "void " function " (va_alist" alist ")" +.BI "{" +.BI " va_start_" type "(" alist "[, " return_type "]);" +.BI " " arg " = va_arg_" type "(" alist "[, " arg_type "]);" +.BI " va_return_" type "(" alist "[[, " return_type "], " return_value "]);" +.BI "}" +.fi +.LP +.BI "vacall_function = " "&function" ";" +.LP +.IB "val" " = ((" return_type " (*) ()) vacall) (" arg1 , arg2 , ... ");" +.SH DESCRIPTION +This set of macros permit a C function +.I function +to be called with variable arguments and to return variable return values. +This is much like the +.BR stdarg (3) +facility, but also allows the return value to be specified at run time. + +Function calling conventions differ considerably on different machines, and +.I vacall +attempts to provide some degree of isolation from such architecture +dependencies. + +The function that can be called with any number and type of arguments +and which will return any type of return value is +.BR vacall . +It will do some magic and call the function stored in the variable +.BR vacall_function . +If you want to make more than one use of +.IR vacall , +use the +.IR trampoline (3) +facility to store +.I &function +into +.B vacall_function +just before calling +.BR vacall . + +Within +.IR function , +the following macros can be used to walk through the argument list and +specify a return value: +.RS 0 +.TP +.BI "va_start_" type "(" alist "[, " return_type "]);" +starts the walk through the argument list and specifies the return type. +.TP +.IB arg " = va_arg_" type "(" alist "[, " arg_type "]);" +fetches the next argument from the argument list. +.TP +.BI "va_return_" type "(" alist "[[, " return_type "], " return_value "]);" +ends the walk through the argument list and specifies the return value. +.RE + +The +.I type +in +.BI va_start_ type +and +.BI va_return_ type +shall be one of +.BR void ", " int ", " uint ", " long ", " ulong ", " longlong ", " ulonglong ", " double ", " struct ", " ptr +or (for ANSI C calling conventions only) +.BR char ", " schar ", " uchar ", " short ", " ushort ", " float , +depending on the class of +.IR return_type . + +The +.I type +specifiers in +.BI va_start_ type +and +.BI va_return_ type +must be the same. +The +.I return_type +specifiers passed to +.BI va_start_ type +and +.BI va_return_ type +must be the same. + +The +.I type +in +.BI va_arg_ type +shall be one of +.BR int ", " uint ", " long ", " ulong ", " longlong ", " ulonglong ", " double ", " struct ", " ptr +or (for ANSI C calling conventions only) +.BR char ", " schar ", " uchar ", " short ", " ushort ", " float , +depending on the class of +.IR arg_type . + +In +.BI "va_start_struct(" alist ", " return_type ", " splittable ); +the +.I splittable +flag specifies whether the struct +.I return_type +can be returned in registers such that every struct field fits entirely in +a single register. This needs to be specified for structs of size +2*sizeof(long). For structs of size <= sizeof(long), +.I splittable +is ignored and assumed to be 1. For structs of size > 2*sizeof(long), +.I splittable +is ignored and assumed to be 0. There are some handy macros for this: +.nf +.BI "va_word_splittable_1 (" type1 ) +.BI "va_word_splittable_2 (" type1 ", " type2 ) +.BI "va_word_splittable_3 (" type1 ", " type2 ", " type3 ) +.BI "va_word_splittable_4 (" type1 ", " type2 ", " type3 ", " type4 ) +.fi +For a struct with three slots +.nf +.BI "struct { " "type1 id1" "; " "type2 id2" "; " "type3 id3" "; }" +.fi +you can specify +.I splittable +as +.BI "va_word_splittable_3 (" type1 ", " type2 ", " type3 ) +.RB . + +.SH NOTES + +Functions which want to emulate Kernighan & Ritchie style functions (i.e., +in ANSI C, functions without a typed argument list) cannot use the +.I type +values +.BR char ", " schar ", " uchar ", " short ", " ushort ", " float . +As prescribed by the default K&R C expression promotions, they have +to use +.B int +instead of +.BR char ", " schar ", " uchar ", " short ", " ushort +and +.B double +instead of +.BR float . + +The macros +.BR va_start_longlong(\|) , +.BR va_start_ulonglong(\|) , +.BR va_return_longlong(\|) , +.BR va_return_ulonglong(\|) , +.B va_arg_longlong(\|) +and +.B va_arg_ulonglong(\|) +work only if the C compiler has a working +.B long long +64-bit integer type. + +The struct types used in +.B va_start_struct(\|) +and +.B va_struct(\|) +must only contain (signed or unsigned) int, long, long long or pointer fields. +Struct types containing (signed or unsigned) char, short, float, double or +other structs are not supported. + +.SH EXAMPLE + +This example, a possible implementation of +.BR execl (3) +on top of +.BR execv (2) +using +.BR stdarg (3), + +.nf +.ft B +#include +#define MAXARGS 100 +/* execl is called by execl(file, arg1, arg2, ..., (char *)0); */ +int execl (...) +{ + va_list ap; + char* file; + char* args[MAXARGS]; + int argno = 0; + va_start (ap); + file = va_arg(ap, char*); + while ((args[argno] = va_arg(ap, char*)) != (char *)0) + argno++; + va_end (ap); + return execv(file, args); +} +.ft +.fi + +looks like this using +.BR vacall (3): + +.nf +.ft B +#include +#define MAXARGS 100 +/* execl is called by vacall(file, arg1, arg2, ..., (char *)0); */ +void execl (va_alist ap) +{ + char* file; + char* args[MAXARGS]; + int argno = 0; + int retval; + va_start_int (ap); + file = va_arg_ptr(ap, char*); + while ((args[argno] = va_arg_ptr(ap, char*)) != (char *)0) + argno++; + retval = execv(file, args); + va_return_int (ap, retval); +} +vacall_function = &execl; +.ft +.fi + +.SH SEE ALSO +.BR stdarg (3), +.BR trampoline (3), +.BR callback (3). + +.SH BUGS + +The current implementations have been tested on a selection of common +cases but there are probably still many bugs. + +There are typically built-in limits on the size of the argument-list, +which may also include the size of any structure arguments. + +The decision whether a struct is to be returned in registers or in memory +considers only the struct's size and alignment. This is inaccurate: for +example, gcc on m68k-next returns +.B "struct { char a,b,c; }" +in registers and +.B "struct { char a[3]; }" +in memory, although both types have the same size and the same alignment. + +The argument list can only be walked once. + +The use of the global variable +.B vacall_function +is not reentrant. This is fixed in the +.BR callback (3) +package. + +.SH PORTING + +Knowledge about argument passing conventions can be found in the gcc +source, file +.RI gcc-2.6.3/config/ cpu / cpu .h, +section "Stack layout; function entry, exit and calling." + +The implementation of varargs for gcc can be found in the gcc source, files +gcc-2.6.3/ginclude/va*.h. + +gcc's __builtin_saveregs() function is defined in the gcc source, file +gcc-2.6.3/libgcc2.c. + +.SH AUTHOR + +Bruno Haible + +.SH ACKNOWLEDGEMENTS + +Many ideas and a lot of code were cribbed from the gcc source. + diff --git a/vacall/vacall.h b/vacall/vacall.h new file mode 100644 index 0000000..9485356 --- /dev/null +++ b/vacall/vacall.h @@ -0,0 +1,457 @@ +/* + * Copyright 1995-2019 Bruno Haible + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#ifndef _VACALL_H +#define _VACALL_H + +#include + +#include "ffcall-version.h" +#include "ffcall-abi.h" + + +/* Determine whether the current ABI is LLP64 + ('long' = 32-bit, 'long long' = 'void*' = 64-bit). */ +#if defined(__x86_64__) && defined(_WIN32) && !defined(__CYGWIN__) +#define __VA_LLP64 1 +#endif + +/* Determine the alignment of a type at compile time. + */ +#if defined(__GNUC__) || defined(__IBM__ALIGNOF__) +#define __VA_alignof __alignof__ +#elif defined(__cplusplus) +template struct __VA_alignof_helper { char __slot1; type __slot2; }; +#define __VA_alignof(type) offsetof (__VA_alignof_helper, __slot2) +#elif defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) /* SGI compiler */ +#define __VA_alignof __builtin_alignof +#else +#define __VA_offsetof(type,ident) ((unsigned long)&(((type*)0)->ident)) +#define __VA_alignof(type) __VA_offsetof(struct { char __slot1; type __slot2; }, __slot2) +#endif + +#ifdef __cplusplus +extern "C" { +#endif + +/* C builtin types. + */ +#if defined(__mipsn32__) || defined(__x86_64_x32__) || defined(__VA_LLP64) +typedef long long __vaword; +#else +typedef long __vaword; +#endif + +enum __VAtype +{ + __VAvoid, + __VAchar, + __VAschar, + __VAuchar, + __VAshort, + __VAushort, + __VAint, + __VAuint, + __VAlong, + __VAulong, + __VAlonglong, + __VAulonglong, + __VAfloat, + __VAdouble, + __VAvoidp, + __VAstruct +}; + +enum __VA_alist_flags +{ + + /* how to return structs */ + /* There are basically 3 ways to return structs: + * a. The called function returns a pointer to static data. Not reentrant. + * Not supported any more. + * b. The caller passes the return structure address in a dedicated register + * or as a first (or last), invisible argument. The called function stores + * its result there. + * c. Like b, and the called function also returns the return structure + * address in the return value register. (This is not very distinguishable + * from b.) + * Independently of this, + * r. small structures (<= 4 or <= 8 bytes) may be returned in the return + * value register(s), or + * m. even small structures are passed in memory. + */ + /* gcc-2.6.3 employs the following strategy: + * - If PCC_STATIC_STRUCT_RETURN is defined in the machine description + * it uses method a, else method c. + * - If flag_pcc_struct_return is set (either by -fpcc-struct-return or if + * DEFAULT_PCC_STRUCT_RETURN is defined to 1 in the machine description) + * it uses method m, else (either by -freg-struct-return or if + * DEFAULT_PCC_STRUCT_RETURN is defined to 0 in the machine description) + * method r. + */ + __VA_SMALL_STRUCT_RETURN = 1<<1, /* r: special case for small structs */ + __VA_GCC_STRUCT_RETURN = 1<<2, /* consider 8 byte structs as small */ +#if defined(__sparc__) && !defined(__sparc64__) + __VA_SUNCC_STRUCT_RETURN = 1<<3, + __VA_SUNPROCC_STRUCT_RETURN = 1<<4, +#else + __VA_SUNCC_STRUCT_RETURN = 0, + __VA_SUNPROCC_STRUCT_RETURN = 0, +#endif +#if defined(__i386__) + __VA_MSVC_STRUCT_RETURN = 1<<4, +#endif + /* the default way to return structs */ + /* This choice here is based on the assumption that the function you are + * going to call has been compiled with the same compiler you are using to + * include this file. + * If you want to call functions with another struct returning convention, + * just #define __VA_STRUCT_RETURN ... + * before or after #including . + */ +#ifndef __VA_STRUCT_RETURN + __VA_STRUCT_RETURN = +#if defined(__sparc__) && !defined(__sparc64__) && defined(__sun) && (defined(__SUNPRO_C) || defined(__SUNPRO_CC)) /* SUNWspro cc or CC */ + __VA_SUNPROCC_STRUCT_RETURN, +#else +#if (defined(__i386__) && (defined(_WIN32) || defined(__CYGWIN__) || (defined(__MACH__) && defined(__APPLE__)) || defined(__FreeBSD__) || defined(__DragonFly__) || defined(__OpenBSD__))) || defined(__m68k__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc64__) || defined(__hppa__) || defined(__hppa64__) || defined(__arm__) || defined(__armhf__) || defined(__arm64__) || defined(__powerpc64_elfv2__) || defined(__ia64__) || defined(__x86_64__) || defined(__riscv32__) || defined(__riscv64__) + __VA_SMALL_STRUCT_RETURN | +#endif +#if defined(__GNUC__) && !((defined(__mipsn32__) || defined(__mips64__)) && ((__GNUC__ == 3 && __GNUC_MINOR__ >= 4) || (__GNUC__ > 3))) + __VA_GCC_STRUCT_RETURN | +#endif +#if defined(__i386__) && defined(_WIN32) && !defined(__CYGWIN__) /* native Windows */ + __VA_MSVC_STRUCT_RETURN | +#endif + 0, +#endif +#endif + + /* how to return floats */ +#if defined(__m68k__) || (defined(__sparc__) && !defined(__sparc64__)) + __VA_SUNCC_FLOAT_RETURN = 1<<5, +#endif +#if defined(__m68k__) + __VA_FREG_FLOAT_RETURN = 1<<6, +#endif + /* the default way to return floats */ + /* This choice here is based on the assumption that the function you are + * going to call has been compiled with the same compiler you are using to + * include this file. + * If you want to call functions with another float returning convention, + * just #define __VA_FLOAT_RETURN ... + * before or after #including . + */ +#ifndef __VA_FLOAT_RETURN +#if (defined(__m68k__) || (defined(__sparc__) && !defined(__sparc64__))) && !defined(__GNUC__) && defined(__sun) && !(defined(__SUNPRO_C) || defined(__SUNPRO_CC)) /* Sun cc or CC */ + __VA_FLOAT_RETURN = __VA_SUNCC_FLOAT_RETURN, +#elif defined(__m68k__) + __VA_FLOAT_RETURN = __VA_FREG_FLOAT_RETURN, +#else + __VA_FLOAT_RETURN = 0, +#endif +#endif + + /* how to pass structs */ +#if defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) + __VA_SGICC_STRUCT_ARGS = 1<<7, +#endif +#if defined(__powerpc__) || defined(__powerpc64__) + __VA_AIXCC_STRUCT_ARGS = 1<<7, +#endif +#if defined(__ia64__) + __VA_OLDGCC_STRUCT_ARGS = 1<<7, +#endif + /* the default way to pass structs */ + /* This choice here is based on the assumption that the function you are + * going to call has been compiled with the same compiler you are using to + * include this file. + * If you want to call functions with another structs passing convention, + * just #define __VA_STRUCT_ARGS ... + * before or after #including . + */ +#ifndef __VA_STRUCT_ARGS +#if (defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)) && !defined(__GNUC__) /* SGI mips cc */ + __VA_STRUCT_ARGS = __VA_SGICC_STRUCT_ARGS, +#else +#if (defined(__mipsn32__) || defined(__mips64__)) && (!defined(__GNUC__) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4) || (__GNUC__ > 3)) /* SGI mips cc or gcc >= 3.4 */ + __VA_STRUCT_ARGS = __VA_SGICC_STRUCT_ARGS, +#else +#if defined(__powerpc__) && !defined(__powerpc64__) && defined(_AIX) && !defined(__GNUC__) /* AIX 32-bit cc, xlc */ + __VA_STRUCT_ARGS = __VA_AIXCC_STRUCT_ARGS, +#else +#if defined(__powerpc64__) && defined(_AIX) /* AIX 64-bit cc, xlc, gcc */ + __VA_STRUCT_ARGS = __VA_AIXCC_STRUCT_ARGS, +#else +#if defined(__ia64__) && !(defined(__GNUC__) && (__GNUC__ >= 3)) + __VA_STRUCT_ARGS = __VA_OLDGCC_STRUCT_ARGS, +#else + __VA_STRUCT_ARGS = 0, +#endif +#endif +#endif +#endif +#endif +#endif + + /* how to pass floats */ + /* ANSI C compilers and GNU gcc pass floats as floats. + * K&R C compilers pass floats as doubles. We don't support them any more. + */ +#if defined(__powerpc64__) + __VA_AIXCC_FLOAT_ARGS = 1<<8, /* pass floats in the low 4 bytes of an 8-bytes word */ +#endif + /* the default way to pass floats */ + /* This choice here is based on the assumption that the function you are + * going to call has been compiled with the same compiler you are using to + * include this file. + * If you want to call functions with another float passing convention, + * just #define __VA_FLOAT_ARGS ... + * before or after #including . + */ +#ifndef __VA_FLOAT_ARGS +#if defined(__powerpc64__) && defined(_AIX) && !defined(__GNUC__) /* AIX 64-bit xlc */ + __VA_FLOAT_ARGS = __VA_AIXCC_FLOAT_ARGS, +#else + __VA_FLOAT_ARGS = 0, +#endif +#endif + + /* how to pass and return small integer arguments */ + __VA_ANSI_INTEGERS = 0, /* no promotions */ + __VA_TRADITIONAL_INTEGERS = 0, /* promote [u]char, [u]short to [u]int */ + /* Fortunately these two methods are compatible. Our macros work with both. */ + + /* stack cleanup policy */ + __VA_CDECL_CLEANUP = 0, /* caller pops args after return */ + __VA_STDCALL_CLEANUP = 1<<9, /* callee pops args before return */ + /* currently only supported on __i386__ */ +#ifndef __VA_CLEANUP + __VA_CLEANUP = __VA_CDECL_CLEANUP, +#endif + + /* These are for internal use only */ +#if defined(__i386__) || defined(__m68k__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc64__) || defined(__alpha__) || defined(__hppa64__) || defined(__arm__) || defined(__armhf__) || defined(__arm64__) || defined(__powerpc__) || defined(__powerpc64__) || defined(__ia64__) || defined(__x86_64__) || (defined(__s390__) && !defined(__s390x__)) || defined(__riscv64__) + __VA_REGISTER_STRUCT_RETURN = 1<<10, +#endif +#if defined(__mipsn32__) || defined(__mips64__) + __VA_REGISTER_FLOATSTRUCT_RETURN = 1<<11, + __VA_REGISTER_DOUBLESTRUCT_RETURN = 1<<12, +#endif + + __VA_flag_for_broken_compilers_that_dont_like_trailing_commas +}; + +/* + * Definition of the ‘va_alist’ type. + */ +struct vacall_alist; +typedef struct vacall_alist * va_alist; + + +/* + * Definition of the va_start_xxx macros. + */ +#define __VA_START_FLAGS \ + __VA_STRUCT_RETURN | __VA_FLOAT_RETURN | __VA_STRUCT_ARGS | __VA_FLOAT_ARGS | __VA_CLEANUP + +extern void vacall_start (va_alist /* LIST */, int /* RETTYPE */, int /* FLAGS */); + +#define va_start_void(LIST) vacall_start(LIST,__VAvoid, __VA_START_FLAGS) +#define va_start_char(LIST) vacall_start(LIST,__VAchar, __VA_START_FLAGS) +#define va_start_schar(LIST) vacall_start(LIST,__VAschar, __VA_START_FLAGS) +#define va_start_uchar(LIST) vacall_start(LIST,__VAuchar, __VA_START_FLAGS) +#define va_start_short(LIST) vacall_start(LIST,__VAshort, __VA_START_FLAGS) +#define va_start_ushort(LIST) vacall_start(LIST,__VAushort, __VA_START_FLAGS) +#define va_start_int(LIST) vacall_start(LIST,__VAint, __VA_START_FLAGS) +#define va_start_uint(LIST) vacall_start(LIST,__VAuint, __VA_START_FLAGS) +#define va_start_long(LIST) vacall_start(LIST,__VAlong, __VA_START_FLAGS) +#define va_start_ulong(LIST) vacall_start(LIST,__VAulong, __VA_START_FLAGS) +#define va_start_longlong(LIST) vacall_start(LIST,__VAlonglong, __VA_START_FLAGS) +#define va_start_ulonglong(LIST) vacall_start(LIST,__VAulonglong,__VA_START_FLAGS) +#define va_start_float(LIST) vacall_start(LIST,__VAfloat, __VA_START_FLAGS) +#define va_start_double(LIST) vacall_start(LIST,__VAdouble, __VA_START_FLAGS) +#define va_start_ptr(LIST,TYPE) vacall_start(LIST,__VAvoidp, __VA_START_FLAGS) + +/* + * va_start_struct: Preparing structure return. + */ +extern void vacall_start_struct (va_alist /* LIST */, size_t /* TYPE_SIZE */, size_t /* TYPE_ALIGN */, int /* TYPE_SPLITTABLE */, int /* FLAGS */); + +#define va_start_struct(LIST,TYPE,TYPE_SPLITTABLE) \ + _va_start_struct(LIST,sizeof(TYPE),__VA_alignof(TYPE),TYPE_SPLITTABLE) +/* _va_start_struct() is like va_start_struct(), except that you pass + * the type's size and alignment instead of the type itself. + * Undocumented, but used by GNU clisp. + */ +#define _va_start_struct(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ + vacall_start_struct(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE,__VA_START_FLAGS) + + +/* + * Definition of the va_arg_xxx macros. + */ + +extern char vacall_arg_char (va_alist /* LIST */); +extern signed char vacall_arg_schar (va_alist /* LIST */); +extern unsigned char vacall_arg_uchar (va_alist /* LIST */); +extern short vacall_arg_short (va_alist /* LIST */); +extern unsigned short vacall_arg_ushort (va_alist /* LIST */); +extern int vacall_arg_int (va_alist /* LIST */); +extern unsigned int vacall_arg_uint (va_alist /* LIST */); +extern long vacall_arg_long (va_alist /* LIST */); +extern unsigned long vacall_arg_ulong (va_alist /* LIST */); + +#define va_arg_char(LIST) vacall_arg_char(LIST) +#define va_arg_schar(LIST) vacall_arg_schar(LIST) +#define va_arg_uchar(LIST) vacall_arg_uchar(LIST) +#define va_arg_short(LIST) vacall_arg_short(LIST) +#define va_arg_ushort(LIST) vacall_arg_ushort(LIST) +#define va_arg_int(LIST) vacall_arg_int(LIST) +#define va_arg_uint(LIST) vacall_arg_uint(LIST) +#define va_arg_long(LIST) vacall_arg_long(LIST) +#define va_arg_ulong(LIST) vacall_arg_ulong(LIST) + +extern long long vacall_arg_longlong (va_alist /* LIST */); +extern unsigned long long vacall_arg_ulonglong (va_alist /* LIST */); + +#define va_arg_longlong(LIST) vacall_arg_longlong(LIST) +#define va_arg_ulonglong(LIST) vacall_arg_ulonglong(LIST) + +/* Floating point arguments. */ + +extern float vacall_arg_float (va_alist /* LIST */); +extern double vacall_arg_double (va_alist /* LIST */); + +#define va_arg_float(LIST) vacall_arg_float(LIST) +#define va_arg_double(LIST) vacall_arg_double(LIST) + +/* Pointer arguments. */ + +extern void* vacall_arg_ptr (va_alist /* LIST */); +#define va_arg_ptr(LIST,TYPE) ((TYPE)vacall_arg_ptr(LIST)) + +/* Structure arguments. */ + +extern void* vacall_arg_struct (va_alist /* LIST */, size_t /* TYPE_SIZE */, size_t /* TYPE_ALIGN */); + +#define va_arg_struct(LIST,TYPE) \ + *(TYPE*)vacall_arg_struct(LIST,sizeof(TYPE),__VA_alignof(TYPE)) +/* _va_arg_struct() is like va_arg_struct(), except that you pass the type's + * size and alignment instead of the type and get the value's address instead + * of the value itself. + * Undocumented, but used by GNU clisp. + */ +#define _va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ + vacall_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) + + +/* + * Definition of the va_return_xxx macros. + */ + +extern void vacall_return_void (va_alist /* LIST */); +#define va_return_void(LIST) vacall_return_void(LIST) + +extern void vacall_return_char (va_alist /* LIST */, char /* VAL */); +extern void vacall_return_schar (va_alist /* LIST */, signed char /* VAL */); +extern void vacall_return_uchar (va_alist /* LIST */, unsigned char /* VAL */); +extern void vacall_return_short (va_alist /* LIST */, short /* VAL */); +extern void vacall_return_ushort (va_alist /* LIST */, unsigned short /* VAL */); +extern void vacall_return_int (va_alist /* LIST */, int /* VAL */); +extern void vacall_return_uint (va_alist /* LIST */, unsigned int /* VAL */); +extern void vacall_return_long (va_alist /* LIST */, long /* VAL */); +extern void vacall_return_ulong (va_alist /* LIST */, unsigned long /* VAL */); +#define va_return_char(LIST,VAL) vacall_return_char(LIST,VAL) +#define va_return_schar(LIST,VAL) vacall_return_schar(LIST,VAL) +#define va_return_uchar(LIST,VAL) vacall_return_uchar(LIST,VAL) +#define va_return_short(LIST,VAL) vacall_return_short(LIST,VAL) +#define va_return_ushort(LIST,VAL) vacall_return_ushort(LIST,VAL) +#define va_return_int(LIST,VAL) vacall_return_int(LIST,VAL) +#define va_return_uint(LIST,VAL) vacall_return_uint(LIST,VAL) +#define va_return_long(LIST,VAL) vacall_return_long(LIST,VAL) +#define va_return_ulong(LIST,VAL) vacall_return_ulong(LIST,VAL) + +extern void vacall_return_longlong (va_alist /* LIST */, long long /* VAL */); +extern void vacall_return_ulonglong (va_alist /* LIST */, unsigned long long /* VAL */); +#define va_return_longlong(LIST,VAL) vacall_return_longlong(LIST,VAL) +#define va_return_ulonglong(LIST,VAL) vacall_return_ulonglong(LIST,VAL) + +extern void vacall_return_float (va_alist /* LIST */, float /* VAL */); +extern void vacall_return_double (va_alist /* LIST */, double /* VAL */); +#define va_return_float(LIST,VAL) vacall_return_float(LIST,VAL) +#define va_return_double(LIST,VAL) vacall_return_double(LIST,VAL) + +extern void vacall_return_ptr (va_alist /* LIST */, void* /* VAL */); +#define va_return_ptr(LIST,TYPE,VAL) vacall_return_ptr(LIST,(void*)(TYPE)(VAL)) + +extern void vacall_return_struct (va_alist /* LIST */, size_t /* TYPE_SIZE */, size_t /* TYPE_ALIGN */, const void* /* VAL_ADDR */); + +#define va_return_struct(LIST,TYPE,VAL) \ + _va_return_struct(LIST,sizeof(TYPE),__VA_alignof(TYPE),&(VAL)) +/* Undocumented, but used by GNU clisp. */ +#define _va_return_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL_ADDR) \ + vacall_return_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL_ADDR) + + +/* Determine whether a struct type is word-splittable, i.e. whether each of + * its components fit into a register. + * The entire computation is done at compile time. + */ +#define va_word_splittable_1(slot1) \ + (__va_offset1(slot1)/sizeof(__vaword) == (__va_offset1(slot1)+sizeof(slot1)-1)/sizeof(__vaword)) +#define va_word_splittable_2(slot1,slot2) \ + ((__va_offset1(slot1)/sizeof(__vaword) == (__va_offset1(slot1)+sizeof(slot1)-1)/sizeof(__vaword)) \ + && (__va_offset2(slot1,slot2)/sizeof(__vaword) == (__va_offset2(slot1,slot2)+sizeof(slot2)-1)/sizeof(__vaword)) \ + ) +#define va_word_splittable_3(slot1,slot2,slot3) \ + ((__va_offset1(slot1)/sizeof(__vaword) == (__va_offset1(slot1)+sizeof(slot1)-1)/sizeof(__vaword)) \ + && (__va_offset2(slot1,slot2)/sizeof(__vaword) == (__va_offset2(slot1,slot2)+sizeof(slot2)-1)/sizeof(__vaword)) \ + && (__va_offset3(slot1,slot2,slot3)/sizeof(__vaword) == (__va_offset3(slot1,slot2,slot3)+sizeof(slot3)-1)/sizeof(__vaword)) \ + ) +#define va_word_splittable_4(slot1,slot2,slot3,slot4) \ + ((__va_offset1(slot1)/sizeof(__vaword) == (__va_offset1(slot1)+sizeof(slot1)-1)/sizeof(__vaword)) \ + && (__va_offset2(slot1,slot2)/sizeof(__vaword) == (__va_offset2(slot1,slot2)+sizeof(slot2)-1)/sizeof(__vaword)) \ + && (__va_offset3(slot1,slot2,slot3)/sizeof(__vaword) == (__va_offset3(slot1,slot2,slot3)+sizeof(slot3)-1)/sizeof(__vaword)) \ + && (__va_offset4(slot1,slot2,slot3,slot4)/sizeof(__vaword) == (__va_offset4(slot1,slot2,slot3,slot4)+sizeof(slot4)-1)/sizeof(__vaword)) \ + ) +#define __va_offset1(slot1) \ + 0 +#define __va_offset2(slot1,slot2) \ + ((__va_offset1(slot1)+sizeof(slot1)+__VA_alignof(slot2)-1) & -(long)__VA_alignof(slot2)) +#define __va_offset3(slot1,slot2,slot3) \ + ((__va_offset2(slot1,slot2)+sizeof(slot2)+__VA_alignof(slot3)-1) & -(long)__VA_alignof(slot3)) +#define __va_offset4(slot1,slot2,slot3,slot4) \ + ((__va_offset3(slot1,slot2,slot3)+sizeof(slot3)+__VA_alignof(slot4)-1) & -(long)__VA_alignof(slot4)) + + +/* + * Miscellaneous declarations. + */ +#ifdef __cplusplus +extern "C" void (*vacall) (); /* the return type is variable, not void! */ +#else +extern void (*vacall) (); /* the return type is variable, not void! */ +#endif +extern void (* vacall_function) (va_alist); + + +#ifdef __cplusplus +} +#endif + +#endif /* _VACALL_H */ diff --git a/vacall/vacall.html b/vacall/vacall.html new file mode 100644 index 0000000..fa61554 --- /dev/null +++ b/vacall/vacall.html @@ -0,0 +1,315 @@ + + + + VACALL manual page + + +

VACALL manual page

+ + +

+ +

+ + +

Name

+ + +vacall - C functions called with variable arguments + + +

Synopsis

+ + +
+#include <vacall.h>
+
+

+

+extern void* vacall_function;
+
+

+

+void function (va_alist alist)
+{
+  va_start_type(alist[, return_type]);
+  arg = va_arg_type(alist[, arg_type]);
+  va_return_type(alist[[, return_type], return_value]);
+}
+
+

+

+vacall_function = &function;
+
+

+

+val = ((return_type (*) ()) vacall) (arg1,arg2,...);
+
+ + +

Description

+ + +This set of macros permit a C function function to be +called with variable arguments and to return variable +return values. This is much like the stdarg(3) facility, +but also allows the return value to be specified at run +time. +

+Function calling conventions differ considerably on different +machines, and vacall attempts to provide some +degree of isolation from such architecture dependencies. +

+The function that can be called with any number and type +of arguments and which will return any type of return +value is vacall. It will do some magic and call the function +stored in the variable vacall_function. If you want +to make more than one use of vacall, +use the trampoline(3) +facility to store &function + into vacall_function just +before calling vacall. +

+Within function, the following macros can be used to walk +through the argument list and specify a return value: +

+

+va_start_type(alist[, return_type]);
+
+starts the walk through the argument list and specifies the return type. +

+

+arg = va_arg_type(alist[, arg_type]);
+
+fetches the next argument from the argument list. +

+

+va_return_type(alist[[, return_type], return_value]);
+
+ends the walk through the argument list and specifies the return value. +

+The type in va_start_type + and va_return_type shall be one +of void, int, uint, long, +ulong, longlong, ulonglong, +double, struct, ptr +or +(for ANSI C calling conventions only) +char, schar, uchar, +short, ushort, float, +depending on the class of return_type. +

+The type specifiers in +va_start_type and va_return_type + must be the same. +The return_type specifiers passed to +va_start_type and va_return_type + must be the same. +

+The type in va_arg_type +shall be one of int, uint, long, +ulong, longlong, ulonglong, +double, struct, ptr +or (for ANSI C calling conventions only) +char, schar, uchar, +short, ushort, float, +depending on the class of arg_type. +

+In va_start_struct(alist, return_type, splittable); the +splittable flag specifies whether the struct return_type can +be returned in registers such that every struct field fits +entirely in a single register. This needs to be specified +for structs of size 2*sizeof(long). For structs of size +<= sizeof(long), splittable is ignored and assumed to be 1. +For structs of size > 2*sizeof(long), splittable is +ignored and assumed to be 0. There are some handy macros +for this: +

+va_word_splittable_1 (type1)
+va_word_splittable_2 (type1, type2)
+va_word_splittable_3 (type1, type2, type3)
+va_word_splittable_4 (type1, type2, type3, type4)
+
+For a struct with three slots +
+struct { type1 id1; type2 id2; type3 id3; }
+
+you can specify splittable as +va_word_splittable_3 (type1, type2, type3). + + +

Notes

+ + +
    +
  1. Functions which want to emulate Kernighan & Ritchie style +functions (i.e., in ANSI C, functions without a typed +argument list) cannot use the type values +char, schar, uchar, +short, ushort, float. +As prescribed by the default +K&R C expression promotions, they have to use int instead +of char, schar, uchar, +short, ushort and double instead of +float. +

    +

  2. The macros va_start_longlong(), +va_start_ulonglong(), va_return_longlong(), +va_return_ulonglong(), va_arg_longlong() and +va_arg_ulonglong() work only if the C compiler has a working +long long 64-bit integer type. +

    +

  3. The struct types used in va_start_struct() and +va_struct() must only contain (signed or unsigned) int, +long, long long or pointer fields. Struct types containing +(signed or unsigned) char, short, float, double or other +structs are not supported. +

    +

+ + +

Example

+ + +This example, a possible implementation of execl(3) on top +of execv(2) using stdarg(3), +
#include <stdarg.h>
+#define MAXARGS 100
+/* execl is called by execl(file, arg1, arg2, ..., (char *)0); */
+int execl (...)
+{
+  va_list ap;
+  char* file;
+  char* args[MAXARGS];
+  int argno = 0;
+  va_start (ap);
+  file = va_arg(ap, char*);
+  while ((args[argno] = va_arg(ap, char*)) != (char *)0)
+    argno++;
+  va_end (ap);
+  return execv(file, args);
+}
+
+looks like this using vacall(3): +
#include <vacall.h>
+#define MAXARGS 100
+/* execl is called by vacall(file, arg1, arg2, ..., (char *)0); */
+void execl (va_alist ap)
+{
+  char* file;
+  char* args[MAXARGS];
+  int argno = 0;
+  int retval;
+  va_start_int (ap);
+  file = va_arg_ptr(ap, char*);
+  while ((args[argno] = va_arg_ptr(ap, char*)) != (char *)0)
+    argno++;
+  retval = execv(file, args);
+  va_return_int (ap, retval);
+}
+vacall_function = &execl;
+
+

+ + +

See also

+ + +stdarg(3), trampoline(3), callback(3). + + +

Bugs

+ + +The current implementations have been tested on a selection +of common cases but there are probably still many +bugs. +

+There are typically built-in limits on the size of the +argument-list, which may also include the size of any +structure arguments. +

+The decision whether a struct is to be returned in registers or in memory +considers only the struct's size and alignment. This is inaccurate: for +example, gcc on m68k-next returns +struct { char a,b,c; } +in registers and +struct { char a[3]; } +in memory, although both types have the same size and the same alignment. +

+The argument list can only be walked once. +

+The use of the global variable vacall_function is not +reentrant. This is fixed in the callback(3) package. + + +

Porting

+ + +Knowledge about argument passing conventions can be found +in the gcc source, file +gcc-2.6.3/config/cpu/cpu.h, +section "Stack layout; function entry, exit and calling." +

+The implementation of varargs for gcc can be found in the +gcc source, files gcc-2.6.3/ginclude/va*.h. +

+gcc's __builtin_saveregs() function is defined in the gcc +source, file gcc-2.6.3/libgcc2.c. +

+ + +

Author

+ + +Bruno Haible <bruno@clisp.org> + + +

Acknowledgements

+ + +Many ideas and a lot of code were cribbed from the gcc +source. +

+ +

+ +
VACALL manual page
+Bruno Haible <bruno@clisp.org> +
+

+Last modified: 1 January 2017. + + + diff --git a/vacall/vacall.man b/vacall/vacall.man new file mode 100644 index 0000000..b69c7fb --- /dev/null +++ b/vacall/vacall.man @@ -0,0 +1,192 @@ +VACALL(3) Library Functions Manual VACALL(3) + + + +NAME + vacall - C functions called with variable arguments + +SYNOPSIS + #include  + + extern void* vacall_function; + + void function (va_alistalist) + { + va_start_type(alist[, return_type]); + arg = va_arg_type(alist[, arg_type]); + va_return_type(alist[[, return_type], return_value]); + } + + vacall_function = &function; + + val = ((return_type (*) ()) vacall) (arg1,arg2,...); + +DESCRIPTION + This set of macros permit a C function function to be called with vari‐ + able arguments and to return variable return values. This is much like + the stdarg(3) facility, but also allows the return value to be speci‐ + fied at run time. + + Function calling conventions differ considerably on different machines, + and vacall attempts to provide some degree of isolation from such + architecture dependencies. + + The function that can be called with any number and type of arguments + and which will return any type of return value is vacall. It will do + some magic and call the function stored in the variable vacall_func‐ + tion. If you want to make more than one use of vacall, use the trampo‐ + line(3) facility to store &function into vacall_function just before + calling vacall. + + Within function, the following macros can be used to walk through the + argument list and specify a return value: + + va_start_type(alist[, return_type]); + starts the walk through the argument list and specifies the + return type. + + arg = va_arg_type(alist[, arg_type]); + fetches the next argument from the argument list. + + va_return_type(alist[[, return_type], return_value]); + ends the walk through the argument list and specifies the return + value. + + The type in va_start_type and va_return_type shall be one of void, int, + uint, long, ulong, longlong, ulonglong, double, struct, ptr or (for + ANSI C calling conventions only) char, schar, uchar, short, ushort, + float, depending on the class of return_type. + + The type specifiers in va_start_type and va_return_type must be the + same. The return_type specifiers passed to va_start_type and + va_return_type must be the same. + + The type in va_arg_type shall be one of int, uint, long, ulong, long‐ + long, ulonglong, double, struct, ptr or (for ANSI C calling conventions + only) char, schar, uchar, short, ushort, float, depending on the class + of arg_type. + + In va_start_struct(alist, return_type, splittable); the splittable flag + specifies whether the struct return_type can be returned in registers + such that every struct field fits entirely in a single register. This + needs to be specified for structs of size 2*sizeof(long). For structs + of size <= sizeof(long), splittable is ignored and assumed to be 1. For + structs of size > 2*sizeof(long), splittable is ignored and assumed to + be 0. There are some handy macros for this: + va_word_splittable_1 (type1) + va_word_splittable_2 (type1, type2) + va_word_splittable_3 (type1, type2, type3) + va_word_splittable_4 (type1, type2, type3, type4) + For a struct with three slots + struct { type1 id1; type2 id2; type3 id3; } + you can specify splittable as va_word_splittable_3 (type1, type2, + type3) . + + +NOTES + Functions which want to emulate Kernighan & Ritchie style functions + (i.e., in ANSI C, functions without a typed argument list) cannot use + the type values char, schar, uchar, short, ushort, float. As pre‐ + scribed by the default K&R C expression promotions, they have to use + int instead of char, schar, uchar, short, ushort and double instead of + float. + + The macros va_start_longlong(), va_start_ulonglong(), va_return_long‐ + long(), va_return_ulonglong(), va_arg_longlong() and va_arg_ulonglong() + work only if the C compiler has a working long long 64-bit integer + type. + + The struct types used in va_start_struct() and va_struct() must only + contain (signed or unsigned) int, long, long long or pointer fields. + Struct types containing (signed or unsigned) char, short, float, double + or other structs are not supported. + + +EXAMPLE + This example, a possible implementation of execl(3) on top of execv(2) + using stdarg(3), + + #include  + #define MAXARGS 100 + /* execl is called by execl(file, arg1, arg2, ..., (char *)0); */ + int execl (...) + { + va_list ap; + char* file; + char* args[MAXARGS]; + int argno = 0; + va_start (ap); + file = va_arg(ap, char*); + while ((args[argno] = va_arg(ap, char*)) != (char *)0) + argno++; + va_end (ap); + return execv(file, args); + } + + looks like this using vacall(3): + + #include  + #define MAXARGS 100 + /* execl is called by vacall(file, arg1, arg2, ..., (char *)0); */ + void execl (va_alist ap) + { + char* file; + char* args[MAXARGS]; + int argno = 0; + int retval; + va_start_int (ap); + file = va_arg_ptr(ap, char*); + while ((args[argno] = va_arg_ptr(ap, char*)) != (char *)0) + argno++; + retval = execv(file, args); + va_return_int (ap, retval); + } + vacall_function = &execl; + + +SEE ALSO + stdarg(3), trampoline(3), callback(3). + + +BUGS + The current implementations have been tested on a selection of common + cases but there are probably still many bugs. + + There are typically built-in limits on the size of the argument-list, + which may also include the size of any structure arguments. + + The decision whether a struct is to be returned in registers or in mem‐ + ory considers only the struct's size and alignment. This is inaccurate: + for example, gcc on m68k-next returns struct { char a,b,c; } in regis‐ + ters and struct { char a[3]; } in memory, although both types have the + same size and the same alignment. + + The argument list can only be walked once. + + The use of the global variable vacall_function is not reentrant. This + is fixed in the callback(3) package. + + +PORTING + Knowledge about argument passing conventions can be found in the gcc + source, file gcc-2.6.3/config/cpu/cpu.h, section "Stack layout; func‐ + tion entry, exit and calling." + + The implementation of varargs for gcc can be found in the gcc source, + files gcc-2.6.3/ginclude/va*.h. + + gcc's __builtin_saveregs() function is defined in the gcc source, file + gcc-2.6.3/libgcc2.c. + + +AUTHOR + Bruno Haible + + +ACKNOWLEDGEMENTS + Many ideas and a lot of code were cribbed from the gcc source. + + + + + 1 January 2017 VACALL(3) -- 2.30.2