| # Expect script for .tls_common tests |
| # Copyright (C) 2006-2018 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 Jakub Jelinek (jakub@redhat.com) |
| # |
| |
| # Make sure that binutils can correctly handle ld output in ELF. |
| |
| if { ![istarget *-*-linux*] |
| && ![istarget arm*-*-uclinuxfdpiceabi] |
| && ![istarget *-*-nacl*] |
| && ![istarget *-*-gnu*] } { |
| return |
| } |
| |
| global as |
| global ld |
| global READELF |
| global srcdir |
| global subdir |
| global link_output |
| |
| if { ![ld_assemble $as "--elf-stt-common=no $srcdir/$subdir/tls_common.s" tmpdir/tls_commona.o] |
| || ![ld_assemble $as "--elf-stt-common=yes $srcdir/$subdir/tls_common.s" tmpdir/tls_commonb.o] } { |
| unresolved "tls_common" |
| return |
| } |
| |
| if { ![ld_link $ld tmpdir/tls_common1a.o "-r tmpdir/tls_commona.o"] |
| || ![ld_link $ld tmpdir/tls_common1b.o "-r tmpdir/tls_commona.o"] } { |
| fail "tls_common" |
| return |
| } |
| |
| if { ![ld_link $ld tmpdir/tls_commona "tmpdir/tls_common1a.o"] } { |
| if { [string match "*not supported*" $link_output] |
| || [string match "*unrecognized option*" $link_output] } { |
| unsupported "$ld_options is not supported by this target" |
| } elseif { [string match "*warning*alignment*of common symbol*" $link_output] } { |
| fail "tls_common" |
| } else { |
| unresolved "tls_common" |
| } |
| return |
| } |
| |
| if { ![ld_link $ld tmpdir/tls_commonb "tmpdir/tls_common1b.o"] } { |
| if { [string match "*not supported*" $link_output] |
| || [string match "*unrecognized option*" $link_output] } { |
| unsupported "$ld_options is not supported by this target" |
| } elseif { [string match "*warning*alignment*of common symbol*" $link_output] } { |
| fail "tls_common" |
| } else { |
| unresolved "tls_common" |
| } |
| return |
| } |
| |
| set readelf_output [run_host_cmd "$READELF" "-l --wide tmpdir/tls_commona"] |
| if ![regexp ".*TLS.*0x0+ 0x0+4 R .*" $readelf_output] then { |
| send_log "$readelf_output\n" |
| fail "tls_common" |
| return |
| } |
| |
| set readelf_output [run_host_cmd "$READELF" "-l --wide tmpdir/tls_commona"] |
| if ![regexp ".*TLS.*0x0+ 0x0+4 R .*" $readelf_output] then { |
| send_log "$readelf_output\n" |
| fail "tls_common" |
| return |
| } |
| |
| pass "tls_common" |