gdb/testsuite/gdb.base/mips_pro.exp

   1 if $tracelevel then {
   2         strace $tracelevel
   3 }
   4
   5 set prms_id 0
   6 set bug_id 0
   7
   8 set testfile mips_pro
   9 set srcfile ${srcdir}/$subdir/${testfile}.c
  10 set binfile ${objdir}/${subdir}/${testfile}
  11
  12 # Create and source the file that provides information about the compiler
  13 # used to compile the test case.
  14 execute_anywhere "rm -f ${binfile}.ci"
  15 if  { [compile "-E ${srcdir}/${subdir}/compiler.c >> ${binfile}.ci"] != "" } {
  16     perror "Couldn't make ${binfile}.ci"
  17     return -1
  18 }
  19 source ${binfile}.ci
  20
  21 gdb_exit
  22 gdb_start
  23 gdb_reinitialize_dir $srcdir/$subdir
  24 gdb_load ${binfile}
  25
  26 # This test must be compiled with -O2 if using gcc.
  27
  28 if {$gcc_compiled} then {
  29     if  { [compile "${srcfile} -O2 -g -o ${binfile}"] != "" } {
  30         perror "Couldn't compile ${srcfile} with -O2"
  31         return -1
  32     }
  33 } else {
  34     if  { [compile "${srcfile} -g -o ${binfile}"] != "" } {
  35         perror "Couldn't compile ${srcfile}"
  36         return -1
  37     }
  38 }
  39
  40 gdb_reinitialize_dir $srcdir/$subdir
  41 gdb_load $binfile
  42
  43 if [runto middle] then {
  44     # PR 3016
  45     if {$gcc_compiled} then { setup_xfail "hppa*-*-*" }
  46     gdb_test "backtrace" "#0.*middle.*#1.*top.*#2.*main.*"
  47 }
  48 return 0