ld/testsuite/ld-cygwin/exe-export.exp

   1 # Expect script for export table in executables tests
   2 #   Copyright 2003, 2007
   3 #   Free Software Foundation, Inc.
   4 #
   5 # This file is part of the GNU Binutils.
   6 #
   7 # This program is free software; you can redistribute it and/or modify
   8 # it under the terms of the GNU General Public License as published by
   9 # the Free Software Foundation; either version 3 of the License, or
  10 # (at your option) any later version.
  11 #
  12 # This program is distributed in the hope that it will be useful,
  13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 # GNU General Public License for more details.
  16 #
  17 # You should have received a copy of the GNU General Public License
  18 # along with this program; if not, write to the Free Software
  19 # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
  20 # MA 02110-1301, USA.
  21 #
  22 # Written by Fabrizio Gennari <fabrizio.ge@tiscalinet.it>
  23 # Based on auto-import.exp  by Ralf.Habacker@freenet.de
  24 #
  25
  26 # This test can only be run on a cygwin platforms.
  27 if {![istarget *-pc-cygwin]} {
  28     verbose "Not a cygwin target."
  29     return
  30 }
  31
  32 # No compiler, no test.
  33 if { [which $CC] == 0 } {
  34     untested "Exe export test (no compiler available)"
  35     return
  36 }
  37
  38 proc run_dlltool { lib_file def_file } {
  39     global dlltool
  40     global base_dir
  41     global as
  42
  43     if ![info exists dlltool] then {
  44         set dlltool [findfile $base_dir/../binutils/dlltool]
  45     }
  46
  47     if { [which $dlltool] == 0 } then {
  48         verbose "$dlltool does not exist"
  49         return 0
  50     }
  51
  52     verbose "$dlltool --as $as -l $lib_file -d $def_file"
  53     catch "exec $dlltool --as $as -l $lib_file -d $def_file" dlltool_output
  54
  55     #remove empty lines
  56     regsub -all "\n+" $dlltool_output "" dlltool_output
  57
  58     if [string match "" $dlltool_output] then {
  59         return 1
  60     }
  61
  62     verbose -log "$dlltool_output"
  63     return 0
  64 }
  65
  66 # ld_special_link
  67 #       A copy of ld_simple_link (from ld-lib.exp) with extra
  68 #       code to strip warnings about creating libraries.
  69 #
  70 proc ld_special_link { ld target objects } {
  71     global host_triplet
  72     global link_output
  73
  74     if { [which $ld] == 0 } then {
  75         verbose "$ld does not exist"
  76         return 0
  77     }
  78
  79     if [is_endian_output_format $objects] then {
  80         set flags [big_or_little_endian]
  81     } else {
  82         set flags ""
  83     }
  84
  85     verbose -log "$ld $flags -o $target $objects"
  86     catch "exec $ld $flags -o $target $objects" link_output
  87
  88     set exec_output [prune_warnings $link_output]
  89
  90     # We don't care if we get a warning about a non-existent start
  91     # symbol, since the default linker script might use ENTRY.
  92     regsub -all "(^|\n)(\[^\n\]*: warning: cannot find entry symbol\[^\n\]*\n?)" $exec_output "\\1" exec_output
  93
  94     # We don't care if we get a message about creating a library file.
  95     regsub -all "(^|\n)(Creating library file\[^\n\]*\n?)" $exec_output "\\1" exec_output
  96
  97     if [string match "" $exec_output] then {
  98         return 1
  99     }
 100
 101     verbose -log "$exec_output"
 102     return 0
 103 }
 104
 105 set tmpdir tmpdir
 106
 107 # Set some libs needed for cygwin.
 108 set MYLDFLAGS "-Wl,--out-implib,$tmpdir/testexe.lib -nostartfiles -nostdlib"
 109
 110 # Build an export library for testdll
 111 if ![run_dlltool $tmpdir/testdll.lib $srcdir/$subdir/testdll.def] {
 112     fail "building an export library for the shared lib"
 113     return
 114 }
 115
 116 # Compile the executable.
 117 if ![ld_compile "$CC $CFLAGS" $srcdir/$subdir/testexe.c $tmpdir/testexe.o] {
 118     fail "compiling executable"
 119     return
 120 }
 121
 122 if ![ld_special_link "$CC $LDFLAGS $MYLDFLAGS -e _testexe_main@16" $tmpdir/testexe.exe "$tmpdir/testexe.o $srcdir/$subdir/testexe.def $tmpdir/testdll.lib"] {
 123     fail "linking executable"
 124     return
 125 }
 126
 127 # Compile the dll.
 128 if ![ld_compile "$CC $CFLAGS" $srcdir/$subdir/testdll.c $tmpdir/testdll.o] {
 129     fail "compiling shared lib"
 130     return
 131 }
 132
 133 if ![ld_special_link "$CC $LDFLAGS -nostartfiles -nostdlib -e _testdll_main@12" $tmpdir/testdll.dll "$tmpdir/testdll.o $srcdir/$subdir/testdll.def $tmpdir/testexe.lib"] {
 134     fail "linking shared lib"
 135     return
 136 }
 137
 138 # This is as far as we can go with a cross-compiler
 139 if ![isnative] then {
 140     verbose "Not running natively, so cannot execute binary"
 141     pass "Compile and link and executable with an export table"
 142     return
 143 }
 144
 145 verbose -log "executing $tmpdir/testexe.exe"
 146 catch "exec $tmpdir/testexe.exe" prog_output
 147
 148 set expected ""
 149 if [string match $expected $prog_output] then {
 150     pass "export table in executable"
 151 } else {
 152     verbose $prog_output
 153     fail "Output does not match expected string $expected"
 154 }