OLD | NEW |
1 # Copyright 1997, 1999-2001, 2003, 2007-2012 Free Software Foundation, | 1 # Copyright 1997, 1999-2001, 2003, 2007-2012 Free Software Foundation, |
2 # Inc. | 2 # Inc. |
3 | 3 |
4 # This program is free software; you can redistribute it and/or modify | 4 # This program is free software; you can redistribute it and/or modify |
5 # it under the terms of the GNU General Public License as published by | 5 # it under the terms of the GNU General Public License as published by |
6 # the Free Software Foundation; either version 3 of the License, or | 6 # the Free Software Foundation; either version 3 of the License, or |
7 # (at your option) any later version. | 7 # (at your option) any later version. |
8 # | 8 # |
9 # This program is distributed in the hope that it will be useful, | 9 # This program is distributed in the hope that it will be useful, |
10 # but WITHOUT ANY WARRANTY; without even the implied warranty of | 10 # but WITHOUT ANY WARRANTY; without even the implied warranty of |
11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
12 # GNU General Public License for more details. | 12 # GNU General Public License for more details. |
13 # | 13 # |
14 # You should have received a copy of the GNU General Public License | 14 # You should have received a copy of the GNU General Public License |
15 # along with this program. If not, see <http://www.gnu.org/licenses/>. | 15 # along with this program. If not, see <http://www.gnu.org/licenses/>. |
16 | 16 |
17 if $tracelevel then { | |
18 strace $tracelevel | |
19 } | |
20 | |
21 | 17 |
22 set testfile mips_pro | 18 set testfile mips_pro |
23 set srcfile ${testfile}.c | 19 set srcfile ${testfile}.c |
24 set binfile ${objdir}/${subdir}/${testfile} | 20 set binfile ${objdir}/${subdir}/${testfile} |
25 | 21 |
26 # Create and source the file that provides information about the compiler | 22 # Create and source the file that provides information about the compiler |
27 # used to compile the test case. | 23 # used to compile the test case. |
28 if [get_compiler_info ${binfile}] { | 24 if [get_compiler_info] { |
29 return -1; | 25 return -1; |
30 } | 26 } |
31 | 27 |
32 | 28 |
33 # This test must be compiled with -O2 if using gcc. | 29 # This test must be compiled with -O2 if using gcc. |
34 | 30 |
35 if { [test_compiler_info gcc-*-*] } then { | 31 if { [test_compiler_info gcc-*-*] } then { |
36 if { [gdb_compile "${srcdir}/$subdir/${srcfile}" "${binfile}" \ | 32 if { [gdb_compile "${srcdir}/$subdir/${srcfile}" "${binfile}" \ |
37 executable {debug additional_flags=-O2 additional_flags=-fno-inline}
] != "" } { | 33 executable {debug additional_flags=-O2 additional_flags=-fno-inline}
] != "" } { |
38 untested mips_pro.exp | 34 untested mips_pro.exp |
(...skipping 17 matching lines...) Expand all Loading... |
56 # warning: enclosing function for pc 0x1006ead0 | 52 # warning: enclosing function for pc 0x1006ead0 |
57 if { [test_compiler_info gcc-*-*] } then { | 53 if { [test_compiler_info gcc-*-*] } then { |
58 setup_xfail "mips*-sgi-irix4*" "mips64*-*-elf" | 54 setup_xfail "mips*-sgi-irix4*" "mips64*-*-elf" |
59 } | 55 } |
60 # The call chain is main -> top -> middle. But gcc can optimize a tail | 56 # The call chain is main -> top -> middle. But gcc can optimize a tail |
61 # call to a jump, so the stack may contain either main -> top -> middle | 57 # call to a jump, so the stack may contain either main -> top -> middle |
62 # or main -> middle. | 58 # or main -> middle. |
63 gdb_test "backtrace" "#0.*middle.*#\[12\].*main.*" | 59 gdb_test "backtrace" "#0.*middle.*#\[12\].*main.*" |
64 } | 60 } |
65 return 0 | 61 return 0 |
OLD | NEW |