mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-09 04:21:49 +08:00
a2c5833233
The result of running etc/update-copyright.py --this-year, fixing all the files whose mode is changed by the script, plus a build with --enable-maintainer-mode --enable-cgen-maint=yes, then checking out */po/*.pot which we don't update frequently. The copy of cgen was with commit d1dd5fcc38ead reverted as that commit breaks building of bfp opcodes files.
239 lines
6.4 KiB
Plaintext
239 lines
6.4 KiB
Plaintext
# Test basic linker script functionality
|
|
# By Ian Lance Taylor, Cygnus Support
|
|
# Copyright (C) 1999-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.
|
|
|
|
set testname "script"
|
|
|
|
if ![ld_assemble $as $srcdir/$subdir/script.s tmpdir/script.o] {
|
|
unsupported $testname
|
|
return
|
|
}
|
|
|
|
proc check_script { } {
|
|
global nm
|
|
global testname
|
|
global nm_output
|
|
|
|
if ![ld_nm $nm "" tmpdir/script] {
|
|
fail $testname
|
|
return
|
|
}
|
|
|
|
if {![info exists nm_output(text_start)] \
|
|
|| ![info exists nm_output(text_end)] \
|
|
|| ![info exists nm_output(data_start)] \
|
|
|| ![info exists nm_output(data_end)]} {
|
|
send_log "bad output from nm\n"
|
|
verbose "bad output from nm"
|
|
fail $testname
|
|
return
|
|
}
|
|
|
|
set passes 1
|
|
set text_end 0x104
|
|
set data_end 0x1004
|
|
|
|
if [istarget *c4x*-*-*] then {
|
|
set text_end 0x101
|
|
set data_end 0x1001
|
|
}
|
|
|
|
if [istarget *c54x*-*-*] then {
|
|
set text_end 0x102
|
|
set data_end 0x1002
|
|
}
|
|
|
|
if {$nm_output(text_start) != 0x100} {
|
|
send_log "text_start == $nm_output(text_start)\n"
|
|
verbose "text_start == $nm_output(text_start)"
|
|
set passes 0
|
|
}
|
|
|
|
if {[info exists nm_output(tred)] \
|
|
&& $nm_output(tred) != (0x100 + 0x4000)} {
|
|
send_log "tred == $nm_output(tred)\n"
|
|
verbose "tred == $nm_output(tred)"
|
|
set passes 0
|
|
}
|
|
|
|
if {$nm_output(text_end) < $text_end \
|
|
|| $nm_output(text_end) > 0x110} {
|
|
send_log "text_end == $nm_output(text_end)\n"
|
|
verbose "text_end == $nm_output(text_end)"
|
|
set passes 0
|
|
}
|
|
|
|
if {$nm_output(data_start) != 0x1000} {
|
|
send_log "data_start == $nm_output(data_start)\n"
|
|
verbose "data_start == $nm_output(data_start)"
|
|
set passes 0
|
|
}
|
|
|
|
if {[info exists nm_output(fred)] \
|
|
&& $nm_output(fred) != (0x1000 + 0x1000)} {
|
|
send_log "fred == $nm_output(fred)\n"
|
|
verbose "fred == $nm_output(fred)"
|
|
set passes 0
|
|
}
|
|
|
|
if {$nm_output(data_end) < $data_end \
|
|
|| $nm_output(data_end) > 0x1010} {
|
|
send_log "data_end == $nm_output(data_end)\n"
|
|
verbose "data_end == $nm_output(data_end)"
|
|
set passes 0
|
|
}
|
|
|
|
if { $passes } {
|
|
pass $testname
|
|
} else {
|
|
fail $testname
|
|
}
|
|
}
|
|
|
|
proc extract_symbol_test { testfile testname } {
|
|
global objcopy
|
|
global nm
|
|
global size
|
|
global target_triplet
|
|
|
|
set copyfile tmpdir/extract
|
|
set args "--extract-symbol $testfile $copyfile"
|
|
set exec_output [run_host_cmd $objcopy $args]
|
|
if ![string equal "" $exec_output] {
|
|
fail $testname
|
|
return
|
|
}
|
|
|
|
set orig_syms [run_host_cmd $nm $testfile]
|
|
set syms_massaged $orig_syms
|
|
switch -regexp $target_triplet {
|
|
^mmix-knuth-mmixware$ {
|
|
# Without section sizes (stripped together with the
|
|
# contents for this target), we can't deduce the symbol
|
|
# types. Artificially tracking the symbol types is
|
|
# considered not worthwhile as there's no known use-case
|
|
# for --extract-symbols for this target. The option is
|
|
# supported just enough to emit the same symbol values,
|
|
# but absolute symbol types are expected.
|
|
regsub -all " \[TD\] " $syms_massaged " A " syms_massaged
|
|
}
|
|
^mips-*-* {
|
|
# This test cannot proceed any further for MIPS targets.
|
|
# The extract_syms operation produces a binary with a zero
|
|
# length .reginfo section, which is illegal under the MIPS
|
|
# ABI. Since producing such sections is part of the expected
|
|
# behaviour of --extract-symbols, no further testing can be
|
|
# performed. Fortunately this should not matter as extracting
|
|
# symbols is only needed for VxWorks support.
|
|
pass $testname
|
|
return
|
|
}
|
|
[a-z]*-*-pe$ {
|
|
# Fails for PE based targets because the extracted section
|
|
# relative symbols (eg tred or .text) all become undefined
|
|
# when the sections are blown away by --extract-symbol. Again
|
|
# this should not matter as --extract-symbol is only used by
|
|
# VxWorks.
|
|
pass $testname
|
|
return
|
|
}
|
|
# More PE variations...
|
|
[a-z]*-*-mingw* {
|
|
pass $testname
|
|
return
|
|
}
|
|
[a-z]*-*-cygwin$ {
|
|
pass $testname
|
|
return
|
|
}
|
|
}
|
|
|
|
set extract_syms [run_host_cmd $nm $copyfile]
|
|
if ![string equal $syms_massaged $extract_syms] {
|
|
fail $testname
|
|
return
|
|
}
|
|
|
|
# Check that the stripped section contains no code or data.
|
|
set exec_output [run_host_cmd $size $copyfile]
|
|
if ![regexp ".* 0\[ \]+0\[ \]+0\[ \]+0\[ \]+0\[ \]+.*" $exec_output] {
|
|
fail $testname
|
|
return
|
|
}
|
|
|
|
pass $testname
|
|
}
|
|
|
|
# PE targets need to set the image base to 0 to avoid complications from nm.
|
|
set old_LDFLAGS $LDFLAGS
|
|
if { [is_pecoff_format] } then {
|
|
append LDFLAGS " --image-base 0"
|
|
} elseif { [is_xcoff_format] } then {
|
|
append LDFLAGS " -bnogc"
|
|
}
|
|
set flags $LDFLAGS
|
|
|
|
if ![ld_link $ld tmpdir/script "$flags -T $srcdir/$subdir/script.t tmpdir/script.o"] {
|
|
fail $testname
|
|
} else {
|
|
check_script
|
|
}
|
|
|
|
set testname "MRI script"
|
|
|
|
if ![ld_link $ld tmpdir/script "$flags -c $srcdir/$subdir/scriptm.t"] {
|
|
fail $testname
|
|
} else {
|
|
check_script
|
|
}
|
|
|
|
set testname "MEMORY"
|
|
|
|
if ![ld_link $ld tmpdir/script "$flags -T $srcdir/$subdir/memory.t tmpdir/script.o"] {
|
|
fail $testname
|
|
} else {
|
|
check_script
|
|
}
|
|
|
|
set testname "MEMORY with symbols"
|
|
if ![ld_link $ld tmpdir/script "$flags -defsym DATA_ORIGIN=0x1000 -defsym DATA_LENGTH=0x1000 -T $srcdir/$subdir/memory_sym.t tmpdir/script.o"] {
|
|
fail $testname
|
|
untested "extract symbols"
|
|
} else {
|
|
check_script
|
|
extract_symbol_test tmpdir/script "extract symbols"
|
|
}
|
|
|
|
set test_script_list [lsort [glob $srcdir/$subdir/region-alias-*.t]]
|
|
|
|
foreach test_script $test_script_list {
|
|
run_dump_test [string range $test_script 0 end-2]
|
|
}
|
|
|
|
run_dump_test "align-with-input"
|
|
run_dump_test "pr20302"
|
|
run_dump_test "output-section-types"
|
|
|
|
run_dump_test "segment-start" {{name (default)}}
|
|
run_dump_test "segment-start" {{name (overridden)} \
|
|
{ld -Ttext-segment=0x10000000}}
|
|
|
|
set LDFLAGS $old_LDFLAGS
|