mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-27 04:52:05 +08:00
4a94e36819
This commit brings all the changes made by running gdb/copyright.py as per GDB's Start of New Year Procedure. For the avoidance of doubt, all changes in this commits were performed by the script.
124 lines
3.4 KiB
Plaintext
124 lines
3.4 KiB
Plaintext
# Copyright 2016-2022 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/>.
|
|
|
|
# Test 'gdb "-ex new-ui TTY" -ex "start"' (or any other synchronous
|
|
# execution command), when TTY already has input pending. GDB used to
|
|
# internal error in this situation.
|
|
|
|
standard_testfile
|
|
|
|
set compile_options "debug"
|
|
if {[build_executable $testfile.exp $testfile ${srcfile} ${compile_options}] == -1} {
|
|
untested "failed to compile"
|
|
return -1
|
|
}
|
|
|
|
# See intro.
|
|
|
|
proc test_command_line_new_ui_pending_input {} {
|
|
global gdb_prompt
|
|
global binfile
|
|
|
|
# This test requires running a synchronous execution command from
|
|
# the command line.
|
|
if {[use_gdb_stub] || [target_info gdb_protocol] == "extended-remote" } {
|
|
unsupported "can't run from the command line"
|
|
return 0
|
|
}
|
|
|
|
spawn -pty
|
|
set extra_spawn_id $spawn_id
|
|
set extra_tty_name $spawn_out(slave,name)
|
|
|
|
# An arbitrary number of prints.
|
|
set nprints 3
|
|
|
|
# Queue a few commands before GDB is started.
|
|
with_spawn_id $extra_spawn_id {
|
|
for {set i 1} {$i <= $nprints} {incr i} {
|
|
send_gdb "print $i\n"
|
|
}
|
|
}
|
|
pass "commands pending"
|
|
|
|
# Now spawn GDB, creating a new-ui and at the same time running a
|
|
# synchronous command.
|
|
set test "spawn gdb"
|
|
|
|
set bpline [gdb_get_line_number "set breakpoint here"]
|
|
|
|
set options ""
|
|
append options " -iex \"set height 0\""
|
|
append options " -iex \"set width 0\""
|
|
append options " -iex \"new-ui console $extra_tty_name\""
|
|
append options " -ex \"b $bpline\""
|
|
append options " -ex \"run\""
|
|
|
|
if {[gdb_spawn_with_cmdline_opts "$options $binfile"] != 0} {
|
|
fail $test
|
|
return
|
|
} else {
|
|
pass $test
|
|
}
|
|
|
|
# Consume the initial prompt on the extra console.
|
|
with_spawn_id $extra_spawn_id {
|
|
set test "initial prompt on extra console"
|
|
gdb_test_multiple "" $test {
|
|
-re "\r\nprint 3\r\n$gdb_prompt " {
|
|
pass $test
|
|
}
|
|
}
|
|
}
|
|
|
|
# Check that we see the result of the print commands in the extra
|
|
# UI.
|
|
with_spawn_id $extra_spawn_id {
|
|
for {set i 1} {$i <= $nprints} {incr i} {
|
|
set test "print $i on extra console"
|
|
gdb_test_multiple "" $test {
|
|
-re " = $i\r\n$gdb_prompt " {
|
|
pass "$test"
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
# Now check that we reach the breakpoint successfully.
|
|
set test "run to breakpoint on main console"
|
|
gdb_test_multiple "" $test {
|
|
-re "Breakpoint .* main .*set breakpoint here.*$gdb_prompt $" {
|
|
pass $test
|
|
}
|
|
}
|
|
|
|
# And likewise on the extra console. No prompt is expected.
|
|
with_spawn_id $extra_spawn_id {
|
|
set test "run to breakpoint on extra console"
|
|
gdb_test_multiple "" $test {
|
|
-re "Breakpoint .* main .*set breakpoint here" {
|
|
pass $test
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
# The driver. Calls all tests.
|
|
proc testcase_driver {} {
|
|
test_command_line_new_ui_pending_input
|
|
}
|
|
|
|
testcase_driver
|