darkkirb/old-cross-binutils
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Thu Apr 3 15:21:26 1997 Michael Snyder <msnyder@cleaver.cygnus.com>

Browse source 
* gdb.base/help.exp: update help msg for INFO ADDR; add help test
        for INFO SYMBOL; add help tests for OVERLAY commands.
        * gdb.base/default.exp: add tests for INFO SYMBOL command;
        add tests for OVERLAY commands
        * gdb.base/overlays.c overlays.exp foo.c bar.c baz.c grbx.c ovlymgr.h
        d10v.ld m32r.ld d10vovly.c m32rovly.c: add test case for overlays.
        * gdb.base/sigall.c: add usestubs code frag
        * gdb.base/watchpoint.c: turn on complex watchpoint test for M32R.
This commit is contained in:
Michael Snyder 1997-04-03 23:24:30 +00:00
parent b9580b812c
commit 320b1d82e4
2 changed files with 29 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gdb/testsuite/ChangeLog
View file

@ -1,3 +1,14 @@
Thu Apr 3 15:21:26 1997 Michael Snyder <msnyder@cleaver.cygnus.com>
* gdb.base/help.exp: update help msg for INFO ADDR; add help test
for INFO SYMBOL; add help tests for OVERLAY commands.
* gdb.base/default.exp: add tests for INFO SYMBOL command;
add tests for OVERLAY commands
* gdb.base/overlays.c overlays.exp foo.c bar.c baz.c grbx.c ovlymgr.h
d10v.ld m32r.ld d10vovly.c m32rovly.c: add test case for overlays.
* gdb.base/sigall.c: add usestubs code frag
* gdb.base/watchpoint.exp: turn on complex watchpoint test for M32R.
Thu Apr 3 09:38:53 1997 Bob Manson <manson@charmed.cygnus.com>
* lib/gdb.exp(gdb_suppress_tests): Add explanation for subsequent

32
gdb/testsuite/gdb.base/watchpoint.exp
View file

@ -1,4 +1,4 @@
# Copyright (C) 1992, 1994 Free Software Foundation, Inc.
# Copyright (C) 1992, 1994, 1997 Free Software Foundation, Inc.
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@ -12,7 +12,7 @@
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
# Please email any bugs, comments, and/or additions to this file to:
# bug-gdb@prep.ai.mit.edu
@ -115,7 +115,7 @@ proc test_simple_watchpoint {} {
gdb_run_cmd
set timeout 600
expect {
gdb_expect {
-re "Breakpoint 1, marker1 .*$gdb_prompt $" {
pass "run to marker1 in test_simple_watchpoint"
}
@ -145,7 +145,7 @@ proc test_simple_watchpoint {} {
# Continue until the first change, from -1 to 0
send_gdb "cont\n"
expect {
gdb_expect {
-re "Continuing.*\[Ww\]atchpoint.*ival3.*Old value = -1.*New value = 0.*ival3 = count; ival4 = count;.*$gdb_prompt $" {
pass "watchpoint hit, first time"
}
@ -219,7 +219,7 @@ proc test_disabling_watchpoints {} {
gdb_run_cmd
set timeout 600
expect {
gdb_expect {
-re "Breakpoint 1, marker1 .*$gdb_prompt $" {
pass "run to marker1 in test_disabling_watchpoints"
}
@ -303,6 +303,8 @@ proc test_stepping {} {
clear_xfail "mips*-*-*"
clear_xfail "sparc-*-*"
clear_xfail "hppa*-*-*bsd*"
# It works with the generic inferior function calling code too.
clear_xfail "mn10200*-*-*"
gdb_test "p func1 ()" "= 73" \
"calling function with watchpoint enabled"
}
@ -316,12 +318,12 @@ proc test_stepping {} {
#
send_gdb "finish\n"
expect {
gdb_expect {
-re "Run.*exit from.*marker1.* at" { }
default { fail "finish from marker1" ; return }
}
expect {
gdb_expect {
-re "marker1 \\(\\);.*$gdb_prompt $" {
send_gdb "step\n"
exp_continue
@ -349,7 +351,7 @@ proc test_stepping {} {
gdb_test "until" "ival1 = count.*" "until to ival1 assignment"
gdb_test "until" "ival3 = count.*" "until to ival3 assignment"
send_gdb "until\n"
expect {
gdb_expect {
-re "(for \\(count = 0|\}).*$gdb_prompt $" {
gdb_test "until" "ival1 = count; /. Outside loop ./" \
"until out of loop"
@ -397,7 +399,7 @@ proc test_watchpoint_triggered_in_syscall {} {
}
send_gdb "123\n"
expect {
gdb_expect {
-re ".*\[Ww\]atchpoint.*buf\\\[0\\\].*Old value = 0.*New value = 49\[^\n\]*\n" { set x [expr $x+1] ; exp_continue }
-re ".*\[Ww\]atchpoint.*buf\\\[1\\\].*Old value = 0.*New value = 50\[^\n\]*\n" { set x [expr $x+1] ; exp_continue }
-re ".*\[Ww\]atchpoint.*buf\\\[2\\\].*Old value = 0.*New value = 51\[^\n\]*\n" { set x [expr $x+1] ; exp_continue }
@ -409,28 +411,28 @@ proc test_watchpoint_triggered_in_syscall {} {
# Examine the values in buf to see how many watchpoints we
# should have printed.
send_gdb "print buf\[0\]\n"
expect {
gdb_expect {
-re ".*= 49.*$gdb_prompt $" { set y [expr $y+1]; pass "print buf\[0\]"}
-re ".*= 0.*$gdb_prompt $" { pass "print buf\[0\]"}
-re ".*$gdb_prompt $" { fail "print buf\[0\]"}
default { fail "print buf\[0\]"}
}
send_gdb "print buf\[1\]\n"
expect {
gdb_expect {
-re ".*= 50.*$gdb_prompt $" { set y [expr $y+1]; pass "print buf\[1\]"}
-re ".*= 0.*$gdb_prompt $" { pass "print buf\[1\]"}
-re ".*$gdb_prompt $" { fail "print buf\[1\]"}
default { fail "print buf\[1\]"}
}
send_gdb "print buf\[2\]\n"
expect {
gdb_expect {
-re ".*= 51.*$gdb_prompt $" { set y [expr $y+1]; pass "print buf\[2\]"}
-re ".*= 0.*$gdb_prompt $" { pass "print buf\[2\]"}
-re ".*$gdb_prompt $" { fail "print buf\[2\]"}
default { fail "print buf\[2\]"}
}
send_gdb "print buf\[3\]\n"
expect {
gdb_expect {
-re ".*= 10.*$gdb_prompt $" { set y [expr $y+1]; pass "print buf\[3\]"}
-re ".*= 0.*$gdb_prompt $" { pass "print buf\[3\]"}
-re ".*$gdb_prompt $" { fail "print buf\[3\]" }
@ -548,7 +550,9 @@ if [initialize] then {
# Only enabled for some targets merely because it has not been tested
# elsewhere.
if {[istarget "hppa*-*-*"] || [istarget "sparc*-*-sunos*"]} then {
if {[istarget "hppa*-*-*"] || \
[istarget "sparc*-*-sunos*"] || \
[istarget "m32r-*-*"]} then {
test_complex_watchpoint
}
}