1 # Expect script
for ld-shared tests
2 # Copyright
1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
3 #
2004, 2005, 2007, 2008, 2009, 2010
4 # Free Software Foundation
, Inc.
6 # This file is part of the GNU Binutils.
8 # This
program is free software
; you can redistribute it and
/or modify
9 # it under the terms of the GNU General Public License as published by
10 # the Free Software Foundation
; either version
3 of the License
, or
11 #
(at your option
) any later version.
13 # This
program is distributed in the hope that it will be useful
,
14 # but WITHOUT
ANY WARRANTY
; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the
16 # GNU General Public License
for more details.
18 # You should have received a copy of the GNU General Public License
19 # along with this
program; if not
, write to the Free Software
20 # Foundation
, Inc.
, 51 Franklin Street
- Fifth Floor
, Boston
,
23 # Written by Ian Lance Taylor
(ian@cygnus.com
)
26 # Make sure that
ld can generate ELF shared libraries.
27 # Note that linking against ELF shared libraries is tested by the
30 # This test can only be run
if ld generates native executables.
31 if ![isnative
] then {return}
33 # This test can only be run
on a couple of ELF platforms.
34 # Square bracket expressions seem to confuse istarget.
35 if { ![istarget hppa
*64*-*-hpux
*] \
36 && ![istarget hppa
*-*-linux
*] \
37 && ![istarget i?
86-*-sysv4
*] \
38 && ![istarget i?
86-*-unixware
] \
39 && ![istarget i?
86-*-elf
*] \
40 && ![istarget i?
86-*-linux
*] \
41 && ![istarget i?
86-*-gnu
*] \
42 && ![istarget ia64
-*-elf
*] \
43 && ![istarget ia64
-*-linux
*] \
44 && ![istarget m68k
-*-linux
*] \
45 && ![istarget mips
*-*-irix5
*] \
46 && ![istarget mips
*-*-linux
*] \
47 && ![istarget powerpc
*-*-elf
*] \
48 && ![istarget powerpc
*-*-linux
*] \
49 && ![istarget powerpc
*-*-sysv4
*] \
50 && ![istarget sparc
*-*-elf
] \
51 && ![istarget sparc
*-*-solaris2
*] \
52 && ![istarget sparc
*-*-sunos4
*] \
53 && ![istarget sparc
*-*-linux
*] \
54 && ![istarget arm
*-*-linux
*] \
55 && ![istarget alpha
*-*-linux
*] \
56 && ![istarget rs6000
*-*-aix
*] \
57 && ![istarget powerpc
*-*-aix
*] \
58 && ![istarget s390
*-*-linux
*] \
59 && ![istarget x86_64
-*-linux
*] } {
63 if { [istarget
*-*-linux
*aout
*] \
64 ||
[istarget
*-*-linux
*oldld
*] } {
70 set shared_needs_pic
"no"
72 if { [istarget rs6000
*-*-aix
*] ||
[istarget powerpc
*-*-aix
*] } {
74 # AIX shared libraries
do not seem to support useful features
,
75 # like overriding the shared library function or letting the
76 # shared library refer to objects defined in the main
program. We
77 # avoid testing those features.
78 set SHCFLAG
"-DXCOFF_TEST"
80 # The AIX
3.2.5 loader appears to randomly fail when loading
81 # shared libraries from NSF mounted partitions
, so we avoid
any
82 # potential problems by using a local directory.
83 catch
{exec
/bin
/sh
-c
"echo $$"} pid
84 set tmpdir
/usr
/tmp
/ld.$pid
85 catch
"exec mkdir $tmpdir" exec_status
87 #
On AIX
, we need to explicitly
export the symbols the shared
88 # library is going to provide
, and need.
89 set file
[open $tmpdir
/xcoff.exp w
]
92 puts $file shlib_shlibvar1
93 puts $file shlib_shlibvar2
94 puts $file shlib_shlibcall
95 puts $file shlib_shlibcalled
96 puts $file shlib_checkfunptr1
97 puts $file shlib_getfunptr1
98 puts $file shlib_check
102 if [istarget arm
*-*-linux
*] {
103 #
On ARM section anchors can change the symbol pre
-emptability
for
104 # non
-PIC shared libraries
, causing these tests to fail. Turn section
106 set SHCFLAG
"-fno-section-anchors"
108 #
On targets that have MOVW the compiler will emit relocations which
109 # the linker doesn
't support when compiling -shared without -fpic. The
110 # test to find out whether we want to XFAIL the non-PIC tests requires
111 # a compile - so we pre-calculate it here. We also note that this can
112 # only affect arm*-*-*eabi targets as the old ABI doesn't support v7.
113 if [istarget arm
*-*-*eabi
] {
114 set file
[open $tmpdir
/movw
-detect.c w
]
115 puts $file
"void foo(void) { __asm (\"movw r0, #0\"); }"
117 if [run_host_cmd_yesno
"$CC" "$CFLAGS -c $tmpdir/movw-detect.c -o $tmpdir/movw-detect.o"] {
118 set shared_needs_pic
"yes"
123 # The test procedure.
124 proc shared_test
{ progname testname main sh1 sh2 dat
args } {
132 if [llength $
args] { set shldflags
[lindex $
args 0] } else { set shldflags
"" }
134 # Build the shared library.
135 #
On AIX
, we need to use an
export file.
137 if { [istarget rs6000
*-*-aix
*] ||
[istarget powerpc
*-*-aix
*] } {
138 set shared
"-bM:SRE -bE:$tmpdir/xcoff.exp"
140 if {![ld_simple_link $CC $tmpdir
/$progname.so
"$shared $shldflags $tmpdir/$sh1 $tmpdir/$sh2"]} {
145 # Link against the shared library. Use
-rpath so that the
146 # dynamic linker can locate the shared library at runtime.
147 #
On AIX
, we must
include /lib in
-rpath
, as otherwise the loader
150 if { [istarget rs6000
*-*-aix
*] ||
[istarget powerpc
*-*-aix
*] } {
151 set rpath
/lib
:$tmpdir
153 if ![ld_simple_link $CC $tmpdir
/$progname
"-Wl,-rpath,$rpath $tmpdir/$main $tmpdir/$progname.so"] {
158 # Run the resulting
program
159 send_log
"$tmpdir/$progname >$tmpdir/$progname.out\n"
160 verbose
"$tmpdir/$progname >$tmpdir/$progname.out"
161 catch
"exec $tmpdir/$progname >$tmpdir/$progname.out" exec_output
162 if ![string match
"" $exec_output] then {
163 send_log
"$exec_output\n"
164 verbose
"$exec_output"
169 send_log
"diff $tmpdir/$progname.out $srcdir/$subdir/$dat.dat\n"
170 verbose
"diff $tmpdir/$progname.out $srcdir/$subdir/$dat.dat"
171 catch
"exec diff $tmpdir/$progname.out $srcdir/$subdir/$dat.dat" exec_output
172 set exec_output
[prune_warnings $exec_output
]
174 if {![string match
"" $exec_output]} then {
175 send_log
"$exec_output\n"
176 verbose
"$exec_output"
184 # Old version of GCC
for MIPS default to enabling
-fpic
185 # and
get confused
if it is used
on the command line.
186 if { [istarget mips
*-*-*] && ! [at_least_gcc_version
4 3] } then {
189 # Unfortunately
, the gcc
argument is
-fpic and the cc
argument is
190 #
-KPIC. We have to try both.
192 send_log
"$CC $picflag\n"
193 verbose
"$CC $picflag"
194 catch
"exec $CC $picflag" exec_output
195 send_log
"$exec_output\n"
196 verbose
"--" "$exec_output"
197 if { [string match
"*illegal option*" $exec_output] \
198 ||
[string match
"*option ignored*" $exec_output] \
199 ||
[string match
"*unrecognized option*" $exec_output] \
200 ||
[string match
"*passed to ld*" $exec_output] } {
201 if [istarget
*-*-sunos4
*] {
208 verbose
"Using $picflag to compile PIC code"
210 #
Compile the main
program.
211 if ![ld_compile
"$CC $CFLAGS $SHCFLAG" $srcdir/$subdir/main.c $tmpdir/mainnp.o] {
212 unresolved
"shared (non PIC)"
215 # The shared library is composed of two files. First
compile them
216 # without using
-fpic. That should work
on an ELF
system,
217 # although it will be less efficient because the dynamic linker
218 # will need to
do more relocation work. However
, note that not
219 # using
-fpic will cause some of the tests to
return different
221 if { ![ld_compile
"$CC $CFLAGS $SHCFLAG" $srcdir/$subdir/sh1.c $tmpdir/sh1np.o]
222 ||
![ld_compile
"$CC $CFLAGS $SHCFLAG" $srcdir/$subdir/sh2.c $tmpdir/sh2np.o] } {
223 unresolved
"shared (non PIC)"
224 } else { if { [istarget rs6000
*-*-aix
*] ||
[istarget powerpc
*-*-aix
*] } {
225 shared_test shnp
"shared (nonPIC)" mainnp.o sh1np.o sh2np.o xcoff
227 # SunOS non PIC shared libraries don
't permit some cases of
229 setup_xfail "*-*-sunos4*"
230 setup_xfail "ia64-*-linux*"
231 setup_xfail "alpha*-*-linux*"
232 setup_xfail "powerpc64*-*-*"
233 if { ![istarget hppa*64*-*-linux*] } {
234 setup_xfail "hppa*-*-linux*"
236 if { [istarget sparc*-*-linux*] && [is_elf64 $tmpdir/mainnp.o] } {
237 setup_xfail "sparc*-*-linux*"
239 if { [is_elf64 $tmpdir/mainnp.o] } {
240 setup_xfail "x86_64-*-linux*"
242 setup_xfail "s390x-*-linux*"
243 if [ string match $shared_needs_pic "yes" ] {
244 setup_xfail "arm*-*-linux*"
246 shared_test shnp "shared (non PIC)" mainnp.o sh1np.o sh2np.o shared
248 # Test ELF shared library relocations with a non-zero load
249 # address for the library. Near as I can tell, the R_*_RELATIVE
250 # relocations for various targets are broken in the case where
251 # the load address is not zero (which is the default).
252 setup_xfail "*-*-sunos4*"
253 setup_xfail "*-*-linux*libc1"
254 setup_xfail "powerpc*-*-linux*"
255 setup_xfail "ia64-*-linux*"
256 setup_xfail "alpha*-*-linux*"
257 setup_xfail "mips*-*-linux*"
258 if { ![istarget hppa*64*-*-linux*] } {
259 setup_xfail "hppa*-*-linux*"
261 if { [istarget sparc*-*-linux*] && [is_elf64 $tmpdir/mainnp.o] } {
262 setup_xfail "sparc*-*-linux*"
264 if { [is_elf64 $tmpdir/mainnp.o] } {
265 setup_xfail "x86_64-*-linux*"
267 setup_xfail "s390x-*-linux*"
268 if [ string match $shared_needs_pic "yes" ] {
269 setup_xfail "arm*-*-linux*"
271 shared_test shnp "shared (non PIC, load offset)" \
272 mainnp.o sh1np.o sh2np.o shared \
273 "-T $srcdir/$subdir/elf-offset.ld"
276 # Now compile the code using -fpic.
278 if { ![ld_compile "$CC $CFLAGS $SHCFLAG $picflag" $srcdir/$subdir/sh1.c $tmpdir/sh1p.o]
279 || ![ld_compile "$CC $CFLAGS $SHCFLAG $picflag" $srcdir/$subdir/sh2.c $tmpdir/sh2p.o] } {
282 # SunOS can not compare function pointers correctly
283 if [istarget "*-*-sunos4*"] {
284 shared_test shp "shared" mainnp.o sh1p.o sh2p.o sun4
285 } else { if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } {
286 shared_test shp "shared" mainnp.o sh1p.o sh2p.o xcoff
288 shared_test shp "shared" mainnp.o sh1p.o sh2p.o shared
289 ld_compile "$CC $CFLAGS -DSYMBOLIC_TEST -DXCOFF_TEST $SHCFLAG" $srcdir/$subdir/main.c $tmpdir/mainnp.o
290 ld_compile "$CC $CFLAGS -DSYMBOLIC_TEST -DXCOFF_TEST $SHCFLAG $picflag" $srcdir/$subdir/sh1.c $tmpdir/sh1p.o
291 shared_test shp "shared -Bsymbolic" mainnp.o sh1p.o sh2p.o symbolic "-Bsymbolic"
292 ld_compile "$CC $CFLAGS $SHCFLAG" $srcdir/$subdir/main.c $tmpdir/mainnp.o
293 ld_compile "$CC $CFLAGS $SHCFLAG $picflag" $srcdir/$subdir/sh1.c $tmpdir/sh1p.o
298 # Now do the same tests again, but this time compile main.c PIC.
299 if ![ld_compile "$CC $CFLAGS $SHCFLAG $picflag" $srcdir/$subdir/main.c $tmpdir/mainp.o] {
300 unresolved "shared (PIC main, non PIC so)"
301 unresolved "shared (PIC main)"
303 if { [file exists $tmpdir/sh1np.o ] && [ file exists $tmpdir/sh2np.o ] } {
304 if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } {
305 shared_test shmpnp "shared (PIC main, non PIC so)" mainp.o sh1np.o sh2np.o xcoff
307 # SunOS non PIC shared libraries don't
permit some cases of
309 setup_xfail
"*-*-sunos4*"
310 setup_xfail
"ia64-*-linux*"
311 setup_xfail
"alpha*-*-linux*"
312 setup_xfail
"powerpc64*-*-*"
313 if { ![istarget hppa
*64*-*-linux
*] } {
314 setup_xfail
"hppa*-*-linux*"
316 if { [istarget sparc
*-*-linux
*] && [is_elf64 $tmpdir
/mainp.o
] } {
317 setup_xfail
"sparc*-*-linux*"
319 if { [is_elf64 $tmpdir
/mainp.o
] } {
320 setup_xfail
"x86_64-*-linux*"
322 setup_xfail
"s390x-*-linux*"
323 if [ string match $shared_needs_pic
"yes" ] {
324 setup_xfail
"arm*-*-linux*"
326 shared_test shmpnp
"shared (PIC main, non PIC so)" mainp.o sh1np.o sh2np.o shared
329 unresolved
"shared (PIC main, non PIC so)"
332 if { [file
exists $tmpdir
/sh1p.o
] && [ file
exists $tmpdir
/sh2p.o
] } {
333 if { [istarget rs6000
*-*-aix
*] ||
[istarget powerpc
*-*-aix
*] } {
334 shared_test shmpp
"shared (PIC main)" mainp.o sh1p.o sh2p.o xcoff
336 shared_test shmpp
"shared (PIC main)" mainp.o sh1p.o sh2p.o shared
339 unresolved
"shared (PIC main)"
343 if { [istarget rs6000
*-*-aix
*] ||
[istarget powerpc
*-*-aix
*] } {
344 # Remove the temporary directory.
345 catch
"exec rm -rf $tmpdir" exec_status