mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-27 04:52:05 +08:00
4a94e36819
This commit brings all the changes made by running gdb/copyright.py as per GDB's Start of New Year Procedure. For the avoidance of doubt, all changes in this commits were performed by the script.
231 lines
6.1 KiB
Plaintext
231 lines
6.1 KiB
Plaintext
# Copyright (C) 2006-2022 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 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, see <http://www.gnu.org/licenses/>.
|
|
|
|
# Miscellaneous CRIS simulator testcases in assembly code, testing
|
|
# dv-rv.c and dv-cris.c functions.
|
|
|
|
sim_init
|
|
|
|
# Check whether dv-rv and dv-cris are present.
|
|
|
|
proc sim_has_rv_and_cris {} {
|
|
global srcdir
|
|
global subdir
|
|
global objdir
|
|
global sim_path
|
|
global SIMFLAGS_FOR_TARGET
|
|
|
|
if ![file exists $sim_path] {
|
|
return 0
|
|
}
|
|
|
|
# We need to assemble and link a trivial program and pass that, in
|
|
# order to test successful exit.
|
|
|
|
# A bit of duplication here for the assembling and linking part;
|
|
# what we want to do it to run the simulator without affecting the
|
|
# PASS/FAIL counters, and we can use e.g. run_sim_test for that.
|
|
|
|
if ![info exists SIMFLAGS_FOR_TARGET] {
|
|
set SIMFLAGS_FOR_TARGET ""
|
|
}
|
|
|
|
set comp_output [target_assemble $srcdir/$subdir/quit.s $objdir/quit.o \
|
|
"-I$srcdir/$subdir"]
|
|
|
|
if ![string match "" $comp_output] {
|
|
verbose -log "$comp_output" 3
|
|
fail "rv sim test setup (assembling)"
|
|
return 0
|
|
}
|
|
|
|
set comp_output [target_link $objdir/quit.o $objdir/quit.x ""]
|
|
|
|
if ![string match "" $comp_output] {
|
|
verbose -log "$comp_output" 3
|
|
fail "rv sim test setup (linking)"
|
|
return 0
|
|
}
|
|
|
|
set result \
|
|
[sim_run $objdir/quit.x \
|
|
"$SIMFLAGS_FOR_TARGET --hw-device rv --hw-device cris --hw-info" \
|
|
"" "" ""]
|
|
set return_code [lindex $result 0]
|
|
set output [lindex $result 1]
|
|
|
|
if { $return_code == 0 } {
|
|
return 1
|
|
}
|
|
|
|
return 0
|
|
}
|
|
|
|
# Similar to slurp_options, but lines are fixed format "^#r ..." (not
|
|
# "^#{ws}*r:{ws}+" to avoid intruding on slurp_options syntax). Only
|
|
# trailing whitespace of the "..." is trimmed. Beware that lines
|
|
# including parameters may not contain ":".
|
|
|
|
proc slurp_rv { file } {
|
|
global subdir srcdir
|
|
if [catch { set f [open $file r] } x] {
|
|
#perror "couldn't open `$file': $x"
|
|
perror "$x"
|
|
return -1
|
|
}
|
|
set rv_array {}
|
|
# whitespace expression
|
|
set ws {[ ]*}
|
|
# whitespace is ignored at the end of a line.
|
|
set pat "^#r (.*)$ws\$"
|
|
# Allow arbitrary lines until the first option is seen.
|
|
set seen_opt 0
|
|
while { [gets $f line] != -1 } {
|
|
set line [string trim $line]
|
|
# Whitespace here is space-tab.
|
|
if [regexp $pat $line xxx cmd] {
|
|
# match!
|
|
set cmd [string map [list \
|
|
{$pwd} [pwd] \
|
|
{$srcdir} "$srcdir" \
|
|
{$subdir} "$subdir" \
|
|
] "$cmd"]
|
|
lappend rv_array $cmd
|
|
set seen_opt 1
|
|
} else {
|
|
if { $seen_opt } {
|
|
break
|
|
}
|
|
}
|
|
}
|
|
close $f
|
|
return $rv_array
|
|
}
|
|
|
|
# The main test loop.
|
|
|
|
if [istarget *] {
|
|
global ASFLAGS_FOR_TARGET
|
|
global LDFLAGS_FOR_TARGET
|
|
global SIMFLAGS_FOR_TARGET
|
|
set has_rv_and_cris [sim_has_rv_and_cris]
|
|
|
|
global builddir
|
|
set rvdummy "$builddir/cris/rvdummy"
|
|
|
|
# All machines we test and the corresponding assembler option.
|
|
# We'll only ever test v10 and higher here.
|
|
|
|
set combos {{"crisv10" "--march=v10 --no-mul-bug-abort"}
|
|
{"crisv32" "--march=v32"}}
|
|
|
|
# We need to pass different assembler flags for each machine.
|
|
# Specifying it here rather than adding a specifier to each and every
|
|
# test-file is preferrable.
|
|
|
|
foreach combo $combos {
|
|
set mach [lindex $combo 0]
|
|
set ASFLAGS_FOR_TARGET "[lindex $combo 1]"
|
|
|
|
# The .ms suffix is for "miscellaneous .s".
|
|
foreach src [lsort [glob -nocomplain $srcdir/$subdir/*.ms]] {
|
|
|
|
# If we're only testing specific files and this isn't one of them,
|
|
# skip it.
|
|
if ![runtest_file_p $runtests $src] {
|
|
continue
|
|
}
|
|
|
|
# Whoever runs the test should be alerted that not all
|
|
# testcases have been checked; that's why we do the loop
|
|
# and don't just return at the top.
|
|
if !$has_rv_and_cris {
|
|
untested $src
|
|
continue
|
|
}
|
|
|
|
# Unfortunately this seems like the only way to pass
|
|
# additional sim, ld etc. options to run_sim_test.
|
|
set SIMFLAGS_FOR_TARGET "--hw-file $srcdir/$subdir/std.dev"
|
|
set LDFLAGS_FOR_TARGET "--section-start=.text=0"
|
|
|
|
# We parse options an extra time besides in run_sim_test,
|
|
# to determine if our defaults should be overridden.
|
|
|
|
set opt_array [slurp_options $src]
|
|
foreach i $opt_array {
|
|
set opt_name [lindex $i 0]
|
|
set opt_machs [lindex $i 1]
|
|
set opt_val [lindex $i 2]
|
|
|
|
# Allow concatenating to the default options by
|
|
# specifying a mach.
|
|
if { $opt_name == "sim" && $opt_machs == "" } {
|
|
set SIMFLAGS_FOR_TARGET ""
|
|
}
|
|
}
|
|
|
|
set rvdummy_id -1
|
|
set hostcmds [slurp_rv $src]
|
|
|
|
if { $hostcmds != "" } {
|
|
# I guess we could ask to have rvdummy executed on a
|
|
# remote host, but it looks like too much trouble for
|
|
# a feature rarely used.
|
|
if [is_remote host] {
|
|
untested $src
|
|
continue
|
|
}
|
|
|
|
set src_components [file split $src]
|
|
set rvfile "[lindex $src_components \
|
|
[expr [llength $src_components] - 1]].r"
|
|
|
|
if [catch { set f [open $rvfile w] } x] {
|
|
error "$x"
|
|
} {
|
|
set contents [join $hostcmds "\n"]
|
|
verbose "rv: $contents" 2
|
|
puts $f $contents
|
|
close $f
|
|
}
|
|
|
|
spawn -noecho $rvdummy "$rvfile"
|
|
if { $spawn_id < 0 } {
|
|
error "Couldn't spawn $rvdummy"
|
|
continue
|
|
}
|
|
set rvdummy_id $spawn_id
|
|
}
|
|
|
|
run_sim_test $src $mach
|
|
|
|
# Stop the rvdummy, if it's still running. We need to
|
|
# wait on it anyway to avoid it turning into a zombie.
|
|
if { $rvdummy_id != -1 } {
|
|
close -i $rvdummy_id
|
|
wait -i $rvdummy_id
|
|
|
|
# Gleaned from framework.exp, this seems an indicator
|
|
# to whether the test had expected outcome. If so, we
|
|
# want to remove the rv-file.
|
|
if { $exit_status == 0 } {
|
|
file delete $rvfile
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|