gdb/testsuite/gdb.arch/powerpc-addpcis.exp

   1 # Copyright 2021-2022 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
  17 # Test to confirm that gdb is properly single stepping over the
  18 # displaced addpcis instruction.
  19 # The addpcis instruction and its extended mnemonics lnia and subpcis
  20 # apply an immediate shifted value (X || 0x0000) to the current PC/NIA
  21 # value, and store that value into the instructions target register.
  22 # When the instruction is displaced, it needs special handling.
  23
  24 # lnia Rx == addpcis Rx,0
  25 # subcis Rx,value == addpcis Rx,-value
  26
  27 if { ![istarget powerpc*-*] } {
  28     verbose "Skipping powerpc addpcis test."
  29     return
  30 }
  31
  32 set retval 0
  33
  34 standard_testfile .s
  35
  36 if { [prepare_for_testing "failed to prepare" $testfile "$srcfile" \
  37       {debug quiet}] } {
  38     return -1
  39 }
  40
  41 if {![runto_main]} {
  42       return
  43 }
  44
  45 set check_pc [get_hexadecimal_valueof "\$pc" "default0"]
  46 set bp1 *$check_pc+4
  47 set bp2 *$check_pc+12
  48 set bp3 *$check_pc+16
  49 gdb_breakpoint $bp1
  50 gdb_breakpoint $bp2
  51 gdb_breakpoint $bp3
  52
  53 set insn_supported 1
  54 gdb_test_multiple "stepi" "set r3" {
  55     -re "Program received signal SIGILL, Illegal instruction\\..*" {
  56         set insn_supported 0
  57     }
  58     -re -wrap "" {
  59         pass $gdb_test_name
  60     }
  61 }
  62 if { ! $insn_supported } {
  63     unsupported "illegal instruction"
  64     return
  65 }
  66 set check_r3 [get_hexadecimal_valueof "\$r3" "default0"]
  67 gdb_test "stepi" "" "set r4"
  68 set check_r4 [get_hexadecimal_valueof "\$r4" "default0"]
  69 gdb_test "stepi" "" "set r5"
  70 set check_r5 [get_hexadecimal_valueof "\$r5" "default0"]
  71 gdb_test "stepi" "" "set r6"
  72 set check_r6 [get_hexadecimal_valueof "\$r6" "default0"]
  73 gdb_test "stepi" "" "set r7"
  74 set check_r7 [get_hexadecimal_valueof "\$r7" "default0"]
  75 gdb_test "stepi" "" "set r8"
  76 set check_r8 [get_hexadecimal_valueof "\$r8" "default0"]
  77 gdb_test "stepi" "" "set r9"
  78 set check_r9 [get_hexadecimal_valueof "\$r9" "default0"]
  79
  80 # R6 will contain the reference value.  All other
  81 # instructions in this test will be storing values
  82 # relative to what is stored in R6.
  83
  84 #       subpcis 3,+0x100        # /* set r3 */
  85 #       subpcis 4,+0x10         # /* set r4 */
  86 #       subpcis 5,+0x1          # /* set r5 */
  87 #       lnia    6               # /* set r6 */
  88 #       addpcis 7,+0x1          # /* set r7 */
  89 #       addpcis 8,+0x10         # /* set r8 */
  90 #       addpcis 9,+0x100        # /* set r9 */
  91
  92 if [expr $check_r3 + 0x1000000   != $check_r6 - 0xc ] {
  93     fail "unexpected value r3 + 0x1,000,000 != r6 + 0xc ; r3: $check_r3  r6: $check_r6 "
  94 }
  95 if [expr $check_r4 + 0x100000  != $check_r6 - 0x8 ] {
  96     fail "unexpected value r4 + 0x100,000 != r6 - 0x8 ; r4: $check_r4  r6: $check_r6 "
  97 }
  98 if [expr $check_r5 + 0x10000  != $check_r6 - 0x4 ] {
  99     fail "unexpected value r5 + 0x10,000 != r6 , r5: $check_r5  r6: $check_r6 "
 100 }
 101 if [expr $check_r6 != $check_r6] {
 102     fail "unexpected value r6 != r6 , r6: $check_r6  r6: $check_r6 "
 103 }
 104 if [expr $check_r7 - 0x10000  != $check_r6 + 0x4] {
 105     fail "unexpected value r7 - 0x10,000 != r6 + 0x4 , r7: $check_r7  r7: $check_r6 "
 106 }
 107 if [expr $check_r8 - 0x100000  != $check_r6 + 0x8 ] {
 108     fail "unexpected value r8 - 0x100,000 != r6 , r8: $check_r8  r8: $check_r6 "
 109 }
 110 if [expr $check_r9 - 0x1000000  != $check_r6 + 0xc ] {
 111     fail "unexpected value r9 - 0x1,000,000 != r6 + 0xc , r9: $check_r9  r6: $check_r6 "
 112 }
 113
 114 gdb_test "info break"
 115 gdb_test "info register r3 r4 r5 r6 r7 r8 r9"
 116 gdb_test "disas main"
 117