OLD | NEW |
1 # Copyright 2003, 2007-2012 Free Software Foundation, Inc. | 1 # Copyright 2003, 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 if $tracelevel then { | |
17 strace $tracelevel | |
18 } | |
19 | |
20 | 16 |
21 set testfile complex | 17 set testfile complex |
22 set srcfile ${testfile}.c | 18 set srcfile ${testfile}.c |
23 set binfile ${objdir}/${subdir}/${testfile} | 19 set binfile ${objdir}/${subdir}/${testfile} |
24 set options debug | 20 set options debug |
25 | 21 |
26 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable $opt
ions] != "" } { | 22 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable $opt
ions] != "" } { |
27 # No support for __complex__, presumably. | 23 # No support for __complex__, presumably. |
28 unsupported "print complex packed value in C" | 24 unsupported "print complex packed value in C" |
29 unsupported "print complex value in C" | 25 unsupported "print complex value in C" |
30 return 0 | 26 return 0 |
31 } | 27 } |
32 | 28 |
33 # Start with a fresh gdb. | 29 # Start with a fresh gdb. |
34 | 30 |
35 if [get_compiler_info ${binfile}] { | 31 if [get_compiler_info] { |
36 return -1 | 32 return -1 |
37 } | 33 } |
38 | 34 |
39 gdb_exit | 35 gdb_exit |
40 gdb_start | 36 gdb_start |
41 gdb_reinitialize_dir $srcdir/$subdir | 37 gdb_reinitialize_dir $srcdir/$subdir |
42 gdb_load $binfile | 38 gdb_load $binfile |
43 | 39 |
44 if [runto f2] then { | 40 if [runto f2] then { |
45 get_debug_format | 41 get_debug_format |
46 if { [test_compiler_info gcc-2-*] && [test_debug_format "DWARF 2"] } then { | 42 if { [test_compiler_info gcc-2-*] && [test_debug_format "DWARF 2"] } then { |
47 setup_xfail "*-*-*" | 43 setup_xfail "*-*-*" |
48 } | 44 } |
49 gdb_test "p *y" "\\\$\[0-9\]* = \{c = 42 '\\*', f = 1 \\+ 0 \\* I\}" \ | 45 gdb_test "p *y" "\\\$\[0-9\]* = \{c = 42 '\\*', f = 1 \\+ 0 \\* I\}" \ |
50 "print complex packed value in C" | 46 "print complex packed value in C" |
51 } | 47 } |
52 | 48 |
53 if [runto f4] then { | 49 if [runto f4] then { |
54 gdb_test "p *y" "\\\$\[0-9\]* = \{c = 42 '\\*', f = 1 \\+ 0 \\* I\}" \ | 50 gdb_test "p *y" "\\\$\[0-9\]* = \{c = 42 '\\*', f = 1 \\+ 0 \\* I\}" \ |
55 "print complex value in C" | 51 "print complex value in C" |
56 } | 52 } |
57 | 53 |
58 return 0 | 54 return 0 |
OLD | NEW |