]>
Commit | Line | Data |
---|---|---|
fd67aa11 | 1 | # Copyright (C) 1993-2024 Free Software Foundation, Inc. |
252b5132 RH |
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 | |
32866df7 | 5 | # the Free Software Foundation; either version 3 of the License, or |
252b5132 | 6 | # (at your option) any later version. |
65951855 | 7 | # |
252b5132 RH |
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. | |
65951855 | 12 | # |
252b5132 RH |
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 | |
b43b5d5f | 15 | # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. |
252b5132 RH |
16 | |
17 | # Please email any bugs, comments, and/or additions to this file to: | |
18 | # bug-dejagnu@prep.ai.mit.edu | |
19 | ||
20 | # This file was written by Rob Savoye <rob@cygnus.com> | |
21 | # and rewritten by Ian Lance Taylor <ian@cygnus.com> | |
22 | ||
23 | if ![is_remote host] { | |
24 | if {[which $OBJDUMP] == 0} then { | |
25 | perror "$OBJDUMP does not exist" | |
26 | return | |
27 | } | |
28 | } | |
29 | ||
30 | send_user "Version [binutil_version $OBJDUMP]" | |
31 | ||
32 | # Simple test of objdump -i | |
33 | ||
34 | set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -i"] | |
35 | ||
41f5a528 | 36 | set cpus_expected [list] |
75800d2c | 37 | lappend cpus_expected aarch64 alpha am33-2 arc ARC700 ARCv2 arm cris |
a8eb42a8 | 38 | lappend cpus_expected d10v d30v fr30 fr500 fr550 h8 hppa i386 iamcu ip2022 |
c2bf1eec | 39 | lappend cpus_expected m16c m32c m32r m68hc11 m68hc12 m68k MCore mep c5 h1 MicroBlaze |
73589c9d | 40 | lappend cpus_expected mips mn10200 mn10300 ms1 msp MSP430 nds32 n1h_v3 ns32k |
e23eba97 | 41 | lappend cpus_expected or1k or1knd pj powerpc pyramid riscv romp rs6000 s390 sh sparc |
5b660084 | 42 | lappend cpus_expected tic54x tilegx tms320c30 tms320c4x tms320c54x |
04cb01fd | 43 | lappend cpus_expected v850 vax x86-64 xscale xtensa z8k z8001 z8002 |
e9a0721f | 44 | lappend cpus_expected Loongarch64 Loongarch32 |
252b5132 RH |
45 | |
46 | # Make sure the target CPU shows up in the list. | |
41f5a528 FCE |
47 | lappend cpus_expected ${target_cpu} |
48 | ||
49 | # Create regexp | |
50 | set cpus_regex "([join $cpus_expected | ])" | |
51 | ||
52 | verbose -log "CPU regex: $cpus_regex" | |
252b5132 | 53 | |
41f5a528 | 54 | set want "BFD header file version.*srec\[^\n\]*\n\[^\n\]*header \[^\n\]*endian\[^\n\]*, data \[^\n\]*endian.*$cpus_regex" |
252b5132 RH |
55 | |
56 | if [regexp $want $got] then { | |
57 | pass "objdump -i" | |
58 | } else { | |
59 | fail "objdump -i" | |
60 | } | |
61 | ||
0bee4d1c AM |
62 | set obj o |
63 | if { [istarget "*-*-vms"] } then { | |
64 | set obj obj | |
65 | } | |
d4f5b5e2 | 66 | set exe [exeext] |
252b5132 | 67 | |
0bee4d1c | 68 | # The remaining tests require a test file. |
252b5132 | 69 | |
0bee4d1c | 70 | if {![binutils_assemble $srcdir/$subdir/bintest.s tmpdir/bintest.${obj}]} then { |
baae986a | 71 | fail "objdump (assembling bintest.s)" |
252b5132 RH |
72 | return |
73 | } | |
0bee4d1c | 74 | if {![binutils_assemble $srcdir/$subdir/bintest.s tmpdir/bintest2.${obj}]} then { |
f795c494 | 75 | fail "objdump (assembling)" |
8e2f54bc L |
76 | return |
77 | } | |
252b5132 | 78 | if [is_remote host] { |
0bee4d1c AM |
79 | set testfile [remote_download host tmpdir/bintest.${obj}] |
80 | set testfile2 [remote_download host tmpdir/bintest2.${obj}] | |
252b5132 | 81 | } else { |
0bee4d1c AM |
82 | set testfile tmpdir/bintest.${obj} |
83 | set testfile2 tmpdir/bintest2.${obj} | |
8e2f54bc L |
84 | } |
85 | ||
a502b0bb L |
86 | # $testarchive exists only if it is supported. |
87 | set testarchive tmpdir/bintest.a | |
d081ffff | 88 | remote_file host delete $testarchive |
0bee4d1c AM |
89 | set got [binutils_run $AR "rc tmpdir/bintest.a $testfile2"] |
90 | if ![string match "" $got] then { | |
91 | fail "bintest.a" | |
92 | remote_file host delete tmpdir/bintest.a | |
93 | } elseif [is_remote host] { | |
94 | set testarchive [remote_download host tmpdir/bintest.a] | |
252b5132 | 95 | } |
0bee4d1c | 96 | remote_file host delete tmpdir/bintest2.${obj} |
252b5132 RH |
97 | |
98 | # Test objdump -f | |
99 | ||
8e2f54bc L |
100 | proc test_objdump_f { testfile dumpfile } { |
101 | global OBJDUMP | |
102 | global OBJDUMPFLAGS | |
103 | global cpus_regex | |
252b5132 | 104 | |
8e2f54bc | 105 | set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -f $testfile"] |
252b5132 | 106 | |
0bee4d1c | 107 | set want "${dumpfile}.*:\[ \]*file format.*architecture:\[ \]*${cpus_regex}.*HAS_RELOC.*HAS_SYMS" |
8e2f54bc L |
108 | |
109 | if ![regexp $want $got] then { | |
110 | fail "objdump -f ($testfile, $dumpfile)" | |
111 | } else { | |
112 | pass "objdump -f ($testfile, $dumpfile)" | |
113 | } | |
114 | } | |
115 | ||
116 | test_objdump_f $testfile $testfile | |
117 | if { [ remote_file host exists $testarchive ] } then { | |
0bee4d1c | 118 | test_objdump_f $testarchive bintest2.${obj} |
252b5132 RH |
119 | } |
120 | ||
121 | # Test objdump -h | |
122 | ||
8e2f54bc L |
123 | proc test_objdump_h { testfile dumpfile } { |
124 | global OBJDUMP | |
125 | global OBJDUMPFLAGS | |
252b5132 | 126 | |
8e2f54bc | 127 | set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -h $testfile"] |
252b5132 | 128 | |
0bee4d1c | 129 | set want "${dumpfile}.*:\[ \]*file format.*Sections.*\[0-9\]+\[ \]+\[^ \]*(text|TEXT|P|\\\$CODE\\\$)\[^ \]*\[ \]*(\[0-9a-fA-F\]+).*\[0-9\]+\[ \]+\[^ \]*(\\.data|DATA|D_1)\[^ \]*\[ \]*(\[0-9a-fA-F\]+)" |
8e2f54bc L |
130 | |
131 | if ![regexp $want $got all text_name text_size data_name data_size] then { | |
132 | fail "objdump -h ($testfile, $dumpfile)" | |
252b5132 | 133 | } else { |
8e2f54bc L |
134 | verbose "text name is $text_name size is $text_size" |
135 | verbose "data name is $data_name size is $data_size" | |
136 | set ets 8 | |
137 | set eds 4 | |
138 | # The [ti]c4x target has the property sizeof(char)=sizeof(long)=1 | |
139 | if [istarget *c4x*-*-*] then { | |
140 | set ets 2 | |
141 | set eds 1 | |
142 | } | |
143 | # c54x section sizes are in bytes, not octets; adjust accordingly | |
144 | if [istarget *c54x*-*-*] then { | |
145 | set ets 4 | |
146 | set eds 2 | |
147 | } | |
148 | if {[expr "0x$text_size"] < $ets || [expr "0x$data_size"] < $eds} then { | |
149 | send_log "sizes too small\n" | |
150 | fail "objdump -h ($testfile, $dumpfile)" | |
151 | } else { | |
152 | pass "objdump -h ($testfile, $dumpfile)" | |
153 | } | |
252b5132 RH |
154 | } |
155 | } | |
156 | ||
8e2f54bc L |
157 | test_objdump_h $testfile $testfile |
158 | if { [ remote_file host exists $testarchive ] } then { | |
0bee4d1c | 159 | test_objdump_h $testarchive bintest2.${obj} |
8e2f54bc L |
160 | } |
161 | ||
252b5132 RH |
162 | # Test objdump -t |
163 | ||
8e2f54bc L |
164 | proc test_objdump_t { testfile} { |
165 | global OBJDUMP | |
166 | global OBJDUMPFLAGS | |
167 | ||
168 | set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -t $testfile"] | |
252b5132 | 169 | |
8e2f54bc L |
170 | if [info exists vars] then { unset vars } |
171 | while {[regexp "(\[a-z\]*_symbol)(.*)" $got all symbol rest]} { | |
172 | set vars($symbol) 1 | |
173 | set got $rest | |
174 | } | |
175 | ||
176 | if {![info exists vars(text_symbol)] \ | |
177 | || ![info exists vars(data_symbol)] \ | |
178 | || ![info exists vars(common_symbol)] \ | |
179 | || ![info exists vars(external_symbol)]} then { | |
180 | fail "objdump -t ($testfile)" | |
181 | } else { | |
182 | pass "objdump -t ($testfile)" | |
183 | } | |
252b5132 RH |
184 | } |
185 | ||
8e2f54bc L |
186 | test_objdump_t $testfile |
187 | if { [ remote_file host exists $testarchive ] } then { | |
188 | test_objdump_t $testarchive | |
252b5132 RH |
189 | } |
190 | ||
191 | # Test objdump -r | |
192 | ||
8e2f54bc L |
193 | proc test_objdump_r { testfile dumpfile } { |
194 | global OBJDUMP | |
195 | global OBJDUMPFLAGS | |
252b5132 | 196 | |
8e2f54bc | 197 | set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -r $testfile"] |
252b5132 | 198 | |
0bee4d1c | 199 | set want "${dumpfile}.*:\[ \]*file format.*RELOCATION RECORDS FOR \\\[\[^\]\]*(text|TEXT|P|\\\$CODE\\\$)\[^\]\]*\\\].*external_symbol" |
8e2f54bc L |
200 | |
201 | if [regexp $want $got] then { | |
202 | pass "objdump -r ($testfile, $dumpfile)" | |
203 | } else { | |
204 | fail "objdump -r ($testfile, $dumpfile)" | |
205 | } | |
206 | } | |
207 | ||
208 | test_objdump_r $testfile $testfile | |
209 | if { [ remote_file host exists $testarchive ] } then { | |
0bee4d1c | 210 | test_objdump_r $testarchive bintest2.${obj} |
252b5132 RH |
211 | } |
212 | ||
d3def5d7 MY |
213 | # Test objdump -d |
214 | proc test_objdump_d { testfile dumpfile } { | |
215 | global OBJDUMP | |
216 | global OBJDUMPFLAGS | |
217 | ||
218 | set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -d $testfile"] | |
219 | ||
0bee4d1c | 220 | set want "${dumpfile}.*:.*Disassembly of section" |
d3def5d7 MY |
221 | if ![regexp $want $got] then { |
222 | fail "objdump -d $testfile: No disassembly title" | |
223 | return | |
224 | } | |
225 | ||
0bee4d1c | 226 | set want "${dumpfile}.*:.*00+0 <text_symbol>" |
d3def5d7 MY |
227 | if ![regexp $want $got] then { |
228 | fail "objdump -d $testfile: Missing symbol name and address" | |
229 | return | |
230 | } | |
231 | ||
0bee4d1c | 232 | set want "${dumpfile}.*:.*00+. <text_symbol2>" |
d3def5d7 MY |
233 | if ![regexp $want $got] then { |
234 | fail "objdump -d $testfile: Missing second symbol" | |
235 | return | |
236 | } | |
237 | ||
0bee4d1c | 238 | set want "${dumpfile}.*:.*00+. <text_symbol3>" |
d3def5d7 MY |
239 | if ![regexp $want $got] then { |
240 | fail "objdump -d $testfile: Missing third symbol" | |
241 | return | |
242 | } | |
243 | ||
244 | pass "objdump -d $testfile" | |
245 | } | |
246 | ||
247 | test_objdump_d $testfile $testfile | |
248 | if { [ remote_file host exists $testarchive ] } then { | |
0bee4d1c | 249 | test_objdump_d $testarchive bintest2.${obj} |
d3def5d7 MY |
250 | } |
251 | ||
252 | # Test objdump --disassemble=<symbol> | |
253 | proc test_objdump_d_sym { testfile dumpfile } { | |
254 | global OBJDUMP | |
255 | global OBJDUMPFLAGS | |
256 | ||
257 | set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS --disassemble=text_symbol2 $testfile"] | |
258 | ||
259 | set want "$dumpfile:.*Disassembly of section" | |
260 | if ![regexp $want $got] then { | |
261 | fail "objdump --disassemble=text_symbol2 $testfile: No disassembly title" | |
262 | return | |
263 | } | |
264 | ||
265 | set want "$dumpfile:.*00+0 <text_symbol>" | |
266 | if [regexp $want $got] then { | |
267 | fail "objdump --disassemble=text_symbol2 $testfile: First symbol displayed, when it should be absent" | |
268 | return | |
269 | } | |
270 | ||
271 | set want "$dumpfile:.*00+. <text_symbol2>" | |
272 | if ![regexp $want $got] then { | |
273 | fail "objdump --disassemble=text_symbol2 $testfile: Missing second symbol" | |
274 | return | |
275 | } | |
276 | ||
277 | set want "$dumpfile:.*00+. <text_symbol3>" | |
278 | if [regexp $want $got] then { | |
279 | fail "objdump --disassemble=text_symbol2 $testfile: Third symbol displayed when it should be absent" | |
280 | return | |
281 | } | |
282 | ||
283 | pass "objdump --disassemble=text_symbol2 $testfile" | |
284 | } | |
285 | ||
286 | test_objdump_d_sym $testfile $testfile | |
baae986a NC |
287 | |
288 | proc test_objdump_d_func_sym { testfile dumpfile } { | |
289 | global OBJDUMP | |
290 | global OBJDUMPFLAGS | |
291 | ||
292 | set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS --disassemble=func --disassemble-zeroes $testfile"] | |
293 | ||
294 | set want "$dumpfile:.*Disassembly of section" | |
295 | if ![regexp $want $got] then { | |
296 | fail "objdump --disassemble=func $testfile: No disassembly title" | |
297 | return | |
298 | } | |
299 | ||
300 | set want "$dumpfile:.*00+0 <start_of_text>" | |
301 | if [regexp $want $got] then { | |
302 | fail "objdump --disassemble=func $testfile: First symbol displayed, when it should be absent" | |
303 | return | |
304 | } | |
305 | ||
306 | set want "$dumpfile:.*00+. <func>" | |
307 | if ![regexp $want $got] then { | |
308 | fail "objdump --disassemble=func $testfile: Disassembly does not start at function symbol" | |
309 | return | |
310 | } | |
311 | ||
312 | set want "$dumpfile:.*00+. <global_non_func_sym>" | |
313 | if ![regexp $want $got] then { | |
314 | fail "objdump --disassemble=func $testfile: Non function symbol not displayed" | |
315 | return | |
316 | } | |
317 | ||
318 | set want "$dumpfile:.*00+. <next_func>" | |
319 | if [regexp $want $got] then { | |
320 | fail "objdump --disassemble=func $testfile: Disassembly did not stop at the next function" | |
321 | return | |
322 | } | |
323 | ||
324 | pass "objdump --disassemble=func $testfile" | |
325 | } | |
326 | ||
327 | proc test_objdump_d_non_func_sym { testfile dumpfile } { | |
328 | global OBJDUMP | |
329 | global OBJDUMPFLAGS | |
330 | ||
331 | set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS --disassemble=global_non_func_sym $testfile"] | |
332 | ||
333 | set want "$dumpfile:.*Disassembly of section" | |
334 | if ![regexp $want $got] then { | |
335 | fail "objdump --disassemble=non_func $testfile: No disassembly title" | |
336 | return | |
337 | } | |
338 | ||
339 | set want "$dumpfile:.*00+0 <start_of_text>" | |
340 | if [regexp $want $got] then { | |
341 | fail "objdump --disassemble=non_func $testfile: First symbol displayed, when it should be absent" | |
342 | return | |
343 | } | |
344 | ||
345 | set want "$dumpfile:.*00+. <global_non_func_sym>" | |
346 | if ![regexp $want $got] then { | |
347 | fail "objdump --disassemble=non_func $testfile: Non function symbol not displayed" | |
348 | return | |
349 | } | |
350 | ||
351 | set want "$dumpfile:.*00+. <local_non_func_sym>" | |
352 | if [regexp $want $got] then { | |
353 | fail "objdump --disassemble=non_func $testfile: Disassembly did not stop at the next symbol" | |
354 | return | |
355 | } | |
356 | ||
357 | pass "objdump --disassemble=non_func $testfile" | |
358 | } | |
359 | ||
360 | # Extra test for ELF format - check that --disassemble=func disassembles | |
361 | # all of func, and does not stop at the next symbol. | |
362 | if { [is_elf_format] } then { | |
363 | ||
0bee4d1c | 364 | if {![binutils_assemble $srcdir/$subdir/disasm.s tmpdir/disasm.${obj}]} then { |
baae986a NC |
365 | fail "objdump --disassemble=func (assembling disasm.s)" |
366 | } else { | |
367 | if [is_remote host] { | |
0bee4d1c | 368 | set elftestfile [remote_download host tmpdir/disasm.${obj}] |
baae986a | 369 | } else { |
0bee4d1c | 370 | set elftestfile tmpdir/disasm.${obj} |
baae986a NC |
371 | } |
372 | ||
373 | test_objdump_d_func_sym $elftestfile $elftestfile | |
374 | test_objdump_d_non_func_sym $elftestfile $elftestfile | |
375 | } | |
d3def5d7 MY |
376 | } |
377 | ||
c7ce51d8 NC |
378 | proc test_objdump_d_show_all_symbols { testfile dumpfile } { |
379 | global OBJDUMP | |
380 | global OBJDUMPFLAGS | |
381 | ||
382 | set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -d --show-all-symbols $testfile"] | |
383 | ||
384 | set want "${dumpfile}.*:.*00+0 <text_symbol>" | |
385 | if ![regexp $want $got] then { | |
386 | fail "objdump -d --show-all-symbols $testfile: Missing 'text_symbol'" | |
387 | return | |
388 | } | |
389 | ||
390 | set want "${dumpfile}.*:.*00+0 <static_text_symbol>" | |
391 | if ![regexp $want $got] then { | |
392 | fail "objdump -d --show-all-symbols $testfile: Missing 'static_text_symbol'" | |
393 | return | |
394 | } | |
395 | ||
396 | pass "objdump -d --show-all-symbols $testfile" | |
397 | } | |
398 | ||
399 | # The AIX and ECOFF assemblers default to makeing symbols local, not global. | |
400 | # So they do not show up in this test. | |
401 | setup_xfail "*-*-*aix*" | |
402 | setup_xfail "*-*-*ecoff" | |
403 | test_objdump_d_show_all_symbols $testfile $testfile | |
d3def5d7 | 404 | |
252b5132 RH |
405 | # Test objdump -s |
406 | ||
8e2f54bc L |
407 | proc test_objdump_s { testfile dumpfile } { |
408 | global OBJDUMP | |
409 | global OBJDUMPFLAGS | |
252b5132 | 410 | |
8e2f54bc | 411 | set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -s $testfile"] |
252b5132 | 412 | |
0bee4d1c | 413 | set want "${dumpfile}.*:\[ \]*file format.*Contents.*(text|TEXT|P|\\\$CODE\\\$)\[^0-9\]*\[ \]*\[0-9a-fA-F\]*\[ \]*(00000001|01000000|00000100).*Contents.*(data|DATA|D_1)\[^0-9\]*\[ \]*\[0-9a-fA-F\]*\[ \]*(00000002|02000000|00000200)" |
8e2f54bc L |
414 | |
415 | if [regexp $want $got] then { | |
416 | pass "objdump -s ($testfile, $dumpfile)" | |
417 | } else { | |
418 | fail "objdump -s ($testfile, $dumpfile)" | |
419 | } | |
420 | } | |
421 | ||
422 | test_objdump_s $testfile $testfile | |
423 | if { [ remote_file host exists $testarchive ] } then { | |
0bee4d1c | 424 | test_objdump_s $testarchive bintest2.${obj} |
252b5132 RH |
425 | } |
426 | ||
1b315056 CS |
427 | # Test objdump -s on a file that contains a compressed .debug section |
428 | ||
dae148f3 | 429 | if { ![is_elf_format] } then { |
22bce68e | 430 | unsupported "objdump compressed debug" |
0bee4d1c | 431 | } elseif { ![binutils_assemble $srcdir/$subdir/dw2-compressed.S tmpdir/dw2-compressed.${obj}] } then { |
22bce68e | 432 | fail "objdump compressed debug" |
1b315056 | 433 | } else { |
22bce68e | 434 | if [is_remote host] { |
0bee4d1c | 435 | set compressed_testfile [remote_download host tmpdir/dw2-compressed.${obj}] |
22bce68e | 436 | } else { |
0bee4d1c | 437 | set compressed_testfile tmpdir/dw2-compressed.${obj} |
22bce68e | 438 | } |
1b315056 | 439 | |
22bce68e | 440 | set got [remote_exec host "$OBJDUMP $OBJDUMPFLAGS -s -j .zdebug_abbrev $compressed_testfile" "" "/dev/null" "objdump.out"] |
1b315056 | 441 | |
22bce68e AM |
442 | if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then { |
443 | fail "objdump -s -j .zdebug_abbrev (reason: unexpected output)" | |
444 | send_log $got | |
445 | send_log "\n" | |
446 | } | |
1b315056 | 447 | |
22bce68e AM |
448 | if { [regexp_diff objdump.out $srcdir/$subdir/objdump.s] } then { |
449 | fail "objdump -s -j .zdebug_abbrev" | |
450 | } else { | |
451 | pass "objdump -s -j .zdebug_abbrev" | |
452 | } | |
1b315056 | 453 | |
22bce68e | 454 | # Test objdump -W on a file that contains some compressed .debug sections |
1b315056 | 455 | |
22bce68e | 456 | set got [remote_exec host "$OBJDUMP $OBJDUMPFLAGS -W $compressed_testfile" "" "/dev/null" "objdump.out"] |
1b315056 | 457 | |
22bce68e AM |
458 | if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then { |
459 | fail "objdump -W (reason: unexpected output)" | |
460 | send_log $got | |
461 | send_log "\n" | |
462 | } | |
1b315056 | 463 | |
22bce68e AM |
464 | if { [regexp_diff objdump.out $srcdir/$subdir/objdump.W] } then { |
465 | fail "objdump -W" | |
466 | } else { | |
467 | pass "objdump -W" | |
468 | } | |
fab62191 NC |
469 | |
470 | # Test objdump -Z -s on a file that contains some compressed .debug sections | |
471 | ||
472 | set got [remote_exec host "$OBJDUMP $OBJDUMPFLAGS -Z -s -j .zdebug_abbrev $compressed_testfile" "" "/dev/null" "objdump.out"] | |
473 | ||
474 | if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then { | |
475 | fail "objdump -Z -s (reason: unexpected output)" | |
476 | send_log $got | |
477 | send_log "\n" | |
478 | } | |
479 | ||
480 | if { [regexp_diff objdump.out $srcdir/$subdir/objdump.Zs] } then { | |
481 | fail "objdump -Z -s" | |
482 | } else { | |
483 | pass "objdump -Z -s" | |
484 | } | |
1b315056 CS |
485 | } |
486 | ||
4eee63bc | 487 | # Test objdump -WL on a file that contains line information for multiple files and search directories. |
73589c9d | 488 | # Not supported on mcore and moxie targets because they do not (yet) support the generation |
e3cb57c3 NC |
489 | # of DWARF2 line debug information. |
490 | ||
491 | if { ![is_elf_format] | |
71ac97b2 | 492 | || [istarget "hppa64*-*-hpux*"] |
e3cb57c3 NC |
493 | || [istarget "ia64*-*-*"] |
494 | || [istarget "mcore-*-*"] | |
495 | || [istarget "moxie-*-*"] | |
e3cb57c3 | 496 | } then { |
d4cb0ea0 | 497 | unsupported "objump decode line" |
4eee63bc | 498 | } else { |
73589c9d CS |
499 | if { [istarget "or1k*-*-*"] } then { |
500 | set decodedline_testsrc $srcdir/$subdir/dw2-decodedline-1.S | |
6e712424 PI |
501 | } elseif { [istarget "kvx*-*-*"] } { |
502 | set decodedline_testsrc $srcdir/$subdir/dw2-decodedline-2.S | |
73589c9d CS |
503 | } else { |
504 | set decodedline_testsrc $srcdir/$subdir/dw2-decodedline.S | |
505 | } | |
0bee4d1c | 506 | if { ![binutils_assemble $decodedline_testsrc tmpdir/dw2-decodedline.${obj}] } then { |
d4cb0ea0 NC |
507 | fail "objdump decoded line" |
508 | } | |
509 | ||
510 | if [is_remote host] { | |
0bee4d1c | 511 | set decodedline_testfile [remote_download host tmpdir/dw2-decodedline.${obj}] |
d4cb0ea0 | 512 | } else { |
0bee4d1c | 513 | set decodedline_testfile tmpdir/dw2-decodedline.${obj} |
d4cb0ea0 | 514 | } |
4eee63bc | 515 | |
d4cb0ea0 | 516 | set got [remote_exec host "$OBJDUMP $OBJDUMPFLAGS -WL $decodedline_testfile" "" "/dev/null" "objdump.out"] |
4eee63bc | 517 | |
d4cb0ea0 NC |
518 | if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then { |
519 | fail "objdump -WL (reason: unexpected output)" | |
520 | send_log $got | |
521 | send_log "\n" | |
522 | } | |
4eee63bc | 523 | |
d4cb0ea0 NC |
524 | if { [regexp_diff objdump.out $srcdir/$subdir/objdump.WL] } then { |
525 | fail "objdump -WL" | |
526 | } else { | |
527 | pass "objdump -WL" | |
528 | } | |
4eee63bc | 529 | } |
1b315056 | 530 | |
42bcef4a AB |
531 | # Test objdump -W on a file containing debug_ranges information. |
532 | ||
533 | if { ![is_elf_format] } then { | |
534 | unsupported "objdump debug_ranges test" | |
0bee4d1c | 535 | } elseif { ![binutils_assemble $srcdir/$subdir/dw2-ranges.S tmpdir/dw2-ranges.${obj}] } then { |
42bcef4a AB |
536 | fail "objdump debug_ranges test" |
537 | } else { | |
538 | if [is_remote host] { | |
0bee4d1c | 539 | set ranges_testfile [remote_download host tmpdir/dw2-ranges.${obj}] |
42bcef4a | 540 | } else { |
0bee4d1c | 541 | set ranges_testfile tmpdir/dw2-ranges.${obj} |
42bcef4a AB |
542 | } |
543 | ||
544 | set got [remote_exec host "$OBJDUMP $OBJDUMPFLAGS --dwarf=Ranges $ranges_testfile" "" "/dev/null" "objdump.out"] | |
545 | ||
546 | if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then { | |
547 | fail "objdump -W for debug_ranges (reason: unexpected output)" | |
548 | send_log $got | |
549 | send_log "\n" | |
550 | } | |
551 | ||
1781a9d0 | 552 | setup_xfail "msp430-*-*" |
42bcef4a AB |
553 | if { [regexp_diff objdump.out $srcdir/$subdir/dw2-ranges.W] } then { |
554 | fail "objdump -W for debug_ranges" | |
555 | } else { | |
556 | pass "objdump -W for debug_ranges" | |
557 | } | |
558 | } | |
559 | ||
3ac9da49 NK |
560 | # Test objdump -Wi on a file containing dwarf-5 encodings information. |
561 | ||
562 | if { ![is_elf_format] } then { | |
563 | unsupported "objdump DW_OP_* test" | |
564 | } elseif { ![binutils_assemble $srcdir/$subdir/dw5-op.S tmpdir/dw5-op.${obj}] } then { | |
565 | fail "objdump DW_OP_* test" | |
566 | } else { | |
567 | if [is_remote host] { | |
568 | set op_testfile [remote_download host tmpdir/dw5-op.${obj}] | |
569 | } else { | |
570 | set op_testfile tmpdir/dw5-op.${obj} | |
571 | } | |
572 | ||
573 | set got [remote_exec host "$OBJDUMP $OBJDUMPFLAGS -Wi $op_testfile" "" "/dev/null" "objdump.out"] | |
574 | ||
575 | if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then { | |
576 | fail "objdump -Wi (reason: unexpected output)" | |
577 | send_log $got | |
578 | send_log "\n" | |
579 | } | |
580 | ||
581 | set got [remote_exec host "tail -n +4 objdump.out" "" "/dev/null" "objdump.out"] | |
582 | set output [remote_upload host objdump.out] | |
583 | ||
584 | if ![file size $output] then { | |
585 | # If the output file is empty, then this target does not | |
586 | # generate dwarf2 output. This is not a failure. | |
587 | verbose "No output from 'objdump -Wi'" | |
588 | untested "objdump -Wi" | |
589 | return | |
590 | } | |
591 | ||
592 | if { [regexp_diff objdump.out $srcdir/$subdir/dw5-op.W] } then { | |
593 | fail "objdump -Wi for DW_OP_*" | |
594 | } else { | |
595 | pass "objdump -Wi for DW_OP_*" | |
596 | } | |
597 | ||
598 | file_on_host delete $output | |
599 | } | |
600 | ||
2425a30e NC |
601 | proc test_build_id_debuglink {} { |
602 | global srcdir | |
603 | global subdir | |
604 | global env | |
2425a30e NC |
605 | global STRIP |
606 | global OBJCOPY | |
607 | global OBJDUMP | |
608 | global CFLAGS_FOR_TARGET | |
d4f5b5e2 | 609 | global exe |
2425a30e NC |
610 | |
611 | set test "build-id-debuglink" | |
2425a30e NC |
612 | |
613 | # Use a fixed build-id. | |
bb3b5316 AM |
614 | if { [info exists CFLAGS_FOR_TARGET] } { |
615 | set save_CFLAGS_FOR_TARGET $CFLAGS_FOR_TARGET | |
616 | } | |
2425a30e NC |
617 | set CFLAGS_FOR_TARGET "-g -Wl,--build-id=0x12345678abcdef01" |
618 | ||
d4f5b5e2 | 619 | if { [target_compile $srcdir/$subdir/testprog.c tmpdir/testprog${exe} executable debug] != "" } { |
bb3b5316 | 620 | unsupported "$test (build)" |
2425a30e NC |
621 | return |
622 | } | |
623 | ||
bb3b5316 AM |
624 | if { [info exists save_CFLAGS_FOR_TARGET] } { |
625 | set CFLAGS_FOR_TARGET $save_CFLAGS_FOR_TARGET | |
626 | } else { | |
627 | unset CFLAGS_FOR_TARGET | |
628 | } | |
2425a30e | 629 | |
d4f5b5e2 | 630 | if { [binutils_run $STRIP "--strip-debug --remove-section=.comment tmpdir/testprog${exe} -o tmpdir/testprog.strip"] != "" } { |
2425a30e NC |
631 | fail "$test (strip debug info)" |
632 | return | |
633 | } | |
634 | ||
d4f5b5e2 | 635 | if { [binutils_run $OBJCOPY "--only-keep-debug tmpdir/testprog${exe} tmpdir/testprog.debug"] != "" } { |
2425a30e NC |
636 | fail "$test (create separate debug info file)" |
637 | return | |
638 | } | |
639 | ||
640 | set got [remote_exec host "mkdir -p .build-id/12" ] | |
641 | if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then { | |
642 | fail "$test (make debug directory)" | |
643 | return | |
644 | } | |
645 | ||
646 | set got [remote_exec host "cp tmpdir/testprog.debug .build-id/12/345678abcdef01.debug"] | |
647 | if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then { | |
648 | fail "$test (copy debug info into debug directory)" | |
649 | return | |
650 | } | |
651 | ||
652 | set got [remote_exec host "$OBJDUMP -Sl tmpdir/testprog.strip" "" "/dev/null" "tmpdir/testprog.strip.dump"] | |
653 | if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then { | |
654 | fail "$test (post strip dump)" | |
655 | return | |
656 | } | |
657 | ||
658 | set src2 tmpdir/testprog.strip.dump | |
659 | verbose " grep -e testprog.c ${src2}" | |
660 | set status [remote_exec build grep "-e testprog.c ${src2}"] | |
661 | set exec_output [lindex $status 1] | |
662 | set exec_output [prune_warnings $exec_output] | |
663 | if [string match "" $exec_output] then { | |
664 | send_log "$exec_output\n" | |
665 | verbose "$exec_output" 1 | |
666 | fail "$test (grepping for source file name in disassembly output)" | |
667 | } else { | |
668 | pass "$test" | |
669 | # Cleanup... | |
670 | set got [remote_exec host "rm .build-id/12/345678abcdef01.debug"] | |
671 | set got [remote_exec host "rmdir -p .build-id/12" ] | |
672 | set got [remote_exec host "rm tmpdir/testprog.strip.dump"] | |
673 | set got [remote_exec host "rm tmpdir/testprog.debug"] | |
674 | set got [remote_exec host "rm tmpdir/testprog.strip"] | |
675 | } | |
676 | } | |
677 | ||
0034eed0 | 678 | if {[is_elf_format]} then { |
2425a30e NC |
679 | test_build_id_debuglink |
680 | } | |
42bcef4a | 681 | |
dda8d76d NC |
682 | # Test objdump -Wk on a file containing debug links. |
683 | ||
684 | if { [is_elf_format] } then { | |
685 | set testsrc $srcdir/$subdir/debuglink.s | |
686 | ||
0bee4d1c | 687 | if { ![binutils_assemble $testsrc tmpdir/debuglink.${obj}] } then { |
dda8d76d NC |
688 | fail "objdump -Wk (reason: could not assemble source)" |
689 | } | |
690 | ||
691 | if [is_remote host] { | |
0bee4d1c | 692 | set testfile [remote_download host tmpdir/debuglink.${obj}] |
dda8d76d | 693 | } else { |
0bee4d1c | 694 | set testfile tmpdir/debuglink.${obj} |
dda8d76d NC |
695 | } |
696 | ||
c46b7066 | 697 | set got [remote_exec host "$OBJDUMP $OBJDUMPFLAGS -Wk -WN $testfile" "" "/dev/null" "objdump.out"] |
dda8d76d NC |
698 | |
699 | if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then { | |
700 | fail "objdump -Wk (reason: unexpected output)" | |
701 | send_log $got | |
702 | send_log "\n" | |
703 | } | |
704 | ||
705 | if { [regexp_diff objdump.out $srcdir/$subdir/objdump.Wk] } then { | |
c46b7066 | 706 | fail "objdump -Wk (reason: output does not match expectations)" |
dda8d76d NC |
707 | } else { |
708 | pass "objdump -Wk" | |
709 | } | |
710 | } | |
711 | ||
712 | ||
713 | # Very similar to proc test_build_id_debuglink except this time we | |
714 | # display some of the contents of the separate debug info file. | |
715 | ||
39f0547e | 716 | proc test_follow_debuglink { options dumpfile } { |
dda8d76d NC |
717 | global srcdir |
718 | global subdir | |
719 | global OBJDUMP | |
0bee4d1c | 720 | global obj |
dda8d76d | 721 | |
39f0547e | 722 | set test "follow-debuglink ($options)" |
dda8d76d | 723 | |
0bee4d1c | 724 | if {![binutils_assemble $srcdir/$subdir/debuglink.s tmpdir/debuglink.${obj}]} then { |
dda8d76d NC |
725 | fail "$test (reason: assemble first source file)" |
726 | return | |
727 | } | |
728 | ||
729 | if {![binutils_assemble $srcdir/$subdir/linkdebug.s tmpdir/linkdebug.debug]} then { | |
730 | fail "$test (reason: assemble second source file)" | |
731 | return | |
732 | } | |
733 | ||
734 | if ![is_remote host] { | |
0bee4d1c | 735 | set tempfile tmpdir/debuglink.${obj} |
dda8d76d NC |
736 | } else { |
737 | set tempfile [remote_download host tmpdir/linkdebug.debug] | |
0bee4d1c | 738 | set tempfile [remote_download host tmpdir/debuglink.${obj}] |
dda8d76d NC |
739 | } |
740 | ||
39f0547e | 741 | set got [remote_exec host "$OBJDUMP $options $tempfile" "" "/dev/null" "tmpdir/objdump.out"] |
dda8d76d NC |
742 | if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then { |
743 | fail "$test (reason: unexpected error output from objdump)" | |
744 | return | |
745 | } | |
746 | ||
39f0547e | 747 | if { [regexp_diff tmpdir/objdump.out $srcdir/$subdir/$dumpfile] } then { |
dda8d76d NC |
748 | fail $test |
749 | verbose "output is \n[file_contents objdump.out]" 2 | |
750 | return | |
751 | } | |
752 | ||
753 | pass $test | |
754 | ||
755 | # Tidy up | |
756 | set got [remote_exec host "rm tmpdir/objdump.out"] | |
757 | set got [remote_exec host "rm $tempfile"] | |
758 | set got [remote_exec host "rm tmpdir/linkdebug.debug"] | |
759 | } | |
760 | ||
0034eed0 | 761 | if {[is_elf_format]} then { |
ca0e11aa NC |
762 | test_follow_debuglink "--process-links --dwarf=info --dwarf=str" objdump.WK2 |
763 | test_follow_debuglink "--process-links --headers --wide" objdump.WK3 | |
dda8d76d NC |
764 | } |
765 | ||
2379f9c4 FS |
766 | # Test objdump output with start and stop address limits for the specified |
767 | # dump option | |
768 | ||
769 | proc test_objdump_limited { testfile dopt want start stop } { | |
770 | global OBJDUMP | |
771 | global OBJDUMPFLAGS | |
772 | ||
773 | set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS $dopt --start-address 0x$start --stop-address 0x$stop $testfile"] | |
774 | ||
775 | if [regexp $want $got] then { | |
776 | pass "objdump $dopt --start-address 0x$start --stop-address 0x$stop ($testfile)" | |
777 | } else { | |
778 | fail "objdump $dopt --start-address 0x$start --stop-address 0x$stop ($testfile)" | |
779 | } | |
780 | } | |
781 | ||
782 | # Test objdump -d --start-address M --stop-address N | |
783 | ||
391bf891 AM |
784 | proc test_objdump_disas_limited { testfile text start stop } { |
785 | set want "$testfile:\[ \]*file format.*Disassembly of section $text:\n.*\[ \]*$start:.*" | |
2379f9c4 FS |
786 | test_objdump_limited $testfile -d $want $start $stop |
787 | } | |
788 | ||
789 | # Test objdump -s --start-address M --stop-address N | |
790 | ||
391bf891 AM |
791 | proc test_objdump_content_limited { testfile text start stop } { |
792 | set want "$testfile:\[ \]*file format.*Contents of section $text:\n\[ \]*$start .*" | |
2379f9c4 FS |
793 | test_objdump_limited $testfile -s $want $start $stop |
794 | } | |
795 | ||
796 | # Test objdump with --start-address and --stop-address options for higher | |
797 | # address ranges which may be sign-extended on targets that treat addresses | |
798 | # as signed. We only check that objdump produces some dump output at the | |
799 | # specified start address as a proxy for correct enforcement of the | |
800 | # start/stop limits. | |
801 | ||
802 | if {[is_elf_format]} then { | |
391bf891 AM |
803 | set sect_names [get_standard_section_names] |
804 | if { $sect_names != "" } { | |
805 | set text [lindex $sect_names 0] | |
806 | } else { | |
807 | set text ".text" | |
808 | } | |
2379f9c4 | 809 | # generate a copy of the test object with .text repositioned |
0bee4d1c AM |
810 | if { [binutils_run $OBJCOPY "--change-section-address $text=0x80000000 tmpdir/bintest.${obj} tmpdir/bintest_signed.${obj}"] != "" } { |
811 | fail "Failed to reposition $text to 0x80000000 (tmpdir/bintest.${obj} -> tmpdir/bintest_signed.${obj})" | |
2379f9c4 FS |
812 | return |
813 | } | |
814 | ||
815 | if [is_remote host] { | |
0bee4d1c | 816 | set testfile3 [remote_download host tmpdir/bintest_signed.${obj}] |
2379f9c4 | 817 | } else { |
0bee4d1c | 818 | set testfile3 tmpdir/bintest_signed.${obj} |
2379f9c4 FS |
819 | } |
820 | ||
391bf891 AM |
821 | test_objdump_content_limited $testfile3 $text "80000004" "80000008" |
822 | test_objdump_disas_limited $testfile3 $text "80000004" "80000008" | |
2379f9c4 FS |
823 | remote_file host delete $testfile3 |
824 | } | |
825 | ||
1dd1bc4d OM |
826 | # Test objdump on .NET assemblies (PE files) |
827 | ||
828 | proc test_objdump_dotnet_assemblies {} { | |
829 | global OBJDUMP | |
830 | global base_dir | |
831 | ||
832 | set test "dotnet-assemblies" | |
833 | ||
e9d92351 CC |
834 | # If gentestdlls isn't available, skip instead of crashing below. |
835 | if ![file exists $base_dir/testsuite/gentestdlls] { | |
836 | untested $test | |
837 | return | |
838 | } | |
839 | ||
7cd00957 OM |
840 | set got [binutils_run "$base_dir/testsuite/gentestdlls" "tmpdir pei-i386 pei-x86-64"] |
841 | set want "wrote linux-pei-x86-64.dll" | |
842 | # The test program is hardcoded to generate valid dlls on any target | |
1dd1bc4d | 843 | if ![regexp $want $got] then { |
7cd00957 | 844 | fail "$test" |
1dd1bc4d OM |
845 | } |
846 | ||
7cd00957 OM |
847 | # First test an ordinary x86 PE format DLL. |
848 | set test "dotnet-assemblies (ordinary x86 DLL)" | |
1dd1bc4d | 849 | set want "file format pei-i386" |
7cd00957 | 850 | set got [binutils_run $OBJDUMP "-x tmpdir/simple-pei-i386.dll"] |
1dd1bc4d OM |
851 | if ![regexp $want $got] then { |
852 | if [regexp "file format not recognized" $got] then { | |
7cd00957 OM |
853 | # If the target does not recognize vanilla x86 PE format files |
854 | # then it cannot be expected to recognize .NET assemblies. But | |
855 | # this means that these tests are unsupported, rather than failures. | |
1dd1bc4d OM |
856 | unsupported $test |
857 | } else { | |
858 | fail "$test" | |
859 | } | |
7cd00957 OM |
860 | # In either case, if cannot pass this test, then |
861 | # there is no point in running any further tests. | |
862 | return | |
863 | } | |
864 | pass $test | |
865 | ||
866 | # Next check a 32-bit .NET DLL. | |
867 | set test "dotnet-assemblies (32-bit .NET)" | |
868 | set got [binutils_run $OBJDUMP "-x tmpdir/linux-pei-i386.dll"] | |
869 | if ![regexp $want $got] then { | |
870 | fail "$test" | |
1dd1bc4d OM |
871 | } else { |
872 | pass $test | |
873 | } | |
874 | ||
7cd00957 OM |
875 | # Next check an ordrinary x86_64 PE format DLL. |
876 | set test "dotnet-assemblies (ordinary x86_64 DLL)" | |
1dd1bc4d | 877 | set want "file format pei-x86-64" |
7cd00957 | 878 | set got [binutils_run $OBJDUMP "-x tmpdir/simple-pei-x86-64.dll"] |
1dd1bc4d OM |
879 | if ![regexp $want $got] then { |
880 | if [regexp "file format not recognized" $got] then { | |
7cd00957 OM |
881 | # If the target does not support 64-bit PE format |
882 | # files, then the following tests are unsupported. | |
1dd1bc4d OM |
883 | unsupported $test |
884 | } else { | |
885 | fail "$test" | |
886 | } | |
7cd00957 OM |
887 | return |
888 | } | |
889 | pass $test | |
890 | ||
891 | # Finally check a 64-bit .NET DLL. | |
892 | set test "dotnet-assemblies (64-bit)" | |
893 | set got [binutils_run $OBJDUMP "-x tmpdir/linux-pei-x86-64.dll"] | |
894 | if ![regexp $want $got] then { | |
895 | fail "$test" | |
1dd1bc4d OM |
896 | } else { |
897 | pass $test | |
898 | } | |
899 | } | |
900 | ||
901 | test_objdump_dotnet_assemblies | |
902 | ||
a1c110a3 NC |
903 | # Test objdump -S |
904 | ||
905 | proc test_objdump_S { } { | |
906 | global srcdir | |
907 | global subdir | |
908 | global OBJDUMP | |
909 | global OBJDUMPFLAGS | |
d4f5b5e2 | 910 | global exe |
3ac9da49 | 911 | |
a1c110a3 NC |
912 | set test "objdump -S" |
913 | ||
d4f5b5e2 | 914 | if { [target_compile $srcdir/$subdir/testprog.c tmpdir/testprog${exe} executable debug] != "" } { |
a1c110a3 NC |
915 | unsupported "$test (build)" |
916 | return | |
917 | } | |
918 | ||
d4f5b5e2 | 919 | set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -D -S tmpdir/testprog${exe}"] |
a1c110a3 NC |
920 | |
921 | set want "static int local = 2" | |
922 | ||
923 | if [regexp $want $got] then { | |
924 | pass $test | |
925 | } else { | |
926 | fail $test | |
927 | } | |
928 | ||
929 | set test "objdump --source-comment" | |
930 | ||
d4f5b5e2 | 931 | set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS --disassemble-all --source-comment=// tmpdir/testprog${exe}"] |
a1c110a3 NC |
932 | |
933 | set want "//static int local = 2" | |
934 | ||
935 | if [regexp $want $got] then { | |
936 | pass $test | |
937 | } else { | |
938 | fail $test | |
939 | } | |
940 | } | |
941 | ||
942 | test_objdump_S | |
943 | ||
45b8517a NC |
944 | # Test objdump --private |
945 | proc test_objdump_P {} { | |
946 | global srcdir | |
947 | global subdir | |
948 | global OBJDUMP | |
949 | global OBJDUMPFLAGS | |
950 | global obj | |
951 | ||
952 | set test "objdump -P" | |
953 | ||
954 | if {![binutils_assemble $srcdir/$subdir/bintest.s tmpdir/bintest.${obj}]} then { | |
955 | unsupported "$test (build)" | |
956 | return | |
957 | } | |
958 | ||
959 | if [is_remote host] { | |
960 | set testfile [remote_download host tmpdir/bintest.${obj}] | |
961 | } else { | |
962 | set testfile tmpdir/bintest.${obj} | |
963 | } | |
964 | ||
965 | set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -P header $testfile"] | |
966 | ||
967 | # FIXME: We should probably test the output further than this... | |
968 | set want "Machine Num" | |
969 | ||
970 | if [regexp $want $got] then { | |
971 | pass "$test (dump headers)" | |
972 | } else { | |
973 | fail "$test (dump headers)" | |
974 | } | |
975 | ||
976 | set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS --private=sections $testfile"] | |
977 | ||
978 | # FIXME: We should probably test the output further than this... | |
979 | set want "EXECUTE,READ" | |
980 | ||
981 | if [regexp $want $got] then { | |
982 | pass "$test (dump sections)" | |
983 | } else { | |
984 | fail "$test (dump sections)" | |
985 | } | |
986 | ||
987 | # remote_file host delete $testfile | |
988 | } | |
989 | ||
990 | # Test objdump --private of a PE format file. | |
991 | if { [istarget "*-*-pe*"] | |
992 | || [istarget "*-*-cygwin*"] | |
993 | || [istarget "*-*-mingw*"] | |
994 | } then { | |
995 | test_objdump_P | |
996 | } | |
997 | ||
d3def5d7 | 998 | # Options which are not tested: -a -D -R -T -x -l --stabs |
252b5132 RH |
999 | # I don't see any generic way to test any of these other than -a. |
1000 | # Tests could be written for specific targets, and that should be done | |
1001 | # if specific problems are found. |