Commit | Line | Data |
---|---|---|
88b9d363 | 1 | # Copyright (C) 2021-2022 Free Software Foundation, Inc. |
05c06f31 PA |
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 {[prepare_for_testing "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 | } |