blob: 18ec4f1e7a416dbfb1323323fdc2720f22673afb (
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
|
# Copyright 2019-2023 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/>.
# This tests GDB's ability to handle 6 and 8 byte instructions in the
# RISC-V prologue scanner. These instruction should be ignored, but
# should not result in an error that interrupts the debug session.
#
# Each of the files riscv-unwind-long-insn-*.s include a function
# (func) that contains a fake long instruction (6 or 8 bytes) in the
# prologue. We trick GDB into parsing the fake instruction by tail
# calling from a different function, 'bar' to the middle of 'func'.
if {![istarget "riscv*-*-*"]} {
verbose "Skipping ${gdb_test_file_name}."
return
}
standard_testfile riscv-unwind-long-insn.c \
riscv-unwind-long-insn.S
foreach_with_prefix {insn_size} {6 8} {
set flags [list debug additional_flags=-DBAD_INSN_LEN=${insn_size}]
set testfile "${testfile}-${insn_size}"
if {[prepare_for_testing "failed to prepare" $testfile \
"$srcfile $srcfile2" $flags]} {
return -1
}
if {![runto_main]} {
return 0
}
gdb_breakpoint "bar"
gdb_continue_to_breakpoint "bar"
# This next single instruction step takes us through a tail-call
# from 'bar' into 'func'.
gdb_test "si" "func \(\).*"
# Now check that we have a sane backtrace.
gdb_test "bt" \
[multi_line \
"#0\[ \t\]*func \\\(\\\) at .*$srcfile2:\[0-9\]+" \
"#1\[ \t\]*$hex in main \\\(\\\) at .*$srcfile:\[0-9\]+"] \
"Backtrace to the main frame"
# Finally finish, and we should end up back in main.
gdb_test "finish" "main \\\(\\\) at .*$srcfile:.*"
}
|
