244 lines
7.5 KiB
Text
244 lines
7.5 KiB
Text
# Copyright (C) 1994 Free Software Foundation, Inc.
|
|
|
|
# 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 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., 675 Mass Ave, Cambridge, MA 02139, USA. */
|
|
|
|
# Please email any bugs, comments, and/or additions to this file to:
|
|
# bug-dejagnu@prep.ai.mit.edu
|
|
|
|
# Written by Ian Lance Taylor <ian@cygnus.com>
|
|
|
|
if {[which $OBJCOPY] == 0} then {
|
|
perror "$OBJCOPY does not exist"
|
|
return
|
|
}
|
|
|
|
send_user "Version [binutil_version $OBJCOPY]"
|
|
|
|
if [istarget hppa*-*-*] then {
|
|
# bintest.s doesn't assemble, and we don't have any other tests
|
|
return
|
|
}
|
|
|
|
if {![binutils_assemble $AS $srcdir$subdir/bintest.s tmpdir/bintest.o]} then {
|
|
return
|
|
}
|
|
|
|
# Test that objcopy does not modify a file when copying it.
|
|
|
|
set got [binutils_run $OBJCOPY "$OBJCOPYFLAGS tmpdir/bintest.o tmpdir/copy.o"]
|
|
|
|
if ![string match "" $got] then {
|
|
fail "objcopy (simple copy)"
|
|
} else {
|
|
send_log "cmp tmpdir/bintest.o tmpdir/copy.o\n"
|
|
verbose "cmp tmpdir/bintest.o tmpdir/copy.o"
|
|
catch "exec cmp tmpdir/bintest.o tmpdir/copy.o" exec_output
|
|
|
|
# On some systems the result of objcopy will not be identical.
|
|
# Those systems should use setup_xfail here.
|
|
|
|
setup_xfail "sh-*-coff" "m68*-*-hpux*"
|
|
|
|
if [string match "" $exec_output] then {
|
|
pass "objcopy (simple copy)"
|
|
} else {
|
|
send_log "$exec_output\n"
|
|
verbose "$exec_output" 1
|
|
|
|
fail "objcopy (simple copy)"
|
|
}
|
|
}
|
|
|
|
# Test generating S records.
|
|
|
|
set got [binutils_run $OBJCOPY "$OBJCOPYFLAGS -O srec tmpdir/bintest.o tmpdir/copy.srec"]
|
|
|
|
if ![string match "" $got] then {
|
|
fail "objcopy -O srec"
|
|
} else {
|
|
set file [open tmpdir/copy.srec r]
|
|
|
|
# The first S record is fixed by the file name we are using.
|
|
gets $file line
|
|
send_log "$line\n"
|
|
verbose $line
|
|
if ![string match $line "S0130000746D706469722F636F70792E7372656397\r"] {
|
|
fail "objcopy -O srec (bad header)"
|
|
} else {
|
|
while {[gets $file line] != -1 \
|
|
&& [regexp "^S\[123\]\[0-9a-fA-F\]+\r$" $line]} {
|
|
send_log "$line\n"
|
|
verbose $line
|
|
set line "**EOF**"
|
|
}
|
|
send_log "$line\n"
|
|
verbose $line
|
|
if ![regexp "^S\[789\]\[0-9a-fA-F\]+\r$" $line] then {
|
|
fail "objcopy -O srec (bad trailer)"
|
|
} else {
|
|
if {[gets $file line] != -1} then {
|
|
send_log "$line\n"
|
|
verbose $line
|
|
fail "objcopy -O srec (garbage at end)"
|
|
} else {
|
|
set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -f tmpdir/copy.srec"]
|
|
if ![regexp "file format srec" $got] then {
|
|
fail "objcopy -O srec (objdump failed)"
|
|
} else {
|
|
pass "objcopy -O srec"
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
close $file
|
|
}
|
|
|
|
# Test setting and adjusting the start address. We only test this
|
|
# while generating S records, because we may not be able to set the
|
|
# start address for other object file formats, and the S record case
|
|
# is the only useful one anyhow.
|
|
|
|
set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -f tmpdir/bintest.o"]
|
|
if ![regexp "start address (\[0-9a-fA-FxX\]+)" $got all origstart] then {
|
|
perror "objdump can not recognize bintest.o"
|
|
set origstart ""
|
|
} else {
|
|
set got [binutils_run $OBJCOPY "$OBJCOPYFLAGS -O srec tmpdir/bintest.o tmpdir/copy.srec --set-start 0x7654"]
|
|
if ![string match "" $got] then {
|
|
fail "objcopy --set-start"
|
|
} else {
|
|
set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -f tmpdir/copy.srec"]
|
|
if ![regexp "file format srec.*start address (\[0-9a-fA-FxX\]+)" $got all srecstart] then {
|
|
fail "objcopy --set-start"
|
|
} else {
|
|
if {$srecstart != 0x7654} then {
|
|
fail "objcopy --set-start ($srecstart != 0x7654)"
|
|
} else {
|
|
pass "objcopy --set-start"
|
|
}
|
|
}
|
|
}
|
|
|
|
set got [binutils_run $OBJCOPY "$OBJCOPYFLAGS -O srec tmpdir/bintest.o tmpdir/copy.srec --adjust-start 0x123"]
|
|
if ![string match "" $got] then {
|
|
fail "objcopy --adjust-start"
|
|
} else {
|
|
set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -f tmpdir/copy.srec"]
|
|
if ![regexp "file format srec.*start address (\[0-9a-fA-FxX\]+)" $got all srecstart] then {
|
|
fail "objcopy --adjust-start"
|
|
} else {
|
|
if {$srecstart != $origstart + 0x123} then {
|
|
fail "objcopy --adjust-start ($srecstart != $origstart + 0x123)"
|
|
} else {
|
|
pass "objcopy --adjust-start"
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
# Test adjusting the overall VMA, and adjusting the VMA of a
|
|
# particular section. We again only test this when # generating S
|
|
# records.
|
|
|
|
set low ""
|
|
set lowname ""
|
|
|
|
set headers [binutils_run $OBJDUMP "$OBJDUMPFLAGS -h tmpdir/bintest.o"]
|
|
|
|
set headers_regexp "SECTION\[ 0-9\]+\\\[(\[^\]\]*)\\\]\[^\n\r\]*size\[ \]*(\[0-9a-fA-F\]+)\[ \]*vma\[ \]*(\[0-9a-fA-F\]+)(.*)"
|
|
|
|
set got $headers
|
|
while {[regexp $headers_regexp $got all name size vma rest]} {
|
|
set vma 0x$vma
|
|
if {$low == "" || $vma < $low} then {
|
|
set low $vma
|
|
set lowname $name
|
|
}
|
|
set got $rest
|
|
}
|
|
|
|
if {$low == "" || $origstart == ""} then {
|
|
perror "objdump can not recognize bintest.o"
|
|
} else {
|
|
set got [binutils_run $OBJCOPY "$OBJCOPYFLAGS -O srec tmpdir/bintest.o tmpdir/copy.srec --adjust-vma 0x123"]
|
|
if ![string match "" $got] then {
|
|
fail "objcopy --adjust-vma"
|
|
} else {
|
|
set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -fh tmpdir/copy.srec"]
|
|
set want "file format srec.*start address\[ \]*(\[0-9a-fA-FxX\]+).*vma\[ \]*(\[0-9a-fA-F\]+)"
|
|
if ![regexp $want $got all start vma] then {
|
|
fail "objcopy --adjust-vma"
|
|
} else {
|
|
set vma 0x$vma
|
|
if {$vma != $low + 0x123} then {
|
|
fail "objcopy --adjust-vma ($vma != $low + 0x123)"
|
|
} else {
|
|
if {$start != $origstart + 0x123} then {
|
|
fail "objcopy --adjust-vma ($start != $origstart + 0x123)"
|
|
} else {
|
|
pass "objcopy --adjust-vma"
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
set arg ""
|
|
set got $headers
|
|
while {[regexp $headers_regexp $got all name size vma rest]} {
|
|
set vma 0x$vma
|
|
if {$vma == $low} then {
|
|
set arg "$arg --adjust-section-vma $name+4"
|
|
}
|
|
set got $rest
|
|
}
|
|
|
|
set got [binutils_run $OBJCOPY "$OBJCOPYFLAGS -O srec tmpdir/bintest.o tmpdir/copy.srec $arg"]
|
|
if ![string match "" $got] then {
|
|
fail "objcopy --adjust-section-vma +"
|
|
} else {
|
|
set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -h tmpdir/copy.srec"]
|
|
set want "file format srec.*SECTION\[ \]*0\[^\n\r\]*vma\[ \]*(\[0-9a-fA-F\]+)"
|
|
if ![regexp $want $got all vma] then {
|
|
fail "objcopy --adjust-section-vma +"
|
|
} else {
|
|
set vma 0x$vma
|
|
if {$vma != $low + 4} then {
|
|
fail "objcopy --adjust-section-vma + ($vma != $low + 4)"
|
|
} else {
|
|
pass "objcopy --adjust-section-vma +"
|
|
}
|
|
}
|
|
}
|
|
|
|
regsub -all "\\+4" $arg "=[expr $low + 4]" argeq
|
|
set got [binutils_run $OBJCOPY "$OBJCOPYFLAGS -O srec tmpdir/bintest.o tmpdir/copy.srec $argeq"]
|
|
if ![string match "" $got] then {
|
|
fail "objcopy --adjust-section-vma ="
|
|
} else {
|
|
set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -h tmpdir/copy.srec"]
|
|
set want "file format srec.*SECTION\[ \]*0\[^\n\r\]*vma\[ \]*(\[0-9a-fA-F\]+)"
|
|
if ![regexp $want $got all vma] then {
|
|
fail "objcopy --adjust-section-vma ="
|
|
} else {
|
|
set vma 0x$vma
|
|
if {$vma != $low + 4} then {
|
|
fail "objcopy --adjust-section-vma = ($vma != $low + 4)"
|
|
} else {
|
|
pass "objcopy --adjust-section-vma ="
|
|
}
|
|
}
|
|
}
|
|
}
|