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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-7.1/] [gdb/] [testsuite/] [gdb.base/] [chng-syms.exp] - Blame information for rev 842

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 227 jeremybenn
# Copyright 2004, 2007, 2008, 2009, 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
# Author: Paul N. Hilfinger (Hilfinger@gnat.com)
17
 
18
# Test that GDB cleans up properly after errors that result when a
19
# breakpoint is reset.
20
 
21
if $tracelevel then {
22
        strace $tracelevel
23
}
24
 
25
set prms_id 0
26
set bug_id 0
27
 
28
# IDT/SIM apparently doesn't have enough file descriptors to allow the
29
# problem checked by this test to occur.
30
if [istarget "mips-idt-*"] {
31
    return 0;
32
}
33
 
34
set testfile "chng-syms"
35
set srcfile ${testfile}.c
36
set binfile ${objdir}/${subdir}/${testfile}
37
 
38
if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-DVARIABLE=var1}] != "" } {
39
    untested chng-syms.exp
40
    return -1
41
}
42
 
43
set oldtimeout $timeout
44
set timeout 10
45
verbose "Timeout is now 10 seconds" 2
46
 
47
proc expect_to_stop_here { ident } {
48
    global gdb_prompt
49
    global decimal
50
 
51
    # the "at foo.c:36" output we get with -g.
52
    # the "in func" output we get without -g.
53
    gdb_expect {
54
        -re "Breakpoint \[0-9\]*, stop_here .*$gdb_prompt $" {
55
            return 1
56
        }
57
        -re "$gdb_prompt $" {
58
            fail "running to stop_here $ident"
59
            return 0
60
        }
61
        timeout {
62
            fail "running to stop_here $ident (timeout)"
63
            return 0
64
        }
65
    }
66
    return 1
67
}
68
 
69
gdb_exit
70
gdb_start
71
gdb_reinitialize_dir $srcdir/$subdir
72
gdb_load ${binfile}
73
 
74
gdb_test "break stop_here if (var1 == 42)" \
75
    "Breakpoint.*at.* file .*$srcfile, line.*" \
76
    "setting conditional breakpoint on function"
77
gdb_run_cmd
78
 
79
expect_to_stop_here "first time"
80
 
81
gdb_continue_to_end "breakpoint first time through"
82
 
83
# Now we recompile the executable, but without a variable named "var1", first
84
# waiting to insure that even on fast machines, the file modification times
85
# are distinct. This will force GDB to reload the file on the
86
# next "run" command, causing an error when GDB tries to tries to reset
87
# the breakpoint.
88
 
89
sleep 2
90
if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-DVARIABLE=var2}] != "" } {
91
 
92
# Complication: Since GDB generally holds an open file descriptor on the
93
# executable at this point, there are some systems in which the
94
# re-compilation will fail. In such cases, we'll consider the test
95
# (vacuously) passed providing that re-running it succeeds as before.
96
 
97
    gdb_run_cmd
98
    expect_to_stop_here "after re-compile fails"
99
    gdb_continue_to_end "after re-compile fails"
100
 
101
} else {
102
 
103
    gdb_run_cmd
104
    gdb_expect {
105
        -re ".*Program exited normally.*$gdb_prompt $" {
106
            pass "running with invalidated bpt condition after executable changes"
107
        }
108
        -re ".*Breakpoint .*,( 0x.* in)? (\[^ \]*)exit .*$gdb_prompt $" {
109
            pass "running with invalidated bpt condition after executable changes"
110
        }
111
        -re "$gdb_prompt $" {
112
            fail "running with invalidated bpt condition after executable changes"
113
        }
114
        timeout {
115
            fail "(timeout) running with invalidated bpt condition after executable changes"
116
        }
117
    }
118
 
119
}
120
 
121
set timeout $oldtimeout
122
verbose "Timeout is now $timeout seconds" 2
123
return 0

powered by: WebSVN 2.1.0

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