2012-02-21 Pedro Alves <palves@redhat.com>
[external/binutils.git] / gdb / testsuite / gdb.base / watch-cond-infcall.exp
1 # Copyright 2010-2012 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 # Test for watchpoints with conditions that involve inferior function
17 # calls.
18
19 set testfile "watch-cond-infcall"
20 set srcfile ${testfile}.c
21 set binfile ${objdir}/${subdir}/${testfile}
22
23 if { [build_executable ${testfile}.exp ${testfile} ${testfile}.c {debug}] } {
24     untested ${testfile}.exp
25     return -1
26 }
27
28 proc test_watchpoint { hw } {
29     global testfile
30
31     clean_restart ${testfile}
32
33     if { ![runto main] } then {
34         fail "run to main"
35         return
36     }
37
38     if { ! $hw } {
39         gdb_test_no_output "set can-use-hw-watchpoints 0" ""
40     }
41
42     gdb_test "watch var if return_1 ()" "atchpoint .*: var"
43
44     gdb_breakpoint [gdb_get_line_number "break-at-exit"]
45
46     gdb_test "continue" \
47         "atchpoint \[0-9\]+: var\r\n\r\nOld value = 0\r\nNew value = 1\r\n.*watchpoint-stop.*" \
48         "continue"
49 }
50
51 if { ![target_info exists gdb,no_hardware_watchpoints] } {
52     with_test_prefix "hw" { test_watchpoint 1 }
53 }
54
55 with_test_prefix "sw" { test_watchpoint 0 }