[deliverable/binutils-gdb.git] / ld / testsuite / ld-elfvsb / elfvsb.exp

# Expect script for ld-visibility tests
#   Copyright 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2010
#   Free Software Foundation, Inc.
#
# This file is part of the GNU Binutils.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
# MA 02110-1301, USA.
#
# Written by Ian Lance Taylor (ian@cygnus.com)
#	     and H.J. Lu (hjl@gnu.org)
#

# Make sure that ld can generate ELF shared libraries with visibility.

# This test can only be run on a couple of ELF platforms.
# Square bracket expressions seem to confuse istarget.
if { ![istarget hppa*64*-*-hpux*] \
     && ![istarget hppa*-*-linux*] \
     && ![istarget i?86-*-linux*] \
     && ![istarget i?86-*-gnu*] \
     && ![istarget ia64-*-linux*] \
     && ![istarget m68k-*-linux*] \
     && ![istarget mips*-*-linux*] \
     && ![istarget powerpc*-*-linux*] \
     && ![istarget arm*-*-linux*] \
     && ![istarget alpha*-*-linux*] \
     && ![istarget sparc*-*-linux*] \
     && ![istarget s390*-*-linux*] \
     && ![istarget sh\[34\]*-*-linux*] \
     && ![istarget x86_64-*-linux*] } {
    return
}

if { [istarget *-*-linux*aout*] \
     || [istarget *-*-linux*oldld*] } {
    return
}

set test_list [lsort [glob -nocomplain $srcdir/$subdir/*.d]]
foreach t $test_list {
    # We need to strip the ".d", but can leave the dirname.
    verbose [file rootname $t]
    run_dump_test [file rootname $t]
}

# The remaining tests can only be run if ld generates native executables.
if ![isnative] then {return}

set tmpdir tmpdir
set SHCFLAG ""
set shared_needs_pic "no"

if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } {

    # AIX shared libraries do not seem to support useful features,
    # like overriding the shared library function or letting the
    # shared library refer to objects defined in the main program.  We
    # avoid testing those features.
    set SHCFLAG "-DXCOFF_TEST"

    # The AIX 3.2.5 loader appears to randomly fail when loading
    # shared libraries from NSF mounted partitions, so we avoid any
    # potential problems by using a local directory.
    catch {exec /bin/sh -c "echo $$"} pid
    set tmpdir /usr/tmp/ld.$pid
    catch "exec mkdir $tmpdir" exec_status

    # On AIX, we need to explicitly export the symbols the shared
    # library is going to provide, and need.
    set file [open $tmpdir/xcoff.exp w]
    puts $file shlibvar1
    puts $file shlibvar2
    puts $file shlib_shlibvar1
    puts $file shlib_shlibvar2
    puts $file shlib_shlibcall
    puts $file shlib_shlibcalled
    puts $file shlib_checkfunptr1
    puts $file shlib_getfunptr1
    puts $file shlib_check
    close $file
}

if [istarget arm*-*-linux*] {
    # On ARM section anchors can change the symbol pre-emptability for
    # non-PIC shared libraries, causing these tests to fail.  Turn section 
    # anchors off.
    set SHCFLAG "-fno-section-anchors"

    # On targets that have MOVW the compiler will emit relocations which 
    # the linker doesn't support when compiling -shared without -fpic.  The
    # test to find out whether we want to XFAIL the non-PIC tests requires 
    # a compile - so we pre-calculate it here.  We also note that this can
    # only affect arm*-*-*eabi targets as the old ABI doesn't support v7.
    if [istarget arm*-*-*eabi] {
	set file [open $tmpdir/movw-detect.c w]
	puts $file "void foo(void) { __asm (\"movw r0, #0\"); }"
	close $file
	if [run_host_cmd_yesno "$CC" "$CFLAGS -c $tmpdir/movw-detect.c -o $tmpdir/movw-detect.o"] {
	    set shared_needs_pic "yes"
	}
    }
}

set support_protected "no"

if { [istarget *-*-linux*]
     || [istarget *-*-gnu*] } {
    if [ld_compile "$CC -g $CFLAGS -DPROTECTED_CHECK" $srcdir/$subdir/main.c $tmpdir/main.o] {
      if [ld_simple_link $CC $tmpdir/main "$tmpdir/main.o"] {
	catch "exec $tmpdir/main" support_protected
      }
    }
}

# The test procedure.
proc visibility_test { visibility progname testname main sh1 sh2 dat args } {
    global CC
    global srcdir
    global subdir
    global exec_output
    global link_output
    global host_triplet
    global tmpdir

    if [llength $args] { set shldflags [lindex $args 0] } else { set shldflags "" }

    # Build the shared library.
    # On AIX, we need to use an export file.
    set shared -shared
    if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } {
	set shared "-bM:SRE -bE:$tmpdir/xcoff.exp"
    }
    if {![ld_simple_link $CC $tmpdir/$progname.so "$shared $shldflags $tmpdir/$sh1 $tmpdir/$sh2"]} {
	if { [ string match $visibility "hidden_undef" ]
	     && [regexp "undefined reference to \`\.?visibility\'" $link_output]
	     && [regexp "undefined reference to \`visibility_var\'" $link_output] } {
    	    pass "$testname"
	} else { if { [ string match $visibility "protected_undef" ]
	     && [regexp "undefined reference to \`\.?visibility\'" $link_output]
	     && [regexp "undefined reference to \`visibility_var\'" $link_output] } {
    	    pass "$testname"
	} else {
	    fail "$testname"
	}}
    	return
    }

    # Link against the shared library.  Use -rpath so that the
    # dynamic linker can locate the shared library at runtime.
    # On AIX, we must include /lib in -rpath, as otherwise the loader
    # can not find -lc.
    set rpath $tmpdir
    if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } {
	set rpath /lib:$tmpdir
    }
    if ![ld_simple_link $CC $tmpdir/$progname "-Wl,-rpath,$rpath $tmpdir/$main $tmpdir/$progname.so"] {
	if { [ string match $visibility "hidden" ]
	     && [regexp "undefined reference to \`\.?visibility\'" $link_output]
	     && [regexp "undefined reference to \`visibility_var\'" $link_output] } {
    	    pass "$testname"
	} else { if { [ string match $visibility "hidden_undef_def" ]
	     && [regexp "undefined reference to \`\.?visibility\'" $link_output]
	     && [regexp "undefined reference to \`visibility_def\'" $link_output]
	     && [regexp "undefined reference to \`\.?visibility_func\'" $link_output]
	     && [regexp "undefined reference to \`visibility_var\'" $link_output] } {
    	    pass "$testname"
	} else {
    	    fail "$testname"
	}}
    	return
    }

    if { [ string match $visibility "hidden" ]
	 || [ string match $visibility "hidden_undef" ]
	 || [ string match $visibility "protected_undef" ] } {
	fail "$testname"
    }

    # Run the resulting program
    send_log "$tmpdir/$progname >$tmpdir/$progname.out\n"
    verbose "$tmpdir/$progname >$tmpdir/$progname.out"
    catch "exec $tmpdir/$progname >$tmpdir/$progname.out" exec_output
    if ![string match "" $exec_output] then {
	send_log "$exec_output\n"
	verbose "$exec_output"
	fail "$testname"
    	return
    }

    send_log "diff $tmpdir/$progname.out $srcdir/$subdir/$dat.dat\n"
    verbose "diff $tmpdir/$progname.out $srcdir/$subdir/$dat.dat"
    catch "exec diff $tmpdir/$progname.out $srcdir/$subdir/$dat.dat" exec_output
    set exec_output [prune_warnings $exec_output]

    if {![string match "" $exec_output]} then {
	send_log "$exec_output\n"
	verbose "$exec_output"
	fail "$testname"
        return
    }

    pass "$testname"
}

proc visibility_run {visibility} {
    global CC
    global CFLAGS
    global SHCFLAG
    global srcdir
    global subdir
    global tmpdir
    global picflag
    global target_triplet
    global support_protected
    global shared_needs_pic

    if [ string match $visibility "hidden" ] {
	set VSBCFLAG "-DHIDDEN_TEST"
    } else { if [ string match $visibility "hidden_normal" ] {
	set VSBCFLAG "-DHIDDEN_NORMAL_TEST"
    } else { if [ string match $visibility "hidden_undef" ] {
	set VSBCFLAG "-DHIDDEN_UNDEF_TEST"
    } else { if [ string match $visibility "hidden_undef_def" ] {
	set VSBCFLAG "-DHIDDEN_UNDEF_TEST -DDSO_DEFINE_TEST"
    } else { if [ string match $visibility "hidden_weak" ] {
	set VSBCFLAG "-DHIDDEN_WEAK_TEST"
    } else { if [ string match $visibility "protected" ] {
	set VSBCFLAG "-DPROTECTED_TEST"
    } else { if [ string match $visibility "protected_undef" ] {
	set VSBCFLAG "-DPROTECTED_UNDEF_TEST"
    } else { if [ string match $visibility "protected_undef_def" ] {
	set VSBCFLAG "-DPROTECTED_UNDEF_TEST -DDSO_DEFINE_TEST"
    } else { if [ string match $visibility "protected_weak" ] {
	set VSBCFLAG "-DPROTECTED_WEAK_TEST"
    } else {
	set VSBCFLAG ""
    }}}}}}}}}

    # Compile the main program.
    if ![ld_compile "$CC -g $CFLAGS $SHCFLAG $VSBCFLAG" $srcdir/$subdir/main.c $tmpdir/mainnp.o] {
	unresolved "visibility ($visibility) (non PIC)"
	unresolved "visibility ($visibility)"
    } else {
	# The shared library is composed of two files.  First compile them
	# without using -fpic.  That should work on an ELF system,
	# although it will be less efficient because the dynamic linker
	# will need to do more relocation work.  However, note that not
	# using -fpic will cause some of the tests to return different
	# results.
	if { ![ld_compile "$CC -g $CFLAGS $SHCFLAG $VSBCFLAG" $srcdir/$subdir/sh1.c $tmpdir/sh1np.o]
	     || ![ld_compile "$CC -g $CFLAGS $SHCFLAG $VSBCFLAG" $srcdir/$subdir/sh2.c $tmpdir/sh2np.o] } {
	    unresolved "visibility ($visibility) (non PIC)"
	} else { if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } {
	    visibility_test $visibility vnp "visibility ($visibility) (non PIC)" mainnp.o sh1np.o sh2np.o xcoff
	} else {
	    # SunOS non PIC shared libraries don't permit some cases of
	    # overriding.
	    if { [ string match $visibility "protected" ]
		 || [ string match $visibility "protected_undef_def" ] } {
		if [ string match $support_protected "no" ] {
		    setup_xfail $target_triplet
		}
	    } else {
		setup_xfail "*-*-sunos4*"
	    }

	    # Non-pic code uses name binding rules for applications to
	    # reference variables by gp-relative relocs, which can't be
	    # used with overridable symbols.
	    if { ![ string match $visibility "hidden_undef" ]
		 && ![ string match $visibility "protected_undef" ] } {
		setup_xfail "ia64-*-linux*"
		setup_xfail "alpha*-*-linux*"
	    }
	    if { ![ string match $visibility "hidden" ]
		 && ![ string match $visibility "hidden_undef" ]
		 && ![ string match $visibility "hidden_undef_def" ]
		 && ![ string match $visibility "protected_undef" ] } {
		setup_xfail "s390x-*-linux*"
		if { [istarget sparc*-*-linux*] && [is_elf64 $tmpdir/mainnp.o] } {
		    setup_xfail "sparc*-*-linux*"
		}
	    }
	    setup_xfail "x86_64-*-linux*"
	    if { ![istarget hppa*64*-*-linux*] } {
		setup_xfail "hppa*-*-linux*"
	    }
	    if [ string match $shared_needs_pic "yes" ] {
		setup_xfail "arm*-*-linux*"
	    }

	    visibility_test $visibility vnp "visibility ($visibility) (non PIC)" mainnp.o sh1np.o sh2np.o elfvsb

	    # Test ELF shared library relocations with a non-zero load
	    # address for the library.  Near as I can tell, the R_*_RELATIVE
	    # relocations for various targets are broken in the case where
	    # the load address is not zero (which is the default).
	    if { [ string match $visibility "protected" ]
		 || [ string match $visibility "protected_undef_def" ] } {
		if [ string match $support_protected "no" ] {
		    setup_xfail $target_triplet
		}
	    } else {
		setup_xfail "*-*-sunos4*"
		setup_xfail "*-*-linux*libc1"
	    }
	    if { [ string match $visibility "hidden_normal" ]
		 || [ string match $visibility "hidden_weak" ]
		 || [ string match $visibility "protected" ]
		 || [ string match $visibility "protected_undef_def" ]
		 || [ string match $visibility "protected_weak" ]
		 || [ string match $visibility "normal" ] } {
		setup_xfail "powerpc-*-linux*"
		setup_xfail "s390x-*-linux*"
		if { [istarget sparc*-*-linux*] && [is_elf64 $tmpdir/mainnp.o] } {
		    setup_xfail "sparc*-*-linux*"
		}
	    }
	    if { ![ string match $visibility "hidden_undef" ]
		 && ![ string match $visibility "protected_undef" ] } {
		setup_xfail "ia64-*-linux*"
		setup_xfail "alpha*-*-linux*"
		setup_xfail "mips*-*-linux*"
	    }
	    setup_xfail "x86_64-*-linux*"
	    if { ![istarget hppa*64*-*-linux*] } {
		setup_xfail "hppa*-*-linux*"
	    }
	    if [ string match $shared_needs_pic "yes" ] {
		setup_xfail "arm*-*-linux*"
	    }

	    visibility_test $visibility vnp "visibility ($visibility) (non PIC, load offset)" \
		mainnp.o sh1np.o sh2np.o elfvsb \
		"-T $srcdir/$subdir/elf-offset.ld"
	} }

	# Now compile the code using -fpic.

	if { ![ld_compile "$CC -g $CFLAGS $SHCFLAG $VSBCFLAG -DSHARED $picflag" $srcdir/$subdir/sh1.c $tmpdir/sh1p.o] 
	    || ![ld_compile "$CC -g $CFLAGS $SHCFLAG $VSBCFLAG -DSHARED $picflag" $srcdir/$subdir/sh2.c $tmpdir/sh2p.o] } {
	    unresolved "visibility ($visibility)"
	} else {
	    if { [ string match $visibility "protected" ]
		 || [ string match $visibility "protected_undef_def" ] } {
		if [ string match $support_protected "no" ] {
		    setup_xfail $target_triplet
		}
	    }
	    # SunOS can not compare function pointers correctly
	    if [istarget "*-*-sunos4*"] {
		visibility_test $visibility vp "visibility ($visibility)" mainnp.o sh1p.o sh2p.o sun4
	    } else { if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } {
		visibility_test $visibility vp "visibility ($visibility)" mainnp.o sh1p.o sh2p.o xcoff
	    } else {
		visibility_test $visibility vp "visibility ($visibility)" mainnp.o sh1p.o sh2p.o elfvsb
	    } }
	}
    }

    # Now do the same tests again, but this time compile main.c PIC.
    if ![ld_compile "$CC -g $CFLAGS $SHCFLAG $VSBCFLAG -DSHARED $picflag" $srcdir/$subdir/main.c $tmpdir/mainp.o] {
	unresolved "visibility ($visibility) (PIC main, non PIC so)"
	unresolved "visibility ($visibility) (PIC main)"
    } else {
	if { [file exists $tmpdir/sh1np.o ] && [ file exists $tmpdir/sh2np.o ] } {
	    if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } {
		visibility_test $visibility vmpnp "visibility ($visibility) (PIC main, non PIC so)" mainp.o sh1np.o sh2np.o xcoff
	    } else {
		# SunOS non PIC shared libraries don't permit some cases of
		# overriding.
		if { [ string match $visibility "protected" ]
		     || [ string match $visibility "protected_undef_def" ] } {
		    if [ string match $support_protected "no" ] {
			setup_xfail $target_triplet
		    }
		} else {
		    setup_xfail "*-*-sunos4*"
		}
		if { ![ string match $visibility "hidden_undef" ]
		     && ![ string match $visibility "protected_undef" ] } {
		    setup_xfail "ia64-*-linux*"
		    setup_xfail "alpha*-*-linux*"
		}
		if { ![ string match $visibility "hidden" ]
		     && ![ string match $visibility "hidden_undef" ]
		     && ![ string match $visibility "hidden_undef_def" ]
		     && ![ string match $visibility "protected_undef" ] } {
		    setup_xfail "s390x-*-linux*"
		    if { [istarget sparc*-*-linux*] && [is_elf64 $tmpdir/mainp.o] } {
			setup_xfail "sparc*-*-linux*"
		    }
		}
		setup_xfail "x86_64-*-linux*"
		if { ![istarget hppa*64*-*-linux*] } {
		    setup_xfail "hppa*-*-linux*"
		}
		if [ string match $shared_needs_pic "yes" ] {
		    setup_xfail "arm*-*-linux*"
		}

		visibility_test $visibility vmpnp "visibility ($visibility) (PIC main, non PIC so)" mainp.o sh1np.o sh2np.o elfvsb
	    }
	} else {
	    unresolved "visibility (PIC main, non PIC so)"
	}

	if { [file exists $tmpdir/sh1p.o ] && [ file exists $tmpdir/sh2p.o ] } {
	    if { [ string match $visibility "protected" ]
		 || [ string match $visibility "protected_undef_def" ] } {
		if [ string match $support_protected "no" ] {
		    setup_xfail $target_triplet
		}
	    }
	    if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } {
		visibility_test $visibility vmpp "visibility ($visibility) (PIC main)" mainp.o sh1p.o sh2p.o xcoff
	    } else {
		visibility_test $visibility vmpp "visibility ($visibility) (PIC main)" mainp.o sh1p.o sh2p.o elfvsb
	    }
	} else {
	    unresolved "visibility ($visibility) (PIC main)"
	}
    }
}

if [istarget mips*-*-*] {
    set picflag ""
} else {
    # Unfortunately, the gcc argument is -fpic and the cc argument is
    # -KPIC.  We have to try both.
    set picflag "-fpic"
    send_log "$CC $picflag\n"
    verbose "$CC $picflag"
    catch "exec $CC $picflag" exec_output
    send_log "$exec_output\n"
    verbose "--" "$exec_output"
    if { [string match "*illegal option*" $exec_output] \
	 || [string match "*option ignored*" $exec_output] \
	 || [string match "*unrecognized option*" $exec_output] \
	 || [string match "*passed to ld*" $exec_output] } {
	if [istarget *-*-sunos4*] {
	    set picflag "-pic"
	} else {
	    set picflag "-KPIC"
	}
    }
}
verbose "Using $picflag to compile PIC code"

visibility_run hidden
visibility_run hidden_normal
visibility_run hidden_undef
visibility_run hidden_undef_def
visibility_run hidden_weak
visibility_run protected
visibility_run protected_undef
visibility_run protected_undef_def
visibility_run protected_weak
visibility_run normal

if { ![ld_compile "$CC -g $CFLAGS" $srcdir/$subdir/common.c tmpdir/common.o] } {
    unresolved "common hidden symbol"
} else {
    if ![ld_simple_link $ld tmpdir/common "tmpdir/common.o"] {
	fail "common hidden symbol"
    } else {
	pass "common hidden symbol"
    }
}

if { ![ld_compile "$CC -g $CFLAGS" $srcdir/$subdir/test.c tmpdir/test.o] } {
    unresolved "weak hidden symbol"
} else {
   if { ![ld_compile "$CC -g $CFLAGS -DSHARED $picflag" $srcdir/$subdir/sh3.c tmpdir/sh3.o] } {
	unresolved "weak hidden symbol"
    } else {
	if ![ld_simple_link $ld tmpdir/sh3.so "-shared tmpdir/sh3.o"] {
	    fail "weak hidden symbol"
	} else {
	    if ![ld_simple_link $ld tmpdir/weak "tmpdir/test.o tmpdir/sh3.o"] {
		fail "weak hidden symbol DSO last"
	    } else {
		pass "weak hidden symbol DSO last"
	    }
	    if ![ld_simple_link $ld tmpdir/weak "tmpdir/sh3.so tmpdir/test.o"] {
		fail "weak hidden symbol DSO first"
	    } else {
		pass "weak hidden symbol DSO first"
	    }
	}
    }
}

if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } {
    # Remove the temporary directory.
    catch "exec rm -rf $tmpdir" exec_status
}
Commit	Line	Data
6fc49d28	1	# Expect script for ld-visibility tests
5940a93c	2	# Copyright 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2010
aa820537	3	# Free Software Foundation, Inc.
6fc49d28	4	#
f96b4a7b NC	5	# This file is part of the GNU Binutils.
	6	#
	7	# This program is free software; you can redistribute it and/or modify
6fc49d28	8	# it under the terms of the GNU General Public License as published by
f96b4a7b	9	# the Free Software Foundation; either version 3 of the License, or
6fc49d28	10	# (at your option) any later version.
f96b4a7b	11	#
6fc49d28 L	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.
f96b4a7b	16	#
6fc49d28 L	17	# You should have received a copy of the GNU General Public License
6fc49d28 L	18	# along with this program; if not, write to the Free Software
f96b4a7b NC	19	# Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
f96b4a7b NC	20	# MA 02110-1301, USA.
6fc49d28 L	21	#
	22	# Written by Ian Lance Taylor (ian@cygnus.com)
	23	# and H.J. Lu (hjl@gnu.org)
	24	#
	25
	26	# Make sure that ld can generate ELF shared libraries with visibility.
	27
6fc49d28 L	28	# This test can only be run on a couple of ELF platforms.
6fc49d28 L	29	# Square bracket expressions seem to confuse istarget.
19c7c582 AM	30	if { ![istarget hppa64--hpux] \
	31	&& ![istarget hppa--linux*] \
	32	&& ![istarget i?86--linux] \
5940a93c	33	&& ![istarget i?86--gnu] \
ad995491	34	&& ![istarget ia64--linux] \
6fc49d28	35	&& ![istarget m68k--linux] \
66517a2f	36	&& ![istarget mips--linux*] \
81cacc15	37	&& ![istarget powerpc--linux*] \
4f38fc1c	38	&& ![istarget arm--linux*] \
2ffd68ef	39	&& ![istarget alpha--linux*] \
9147e853 JJ	40	&& ![istarget sparc--linux*] \
9147e853 JJ	41	&& ![istarget s390--linux*] \
59758b1c	42	&& ![istarget sh\[34\]--linux*] \
9147e853	43	&& ![istarget x86_64--linux] } {
6fc49d28 L	44	return
	45	}
	46
	47	if { [istarget --linuxaout] \
	48	\|\| [istarget --linuxoldld] } {
	49	return
	50	}
	51
04827a14 L	52	set test_list [lsort [glob -nocomplain $srcdir/$subdir/*.d]]
	53	foreach t $test_list {
	54	# We need to strip the ".d", but can leave the dirname.
	55	verbose [file rootname $t]
	56	run_dump_test [file rootname $t]
	57	}
	58
3a8260b2 AS	59	# The remaining tests can only be run if ld generates native executables.
	60	if ![isnative] then {return}
	61
6fc49d28 L	62	set tmpdir tmpdir
6fc49d28 L	63	set SHCFLAG ""
a9f844b1	64	set shared_needs_pic "no"
6fc49d28 L	65
	66	if { [istarget rs6000--aix] \|\| [istarget powerpc--aix] } {
	67
	68	# AIX shared libraries do not seem to support useful features,
	69	# like overriding the shared library function or letting the
	70	# shared library refer to objects defined in the main program. We
	71	# avoid testing those features.
	72	set SHCFLAG "-DXCOFF_TEST"
	73
	74	# The AIX 3.2.5 loader appears to randomly fail when loading
	75	# shared libraries from NSF mounted partitions, so we avoid any
	76	# potential problems by using a local directory.
	77	catch {exec /bin/sh -c "echo $$"} pid
	78	set tmpdir /usr/tmp/ld.$pid
	79	catch "exec mkdir $tmpdir" exec_status
	80
	81	# On AIX, we need to explicitly export the symbols the shared
	82	# library is going to provide, and need.
	83	set file [open $tmpdir/xcoff.exp w]
	84	puts $file shlibvar1
	85	puts $file shlibvar2
	86	puts $file shlib_shlibvar1
	87	puts $file shlib_shlibvar2
	88	puts $file shlib_shlibcall
	89	puts $file shlib_shlibcalled
	90	puts $file shlib_checkfunptr1
	91	puts $file shlib_getfunptr1
	92	puts $file shlib_check
	93	close $file
	94	}
	95
a9f844b1 NC	96	if [istarget arm--linux*] {
	97	# On ARM section anchors can change the symbol pre-emptability for
	98	# non-PIC shared libraries, causing these tests to fail. Turn section
	99	# anchors off.
	100	set SHCFLAG "-fno-section-anchors"
	101
	102	# On targets that have MOVW the compiler will emit relocations which
	103	# the linker doesn't support when compiling -shared without -fpic. The
	104	# test to find out whether we want to XFAIL the non-PIC tests requires
	105	# a compile - so we pre-calculate it here. We also note that this can
	106	# only affect arm--*eabi targets as the old ABI doesn't support v7.
	107	if [istarget arm--*eabi] {
	108	set file [open $tmpdir/movw-detect.c w]
	109	puts $file "void foo(void) { __asm (\"movw r0, #0\"); }"
	110	close $file
	111	if [run_host_cmd_yesno "$CC" "$CFLAGS -c $tmpdir/movw-detect.c -o $tmpdir/movw-detect.o"] {
	112	set shared_needs_pic "yes"
	113	}
	114	}
	115	}
	116
08c44e65 L	117	set support_protected "no"
08c44e65 L	118
5940a93c TS	119	if { [istarget --linux*]
5940a93c TS	120	\|\| [istarget --gnu*] } {
360e9586	121	if [ld_compile "$CC -g $CFLAGS -DPROTECTED_CHECK" $srcdir/$subdir/main.c $tmpdir/main.o] {
b765d4e3	122	if [ld_simple_link $CC $tmpdir/main "$tmpdir/main.o"] {
08c44e65 L	123	catch "exec $tmpdir/main" support_protected
	124	}
	125	}
	126	}
	127
6fc49d28 L	128	# The test procedure.
6fc49d28 L	129	proc visibility_test { visibility progname testname main sh1 sh2 dat args } {
b765d4e3	130	global CC
6fc49d28 L	131	global srcdir
	132	global subdir
	133	global exec_output
	134	global link_output
	135	global host_triplet
	136	global tmpdir
	137
	138	if [llength $args] { set shldflags [lindex $args 0] } else { set shldflags "" }
	139
	140	# Build the shared library.
	141	# On AIX, we need to use an export file.
	142	set shared -shared
	143	if { [istarget rs6000--aix] \|\| [istarget powerpc--aix] } {
	144	set shared "-bM:SRE -bE:$tmpdir/xcoff.exp"
	145	}
b765d4e3	146	if {![ld_simple_link $CC $tmpdir/$progname.so "$shared $shldflags $tmpdir/$sh1 $tmpdir/$sh2"]} {
7cda33a1	147	if { [ string match $visibility "hidden_undef" ]
1ba54ee0 AM	148	&& [regexp "undefined reference to \`\.?visibility\'" $link_output]
1ba54ee0 AM	149	&& [regexp "undefined reference to \`visibility_var\'" $link_output] } {
7cda33a1 L	150	pass "$testname"
7cda33a1 L	151	} else { if { [ string match $visibility "protected_undef" ]
1ba54ee0 AM	152	&& [regexp "undefined reference to \`\.?visibility\'" $link_output]
1ba54ee0 AM	153	&& [regexp "undefined reference to \`visibility_var\'" $link_output] } {
7cda33a1 L	154	pass "$testname"
	155	} else {
	156	fail "$testname"
	157	}}
6fc49d28 L	158	return
	159	}
	160
	161	# Link against the shared library. Use -rpath so that the
	162	# dynamic linker can locate the shared library at runtime.
	163	# On AIX, we must include /lib in -rpath, as otherwise the loader
	164	# can not find -lc.
	165	set rpath $tmpdir
	166	if { [istarget rs6000--aix] \|\| [istarget powerpc--aix] } {
	167	set rpath /lib:$tmpdir
	168	}
b765d4e3	169	if ![ld_simple_link $CC $tmpdir/$progname "-Wl,-rpath,$rpath $tmpdir/$main $tmpdir/$progname.so"] {
6fc49d28	170	if { [ string match $visibility "hidden" ]
1ba54ee0 AM	171	&& [regexp "undefined reference to \`\.?visibility\'" $link_output]
1ba54ee0 AM	172	&& [regexp "undefined reference to \`visibility_var\'" $link_output] } {
7cda33a1 L	173	pass "$testname"
7cda33a1 L	174	} else { if { [ string match $visibility "hidden_undef_def" ]
1ba54ee0 AM	175	&& [regexp "undefined reference to \`\.?visibility\'" $link_output]
	176	&& [regexp "undefined reference to \`visibility_def\'" $link_output]
	177	&& [regexp "undefined reference to \`\.?visibility_func\'" $link_output]
	178	&& [regexp "undefined reference to \`visibility_var\'" $link_output] } {
6fc49d28 L	179	pass "$testname"
	180	} else {
	181	fail "$testname"
7cda33a1	182	}}
6fc49d28 L	183	return
	184	}
	185
7cda33a1 L	186	if { [ string match $visibility "hidden" ]
	187	\|\| [ string match $visibility "hidden_undef" ]
	188	\|\| [ string match $visibility "protected_undef" ] } {
6fc49d28 L	189	fail "$testname"
	190	}
	191
	192	# Run the resulting program
	193	send_log "$tmpdir/$progname >$tmpdir/$progname.out\n"
	194	verbose "$tmpdir/$progname >$tmpdir/$progname.out"
	195	catch "exec $tmpdir/$progname >$tmpdir/$progname.out" exec_output
	196	if ![string match "" $exec_output] then {
	197	send_log "$exec_output\n"
	198	verbose "$exec_output"
	199	fail "$testname"
	200	return
	201	}
	202
	203	send_log "diff $tmpdir/$progname.out $srcdir/$subdir/$dat.dat\n"
	204	verbose "diff $tmpdir/$progname.out $srcdir/$subdir/$dat.dat"
	205	catch "exec diff $tmpdir/$progname.out $srcdir/$subdir/$dat.dat" exec_output
	206	set exec_output [prune_warnings $exec_output]
	207
	208	if {![string match "" $exec_output]} then {
	209	send_log "$exec_output\n"
	210	verbose "$exec_output"
	211	fail "$testname"
	212	return
	213	}
	214
	215	pass "$testname"
	216	}
	217
	218	proc visibility_run {visibility} {
	219	global CC
	220	global CFLAGS
	221	global SHCFLAG
	222	global srcdir
	223	global subdir
	224	global tmpdir
	225	global picflag
	226	global target_triplet
08c44e65	227	global support_protected
a9f844b1	228	global shared_needs_pic
6fc49d28 L	229
	230	if [ string match $visibility "hidden" ] {
	231	set VSBCFLAG "-DHIDDEN_TEST"
	232	} else { if [ string match $visibility "hidden_normal" ] {
	233	set VSBCFLAG "-DHIDDEN_NORMAL_TEST"
7cda33a1 L	234	} else { if [ string match $visibility "hidden_undef" ] {
	235	set VSBCFLAG "-DHIDDEN_UNDEF_TEST"
	236	} else { if [ string match $visibility "hidden_undef_def" ] {
	237	set VSBCFLAG "-DHIDDEN_UNDEF_TEST -DDSO_DEFINE_TEST"
	238	} else { if [ string match $visibility "hidden_weak" ] {
	239	set VSBCFLAG "-DHIDDEN_WEAK_TEST"
6fc49d28 L	240	} else { if [ string match $visibility "protected" ] {
6fc49d28 L	241	set VSBCFLAG "-DPROTECTED_TEST"
7cda33a1 L	242	} else { if [ string match $visibility "protected_undef" ] {
	243	set VSBCFLAG "-DPROTECTED_UNDEF_TEST"
	244	} else { if [ string match $visibility "protected_undef_def" ] {
	245	set VSBCFLAG "-DPROTECTED_UNDEF_TEST -DDSO_DEFINE_TEST"
	246	} else { if [ string match $visibility "protected_weak" ] {
	247	set VSBCFLAG "-DPROTECTED_WEAK_TEST"
6fc49d28 L	248	} else {
6fc49d28 L	249	set VSBCFLAG ""
7cda33a1	250	}}}}}}}}}
6fc49d28 L	251
6fc49d28 L	252	# Compile the main program.
360e9586	253	if ![ld_compile "$CC -g $CFLAGS $SHCFLAG $VSBCFLAG" $srcdir/$subdir/main.c $tmpdir/mainnp.o] {
6fc49d28 L	254	unresolved "visibility ($visibility) (non PIC)"
	255	unresolved "visibility ($visibility)"
	256	} else {
	257	# The shared library is composed of two files. First compile them
	258	# without using -fpic. That should work on an ELF system,
	259	# although it will be less efficient because the dynamic linker
	260	# will need to do more relocation work. However, note that not
	261	# using -fpic will cause some of the tests to return different
	262	# results.
360e9586 L	263	if { ![ld_compile "$CC -g $CFLAGS $SHCFLAG $VSBCFLAG" $srcdir/$subdir/sh1.c $tmpdir/sh1np.o]
360e9586 L	264	\|\| ![ld_compile "$CC -g $CFLAGS $SHCFLAG $VSBCFLAG" $srcdir/$subdir/sh2.c $tmpdir/sh2np.o] } {
6fc49d28 L	265	unresolved "visibility ($visibility) (non PIC)"
6fc49d28 L	266	} else { if { [istarget rs6000--aix] \|\| [istarget powerpc--aix] } {
ad995491	267	visibility_test $visibility vnp "visibility ($visibility) (non PIC)" mainnp.o sh1np.o sh2np.o xcoff
6fc49d28 L	268	} else {
	269	# SunOS non PIC shared libraries don't permit some cases of
	270	# overriding.
1345a0c0 L	271	if { [ string match $visibility "protected" ]
1345a0c0 L	272	\|\| [ string match $visibility "protected_undef_def" ] } {
08c44e65 L	273	if [ string match $support_protected "no" ] {
	274	setup_xfail $target_triplet
	275	}
6fc49d28 L	276	} else {
	277	setup_xfail "--sunos4*"
	278	}
212a6b8e RH	279
	280	# Non-pic code uses name binding rules for applications to
	281	# reference variables by gp-relative relocs, which can't be
	282	# used with overridable symbols.
ad995491 L	283	if { ![ string match $visibility "hidden_undef" ]
	284	&& ![ string match $visibility "protected_undef" ] } {
	285	setup_xfail "ia64--linux"
212a6b8e	286	setup_xfail "alpha--linux*"
ad995491	287	}
4648dfcf MS	288	if { ![ string match $visibility "hidden" ]
	289	&& ![ string match $visibility "hidden_undef" ]
	290	&& ![ string match $visibility "hidden_undef_def" ]
	291	&& ![ string match $visibility "protected_undef" ] } {
	292	setup_xfail "s390x--linux"
4dc570c2 JJ	293	if { [istarget sparc--linux*] && [is_elf64 $tmpdir/mainnp.o] } {
	294	setup_xfail "sparc--linux*"
	295	}
4648dfcf	296	}
9147e853	297	setup_xfail "x86_64--linux"
c0d48c0b DA	298	if { ![istarget hppa64--linux] } {
	299	setup_xfail "hppa--linux*"
	300	}
a9f844b1 NC	301	if [ string match $shared_needs_pic "yes" ] {
	302	setup_xfail "arm--linux*"
	303	}
212a6b8e	304
6fc49d28 L	305	visibility_test $visibility vnp "visibility ($visibility) (non PIC)" mainnp.o sh1np.o sh2np.o elfvsb
	306
	307	# Test ELF shared library relocations with a non-zero load
	308	# address for the library. Near as I can tell, the R_*_RELATIVE
	309	# relocations for various targets are broken in the case where
	310	# the load address is not zero (which is the default).
1345a0c0 L	311	if { [ string match $visibility "protected" ]
1345a0c0 L	312	\|\| [ string match $visibility "protected_undef_def" ] } {
08c44e65 L	313	if [ string match $support_protected "no" ] {
	314	setup_xfail $target_triplet
	315	}
6fc49d28 L	316	} else {
	317	setup_xfail "--sunos4*"
	318	setup_xfail "--linux*libc1"
	319	}
d1d8dddf L	320	if { [ string match $visibility "hidden_normal" ]
	321	\|\| [ string match $visibility "hidden_weak" ]
	322	\|\| [ string match $visibility "protected" ]
	323	\|\| [ string match $visibility "protected_undef_def" ]
	324	\|\| [ string match $visibility "protected_weak" ]
	325	\|\| [ string match $visibility "normal" ] } {
	326	setup_xfail "powerpc--linux"
8c37241b	327	setup_xfail "s390x--linux"
4dc570c2 JJ	328	if { [istarget sparc--linux*] && [is_elf64 $tmpdir/mainnp.o] } {
	329	setup_xfail "sparc--linux*"
	330	}
d1d8dddf	331	}
ad995491 L	332	if { ![ string match $visibility "hidden_undef" ]
	333	&& ![ string match $visibility "protected_undef" ] } {
	334	setup_xfail "ia64--linux"
212a6b8e	335	setup_xfail "alpha--linux*"
66517a2f	336	setup_xfail "mips--linux*"
ad995491	337	}
9147e853	338	setup_xfail "x86_64--linux"
c0d48c0b DA	339	if { ![istarget hppa64--linux] } {
	340	setup_xfail "hppa--linux*"
	341	}
a9f844b1 NC	342	if [ string match $shared_needs_pic "yes" ] {
	343	setup_xfail "arm--linux*"
	344	}
c0d48c0b	345
6fc49d28 L	346	visibility_test $visibility vnp "visibility ($visibility) (non PIC, load offset)" \
	347	mainnp.o sh1np.o sh2np.o elfvsb \
	348	"-T $srcdir/$subdir/elf-offset.ld"
	349	} }
	350
	351	# Now compile the code using -fpic.
	352
125c6493 AM	353	if { ![ld_compile "$CC -g $CFLAGS $SHCFLAG $VSBCFLAG -DSHARED $picflag" $srcdir/$subdir/sh1.c $tmpdir/sh1p.o]
125c6493 AM	354	\|\| ![ld_compile "$CC -g $CFLAGS $SHCFLAG $VSBCFLAG -DSHARED $picflag" $srcdir/$subdir/sh2.c $tmpdir/sh2p.o] } {
6fc49d28 L	355	unresolved "visibility ($visibility)"
6fc49d28 L	356	} else {
1345a0c0 L	357	if { [ string match $visibility "protected" ]
1345a0c0 L	358	\|\| [ string match $visibility "protected_undef_def" ] } {
08c44e65 L	359	if [ string match $support_protected "no" ] {
	360	setup_xfail $target_triplet
	361	}
6fc49d28 L	362	}
	363	# SunOS can not compare function pointers correctly
	364	if [istarget "--sunos4*"] {
	365	visibility_test $visibility vp "visibility ($visibility)" mainnp.o sh1p.o sh2p.o sun4
	366	} else { if { [istarget rs6000--aix] \|\| [istarget powerpc--aix] } {
	367	visibility_test $visibility vp "visibility ($visibility)" mainnp.o sh1p.o sh2p.o xcoff
	368	} else {
	369	visibility_test $visibility vp "visibility ($visibility)" mainnp.o sh1p.o sh2p.o elfvsb
	370	} }
	371	}
	372	}
	373
	374	# Now do the same tests again, but this time compile main.c PIC.
125c6493	375	if ![ld_compile "$CC -g $CFLAGS $SHCFLAG $VSBCFLAG -DSHARED $picflag" $srcdir/$subdir/main.c $tmpdir/mainp.o] {
6fc49d28 L	376	unresolved "visibility ($visibility) (PIC main, non PIC so)"
	377	unresolved "visibility ($visibility) (PIC main)"
	378	} else {
	379	if { [file exists $tmpdir/sh1np.o ] && [ file exists $tmpdir/sh2np.o ] } {
	380	if { [istarget rs6000--aix] \|\| [istarget powerpc--aix] } {
	381	visibility_test $visibility vmpnp "visibility ($visibility) (PIC main, non PIC so)" mainp.o sh1np.o sh2np.o xcoff
	382	} else {
	383	# SunOS non PIC shared libraries don't permit some cases of
	384	# overriding.
1345a0c0 L	385	if { [ string match $visibility "protected" ]
1345a0c0 L	386	\|\| [ string match $visibility "protected_undef_def" ] } {
08c44e65 L	387	if [ string match $support_protected "no" ] {
	388	setup_xfail $target_triplet
	389	}
6fc49d28 L	390	} else {
	391	setup_xfail "--sunos4*"
	392	}
ad995491 L	393	if { ![ string match $visibility "hidden_undef" ]
	394	&& ![ string match $visibility "protected_undef" ] } {
	395	setup_xfail "ia64--linux"
212a6b8e	396	setup_xfail "alpha--linux*"
ad995491	397	}
4648dfcf MS	398	if { ![ string match $visibility "hidden" ]
	399	&& ![ string match $visibility "hidden_undef" ]
	400	&& ![ string match $visibility "hidden_undef_def" ]
	401	&& ![ string match $visibility "protected_undef" ] } {
	402	setup_xfail "s390x--linux"
4dc570c2 JJ	403	if { [istarget sparc--linux*] && [is_elf64 $tmpdir/mainp.o] } {
	404	setup_xfail "sparc--linux*"
	405	}
4648dfcf	406	}
9147e853	407	setup_xfail "x86_64--linux"
c0d48c0b DA	408	if { ![istarget hppa64--linux] } {
	409	setup_xfail "hppa--linux*"
	410	}
a9f844b1 NC	411	if [ string match $shared_needs_pic "yes" ] {
	412	setup_xfail "arm--linux*"
	413	}
c0d48c0b	414
6fc49d28 L	415	visibility_test $visibility vmpnp "visibility ($visibility) (PIC main, non PIC so)" mainp.o sh1np.o sh2np.o elfvsb
	416	}
	417	} else {
	418	unresolved "visibility (PIC main, non PIC so)"
	419	}
	420
	421	if { [file exists $tmpdir/sh1p.o ] && [ file exists $tmpdir/sh2p.o ] } {
1345a0c0 L	422	if { [ string match $visibility "protected" ]
1345a0c0 L	423	\|\| [ string match $visibility "protected_undef_def" ] } {
08c44e65 L	424	if [ string match $support_protected "no" ] {
	425	setup_xfail $target_triplet
	426	}
6fc49d28 L	427	}
	428	if { [istarget rs6000--aix] \|\| [istarget powerpc--aix] } {
	429	visibility_test $visibility vmpp "visibility ($visibility) (PIC main)" mainp.o sh1p.o sh2p.o xcoff
	430	} else {
	431	visibility_test $visibility vmpp "visibility ($visibility) (PIC main)" mainp.o sh1p.o sh2p.o elfvsb
	432	}
	433	} else {
	434	unresolved "visibility ($visibility) (PIC main)"
	435	}
	436	}
	437	}
	438
	439	if [istarget mips--*] {
	440	set picflag ""
	441	} else {
	442	# Unfortunately, the gcc argument is -fpic and the cc argument is
	443	# -KPIC. We have to try both.
	444	set picflag "-fpic"
	445	send_log "$CC $picflag\n"
	446	verbose "$CC $picflag"
	447	catch "exec $CC $picflag" exec_output
	448	send_log "$exec_output\n"
	449	verbose "--" "$exec_output"
	450	if { [string match "illegal option" $exec_output] \
	451	\|\| [string match "option ignored" $exec_output] \
	452	\|\| [string match "unrecognized option" $exec_output] \
	453	\|\| [string match "passed to ld" $exec_output] } {
	454	if [istarget --sunos4*] {
	455	set picflag "-pic"
	456	} else {
	457	set picflag "-KPIC"
	458	}
	459	}
	460	}
	461	verbose "Using $picflag to compile PIC code"
	462
	463	visibility_run hidden
	464	visibility_run hidden_normal
7cda33a1 L	465	visibility_run hidden_undef
	466	visibility_run hidden_undef_def
	467	visibility_run hidden_weak
6fc49d28	468	visibility_run protected
7cda33a1 L	469	visibility_run protected_undef
	470	visibility_run protected_undef_def
	471	visibility_run protected_weak
6fc49d28 L	472	visibility_run normal
6fc49d28 L	473
22d5e339 L	474	if { ![ld_compile "$CC -g $CFLAGS" $srcdir/$subdir/common.c tmpdir/common.o] } {
	475	unresolved "common hidden symbol"
	476	} else {
	477	if ![ld_simple_link $ld tmpdir/common "tmpdir/common.o"] {
	478	fail "common hidden symbol"
	479	} else {
	480	pass "common hidden symbol"
	481	}
	482	}
	483
	484	if { ![ld_compile "$CC -g $CFLAGS" $srcdir/$subdir/test.c tmpdir/test.o] } {
	485	unresolved "weak hidden symbol"
	486	} else {
125c6493	487	if { ![ld_compile "$CC -g $CFLAGS -DSHARED $picflag" $srcdir/$subdir/sh3.c tmpdir/sh3.o] } {
22d5e339 L	488	unresolved "weak hidden symbol"
	489	} else {
	490	if ![ld_simple_link $ld tmpdir/sh3.so "-shared tmpdir/sh3.o"] {
	491	fail "weak hidden symbol"
	492	} else {
	493	if ![ld_simple_link $ld tmpdir/weak "tmpdir/test.o tmpdir/sh3.o"] {
	494	fail "weak hidden symbol DSO last"
	495	} else {
	496	pass "weak hidden symbol DSO last"
	497	}
	498	if ![ld_simple_link $ld tmpdir/weak "tmpdir/sh3.so tmpdir/test.o"] {
	499	fail "weak hidden symbol DSO first"
	500	} else {
	501	pass "weak hidden symbol DSO first"
	502	}
	503	}
	504	}
	505	}
	506
6fc49d28 L	507	if { [istarget rs6000--aix] \|\| [istarget powerpc--aix] } {
	508	# Remove the temporary directory.
	509	catch "exec rm -rf $tmpdir" exec_status
	510	}