mirror of
https://github.com/espressif/binutils-gdb.git
synced 2025-12-19 01:19:41 +08:00
d01e823438
This updates the copyright headers to include 2025. I did this by running gdb/copyright.py and then manually modifying a few files as noted by the script. Approved-By: Eli Zaretskii <eliz@gnu.org>
801 lines
29 KiB
Plaintext
801 lines
29 KiB
Plaintext
# Copyright 2009-2025 Free Software Foundation, Inc.
|
|
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
# This file tests various scenarios involving multiple inferiors
|
|
# and the checkpoint command.
|
|
|
|
# Checkpoint support works only on Linux.
|
|
require {istarget "*-*-linux*"}
|
|
|
|
# Checkpoint support is implemented for the (Linux) native target.
|
|
require gdb_protocol_is_native
|
|
|
|
set checkpoints_header_re " +Id +Active Target Id +Frame.*?"
|
|
set proc_re "(?:process $::decimal)"
|
|
set ckpt_re "Checkpoint"
|
|
set main_proc "\\(main process\\)"
|
|
set hello_c "hello\\.c"
|
|
set goodbye_c "goodbye\\.c"
|
|
set hangout_c "hangout\\.c"
|
|
|
|
set testfile "checkpoint-multi"
|
|
|
|
set exec1 "hello"
|
|
set srcfile1 ${exec1}.c
|
|
set binfile1 [standard_output_file ${exec1}]
|
|
|
|
set exec2 "goodbye"
|
|
set srcfile2 ${exec2}.c
|
|
set binfile2 [standard_output_file ${exec2}]
|
|
|
|
set exec3 "hangout"
|
|
set srcfile3 ${exec3}.c
|
|
set binfile3 [standard_output_file ${exec3}]
|
|
|
|
if { [build_executable ${testfile}.exp ${exec1} "${srcfile1}" {debug}] == -1 } {
|
|
return -1
|
|
}
|
|
|
|
if { [build_executable ${testfile}.exp ${exec2} "${srcfile2}" {debug}] == -1 } {
|
|
return -1
|
|
}
|
|
|
|
if { [build_executable ${testfile}.exp ${exec3} "${srcfile3}" {debug}] == -1 } {
|
|
return -1
|
|
}
|
|
|
|
# Start two inferiors, place a checkpoint on inferior 2, but switch
|
|
# back to inferior 1.
|
|
proc start_2_inferiors_checkpoint_on_inf_2 {} {
|
|
clean_restart $::exec1
|
|
|
|
# Start inferior 1.
|
|
if {[gdb_start_cmd] < 0} {
|
|
fail "start first inferior"
|
|
} else {
|
|
gdb_test "" "main.*" "start first inferior"
|
|
}
|
|
|
|
# Add a new inferior and exec into it.
|
|
gdb_test "add-inferior -exec $::binfile2" \
|
|
"Added inferior 2.*" \
|
|
"add inferior 2 with -exec $::exec2"
|
|
|
|
# Check that we have multiple inferiors.
|
|
gdb_test "info inferiors" \
|
|
"Executable.*$::exec1.*$::exec2.*"
|
|
|
|
# Switch to inferior 2.
|
|
gdb_test "inferior 2" \
|
|
"Switching to inferior 2.*$::exec2.*"
|
|
|
|
# Start inferior 2:
|
|
if {[gdb_start_cmd] < 0} {
|
|
fail "start second inferior"
|
|
} else {
|
|
gdb_test "" "main.*" "start second inferior"
|
|
}
|
|
|
|
# Set a checkpoint in inferior 2
|
|
gdb_test "checkpoint" "$::ckpt_re 2\\.1: fork returned pid $::decimal.*"
|
|
|
|
# Step one line in inferior 2.
|
|
gdb_test "step" "glob = 46;"
|
|
|
|
# Switch back to inferior 1.
|
|
gdb_test "inferior 1" "Switching to inferior 1.*$::exec1.*"
|
|
}
|
|
|
|
# Start two inferiors, place a checkpoint on inferior 2, but switch
|
|
# back to inferior 1. This is like the one above, except that it
|
|
# swaps the executables loaded into inferior 1 and inferior 2. This
|
|
# is important for being able to test "continue to exit". (Because...
|
|
# hello.c has an infinite loop, but goodbye.c doesn't. In order to
|
|
# test "continue to exit", we need to continue in an executable which
|
|
# will actually exit.)
|
|
|
|
proc start_2_inferiors_checkpoint_on_inf_2_alt {} {
|
|
clean_restart $::exec2
|
|
|
|
# Start inferior 1.
|
|
if {[gdb_start_cmd] < 0} {
|
|
fail "start first inferior"
|
|
} else {
|
|
gdb_test "" "main.*" "start first inferior"
|
|
}
|
|
|
|
# Add a new inferior and exec exec1 into it.
|
|
gdb_test "add-inferior -exec $::binfile1" \
|
|
"Added inferior 2.*" \
|
|
"add inferior 2 with -exec $::exec1"
|
|
|
|
# Check that we have two inferiors.
|
|
gdb_test "info inferiors" \
|
|
"Executable.*$::exec2.*$::exec1.*"
|
|
|
|
# Switch to inferior 2.
|
|
gdb_test "inferior 2" \
|
|
"Switching to inferior 2.*$::exec1.*"
|
|
|
|
# Start inferior 2:
|
|
if {[gdb_start_cmd] < 0} {
|
|
fail "start second inferior"
|
|
} else {
|
|
gdb_test "" "main.*" "start second inferior"
|
|
}
|
|
|
|
# Set a checkpoint in inferior 2
|
|
gdb_test "checkpoint" "$::ckpt_re 2\\.1: fork returned pid $::decimal.*"
|
|
|
|
# next one line in inferior 2.
|
|
gdb_test "next" "bar\\(\\).*"
|
|
|
|
# Switch back to inferior 1.
|
|
gdb_test "inferior 1" "Switching to inferior 1.*$::exec2.*"
|
|
}
|
|
|
|
with_test_prefix "check detach on non-checkpointed inferior" {
|
|
start_2_inferiors_checkpoint_on_inf_2
|
|
gdb_test "detach" "Detaching from program.*$::exec1.*Inferior 1.*detached.*"
|
|
}
|
|
|
|
with_test_prefix "check kill on non-checkpointed inferior" {
|
|
start_2_inferiors_checkpoint_on_inf_2
|
|
gdb_test "kill" "" "kill non-checkpointed inferior" \
|
|
"Kill the program being debugged.*y or n. $" "y"
|
|
}
|
|
|
|
with_test_prefix "check restart 0 on non-checkpointed inferior" {
|
|
start_2_inferiors_checkpoint_on_inf_2
|
|
gdb_test "restart 0" "Inferior 1 has no checkpoints"
|
|
gdb_test "restart 2.0" "Switching to inferior 2.*?goodbye.*?#0 +mailand .*?glob = 46;.*"
|
|
}
|
|
|
|
with_test_prefix "check restart 1 on non-checkpointed inferior" {
|
|
start_2_inferiors_checkpoint_on_inf_2
|
|
gdb_test "restart 1" "Inferior 1 has no checkpoints"
|
|
gdb_test "restart 2.1" "Switching to inferior 2.*?goodbye.*?#0 +main .*?mailand\\(\\);.*"
|
|
}
|
|
|
|
with_test_prefix "check continue to exit on non-checkpointed inferior" {
|
|
start_2_inferiors_checkpoint_on_inf_2_alt
|
|
gdb_test "continue" "Inferior 1.*? exited normally.*"
|
|
}
|
|
|
|
with_test_prefix "two inferiors with checkpoints" {
|
|
start_2_inferiors_checkpoint_on_inf_2
|
|
with_test_prefix "one checkpoint" {
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" +2\\.0 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" +2\\.1 n +$proc_re +at $::hex, file.*?$goodbye_c.*?"]
|
|
}
|
|
with_test_prefix "two checkpoints" {
|
|
gdb_test "checkpoint" "$ckpt_re 1\\.1: fork returned pid $::decimal.*" \
|
|
"checkpoint in inferior 1"
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
"\\* 1\\.0 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.1 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.0 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.1 n +$proc_re +at $::hex, file.*?$goodbye_c.*?"]
|
|
}
|
|
|
|
# Note: No switching is done here since checkpoint 0 is the active one.
|
|
gdb_test "restart 0" "main.*?$hello_c.*?alarm \\(240\\);"
|
|
|
|
gdb_test "restart 2.0" \
|
|
"\\\[Switching to inferior 2.*?mailand.*?glob = 46;.*"
|
|
gdb_test "next" "\}"
|
|
|
|
with_test_prefix "restart 1" {
|
|
gdb_test "restart 1" "^Switching to $proc_re.*?#0 main \\(\\) at.*?$goodbye_c.*mailand\\(\\);"
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 1\\.0 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.1 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.0 n +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
"\\* 2\\.1 y +$proc_re +at $::hex, file.*?$goodbye_c.*?"]
|
|
}
|
|
|
|
with_test_prefix "info checkpoints twice in a row" {
|
|
# Doing "info_checkpoints" twice in a row might seem pointless,
|
|
# but during work on making the checkpoint code inferior aware,
|
|
# there was a point at which doing it twice in a row did not
|
|
# produce the same output.
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 1\\.0 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.1 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.0 n +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
"\\* 2\\.1 y +$proc_re +at $::hex, file.*?$goodbye_c.*?"]
|
|
}
|
|
|
|
with_test_prefix "restart 0" {
|
|
# Switch back to checkpoint 0; again, there should be no
|
|
# "Switching to inferior" message.
|
|
gdb_test "restart 0" \
|
|
"^Switching to $proc_re.*?#0 mailand \\(\\) at.*?$goodbye_c.*\}"
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 1\\.0 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.1 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
"\\* 2\\.0 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.1 n +$proc_re +at $::hex, file.*?$goodbye_c.*?"]
|
|
}
|
|
|
|
# Try switching to invalid checkpoints:
|
|
with_test_prefix "invalid checkpoints" {
|
|
gdb_test "restart 3" "Invalid checkpoint number 3 for inferior 2"
|
|
gdb_test "restart 2" "Invalid checkpoint number 2 for inferior 2"
|
|
gdb_test "restart -1" "Checkpoint number must be a non-negative integer"
|
|
gdb_test "restart 2.3" "Invalid checkpoint number 3 for inferior 2"
|
|
gdb_test "restart 3.0" "No inferior number '3'"
|
|
gdb_test "restart 1.2" "Invalid checkpoint number 2 for inferior 1"
|
|
gdb_test "restart 1.3" "Invalid checkpoint number 3 for inferior 1"
|
|
gdb_test "restart 1.-1" "Checkpoint number must be a non-negative integer"
|
|
gdb_test "restart -1.0" "Inferior number must be a positive integer"
|
|
}
|
|
|
|
with_test_prefix "restart 1.1" {
|
|
# Switch to checkpoint 1.1; this time, we should see a "Switching to
|
|
# inferior" message.
|
|
gdb_test "restart 1.1" \
|
|
"\\\[Switching to inferior 1.*?main.*?$hello_c.*?alarm \\(240\\);"
|
|
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 1\\.0 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
"\\* 1\\.1 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.0 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.1 n +$proc_re +at $::hex, file.*?$goodbye_c.*?"]
|
|
}
|
|
|
|
with_test_prefix "restart 2.1" {
|
|
gdb_test "restart 2.1" \
|
|
"Switching to inferior 2.*?#0 main \\(\\) at.*?$goodbye_c.*mailand\\(\\);"
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 1\\.0 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.1 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.0 n +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
"\\* 2\\.1 y +$proc_re +at $::hex, file.*?$goodbye_c.*?"]
|
|
}
|
|
|
|
with_test_prefix "second checkpoint in inferior 2" {
|
|
gdb_test "checkpoint" "$ckpt_re 2\\.2: fork returned pid $::decimal.*"
|
|
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 1\\.0 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.1 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.0 n +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
"\\* 2\\.1 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.2 n +$proc_re +at $::hex, file.*?$goodbye_c.*?"]
|
|
}
|
|
|
|
with_test_prefix "third checkpoint in inferior 2" {
|
|
gdb_test "checkpoint" "$ckpt_re 2.3: fork returned pid $::decimal.*"
|
|
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 1\\.0 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.1 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.0 n +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
"\\* 2\\.1 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.2 n +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.3 n +$proc_re +at $::hex, file.*?$goodbye_c.*?"]
|
|
}
|
|
|
|
with_test_prefix "continue to exit in checkpoint 2.1" {
|
|
gdb_test "continue" \
|
|
"Inferior 2 \\(process $decimal\\) exited normally.*?Switching to $proc_re.*?"
|
|
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 1\\.0 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.1 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.0 n +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.2 n +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
"\\* 2\\.3 y +$proc_re +at $::hex, file.*?$goodbye_c.*?"]
|
|
}
|
|
|
|
with_test_prefix "continue to exit in checkpoint 2.3" {
|
|
gdb_test "continue" \
|
|
"Inferior 2 \\(process $decimal\\) exited normally.*?Switching to process $decimal.*?"
|
|
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 1\\.0 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.1 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.0 n +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
"\\* 2\\.2 y +$proc_re +at $::hex, file.*?$goodbye_c.*?"]
|
|
}
|
|
|
|
with_test_prefix "continue to exit in checkpoint 2.2" {
|
|
gdb_test "continue" \
|
|
"Inferior 2 \\(process $decimal\\) exited normally.*?Switching to process $decimal.*?"
|
|
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 1\\.0 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.1 y +$proc_re +at $::hex, file.*?$hello_c.*?"]
|
|
}
|
|
|
|
with_test_prefix "new checkpoints in inferior 2" {
|
|
gdb_test "checkpoint" "$ckpt_re 2.1: fork returned pid $::decimal.*" \
|
|
"checkpoint 2.1"
|
|
|
|
gdb_test "checkpoint" "$ckpt_re 2.2: fork returned pid $::decimal.*" \
|
|
"checkpoint 2.2"
|
|
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 1\\.0 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.1 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
"\\* 2\\.0 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.1 n +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.2 n +$proc_re +at $::hex, file.*?$goodbye_c.*?"]
|
|
}
|
|
|
|
with_test_prefix "delete checkpoint 2.0" {
|
|
gdb_test "delete checkpoint 2.0" \
|
|
"Cannot delete active checkpoint" \
|
|
"failed attempt to delete active checkpoint 2.0"
|
|
|
|
gdb_test "restart 2.1" \
|
|
"^Switching to process.*?#0 mailand \\(\\) at.*?$goodbye_c.*\}"
|
|
|
|
gdb_test "delete checkpoint 2.0" \
|
|
"Killed process $::decimal"
|
|
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 1\\.0 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.1 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
"\\* 2\\.1 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.2 n +$proc_re +at $::hex, file.*?$goodbye_c.*?"]
|
|
}
|
|
|
|
with_test_prefix "delete checkpoint 2.2" {
|
|
gdb_test "delete checkpoint 2.2" \
|
|
"Killed process $::decimal"
|
|
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 1\\.0 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.1 y +$proc_re +at $::hex, file.*?$hello_c.*?"]
|
|
}
|
|
|
|
with_test_prefix "new checkpoint in inferior 2" {
|
|
gdb_test "checkpoint" "$ckpt_re 2.1: fork returned pid $::decimal.*"
|
|
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 1\\.0 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.1 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
"\\* 2\\.0 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.1 n +$proc_re +at $::hex, file.*?$goodbye_c.*?"]
|
|
}
|
|
|
|
with_test_prefix "switch to inferior 1" {
|
|
gdb_test "inferior 1" "Switching to inferior 1.*?alarm \\(240\\);"
|
|
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 1\\.0 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
"\\* 1\\.1 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.0 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.1 n +$proc_re +at $::hex, file.*?$goodbye_c.*?"]
|
|
}
|
|
|
|
with_test_prefix "kill inferior 1" {
|
|
gdb_test "kill" "\\\[Inferior 1 \\(process $::decimal\\) killed\\\]" \
|
|
"kill inferior 1" \
|
|
"Kill the program being debugged.*y or n. $" "y"
|
|
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 2\\.0 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.1 n +$proc_re +at $::hex, file.*?$goodbye_c.*?"]
|
|
}
|
|
|
|
with_test_prefix "start inferior 1 again" {
|
|
gdb_test "checkpoint" "The program is not being run\\." \
|
|
"checkpoint in non-running inferior"
|
|
|
|
gdb_test "start" "Starting program.*?hello.*?alarm \\(240\\);"
|
|
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 2\\.0 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.1 n +$proc_re +at $::hex, file.*?$goodbye_c.*?"]
|
|
}
|
|
|
|
with_test_prefix "checkpoint 1.1" {
|
|
gdb_test "checkpoint" "$ckpt_re 1.1: fork returned pid $::decimal.*" \
|
|
"second checkpoint in inferior 1"
|
|
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
"\\* 1\\.0 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.1 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.0 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.1 n +$proc_re +at $::hex, file.*?$goodbye_c.*?"]
|
|
}
|
|
}
|
|
|
|
with_test_prefix "three inferiors with checkpoints" {
|
|
start_2_inferiors_checkpoint_on_inf_2
|
|
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 2\\.0 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.1 n +$proc_re +at $::hex, file.*?$goodbye_c.*?"]
|
|
|
|
with_test_prefix "add third inferior" {
|
|
# Add a third inferior and exec into it.
|
|
gdb_test "add-inferior -exec $::binfile3" \
|
|
"Added inferior 3.*" \
|
|
"add inferior 3 with -exec $::exec3"
|
|
|
|
# Check that we have three inferiors.
|
|
gdb_test "info inferiors" \
|
|
"Executable.*?\\* 1 .*?$::exec1.*? 2 .*?$::exec2.*? 3 .*?$::exec3.*?" \
|
|
"check for three inferiors"
|
|
|
|
# Switch to inferior 3.
|
|
gdb_test "inferior 3" \
|
|
"Switching to inferior 3.*$::exec3.*"
|
|
|
|
# Start inferior 2:
|
|
if {[gdb_start_cmd] < 0} {
|
|
fail "start third inferior"
|
|
} else {
|
|
gdb_test "" "main.*" "start third inferior"
|
|
}
|
|
|
|
gdb_test "checkpoint" "$ckpt_re 3\\.1: fork returned pid $::decimal.*"
|
|
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 2\\.0 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.1 n +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
"\\* 3\\.0 y +$proc_re +at $::hex, file.*?$hangout_c.*?" \
|
|
" 3\\.1 n +$proc_re +at $::hex, file.*?$hangout_c.*?"]
|
|
}
|
|
|
|
with_test_prefix "make checkpoint in inferior 1" {
|
|
gdb_test "inferior 1" "Switching to inferior 1.*?alarm \\(240\\);"
|
|
|
|
gdb_test "checkpoint" "$ckpt_re 1\\.1: fork returned pid $::decimal.*"
|
|
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
"\\* 1\\.0 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.1 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.0 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.1 n +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 3\\.0 y +$proc_re +at $::hex, file.*?$hangout_c.*?" \
|
|
" 3\\.1 n +$proc_re +at $::hex, file.*?$hangout_c.*?"]
|
|
}
|
|
|
|
with_test_prefix "restart 2.1" {
|
|
gdb_test "restart 2.1" \
|
|
"Switching to inferior 2.*?#0 main \\(\\) at.*?$goodbye_c.*mailand\\(\\);"
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 1\\.0 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.1 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.0 n +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
"\\* 2\\.1 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 3\\.0 y +$proc_re +at $::hex, file.*?$hangout_c.*?" \
|
|
" 3\\.1 n +$proc_re +at $::hex, file.*?$hangout_c.*?"]
|
|
}
|
|
|
|
with_test_prefix "next and make new checkpoint" {
|
|
gdb_test "next" "foo\\(glob\\);"
|
|
gdb_test "checkpoint" "$ckpt_re 2\\.2: fork returned pid $::decimal.*"
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 1\\.0 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.1 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.0 n +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
"\\* 2\\.1 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.2 n +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 3\\.0 y +$proc_re +at $::hex, file.*?$hangout_c.*?" \
|
|
" 3\\.1 n +$proc_re +at $::hex, file.*?$hangout_c.*?"]
|
|
}
|
|
|
|
with_test_prefix "switch to inferior 3 for upcoming kill" {
|
|
gdb_test "inferior 3" "Switching to inferior 3.*?alarm \\(30\\);"
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 1\\.0 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.1 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.0 n +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.1 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.2 n +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
"\\* 3\\.0 y +$proc_re +at $::hex, file.*?$hangout_c.*?" \
|
|
" 3\\.1 n +$proc_re +at $::hex, file.*?$hangout_c.*?"]
|
|
}
|
|
|
|
with_test_prefix "kill inferior 3" {
|
|
gdb_test "kill" "\\\[Inferior 3 \\(process $::decimal\\) killed\\\]" \
|
|
"kill inferior 3" \
|
|
"Kill the program being debugged.*y or n. $" "y"
|
|
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 1\\.0 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.1 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.0 n +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.1 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.2 n +$proc_re +at $::hex, file.*?$goodbye_c.*?" ]
|
|
}
|
|
|
|
with_test_prefix "delete checkpoint 2.0" {
|
|
gdb_test "delete checkpoint 0" \
|
|
"Inferior 3 has no checkpoints"
|
|
gdb_test "delete checkpoint 2.0" \
|
|
"Killed process $::decimal"
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 1\\.0 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.1 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.1 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.2 n +$proc_re +at $::hex, file.*?$goodbye_c.*?" ]
|
|
}
|
|
|
|
with_test_prefix "restart 2.2" {
|
|
gdb_test "restart 2.2" \
|
|
"Switching to inferior 2.*?#0 main \\(\\) at.*?$goodbye_c.*foo\\(glob\\);"
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 1\\.0 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.1 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.1 n +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
"\\* 2\\.2 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" ]
|
|
}
|
|
|
|
with_test_prefix "switch to non-running inferior 3" {
|
|
gdb_test "inferior 3" "\\\[Switching to inferior 3 \\\[<null>\\\] \\(.*?$::exec3\\)\\\]"
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 1\\.0 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.1 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.1 n +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.2 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" ]
|
|
}
|
|
|
|
with_test_prefix "restart inferior 3 and make new checkpoints" {
|
|
gdb_test "start" "Starting program.*?hangout.*?alarm \\(30\\);"
|
|
gdb_test "checkpoint" \
|
|
"$ckpt_re 3\\.1: fork returned pid $::decimal.*" \
|
|
"checkpoint 3.1"
|
|
gdb_test "checkpoint" \
|
|
"$ckpt_re 3\\.2: fork returned pid $::decimal.*" \
|
|
"checkpoint 3.2"
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 1\\.0 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.1 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.1 n +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.2 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
"\\* 3\\.0 y +$proc_re +at $::hex, file.*?$hangout_c.*?" \
|
|
" 3\\.1 n +$proc_re +at $::hex, file.*?$hangout_c.*?" \
|
|
" 3\\.2 n +$proc_re +at $::hex, file.*?$hangout_c.*?"]
|
|
}
|
|
|
|
with_test_prefix "delete checkpoint 3.1" {
|
|
gdb_test "delete checkpoint 1" \
|
|
"Killed process $::decimal"
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 1\\.0 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.1 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.1 n +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.2 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
"\\* 3\\.0 y +$proc_re +at $::hex, file.*?$hangout_c.*?" \
|
|
" 3\\.2 n +$proc_re +at $::hex, file.*?$hangout_c.*?"]
|
|
}
|
|
|
|
with_test_prefix "attempt to delete active checkpoint in non-current inferior" {
|
|
# Switch to inferior 1, add another checkpoint - so that there
|
|
# are three of them in inferior 1 - then switch back to
|
|
# inferior 3 and delete active checkpoint in inferior 1.
|
|
# Then, switch to inferior 1 and attempt to add another
|
|
# checkpoint. During development, a "Cannot access memory at
|
|
# address ..." message was seen. This was a bug - there were
|
|
# several problems - but one of them was that the checkpoint in
|
|
# question was an "active" checkpoint. The fix was to
|
|
# disallow this case.
|
|
gdb_test "inferior 1" "Switching to inferior 1.*?alarm \\(240\\);"
|
|
gdb_test "checkpoint" "$ckpt_re 1\\.2: fork returned pid $::decimal.*"
|
|
gdb_test "inferior 3" "Switching to inferior 3.*?alarm \\(30\\);"
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 1\\.0 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.1 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.2 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.1 n +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.2 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
"\\* 3\\.0 y +$proc_re +at $::hex, file.*?$hangout_c.*?" \
|
|
" 3\\.2 n +$proc_re +at $::hex, file.*?$hangout_c.*?"]
|
|
|
|
# Check that deleting active checkpoints in other (non-current)
|
|
# inferiors is disallowed.
|
|
gdb_test "delete checkpoint 1.0" \
|
|
"Cannot delete active checkpoint"
|
|
}
|
|
|
|
with_test_prefix "delete non-active checkpoint in non-current inferior" {
|
|
# But deleting non-active checkpoints, even in other inferiors,
|
|
# should work.
|
|
gdb_test "delete checkpoint 1.1" \
|
|
"Killed process $::decimal"
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 1\\.0 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.2 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.1 n +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.2 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
"\\* 3\\.0 y +$proc_re +at $::hex, file.*?$hangout_c.*?" \
|
|
" 3\\.2 n +$proc_re +at $::hex, file.*?$hangout_c.*?"]
|
|
}
|
|
|
|
with_test_prefix "switch to inferior 1" {
|
|
gdb_test "inferior 1" "Switching to inferior 1.*?alarm \\(240\\);"
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
"\\* 1\\.0 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.2 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.1 n +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.2 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 3\\.0 y +$proc_re +at $::hex, file.*?$hangout_c.*?" \
|
|
" 3\\.2 n +$proc_re +at $::hex, file.*?$hangout_c.*?"]
|
|
}
|
|
|
|
with_test_prefix "checkpoint 1.3" {
|
|
gdb_test "checkpoint" "$ckpt_re 1\\.3: fork returned pid $::decimal.*" \
|
|
"third checkpoint in inferior 1"
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
"\\* 1\\.0 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.2 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.3 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.1 n +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.2 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 3\\.0 y +$proc_re +at $::hex, file.*?$hangout_c.*?" \
|
|
" 3\\.2 n +$proc_re +at $::hex, file.*?$hangout_c.*?"]
|
|
}
|
|
|
|
with_test_prefix "attempt to remove active but not current inferior" {
|
|
gdb_test "x/i \$pc" "=> $::hex <main.*"
|
|
gdb_test "remove-inferior 3" \
|
|
"warning: Can not remove active inferior 3\."
|
|
}
|
|
}
|
|
|
|
with_test_prefix "background execution" {
|
|
start_2_inferiors_checkpoint_on_inf_2
|
|
with_test_prefix "one checkpoint" {
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 2.0 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2.1 n +$proc_re +at $::hex, file.*?$goodbye_c.*?"]
|
|
}
|
|
with_test_prefix "two checkpoints" {
|
|
gdb_test "checkpoint" "$ckpt_re 1\\.1: fork returned pid $::decimal.*" \
|
|
"checkpoint in inferior 1"
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
"\\* 1\\.0 y +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 1\\.1 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.0 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.1 n +$proc_re +at $::hex, file.*?$goodbye_c.*?"]
|
|
}
|
|
|
|
with_test_prefix "background continue hello" {
|
|
gdb_test "continue &" "Continuing\."
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"\\* 1\\.0 y +$proc_re \\(running\\)" \
|
|
" 1\\.1 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.0 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.1 n +$proc_re +at $::hex, file.*?$goodbye_c.*?"]
|
|
}
|
|
|
|
with_test_prefix "fail to switch to inferior 2 w/ 1 in background" {
|
|
gdb_test "restart 2.1" "Cannot execute this command while the selected thread is running."
|
|
# Should be no change from earlier output.
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"\\* 1\\.0 y +$proc_re \\(running\\)" \
|
|
" 1\\.1 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.0 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.1 n +$proc_re +at $::hex, file.*?$goodbye_c.*?"]
|
|
}
|
|
|
|
with_test_prefix "switch to inferior 2" {
|
|
set msg "stop thread"
|
|
gdb_test_multiple "interrupt" $msg {
|
|
-re "$gdb_prompt " {
|
|
gdb_test_multiple "" $msg {
|
|
-re "Thread 1\\.1 \"hello\" received signal SIGINT, Interrupt\\." {
|
|
pass $gdb_test_name
|
|
}
|
|
}
|
|
}
|
|
}
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
"\\* 1\\.0 y +$proc_re +at $::hex,.*" \
|
|
" 1\\.1 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.0 y +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
" 2\\.1 n +$proc_re +at $::hex, file.*?$goodbye_c.*?"]
|
|
gdb_test "restart 2.1" "Switching to inferior 2.*?goodbye.*?#0 +main .*?mailand\\(\\);.*"
|
|
}
|
|
|
|
with_test_prefix "after restart 2.1" {
|
|
gdb_test "info checkpoints" \
|
|
[multi_line \
|
|
"$checkpoints_header_re" \
|
|
" 1\\.0 y +$proc_re +at $::hex,.*" \
|
|
" 1\\.1 n +$proc_re +at $::hex, file.*?$hello_c.*?" \
|
|
" 2\\.0 n +$proc_re +at $::hex, file.*?$goodbye_c.*?" \
|
|
"\\* 2\\.1 y +$proc_re +at $::hex, file.*?$goodbye_c.*?"]
|
|
}
|
|
}
|