gdb/testsuite/gdb.arch/ppc64-atomic-inst.exp

   1 # Copyright 2008-2016 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
  24 if {![istarget "powerpc*"] || ![is_lp64_target]} {
  25     verbose "Skipping testing of powerpc64 single stepping over atomic sequences."
  26     return
  27 }
  28
  29 standard_testfile .S
  30
  31 if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} {debug quiet}] } {
  32     return -1
  33 }
  34
  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"
  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
  68 foreach displaced { "off" "on" } {
  69     with_test_prefix "displaced=$displaced" {
  70         do_test $displaced
  71     }
  72 }