1# Copyright (C) 2014-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 16if [target_info exists gdb,nointerrupts] { 17 verbose "Skipping double-prompt-target-event-error.exp because of nointerrupts." 18 return 19} 20 21standard_testfile 22 23if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug] == -1} { 24 return -1 25} 26 27# Test throwing an error while GDB is handling a target event. We use 28# a ctrl-c/quit in a pagination prompt to emulate an error. COMMAND 29# is either "continue" or "wrapcont". The latter is a continue issued 30# from a user-defined command. That exercises the case of the 31# interpreter forced sync, which was the case that originally had a 32# bug. 33 34proc cancel_pagination_in_target_event { command } { 35 global binfile srcfile 36 global gdb_prompt pagination_prompt 37 38 set testline [gdb_get_line_number "after sleep"] 39 40 with_test_prefix "ctrlc target event: $command" { 41 clean_restart $binfile 42 43 if ![runto_main] then { 44 fail "can't run to main" 45 return 0 46 } 47 48 gdb_test "b $srcfile:$testline" \ 49 "Breakpoint .*$srcfile, line $testline.*" \ 50 "set breakpoint" 51 52 gdb_test_no_output "set height 2" 53 54 if { $command == "wrapcont" } { 55 gdb_test_multiple "define wrapcont" "define user command: wrapcont" { 56 -re "Type commands for definition of \"wrapcont\".\r\nEnd with a line saying just \"end\".\r\n>$" { 57 # Note that "Continuing." is ommitted when 58 # "continue" is issued from a user-defined 59 # command. Issue it ourselves. 60 gdb_test "echo Continuing\.\ncontinue\nend" "" \ 61 "define user command: wrapcont" 62 } 63 } 64 } 65 66 # Wait for pagination prompt after the "Continuing" line, 67 # indicating the program was running and then stopped. 68 set saw_continuing 0 69 set test "continue to pagination" 70 gdb_test_multiple "$command" $test { 71 -re "$pagination_prompt$" { 72 if {$saw_continuing} { 73 pass $test 74 } else { 75 send_gdb "\n" 76 exp_continue 77 } 78 } 79 -re "Continuing" { 80 set saw_continuing 1 81 exp_continue 82 } 83 } 84 85 # We're now stopped in a pagination query while handling a 86 # target event (printing where the program stopped). Quitting 87 # the pagination should result in only one prompt being 88 # output. 89 send_gdb "\003p 1\n" 90 91 # Note gdb_test_multiple has a default match for the prompt, 92 # which issues a FAIL. Consume the first prompt. 93 set test "first prompt" 94 gdb_test_multiple "" $test { 95 -re "$gdb_prompt" { 96 pass "first prompt" 97 } 98 } 99 100 # We should only see one prompt more, and it should be 101 # preceeded by print's output. 102 set test "no double prompt" 103 gdb_test_multiple "" $test { 104 -re "$gdb_prompt.*$gdb_prompt $" { 105 # The bug is present, and expect managed to read 106 # enough characters into the buffer to fill it with 107 # both prompts. 108 fail $test 109 } 110 -re " = 1\r\n$gdb_prompt $" { 111 pass $test 112 } 113 } 114 115 # In case the board file wants to send further commands. 116 gdb_test_no_output "set height unlimited" 117 } 118} 119 120foreach variant { "continue" "wrapcont" } { 121 cancel_pagination_in_target_event $variant 122} 123