mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-27 04:52:05 +08:00
61baf725ec
This applies the second part of GDB's End of Year Procedure, which
updates the copyright year range in all of GDB's files.
gdb/ChangeLog:
Update copyright year range in all GDB files.
124 lines
3.3 KiB
Plaintext
124 lines
3.3 KiB
Plaintext
# Copyright 2016-2017 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 "$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
|