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 -p prefix --leading-underscore -l tmpdir/libalias.a -d $srcdir/$subdir/alias.def $dlltool_gas_flag" 1
57 catch "exec $DLLTOOL -p prefix --leading-underscore -l tmpdir/libalias.a -d $srcdir/$subdir/alias.def $dlltool_gas_flag" err
59 if ![string match "" $err] then {
62 fail "dlltool -p (execution)"
66 pass "dlltool -p (execution)"
68 set got [binutils_run $NM "tmpdir/libalias.a"]
69 set want "00000000 I __imp__prefix_symbol.*00000000 T _prefix_symbol.*00000000 I __imp__symbol.*00000000 T _symbol"
71 if [regexp $want $got] then {
72 pass "dlltool -p (symbol names)"
74 fail "dlltool -p (symbol names)"
77 set got [binutils_run $OBJDUMP "-s -j .idata\$6 tmpdir/libalias.a"]
78 set want "(Contents of section .idata\\\$6:.*\\.\\.symbol\\.\\..*){2,2}"
80 if [regexp $want $got] then {
81 pass "dlltool -p (import name)"
83 fail "dlltool -p (import name)"
86 verbose "$DLLTOOL -p prefix --leading-underscore -l tmpdir/libalias2.a -d $srcdir/$subdir/alias-2.def $dlltool_gas_flag" 1
87 catch "exec $DLLTOOL -p prefix --leading-underscore -l tmpdir/libalias2.a -d $srcdir/$subdir/alias-2.def $dlltool_gas_flag" err
89 if ![string match "" $err] then {
92 fail "dlltool -p (execution) alias-2.def"
96 pass "dlltool -p (execution) alias-2.def"
98 set got [binutils_run $NM "tmpdir/libalias2.a"]
99 set want "00000000 I __imp__prefix_symbol.*00000000 T _prefix_symbol.*00000000 I __imp__symbol.*00000000 T _symbol"
101 if [regexp $want $got] then {
102 pass "dlltool -p (symbol names) alias-2.def"
104 fail "dlltool -p (symbol names) alias-2.def"
107 set got [binutils_run $OBJDUMP "-s -j .idata\$6 tmpdir/libalias2.a"]
108 set want "(Contents of section .idata\\\$6:.*\\.\\.something\\..*){2,2}"
110 if [regexp $want $got] then {
111 pass "dlltool -p (import name) alias-2.def"
113 fail "dlltool -p (import name) alias-2.def"
116 # Here we test explicit without leading underscore
118 verbose "$DLLTOOL --no-leading-underscore -d $srcdir/$subdir/fastcall.def" 1
119 catch "exec $DLLTOOL --no-leading-underscore -d $srcdir/$subdir/fastcall.def" err
121 if ![string match "" $err] then {
124 fail "dlltool (fastcall export no leading underscore)"
126 pass "dlltool (fastcall export no leading underscore)"
129 if { "$target_xfail" == "yes" } {
133 verbose "$DLLTOOL --no-leading-underscore -p prefix -l tmpdir/libalias_nu.a -d $srcdir/$subdir/alias.def $dlltool_gas_flag" 1
134 catch "exec $DLLTOOL --no-leading-underscore -p prefix -l tmpdir/libalias_nu.a -d $srcdir/$subdir/alias.def $dlltool_gas_flag" err
136 if ![string match "" $err] then {
139 fail "dlltool -p (execution no leading underscore)"
143 pass "dlltool -p (execution no leading underscore)"
145 set got [binutils_run $NM "tmpdir/libalias_nu.a"]
146 set want "00000000 I __imp_prefixsymbol.*00000000 T prefixsymbol.*00000000 I __imp_symbol.*00000000 T symbol"
148 if [regexp $want $got] then {
149 pass "dlltool -p (symbol names no leading underscore)"
151 fail "dlltool -p (symbol names no leading underscore)"
154 set got [binutils_run $OBJDUMP "-s -j .idata\$6 tmpdir/libalias_nu.a"]
155 set want "(Contents of section .idata\\\$6:.*\\.\\.symbol\\.\\..*){2,2}"
157 if [regexp $want $got] then {
158 pass "dlltool -p (import name no leading underscore)"
160 fail "dlltool -p (import name no leading underscore)"
163 verbose "$DLLTOOL --no-leading-underscore -p prefix -l tmpdir/libalias_nu2.a -d $srcdir/$subdir/alias-2.def $dlltool_gas_flag" 1
164 catch "exec $DLLTOOL --no-leading-underscore -p prefix -l tmpdir/libalias_nu2.a -d $srcdir/$subdir/alias-2.def $dlltool_gas_flag" err
166 if ![string match "" $err] then {
169 fail "dlltool -p (execution no leading underscore) alias-2.def"
173 pass "dlltool -p (execution no leading underscore) alias-2.def"
175 set got [binutils_run $NM "tmpdir/libalias_nu2.a"]
176 set want "00000000 I __imp_prefixsymbol.*00000000 T prefixsymbol.*00000000 I __imp_symbol.*00000000 T symbol"
178 if [regexp $want $got] then {
179 pass "dlltool -p (symbol names no leading underscore) alias-2.def"
181 fail "dlltool -p (symbol names no leading underscore) alias-2.def"
184 set got [binutils_run $OBJDUMP "-s -j .idata\$6 tmpdir/libalias_nu2.a"]
185 set want "(Contents of section .idata\\\$6:.*\\.\\.something\\..*){2,2}"
187 if [regexp $want $got] then {
188 pass "dlltool -p (import name no leading underscore) alias-2.def"
190 fail "dlltool -p (import name no leading underscore) alias-2.def"
193 # Now we test with leading underscore
194 verbose "$DLLTOOL --leading-underscore -d $srcdir/$subdir/fastcall.def" 1
195 catch "exec $DLLTOOL --leading-underscore -d $srcdir/$subdir/fastcall.def" err
197 if ![string match "" $err] then {
200 fail "dlltool (fastcall export leading underscore)"
202 pass "dlltool (fastcall export leading underscore)"
205 if { "$target_xfail" == "yes" } {
209 verbose "$DLLTOOL --leading-underscore -p prefix -l tmpdir/libalias_u.a -d $srcdir/$subdir/alias.def $dlltool_gas_flag" 1
210 catch "exec $DLLTOOL --leading-underscore -p prefix -l tmpdir/libalias_u.a -d $srcdir/$subdir/alias.def $dlltool_gas_flag" err
212 if ![string match "" $err] then {
215 fail "dlltool -p (execution leading underscore)"
219 pass "dlltool -p (execution leading-underscore)"
221 set got [binutils_run $NM "tmpdir/libalias_u.a"]
222 set want "00000000 I __imp__prefix_symbol.*00000000 T _prefix_symbol.*00000000 I __imp__symbol.*00000000 T _symbol"
224 if [regexp $want $got] then {
225 pass "dlltool -p (symbol names leading underscore)"
227 fail "dlltool -p (symbol names leading underscore)"
230 set got [binutils_run $OBJDUMP "-s -j .idata\$6 tmpdir/libalias_u.a"]
231 set want "(Contents of section .idata\\\$6:.*\\.\\.symbol\\..*){2,2}"
233 if [regexp $want $got] then {
234 pass "dlltool -p (import name leading underscore)"
236 fail "dlltool -p (import name leading underscore)"
239 verbose "$DLLTOOL --leading-underscore -p prefix -l tmpdir/libalias_u2.a -d $srcdir/$subdir/alias-2.def $dlltool_gas_flag" 1
240 catch "exec $DLLTOOL --leading-underscore -p prefix -l tmpdir/libalias_u2.a -d $srcdir/$subdir/alias-2.def $dlltool_gas_flag" err
242 if ![string match "" $err] then {
245 fail "dlltool -p (execution) alias-2.def"
249 pass "dlltool -p (execution leading underscore) alias-2.def"
251 set got [binutils_run $NM "tmpdir/libalias_u2.a"]
252 set want "00000000 I __imp__prefix_symbol.*00000000 T _prefix_symbol.*00000000 I __imp__symbol.*00000000 T _symbol"
254 if [regexp $want $got] then {
255 pass "dlltool -p (symbol names leading underscore) alias-2.def"
257 fail "dlltool -p (symbol names leading underscore) alias-2.def"
260 set got [binutils_run $OBJDUMP "-s -j .idata\$6 tmpdir/libalias_u2.a"]
261 set want "(Contents of section .idata\\\$6:.*\\.\\.something\\..*){2,2}"
263 if [regexp $want $got] then {
264 pass "dlltool -p (import name leading underscore) alias-2.def"
266 fail "dlltool -p (import name leading underscore) alias-2.def"