1 # Copyright 2002, 2004, 2006, 2007, 2009 Free Software Foundation, Inc.
3 # This program is free software; you can redistribute it and/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation; either version 3 of the License, or
6 # (at your option) any later version.
8 # This program is distributed in the hope that it will be useful,
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License for more details.
13 # You should have received a copy of the GNU General Public License
14 # along with this program; if not, write to the Free Software
15 # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
17 if {![istarget "i*86-*-*"]
18 && ![istarget "x86_64-*-mingw*"]
19 && ![istarget "arm-*-pe*"]} {
23 if {![istarget "i*86-*-*pe*"] \
24 && ![istarget "i*86-*-cygwin*"] \
25 && ![istarget "i*86-*-mingw32*"] \
26 && ![istarget "arm-*-pe*"] \
27 && ![istarget "x86_64-*-mingw*"] } {
28 set target_xfail "yes"
33 if {![info exists DLLTOOL]} then {
37 if {[which $DLLTOOL] == 0} then {
41 verbose "$DLLTOOL --leading-underscore -d $srcdir/$subdir/fastcall.def" 1
42 catch "exec $DLLTOOL --leading-underscore -d $srcdir/$subdir/fastcall.def" err
44 if ![string match "" $err] then {
47 fail "dlltool (fastcall export)"
49 pass "dlltool (fastcall export)"
52 if { "$target_xfail" == "yes" } {
56 verbose "$DLLTOOL -l libversion.a --def $srcdir/$subdir/version.def" 1
57 catch "exec $DLLTOOL -l libersion.a --def $srcdir/$subdir/version.def" err
59 if ![string match "" $err] then {
62 fail "dlltool (version.dll)"
64 pass "dlltool (version.dll)"
67 verbose "$DLLTOOL -p prefix --leading-underscore -l tmpdir/libalias.a -d $srcdir/$subdir/alias.def $dlltool_gas_flag" 1
68 catch "exec $DLLTOOL -p prefix --leading-underscore -l tmpdir/libalias.a -d $srcdir/$subdir/alias.def $dlltool_gas_flag" err
70 if ![string match "" $err] then {
73 fail "dlltool -p (execution)"
77 pass "dlltool -p (execution)"
79 set got [binutils_run $NM "tmpdir/libalias.a"]
80 set want "00000000 I __imp__prefix_symbol.*00000000 T _prefix_symbol.*00000000 I __imp__symbol.*00000000 T _symbol"
82 if [regexp $want $got] then {
83 pass "dlltool -p (symbol names)"
85 fail "dlltool -p (symbol names)"
88 set got [binutils_run $OBJDUMP "-s -j .idata\$6 tmpdir/libalias.a"]
89 set want "(Contents of section .idata\\\$6:.*\\.\\.symbol\\.\\..*){2,2}"
91 if [regexp $want $got] then {
92 pass "dlltool -p (import name)"
94 fail "dlltool -p (import name)"
97 verbose "$DLLTOOL -p prefix --leading-underscore -l tmpdir/libalias2.a -d $srcdir/$subdir/alias-2.def $dlltool_gas_flag" 1
98 catch "exec $DLLTOOL -p prefix --leading-underscore -l tmpdir/libalias2.a -d $srcdir/$subdir/alias-2.def $dlltool_gas_flag" err
100 if ![string match "" $err] then {
103 fail "dlltool -p (execution) alias-2.def"
107 pass "dlltool -p (execution) alias-2.def"
109 set got [binutils_run $NM "tmpdir/libalias2.a"]
110 set want "00000000 I __imp__prefix_symbol.*00000000 T _prefix_symbol.*00000000 I __imp__symbol.*00000000 T _symbol"
112 if [regexp $want $got] then {
113 pass "dlltool -p (symbol names) alias-2.def"
115 fail "dlltool -p (symbol names) alias-2.def"
118 set got [binutils_run $OBJDUMP "-s -j .idata\$6 tmpdir/libalias2.a"]
119 set want "(Contents of section .idata\\\$6:.*\\.\\.something\\..*){2,2}"
121 if [regexp $want $got] then {
122 pass "dlltool -p (import name) alias-2.def"
124 fail "dlltool -p (import name) alias-2.def"
127 # Here we test explicit without leading underscore
129 verbose "$DLLTOOL --no-leading-underscore -d $srcdir/$subdir/fastcall.def" 1
130 catch "exec $DLLTOOL --no-leading-underscore -d $srcdir/$subdir/fastcall.def" err
132 if ![string match "" $err] then {
135 fail "dlltool (fastcall export no leading underscore)"
137 pass "dlltool (fastcall export no leading underscore)"
140 if { "$target_xfail" == "yes" } {
144 verbose "$DLLTOOL --no-leading-underscore -p prefix -l tmpdir/libalias_nu.a -d $srcdir/$subdir/alias.def $dlltool_gas_flag" 1
145 catch "exec $DLLTOOL --no-leading-underscore -p prefix -l tmpdir/libalias_nu.a -d $srcdir/$subdir/alias.def $dlltool_gas_flag" err
147 if ![string match "" $err] then {
150 fail "dlltool -p (execution no leading underscore)"
154 pass "dlltool -p (execution no leading underscore)"
156 set got [binutils_run $NM "tmpdir/libalias_nu.a"]
157 set want "00000000 I __imp_prefixsymbol.*00000000 T prefixsymbol.*00000000 I __imp_symbol.*00000000 T symbol"
159 if [regexp $want $got] then {
160 pass "dlltool -p (symbol names no leading underscore)"
162 fail "dlltool -p (symbol names no leading underscore)"
165 set got [binutils_run $OBJDUMP "-s -j .idata\$6 tmpdir/libalias_nu.a"]
166 set want "(Contents of section .idata\\\$6:.*\\.\\.symbol\\.\\..*){2,2}"
168 if [regexp $want $got] then {
169 pass "dlltool -p (import name no leading underscore)"
171 fail "dlltool -p (import name no leading underscore)"
174 verbose "$DLLTOOL --no-leading-underscore -p prefix -l tmpdir/libalias_nu2.a -d $srcdir/$subdir/alias-2.def $dlltool_gas_flag" 1
175 catch "exec $DLLTOOL --no-leading-underscore -p prefix -l tmpdir/libalias_nu2.a -d $srcdir/$subdir/alias-2.def $dlltool_gas_flag" err
177 if ![string match "" $err] then {
180 fail "dlltool -p (execution no leading underscore) alias-2.def"
184 pass "dlltool -p (execution no leading underscore) alias-2.def"
186 set got [binutils_run $NM "tmpdir/libalias_nu2.a"]
187 set want "00000000 I __imp_prefixsymbol.*00000000 T prefixsymbol.*00000000 I __imp_symbol.*00000000 T symbol"
189 if [regexp $want $got] then {
190 pass "dlltool -p (symbol names no leading underscore) alias-2.def"
192 fail "dlltool -p (symbol names no leading underscore) alias-2.def"
195 set got [binutils_run $OBJDUMP "-s -j .idata\$6 tmpdir/libalias_nu2.a"]
196 set want "(Contents of section .idata\\\$6:.*\\.\\.something\\..*){2,2}"
198 if [regexp $want $got] then {
199 pass "dlltool -p (import name no leading underscore) alias-2.def"
201 fail "dlltool -p (import name no leading underscore) alias-2.def"
204 # Now we test with leading underscore
205 verbose "$DLLTOOL --leading-underscore -d $srcdir/$subdir/fastcall.def" 1
206 catch "exec $DLLTOOL --leading-underscore -d $srcdir/$subdir/fastcall.def" err
208 if ![string match "" $err] then {
211 fail "dlltool (fastcall export leading underscore)"
213 pass "dlltool (fastcall export leading underscore)"
216 if { "$target_xfail" == "yes" } {
220 verbose "$DLLTOOL --leading-underscore -p prefix -l tmpdir/libalias_u.a -d $srcdir/$subdir/alias.def $dlltool_gas_flag" 1
221 catch "exec $DLLTOOL --leading-underscore -p prefix -l tmpdir/libalias_u.a -d $srcdir/$subdir/alias.def $dlltool_gas_flag" err
223 if ![string match "" $err] then {
226 fail "dlltool -p (execution leading underscore)"
230 pass "dlltool -p (execution leading-underscore)"
232 set got [binutils_run $NM "tmpdir/libalias_u.a"]
233 set want "00000000 I __imp__prefix_symbol.*00000000 T _prefix_symbol.*00000000 I __imp__symbol.*00000000 T _symbol"
235 if [regexp $want $got] then {
236 pass "dlltool -p (symbol names leading underscore)"
238 fail "dlltool -p (symbol names leading underscore)"
241 set got [binutils_run $OBJDUMP "-s -j .idata\$6 tmpdir/libalias_u.a"]
242 set want "(Contents of section .idata\\\$6:.*\\.\\.symbol\\..*){2,2}"
244 if [regexp $want $got] then {
245 pass "dlltool -p (import name leading underscore)"
247 fail "dlltool -p (import name leading underscore)"
250 verbose "$DLLTOOL --leading-underscore -p prefix -l tmpdir/libalias_u2.a -d $srcdir/$subdir/alias-2.def $dlltool_gas_flag" 1
251 catch "exec $DLLTOOL --leading-underscore -p prefix -l tmpdir/libalias_u2.a -d $srcdir/$subdir/alias-2.def $dlltool_gas_flag" err
253 if ![string match "" $err] then {
256 fail "dlltool -p (execution) alias-2.def"
260 pass "dlltool -p (execution leading underscore) alias-2.def"
262 set got [binutils_run $NM "tmpdir/libalias_u2.a"]
263 set want "00000000 I __imp__prefix_symbol.*00000000 T _prefix_symbol.*00000000 I __imp__symbol.*00000000 T _symbol"
265 if [regexp $want $got] then {
266 pass "dlltool -p (symbol names leading underscore) alias-2.def"
268 fail "dlltool -p (symbol names leading underscore) alias-2.def"
271 set got [binutils_run $OBJDUMP "-s -j .idata\$6 tmpdir/libalias_u2.a"]
272 set want "(Contents of section .idata\\\$6:.*\\.\\.something\\..*){2,2}"
274 if [regexp $want $got] then {
275 pass "dlltool -p (import name leading underscore) alias-2.def"
277 fail "dlltool -p (import name leading underscore) alias-2.def"