xref: /netbsd-src/external/gpl3/gdb.old/dist/gdb/testsuite/gdb.arch/aarch64-sighandler-regs.exp (revision 22ebeae4b2252475e0ebe332f69734639cb946ea) 
1# Copyright 2018-2023 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.
17
18if {![is_aarch64_target]} {
19    verbose "Skipping ${gdb_test_file_name}."
20    return -1
21}
22
23set compile_flags {debug}
24
25if { [skip_aarch64_sve_tests] } {
26    unsupported "target does not support SVE"
27    set sve_hw 0
28} else {
29    set sve_hw 1
30    lappend compile_flags "additional_flags=-DSVE"
31}
32
33standard_testfile
34if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} ${compile_flags}] } {
35    return -1
36}
37
38if ![runto_main] {
39    return -1
40}
41
42set endianness [get_endianness]
43
44if {$endianness == "little"} {
45    set reg_handler_value_128 "0x5f5e5d5c5b5a59585756555453525150"
46    set reg_handler_value_64 "0x5756555453525150"
47    set reg_handler_value_32 "0x53525150"
48    set reg_handler_value_16 "0x5150"
49    set reg_handler_value_8 "0x50"
50    set reg_main_value_128 "0x1f1e1d1c1b1a19181716151413121110"
51    set reg_main_value_64 "0x1716151413121110"
52    set reg_main_value_32 "0x13121110"
53    set reg_main_value_16 "0x1110"
54    set reg_main_value_8 "0x10"
55} else {
56    set reg_handler_value_128 "0x505152535455565758595a5b5c5d5e5f"
57    set reg_handler_value_64 "0x5051525354555657"
58    set reg_handler_value_32 "0x50515253"
59    set reg_handler_value_16 "0x5051"
60    set reg_handler_value_8 "0x50"
61    set reg_main_value_128 "0x101112131415161718191a1b1c1d1e1f"
62    set reg_main_value_64 "0x1011121314151617"
63    set reg_main_value_32 "0x10111213"
64    set reg_main_value_16 "0x1011"
65    set reg_main_value_8 "0x10"
66}
67set zreg_handler_value "\\{0x5756555453525150, .*"
68set zreg_main_value "\\{0x1716151413121110, .*"
69set preg_handler_value "\\{0x11, .*"
70set preg_main_value "\\{0x1, 0x0, .*"
71
72#Ignore x0, and x29 to x31
73set xreg_nums [list 1 2 3 4 5 6 7 8 9 11 12 13 14 15 16 17 18 19 21 22 23 24 \
74		    25 26 27 28 ]
75set vreg_nums [list 0 1 2 3 4 5 6 7 8 9 11 12 13 14 15 16 17 18 19 21 22 23 \
76		    24 25 26 27 28 29 30 31]
77set preg_nums [list 0 1 2 3 4 5 6 7 8 9 11 12 13 14 15]
78
79proc check_regs {regtype regnums value postfix} {
80  foreach regnum $regnums {
81    gdb_test "print /x \$$regtype$regnum$postfix" \
82      ".* = {?$value}?" \
83      "check register \$$regtype$regnum has value $value"
84  }
85}
86
87# Run until end of signal handler
88
89gdb_test "continue" \
90    "Continuing.*Program received signal SIGILL.*" \
91    "continue until signal"
92
93gdb_breakpoint [gdb_get_line_number "exit(0)"]
94gdb_continue_to_breakpoint "exit" ".*exit.*"
95
96set handlerframe [get_current_frame_number]
97set mainframe [expr $handlerframe + 2]
98
99
100# Check register values
101
102with_test_prefix "handler frame 1st" {
103  check_regs x $xreg_nums $reg_handler_value_64 ""
104  check_regs v $vreg_nums $reg_handler_value_128 ".q.u"
105  check_regs q $vreg_nums $reg_handler_value_128 ".u"
106  check_regs d $vreg_nums $reg_handler_value_64 ".u"
107  check_regs s $vreg_nums $reg_handler_value_32 ".u"
108  check_regs h $vreg_nums $reg_handler_value_16 ".u"
109  check_regs b $vreg_nums $reg_handler_value_8 ".u"
110  if { $sve_hw } {
111    check_regs z $vreg_nums $zreg_handler_value ".d.u"
112    check_regs p $preg_nums $preg_handler_value ""
113  }
114}
115
116# Switch to the frame for main(), and check register values
117
118gdb_test "frame $mainframe" \
119      "#$mainframe.*in main ().*" \
120      "set to main frame"
121
122
123with_test_prefix "main frame" {
124  check_regs x $xreg_nums $reg_main_value_64 ""
125  check_regs v $vreg_nums $reg_main_value_128 ".q.u"
126  check_regs q $vreg_nums $reg_main_value_128 ".u"
127  check_regs d $vreg_nums $reg_main_value_64 ".u"
128  check_regs s $vreg_nums $reg_main_value_32 ".u"
129  check_regs h $vreg_nums $reg_main_value_16 ".u"
130  check_regs b $vreg_nums $reg_main_value_8 ".u"
131  if { $sve_hw } {
132    check_regs z $vreg_nums $zreg_main_value ".d.u"
133    check_regs p $preg_nums $preg_main_value ""
134  }
135}
136
137# Switch back to the signal handler frame, and check register values
138
139gdb_test "frame $handlerframe" \
140      "#$handlerframe.*handler \\\(sig=4\\\).*" \
141      "set to signal handler frame"
142
143with_test_prefix "handler frame 2nd" {
144  check_regs x $xreg_nums $reg_handler_value_64 ""
145  check_regs v $vreg_nums $reg_handler_value_128 ".q.u"
146  check_regs q $vreg_nums $reg_handler_value_128 ".u"
147  check_regs d $vreg_nums $reg_handler_value_64 ".u"
148  check_regs s $vreg_nums $reg_handler_value_32 ".u"
149  check_regs h $vreg_nums $reg_handler_value_16 ".u"
150  check_regs b $vreg_nums $reg_handler_value_8 ".u"
151  if { $sve_hw } {
152    check_regs z $vreg_nums $zreg_handler_value ".d.u"
153    check_regs p $preg_nums $preg_handler_value ""
154}
155}
156