* bucomm.c (display_target_list): Make local variable `a' to be of
[binutils.git] / ld / testsuite / ld-checks / checks.exp
blob5e2750de81f44ac462677ab8f1fa7bc1d7b460c6
1 # Expect script for LD section checks tests
2 # Copyright 1999, 2001, 2003 Free Software Foundation, Inc.
4 # This file is free software; you can redistribute it and/or modify
5 # it under the terms of the GNU General Public License as published by
6 # the Free Software Foundation; either version 2 of the License, or
7 # (at your option) any later version.
8 #
9 # This program is distributed in the hope that it will be useful,
10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 # GNU General Public License for more details.
14 # You should have received a copy of the GNU General Public License
15 # along with this program; if not, write to the Free Software
16 # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
18 # Written by Nick Clifton (nickc@cygnus.com)
20 proc section_check {} {
21 global ld_flags
22 global as
23 global ld
24 global srcdir
25 global subdir
27 # The usage of .lcomm in asm.s is incompatible with ia64 and ppc coff.
28 if { [istarget ia64-*-*]
29 || [istarget powerpc*-*-aix*] || [istarget powerpc-*-beos*]
30 || [istarget rs6000-*-*] } {
31 return
33 set test "check sections 1"
35 set ldflags "--check-sections"
37 if { ![ld_assemble $as $srcdir/$subdir/asm.s tmpdir/asm.o]} {
38 unresolved $test
39 return
42 if ![ld_simple_link $ld tmpdir/asm.x "$ldflags tmpdir/asm.o"] {
43 fail $test
44 } else {
45 pass $test
48 set test "check sections 2"
50 # Change the linker flags so that our "buggy" linker
51 # script is used.
52 set ldflags "--check-sections -T $srcdir/$subdir/script -e foo"
54 # Perform the equivalent of invoking ld_simple_link
55 # except that we need to massage the output futher.
57 verbose -log "$ld -o tmpdir/asm.x $ldflags tmpdir/asm.o"
58 catch "exec $ld -o tmpdir/asm.x $ldflags tmpdir/asm.o" exec_output
59 set exec_output [prune_warnings $exec_output]
61 # Make sure that we got some output from the linker
62 if [string match "" $exec_output] then {
63 fail $test
66 # Now remove our expected error message
67 regsub -all ".*: section .data .* overlaps section .text .*" $exec_output "" exec_output
69 # And check to see if anything else, (unexpected) was left
70 if [string match "" $exec_output] then {
71 pass $test
72 } else {
73 verbose -log "Unexpected linker message(s): $exec_output"
74 fail $test
78 section_check