1 # Copyright 2020 Free Software Foundation, Inc.
3 # This program is free software; you can redistribute it and/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation; either version 3 of the License, or
6 # (at your option) any later version.
8 # This program is distributed in the hope that it will be useful,
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License for more details.
13 # You should have received a copy of the GNU General Public License
14 # along with this program. If not, see <http://www.gnu.org/licenses/>.
16 # Various tests to check which register names are available after
17 # loading a new target description file, and which registers show up
18 # in the output of the 'info registers' command.
20 if {![istarget "riscv*-*-*"]} {
21 verbose "Skipping ${gdb_test_file_name}."
27 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \
29 unsupported "failed to compile"
33 if { ![runto_main] } {
34 untested "failed to runto main"
38 # First, figure out if we are 32-bit or 64-bit.
39 set xlen [get_valueof "/d" "sizeof (\$a0)" 0]
40 set flen [get_valueof "/d" "sizeof (\$fa0)" 0]
42 gdb_assert { $xlen != 0 && $flen != 0 } "read xlen and flen"
44 # We only handle 32-bit or 64-bit x-registers.
45 if { $xlen != 4 && $xlen != 8 } {
46 unsupported "unknown x-register size"
50 # If FLEN is 1 then the target doesn't have floating point support
51 # (the register $fa0 was not recognised). Otherwise, we can only
52 # proceed if FLEN equals XLEN, otherwise we'd need more test XML
54 if { $flen != 1 && $flen != $xlen } {
55 unsupport "unknown xlen/flen combination"
60 set xml_tdesc "riscv-tdesc-regs-32.xml"
62 set xml_tdesc "riscv-tdesc-regs-64.xml"
64 set xml_tdesc "${srcdir}/${subdir}/${xml_tdesc}"
66 # Maybe copy the target over if we're remote testing.
67 if {[is_remote host]} {
68 set remote_file [remote_download host $xml_tdesc]
70 set remote_file $xml_tdesc
73 gdb_test_no_output "set tdesc filename $remote_file" \
74 "load the new target description"
76 # Check that an alias for an unknown CSR will give a suitable error.
77 gdb_test "info registers \$csr0" "Invalid register `csr0'"
79 # Check we can access the dscratch register using either of its names.
80 gdb_test "info registers \$dscratch0" "dscratch0\[ \t\]+.*"
81 gdb_test "info registers \$dscratch" "dscratch\[ \t\]+.*"
83 foreach rgroup {all save restore} {
84 # Now use 'info registers all' to see how many times the floating
85 # point status registers show up in the output.
86 array set reg_counts {}
87 set test "info registers $rgroup"
88 gdb_test_multiple $test $test {
89 -re ".*info registers all\r\n" {
90 verbose -log "Skip to first register"
93 -re "^(\[^ \t\]+)\[ \t\]+\[^\r\n\]+\r\n" {
94 set reg $expect_out(1,string)
98 -re "^$gdb_prompt $" {
103 foreach reg {dscratch} {
104 if { [info exists reg_counts($reg) ] } {
105 set count $reg_counts($reg)
109 if {$reg == "dscratch" && $rgroup != "all"} {
110 gdb_assert {$count == 0} \
111 "register $reg not seen in reggroup $rgroup"
113 gdb_assert {$count == 1} \
114 "register $reg seen once in reggroup $rgroup"
117 array unset reg_counts