1# Copyright 2009-2020 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# This file is part of the GDB testsuite.  It tests reverse debugging
17# with shared libraries.
18
19if ![supports_reverse] {
20    return
21}
22if {[skip_shlib_tests]} {
23    return
24}
25
26standard_testfile
27set lib1file "shr1"
28set lib1src  ${lib1file}.c
29set library1 [standard_output_file ${lib1file}.sl]
30set lib2file "shr2"
31set lib2src  ${lib2file}.c
32set library2 [standard_output_file ${lib2file}.sl]
33
34if [get_compiler_info] {
35    return -1
36}
37
38# Compile the first without debug info so that
39# stepping and reverse stepping doesn't end up inside them.
40if { [gdb_compile_shlib ${srcdir}/${subdir}/${lib1src} ${library1} ""] != "" } {
41    untested "failed to compile shared library 1"
42    return -1
43}
44
45if { [gdb_compile_shlib ${srcdir}/${subdir}/${lib2src} ${library2} "debug"] != "" } {
46    untested "failed to compile shared library 2"
47    return -1
48}
49
50set exec_opts [list debug shlib=${library1} shlib=${library2}]
51
52if { [gdb_compile ${srcdir}/${subdir}/${srcfile} ${binfile} executable $exec_opts] != "" } {
53    untested "failed to compile"
54    return -1
55}
56
57# Start with a fresh gdb.
58
59gdb_exit
60gdb_start
61
62# Note: The test previously did "set debug-file-directory" to (try to)
63# ensure the debug info for the dynamic loader and libc weren't found.
64# This doesn't work if the debug info is in the .debug subdirectory.
65# Avoiding debug info for system libraries is not germaine to this test
66# and is no longer attempted.  Instead, the test does not make assumptions
67# about whether the debug info is present or not.
68
69gdb_reinitialize_dir $srcdir/$subdir
70gdb_load ${binfile}
71gdb_load_shlib $library1
72gdb_load_shlib $library2
73
74runto main
75
76if [supports_process_record] {
77    # Activate process record/replay
78    gdb_test_no_output "record" "turn on process record"
79}
80
81#
82# Test reverse-step over undebuggable solib functions.
83#
84
85# Run forward past some solib function calls.
86
87set end_part_one [gdb_get_line_number " end part one" "$srcfile"]
88set end_part_two [gdb_get_line_number " end part two" "$srcfile"]
89gdb_test_multiple "until $end_part_one" "run until end part one" {
90    -wrap -re " end part one.*" {
91	pass $gdb_test_name
92    }
93    -wrap -re "Process record does not support instruction 0xfae64 at.*" {
94	kfail "gdb/25038" $gdb_test_name
95	return -1
96    }
97}
98
99gdb_test "reverse-step" " shr1 three .*" "reverse-step third shr1"
100gdb_test "reverse-step" " shr1 two .*"   "reverse-step second shr1"
101gdb_test "reverse-step" " shr1 one .*"   "reverse-step first shr1"
102
103gdb_test "reverse-step" " generic statement.*" "reverse-step generic"
104
105
106#
107# Test reverse-next over undebuggable solib functions.
108#
109
110# Run forward again...
111
112gdb_test "until $end_part_one" " end part one.*" "forward to end part one"
113
114gdb_test "reverse-next" " shr1 three .*" "reverse-next third shr1"
115gdb_test "reverse-next" " shr1 two .*"   "reverse-next second shr1"
116gdb_test "reverse-next" " shr1 one .*"   "reverse-next first shr1"
117
118gdb_test "reverse-next" " generic statement.*" "reverse-next generic"
119
120
121#
122# Test reverse-step into debuggable solib function
123#
124
125gdb_test_multiple "reverse-step" "reverse-step into solib function one" {
126    -re -wrap "middle part two.*" {
127	send_gdb "reverse-step\n"
128	exp_continue
129    }
130    -re -wrap "${lib2src}.*" {
131	pass $gdb_test_name
132    }
133}
134gdb_test "reverse-step" "return 2.x.*" "reverse-step within solib function one"
135gdb_test "reverse-step" " middle part two.*" "reverse-step back to main one"
136
137gdb_test_multiple "reverse-step" "reverse-step into solib function two" {
138    -re -wrap "begin part two.*" {
139	send_gdb "reverse-step\n"
140	exp_continue
141    }
142    -re -wrap "${lib2src}.*" {
143	pass $gdb_test_name
144    }
145}
146gdb_test "reverse-step" "return 2.x.*" "reverse-step within solib function two"
147gdb_test "reverse-step" " begin part two.*" "reverse-step back to main two"
148
149#
150# Test reverse-next over debuggable solib function
151#
152
153gdb_test "until $end_part_two" " end part two.*" "run until end part two"
154
155gdb_test "reverse-next" " middle part two.*" "reverse-next over solib function one"
156gdb_test_multiple "reverse-next" "reverse-next over solib function two" {
157    -re -wrap "middle part two.*" {
158	send_gdb "reverse-next\n"
159	exp_continue
160    }
161    -re -wrap " begin part two.*" {
162	pass $gdb_test_name
163    }
164}
165