1# Expect script for ld-shared tests
2#   Copyright (C) 1994-2014 Free Software Foundation, Inc.
3#
4# This file is part of the GNU Binutils.
5#
6# This program is free software; you can redistribute it and/or modify
7# it under the terms of the GNU General Public License as published by
8# the Free Software Foundation; either version 3 of the License, or
9# (at your option) any later version.
10#
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.
15#
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
18# Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
19# MA 02110-1301, USA.
20#
21# Written by Ian Lance Taylor (ian@cygnus.com)
22#
23
24# Make sure that ld can generate ELF shared libraries.
25# Note that linking against ELF shared libraries is tested by the
26# bootstrap test.
27
28# This test can only be run if ld generates native executables.
29if ![isnative] then {return}
30
31# This test can only be run on a couple of ELF platforms.
32# Square bracket expressions seem to confuse istarget.
33if { ![istarget hppa*64*-*-hpux*] \
34     && ![istarget hppa*-*-linux*] \
35     && ![istarget i?86-*-sysv4*] \
36     && ![istarget i?86-*-unixware] \
37     && ![istarget i?86-*-elf*] \
38     && ![istarget i?86-*-linux*] \
39     && ![istarget i?86-*-gnu*] \
40     && ![istarget *-*-nacl*] \
41     && ![istarget ia64-*-elf*] \
42     && ![istarget ia64-*-linux*] \
43     && ![istarget m68k-*-linux*] \
44     && ![istarget mips*-*-irix5*] \
45     && ![istarget mips*-*-linux*] \
46     && ![istarget powerpc*-*-elf*] \
47     && ![istarget powerpc*-*-linux*] \
48     && ![istarget powerpc*-*-sysv4*] \
49     && ![istarget sparc*-*-elf] \
50     && ![istarget sparc*-*-solaris2*] \
51     && ![istarget sparc*-*-sunos4*] \
52     && ![istarget sparc*-*-linux*] \
53     && ![istarget arm*-*-linux*] \
54     && ![istarget alpha*-*-linux*] \
55     && ![istarget rs6000*-*-aix*] \
56     && ![istarget powerpc*-*-aix*] \
57     && ![istarget s390*-*-linux*] \
58     && ![istarget aarch64*-*-linux*] \
59     && ![istarget x86_64-*-linux*] } {
60    return
61}
62
63if { [istarget *-*-linux*aout*] \
64     || [istarget *-*-linux*oldld*] } {
65    return
66}
67
68set tmpdir tmpdir
69set SHCFLAG ""
70set shared_needs_pic "no"
71
72if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } {
73
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"
79
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
86
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]
90    puts $file shlibvar1
91    puts $file shlibvar2
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
99    close $file
100}
101
102if [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
105    # anchors off.
106    set SHCFLAG "-fno-section-anchors"
107
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\"); }"
116	close $file
117	if [run_host_cmd_yesno "$CC" "$CFLAGS -c $tmpdir/movw-detect.c -o $tmpdir/movw-detect.o"] {
118	    set shared_needs_pic "yes"
119	}
120    }
121}
122
123# The test procedure.
124proc shared_test { progname testname main sh1 sh2 dat args } {
125    global CC
126    global srcdir
127    global subdir
128    global exec_output
129    global host_triplet
130    global tmpdir
131
132    if [llength $args] { set shldflags [lindex $args 0] } else { set shldflags "" }
133
134    # Build the shared library.
135    # On AIX, we need to use an export file.
136    set shared -shared
137    if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } {
138	set shared "-bM:SRE -bE:$tmpdir/xcoff.exp"
139    }
140    if {![ld_simple_link $CC $tmpdir/$progname.so "$shared $shldflags $tmpdir/$sh1 $tmpdir/$sh2"]} {
141        fail "$testname"
142    	return
143    }
144
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
148    # can not find -lc.
149    set rpath $tmpdir
150    if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } {
151	set rpath /lib:$tmpdir
152    }
153    if ![ld_simple_link $CC $tmpdir/$progname "-Wl,-rpath,$rpath $tmpdir/$main $tmpdir/$progname.so"] {
154    	fail "$testname"
155    	return
156    }
157
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"
165	fail "$testname"
166    	return
167    }
168
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]
173
174    if {![string match "" $exec_output]} then {
175	send_log "$exec_output\n"
176	verbose "$exec_output"
177	fail "$testname"
178        return
179    }
180
181    pass "$testname"
182}
183
184# Old version of GCC for MIPS default to enabling -fpic
185# and get confused if it is used on the command line.
186if { [istarget mips*-*-*] && ! [at_least_gcc_version 4 3] } then {
187    set picflag ""
188} else {
189    # Unfortunately, the gcc argument is -fpic and the cc argument is
190    # -KPIC.  We have to try both.
191    set picflag "-fpic"
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*] {
202	    set picflag "-pic"
203	} else {
204	    set picflag "-KPIC"
205	}
206    }
207}
208verbose "Using $picflag to compile PIC code"
209
210# Compile the main program.
211if ![ld_compile "$CC $CFLAGS $SHCFLAG" $srcdir/$subdir/main.c $tmpdir/mainnp.o] {
212    unresolved "shared (non PIC)"
213    unresolved "shared"
214} else {
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
220    # results.
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
226    } else {
227	# SunOS non PIC shared libraries don't permit some cases of
228	# overriding.
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*"
235	}
236	if { [istarget sparc*-*-linux*] && [is_elf64 $tmpdir/mainnp.o] } {
237	    setup_xfail "sparc*-*-linux*"
238	}
239	if { [is_elf64 $tmpdir/mainnp.o] } {
240	    setup_xfail "x86_64-*-linux*"
241	}
242	setup_xfail "x86_64-*-linux-gnux32"
243	setup_xfail "s390x-*-linux*"
244	if [ string match $shared_needs_pic "yes" ] {
245	    setup_xfail "arm*-*-linux*"
246	}
247	setup_xfail "aarch64*-*-linux*"
248	shared_test shnp "shared (non PIC)" mainnp.o sh1np.o sh2np.o shared
249
250	# Test ELF shared library relocations with a non-zero load
251	# address for the library.  Near as I can tell, the R_*_RELATIVE
252	# relocations for various targets are broken in the case where
253	# the load address is not zero (which is the default).
254	setup_xfail "*-*-sunos4*"
255	setup_xfail "*-*-linux*libc1"
256	setup_xfail "powerpc*-*-linux*"
257	setup_xfail "ia64-*-linux*"
258	setup_xfail "alpha*-*-linux*"
259	setup_xfail "mips*-*-linux*"
260	if { ![istarget hppa*64*-*-linux*] } {
261	    setup_xfail "hppa*-*-linux*"
262	}
263	if { [istarget sparc*-*-linux*] && [is_elf64 $tmpdir/mainnp.o] } {
264	    setup_xfail "sparc*-*-linux*"
265	}
266	if { [is_elf64 $tmpdir/mainnp.o] } {
267	    setup_xfail "x86_64-*-linux*"
268	}
269	setup_xfail "x86_64-*-linux-gnux32"
270	setup_xfail "s390x-*-linux*"
271	if [ string match $shared_needs_pic "yes" ] {
272	    setup_xfail "arm*-*-linux*"
273	}
274	setup_xfail "aarch64*-*-linux*"
275	shared_test shnp "shared (non PIC, load offset)" \
276		mainnp.o sh1np.o sh2np.o shared \
277		"-T $srcdir/$subdir/elf-offset.ld"
278    } }
279
280    # Now compile the code using -fpic.
281
282    if { ![ld_compile "$CC $CFLAGS $SHCFLAG $picflag" $srcdir/$subdir/sh1.c $tmpdir/sh1p.o]
283	 || ![ld_compile "$CC $CFLAGS $SHCFLAG $picflag" $srcdir/$subdir/sh2.c $tmpdir/sh2p.o] } {
284	unresolved "shared"
285    } else {
286	# SunOS can not compare function pointers correctly
287	if [istarget "*-*-sunos4*"] {
288	    shared_test shp "shared" mainnp.o sh1p.o sh2p.o sun4
289	} else { if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } {
290	    shared_test shp "shared" mainnp.o sh1p.o sh2p.o xcoff
291	} else {
292	    shared_test shp "shared" mainnp.o sh1p.o sh2p.o shared
293	    ld_compile "$CC $CFLAGS -DSYMBOLIC_TEST -DXCOFF_TEST $SHCFLAG" $srcdir/$subdir/main.c $tmpdir/mainnp.o
294	    ld_compile "$CC $CFLAGS -DSYMBOLIC_TEST -DXCOFF_TEST $SHCFLAG $picflag" $srcdir/$subdir/sh1.c $tmpdir/sh1p.o
295	    shared_test shp "shared -Bsymbolic" mainnp.o sh1p.o sh2p.o symbolic "-Bsymbolic"
296	    ld_compile "$CC $CFLAGS $SHCFLAG" $srcdir/$subdir/main.c $tmpdir/mainnp.o
297	    ld_compile "$CC $CFLAGS $SHCFLAG $picflag" $srcdir/$subdir/sh1.c $tmpdir/sh1p.o
298	} }
299    }
300}
301
302# Now do the same tests again, but this time compile main.c PIC.
303if ![ld_compile "$CC $CFLAGS $SHCFLAG $picflag" $srcdir/$subdir/main.c $tmpdir/mainp.o] {
304    unresolved "shared (PIC main, non PIC so)"
305    unresolved "shared (PIC main)"
306} else {
307    if { [file exists $tmpdir/sh1np.o ] && [ file exists $tmpdir/sh2np.o ] } {
308        if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } {
309	    shared_test shmpnp "shared (PIC main, non PIC so)" mainp.o sh1np.o sh2np.o xcoff
310	} else {
311	    # SunOS non PIC shared libraries don't permit some cases of
312	    # overriding.
313	    setup_xfail "*-*-sunos4*"
314	    setup_xfail "ia64-*-linux*"
315	    setup_xfail "alpha*-*-linux*"
316	    setup_xfail "powerpc64*-*-*"
317	    if { ![istarget hppa*64*-*-linux*] } {
318		setup_xfail "hppa*-*-linux*"
319	    }
320	    if { [istarget sparc*-*-linux*] && [is_elf64 $tmpdir/mainp.o] } {
321		setup_xfail "sparc*-*-linux*"
322	    }
323	    if { [is_elf64 $tmpdir/mainp.o] } {
324		setup_xfail "x86_64-*-linux*"
325	    }
326	    setup_xfail "x86_64-*-linux-gnux32"
327	    setup_xfail "s390x-*-linux*"
328	    if [ string match $shared_needs_pic "yes" ] {
329		setup_xfail "arm*-*-linux*"
330	    }
331	    setup_xfail "aarch64*-*-linux*"
332	    shared_test shmpnp "shared (PIC main, non PIC so)" mainp.o sh1np.o sh2np.o shared
333	}
334    } else {
335	unresolved "shared (PIC main, non PIC so)"
336    }
337
338    if { [file exists $tmpdir/sh1p.o ] && [ file exists $tmpdir/sh2p.o ] } {
339        if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } {
340	    shared_test shmpp "shared (PIC main)" mainp.o sh1p.o sh2p.o xcoff
341	} else {
342	    shared_test shmpp "shared (PIC main)" mainp.o sh1p.o sh2p.o shared
343	}
344    } else {
345	unresolved "shared (PIC main)"
346    }
347}
348
349if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } {
350    # Remove the temporary directory.
351    catch "exec rm -rf $tmpdir" exec_status
352}
353