2003-03-17 David Carlton <carlton@math.stanford.edu>
* gdb.base/watchpoint.exp (test_watchpoint_and_breakpoint): New test, for PR breakpoints/38. Call test_watchpoint_and_breakpoint. * gdb.base/watchpoint.c (func3): New function. (main): Call func3.
This commit is contained in:
parent
94e1050898
commit
293e9a3142
|
@ -1,3 +1,11 @@
|
||||||
|
2003-03-17 David Carlton <carlton@math.stanford.edu>
|
||||||
|
|
||||||
|
* gdb.base/watchpoint.exp (test_watchpoint_and_breakpoint): New
|
||||||
|
test, for PR breakpoints/38.
|
||||||
|
Call test_watchpoint_and_breakpoint.
|
||||||
|
* gdb.base/watchpoint.c (func3): New function.
|
||||||
|
(main): Call func3.
|
||||||
|
|
||||||
2003-03-04 David Carlton <carlton@math.stanford.edu>
|
2003-03-04 David Carlton <carlton@math.stanford.edu>
|
||||||
|
|
||||||
* gdb.c++/templates.exp (do_tests): Accept valid const in "print
|
* gdb.c++/templates.exp (do_tests): Accept valid const in "print
|
||||||
|
|
|
@ -83,6 +83,18 @@ func2 ()
|
||||||
static_b = local_a;
|
static_b = local_a;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
void
|
||||||
|
func3 ()
|
||||||
|
{
|
||||||
|
int x;
|
||||||
|
int y;
|
||||||
|
|
||||||
|
x = 0;
|
||||||
|
x = 1; /* second x assignment */
|
||||||
|
y = 1;
|
||||||
|
y = 2;
|
||||||
|
}
|
||||||
|
|
||||||
int
|
int
|
||||||
func1 ()
|
func1 ()
|
||||||
{
|
{
|
||||||
|
@ -170,5 +182,8 @@ int main ()
|
||||||
recurser (2);
|
recurser (2);
|
||||||
|
|
||||||
marker6 ();
|
marker6 ();
|
||||||
|
|
||||||
|
func3 ();
|
||||||
|
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
|
@ -648,6 +648,27 @@ proc test_complex_watchpoint {} {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
proc test_watchpoint_and_breakpoint {} {
|
||||||
|
global gdb_prompt
|
||||||
|
|
||||||
|
# This is a test for PR gdb/38, which involves setting a
|
||||||
|
# watchpoint right after you've reached a breakpoint.
|
||||||
|
|
||||||
|
if [runto func3] then {
|
||||||
|
gdb_breakpoint [gdb_get_line_number "second x assignment"]
|
||||||
|
gdb_continue_to_breakpoint "second x assignment"
|
||||||
|
gdb_test "watch x" ".*atchpoint \[0-9\]+: x"
|
||||||
|
gdb_test_multiple "next" "next after watch x" {
|
||||||
|
-re ".*atchpoint \[0-9\]+: x\r\n\r\nOld value = 0\r\nNew value = 1\r\n.*$gdb_prompt $" {
|
||||||
|
pass "next after watch x"
|
||||||
|
}
|
||||||
|
-re "\[0-9\]+\[\t \]+y = 1;\r\n$gdb_prompt $" {
|
||||||
|
kfail "gdb/38" "next after watch x"
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
# Start with a fresh gdb.
|
# Start with a fresh gdb.
|
||||||
|
|
||||||
gdb_exit
|
gdb_exit
|
||||||
|
@ -799,6 +820,17 @@ if [initialize] then {
|
||||||
timeout {fail "(timeout) access watches disallowed"}
|
timeout {fail "(timeout) access watches disallowed"}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
# See above.
|
||||||
|
if [istarget "mips-idt-*"] then {
|
||||||
|
gdb_exit
|
||||||
|
gdb_start
|
||||||
|
gdb_reinitialize_dir $srcdir/$subdir
|
||||||
|
gdb_load $binfile
|
||||||
|
initialize
|
||||||
|
}
|
||||||
|
|
||||||
|
test_watchpoint_and_breakpoint
|
||||||
}
|
}
|
||||||
|
|
||||||
# Restore old timeout
|
# Restore old timeout
|
||||||
|
|
Loading…
Reference in New Issue