FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

2004-09-09 Michael Chastain <mec.gnu@mindspring.com>

Browse source 
* lib/gdb.exp (gdb_file_cmd): Revert the return value to
	previous simple convention.  Use a global variable to store
	information about what was found.
	(gdb_run_cmd): Adapt to reverted return value.
	* gdb.base/remote.exp: Adapt to reverted return value.
	* gdb.gdb/complaints.exp: Likewise.
	* gdb.gdb/observer.exp: Likewise.
	* gdb.gdb/selftest.exp: Likewise.
	* gdb.gdb/xfullpath.exp: Likewise.
This commit is contained in:
Michael Chastain 2004-09-10 01:04:59 +00:00
parent e0638f7007
commit 2db8e78e67
6 changed files with 76 additions and 67 deletions
Download patch file Download diff file Expand all files Collapse all files

15
gdb/testsuite/gdb.gdb/complaints.exp
View file

@ -49,17 +49,20 @@ proc setup_test { executable } {
set timeout 600
verbose "Timeout is now $timeout seconds" 2
global gdb_file_cmd_debug_info
set gdb_file_cmd_debug_info "unset"
set result [gdb_load $executable]
set timeout $oldtimeout
verbose "Timeout is now $timeout seconds" 2
if { [lindex $result 0] != "" } then {
if { $result != 0 } then {
return -1
}
if { $gdb_file_cmd_debug_info != "debug" } then {
untested "No debug information, skipping testcase."
return -1
} else {
if { [lsearch -exact [lrange $result 1 end] "nodebug"] >= 0 } then {
untested "No debug information, skipping testcase."
return -1
}
}
# Set a breakpoint at main

15
gdb/testsuite/gdb.gdb/observer.exp
View file

@ -47,17 +47,20 @@ proc setup_test { executable } {
set timeout 600
verbose "Timeout is now $timeout seconds" 2
global gdb_file_cmd_debug_info
set gdb_file_cmd_debug_info "unset"
set result [gdb_load $executable]
set timeout $oldtimeout
verbose "Timeout is now $timeout seconds" 2
if { [lindex $result 0] != "" } then {
if { $result != 0 } then {
return -1
}
if { $gdb_file_cmd_debug_info != "debug" } then {
untested "No debug information, skipping testcase."
return -1
} else {
if { [lsearch -exact [lrange $result 1 end] "nodebug"] >= 0 } then {
untested "No debug information, skipping testcase."
return -1
}
}
# Set a breakpoint at main

15
gdb/testsuite/gdb.gdb/selftest.exp
View file

@ -241,17 +241,20 @@ proc test_with_self { executable } {
set timeout 600
verbose "Timeout is now $timeout seconds" 2
global gdb_file_cmd_debug_info
set gdb_file_cmd_debug_info "unset"
set result [gdb_load $executable]
set timeout $oldtimeout
verbose "Timeout is now $timeout seconds" 2
if { [lindex $result 0] != "" } then {
if { $result != 0 } then {
return -1
}
if { $gdb_file_cmd_debug_info != "debug" } then {
untested "No debug information, skipping testcase."
return -1
} else {
if { [lsearch -exact [lrange $result 1 end] "nodebug"] >= 0 } then {
untested "No debug information, skipping testcase."
return -1
}
}
# disassemble yourself

15
gdb/testsuite/gdb.gdb/xfullpath.exp
View file

@ -48,17 +48,20 @@ proc setup_test { executable } {
set timeout 600
verbose "Timeout is now $timeout seconds" 2
global gdb_file_cmd_debug_info
set gdb_file_cmd_debug_info "unset"
set result [gdb_load $executable]
set timeout $oldtimeout
verbose "Timeout is now $timeout seconds" 2
if { [lindex $result 0] != "" } then {
if { $result != 0 } then {
return -1
}
if { $gdb_file_cmd_debug_info != "debug" } then {
untested "No debug information, skipping testcase."
return -1
} else {
if { [lsearch -exact [lrange $result 1 end] "nodebug"] >= 0 } then {
untested "No debug information, skipping testcase."
return -1
}
}
# Set a breakpoint at main