gdb/testsuite/gdb.threads/thread-specific-bp.exp

   1 # Copyright (C) 2013-2019 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 # Verify that a thread-specific breakpoint is deleted when the
  17 # corresponding thread is gone.
  18
  19 standard_testfile
  20
  21 if {[gdb_compile_pthreads \
  22          "${srcdir}/${subdir}/${srcfile}" \
  23          "${binfile}" executable {debug} ] != "" } {
  24     return -1
  25 }
  26
  27 clean_restart ${binfile}
  28
  29 # Extract and return the thread ID of the thread stopped at function
  30 # FUNC.
  31
  32 proc get_thread_id {func} {
  33     global gdb_prompt
  34
  35     set thre -1
  36     set test "get $func thread id"
  37     gdb_test_multiple "info threads" $test {
  38         -re "(\[0-9\]+)\[^\n\r\]*Thread\[^\n\r\]*$func.*$gdb_prompt $" {
  39             # Get the thread's id.
  40             set thre $expect_out(1,string)
  41             pass $test
  42         }
  43     }
  44
  45     return $thre
  46 }
  47
  48 proc check_thread_specific_breakpoint {mode} {
  49     with_test_prefix "$mode" {
  50         global gdb_prompt
  51
  52         if ![runto_main] {
  53             untested "could not run to main"
  54             return -1
  55         }
  56
  57         set main_thre [get_thread_id "main"]
  58         if { $main_thre < 0 } {
  59             return -1
  60         }
  61
  62         gdb_breakpoint "start"
  63         gdb_continue_to_breakpoint "start"
  64
  65         set start_thre [get_thread_id "start"]
  66         if { $start_thre < 0 } {
  67             return -1
  68         }
  69
  70         # Set a thread-specific breakpoint at "main".  This can't ever
  71         # be hit, but that's OK.
  72         gdb_breakpoint "main thread $start_thre"
  73         gdb_test "info break" ".*breakpoint.*thread $start_thre" "breakpoint set"
  74
  75         # Set breakpoint at a place only reacheable after the "start"
  76         # thread exits.
  77         gdb_breakpoint "end"
  78
  79         # Switch back to the main thread, and resume all threads.  The
  80         # "start" thread exits, and the main thread reaches "end".
  81         gdb_test "thread $main_thre" \
  82             "Switching to thread $main_thre.*" \
  83             "thread $main_thre selected"
  84
  85         if { $mode == "non-stop" } {
  86             set cmd "continue -a"
  87         } else {
  88             set cmd "continue"
  89         }
  90         set test "continue to end"
  91         gdb_test_multiple "$cmd" $test {
  92             -re "Breakpoint .* end .* at .*\r\n$gdb_prompt " {
  93                 pass $test
  94             }
  95         }
  96
  97         set test "thread-specific breakpoint was deleted"
  98         gdb_test_multiple "info breakpoint" $test {
  99             -re "thread $start_thre\n$gdb_prompt $" {
 100                 fail $test
 101             }
 102             -re "$gdb_prompt $" {
 103                 pass $test
 104             }
 105         }
 106     }
 107 }
 108
 109 # Test all-stop mode.
 110 check_thread_specific_breakpoint "all-stop"
 111
 112 clean_restart ${binfile}
 113
 114 # Test non-stop mode.
 115 gdb_test_no_output "set non-stop on" "set non-stop mode"
 116 check_thread_specific_breakpoint "non-stop"