gdb/testsuite/gdb.base/reggroups.exp

   1 # This testcase is part of GDB, the GNU debugger.
   2
   3 # Copyright 2017 Free Software Foundation, Inc.
   4
   5 # This program is free software; you can redistribute it and/or modify
   6 # it under the terms of the GNU General Public License as published by
   7 # the Free Software Foundation; either version 3 of the License, or
   8 # (at your option) any later version.
   9 #
  10 # This program is distributed in the hope that it will be useful,
  11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 # GNU General Public License for more details.
  14 #
  15 # You should have received a copy of the GNU General Public License
  16 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  17
  18 # Test listing reggroups and the registers in each group.
  19
  20 standard_testfile
  21
  22 if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
  23     return -1
  24 }
  25
  26 if ![runto_main] then {
  27     fail "can't run to main"
  28     return 0
  29 }
  30
  31 set invalid_register_re "Invalid register .*"
  32
  33 # Fetch all reggroups from 'maint print reggroups'.
  34
  35 proc fetch_reggroups {test} {
  36     global gdb_prompt
  37
  38     set reggroups {}
  39     gdb_test_multiple "maint print reggroups" $test {
  40         -re "maint print reggroups\r\n" {
  41             exp_continue
  42         }
  43         -re "^ Group\[ \t\]+Type\[ \t\]+\r\n" {
  44             exp_continue
  45         }
  46         -re "^ (\[0-9a-zA-Z-\]+)\[ \t\]+(user|internal)\[ \t\]+\r\n" {
  47             lappend reggroups $expect_out(1,string)
  48             exp_continue
  49         }
  50         -re "$gdb_prompt $" {
  51             gdb_assert "[llength $reggroups] != 0" $test
  52         }
  53     }
  54
  55     return $reggroups
  56 }
  57
  58 # Fetch all registers for a reggroup from 'info reg <reggroup>'.
  59
  60 proc fetch_reggroup_regs {reggroup test} {
  61     global gdb_prompt
  62     global invalid_register_re
  63
  64     # The command info reg <reggroup> will return something like the following:
  65     #
  66     # r0             0x0      0^M
  67     # r1             0x7fdffc 0x7fdffc^M
  68     # r2             0x7fe000 0x7fe000^M
  69     # npc            0x23a8   0x23a8 <main+12>^M
  70     # sr             0x8401   [ SM CY FO CID=0 ]^M
  71     #
  72     # We parse out and return the reg names, this is done by detecting
  73     # that for each line we have a register name followed by a $hex number.
  74     #
  75     # Note: we will not return vector registers, but I think this is ok because
  76     # for testing purposes we just want to ensure we get some registers and dont
  77     # fail.  Example vector register:
  78     #
  79     # xmm0           {v4_float = {0x0, 0x0, 0x0, 0x0}, v2_double = {0x0, ... }}
  80     #
  81     set regs {}
  82     gdb_test_multiple "info reg $reggroup" $test {
  83         -re "info reg $reggroup\r\n" {
  84             exp_continue
  85         }
  86         -re "^(\[0-9a-zA-Z-\]+)\[ \t\]+(0x\[0-9a-f\]+)\[ \t\]+(\[^\n\r\]+)\r\n" {
  87             lappend regs $expect_out(1,string)
  88             exp_continue
  89         }
  90         -re $invalid_register_re {
  91             fail "$test (unexpected invalid register response)"
  92         }
  93         -re "$gdb_prompt $" {
  94             pass $test
  95         }
  96     }
  97     return $regs
  98 }
  99
 100 set reggroups [fetch_reggroups "fetch reggroups"]
 101 set regcount 0
 102 foreach reggroup $reggroups {
 103     set regs [fetch_reggroup_regs $reggroup "fetch reggroup regs $reggroup"]
 104     set regcount [expr $regcount + [llength $regs]]
 105 }
 106
 107 gdb_assert "[llength $regcount] != 0" "system has reggroup registers"
 108
 109 # If this fails it means that probably someone changed the error text returned
 110 # for an invalid register argument.  If that happens we should fix the pattern
 111 # here and in the fetch_reggroup_regs procedure above.
 112 gdb_test "info reg invalid-reggroup" $invalid_register_re \
 113     "info reg invalid-reggroup should report 'Invalid register'"