mirror of
https://github.com/espressif/binutils-gdb.git
synced 2025-08-02 19:46:09 +08:00
e3d528d7e6
This addresses PR gdb/27525. The lnia and other variations
of the addpcis instruction write the value of the NIA into a target register.
If we are single-stepping across a breakpoint, the instruction is executed
from a displaced location, and thusly the written value of the PC/NIA
will be incorrect. The changes here will measure the displacement
offset, and adjust the target register value to compensate.
YYYY-MM-DD Will Schmidt <will_schmidt@vnet.ibm.com>
gdb/ChangeLog:
* rs6000-tdep.c (ppc_displaced_step_fixup): Update to handle
the addpcis/lnia instruction.
gdb/testsuite/ChangeLog:
* gdb.arch/powerpc-addpcis.exp: Testcase harness to
exercise single-stepping over subpcis,lnia,addpcis instructions
with displacement.
* gdb.arch/powerpc-addpcis.s: Testcase with stream
of addpcis/lnia/subpcis instructions.
* gdb.arch/powerpc-lnia.exp: Testcase harness to exercise
single-stepping over lnia instructions with displacement.
* gdb.arch/powerpc-lnia.s: Testcase with stream of
lnia instructions.
106 lines
3.5 KiB
Plaintext
106 lines
3.5 KiB
Plaintext
# Copyright 2021 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/>.
|
|
|
|
|
|
# Test to confirm that gdb is properly single stepping over the
|
|
# displaced addpcis instruction.
|
|
# The addpcis instruction and its extended mnemonics lnia and subpcis
|
|
# apply an immediate shifted value (X || 0x0000) to the current PC/NIA
|
|
# value, and store that value into the instructions target register.
|
|
# When the instruction is displaced, it needs special handling.
|
|
|
|
# lnia Rx == addpcis Rx,0
|
|
# subcis Rx,value == addpcis Rx,-value
|
|
|
|
if { ![istarget powerpc*-*] } {
|
|
verbose "Skipping powerpc addpcis test."
|
|
return
|
|
}
|
|
|
|
set retval 0
|
|
|
|
standard_testfile .s
|
|
|
|
if { [prepare_for_testing "failed to prepare" $testfile "$srcfile" \
|
|
{debug quiet}] } {
|
|
return -1
|
|
}
|
|
|
|
if ![runto_main] then {
|
|
return
|
|
}
|
|
|
|
set check_pc [get_hexadecimal_valueof "\$pc" "default0"]
|
|
set bp1 *$check_pc+4
|
|
set bp2 *$check_pc+12
|
|
set bp3 *$check_pc+16
|
|
gdb_breakpoint $bp1
|
|
gdb_breakpoint $bp2
|
|
gdb_breakpoint $bp3
|
|
|
|
gdb_test "stepi" "" "set r3 "
|
|
set check_r3 [get_hexadecimal_valueof "\$r3" "default0"]
|
|
gdb_test "stepi" "" "set r4"
|
|
set check_r4 [get_hexadecimal_valueof "\$r4" "default0"]
|
|
gdb_test "stepi" "" "set r5"
|
|
set check_r5 [get_hexadecimal_valueof "\$r5" "default0"]
|
|
gdb_test "stepi" "" "set r6"
|
|
set check_r6 [get_hexadecimal_valueof "\$r6" "default0"]
|
|
gdb_test "stepi" "" "set r7"
|
|
set check_r7 [get_hexadecimal_valueof "\$r7" "default0"]
|
|
gdb_test "stepi" "" "set r8"
|
|
set check_r8 [get_hexadecimal_valueof "\$r8" "default0"]
|
|
gdb_test "stepi" "" "set r9"
|
|
set check_r9 [get_hexadecimal_valueof "\$r9" "default0"]
|
|
|
|
# R6 will contain the reference value. All other
|
|
# instructions in this test will be storing values
|
|
# relative to what is stored in R6.
|
|
|
|
# subpcis 3,+0x100 # /* set r3 */
|
|
# subpcis 4,+0x10 # /* set r4 */
|
|
# subpcis 5,+0x1 # /* set r5 */
|
|
# lnia 6 # /* set r6 */
|
|
# addpcis 7,+0x1 # /* set r7 */
|
|
# addpcis 8,+0x10 # /* set r8 */
|
|
# addpcis 9,+0x100 # /* set r9 */
|
|
|
|
if [expr $check_r3 + 0x1000000 != $check_r6 - 0xc ] {
|
|
fail "unexpected value r3 + 0x1,000,000 != r6 + 0xc ; r3: $check_r3 r6: $check_r6 "
|
|
}
|
|
if [expr $check_r4 + 0x100000 != $check_r6 - 0x8 ] {
|
|
fail "unexpected value r4 + 0x100,000 != r6 - 0x8 ; r4: $check_r4 r6: $check_r6 "
|
|
}
|
|
if [expr $check_r5 + 0x10000 != $check_r6 - 0x4 ] {
|
|
fail "unexpected value r5 + 0x10,000 != r6 , r5: $check_r5 r6: $check_r6 "
|
|
}
|
|
if [expr $check_r6 != $check_r6] {
|
|
fail "unexpected value r6 != r6 , r6: $check_r6 r6: $check_r6 "
|
|
}
|
|
if [expr $check_r7 - 0x10000 != $check_r6 + 0x4] {
|
|
fail "unexpected value r7 - 0x10,000 != r6 + 0x4 , r7: $check_r7 r7: $check_r6 "
|
|
}
|
|
if [expr $check_r8 - 0x100000 != $check_r6 + 0x8 ] {
|
|
fail "unexpected value r8 - 0x100,000 != r6 , r8: $check_r8 r8: $check_r6 "
|
|
}
|
|
if [expr $check_r9 - 0x1000000 != $check_r6 + 0xc ] {
|
|
fail "unexpected value r9 - 0x1,000,000 != r6 + 0xc , r9: $check_r9 r6: $check_r6 "
|
|
}
|
|
|
|
gdb_test "info break"
|
|
gdb_test "info register r3 r4 r5 r6 r7 r8 r9"
|
|
gdb_test "disas main"
|
|
|