gdb/testsuite/gdb.mi/mi-reg-undefined.exp

   1 # Copyright 2013-2022 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 3 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, see <http://www.gnu.org/licenses/>.
  15 load_lib dwarf.exp
  16 load_lib mi-support.exp
  17 set MIFLAGS "-i=mi"
  18
  19 # This test can only be run on targets which support DWARF-2 and use gas.
  20 if {![dwarf2_support]} {
  21     return 0
  22 }
  23
  24 # This test can only be run on x86_64 targets.
  25 if {![istarget "x86_64-*-*"] || ![is_lp64_target]} {
  26     return 0
  27 }
  28
  29 gdb_exit
  30 if [mi_gdb_start] {
  31     continue
  32 }
  33
  34 standard_testfile .S
  35
  36 if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug nopie}] != "" } {
  37      untested "failed to compile"
  38      return -1
  39 }
  40
  41 mi_delete_breakpoints
  42 mi_gdb_reinitialize_dir $srcdir/$subdir
  43 mi_gdb_reinitialize_dir $srcdir/$subdir
  44 mi_gdb_load ${binfile}
  45
  46 if ![mi_runto stop_frame] {
  47     perror "Failed to stop in stop_frame"
  48     return -1
  49 }
  50
  51 mi_gdb_test "111-stack-list-frames" \
  52     "111\\^done,stack=\\\[frame=\{level=\"0\",addr=\"$hex\",func=\"stop_frame\",.*\},frame=\{level=\"1\",addr=\"$hex\",func=\"first_frame\",.*\},frame=\{level=\"2\",addr=\"$hex\",func=\"main\",.*\}\\\]" \
  53     "stack frame listing"
  54
  55 set not_saved_pattern "<not saved>"
  56
  57 for {set f 0} {$f < 3} {incr f} {
  58     if {${f} == 0} {
  59         set pattern_0_1_2 ${hex}
  60     } else {
  61         set pattern_0_1_2 ${not_saved_pattern}
  62     }
  63
  64     mi_gdb_test "22${f}-data-list-register-values --thread 1 --frame ${f} x  0 1 2 8 9" \
  65         "22${f}\\^done,register-values=\\\[\{number=\"0\",value=\"${pattern_0_1_2}\"\},\{number=\"1\",value=\"${pattern_0_1_2}\"\},\{number=\"2\",value=\"${pattern_0_1_2}\"\},\{number=\"8\",value=\"$hex\"\},\{number=\"9\",value=\"$hex\"\}\\\]" \
  66         "register values, format x, frame ${f}"
  67
  68     mi_gdb_test "33${f}-data-list-register-values --thread 1 --frame ${f} r 0 1 2 8 9" \
  69         "33${f}\\^done,register-values=\\\[\{number=\"0\",value=\"${pattern_0_1_2}\"\},\{number=\"1\",value=\"${pattern_0_1_2}\"\},\{number=\"2\",value=\"${pattern_0_1_2}\"\},\{number=\"8\",value=\"$hex\"\},\{number=\"9\",value=\"$hex\"\}\\\]" \
  70         "register values, format r, frame ${f}"
  71 }