# Expect script for ld-shared tests#   Copyright (C) 1994, 1995, 1996, 1997 Free Software Foundation## This file 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 2 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.## Written by Ian Lance Taylor (ian@cygnus.com)## Make sure that ld can generate ELF shared libraries.# Note that linking against ELF shared libraries is tested by the# bootstrap test.# This test can only be run if ld generates native executables.if ![isnative] then {return}# This test can only be run on a couple of ELF platforms.# Square bracket expressions seem to confuse istarget.if { ![istarget i386-*-sysv4*] \     && ![istarget i486-*-sysv4*] \     && ![istarget i586-*-sysv4*] \     && ![istarget i386-*-unixware] \     && ![istarget i486-*-unixware] \     && ![istarget i586-*-unixware] \     && ![istarget i386-*-elf*] \     && ![istarget i486-*-elf*] \     && ![istarget i586-*-elf*] \     && ![istarget i386-*-linux*] \     && ![istarget i486-*-linux*] \     && ![istarget i586-*-linux*] \     && ![istarget m68k-*-linux*] \     && ![istarget mips*-*-irix5*] \     && ![istarget sparc*-*-elf] \     && ![istarget sparc*-*-solaris2*] \     && ![istarget sparc*-*-sunos4*] \     && ![istarget rs6000*-*-aix*] \     && ![istarget powerpc*-*-aix*] } {    return}if { [istarget i386-*-linuxaout*] \     || [istarget i486-*-linuxaout*] \     || [istarget i586-*-linuxaout*] \     || [istarget i386-*-linuxoldld*] \     || [istarget i486-*-linuxoldld*] \     || [istarget i586-*-linuxoldld*] \     || [istarget m68k-*-linuxaout*] } {    return}set tmpdir tmpdirset SHCFLAG ""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}# The test procedure.proc shared_test { progname testname main sh1 sh2 dat } {    global ld    global srcdir    global subdir    global exec_output    global host_triplet    global tmpdir    # 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 $ld $tmpdir/$progname.so "$shared $tmpdir/$sh1 $tmpdir/$sh2"]} {        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_link $ld $tmpdir/$progname "-rpath $rpath $tmpdir/$main $tmpdir/$progname.so"] {    	fail "$testname"    	return    }    # 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"}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"# Compile the main program.if ![ld_compile "$CC $CFLAGS $SHCFLAG" $srcdir/$subdir/main.c $tmpdir/mainnp.o] {    unresolved "shared (non PIC)"    unresolved "shared"} 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 $CFLAGS $SHCFLAG" $srcdir/$subdir/sh1.c $tmpdir/sh1np.o]	 || ![ld_compile "$CC $CFLAGS $SHCFLAG" $srcdir/$subdir/sh2.c $tmpdir/sh2np.o] } {	unresolved "shared (non PIC)"    } else { if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } {	shared_test shnp "shared (nonPIC)" mainnp.o sh1np.o sh2np.o xcoff    } else {	# SunOS can not handle non PIC code in a shared library	setup_xfail "*-*-sunos4*"	# On Linux/m68k this fails because non-pic references to symbols	# in the same section may be resolved by the assembler if they	# are pc-relative.	setup_xfail "m68k-*-linux*"	shared_test shnp "shared (non PIC)" mainnp.o sh1np.o sh2np.o shared    } }    # Now compile the code using -fpic.    if { ![ld_compile "$CC $CFLAGS $SHCFLAG $picflag" $srcdir/$subdir/sh1.c $tmpdir/sh1p.o] 	 || ![ld_compile "$CC $CFLAGS $SHCFLAG $picflag" $srcdir/$subdir/sh2.c $tmpdir/sh2p.o] } {	unresolved "shared"    } else {	# SunOS can not compare function pointers correctly	if [istarget "*-*-sunos4*"] {	    shared_test shp "shared" mainnp.o sh1p.o sh2p.o sun4	} else { if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } {	    shared_test shp "shared" mainnp.o sh1p.o sh2p.o xcoff	} else {	    shared_test shp "shared" mainnp.o sh1p.o sh2p.o shared	} }    }}# Now do the same tests again, but this time compile main.c PIC.if ![ld_compile "$CC $CFLAGS $SHCFLAG $picflag" $srcdir/$subdir/main.c $tmpdir/mainp.o] {    unresolved "shared (PIC main, non PIC so)"    unresolved "shared (PIC main)"} else {    if { [file exists $tmpdir/sh1np.o ] && [ file exists $tmpdir/sh2np.o ] } {        if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } {	    shared_test shmpnp "shared (PIC main, non PIC so)" mainp.o sh1np.o sh2np.o xcoff	} else {	    # SunOS can not handle non PIC code in a shared library	    setup_xfail "*-*-sunos4*"	    # On Linux/m68k this fails because non-pic references to symbols	    # in the same section may be resolved by the assembler if they	    # are pc-relative.	    setup_xfail "m68k-*-linux*"	    shared_test shmpnp "shared (PIC main, non PIC so)" mainp.o sh1np.o sh2np.o shared	}    } else {	unresolved "shared (PIC main, non PIC so)"    }    if { [file exists $tmpdir/sh1p.o ] && [ file exists $tmpdir/sh2p.o ] } {        if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } {	    shared_test shmpp "shared (PIC main)" mainp.o sh1p.o sh2p.o xcoff	} else {	    shared_test shmpp "shared (PIC main)" mainp.o sh1p.o sh2p.o shared	}    } else {	unresolved "shared (PIC main)"    }}if { [istarget rs6000*-*-aix*] || [istarget powerpc*-*-aix*] } {    # Remove the temporary directory.    catch "exec rm -rf $tmpdir" exec_status}