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

2001-02-24 Michael Chastain <chastain@redhat.com>

Browse source 
* gdb.c++/ref-types.exp: Change handwritten code to library
	function 'runto'.
This commit is contained in:
Michael Chastain 2001-03-16 17:59:58 +00:00
parent d165939296
commit b6c11a24b3
2 changed files with 39 additions and 77 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gdb/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
2001-02-24 Michael Chastain <chastain@redhat.com>
* gdb.c++/ref-types.exp: Change handwritten code to library
function 'runto'.
2001-03-16 Orjan Friberg <orjanf@axis.com>
* gdb.base/signals.exp: Set count to 0 explicitly.

111
gdb/testsuite/gdb.c++/ref-types.exp
View file

@ -54,73 +54,44 @@ if ![runto_main] then {
continue
}
send_gdb "break marker1\n" ; gdb_expect -re ".*$gdb_prompt $"
send_gdb "cont\n"
gdb_expect {
-re "Break.* marker1 \\(\\) at .*:$decimal.*$gdb_prompt $" {
send_gdb "up\n"
gdb_expect {
-re ".*main.*$gdb_prompt $" {
pass "up from marker1"
}
-re ".*$gdb_prompt $" {
fail "up from marker1"
}
timeout { fail "up from marker1 (timeout)" }
}
}
-re "$gdb_prompt $" { fail "continue to marker1" }
timeout { fail "(timeout) continue to marker1" }
}
proc gdb_start_again {} {
global srcdir
global subdir
global binfile
global gdb_prompt
global decimal
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
source ${binfile}.ci
#
# set it up at a breakpoint so we can play with the variable values
#
if ![runto_main] then {
perror "couldn't run to breakpoint"
if ![runto 'marker1'] then {
perror "couldn't run to marker1"
continue
}
send_gdb "break marker1\n" ; gdb_expect -re ".*$gdb_prompt $"
gdb_test "up" ".*main.*" "up from marker1 1"
send_gdb "cont\n"
gdb_expect {
-re "Break.* marker1 \\(\\) at .*:$decimal.*$gdb_prompt $" {
send_gdb "up\n"
gdb_expect {
-re ".*main.*$gdb_prompt $" {
pass "up from marker1"
}
-re ".*$gdb_prompt $" {
fail "up from marker1"
}
timeout { fail "up from marker1 (timeout)" }
}
}
-re "$gdb_prompt $" { fail "continue to marker1" }
timeout { fail "(timeout) continue to marker1" }
proc gdb_start_again {} {
global srcdir
global subdir
global binfile
global gdb_prompt
global decimal
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
source ${binfile}.ci
#
# set it up at a breakpoint so we can play with the variable values
#
if ![runto_main] then {
perror "couldn't run to breakpoint"
continue
}
if ![runto 'marker1'] then {
perror "couldn't run to marker1"
continue
}
gdb_test "up" ".*main.*" "up from marker1 2"
}
send_gdb "print s\n"
gdb_expect {
-re ".\[0-9\]* = -1.*$gdb_prompt $" {
@ -290,26 +261,12 @@ gdb_expect {
}
send_gdb "break f\n" ; gdb_expect -re ".*$gdb_prompt $"
send_gdb "cont\n"
gdb_expect {
-re "Break.* f \\(\\) at .*:$decimal.*$gdb_prompt $" {
send_gdb "up\n"
gdb_expect {
-re ".*main2.*$gdb_prompt $" {
pass "up from f"
}
-re ".*$gdb_prompt $" {
fail "up from f"
}
timeout { fail "up from f (timeout)" }
}
}
-re "$gdb_prompt $" { fail "continue to f" }
timeout { fail "(timeout) continue to f" }
}
if ![runto 'f'] then {
perror "couldn't run to f"
continue
}
gdb_test "up" ".main2.*" "up from f"
send_gdb "print C\n"
gdb_expect {