gnu/dist/gdb6/gdb/testsuite/gdb.base/pending.exp

   1 #   Copyright 2003, 2004, 2005
   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 2 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, write to the Free Software
  16 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  17
  18 # This file was created by Jeff Johnston. (jjohnstn@redhat.com)
  19
  20 if $tracelevel then {
  21     strace $tracelevel
  22 }
  23
  24 #
  25 # test running programs
  26 #
  27 set prms_id 0
  28 set bug_id 0
  29
  30 # are we on a target board?
  31 if ![isnative] then {
  32     return 0
  33 }
  34
  35 set testfile "pending"
  36 set libfile "pendshr"
  37 set srcfile $testfile.c
  38 set libsrc  $srcdir/$subdir/$libfile.c
  39 set binfile $objdir/$subdir/$testfile
  40 set lib_sl  $objdir/$subdir/$libfile.sl
  41
  42 set lib_opts  debug
  43 set exec_opts [list debug shlib=$lib_sl]
  44
  45 if [get_compiler_info ${binfile}] {
  46     return -1
  47 }
  48
  49 if { [gdb_compile_shlib $libsrc $lib_sl $lib_opts] != ""
  50      || [gdb_compile $srcdir/$subdir/$srcfile $binfile executable $exec_opts] != ""} {
  51     untested "Could not compile either $libsrc or $srcdir/$subdir/$srcfile."
  52     return -1
  53 }
  54
  55 # Start with a fresh gdb.
  56
  57 gdb_exit
  58 gdb_start
  59 gdb_reinitialize_dir $srcdir/$subdir
  60 gdb_load ${binfile}
  61
  62 if [target_info exists gdb_stub] {
  63     gdb_step_for_stub;
  64 }
  65 #
  66 # Test setting, querying, and modifying pending breakpoints
  67 #
  68
  69 gdb_test_multiple "break pendfunc1" "set pending breakpoint" {
  70      -re ".*Make breakpoint pending.*y or \\\[n\\\]. $" {
  71             gdb_test "y" "Breakpoint.*pendfunc1.*pending." "set pending breakpoint"
  72      }
  73 }
  74
  75 gdb_test "info break" \
  76     "Num Type\[ \]+Disp Enb Address\[ \]+What.*
  77 \[0-9\]+\[\t \]+breakpoint     keep y.*PENDING.*pendfunc1.*" \
  78 "single pending breakpoint info"
  79
  80 #
  81 # Test breaking at existing function
  82 #
  83
  84 set mainline [gdb_get_line_number "break main here"]
  85
  86 gdb_test "break main" \
  87     "Breakpoint.*at.* file .*$srcfile, line $mainline.*" \
  88     "breakpoint function"
  89
  90 gdb_test "info break" \
  91     "Num Type\[ \]+Disp Enb Address\[ \]+What.*
  92 \[0-9\]+\[\t \]+breakpoint     keep y.*PENDING.*pendfunc1.*
  93 \[0-9\]+\[\t \]+breakpoint     keep y.* in main at .*$srcfile:$mainline" \
  94 "pending plus real breakpoint info"
  95
  96
  97 #
  98 # Test not setting a pending breakpoint
  99 #
 100 gdb_test_multiple "break pendfunc2" "Don't set pending breakpoint" {
 101      -re ".*Make breakpoint pending.*y or \\\[n\\\]. $" {
 102             gdb_test "n" "" "Don't set pending breakpoint"
 103      }
 104 }
 105
 106 #
 107 # Add condition to pending breakpoint
 108 #
 109
 110 gdb_test "condition 1 k == 1" ""
 111
 112 gdb_test "info break" \
 113     "Num Type\[ \]+Disp Enb Address\[ \]+What.*
 114 \[0-9\]+\[\t \]+breakpoint     keep y.*PENDING.*pendfunc1.*
 115 \[\t \]+stop only if k == 1.*
 116 \[0-9\]+\[\t \]+breakpoint     keep y.* in main at .*$srcfile:$mainline" \
 117 "pending plus condition"
 118
 119 #
 120 # Disable pending breakpoint
 121 #
 122
 123 gdb_test "disable 1" ""
 124
 125 gdb_test "info break" \
 126     "Num Type\[ \]+Disp Enb Address\[ \]+What.*
 127 \[0-9\]+\[\t \]+breakpoint     keep n.*PENDING.*pendfunc1.*
 128 \[\t \]+stop only if k == 1.*
 129 \[0-9\]+\[\t \]+breakpoint     keep y.* in main at .*$srcfile:$mainline" \
 130 "pending disabled"
 131
 132 #
 133 # Add commands to pending breakpoint
 134 #
 135 gdb_test "commands 1\nprint k\nend" "" \
 136         "Set commands for pending breakpoint"
 137
 138 gdb_test "info break" \
 139     "Num Type\[ \]+Disp Enb Address\[ \]+What.*
 140 \[0-9\]+\[\t \]+breakpoint     keep n.*PENDING.*pendfunc1.*
 141 \[\t \]+stop only if k == 1.*
 142 \[\t \]+print k.*
 143 \[0-9\]+\[\t \]+breakpoint     keep y.* in main at .*$srcfile:$mainline" \
 144 "pending disabled plus commands"
 145
 146 #
 147 # Try a pending break for a line in a source file with a condition
 148 #
 149
 150 gdb_test_multiple "break pendshr.c:26 if x > 3" "Set pending breakpoint 2" {
 151      -re ".*Make breakpoint pending.*y or \\\[n\\\]. $" {
 152             gdb_test "y" "Breakpoint.*pendshr.c:26.*pending." \
 153                 "Set pending breakpoint 2"
 154      }
 155 }
 156
 157 gdb_test "info break" \
 158     "Num Type\[ \]+Disp Enb Address\[ \]+What.*
 159 \[0-9\]+\[\t \]+breakpoint     keep n.*PENDING.*pendfunc1.*
 160 \[\t \]+stop only if k == 1.*
 161 \[\t \]+print k.*
 162 \[0-9\]+\[\t \]+breakpoint     keep y.* in main at .*$srcfile:$mainline.*
 163 \[0-9\]+\[\t \]+breakpoint     keep y.*PENDING.*pendshr.c:26 if x > 3.*" \
 164 "multiple pending breakpoints"
 165
 166
 167 #
 168 # Try a pending break for a line in a source file with ignore count:
 169 #
 170
 171 gdb_test_multiple "break pendshr.c:27" "Set pending breakpoint 3" {
 172      -re ".*Make breakpoint pending.*y or \\\[n\\\]. $" {
 173             gdb_test "y" "Breakpoint.*pendshr.c:27.*pending." \
 174                 "Set pending breakpoint 3"
 175      }
 176 }
 177
 178 gdb_test {ignore $bpnum 2} "Will ignore next 2 crossings of breakpoint .*" \
 179     "set ignore count on pending breakpoint 3"
 180
 181 gdb_test "info break" \
 182     "Num Type\[ \]+Disp Enb Address\[ \]+What.*
 183 \[0-9\]+\[\t \]+breakpoint     keep n.*PENDING.*pendfunc1.*
 184 \[\t \]+stop only if k == 1.*
 185 \[\t \]+print k.*
 186 \[0-9\]+\[\t \]+breakpoint     keep y.* in main at .*$srcfile:$mainline.*
 187 \[0-9\]+\[\t \]+breakpoint     keep y.*PENDING.*pendshr.c:26 if x > 3.*
 188 \[0-9\]+\[\t \]+breakpoint     keep y.*PENDING.*pendshr.c:27.*ignore next 2 hits.*" \
 189 "multiple pending breakpoints 2"
 190
 191 #
 192 # Run to main which should resolve a pending breakpoint
 193 #
 194
 195 gdb_test "run" \
 196 "Breakpoint.*at.*
 197 Pending breakpoint \"pendshr.c:26 if x > 3\" resolved.*
 198 Breakpoint.*, main.*$mainline.*" \
 199 "running to main"
 200
 201 #
 202 # Re-enable the first pending breakpoint which should resolve
 203 #
 204
 205 gdb_test "enable 1" \
 206 "Breakpoint.*at.*
 207 Pending breakpoint \"pendfunc1.* resolved.*" \
 208 "re-enabling pending breakpoint that can resolve instantly"
 209
 210 #
 211 # Continue to verify conditionals and commands for breakpoints are honored
 212 #
 213
 214 gdb_test "continue" \
 215 ".*Breakpoint.*pendfunc1.*at.*pendshr.c:26.*4;" \
 216 "continue to resolved breakpoint 2"
 217
 218 gdb_test "continue" \
 219 ".*Breakpoint.*pendfunc1.*at.*pendshr.c:26.*
 220 \[$\]1 = 1." \
 221 "continue to resolved breakpoint 1"
 222
 223 #
 224 # Disable the other two breakpoints, and continue to the one with
 225 # the ignore count.  Make sure you hit it the third time, x should
 226 # be 3 then.
 227 #
 228
 229 gdb_test "disable 7" "" "Disable other breakpoints"
 230 gdb_test "disable 5" "" "Disable other breakpoints"
 231
 232 gdb_test "continue" \
 233         {.*Breakpoint.*pendfunc1.*\(x=3\) at.*pendshr.c:27.*printf.*;} \
 234 "continue to resolved breakpoint 3"
 235
 236 delete_breakpoints
 237
 238 gdb_breakpoint "main"
 239
 240 #
 241 # Set non-existent pending breakpoint
 242 #
 243 gdb_test_multiple "break imaginary" "set imaginary pending breakpoint" {
 244      -re ".*Make breakpoint pending.*y or \\\[n\\\]. $" {
 245             gdb_test "y" "Breakpoint.*imaginary.*pending." \
 246                 "set imaginary pending breakpoint"
 247      }
 248 }
 249
 250 #
 251 # rerun program and make sure that any pending breakpoint remains and no
 252 # error messages are issued for the missing function
 253 #
 254
 255 rerun_to_main
 256
 257 gdb_test "info break" \
 258     "Num Type\[ \]+Disp Enb Address\[ \]+What.*
 259 \[0-9\]+\[\t \]+breakpoint     keep y.* in main at .*$srcfile:$mainline.*
 260 \[0-9\]+\[\t \]+breakpoint     keep y.*PENDING.*imaginary.*" \
 261 "verify pending breakpoint after restart"