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

   1 # Copyright (C) 2021-2023 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         gdb_test_multiple "maint show target-non-stop" "" {
  50             -wrap -re "(is|currently) on.*" {
  51             }
  52             -wrap -re "(is|currently) off.*" {
  53                 unsupported "can't issue commands while target is running"
  54                 return 0
  55             }
  56         }
  57     }
  58
  59     delete_breakpoints
  60
  61     if {$non_stop == "off"} {
  62         set cmd "continue &"
  63     } else {
  64         set cmd "continue -a &"
  65     }
  66     gdb_test_multiple $cmd "continuing" {
  67         -re "Continuing\.\r\n$gdb_prompt " {
  68             pass $gdb_test_name
  69         }
  70     }
  71
  72     # Check we can read/write variables.
  73
  74     # Check that we can read the counter variable, and that the
  75     # counter is increasing, meaning the process really is running.
  76
  77     sleep 1
  78     set global_counter1 \
  79         [get_integer_valueof "global_counter" 0 \
  80              "get global_counter once"]
  81
  82     sleep 1
  83     set global_counter2 \
  84         [get_integer_valueof "global_counter" 0 \
  85              "get global_counter twice"]
  86
  87     gdb_assert {$global_counter1 != 0 \
  88                     && $global_counter2 != 0 \
  89                     && $global_counter1 != $global_counter2} \
  90         "value changed"
  91
  92     # Check that we can write variables.
  93
  94     gdb_test "print global_var" " = 123" \
  95         "print global_var before writing"
  96     gdb_test "print global_var = 321" " = 321" \
  97         "write to global_var"
  98     gdb_test "print global_var" " = 321" \
  99         "print global_var after writing"
 100     gdb_test "print global_var = 123" " = 123" \
 101         "write to global_var again"
 102
 103     # Check we can set a breakpoint while the process is running.  The
 104     # breakpoint should hit immediately.
 105     set any "\[^\r\n\]*"
 106
 107     gdb_test_multiple "b maybe_stop_here" "" {
 108         -re "Breakpoint $decimal at $any: file $any${srcfile}, line $decimal.\r\n$gdb_prompt " {
 109             pass $gdb_test_name
 110         }
 111     }
 112     gdb_test_multiple "" "breakpoint hits" {
 113         -re "Breakpoint $decimal, maybe_stop_here \\(\\) at $any${srcfile}:$decimal\r\n" {
 114             pass "$gdb_test_name"
 115         }
 116     }
 117 }
 118
 119 foreach non_stop { "off" "on" } {
 120     set stop_mode [expr ($non_stop=="off")?"all-stop":"non-stop"]
 121     with_test_prefix "$stop_mode" {
 122         test $non_stop
 123     }
 124 }