gdb/testsuite/gdb.base/structs2.exp

   1 # Copyright 1998, 1999, 2007, 2008, 2009, 2010, 2011
   2 # Free Software Foundation, Inc.
   3
   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
   6 # the Free Software Foundation; either version 3 of the License, or
   7 # (at your option) any later version.
   8 #
   9 # This program is distributed in the hope that it will be useful,
  10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 # GNU General Public License for more details.
  13 #
  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/>.
  16
  17 if $tracelevel then {
  18         strace $tracelevel
  19 }
  20
  21 set prototypes 1
  22 set testfile "structs2"
  23 set srcfile ${testfile}.c
  24 set binfile ${objdir}/${subdir}/${testfile}
  25
  26 # Create and source the file that provides information about the compiler
  27 # used to compile the test case.
  28 if [get_compiler_info ${binfile}] {
  29     return -1;
  30 }
  31
  32 # build the first test case
  33 if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
  34     # built the second test case since we can't use prototypes
  35     warning "Prototypes not supported, rebuilding with -DNO_PROTOTYPES"
  36     if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-DNO_PROTOTYPES}] != "" } {
  37         untested structs2.exp
  38         return -1
  39     }
  40     set prototypes 0
  41 }
  42
  43 # Start with a fresh gdb.
  44
  45 gdb_start
  46 gdb_reinitialize_dir $srcdir/$subdir
  47 gdb_load ${binfile}
  48
  49 gdb_test_no_output "set width 0"
  50
  51 if { ![runto_main] } then {
  52     gdb_suppress_tests
  53 }
  54
  55 # Ok, we're finally ready to actually do our tests.
  56
  57 gdb_test "f" \
  58     ".*bkpt = 0.*" \
  59     "structs2 sanity check"
  60
  61 gdb_test "break param_reg" \
  62     "Breakpoint .* at .*" \
  63     "structs2 breakpoint set"
  64
  65 if [test_compiler_info gcc-3-*] {
  66   setup_xfail hppa*-* gcc/15860
  67 }
  68 gdb_test "continue" \
  69     ".*pr_char=120.*pr_uchar=130.*pr_short=32000.*pr_ushort=33000.*bkpt = 1.*" \
  70     "structs2 continue1"
  71
  72 if [test_compiler_info gcc-3-*] {
  73   setup_xfail hppa*-* gcc/15860
  74 }
  75 gdb_test "continue" \
  76     ".*pr_char=-126.*pr_uchar=120.*pr_short=-32536.*pr_ushort=32000.*bkpt = 1.*" \
  77     "structs2 continue2"
  78
  79 # End of tests.
  80
  81 gdb_stop_suppressing_tests
  82
  83 return 0