1 |
24 |
jeremybenn |
# Copyright 2006, 2007, 2008 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, see .
|
15 |
|
|
|
16 |
|
|
# Test PowerPC prologue analyzer.
|
17 |
|
|
|
18 |
|
|
# Do not run on AIX (where we won't be able to build the tests without
|
19 |
|
|
# some surgery) or on PowerPC64 (ditto, dot symbols).
|
20 |
|
|
if {[istarget *-*-aix*] || ![istarget "powerpc-*-*"]} then {
|
21 |
|
|
verbose "Skipping PowerPC prologue tests."
|
22 |
|
|
return
|
23 |
|
|
}
|
24 |
|
|
|
25 |
|
|
set testfile "powerpc-prologue"
|
26 |
|
|
set srcfile ${testfile}.c
|
27 |
|
|
set binfile ${objdir}/${subdir}/${testfile}
|
28 |
|
|
|
29 |
|
|
# Don't use "debug", so that we don't have line information for the assembly
|
30 |
|
|
# fragments.
|
31 |
|
|
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {}] != "" } {
|
32 |
|
|
untested "PowerPC prologue tests"
|
33 |
|
|
return -1
|
34 |
|
|
}
|
35 |
|
|
|
36 |
|
|
|
37 |
|
|
gdb_exit
|
38 |
|
|
gdb_start
|
39 |
|
|
gdb_reinitialize_dir $srcdir/$subdir
|
40 |
|
|
gdb_load ${binfile}
|
41 |
|
|
|
42 |
|
|
#
|
43 |
|
|
# Run to `main' where we begin our tests.
|
44 |
|
|
#
|
45 |
|
|
|
46 |
|
|
if ![runto_main] then {
|
47 |
|
|
gdb_suppress_tests
|
48 |
|
|
}
|
49 |
|
|
|
50 |
|
|
# Testcase for PIC prologue.
|
51 |
|
|
|
52 |
|
|
gdb_breakpoint "gdb2029_marker"
|
53 |
|
|
gdb_test "continue" "Breakpoint $decimal, $hex in gdb2029_marker \\(\\)" \
|
54 |
|
|
"continue to PIC"
|
55 |
|
|
|
56 |
|
|
gdb_test "backtrace 10" \
|
57 |
|
|
"#0\[ \t\]*$hex in gdb2029_marker.*\r\n#1\[ \t\]*$hex in gdb2029.*\r\n#2\[ \t\]*$hex in main.*" \
|
58 |
|
|
"backtrace in PIC marker"
|
59 |
|
|
|
60 |
|
|
gdb_test "finish" ".*$hex in gdb2029 .*" "finish from PIC"
|
61 |
|
|
|
62 |
|
|
gdb_test "backtrace 10" \
|
63 |
|
|
"#0\[ \t\]*$hex in gdb2029 .*\r\n#1\[ \t\]*$hex in main.*" \
|
64 |
|
|
"backtrace in PIC"
|
65 |
|
|
|
66 |
|
|
gdb_test "info frame" \
|
67 |
|
|
".*Saved registers:.*r30 at.*r31 at.*pc at.*lr at.*" \
|
68 |
|
|
"saved registers in PIC"
|
69 |
|
|
|
70 |
|
|
# Testcase for scheduled prologue.
|
71 |
|
|
|
72 |
|
|
gdb_breakpoint "optimized_1_marker"
|
73 |
|
|
gdb_test "continue" "Breakpoint $decimal, $hex in optimized_1_marker \\(\\)" \
|
74 |
|
|
"continue to optimized"
|
75 |
|
|
|
76 |
|
|
gdb_test "backtrace 10" \
|
77 |
|
|
"#0\[ \t\]*$hex in optimized_1_marker.*\r\n#1\[ \t\]*$hex in optimized_1.*\r\n#2\[ \t\]*$hex in main.*" \
|
78 |
|
|
"backtrace in optimized marker"
|
79 |
|
|
|
80 |
|
|
gdb_test "finish" ".*$hex in optimized_1 .*" "finish from optimized"
|
81 |
|
|
|
82 |
|
|
gdb_test "backtrace 10" \
|
83 |
|
|
"#0\[ \t\]*$hex in optimized_1 .*\r\n#1\[ \t\]*$hex in main.*" \
|
84 |
|
|
"backtrace in optimized"
|
85 |
|
|
|
86 |
|
|
gdb_test "info frame" \
|
87 |
|
|
".*Saved registers:.*r30 at.*r31 at.*pc at.*lr at.*" \
|
88 |
|
|
"saved registers in optimized"
|