OpenCores
URL https://opencores.org/ocsvn/open8_urisc/open8_urisc/trunk

Subversion Repositories open8_urisc

[/] [open8_urisc/] [trunk/] [gnu/] [binutils/] [binutils/] [testsuite/] [binutils-all/] [dlltool.exp] - Blame information for rev 308

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 15 khays 
# Copyright 2002, 2004, 2006, 2007, 2009 Free Software Foundation, Inc.
2 
 
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.
7 
#
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.
12 
#
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.
16 
 
17 
if {![istarget "i*86-*-*"]
18 
    && ![istarget "x86_64-*-mingw*"]
19 
    && ![istarget "arm-*-pe*"]} {
20 
    return
21 
}
22 
 
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"
29 
} else {
30 
    set target_xfail "no"
31 
}
32 
 
33 
if {![info exists DLLTOOL]} then {
34 
    return
35 
}
36 
 
37 
if {[which $DLLTOOL] == 0} then {
38 
    return
39 
}
40 
 
41 
verbose "$DLLTOOL --leading-underscore -d $srcdir/$subdir/fastcall.def" 1
42 
catch "exec $DLLTOOL --leading-underscore -d $srcdir/$subdir/fastcall.def" err
43 
 
44 
if ![string match "" $err] then {
45 
    send_log "$err\n"
46 
    verbose "$err" 1
47 
    fail "dlltool (fastcall export)"
48 
} else {
49 
    pass "dlltool (fastcall export)"
50 
}
51 
 
52 
if { "$target_xfail" == "yes" } {
53 
    setup_xfail *-*
54 
}
55 
 
56 166 khays 
verbose "$DLLTOOL -l libversion.a --def $srcdir/$subdir/version.def" 1
57 
catch "exec $DLLTOOL -l libersion.a --def $srcdir/$subdir/version.def" err
58 
 
59 
if ![string match "" $err] then {
60 
    send_log "$err\n"
61 
    verbose "$err" 1
62 
    fail "dlltool (version.dll)"
63 
} else {
64 
    pass "dlltool (version.dll)"
65 
}
66 
 
67 
if { "$target_xfail" == "yes" } {
68 
    setup_xfail *-*
69 
}
70 
 
71 15 khays 
verbose "$DLLTOOL -p prefix --leading-underscore -l tmpdir/libalias.a -d $srcdir/$subdir/alias.def $dlltool_gas_flag" 1
72 
catch "exec $DLLTOOL -p prefix --leading-underscore -l tmpdir/libalias.a -d $srcdir/$subdir/alias.def $dlltool_gas_flag" err
73 
 
74 
if ![string match "" $err] then {
75 
    send_log "$err\n"
76 
    verbose "$err" 1
77 
    fail "dlltool -p (execution)"
78 
    continue
79 
}
80 
 
81 
pass "dlltool -p (execution)"
82 
 
83 
set got [binutils_run $NM "tmpdir/libalias.a"]
84 
set want "00000000 I __imp__prefix_symbol.*00000000 T _prefix_symbol.*00000000 I __imp__symbol.*00000000 T _symbol"
85 
 
86 
if [regexp $want $got] then {
87 
    pass "dlltool -p (symbol names)"
88 
} else {
89 
    fail "dlltool -p (symbol names)"
90 
}
91 
 
92 
set got [binutils_run $OBJDUMP "-s -j .idata\$6 tmpdir/libalias.a"]
93 
set want "(Contents of section .idata\\\$6:.*\\.\\.symbol\\.\\..*){2,2}"
94 
 
95 
if [regexp $want $got] then {
96 
    pass "dlltool -p (import name)"
97 
} else {
98 
    fail "dlltool -p (import name)"
99 
}
100 
 
101 
verbose "$DLLTOOL -p prefix --leading-underscore -l tmpdir/libalias2.a -d $srcdir/$subdir/alias-2.def $dlltool_gas_flag" 1
102 
catch "exec $DLLTOOL -p prefix --leading-underscore -l tmpdir/libalias2.a -d $srcdir/$subdir/alias-2.def $dlltool_gas_flag" err
103 
 
104 
if ![string match "" $err] then {
105 
    send_log "$err\n"
106 
    verbose "$err" 1
107 
    fail "dlltool -p (execution) alias-2.def"
108 
    continue
109 
}
110 
 
111 
pass "dlltool -p (execution) alias-2.def"
112 
 
113 
set got [binutils_run $NM "tmpdir/libalias2.a"]
114 
set want "00000000 I __imp__prefix_symbol.*00000000 T _prefix_symbol.*00000000 I __imp__symbol.*00000000 T _symbol"
115 
 
116 
if [regexp $want $got] then {
117 
    pass "dlltool -p (symbol names) alias-2.def"
118 
} else {
119 
    fail "dlltool -p (symbol names) alias-2.def"
120 
}
121 
 
122 
set got [binutils_run $OBJDUMP "-s -j .idata\$6 tmpdir/libalias2.a"]
123 
set want "(Contents of section .idata\\\$6:.*\\.\\.something\\..*){2,2}"
124 
 
125 
if [regexp $want $got] then {
126 
    pass "dlltool -p (import name) alias-2.def"
127 
} else {
128 
    fail "dlltool -p (import name) alias-2.def"
129 
}
130 
 
131 
# Here we test explicit without leading underscore
132 
 
133 
verbose "$DLLTOOL --no-leading-underscore -d $srcdir/$subdir/fastcall.def" 1
134 
catch "exec $DLLTOOL --no-leading-underscore -d $srcdir/$subdir/fastcall.def" err
135 
 
136 
if ![string match "" $err] then {
137 
    send_log "$err\n"
138 
    verbose "$err" 1
139 
    fail "dlltool (fastcall export no leading underscore)"
140 
} else {
141 
    pass "dlltool (fastcall export no leading underscore)"
142 
}
143 
 
144 
if { "$target_xfail" == "yes" } {
145 
    setup_xfail *-*
146 
}
147 
 
148 
verbose "$DLLTOOL --no-leading-underscore -p prefix -l tmpdir/libalias_nu.a -d $srcdir/$subdir/alias.def $dlltool_gas_flag" 1
149 
catch "exec $DLLTOOL --no-leading-underscore -p prefix -l tmpdir/libalias_nu.a -d $srcdir/$subdir/alias.def $dlltool_gas_flag" err
150 
 
151 
if ![string match "" $err] then {
152 
    send_log "$err\n"
153 
    verbose "$err" 1
154 
    fail "dlltool -p (execution no leading underscore)"
155 
    continue
156 
}
157 
 
158 
pass "dlltool -p (execution no leading underscore)"
159 
 
160 
set got [binutils_run $NM "tmpdir/libalias_nu.a"]
161 
set want "00000000 I __imp_prefixsymbol.*00000000 T prefixsymbol.*00000000 I __imp_symbol.*00000000 T symbol"
162 
 
163 
if [regexp $want $got] then {
164 
    pass "dlltool -p (symbol names no leading underscore)"
165 
} else {
166 
    fail "dlltool -p (symbol names no leading underscore)"
167 
}
168 
 
169 
set got [binutils_run $OBJDUMP "-s -j .idata\$6 tmpdir/libalias_nu.a"]
170 
set want "(Contents of section .idata\\\$6:.*\\.\\.symbol\\.\\..*){2,2}"
171 
 
172 
if [regexp $want $got] then {
173 
    pass "dlltool -p (import name no leading underscore)"
174 
} else {
175 
    fail "dlltool -p (import name no leading underscore)"
176 
}
177 
 
178 
verbose "$DLLTOOL --no-leading-underscore -p prefix -l tmpdir/libalias_nu2.a -d $srcdir/$subdir/alias-2.def $dlltool_gas_flag" 1
179 
catch "exec $DLLTOOL --no-leading-underscore -p prefix -l tmpdir/libalias_nu2.a -d $srcdir/$subdir/alias-2.def $dlltool_gas_flag" err
180 
 
181 
if ![string match "" $err] then {
182 
    send_log "$err\n"
183 
    verbose "$err" 1
184 
    fail "dlltool -p (execution no leading underscore) alias-2.def"
185 
    continue
186 
}
187 
 
188 
pass "dlltool -p (execution no leading underscore) alias-2.def"
189 
 
190 
set got [binutils_run $NM "tmpdir/libalias_nu2.a"]
191 
set want "00000000 I __imp_prefixsymbol.*00000000 T prefixsymbol.*00000000 I __imp_symbol.*00000000 T symbol"
192 
 
193 
if [regexp $want $got] then {
194 
    pass "dlltool -p (symbol names no leading underscore) alias-2.def"
195 
} else {
196 
    fail "dlltool -p (symbol names no leading underscore) alias-2.def"
197 
}
198 
 
199 
set got [binutils_run $OBJDUMP "-s -j .idata\$6 tmpdir/libalias_nu2.a"]
200 
set want "(Contents of section .idata\\\$6:.*\\.\\.something\\..*){2,2}"
201 
 
202 
if [regexp $want $got] then {
203 
    pass "dlltool -p (import name no leading underscore) alias-2.def"
204 
} else {
205 
    fail "dlltool -p (import name no leading underscore) alias-2.def"
206 
}
207 
 
208 
# Now we test with leading underscore
209 
verbose "$DLLTOOL --leading-underscore -d $srcdir/$subdir/fastcall.def" 1
210 
catch "exec $DLLTOOL --leading-underscore -d $srcdir/$subdir/fastcall.def" err
211 
 
212 
if ![string match "" $err] then {
213 
    send_log "$err\n"
214 
    verbose "$err" 1
215 
    fail "dlltool (fastcall export leading underscore)"
216 
} else {
217 
    pass "dlltool (fastcall export leading underscore)"
218 
}
219 
 
220 
if { "$target_xfail" == "yes" } {
221 
    setup_xfail *-*
222 
}
223 
 
224 
verbose "$DLLTOOL --leading-underscore -p prefix -l tmpdir/libalias_u.a -d $srcdir/$subdir/alias.def $dlltool_gas_flag" 1
225 
catch "exec $DLLTOOL --leading-underscore -p prefix -l tmpdir/libalias_u.a -d $srcdir/$subdir/alias.def $dlltool_gas_flag" err
226 
 
227 
if ![string match "" $err] then {
228 
    send_log "$err\n"
229 
    verbose "$err" 1
230 
    fail "dlltool -p (execution leading underscore)"
231 
    continue
232 
}
233 
 
234 
pass "dlltool -p (execution leading-underscore)"
235 
 
236 
set got [binutils_run $NM "tmpdir/libalias_u.a"]
237 
set want "00000000 I __imp__prefix_symbol.*00000000 T _prefix_symbol.*00000000 I __imp__symbol.*00000000 T _symbol"
238 
 
239 
if [regexp $want $got] then {
240 
    pass "dlltool -p (symbol names leading underscore)"
241 
} else {
242 
    fail "dlltool -p (symbol names leading underscore)"
243 
}
244 
 
245 
set got [binutils_run $OBJDUMP "-s -j .idata\$6 tmpdir/libalias_u.a"]
246 
set want "(Contents of section .idata\\\$6:.*\\.\\.symbol\\..*){2,2}"
247 
 
248 
if [regexp $want $got] then {
249 
    pass "dlltool -p (import name leading underscore)"
250 
} else {
251 
    fail "dlltool -p (import name leading underscore)"
252 
}
253 
 
254 
verbose "$DLLTOOL --leading-underscore -p prefix -l tmpdir/libalias_u2.a -d $srcdir/$subdir/alias-2.def $dlltool_gas_flag" 1
255 
catch "exec $DLLTOOL --leading-underscore -p prefix -l tmpdir/libalias_u2.a -d $srcdir/$subdir/alias-2.def $dlltool_gas_flag" err
256 
 
257 
if ![string match "" $err] then {
258 
    send_log "$err\n"
259 
    verbose "$err" 1
260 
    fail "dlltool -p (execution) alias-2.def"
261 
    continue
262 
}
263 
 
264 
pass "dlltool -p (execution leading underscore) alias-2.def"
265 
 
266 
set got [binutils_run $NM "tmpdir/libalias_u2.a"]
267 
set want "00000000 I __imp__prefix_symbol.*00000000 T _prefix_symbol.*00000000 I __imp__symbol.*00000000 T _symbol"
268 
 
269 
if [regexp $want $got] then {
270 
    pass "dlltool -p (symbol names leading underscore) alias-2.def"
271 
} else {
272 
    fail "dlltool -p (symbol names leading underscore) alias-2.def"
273 
}
274 
 
275 
set got [binutils_run $OBJDUMP "-s -j .idata\$6 tmpdir/libalias_u2.a"]
276 
set want "(Contents of section .idata\\\$6:.*\\.\\.something\\..*){2,2}"
277 
 
278 
if [regexp $want $got] then {
279 
    pass "dlltool -p (import name leading underscore) alias-2.def"
280 
} else {
281 
    fail "dlltool -p (import name leading underscore) alias-2.def"
282 
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.