gdb/testsuite/gdb.hp/reg-test.exp

   1 # Copyright (C) 1998 Free Software Foundation, Inc.
   2
   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 2 of the License, or
   6 # (at your option) any later version.
   7 #
   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.
  12 #
  13 # You should have received a copy of the GNU General Public License
  14 # along with this program; if not, write to the Free Software
  15 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  16
  17 # Please email any bugs, comments, and/or additions to this file to:
  18 # bug-gdb@prep.ai.mit.edu
  19
  20 # Tests of wide register displays for GDB on HPPA 2.0 machines
  21
  22 # use this to debug:
  23 #log_user 1
  24
  25 if $tracelevel then {
  26         strace $tracelevel
  27         }
  28
  29 if ![istarget "hppa*-*-*"] {
  30     verbose "Wide register test ignored for non-hppa targets."
  31     return
  32 }
  33
  34 set testfile "reg_test"
  35 set srcfile ${testfile}.s
  36 set binfile ${objdir}/${subdir}/${testfile}
  37
  38 # To build a pa 2.0 executable
  39 #
  40 #     as -o reg_test reg_test.s
  41 # or
  42 #     cc -g -o reg_test reg_test.s
  43 #
  44 # The +DA2.0N flag doesn't seem to be needed.
  45 #
  46 # Don't reject if there are warnings, as we expect this warning:
  47 #
  48 #    (Warning) At least one PA 2.0 object file (pa2.0_test2.o) was detected.
  49 #    The linked output may not run on a PA 1.x system.
  50 #
  51
  52 if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
  53      gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
  54 }
  55
  56 gdb_exit
  57 gdb_start
  58 gdb_reinitialize_dir $srcdir/$subdir
  59 gdb_load ${binfile}
  60
  61 # test machine--there's no 2.0n architecture, so we have
  62 # to try to run the app.
  63 #
  64 send_gdb "break main\n"
  65     gdb_expect {
  66         -re "Breakpoint.*$gdb_prompt $" {
  67             pass "initial set-up"
  68         }
  69         -re ".*$gdb_prompt $" {
  70             fail "initial set-up"
  71         }
  72         timeout {
  73             fail "initial set-up (timeout)"
  74         }
  75     }
  76
  77 send_gdb "run\n"
  78     gdb_expect {
  79         -re ".*Executable file incompatible with hardware.*$gdb_prompt $" {
  80             # Not hppa2.0 machine
  81             #
  82             return 0
  83         }
  84         -re "Cannot exec.*$gdb_prompt $" {
  85             # Not hppa2.0 machine
  86             #
  87             return 0
  88         }
  89         -re ".*Starting program:.*$gdb_prompt $" {
  90             pass "Ready to start test"
  91         }
  92         timeout {
  93             fail "initial set-up, part 2 (timeout)"
  94             return 0
  95         }
  96     }
  97
  98 # Let the program set known values.  This secretly deletes
  99 # the breakpoint at main and re-runs to mainend.
 100 #
 101 runto mainend
 102
 103 # Look for known values
 104 #
 105 gdb_test "info reg r1"  "r1 1"
 106 gdb_test "info reg r4"  "r4 2"
 107 gdb_test "info reg r5"  "r5 4"
 108 gdb_test "info reg r6"  "r6 8"
 109 gdb_test "info reg r7"  "r7 10"
 110 gdb_test "info reg r8"  "r8 20"
 111 gdb_test "info reg r9"  "r9 40"
 112 gdb_test "info reg r10" "r10 80"
 113 gdb_test "info reg r11" "r11 100"
 114 gdb_test "info reg r12" "r12 200"
 115 gdb_test "info reg r13" "r13 400"
 116 gdb_test "info reg r14" "r14 800"
 117 gdb_test "info reg r15" "r15 1000"
 118 gdb_test "info reg r16" "r16 2000"
 119
 120 # Two odd variants that GDB supports are:
 121 #   "1" means "r1", and
 122 #   "$1" means "r1"
 123 #
 124 gdb_test "info reg 1 4" "r1 1.*r4 2"
 125 gdb_test "info reg \$1" "r1 1"
 126
 127 # Verify that GDB responds gracefully to a register ID number that
 128 # is out of range.
 129 #
 130 gdb_test "info reg 999" "999: invalid register"
 131
 132 # Make sure the floating point status and error registers
 133 # don't show up as floating point numbers!
 134 #
 135 gdb_test "info reg fpsr" ".*fpsr 0.*" "fpsr"
 136 gdb_test "info reg fpe1" ".*fpe1 0.*" "fpe1"
 137 gdb_test "info reg fpe2" ".*fpe2 0.*" "fpe2"
 138 gdb_test "info reg fpe3" ".*fpe3 0.*" "fpe3"
 139 gdb_test "info reg fpe4" ".*fpe4 0.*" "fpe4"
 140 gdb_test "info reg fpe5" ".*fpe5 0.*" "fpe5"
 141 gdb_test "info reg fpe6" ".*fpe6 0.*" "fpe6"
 142 gdb_test "info reg fpe7" ".*fpe7 0.*" "fpe7"
 143
 144 gdb_test "info reg fr4"  ".*fr4.*(double precision).* 1"
 145 gdb_test "info reg fr5"  ".*fr5.*(double precision).* 2"
 146 gdb_test "info reg fr6"  ".*fr6.*(double precision).* 2"
 147 gdb_test "info reg fr7"  ".*fr7.*(double precision).* 4"
 148 gdb_test "info reg fr8"  ".*fr8.*(double precision).* 8"
 149 gdb_test "info reg fr9"  ".*fr9.*(double precision).* 32"
 150 gdb_test "info reg fr10" ".*fr10.*(double precision).* 256"
 151
 152 gdb_test "info reg r19" "r19 deadbeefbadcadee"
 153
 154 # Need to add test of use of $<register-name>
 155 #
 156 # Q: How do you say a literal "$" in expect?
 157 # A: You say "\$".   A literal "\" is "\\".
 158 #
 159 # Please note that this test will fail as long as we are running
 160 # in 32-bit mode: it will produce "$1 = 0xbadcadee".  To fix it
 161 # would require building a real 64-bit gdb (expression evaluation,
 162 # in particular).
 163 #
 164 send_gdb "p/x \$r19\n"
 165     gdb_expect {
 166         -re ".*= 0xdeadbeefbadcadee.*$gdb_prompt $" {
 167             pass "64-bit works"
 168         }
 169         -re ".*= 0xbadcadee.*$gdb_prompt $" {
 170             pass "32-bit extract when using PRINT; expected but not good"
 171         }
 172         -re ".*$gdb_prompt $" {
 173             fail "didn't print any part of right value"
 174         }
 175         timeout {
 176             fail "timeout on print"
 177         }
 178     }
 179
 180 # Need to add tests of setting wide regs too.  E.g.
 181 #
 182 # set $r4 = 0x1234567890123456
 183 # p/x $r4
 184 #
 185
 186 # done
 187 #
 188 gdb_exit
 189 remote_exec build "rm -f ${binfile}"
 190 return 0