OLD | NEW |
1 # Copyright (C) 2011-2012 Free Software Foundation, Inc. | 1 # Copyright (C) 2011-2012 Free Software Foundation, Inc. |
2 # | 2 # |
3 # This program is free software; you can redistribute it and/or modify | 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 | 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 | 5 # the Free Software Foundation; either version 3 of the License, or |
6 # (at your option) any later version. | 6 # (at your option) any later version. |
7 # | 7 # |
8 # This program is distributed in the hope that it will be useful, | 8 # This program is distributed in the hope that it will be useful, |
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of | 9 # but WITHOUT ANY WARRANTY; without even the implied warranty of |
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
(...skipping 11 matching lines...) Expand all Loading... |
22 | 22 |
23 # The testfile uses "run". The real bug happened only for ![is_remote target]. | 23 # The testfile uses "run". The real bug happened only for ![is_remote target]. |
24 if [target_info exists use_gdb_stub] { | 24 if [target_info exists use_gdb_stub] { |
25 return 0 | 25 return 0 |
26 } | 26 } |
27 | 27 |
28 if { [prepare_for_testing ${testfile}.exp ${testfile}] } { | 28 if { [prepare_for_testing ${testfile}.exp ${testfile}] } { |
29 return -1 | 29 return -1 |
30 } | 30 } |
31 | 31 |
| 32 set gdbindex_warning_re "warning: Skipping \[^\r\n\]+ \\.gdb_index section \[^\r
\n\]*\r\nDo \"set use-deprecated-index-sections on\" before the file is read\r\n
to use the section anyway\\." |
| 33 |
32 gdb_test_no_output "set target-async on " | 34 gdb_test_no_output "set target-async on " |
33 gdb_test_no_output "set non-stop on" | 35 gdb_test_no_output "set non-stop on" |
34 gdb_test "run &" "Starting program: \[^\r\n\]*" | 36 gdb_test "run &" "Starting program: \[^\r\n\]*(\r\n$gdbindex_warning_re)?" |
35 | 37 |
36 # `sleep 5' here would workaround the bug, do not sleep here. | 38 # `sleep 5' here would workaround the bug, do not sleep here. |
37 # "shell" could eat waitpid event from the asynchronous inferior process. | 39 # "shell" could eat waitpid event from the asynchronous inferior process. |
38 | 40 |
39 gdb_test "shell echo foo" "foo" | 41 gdb_test "shell echo foo" "foo" |
40 | 42 |
41 set test "interrupt" | 43 set test "interrupt" |
42 gdb_test_multiple $test $test { | 44 gdb_test_multiple $test $test { |
43 -re "interrupt\r\n$gdb_prompt " { | 45 -re "interrupt\r\n$gdb_prompt " { |
44 pass $test | 46 pass $test |
45 } | 47 } |
46 } | 48 } |
47 | 49 |
48 set test "process stopped" | 50 set test "process stopped" |
49 gdb_test_multiple "" $test { | 51 gdb_test_multiple "" $test { |
50 -re "\r\n\\\[process \[0-9\]+\\\] #1 stopped\\\.\r\n" { | 52 -re "\r\n\\\[process \[0-9\]+\\\] #1 stopped\\\.\r\n" { |
51 pass $test | 53 pass $test |
52 } | 54 } |
53 } | 55 } |
OLD | NEW |