1# Copyright (C) 2013-2020 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 16standard_testfile 17 18if [prepare_for_testing "failed to prepare for testing" \ 19 ${testfile} ${srcfile} {debug}] { 20 return -1 21} 22 23# Pretend there's no terminal. 24gdb_test_no_output "set interactive-mode off" 25 26if ![runto main] { 27 fail "can't run to main" 28 return -1 29} 30 31# Delete breakpoints so that the next resume is a plain continue, 32# instead of a step-over-breakpoint sequence just while GDB sends the 33# interrupt request. If that's buggy on some targets (and it was on 34# target remote for a while, where a ctrl-c at the wrong time will get 35# lost), then it should get its own specific test. Disable 36# confirmation, avoiding complications caused by the fact that we've 37# disabled the terminal -- GDB would auto-answer "yes", confusing 38# gdb_test_multiple. 39gdb_test_no_output "set confirm off" 40gdb_test_no_output "delete" 41gdb_test_no_output "set confirm on" 42 43set async_supported -1 44set test "continue &" 45gdb_test_multiple $test $test { 46 -re "Continuing\\.\r\n$gdb_prompt $" { 47 set async_supported 1 48 pass $test 49 } 50 -re ".*Asynchronous execution not supported on this target..*" { 51 unsupported $test 52 } 53} 54if { $async_supported < 0 } { 55 return 1 56} 57 58# With native debugging, and no terminal (emulated by interactive-mode 59# off, above), GDB had a bug where "interrupt" would send SIGINT to 60# its own process group, instead of the inferior's. 61set test "interrupt" 62gdb_test_multiple $test $test { 63 -re "interrupt\r\n$gdb_prompt " { 64 pass $test 65 } 66} 67 68set test "inferior received SIGINT" 69gdb_test_multiple "" $test { 70 -re "\r\nProgram received signal SIGINT.*" { 71 # This appears after the prompt, which was already consumed 72 # above. 73 pass $test 74 } 75} 76