tcl global directive outside proc body does nothing (ld)
[deliverable/binutils-gdb.git] / ld / testsuite / ld-scripts / align.exp
... / ...
CommitLineData
1# Test ALIGN in a linker script.
2# By Nathan Sidwell, CodeSourcery LLC
3# Copyright (C) 2004-2020 Free Software Foundation, Inc.
4#
5# This file is part of the GNU Binutils.
6#
7# This program is free software; you can redistribute it and/or modify
8# it under the terms of the GNU General Public License as published by
9# the Free Software Foundation; either version 3 of the License, or
10# (at your option) any later version.
11#
12# This program is distributed in the hope that it will be useful,
13# but WITHOUT ANY WARRANTY; without even the implied warranty of
14# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15# GNU General Public License for more details.
16#
17# You should have received a copy of the GNU General Public License
18# along with this program; if not, write to the Free Software
19# Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
20# MA 02110-1301, USA.
21
22if {[istarget "powerpc*-*-aix*"] || [istarget "rs6000-*-aix*"]} {
23 # Target maps .text and .data to other sections.
24 return
25}
26
27set testname "align1"
28
29if ![ld_assemble $as $srcdir/$subdir/align.s tmpdir/align.o] {
30 unresolved $testname
31 return
32}
33
34# mingw on x86_64 targets need to set the image base to 0 to avoid auto image-basing.
35set saved_LDFLAGS "$LDFLAGS"
36if [istarget "x86_64-*-mingw*"] then {
37 set LDFLAGS "$LDFLAGS --image-base 0"
38}
39
40if ![ld_link $ld tmpdir/align "$LDFLAGS -T $srcdir/$subdir/align.t tmpdir/align.o"] {
41 fail $testname
42} else {
43 pass $testname
44}
45
46if ![is_aout_format] {
47 run_dump_test align2a
48 run_dump_test align2b
49 run_dump_test align3
50 run_dump_test align4
51 run_dump_test align5
52}
53run_dump_test align2c
54set LDFLAGS "$saved_LDFLAGS"
55
56if { [is_elf_format] && ![uses_genelf] } {
57 run_dump_test pr23571
58}
This page took 0.030516 seconds and 4 git commands to generate.