155 lines
5 KiB
Text
155 lines
5 KiB
Text
# Copyright 2018-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/>.
|
|
#
|
|
# This file is part of the gdb testsuite.
|
|
|
|
if {![is_aarch64_target]} {
|
|
verbose "Skipping ${gdb_test_file_name}."
|
|
return -1
|
|
}
|
|
|
|
set compile_flags {debug}
|
|
|
|
if { [skip_aarch64_sve_tests] } {
|
|
unsupported "target does not support SVE"
|
|
set sve_hw 0
|
|
} else {
|
|
set sve_hw 1
|
|
lappend compile_flags "additional_flags=-DSVE"
|
|
}
|
|
|
|
standard_testfile
|
|
if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} ${compile_flags}] } {
|
|
return -1
|
|
}
|
|
|
|
if ![runto_main] {
|
|
return -1
|
|
}
|
|
|
|
set endianness [get_endianness]
|
|
|
|
if {$endianness == "little"} {
|
|
set reg_handler_value_128 "0x5f5e5d5c5b5a59585756555453525150"
|
|
set reg_handler_value_64 "0x5756555453525150"
|
|
set reg_handler_value_32 "0x53525150"
|
|
set reg_handler_value_16 "0x5150"
|
|
set reg_handler_value_8 "0x50"
|
|
set reg_main_value_128 "0x1f1e1d1c1b1a19181716151413121110"
|
|
set reg_main_value_64 "0x1716151413121110"
|
|
set reg_main_value_32 "0x13121110"
|
|
set reg_main_value_16 "0x1110"
|
|
set reg_main_value_8 "0x10"
|
|
} else {
|
|
set reg_handler_value_128 "0x505152535455565758595a5b5c5d5e5f"
|
|
set reg_handler_value_64 "0x5051525354555657"
|
|
set reg_handler_value_32 "0x50515253"
|
|
set reg_handler_value_16 "0x5051"
|
|
set reg_handler_value_8 "0x50"
|
|
set reg_main_value_128 "0x101112131415161718191a1b1c1d1e1f"
|
|
set reg_main_value_64 "0x1011121314151617"
|
|
set reg_main_value_32 "0x10111213"
|
|
set reg_main_value_16 "0x1011"
|
|
set reg_main_value_8 "0x10"
|
|
}
|
|
set zreg_handler_value "\\{0x5756555453525150, .*"
|
|
set zreg_main_value "\\{0x1716151413121110, .*"
|
|
set preg_handler_value "\\{0x11, .*"
|
|
set preg_main_value "\\{0x1, 0x0, .*"
|
|
|
|
#Ignore x0, and x29 to x31
|
|
set 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 \
|
|
25 26 27 28 ]
|
|
set 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 \
|
|
24 25 26 27 28 29 30 31]
|
|
set preg_nums [list 0 1 2 3 4 5 6 7 8 9 11 12 13 14 15]
|
|
|
|
proc check_regs {regtype regnums value postfix} {
|
|
foreach regnum $regnums {
|
|
gdb_test "print /x \$$regtype$regnum$postfix" \
|
|
".* = {?$value}?" \
|
|
"check register \$$regtype$regnum has value $value"
|
|
}
|
|
}
|
|
|
|
# Run until end of signal handler
|
|
|
|
gdb_test "continue" \
|
|
"Continuing.*Program received signal SIGILL.*" \
|
|
"continue until signal"
|
|
|
|
gdb_breakpoint [gdb_get_line_number "exit(0)"]
|
|
gdb_continue_to_breakpoint "exit" ".*exit.*"
|
|
|
|
set handlerframe [get_current_frame_number]
|
|
set mainframe [expr $handlerframe + 2]
|
|
|
|
|
|
# Check register values
|
|
|
|
with_test_prefix "handler frame 1st" {
|
|
check_regs x $xreg_nums $reg_handler_value_64 ""
|
|
check_regs v $vreg_nums $reg_handler_value_128 ".q.u"
|
|
check_regs q $vreg_nums $reg_handler_value_128 ".u"
|
|
check_regs d $vreg_nums $reg_handler_value_64 ".u"
|
|
check_regs s $vreg_nums $reg_handler_value_32 ".u"
|
|
check_regs h $vreg_nums $reg_handler_value_16 ".u"
|
|
check_regs b $vreg_nums $reg_handler_value_8 ".u"
|
|
if { $sve_hw } {
|
|
check_regs z $vreg_nums $zreg_handler_value ".d.u"
|
|
check_regs p $preg_nums $preg_handler_value ""
|
|
}
|
|
}
|
|
|
|
# Switch to the frame for main(), and check register values
|
|
|
|
gdb_test "frame $mainframe" \
|
|
"#$mainframe.*in main ().*" \
|
|
"set to main frame"
|
|
|
|
|
|
with_test_prefix "main frame" {
|
|
check_regs x $xreg_nums $reg_main_value_64 ""
|
|
check_regs v $vreg_nums $reg_main_value_128 ".q.u"
|
|
check_regs q $vreg_nums $reg_main_value_128 ".u"
|
|
check_regs d $vreg_nums $reg_main_value_64 ".u"
|
|
check_regs s $vreg_nums $reg_main_value_32 ".u"
|
|
check_regs h $vreg_nums $reg_main_value_16 ".u"
|
|
check_regs b $vreg_nums $reg_main_value_8 ".u"
|
|
if { $sve_hw } {
|
|
check_regs z $vreg_nums $zreg_main_value ".d.u"
|
|
check_regs p $preg_nums $preg_main_value ""
|
|
}
|
|
}
|
|
|
|
# Switch back to the signal handler frame, and check register values
|
|
|
|
gdb_test "frame $handlerframe" \
|
|
"#$handlerframe.*handler \\\(sig=4\\\).*" \
|
|
"set to signal handler frame"
|
|
|
|
with_test_prefix "handler frame 2nd" {
|
|
check_regs x $xreg_nums $reg_handler_value_64 ""
|
|
check_regs v $vreg_nums $reg_handler_value_128 ".q.u"
|
|
check_regs q $vreg_nums $reg_handler_value_128 ".u"
|
|
check_regs d $vreg_nums $reg_handler_value_64 ".u"
|
|
check_regs s $vreg_nums $reg_handler_value_32 ".u"
|
|
check_regs h $vreg_nums $reg_handler_value_16 ".u"
|
|
check_regs b $vreg_nums $reg_handler_value_8 ".u"
|
|
if { $sve_hw } {
|
|
check_regs z $vreg_nums $zreg_handler_value ".d.u"
|
|
check_regs p $preg_nums $preg_handler_value ""
|
|
}
|
|
}
|