1 # Copyright 2019-2020 Free Software Foundation, Inc.
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.
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.
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/>.
18 if { [prepare_for_testing "failed to prepare" "skip-inline" \
19 {skip-inline.c skip1.c } \
20 {debug nowarnings}] } {
24 set srcfile skip-inline.c
28 fail "can't run to main"
32 # Create a skiplist entry for a specified file and function.
34 gdb_test "skip function foo" "Function foo will be skipped when stepping\."
36 gdb_test "bt" "\\s*\\#0\\s+main.*" "in the main"
37 gdb_test "step" ".*" "step into baz, since foo will be skipped"
38 gdb_test "bt" "\\s*\\#0\\s+baz.*" "in the baz, since foo was skipped"
39 gdb_test "step" ".*" "step in the baz"
40 gdb_test "bt" "\\s*\\#0\\s+baz.*" "still in the baz"
41 gdb_test "step" ".*" "step back to main"
42 gdb_test "bt" "\\s*\\#0\\s+main.*" "again in the main"
43 gdb_test "step" ".*" "step again into baz, since foo will be skipped"
44 gdb_test "bt" "\\s*\\#0\\s+baz.*" "again in the baz"
45 gdb_test "step" ".*" "step in the baz, again"
46 gdb_test "bt" "\\s*\\#0\\s+baz.*" "still in the baz, again"
47 gdb_test "step" ".*" "step back to main, again"
48 gdb_test "bt" "\\s*\\#0\\s+main.*" "again back to main"
51 fail "can't run to main"
55 with_test_prefix "double step" {
56 gdb_test "bt" "\\s*\\#0\\s+main.*" "in the main"
57 gdb_test "step 2" ".*" "step into baz, since foo will be skipped"
58 gdb_test "bt" "\\s*\\#0\\s+baz.*" "still in the baz"
59 gdb_test "step" ".*" "step back to main"
60 gdb_test "bt" "\\s*\\#0\\s+main.*" "again in the main"
61 gdb_test "step 2" ".*" "step again into baz, since foo will be skipped"
62 gdb_test "bt" "\\s*\\#0\\s+baz.*" "again in the baz"
63 gdb_test "step" ".*" "step back to main, again"
64 gdb_test "bt" "\\s*\\#0\\s+main.*" "again back to main"
68 fail "can't run to main"
72 with_test_prefix "triple step" {
73 gdb_test "bt" "\\s*\\#0\\s+main.*" "in the main"
74 gdb_test "step 3" ".*" "step over baz"
75 gdb_test "bt" "\\s*\\#0\\s+main.*" "again in the main"
76 gdb_test "step 3" ".*" "step over baz, again"
77 gdb_test "bt" "\\s*\\#0\\s+main.*" "again back to main"
81 fail "can't run to main"
85 gdb_test "skip delete" ".*" "skip delete"
87 with_test_prefix "skip current frame" {
88 gdb_test "bt" "\\s*\\#0\\s+main.*" "in the main"
89 gdb_test "step" ".*" "step into foo"
90 gdb_test "bt" "\\s*\\#0\\s+foo.*" "in the foo"
91 gdb_test "skip" "Function foo will be skipped when stepping\." "skip"