OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-7.1/] [gdb/] [testsuite/] [gdb.base/] [watchpoint-cond-gone.exp] - Blame information for rev 833

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 227 jeremybenn
# 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 .
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.
35
gdb_test "set can-use-hw-watchpoints 0"
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.
45
gdb_test "watch c if c == 30" "" "Place the watchpoint"
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"

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.