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
|
# Copyright 2022 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/>.
# Test the "frame view" family of commands.
standard_testfile
if { [build_executable "failed to prepare" \
${testfile} ${srcfile}] } {
return
}
# If WITH_PRETTY_PRINTER is true, load pretty printers for the function
# parameter types, in which we do an inferior call. This is meant to test
# that the frame_info_ptr correctly reinflates frames created using
# "select-frame view".
proc test_select_frame_view { with_pretty_printer } {
clean_restart $::binfile
if { $with_pretty_printer } {
require allow_python_tests
}
if { ![runto_main] } {
return
}
if { $with_pretty_printer } {
set remote_python_file \
[gdb_remote_download host "${::srcdir}/${::subdir}/${::testfile}.py"]
gdb_test_no_output "source ${remote_python_file}" "load python file"
}
# Stop thread 2 at a baz.
gdb_test "break baz"
gdb_test "continue" "Thread 2.*hit Breakpoint $::decimal, baz .*"
# Grab the stack pointer and pc of thread 2's frame.
set frame_sp ""
set frame_pc ""
gdb_test_multiple "info frame" "" {
-re -wrap ".*frame at ($::hex):.*" {
set frame_sp $expect_out(1,string)
pass $gdb_test_name
}
}
gdb_test_multiple "print/x \$pc" "" {
-re -wrap " = ($::hex)" {
set frame_pc $expect_out(1,string)
pass $gdb_test_name
}
}
if { $frame_sp == "" || $frame_pc == "" } {
# Something must have failed and logged a failure above.
return
}
# Select thread 2's frame in thread 1.
gdb_test "thread 1" "Switching to thread 1 .*"
gdb_test_no_output "select-frame view $frame_sp $frame_pc"
if { $with_pretty_printer } {
# When the pretty printer does its infcall, it is done on the currently
# selected thread, thread 1 here. However, other threads are resumed
# at the same time. This causes thread 2 to exit during that infcall,
# leading to this weirdness:
#
# frame^M
# #0 baz (z=[Thread 0x7ffff7cc26c0 (LWP 417519) exited]^M
# hohoho) at /home/simark/src/binutils-gdb/gdb/testsuite/gdb.base/frame-view.c:35^M
# 35 return z.n + 2;^M
#
# Avoid that by setting scheduler-locking on.
gdb_test_no_output "set scheduler-locking on"
set z1_pattern "hahaha"
set z2_pattern "hohoho"
} else {
set z1_pattern "\\.\\.\\."
set z2_pattern "\\.\\.\\."
}
# Verify that the "frame" command does not change the selected frame.
# There used to be a bug where the "frame" command would lose the
# selection of user-created frames.
gdb_test "frame" "#0 baz \\(z1=$z1_pattern, z2=$z2_pattern\\).*" "frame"
gdb_test "frame" "#0 baz \\(z1=$z1_pattern, z2=$z2_pattern\\).*" "frame again"
}
foreach_with_prefix with_pretty_printer {false true} {
test_select_frame_view $with_pretty_printer
}
|
