1# Copyright 2008-2017 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, write to the Free Software 15# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 16# 17# This file is part of the gdb testsuite. 18 19# Test single stepping through atomic sequences beginning with 20# a lwarx/ldarx instruction and ending with a stwcx/stdcx 21# instruction. 22 23 24if {![istarget "powerpc*"] || ![is_lp64_target]} { 25 verbose "Skipping testing of powerpc64 single stepping over atomic sequences." 26 return 27} 28 29standard_testfile .S 30 31if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} {debug quiet}] } { 32 return -1 33} 34 35# The test proper. DISPLACED is true if we should try with displaced 36# stepping. 37proc do_test { displaced } { 38 global decimal hex 39 40 if ![runto_main] then { 41 untested "could not run to main" 42 return -1 43 } 44 45 gdb_test_no_output "set displaced-stepping $displaced" 46 47 set bp1 [gdb_get_line_number "lwarx"] 48 gdb_breakpoint "$bp1" "Breakpoint $decimal at $hex" \ 49 "set the breakpoint at the start of the lwarx/stwcx sequence" 50 51 set bp2 [gdb_get_line_number "ldarx"] 52 gdb_breakpoint "$bp2" "Breakpoint $decimal at $hex" \ 53 "set the breakpoint at the start of the ldarx/stdcx sequence" 54 55 gdb_test continue "Continuing.*Breakpoint $decimal.*" \ 56 "continue until lwarx/stwcx start breakpoint" 57 58 gdb_test nexti "bne.*1b" \ 59 "step through the lwarx/stwcx sequence" 60 61 gdb_test continue "Continuing.*Breakpoint $decimal.*" \ 62 "continue until ldarx/stdcx start breakpoint" 63 64 gdb_test nexti "bne.*1b" \ 65 "step through the ldarx/stdcx sequence" 66} 67 68foreach displaced { "off" "on" } { 69 with_test_prefix "displaced=$displaced" { 70 do_test $displaced 71 } 72} 73