forked from Imagelibrary/binutils-gdb
d4e5db4e50
Without setting an image base address and without naming at least .text, this test produces entirely bogus PE output. To be honest, even the ELF output looks odd: .text gets placed at 0x10204, and both foo and bar get associated with .text despite living below its start address. Since neither image base nor .text placement are the subject of this test, specify .text placement explicitly and in the PE case force the image base to zero.
123 lines
2.8 KiB
Plaintext
123 lines
2.8 KiB
Plaintext
# Test address printed by --print-map
|
|
# Copyright (C) 2002-2021 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 "map addresses"
|
|
|
|
# The source file doesn't matter. Pinch one from the sizeof test.
|
|
if {![ld_assemble $as $srcdir/$subdir/sizeof.s tmpdir/map-address.o]} {
|
|
unsupported $testname
|
|
return
|
|
}
|
|
|
|
if { [is_pecoff_format] } then {
|
|
set IMAGE_BASE "--image-base 0"
|
|
} else {
|
|
set IMAGE_BASE ""
|
|
}
|
|
|
|
if {![ld_link $ld tmpdir/map-address \
|
|
"$LDFLAGS -T $srcdir/$subdir/map-address.t \
|
|
$IMAGE_BASE tmpdir/map-address.o \
|
|
-Map tmpdir/map-address.map"]} {
|
|
fail $testname
|
|
return
|
|
}
|
|
|
|
if [is_remote host] then {
|
|
remote_upload host "tmpdir/map_address.map"
|
|
}
|
|
|
|
if {[regexp_diff \
|
|
"tmpdir/map-address.map" \
|
|
"$srcdir/$subdir/map-address.d"]} {
|
|
fail $testname
|
|
} else {
|
|
pass $testname
|
|
}
|
|
|
|
|
|
set testname "map to directory"
|
|
|
|
if {![ld_link $ld tmpdir/map-address \
|
|
"$LDFLAGS -T $srcdir/$subdir/map-address.t \
|
|
$IMAGE_BASE tmpdir/map-address.o \
|
|
-Map tmpdir --output fred"]} {
|
|
fail $testname
|
|
return
|
|
}
|
|
|
|
if [is_remote host] then {
|
|
remote_upload host "tmpdir/fred.map"
|
|
}
|
|
|
|
if {[regexp_diff \
|
|
"tmpdir/fred.map" \
|
|
"$srcdir/$subdir/map-address.d"]} {
|
|
fail $testname
|
|
} else {
|
|
pass $testname
|
|
}
|
|
|
|
|
|
set testname "map to % directory"
|
|
|
|
if {![ld_link $ld tmpdir/map-address \
|
|
"$LDFLAGS -T $srcdir/$subdir/map-address.t \
|
|
$IMAGE_BASE tmpdir/map-address.o \
|
|
-Map=tmpdir/% --output fred"]} {
|
|
fail $testname
|
|
return
|
|
}
|
|
|
|
if [is_remote host] then {
|
|
remote_upload host "tmpdir/fred.map"
|
|
}
|
|
|
|
if {[regexp_diff \
|
|
"tmpdir/fred.map" \
|
|
"$srcdir/$subdir/map-address.d"]} {
|
|
fail $testname
|
|
} else {
|
|
pass $testname
|
|
}
|
|
|
|
|
|
set testname "map to %.foo directory"
|
|
|
|
if {![ld_link $ld tmpdir/map-address \
|
|
"$LDFLAGS -T $srcdir/$subdir/map-address.t \
|
|
$IMAGE_BASE tmpdir/map-address.o \
|
|
-Map=tmpdir/%.foo --output fred"]} {
|
|
fail $testname
|
|
return
|
|
}
|
|
|
|
if [is_remote host] then {
|
|
remote_upload host "tmpdir/fred.foo"
|
|
}
|
|
|
|
if {[regexp_diff \
|
|
"tmpdir/fred.foo" \
|
|
"$srcdir/$subdir/map-address.d"]} {
|
|
fail $testname
|
|
} else {
|
|
pass $testname
|
|
}
|