Commit | Line | Data |
---|---|---|
a0f49112 JK |
1 | # Copyright 2010 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 | ||
16 | set testfile "watchpoint-cond-gone" | |
17 | set srcfile ${testfile}.c | |
18 | set srcfilestripped ${testfile}-stripped.c | |
19 | set objfilestripped ${objdir}/${subdir}/${testfile}-stripped.o | |
20 | set binfile ${objdir}/${subdir}/${testfile} | |
21 | ||
22 | # We need to generate a function without DWARF to crash older GDB. | |
23 | # Stepping into a dynamic function trampoline or stepping out of MAIN may work | |
24 | # but it is not a reliable FAIL case. | |
25 | ||
26 | if { [gdb_compile "${srcdir}/${subdir}/${srcfilestripped}" "${objfilestripped}" object {}] != "" | |
27 | || [gdb_compile "${srcdir}/${subdir}/${srcfile} ${objfilestripped}" "${binfile}" executable {debug}] != "" } { | |
28 | untested watchpoint-cond-gone.exp | |
29 | return -1 | |
30 | } | |
31 | ||
32 | clean_restart ${testfile} | |
33 | ||
34 | # Problem does not occur otherwise. | |
27d3a1a2 | 35 | gdb_test_no_output "set can-use-hw-watchpoints 0" |
a0f49112 JK |
36 | |
37 | if ![runto_main] { | |
38 | return -1 | |
39 | } | |
40 | ||
41 | gdb_breakpoint [gdb_get_line_number "watchpoint-here"] | |
42 | gdb_continue_to_breakpoint "Place to set the watchpoint" | |
43 | ||
44 | # The condition `c == 30' is the subject being tested. | |
27d3a1a2 | 45 | gdb_test "watch c if c == 30" "atchpoint \[0-9\]*.*" "Place the watchpoint" |
a0f49112 JK |
46 | |
47 | # We may stay either in the function itself or only at the first instruction of | |
48 | # its caller depending on the epilogue unwinder (or valid epilogue CFI) presence. | |
49 | gdb_test "finish" \ | |
50 | "Watchpoint .* deleted because the program has left the block in.*which its expression is valid..*in (jumper|func).*" \ | |
51 | "Catch the no longer valid watchpoint" |