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

   1 # Copyright (C) 2013-2023 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             return -1
  54         }
  55
  56         set main_thre [get_thread_id "main"]
  57         if { $main_thre < 0 } {
  58             return -1
  59         }
  60
  61         gdb_breakpoint "start"
  62         gdb_continue_to_breakpoint "start"
  63
  64         set start_thre [get_thread_id "start"]
  65         if { $start_thre < 0 } {
  66             return -1
  67         }
  68
  69         # Set a thread-specific breakpoint at "main".  This can't ever
  70         # be hit, but that's OK.
  71         gdb_breakpoint "main thread $start_thre"
  72         gdb_test "info break" ".*breakpoint.*thread $start_thre" "breakpoint set"
  73
  74         # Set breakpoint at a place only reacheable after the "start"
  75         # thread exits.
  76         gdb_breakpoint "end"
  77
  78         # Switch back to the main thread, and resume all threads.  The
  79         # "start" thread exits, and the main thread reaches "end".
  80         gdb_test "thread $main_thre" \
  81             "Switching to thread $main_thre.*" \
  82             "thread $main_thre selected"
  83
  84         if { $mode == "non-stop" } {
  85             set cmd "continue -a"
  86         } else {
  87             set cmd "continue"
  88         }
  89         set test "continue to end"
  90         set thread_exited 0
  91         set prompt 0
  92         gdb_test_multiple "$cmd" $test -lbl {
  93             -re "(^|\r\n)\\\[Thread \[^\r\n\]* exited](?=\r\n)" {
  94                 if { $prompt } {
  95                     pass $gdb_test_name
  96                 } else {
  97                     set thread_exited 1
  98                     exp_continue
  99                 }
 100             }
 101             -re "\r\n$gdb_prompt " {
 102                 if { $thread_exited } {
 103                     pass $gdb_test_name
 104                 } else {
 105                     set prompt 1
 106                     exp_continue
 107                 }
 108             }
 109         }
 110
 111         set test "thread-specific breakpoint was deleted"
 112         gdb_test_multiple "info breakpoint" $test {
 113             -re "thread $start_thre\n$gdb_prompt $" {
 114                 fail $test
 115             }
 116             -re "$gdb_prompt $" {
 117                 pass $test
 118             }
 119         }
 120     }
 121 }
 122
 123 # Test all-stop mode.
 124 check_thread_specific_breakpoint "all-stop"
 125
 126 clean_restart ${binfile}
 127
 128 # Test non-stop mode.
 129 gdb_test_no_output "set non-stop on" "set non-stop mode"
 130 check_thread_specific_breakpoint "non-stop"