gdb/testsuite/gdb.cp/ovldbreak.exp

   1 # Copyright (C) 1998, 1999, 2001, 2004, 2007, 2008, 2009, 2010
   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 # written by Elena Zannoni (ezannoni@cygnus.com)
  18 # modified by Michael Chastain (chastain@redhat.com)
  19
  20 # This file is part of the gdb testsuite
  21 #
  22 # tests for overloaded member functions. Set breakpoints on
  23 # overloaded member functions
  24 #
  25
  26 global timeout
  27 set timeout 15
  28 if $tracelevel then {
  29         strace $tracelevel
  30         }
  31
  32 #
  33 # test running programs
  34 #
  35
  36 if { [skip_cplus_tests] } { continue }
  37
  38 set testfile "ovldbreak"
  39 set srcfile ${testfile}.cc
  40 set binfile ${objdir}/${subdir}/${testfile}
  41
  42 if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug c++}] != "" } {
  43      untested ovldbreak.exp
  44      return -1
  45 }
  46
  47 gdb_exit
  48 gdb_start
  49 gdb_reinitialize_dir $srcdir/$subdir
  50 gdb_load ${binfile}
  51
  52 # set it up at a breakpoint so we can play with the variable values
  53 #
  54 if ![runto_main] then {
  55     perror "couldn't run to breakpoint"
  56     continue
  57 }
  58
  59
  60
  61 # When I ask gdb to set a breakpoint on an overloaded function,
  62 # gdb gives me a choice menu.  I might get stuck in that choice menu
  63 # (for example, if C++ name mangling is not working properly).
  64 #
  65 # This procedure issues a command that works at either the menu
  66 # prompt or the command prompt to get back to the command prompt.
  67 #
  68 # Note that an empty line won't do it (it means 'repeat the previous command'
  69 # at top level).  A line with a single space in it works nicely.
  70
  71 proc take_gdb_out_of_choice_menu {} {
  72     global gdb_prompt
  73     send_gdb " \n"
  74     gdb_expect {
  75         -re ".*$gdb_prompt $" {
  76         }
  77         timeout {
  78             perror "could not resynchronize to command prompt (timeout)"
  79             continue
  80         }
  81     }
  82 }
  83
  84
  85
  86 # This procedure sets an overloaded breakpoint.
  87 # When I ask for such a breakpoint, gdb gives me a menu of 'cancel' 'all'
  88 # and a bunch of choices.  I then choose from that menu by number.
  89
  90 proc set_bp_overloaded {name expectedmenu mychoice bpnumber linenumber} {
  91     global gdb_prompt hex srcfile
  92
  93     # Get into the overload menu.
  94     send_gdb "break $name\n"
  95     gdb_expect {
  96         -re "$expectedmenu" {
  97             pass "bp menu for $name choice $mychoice"
  98
  99             # Choose my choice.
 100             send_gdb "$mychoice\n"
 101             gdb_expect {
 102                 -re "Breakpoint $bpnumber at $hex: file.*$srcfile, line $linenumber.\r\n$gdb_prompt $" {
 103                     pass "set bp $bpnumber on $name $mychoice line $linenumber"
 104                 }
 105                 -re ".*$gdb_prompt $" {
 106                     fail "set bp $bpnumber on $name $mychoice line $linenumber (bad bp)"
 107                 }
 108                 timeout {
 109                     fail "set bp $bpnumber on $name $mychoice line $linenumber (timeout)"
 110                     take_gdb_out_of_choice_menu
 111                 }
 112             }
 113         }
 114         -re ".*\r\n> " {
 115             fail "bp menu for $name choice $mychoice (bad menu)"
 116             take_gdb_out_of_choice_menu
 117         }
 118         -re ".*$gdb_prompt $" {
 119             fail "bp menu for $name choice $mychoice (no menu)"
 120         }
 121         timeout {
 122             fail "bp menu for $name choice $mychoice (timeout)"
 123             take_gdb_out_of_choice_menu
 124         }
 125     }
 126 }
 127
 128 # This is the expected menu for overload1arg.
 129 # Note the arg type variations for void and integer types.
 130 # This accommodates different versions of g++.
 131
 132 set    menu_overload1arg "\\\[0\\\] cancel\r\n"
 133 append menu_overload1arg "\\\[1\\\] all\r\n"
 134 append menu_overload1arg "\\\[2\\\] foo::overload1arg\\(double\\) at.*$srcfile:121\r\n"
 135 append menu_overload1arg "\\\[3\\\] foo::overload1arg\\(float\\) at.*$srcfile:120\r\n"
 136 append menu_overload1arg "\\\[4\\\] foo::overload1arg\\((unsigned long|long unsigned)( int)?\\) at.*$srcfile:119\r\n"
 137 append menu_overload1arg "\\\[5\\\] foo::overload1arg\\(long( int)?\\) at.*$srcfile:118\r\n"
 138 append menu_overload1arg "\\\[6\\\] foo::overload1arg\\((unsigned int|unsigned)\\) at.*$srcfile:117\r\n"
 139 append menu_overload1arg "\\\[7\\\] foo::overload1arg\\(int\\) at.*$srcfile:116\r\n"
 140 append menu_overload1arg "\\\[8\\\] foo::overload1arg\\((unsigned short|short unsigned)( int)?\\) at.*$srcfile:115\r\n"
 141 append menu_overload1arg "\\\[9\\\] foo::overload1arg\\(short( int)?\\) at.*$srcfile:114\r\n"
 142 append menu_overload1arg "\\\[10\\\] foo::overload1arg\\(unsigned char\\) at.*$srcfile:113\r\n"
 143 append menu_overload1arg "\\\[11\\\] foo::overload1arg\\(signed char\\) at.*$srcfile:112\r\n"
 144 append menu_overload1arg "\\\[12\\\] foo::overload1arg\\(char\\) at.*$srcfile:111\r\n"
 145 append menu_overload1arg "\\\[13\\\] foo::overload1arg\\((void|)\\) at.*$srcfile:110\r\n"
 146 append menu_overload1arg "> $"
 147
 148 # Set multiple-symbols to "ask", to allow us to test the use
 149 # of the multiple-choice menu when breaking on an overloaded method.
 150 gdb_test "set multiple-symbols ask" ""
 151
 152 # Set breakpoints on foo::overload1arg, one by one.
 153
 154 set_bp_overloaded "foo::overload1arg" "$menu_overload1arg" 12    2 111
 155 set_bp_overloaded "foo::overload1arg" "$menu_overload1arg" 11    3 112
 156 set_bp_overloaded "foo::overload1arg" "$menu_overload1arg" 10    4 113
 157 set_bp_overloaded "foo::overload1arg" "$menu_overload1arg"  9    5 114
 158 set_bp_overloaded "foo::overload1arg" "$menu_overload1arg"  8    6 115
 159 set_bp_overloaded "foo::overload1arg" "$menu_overload1arg"  7    7 116
 160 set_bp_overloaded "foo::overload1arg" "$menu_overload1arg"  6    8 117
 161 set_bp_overloaded "foo::overload1arg" "$menu_overload1arg"  5    9 118
 162 set_bp_overloaded "foo::overload1arg" "$menu_overload1arg"  4   10 119
 163 set_bp_overloaded "foo::overload1arg" "$menu_overload1arg"  3   11 120
 164 set_bp_overloaded "foo::overload1arg" "$menu_overload1arg"  2   12 121
 165 set_bp_overloaded "foo::overload1arg" "$menu_overload1arg" 13   13 110
 166
 167
 168
 169 # Verify the breakpoints.
 170
 171 gdb_test "info break" \
 172     "Num     Type\[\t \]+Disp Enb Address\[\t \]+What.*
 173 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in main(\\((|void)\\))? at.*$srcfile:49\r
 174 \[\t \]+breakpoint already hit 1 time\r
 175 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(char\\) at.*$srcfile:111\r
 176 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(signed char\\) at.*$srcfile:112\r
 177 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned char\\) at.*$srcfile:113\r
 178 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(short( int)?\\) at.*$srcfile:114\r
 179 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned short|short unsigned)( int)?\\) at.*$srcfile:115\r
 180 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(int\\) at.*$srcfile:116\r
 181 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned|unsigned int)\\) at.*$srcfile:117\r
 182 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(long( int)?\\) at.*$srcfile:118\r
 183 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned long|long unsigned)( int)?\\) at.*$srcfile:119\r
 184 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(float\\) at.*$srcfile:120\r
 185 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(double\\) at.*$srcfile:121\r
 186 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((void|)\\) at.*$srcfile:110" \
 187     "breakpoint info (after setting one-by-one)"
 188
 189
 190
 191 # Test choice "cancel".
 192 # This is copy-and-paste from set_bp_overloaded.
 193
 194 send_gdb "break foo::overload1arg\n"
 195 gdb_expect {
 196     -re "$menu_overload1arg" {
 197         pass "bp menu for foo::overload1arg choice cancel"
 198         # Choose cancel.
 199         send_gdb "0\n"
 200         gdb_expect {
 201             -re "canceled\r\n$gdb_prompt $" {
 202                 pass "set bp on overload1arg canceled"
 203             }
 204             -re "cancelled\r\n$gdb_prompt $" {
 205                 pass "set bp on overload1arg canceled"
 206             }
 207             -re ".*$gdb_prompt $" {
 208                 fail "set bp on overload1arg canceled (bad message)"
 209             }
 210             timeout {
 211                 fail "set bp on overload1arg canceled (timeout)"
 212                 take_gdb_out_of_choice_menu
 213             }
 214         }
 215     }
 216     -re ".*\r\n> " {
 217         fail "bp menu for foo::overload1arg choice cancel (bad menu)"
 218         take_gdb_out_of_choice_menu
 219     }
 220     -re ".*$gdb_prompt $" {
 221         fail "bp menu for foo::overload1arg choice cancel (no menu)"
 222     }
 223     timeout {
 224         fail "bp menu for foo::overload1arg choice cancel (timeout)"
 225         take_gdb_out_of_choice_menu
 226     }
 227 }
 228
 229 gdb_test "info break" \
 230     "Num     Type\[\t \]+Disp Enb Address\[\t \]+What.*
 231 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in main(\\((|void)\\))? at.*$srcfile:49\r
 232 \[\t \]+breakpoint already hit 1 time\r
 233 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(char\\) at.*$srcfile:111\r
 234 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(signed char\\) at.*$srcfile:112\r
 235 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned char\\) at.*$srcfile:113\r
 236 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(short( int)?\\) at.*$srcfile:114\r
 237 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned short|short unsigned)( int)?\\) at.*$srcfile:115\r
 238 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(int\\) at.*$srcfile:116\r
 239 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned|unsigned int)\\) at.*$srcfile:117\r
 240 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(long( int)?\\) at.*$srcfile:118\r
 241 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned long|long unsigned)( int)?\\) at.*$srcfile:119\r
 242 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(float\\) at.*$srcfile:120\r
 243 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(double\\) at.*$srcfile:121\r
 244 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((void|)\\) at.*$srcfile:110" \
 245     "breakpoint info (after cancel)"
 246
 247
 248
 249 # Delete these breakpoints.
 250
 251 send_gdb "delete breakpoints\n"
 252 gdb_expect {
 253     -re "Delete all breakpoints.* $" {
 254         send_gdb "y\n"
 255         gdb_expect {
 256             -re ".*$gdb_prompt $" {
 257                 pass "delete all breakpoints"
 258             }
 259             timeout {
 260                 fail "delete all breakpoints (timeout)"
 261             }
 262         }
 263     }
 264     timeout {
 265         fail "delete all breakpoints (timeout)"
 266     }
 267 }
 268
 269 gdb_test "info breakpoints" "No breakpoints or watchpoints." "breakpoint info (after delete)"
 270
 271
 272
 273 # Test choice "all".
 274 # This is copy-and-paste from set_bp_overloaded.
 275
 276 send_gdb "break foo::overload1arg\n"
 277 gdb_expect {
 278     -re "$menu_overload1arg" {
 279         pass "bp menu for foo::overload1arg choice all"
 280         # Choose all.
 281         send_gdb "1\n"
 282         gdb_expect {
 283             -re "Breakpoint $decimal at $hex: file.*$srcfile, line 121.\r\nBreakpoint $decimal at $hex: file.*$srcfile, line 120.\r\nBreakpoint $decimal at $hex: file.*$srcfile, line 119.\r\nBreakpoint $decimal at $hex: file.*$srcfile, line 118.\r\nBreakpoint $decimal at $hex: file.*$srcfile, line 117.\r\nBreakpoint $decimal at $hex: file.*$srcfile, line 116.\r\nBreakpoint $decimal at $hex: file.*$srcfile, line 115.\r\nBreakpoint $decimal at $hex: file.*$srcfile, line 114.\r\nBreakpoint $decimal at $hex: file.*$srcfile, line 113.\r\nBreakpoint $decimal at $hex: file.*$srcfile, line 112.\r\nBreakpoint $decimal at $hex: file.*$srcfile, line 111.\r\nBreakpoint $decimal at $hex: file.*$srcfile, line 110.\r\nwarning: Multiple breakpoints were set.\r\nUse the .delete. command to delete unwanted breakpoints.\r\n$gdb_prompt $" {
 284                 pass "set bp on overload1arg all"
 285             }
 286             -re ".*$gdb_prompt $" {
 287                 fail "set bp on overload1arg all (bad message)"
 288             }
 289             timeout {
 290                 fail "set bp on overload1arg all (timeout)"
 291                 take_gdb_out_of_choice_menu
 292             }
 293         }
 294     }
 295     -re ".*\r\n> " {
 296         fail "bp menu for foo::overload1arg choice all (bad menu)"
 297         take_gdb_out_of_choice_menu
 298     }
 299     -re ".*$gdb_prompt $" {
 300         fail "bp menu for foo::overload1arg choice all (no menu)"
 301     }
 302     timeout {
 303         fail "bp menu for foo::overload1arg choice all (timeout)"
 304         take_gdb_out_of_choice_menu
 305     }
 306 }
 307
 308 gdb_test "info break" \
 309     "Num     Type\[\t \]+Disp Enb Address\[\t \]+What.*
 310 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(double\\) at.*$srcfile:121\r
 311 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(float\\) at.*$srcfile:120\r
 312 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned long|long unsigned)( int)?\\) at.*$srcfile:119\r
 313 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(long( int)?\\) at.*$srcfile:118\r
 314 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned|unsigned int)\\) at.*$srcfile:117\r
 315 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(int\\) at.*$srcfile:116\r
 316 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned short|short unsigned)( int)?\\) at.*$srcfile:115\r
 317 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(short( int)?\\) at.*$srcfile:114\r
 318 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned char\\) at.*$srcfile:113\r
 319 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(signed char\\) at.*$srcfile:112\r
 320 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(char\\) at.*$srcfile:111\r
 321 \[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((void|)\\) at.*$srcfile:110" \
 322     "breakpoint info (after setting on all)"
 323
 324
 325
 326 # Run through each breakpoint.
 327
 328 # NOTE: carlton/2003-02-03: I'm seeing failures on some of the tests,
 329 # with the wrong arg being printed out.  Michael Chastain sees
 330 # failures at times, too, albeit fewer than I do.
 331
 332 proc continue_to_bp_overloaded {might_kfail bpnumber argtype actuals} {
 333     global gdb_prompt hex decimal srcfile
 334
 335     send_gdb "continue\n"
 336     gdb_expect {
 337         -re "Continuing.\r\n\r\nBreakpoint ${bpnumber}, (${hex} in )?foo::overload1arg(\\(${argtype}\\))? \\(this=${hex}(, )?${actuals}\\) at.*${srcfile}:${decimal}\r\n${decimal}\[\t \]+int foo::overload1arg \\(${argtype}( arg)?\\).*\r\n.*$gdb_prompt $" {
 338             pass "continue to bp overloaded : ${argtype}"
 339         }
 340         -re "Continuing.\r\n\r\nBreakpoint ${bpnumber}, (${hex} in )?foo::overload1arg(\\(${argtype}\\))? \\(this=${hex}, arg=.*\\) at.*${srcfile}:${decimal}\r\n${decimal}\[\t \]+int foo::overload1arg \\(${argtype}( arg)?\\).*\r\n.*$gdb_prompt $" {
 341             if $might_kfail {
 342                 kfail "gdb/1025" "continue to bp overloaded : ${argtype}"
 343             } else {
 344                 fail "continue to bp overloaded : ${argtype}"
 345             }
 346         }
 347         -re ".*$gdb_prompt $" {
 348             fail "continue to bp overloaded : ${argtype}"
 349         }
 350         timeout {
 351             fail "continue to bp overloaded : ${argtype} (timeout)"
 352         }
 353     }
 354 }
 355
 356 continue_to_bp_overloaded 0 25 "(void|)" ""
 357 continue_to_bp_overloaded 1 24 "char" "arg=2 \\'\\\\002\\'"
 358 continue_to_bp_overloaded 1 23 "signed char" "arg=3 \\'\\\\003\\'"
 359 continue_to_bp_overloaded 1 22 "unsigned char" "arg=4 \\'\\\\004\\'"
 360 continue_to_bp_overloaded 1 21 "short" "arg=5"
 361 continue_to_bp_overloaded 1 20 "unsigned short" "arg=6"
 362 continue_to_bp_overloaded 0 19 "int" "arg=7"
 363 continue_to_bp_overloaded 0 18 "(unsigned|unsigned int)" "arg=8"
 364 continue_to_bp_overloaded 0 17 "long" "arg=9"
 365 continue_to_bp_overloaded 0 16 "unsigned long" "arg=10"
 366 continue_to_bp_overloaded 0 15 "float" "arg=100"
 367 continue_to_bp_overloaded 1 14 "double" "arg=200"
 368
 369 # Test breaking on an overloaded function when multiple-symbols
 370 # is set to "cancel"
 371 gdb_test "set multiple-symbols cancel" ""
 372 gdb_test "break foo::foofunc" \
 373          "canceled.*"
 374
 375 # Test breaking on an overloaded function when multiple-symbols
 376 # is set to "all"
 377 gdb_test "set multiple-symbols all" ""
 378 gdb_test "break foo::foofunc" \
 379          "Breakpoint \[0-9\]+ at ${hex}: file .*ovldbreak\\.cc, line \[0-9\]+\\.\r\nBreakpoint \[0-9\]+ at ${hex}: file .*ovldbreak\\.cc, line \[0-9\]+\\.\r\nwarning: Multiple breakpoints were set\\.\r\nUse the \"delete\" command to delete unwanted breakpoints\\."
 380
 381 # That's all, folks.
 382
 383 gdb_continue_to_end "finish program"