gdb/testsuite/gdb.base/mips_pro.exp

   1 # Copyright 1997-2013 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 <http://www.gnu.org/licenses/>.
  15
  16
  17 standard_testfile
  18
  19 # Create and source the file that provides information about the compiler
  20 # used to compile the test case.
  21 if [get_compiler_info] {
  22     return -1
  23 }
  24
  25
  26 # This test must be compiled with -O2 if using gcc.
  27
  28 set options debug
  29 if { [test_compiler_info gcc-*-*] } then {
  30     lappend options additional_flags=-O2 additional_flags=-fno-inline
  31 }
  32
  33 if {[prepare_for_testing $testfile.exp $testfile $srcfile $options]} {
  34     untested $testfile.exp
  35     return -1
  36 }
  37
  38 if [runto middle] then {
  39     # PR 3016
  40     #   warning: Hit heuristic-fence-post without finding
  41     #   warning: enclosing function for pc 0x1006ead0
  42     if { [test_compiler_info gcc-*-*] } then {
  43         setup_xfail "mips*-sgi-irix4*" "mips64*-*-elf"
  44     }
  45     # The call chain is main -> top -> middle.  But gcc can optimize a tail
  46     # call to a jump, so the stack may contain either main -> top -> middle
  47     # or main -> middle.
  48     gdb_test "backtrace" "#0.*middle.*#\[12\].*main.*"
  49 }
  50 return 0