Projet_SETI_RISC-V/riscv-gnu-toolchain/gdb/ld/testsuite/ld-mips-elf/comm-data.exp

# Expect script for common symbol override, MIPS variation.
#
#   Copyright (C) 2011-2022 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 Maciej W. Rozycki <macro@codesourcery.com>
#

# This test is for MIPS shared-library targets.
if { ![istarget mips*-*-*]
     || ![is_elf_format]
     || ![check_shared_lib_support] } {
    return
}

set has_o32abi [expr ![istarget *-*-openbsd*] \
		     && ![istarget mips64*-ps2-elf*]]
set has_n32abi [expr [istarget *-img-elf*] \
		     || [istarget *-mti-elf*] \
		     || [istarget *-ps2-elf*] \
		     || [istarget *-sde-elf*] \
		     || [istarget *-*-freebsd*] \
		     || [istarget *-*-irix6*] \
		     || [istarget *-*-kfreebsd*-gnu] \
		     || [istarget *-*-linux*]]
set has_n64abi [expr [istarget *-*-freebsd*] \
		     || [istarget *-*-irix6*] \
		     || [istarget *-*-kfreebsd*-gnu] \
		     || [istarget *-*-linux*] \
		     || [istarget *-*-netbsd*] \
		     || [istarget *-*-openbsd*]]

if {[istarget *-img-elf*] \
     || [istarget *-mti-elf*] \
     || [istarget *-sde-elf*] \
     || [istarget *-*-netbsd*] \
     || [istarget *-*-linux*] \
     || [istarget *-*-openbsd*] \
     || [istarget *-*-sysv4*] } {
    if [istarget *el-*-*] {
	set abi_ldemul(o32) elf32ltsmip
	set abi_ldemul(n32) elf32ltsmipn32
	set abi_ldemul(n64) elf64ltsmip
    } else {
	set abi_ldemul(o32) elf32btsmip
	set abi_ldemul(n32) elf32btsmipn32
	set abi_ldemul(n64) elf64btsmip
    }
} elseif { [istarget *-*-freebsd*] \
	   || [istarget *-*-kfreebsd*-gnu] } {
    if [istarget *el-*-*] {
	set abi_ldemul(o32) elf32ltsmip_fbsd
	set abi_ldemul(n32) elf32ltsmipn32_fbsd
	set abi_ldemul(n64) elf64ltsmip_fbsd
    } else {
	set abi_ldemul(o32) elf32btsmip_fbsd
	set abi_ldemul(n32) elf32btsmipn32_fbsd
	set abi_ldemul(n64) elf64btsmip_fbsd
    }
} elseif { [istarget *vr4100*-*-elf*] \
	   || [istarget *vr4300*-*-elf*] \
	   || [istarget *vr5000*-*-elf*] } {
    if [istarget *el-*-*] {
	set abi_ldemul(o32) elf32l4300
    } else {
	set abi_ldemul(o32) elf32b4300
    }
} elseif { [istarget *-ps2-elf*] } {
    set abi_ldemul(o32) elf32lr5900
    set abi_ldemul(n32) elf32lr5900n32
} elseif { [istarget *-*-elf*] \
	   || [istarget *-*-rtems*] } {
    if [istarget *el-*-*] {
	set abi_ldemul(o32) elf32elmip
    } else {
	set abi_ldemul(o32) elf32ebmip
    }
} else {
    if [istarget *el-*-*] {
	set abi_ldemul(o32) elf32lsmip
	set abi_ldemul(n32) elf32lmipn32
	set abi_ldemul(n64) elf64lmip
    } else {
	set abi_ldemul(o32) elf32bsmip
	set abi_ldemul(n32) elf32bmipn32
	set abi_ldemul(n64) elf64bmip
    }
}

proc mips_comm_data_test { abi flag emul reloc } {

    set testname "MIPS $abi/$reloc common symbol override test"

    # There's no "-z copyreloc" option, deal with it.
    set ZFLAG [string map [list copyreloc "" nocopyreloc "-z $reloc"] $reloc]
    set AFLAGS "$flag"
    set LDFLAGS "-m$emul"

    # Define a global symbol.
    run_ld_link_tests [list \
	[list \
	    "$testname (auxiliary shared object build)" \
	    "$LDFLAGS -shared" "" \
	    "$AFLAGS -call_shared" \
	    { ../ld-elf/comm-data1.s } \
	    { \
		{ readelf -s ../ld-elf/comm-data1.sd } \
	    } \
	  "libmips-$abi-$reloc-comm-data.so" \
	] \
    ]

    # Set the pointer size according to the ABI.
    if { $abi == "n64" } {
	append AFLAGS " --defsym ELF64=1"
    }

    # Verify that a common symbol has been converted to an undefined
    # reference to the global symbol of the same name defined above
    # and that the debug reference has been dropped.
    run_ld_link_tests [list \
	[list \
	    "$testname" \
	    "$LDFLAGS -call_shared $ZFLAG -T ../ld-elf/comm-data2.ld -Ltmpdir\
	     -lmips-$abi-$reloc-comm-data" "" \
	    "$AFLAGS -call_nonpic" \
	    { ../ld-elf/comm-data2.s } \
	    { \
		{ readelf -s ../ld-elf/comm-data2.sd } \
		{ readelf -r ../ld-elf/comm-data2.rd } \
		{ readelf "-x .debug_foo" ../ld-elf/comm-data2.xd } \
	    } \
	    "mips-$abi-$reloc-comm-data" \
	] \
    ]
}

# For targets that default to a specific ISA (instead of "from-abi"),
# the 64-bit -march option is required to override it, like for
# "mipsisa32r2el-*-*".
set abis ""
if $has_o32abi {
    lappend abis o32 -32 $abi_ldemul(o32)
}
if $has_n32abi {
    lappend abis n32 "-n32 -march=mips3" $abi_ldemul(n32)
}
if $has_n64abi {
    lappend abis n64 "-64 -march=mips3" $abi_ldemul(n64)
}
set relocs { copyreloc nocopyreloc }
foreach { abi flag emul } $abis {
    foreach reloc $relocs {
	mips_comm_data_test $abi $flag $emul $reloc
    }
}