ld/testsuite/ld-auto-import/auto-import.exp

   1 # Expect script for ld-auto-import tests
   2 #   Copyright (C) 2002-2021 Free Software Foundation, Inc.
   3 #
   4 # This file is part of the GNU Binutils.
   5 #
   6 # This program is free software; you can redistribute it and/or modify
   7 # it under the terms of the GNU General Public License as published by
   8 # the Free Software Foundation; either version 3 of the License, or
   9 # (at your option) any later version.
  10 #
  11 # This program is distributed in the hope that it will be useful,
  12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 # GNU General Public License for more details.
  15 #
  16 # You should have received a copy of the GNU General Public License
  17 # along with this program; if not, write to the Free Software
  18 # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
  19 # MA 02110-1301, USA.
  20 #
  21 # Written by Ralf.Habacker@freenet.de
  22 # Based on ls-shared/shared.exp by Ian Lance Taylor (ian@cygnus.com)
  23 #
  24
  25 # Note:
  26 #
  27 # This script tests some auto-import functionality:
  28 #
  29 #  A. "auto importing direct from a dll" functionality, which dramatically reduces the
  30 #     linking time for big libraries and applications by skipping creating/using
  31 #     import libraries. Instead it links directly to the related dll or to a symlinked
  32 #     dll for replacing regular import libraries. The test has 6 stages:
  33 #
  34 #     1. compile and link a test dll exporting some text and data symbols and a
  35 #     standard import library
  36 #
  37 #     2. create a symbolic link to this dll to simulate a replaced import library.
  38 #
  39 #     3. compile and link a client application with the standard import library.
  40 #     This should produce no errors.
  41 #
  42 #     4. compile and link a client application with the created dll.
  43 #     This should also produce no errors.
  44 #
  45 #     5. compile and link a client application using the "import library".
  46 #     This should also produce no errors.
  47 #
  48 #     6. compile and link a client application with auto-import disabled.
  49 #     This should produce a linking error.
  50 #
  51 # B. runtime check if there are no segfaults when importing const data variables
  52 #
  53
  54 # This test can only be run if ld generates native executables.
  55 if ![isnative] then {return}
  56
  57 # This test can only be run on a couple of platforms.
  58 # Square bracket expressions seem to confuse istarget.
  59 if { ![istarget *-pc-cygwin]
  60      && ![istarget *-pc-mingw*] } {
  61     return
  62 }
  63
  64 if [istarget *-pc-mingw*] {
  65     # FIXME: Add support for this target.
  66     unsupported "mingw currently not supported"
  67 }
  68
  69 # No compiler, no test.
  70 if { ![check_compiler_available] } {
  71     untested "Auto import test (compiler not found)"
  72     return
  73 }
  74
  75 # ld_special_link
  76 #       link a program using ld, without including any libraries
  77 #
  78 proc ld_special_link { ld target objects } {
  79     global host_triplet
  80     global link_output
  81
  82     if { [which $ld] == 0 } then {
  83         perror "$ld does not exist"
  84         return 0
  85     }
  86
  87     if [is_endian_output_format $objects] then {
  88         set flags [big_or_little_endian]
  89     } else {
  90         set flags ""
  91     }
  92
  93     verbose -log "$ld $flags -o $target $objects"
  94
  95     catch "exec $ld $flags -o $target $objects" link_output
  96     set exec_output [prune_warnings $link_output]
  97
  98     # We don't care if we get a warning about a non-existent start
  99     # symbol, since the default linker script might use ENTRY.
 100     regsub -all "(^|\n)(\[^\n\]*: warning: cannot find entry symbol\[^\n\]*\n?)" $exec_output "\\1" exec_output
 101
 102     # We don't care if we get a message about creating a library file.
 103     regsub -all "(^|\n)(Creating library file\[^\n\]*\n?)" $exec_output "\\1" exec_output
 104
 105     if [string match "" $exec_output] then {
 106         return 1
 107     }
 108
 109     verbose -log "$exec_output"
 110     return 0
 111 }
 112
 113 set tmpdir tmpdir
 114 set SHCFLAG ""
 115
 116 if [istarget *-pc-cygwin] {
 117     # Set some libs needed for cygwin.
 118     set MYLIBS "-L/usr/lib -lcygwin -L/usr/lib/w32api -lkernel32"
 119
 120     # Compile the dll.
 121     if ![ld_compile "$CC $CFLAGS $SHCFLAG" $srcdir/$subdir/dll.c $tmpdir/dll.o] {
 122         fail "compiling shared lib"
 123     }
 124     if ![ld_special_link "$ld -shared --enable-auto-import -e __cygwin_dll_entry@12 --out-implib=$tmpdir/libstandard.dll.a" $tmpdir/dll.dll "$tmpdir/dll.o $MYLIBS"] {
 125         fail "linking shared lib"
 126     }
 127
 128     # Create symbolic link.
 129     catch "exec ln -fs dll.dll $tmpdir/libsymlinked_dll.dll.a" ln_catch
 130
 131     # Compile and link the client program.
 132     if ![ld_compile "$CC $CFLAGS $SHCFLAG" $srcdir/$subdir/client.c $tmpdir/client.o] {
 133         fail "compiling client"
 134     }
 135
 136     # Check linking with import library.
 137     set msg "linking auto-import client using a standard import library"
 138     if [ld_special_link $ld $tmpdir/client-linklib.exe "--enable-auto-import --enable-runtime-pseudo-reloc /lib/crt0.o $tmpdir/client.o -L$tmpdir -lstandard $MYLIBS"] {
 139         pass $msg
 140     } else {
 141         fail $msg
 142     }
 143
 144     # Check linking directly with dll.
 145     set msg "linking auto-import client using the dll"
 146     if [ld_special_link $ld $tmpdir/client-linkdll.exe "--enable-auto-import --enable-runtime-pseudo-reloc /lib/crt0.o $tmpdir/client.o -L$tmpdir -ldll $MYLIBS"] {
 147         pass $msg
 148     } else {
 149         fail $msg
 150     }
 151
 152     # Check linking with symlinked dll.
 153     set msg "linking auto-import client using symbolic linked dll"
 154     if [ld_special_link $ld $tmpdir/client-symlinkeddll.exe "--enable-auto-import --enable-runtime-pseudo-reloc /lib/crt0.o $tmpdir/client.o -L$tmpdir -lsymlinked_dll $MYLIBS"] {
 155         pass $msg
 156     } else {
 157         fail $msg
 158     }
 159
 160     # Check linking with disabled auto-import, this must produce linking error.
 161     set msg "linking with disabled auto-import"
 162     if ![ld_special_link $ld $tmpdir/client-failed.exe "--disable-auto-import --enable-runtime-pseudo-reloc /lib/crt0.o $tmpdir/client.o -L$tmpdir -ldll $MYLIBS"] {
 163         pass $msg
 164     } else {
 165         fail $msg
 166     }
 167
 168     # Check that the app works - ie that there is output when the applications runs.
 169     set msg "application runtime segfault check"
 170     catch "exec $tmpdir/client-linklib.exe" exec_output
 171     if ![string match "" $exec_output] then {
 172         pass $msg
 173     } else {
 174         fail $msg
 175     }
 176 }