mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-04 16:50:57 +00:00
156 lines
4.3 KiB
Plaintext
156 lines
4.3 KiB
Plaintext
# Expect script for ld-sh tests
|
|
# Copyright (C) 2001-2017 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.
|
|
#
|
|
|
|
# Test SH relaxing - that is, that it's disabled when SHmedia sections
|
|
# are present.
|
|
|
|
if ![istarget sh64-*-*] {
|
|
return
|
|
}
|
|
|
|
# There are four source files: the first is SHcompact only, the second
|
|
# is SHmedia only, the third has both, and the fourth has only a
|
|
# .cranges section. The table below has:
|
|
# Title
|
|
# as flags for first source (else "n/a" to skip)
|
|
# ditto, other three files
|
|
# ld flags
|
|
# 1/0 whether relaxing should have been done or not, or -1 if we expect
|
|
# the linker to not produce an output file.
|
|
|
|
if [istarget sh64*-*-linux*] {
|
|
set emul32 "shlelf32_linux"
|
|
} elseif { [istarget sh64*-*-netbsd*] || [istarget sh5*-*-netbsd*] } {
|
|
set emul32 "shelf32_nbsd"
|
|
} else {
|
|
set emul32 "shelf32"
|
|
}
|
|
|
|
set sh64relaxtests {
|
|
{"SH64 not relaxing, shcompact"
|
|
{"-relax -isa shcompact" "n/a" "n/a" "n/a"} "-m$emul32" 0}
|
|
{"SH64 relaxing, shcompact"
|
|
{"-relax -isa shcompact" "n/a" "n/a" "n/a"} "-relax -m$emul32" 1}
|
|
{"SH64 relaxing, shcompacts"
|
|
{"-relax -isa shcompact" "-isa shcompact" "n/a" "n/a"} "-relax -m$emul32" 1}
|
|
{"SH64 relaxing disabled, shmedia"
|
|
{"-relax -isa shcompact" "-isa shmedia -no-mix" "n/a" "n/a"} "-relax -m$emul32" 0}
|
|
{"SH64 relaxing disabled, mixed"
|
|
{"-relax -isa shcompact" "n/a" "-isa shcompact" "n/a"} "-relax -m$emul32" 0}
|
|
{"SH64 relaxing disabled, cranges"
|
|
{"-relax -isa shcompact" "n/a" "n/a" ""} "-relax -m$emul32" 0}
|
|
}
|
|
|
|
proc run_sh64relaxtest {sh64relaxtests} {
|
|
global ld
|
|
global as
|
|
global nm
|
|
global objdump
|
|
global readelf
|
|
global srcdir
|
|
global subdir
|
|
global emul32
|
|
|
|
set testindex 0
|
|
|
|
set sh64relaxfiles {
|
|
"relax1.s" "relax2.s" "relax3.s" "relax4.s"
|
|
}
|
|
|
|
foreach testentry $sh64relaxtests {
|
|
set testname [lindex $testentry 0]
|
|
set as_options [lindex $testentry 1]
|
|
set ld_options [subst [lindex $testentry 2]]
|
|
set expect_relaxed [lindex $testentry 3]
|
|
|
|
set is_unresolved 0
|
|
set objfiles {}
|
|
|
|
incr testindex
|
|
|
|
# Assemble each file in the test.
|
|
for {set i 0} {$i < 4} {incr i} {
|
|
set as_file [lindex $sh64relaxfiles $i]
|
|
set as_opt [lindex $as_options $i]
|
|
if { [string compare $as_opt "n/a"] != 0 } {
|
|
set objfile "tmpdir/[file rootname $as_file]-$testindex.o"
|
|
lappend objfiles $objfile
|
|
|
|
if ![ld_assemble $as "$as_opt $srcdir/$subdir/$as_file" $objfile] {
|
|
set is_unresolved 1
|
|
break
|
|
}
|
|
}
|
|
}
|
|
|
|
# Catch assembler errors.
|
|
if { $is_unresolved != 0 } {
|
|
unresolved $testname
|
|
continue
|
|
}
|
|
|
|
set binfile "tmpdir/relax-$testindex.x"
|
|
|
|
# We're not interested in the pass/fail of the linker as much
|
|
# as we're interested in whether or not relaxing got properly
|
|
# disabled. Hence the lax checking here.
|
|
|
|
file delete $binfile
|
|
set result [ld_link $ld $binfile " --no-warn-mismatch $ld_options $objfiles"]
|
|
if ![file exists $binfile] {
|
|
|
|
if {$expect_relaxed == -1} {
|
|
pass $testname
|
|
continue
|
|
}
|
|
|
|
verbose "$testname: file $binfile doesn't exist" 1
|
|
fail $testname
|
|
continue
|
|
}
|
|
|
|
catch "exec $objdump -d $binfile" objdump_output
|
|
|
|
regexp "\[ \t](jsr|bsr)\[ \t]" $objdump_output ignore calltype
|
|
|
|
if [string match $calltype "bsr"] {
|
|
set relaxed 1
|
|
} elseif [string match $calltype "jsr"] {
|
|
set relaxed 0
|
|
} else {
|
|
verbose "$testname: neither jsr nor bsr found" 1
|
|
verbose $objdump_output 2
|
|
fail $testname
|
|
continue
|
|
}
|
|
|
|
if {$relaxed != $expect_relaxed} {
|
|
verbose $objdump_output 2
|
|
fail $testname
|
|
exit
|
|
} else {
|
|
pass $testname
|
|
}
|
|
}
|
|
}
|
|
|
|
run_sh64relaxtest $sh64relaxtests
|