gdb/testsuite/gdb.base/access-mem-running.exp

   1 # Copyright (C) 2021-2024 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
  16 # Test that we can access memory while the inferior is running.
  17
  18 standard_testfile
  19
  20 if {[build_executable "failed to prepare" $testfile $srcfile {debug}] == -1} {
  21     return -1
  22 }
  23
  24 # The test proper.  NON_STOP indicates whether we're testing in
  25 # non-stop, or all-stop mode.
  26
  27 proc test { non_stop } {
  28     global srcfile binfile
  29     global gdb_prompt
  30     global GDBFLAGS
  31     global decimal
  32
  33     save_vars { GDBFLAGS } {
  34       append GDBFLAGS " -ex \"set non-stop $non_stop\""
  35       clean_restart ${binfile}
  36     }
  37
  38     if ![runto_main] {
  39         return -1
  40     }
  41
  42     # If debugging with target remote, check whether the all-stop variant
  43     # of the RSP is being used.  If so, we can't run the background tests.
  44     if {!$non_stop
  45         && [target_info exists gdb_protocol]
  46         && ([target_info gdb_protocol] == "remote"
  47             || [target_info gdb_protocol] == "extended-remote")} {
  48
  49         if {![is_target_non_stop]} {
  50             unsupported "can't issue commands while target is running"
  51             return 0
  52         }
  53     }
  54
  55     delete_breakpoints
  56
  57     if {$non_stop == "off"} {
  58         set cmd "continue &"
  59     } else {
  60         set cmd "continue -a &"
  61     }
  62     gdb_test_multiple $cmd "continuing" {
  63         -re "Continuing\.\r\n$gdb_prompt " {
  64             pass $gdb_test_name
  65         }
  66     }
  67
  68     # Check we can read/write variables.
  69
  70     # Check that we can read the counter variable, and that the
  71     # counter is increasing, meaning the process really is running.
  72
  73     sleep 1
  74     set global_counter1 \
  75         [get_integer_valueof "global_counter" 0 \
  76              "get global_counter once"]
  77
  78     sleep 1
  79     set global_counter2 \
  80         [get_integer_valueof "global_counter" 0 \
  81              "get global_counter twice"]
  82
  83     gdb_assert {$global_counter1 != 0 \
  84                     && $global_counter2 != 0 \
  85                     && $global_counter1 != $global_counter2} \
  86         "value changed"
  87
  88     # Check that we can write variables.
  89
  90     gdb_test "print global_var" " = 123" \
  91         "print global_var before writing"
  92     gdb_test "print global_var = 321" " = 321" \
  93         "write to global_var"
  94     gdb_test "print global_var" " = 321" \
  95         "print global_var after writing"
  96     gdb_test "print global_var = 123" " = 123" \
  97         "write to global_var again"
  98
  99     # Check we can set a breakpoint while the process is running.  The
 100     # breakpoint should hit immediately.
 101     set any "\[^\r\n\]*"
 102
 103     gdb_test_multiple "b maybe_stop_here" "" {
 104         -re "Breakpoint $decimal at $any: file $any${srcfile}, line $decimal.\r\n$gdb_prompt " {
 105             pass $gdb_test_name
 106         }
 107     }
 108     gdb_test_multiple "" "breakpoint hits" {
 109         -re "Breakpoint $decimal, maybe_stop_here \\(\\) at $any${srcfile}:$decimal\r\n" {
 110             pass "$gdb_test_name"
 111         }
 112     }
 113 }
 114
 115 foreach non_stop { "off" "on" } {
 116     set stop_mode [expr ($non_stop=="off")?"all-stop":"non-stop"]
 117     with_test_prefix "$stop_mode" {
 118         test $non_stop
 119     }
 120 }