OLD | NEW |
1 # Copyright 2002, 2004, 2007-2012 Free Software Foundation, Inc. | 1 # Copyright 2002, 2004, 2007-2012 Free Software Foundation, Inc. |
2 | 2 |
3 # This program is free software; you can redistribute it and/or modify | 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 | 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 | 5 # the Free Software Foundation; either version 3 of the License, or |
6 # (at your option) any later version. | 6 # (at your option) any later version. |
7 # | 7 # |
8 # This program is distributed in the hope that it will be useful, | 8 # This program is distributed in the hope that it will be useful, |
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of | 9 # but WITHOUT ANY WARRANTY; without even the implied warranty of |
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
11 # GNU General Public License for more details. | 11 # GNU General Public License for more details. |
12 # | 12 # |
13 # You should have received a copy of the GNU General Public License | 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/>. | 14 # along with this program. If not, see <http://www.gnu.org/licenses/>. |
15 | 15 |
16 # The doco makes reference to built-in registers -- $pc and $fp. If | 16 # The doco makes reference to built-in registers -- $pc and $fp. If |
17 # the ISA contains registers by that name then they should be | 17 # the ISA contains registers by that name then they should be |
18 # displayed. If the ISA contains registers identified as being | 18 # displayed. If the ISA contains registers identified as being |
19 # equivalent, but have different names, then GDB will provide these as | 19 # equivalent, but have different names, then GDB will provide these as |
20 # aliases. If the ISA doesn't provide any equivalent registers, then | 20 # aliases. If the ISA doesn't provide any equivalent registers, then |
21 # GDB will provide registers that map onto the frame's PC and FP. | 21 # GDB will provide registers that map onto the frame's PC and FP. |
22 | 22 |
23 if $tracelevel then { | |
24 strace $tracelevel | |
25 } | |
26 | |
27 # | 23 # |
28 # test running programs | 24 # test running programs |
29 # | 25 # |
30 | 26 |
31 set testfile "pc-fp" | 27 set testfile "pc-fp" |
32 set srcfile ${testfile}.c | 28 set srcfile ${testfile}.c |
33 set binfile ${objdir}/${subdir}/${testfile} | 29 set binfile ${objdir}/${subdir}/${testfile} |
34 | 30 |
35 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
ug nowarnings}] != "" } { | 31 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
ug nowarnings}] != "" } { |
36 untested pc-fp.exp | 32 untested pc-fp.exp |
37 return -1 | 33 return -1 |
38 } | 34 } |
39 | 35 |
40 if [get_compiler_info ${binfile}] { | 36 if [get_compiler_info] { |
41 return -1 | 37 return -1 |
42 } | 38 } |
43 | 39 |
44 gdb_exit | 40 gdb_exit |
45 gdb_start | 41 gdb_start |
46 gdb_reinitialize_dir $srcdir/$subdir | 42 gdb_reinitialize_dir $srcdir/$subdir |
47 gdb_load ${binfile} | 43 gdb_load ${binfile} |
48 | 44 |
49 if ![runto_main] then { | 45 if ![runto_main] then { |
50 perror "couldn't run to breakpoint" | 46 perror "couldn't run to breakpoint" |
51 continue | 47 continue |
52 } | 48 } |
53 | 49 |
54 | 50 |
55 # Get the value of PC and FP | 51 # Get the value of PC and FP |
56 | 52 |
57 set valueof_pc [get_hexadecimal_valueof "\$pc" "0"] | 53 set valueof_pc [get_hexadecimal_valueof "\$pc" "0"] |
58 set valueof_fp [get_hexadecimal_valueof "\$fp" "0"] | 54 set valueof_fp [get_hexadecimal_valueof "\$fp" "0"] |
59 | 55 |
60 # Check that the sequence $REGNAME -> REGNUM -> $REGNAME works. Use | 56 # Check that the sequence $REGNAME -> REGNUM -> $REGNAME works. Use |
61 # display since that encodes and then decodes the expression parameter | 57 # display since that encodes and then decodes the expression parameter |
62 # (and hence uses the mechanisms we're trying to test). | 58 # (and hence uses the mechanisms we're trying to test). |
63 | 59 |
64 gdb_test "display/i \$pc" "1: x/i +\\\$pc( +|\r\n)=> ${valueof_pc}.*" | 60 gdb_test "display/i \$pc" "1: x/i +\\\$pc( +|\r\n)=> ${valueof_pc}.*" |
65 gdb_test "display/w \$fp" "2: x/xw +\\\$fp +${valueof_fp}.*" | 61 gdb_test "display/w \$fp" "2: x/xw +\\\$fp +${valueof_fp}.*" |
66 | 62 |
67 # FIXME: cagney/2002-09-04: Should also check that ``info registers | 63 gdb_test "info register \$pc" "${valueof_pc}.*" |
68 # $pc'' et.al.'' come back with the same value as the above displays | 64 gdb_test "info register \$fp" "${valueof_fp}.*" |
69 # and a print --- assuming that is that people agree to such behavour. | |
70 # Need to re-write default_print_registers_info() for it to work (and | |
71 # such a rewrite is on the reggroups branch). | |
72 | 65 |
73 # gdb_test "info registers \$pc" "${valueof_pc}" | 66 # Regression test for |
74 # gdb_test "info registers \$fp" "${valueof_fp}" | 67 # http://sourceware.org/bugzilla/show_bug.cgi?id=12659 |
| 68 gdb_test "info register pc fp" \ |
| 69 "pc(:)?( |\t)+${valueof_pc}(( |\t)+${valueof_pc} <.*>)?\[\r\n\]+fp(:)?( |\t)
+${valueof_fp}(( |\t)+${valueof_fp})?\[\r\n\]+" |
OLD | NEW |