Commit | Line | Data |
---|---|---|
618f726f | 1 | # Copyright 2008-2016 Free Software Foundation, Inc. |
fb546a2f LM |
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 | ||
fb546a2f LM |
19 | # Test single stepping through atomic sequences beginning with |
20 | # a lwarx/ldarx instruction and ending with a stwcx/stdcx | |
21 | # instruction. | |
22 | ||
fb546a2f | 23 | |
add265ae | 24 | if {![istarget "powerpc*"] || ![is_lp64_target]} { |
fb546a2f LM |
25 | verbose "Skipping testing of powerpc64 single stepping over atomic sequences." |
26 | return | |
27 | } | |
28 | ||
3114cea1 | 29 | standard_testfile .S |
fb546a2f | 30 | |
5b362f04 | 31 | if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} {debug quiet}] } { |
fb546a2f LM |
32 | return -1 |
33 | } | |
34 | ||
7f03bd92 PA |
35 | # The test proper. DISPLACED is true if we should try with displaced |
36 | # stepping. | |
37 | proc 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" | |
fb546a2f | 46 | |
7f03bd92 PA |
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" | |
fb546a2f | 50 | |
7f03bd92 PA |
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" | |
62f7182c | 54 | |
7f03bd92 PA |
55 | gdb_test continue "Continuing.*Breakpoint $decimal.*" \ |
56 | "Continue until lwarx/stwcx start breakpoint" | |
fb546a2f | 57 | |
7f03bd92 PA |
58 | gdb_test nexti "bne.*1b" \ |
59 | "Step through the lwarx/stwcx sequence" | |
fb546a2f | 60 | |
7f03bd92 PA |
61 | gdb_test continue "Continuing.*Breakpoint $decimal.*" \ |
62 | "Continue until ldarx/stdcx start breakpoint" | |
62f7182c | 63 | |
7f03bd92 PA |
64 | gdb_test nexti "bne.*1b" \ |
65 | "Step through the ldarx/stdcx sequence" | |
66 | } | |
67 | ||
68 | foreach displaced { "off" "on" } { | |
69 | with_test_prefix "displaced=$displaced" { | |
70 | do_test $displaced | |
71 | } | |
72 | } |