1 # Copyright
2004, 2007, 2008 Free Software Foundation
, Inc.
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.
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.
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
/>.
16 # This file is part of the gdb testsuite.
22 # Test rs6000 prologue analyzer.
27 if ![istarget
"powerpc-*-aix*"] then {
28 verbose
"Skipping powerpc-aix prologue tests."
32 set testfile
"powerpc-aix-prologue"
33 set srcfile $
{testfile
}.c
34 set binfile $
{objdir
}/$
{subdir
}/$
{testfile
}
35 if { [gdb_compile
"${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {}] != "" } {
36 unsupported
"Testcase compile failed."
42 gdb_reinitialize_dir $srcdir
/$subdir
45 # Insert a breakpoint in FUNCTION and verifies that the breakpoint was
46 # inserted at the expected location. EXPECTED_LOCATION should be an
47 # offset relative to the function start address.
48 proc insert_breakpoint
{function expected_location
} {
55 # Insert a breakpoint using the given function
name, and extract
56 # the breakpoint address
for the output.
57 gdb_test_multiple
"break $function" "set breakpoint in $function" {
58 -re
"Breakpoint 1 at ($hex).*$gdb_prompt $" {
59 set address $expect_out
(1,string
)
62 fail
"set breakpoint in $function"
66 #
If we managed to
get the breakpoing address
, then check that
67 # we inserted it at the expected location by examining the
68 # instruction at that address
(we
're not interested in the insn
69 # itself, but rather at the address printed at the begining of
71 if { $address != "" } then {
72 gdb_test "x /i $address" \
73 ".*<$function\\+$expected_location>.*" \
74 "check $function breakpoint address"
76 fail "unable to compute breakpoint address"
81 insert_breakpoint "li_stw" 12