gdb/testsuite/gdb.arch/aarch64-sighandler-regs.exp

   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
  18 if {![is_aarch64_target]} {
  19     verbose "Skipping ${gdb_test_file_name}."
  20     return -1
  21 }
  22
  23 set compile_flags {debug}
  24
  25 if { [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
  33 standard_testfile
  34 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} ${compile_flags}] } {
  35     return -1
  36 }
  37
  38 if ![runto_main] {
  39     return -1
  40 }
  41
  42 set endianness [get_endianness]
  43
  44 if {$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 }
  67 set zreg_handler_value "\\{0x5756555453525150, .*"
  68 set zreg_main_value "\\{0x1716151413121110, .*"
  69 set preg_handler_value "\\{0x11, .*"
  70 set preg_main_value "\\{0x1, 0x0, .*"
  71
  72 #Ignore x0, and x29 to x31
  73 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 \
  74                     25 26 27 28 ]
  75 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 \
  76                     24 25 26 27 28 29 30 31]
  77 set preg_nums [list 0 1 2 3 4 5 6 7 8 9 11 12 13 14 15]
  78
  79 proc 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
  89 gdb_test "continue" \
  90     "Continuing.*Program received signal SIGILL.*" \
  91     "continue until signal"
  92
  93 gdb_breakpoint [gdb_get_line_number "exit(0)"]
  94 gdb_continue_to_breakpoint "exit" ".*exit.*"
  95
  96 set handlerframe [get_current_frame_number]
  97 set mainframe [expr $handlerframe + 2]
  98
  99
 100 # Check register values
 101
 102 with_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
 118 gdb_test "frame $mainframe" \
 119       "#$mainframe.*in main ().*" \
 120       "set to main frame"
 121
 122
 123 with_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
 139 gdb_test "frame $handlerframe" \
 140       "#$handlerframe.*handler \\\(sig=4\\\).*" \
 141       "set to signal handler frame"
 142
 143 with_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 }