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

   1 # Copyright (C) 2013-2024 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 # Extract and return the thread ID of the thread stopped at function
  28 # FUNC.
  29
  30 proc get_thread_id {func} {
  31     global gdb_prompt
  32     global tdlabel_re
  33
  34     set thre -1
  35     set test "get $func thread id"
  36     gdb_test_multiple "info threads" $test {
  37         -re "(\[0-9\]+)\[^\n\r\]*${tdlabel_re}\[^\n\r\]*$func.*$gdb_prompt $" {
  38             # Get the thread's id.
  39             set thre $expect_out(1,string)
  40             pass $test
  41         }
  42     }
  43
  44     return $thre
  45 }
  46
  47 proc check_thread_specific_breakpoint {non_stop} {
  48     global gdb_prompt
  49
  50     if { ![runto_main] } {
  51         return -1
  52     }
  53
  54     set main_thre [get_thread_id "main"]
  55     if { $main_thre < 0 } {
  56         return -1
  57     }
  58
  59     gdb_breakpoint "start"
  60     gdb_continue_to_breakpoint "start"
  61
  62     set start_thre [get_thread_id "start"]
  63     if { $start_thre < 0 } {
  64         return -1
  65     }
  66
  67     # Check that multiple uses of 'thread' keyword give an error.
  68     gdb_test "break main thread $start_thre thread $main_thre" \
  69         "You can specify only one thread\\."
  70
  71     # Set a thread-specific breakpoint at "main".  This can't ever
  72     # be hit, but that's OK.
  73     gdb_breakpoint "main thread $start_thre"
  74     gdb_test "info break" ".*breakpoint.*thread $start_thre" "breakpoint set"
  75
  76     # Set breakpoint at a place only reachable after the "start"
  77     # thread exits.
  78     gdb_breakpoint "end"
  79
  80     # Switch back to the main thread, and resume all threads.  The
  81     # "start" thread exits, and the main thread reaches "end".
  82     gdb_test "thread $main_thre" \
  83         "Switching to thread $main_thre.*" \
  84         "thread $main_thre selected"
  85
  86     if { $non_stop } {
  87         set cmd "continue -a"
  88     } else {
  89         set cmd "continue"
  90     }
  91     set msg_re \
  92         [join \
  93              [list \
  94                   "Thread-specific breakpoint 3 deleted" \
  95                   "-" \
  96                   "thread 2 no longer in the thread list\\."]]
  97
  98     gdb_test_multiple "$cmd" "continue to end" {
  99         -re "$\r\n${gdb_prompt} .*${msg_re}\r\n" {
 100             pass $gdb_test_name
 101         }
 102         -re "\r\n${msg_re}\r\n.*$gdb_prompt " {
 103             pass $gdb_test_name
 104         }
 105     }
 106
 107     set test "thread-specific breakpoint was deleted"
 108     gdb_test_multiple "info breakpoint" $test {
 109         -re "thread $start_thre\n$gdb_prompt $" {
 110             fail $test
 111         }
 112         -re "$gdb_prompt $" {
 113             pass $test
 114         }
 115     }
 116 }
 117
 118 foreach_with_prefix non_stop {on off} {
 119     save_vars { GDBFLAGS } {
 120         append GDBFLAGS " -ex \"set non-stop $non_stop\""
 121         clean_restart $binfile
 122     }
 123
 124     check_thread_specific_breakpoint $non_stop
 125 }