Update year range in copyright notice of binutils files
[deliverable/binutils-gdb.git] / ld / testsuite / ld-elfcomm / elfcomm.exp
CommitLineData
09bf9720 1# Expect script for common symbol tests
82704155 2# Copyright (C) 2003-2019 Free Software Foundation, Inc.
ca4fa240 3#
f96b4a7b
NC
4# This file is part of the GNU Binutils.
5#
6# This program is free software; you can redistribute it and/or modify
ca4fa240 7# it under the terms of the GNU General Public License as published by
f96b4a7b 8# the Free Software Foundation; either version 3 of the License, or
ca4fa240 9# (at your option) any later version.
f96b4a7b 10#
ca4fa240
NC
11# This program is distributed in the hope that it will be useful,
12# but WITHOUT ANY WARRANTY; without even the implied warranty of
13# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14# GNU General Public License for more details.
f96b4a7b 15#
ca4fa240
NC
16# You should have received a copy of the GNU General Public License
17# along with this program; if not, write to the Free Software
f96b4a7b
NC
18# Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
19# MA 02110-1301, USA.
ca4fa240
NC
20#
21# Written by H.J. Lu (hjl@gnu.org)
22#
23
24# Make sure that ld correctly handles common symbols in ELF.
25
26# This test can only be run on ELF platforms.
43f9d75b 27if ![is_elf_format] {
ca4fa240
NC
28 return
29}
30
78336cd6
AM
31# hpux assembly is weird
32if [istarget "hppa*-*-hpux*"] {
33 return
34}
35
de7dd2bd
NC
36proc test_sort_common {} {
37 global exec_output
38 global objdump
39 global srcdir
40 global subdir
41 global as
42 global ld
43
44 set test "--sort-common (descending)"
45
46 verbose "Check to see that --sort-common sorts in descending alignment"
47
48 # We do not run the sort common tests for the DLX target because we know that the linker
49 # will seg-fault. The built-in DLX linker script requires that there be something in the
50 # .text section and our sort-common.s file does not provide anything.
51 if [istarget dlx-*-*] {
52 untested "$test"
53 return 0
54 }
55
56 if { ![ld_assemble $as $srcdir/$subdir/sort-common.s tmpdir/sort-common.o] } {
57 unresolved "$test"
58 return 0
59 }
60
d9816402 61 if { ![ld_link $ld tmpdir/sort-common.dx "--sort-common=descending tmpdir/sort-common.o"] } {
fbaf61ad 62 fail "$test (could not link)"
de7dd2bd
NC
63 return 0
64 }
65
66 send_log "$objdump --syms tmpdir/sort-common.dx | grep var | sort\n"
67 set exec_output [run_host_cmd "$objdump" "--syms tmpdir/sort-common.dx | grep var | sort"]
68
69 # Don't know why, but the CR ports fail this test.
70 setup_xfail "cr16-*-*" "crx-*-*"
71
72 # Note: The second regexp is for targets which put small commons in a .sbss
73 # section and large commons in a .bss section.
74 if { ![regexp ".*var_16.*var_8.*var_4.*var_2.*var_1.*" $exec_output]
75 && ![regexp ".*sbss.*var_8.*var_4.*var_2.*var_1.*bss.*var_16.*" $exec_output] } {
fbaf61ad 76 fail "$test (variables in wrong order)"
de7dd2bd
NC
77 } else {
78 pass $test
79 }
80
81 set test "--sort-common (ascending)"
82
83 verbose "Check to see that --sort-common=ascending sorts in ascending alignment"
84
d9816402 85 if { ![ld_link $ld tmpdir/sort-common.ax "--sort-common=ascending tmpdir/sort-common.o"] } {
fbaf61ad 86 fail "$test (could not link)"
de7dd2bd
NC
87 return 0
88 }
89
90 send_log "$objdump --syms tmpdir/sort-common.ax | grep var | sort\n"
91 set exec_output [run_host_cmd "$objdump" "--syms tmpdir/sort-common.ax | grep var | sort"]
92
93 if {![regexp ".*var_1.*var_2.*var_4.*var_8.*var_16.*" $exec_output]} {
fbaf61ad 94 fail "$test (variables in wrong order)"
de7dd2bd
NC
95 return 0
96 }
97
98 pass $test
99 return 1
100}
101
102test_sort_common
103
de194d85 104set test1 "size/alignment change of common symbols"
b814bbcb
L
105set test1w1 "$test1 (warning 1)"
106set test1w2 "$test1 (warning 2)"
107set test1c1 "$test1 (change 1)"
108set test1c2 "$test1 (change 2)"
109
7f6a71ff 110if { ![is_remote host] && [which $CC] == 0 } {
b814bbcb
L
111 untested $test1w1
112 untested $test1w2
113 untested $test1c1
114 untested $test1c2
115 return
116}
1c0d3aa6
NC
117if { [istarget score-*-*] } {
118 untested $test1w1
119 untested $test1w2
120 untested $test1c1
121 untested $test1c2
122 return
123}
b814bbcb 124
ca4fa240
NC
125proc dump_common1 { testname } {
126 global exec_output
a42ec05b 127 global READELF
ca4fa240 128
504b7d20 129 send_log "$READELF --syms tmpdir/common1.o | grep foo\n"
5c817830 130 set exec_output [run_host_cmd "$READELF" "--syms tmpdir/common1.o | grep foo"]
7f6a71ff 131
504b7d20
NC
132 if { ![regexp "(\[ \]*)(\[0-9\]+):(\[ \]*)(\[0\]*)80(\[ \]+)4(\[ \]+)(COMMON|OBJECT)(\[ \]+)GLOBAL(\[ \]+)DEFAULT(\[ \]+)(PRC\\\[0xff03\\\]|COM|SCOM)(\[ \]+)_?foo2" $exec_output]
133 || ![regexp "(\[ \]*)(\[0-9\]+):(\[ \]*)(\[0-9\]+)(\[ \]+)21(\[ \]+)OBJECT(\[ \]+)GLOBAL(\[ \]+)DEFAULT(\[ \]+)(\[0-9\]+)(\[ \]+)_?foo1" $exec_output] } {
ca4fa240
NC
134 verbose $exec_output
135 fail $testname
136 return 0
137 }
138
139 return 1
140}
141
504b7d20
NC
142proc stt_common_test { options testname } {
143 global exec_output
144 global READELF
145 global ld
146
b8871f35 147 set options "$options tmpdir/common1c.o"
504b7d20 148
d9816402 149 if { ! [ld_link $ld tmpdir/common.exe $options] } {
504b7d20
NC
150 unresolved $testname
151 return 0
152 }
153
154 send_log "$READELF --syms tmpdir/common.exe | grep foo\n"
5c817830 155 set exec_output [run_host_cmd "$READELF" "--syms tmpdir/common.exe | grep foo"]
504b7d20 156
b8871f35 157 if {![regexp { +[0-9a-f]+. +[0-9a-f]+ OBJECT + GLOBAL +DEFAULT +[0-9]+ _?foo2} $exec_output] } {
504b7d20
NC
158 fail $testname
159 return 0
160 }
161
162 pass $testname
163 return 1
164}
165
36591ba1
SL
166if [istarget nios2*-*-*] {
167 set CFLAGS "$CFLAGS -G0"
168}
169
698be22a
NS
170# Explicitly use "-fcommon" so that even if $CFLAGS includes
171# "-fno-common", these tests are compiled as expected.
172if { ![ld_compile "$CC $CFLAGS -fcommon" $srcdir/$subdir/common1a.c tmpdir/common1a.o]
b8871f35
L
173 || ![ld_compile "$CC $CFLAGS -fcommon" $srcdir/$subdir/common1b.c tmpdir/common1b.o]
174 || ![ld_compile "$CC $CFLAGS -Wa,--elf-stt-common=yes -fcommon" $srcdir/$subdir/common1b.c tmpdir/common1c.o] } {
175 unresolved $test1
ca4fa240
NC
176 unresolved $test1
177 return
178}
179
180global ld
181global link_output
182
22fe6da0
KK
183set options "-r tmpdir/common1a.o tmpdir/common1b.o"
184
d9816402 185if { [ld_link $ld tmpdir/common1.o $options] } {
b814bbcb 186 unresolved $test1w1
ca4fa240
NC
187 return
188}
189
674e82fc 190# This test fails on MIPS because the backend sets type_change_ok.
70a274ec
DA
191# The size change warning is suppressed. Same on hppa64.
192if {[istarget mips*-*-*] || [istarget hppa*64*-*-*]} {
9793eb77 193 if { ![regexp "warning: alignment (\[0-9\]+) of symbol \`_?foo1\' in tmpdir/common1b.o is smaller than 64 in tmpdir/common1a.o" $link_output] } {
674e82fc 194 fail $test1w1
a5e0d269 195 } else {
674e82fc 196 pass $test1w1
a5e0d269 197 }
ca4fa240 198} else {
9793eb77
AM
199 if { ![regexp "warning: alignment (\[0-9\]+) of symbol \`_?foo1\' in tmpdir/common1b.o is smaller than 64 in tmpdir/common1a.o" $link_output]
200 || ![regexp "warning: size of symbol \`_?foo1\' changed from 2 in tmpdir/common1a.o to 21 in tmpdir/common1b.o" $link_output] } {
674e82fc
TS
201 fail $test1w1
202 } else {
203 pass $test1w1
204 }
ca4fa240
NC
205}
206
b814bbcb
L
207if { [dump_common1 $test1c1] } {
208 pass $test1c1
ca4fa240
NC
209}
210
22fe6da0
KK
211set options "-r tmpdir/common1b.o tmpdir/common1a.o"
212
d9816402 213if { [ld_link $ld tmpdir/common1.o $options] } {
b814bbcb 214 unresolved $test1w2
ca4fa240
NC
215 return
216}
217
9793eb77 218if { ![regexp "warning: alignment (\[0-9\]+) of symbol \`_?foo1\' in tmpdir/common1b.o is smaller than 64 in tmpdir/common1a.o" $link_output] } {
b814bbcb 219 fail $test1w2
ca4fa240 220} else {
b814bbcb 221 pass $test1w2
ca4fa240
NC
222}
223
b814bbcb
L
224if { [dump_common1 $test1c2] } {
225 pass $test1c2
ca4fa240 226}
504b7d20
NC
227
228#
229# The following tests are for when we are generating STT_COMMON symbols only.
230#
a2076b34
SKS
231# Handling of -z common and -z nocommon flags is enabled only if
232# $GENERATE_SHLIB_SCRIPT is turned on in emulparams i.e. shared
233# libraries are supported.
234
235if ![check_shared_lib_support] {
236 return
237}
238
504b7d20
NC
239stt_common_test "-static -e 0" "static link of common symbols"
240stt_common_test "-shared" "shared link of common symbols"
241stt_common_test "-pie" "position independent link of common symbols"
242
b8871f35
L
243run_ld_link_tests [list \
244 [list \
245 "Build common-3x.o" \
246 "-r" "" "--elf-stt-common=no" \
247 {common-1.s} {} "common-3x.o" \
248 ] \
249 [list \
250 "Build common-3y.o" \
251 "-r" "" "--elf-stt-common=yes" \
252 {common-1.s} {} "common-3y.o" \
253 ] \
254 [list \
255 "Build common-3a.o" \
256 "-r tmpdir/common-3x.o tmpdir/common-3y.o" "" "" \
257 {dummy.s} {{readelf {-s -W} common-3a.rd}} "common-3a.o" \
258 ] \
259 [list \
260 "Build common-3b.o" \
261 "-r tmpdir/common-3y.o tmpdir/common-3x.o" "" "" \
262 {dummy.s} {{readelf {-s -W} common-3b.rd}} "common-3b.o" \
263 ] \
264 [list \
265 "Build common-3c.o" \
266 "-r -z nocommon tmpdir/common-3x.o tmpdir/common-3y.o" "" "" \
267 {dummy.s} {{readelf {-s -W} common-3a.rd}} "common-3c.o" \
268 ] \
269 [list \
270 "Build common-3d.o" \
271 "-r -z common tmpdir/common-3x.o tmpdir/common-3y.o" "" "" \
272 {dummy.s} {{readelf {-s -W} common-3b.rd}} "common-3b.o" \
273 ] \
274 [list \
275 "Build common-3e.o" \
276 "-r -z common tmpdir/common-3y.o tmpdir/common-3x.o" "" "" \
277 {dummy.s} {{readelf {-s -W} common-3b.rd}} "common-3e.o" \
278 ] \
279 [list \
280 "Build common-3f.o" \
281 "-r -z nocommon tmpdir/common-3y.o tmpdir/common-3x.o" "" "" \
282 {dummy.s} {{readelf {-s -W} common-3a.rd}} "common-3f.o" \
283 ] \
284]
285
286set test_list [lsort [glob -nocomplain $srcdir/$subdir/*.d]]
287foreach t $test_list {
288 # We need to strip the ".d", but can leave the dirname.
289 verbose [file rootname $t]
290 run_dump_test [file rootname $t]
291}
This page took 0.667071 seconds and 4 git commands to generate.