1 # Expect script
for export table in executables tests
3 # Free Software Foundation
, Inc.
5 # This file is free software
; you can redistribute it and
/or modify
6 # it under the terms of the GNU General Public License as published by
7 # the Free Software Foundation
; either version
2 of the License
, or
8 #
(at your option
) any later version.
10 # This
program is distributed in the hope that it will be useful
,
11 # but WITHOUT
ANY WARRANTY
; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the
13 # GNU General Public License
for more details.
15 # You should have received a copy of the GNU General Public License
16 # along with this
program; if not
, write to the Free Software
17 # Foundation
, Inc.
, 51 Franklin Street
- Fifth Floor
, Boston
, MA
02110-1301, USA.
19 # Written by Fabrizio Gennari
<fabrizio.ge@tiscalinet.it
>
20 # Based
on auto
-import.exp by Ralf.Habacker@freenet.de
23 # This test can only be run
on a cygwin platforms.
24 if {![istarget
*-pc
-cygwin
]} {
25 verbose
"Not a cygwin target."
29 # No compiler
, no test.
30 if { [which $CC
] == 0 } {
31 untested
"Exe export test (no compiler available)"
35 proc run_dlltool
{ lib_file def_file
} {
40 if ![info exists dlltool
] then {
41 set dlltool
[findfile $base_dir
/..
/binutils
/dlltool
]
44 if { [which $dlltool
] == 0 } then {
45 verbose
"$dlltool does not exist"
49 verbose
"$dlltool --as $as -l $lib_file -d $def_file"
50 catch
"exec $dlltool --as $as -l $lib_file -d $def_file" dlltool_output
53 regsub
-all
"\n+" $dlltool_output "" dlltool_output
55 if [string match
"" $dlltool_output] then {
59 verbose
-log "$dlltool_output"
64 # A copy of ld_simple_link
(from
ld-lib.exp
) with extra
65 # code to
strip warnings about creating libraries.
67 proc ld_special_link
{ ld target objects
} {
71 if { [which $
ld] == 0 } then {
72 verbose
"$ld does not exist"
76 if [is_endian_output_format $objects
] then {
77 set flags
[big_or_little_endian
]
82 verbose
-log "$ld $flags -o $target $objects"
83 catch
"exec $ld $flags -o $target $objects" link_output
85 set exec_output
[prune_warnings $link_output
]
87 # We don
't care if we get a warning about a non-existent start
88 # symbol, since the default linker script might use ENTRY.
89 regsub -all "(^|\n)(\[^\n\]*: warning: cannot find entry symbol\[^\n\]*\n?)" $exec_output "\\1" exec_output
91 # We don't care
if we
get a message about creating a library file.
92 regsub
-all
"(^|\n)(Creating library file\[^\n\]*\n?)" $exec_output "\\1" exec_output
94 if [string match
"" $exec_output] then {
98 verbose
-log "$exec_output"
104 #
Set some libs needed
for cygwin.
105 set MYLDFLAGS
"-Wl,--out-implib,$tmpdir/testexe.lib -nostartfiles -nostdlib"
107 # Build an
export library
for testdll
108 if ![run_dlltool $tmpdir
/testdll.lib $srcdir
/$subdir
/testdll.def
] {
109 fail
"building an export library for the shared lib"
113 #
Compile the executable.
114 if ![ld_compile
"$CC $CFLAGS" $srcdir/$subdir/testexe.c $tmpdir/testexe.o] {
115 fail
"compiling executable"
119 if ![ld_special_link
"$CC $LDFLAGS $MYLDFLAGS -e _testexe_main@16" $tmpdir/testexe.exe "$tmpdir/testexe.o $srcdir/$subdir/testexe.def $tmpdir/testdll.lib"] {
120 fail
"linking executable"
125 if ![ld_compile
"$CC $CFLAGS" $srcdir/$subdir/testdll.c $tmpdir/testdll.o] {
126 fail
"compiling shared lib"
130 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"] {
131 fail
"linking shared lib"
135 # This is as far as we can go with a cross
-compiler
136 if ![isnative
] then {
137 verbose
"Not running natively, so cannot execute binary"
138 pass
"Compile and link and executable with an export table"
142 verbose
-log "executing $tmpdir/testexe.exe"
143 catch
"exec $tmpdir/testexe.exe" prog_output
146 if [string match $expected $prog_output
] then {
147 pass
"export table in executable"
150 fail
"Output does not match expected string $expected"