blob: df090f2186b057461787f10c6486aa019cee46af (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
|
# Copyright 2009-2021 Free Software Foundation, Inc.
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
standard_testfile
if { [build_executable ${testfile}.exp "${testfile}" $srcfile {debug nowarnings}] } {
return -1
}
# Define the hook-stop that runs COMMANDS.
proc define_hook_stop {commands} {
set test "define hook-stop command"
gdb_test_multiple "define hook-stop" "$test" {
-re "Type commands for definition of \"hook-stop\".\r\nEnd with a line saying just \"end\".\r\n>$" {
gdb_test "$commands\nend" "" "$test"
}
}
}
# Restart GDB, run to main, set a breakpoint, and define a hook-stop
# that runs COMMANDS. If running to main fails, this returns to the
# caller's caller directly.
proc setup {commands} {
global srcfile binfile
clean_restart $binfile
if ![runto_main] then {
fail "can't run to main"
return -code return
}
gdb_test "break func" \
"Breakpoint.*at.* file .*$srcfile.*\\." \
"breakpoint line number"
define_hook_stop $commands
}
# Check that the hook-stop runs before the frame is printed.
proc hook_stop_before_frame {} {
with_test_prefix "hook-stop runs before frame print" {
global gdb_prompt
setup "echo \"Hello.\""
set test "run hook-stop"
gdb_test_multiple "continue" "$test" {
-re "\"Hello\\.\"\r\nBreakpo.*func.*set breakpoint here.*${gdb_prompt} $" {
pass $test
}
-re "Breakpo.*func.*set breakpoint here.*\"Hello\\.\".*${gdb_prompt} $" {
fail $test
}
}
}
}
# Check that GDB gracefully handles the case of the inferior dying
# while running the hook-stop.
proc hook_stop_kill {} {
with_test_prefix "hook-stop kills inferior" {
global gdb_prompt
global decimal
setup "kill"
gdb_test_no_output "set confirm off"
set test "run hook-stop"
gdb_test_multiple "continue" "$test" {
-re "Continuing.\r\n\\\[Inferior $decimal \\(.*\\) killed\\\]\r\n${gdb_prompt} $" {
pass $test
}
}
gdb_test "info threads" "No threads.*"
}
}
# Check that GDB gracefully handles the case of the hook-stop
# continuing the inferior in the foreground.
proc hook_stop_continue_fg {} {
with_test_prefix "hook-stop runs continue" {
global gdb_prompt
setup "if \$do_continue\nset \$do_continue = 0\ncontinue\nend"
gdb_test "print \$do_continue = 1" " = 1"
gdb_test "next" "Breakpoint.*func \\(\\) at .*set breakpoint here \\*/" \
"next triggering hook-stop"
gdb_test "next" "a = 2;" "next no hook-stop"
}
}
# Check that GDB gracefully handles the case of the hook-stop
# continuing the inferior in the background.
proc hook_stop_continue_bg {} {
with_test_prefix "hook-stop runs continue&" {
global gdb_prompt
setup "if \$do_continue\nset \$do_continue = 0\ncontinue&\nend"
gdb_test "print \$do_continue = 1" " = 1"
set test "run hook-stop"
gdb_test_multiple "continue" "$test" {
-re "Continuing.\r\n.*${gdb_prompt} " {
pass $test
}
}
set test "inferior exits normally"
gdb_test_multiple "" "$test" {
-re "exited normally" {
pass $test
}
}
gdb_test "info threads" "No threads.*"
}
}
# Check that GDB gracefully handles the case of the hook-stop running
# "next". GDB used to print the stop event twice.
proc hook_stop_next {} {
with_test_prefix "hook-stop runs next" {
global gdb_prompt
setup "next"
set test "run hook-stop"
gdb_test_multiple "continue" "$test" {
-re "a = 2.*a = 2${gdb_prompt} $" {
fail $test
}
-re "a = 2.*${gdb_prompt} $" {
pass $test
}
}
}
}
hook_stop_before_frame
hook_stop_kill
hook_stop_continue_fg
hook_stop_continue_bg
hook_stop_next
|
