Toolchain/binutils-gdb
1
0
Fork 0
forked from Imagelibrary/binutils-gdb
Code Pull Requests Activity

* lib/gdb.exp: Report timeout value for verbosity level 2.

Browse Source 
* config/gdbserver.exp: Ditto.
	* config/hppro.exp: Ditto.
	* config/mips-gdb.exp: Ditto.
	* config/monitor.exp: Ditto.
	* config/netware.exp: Ditto.
	* config/sim-gdb.exp: Ditto.
	* config/slite-gdb.exp: Ditto.
	* config/udi-gdb.exp: Ditto.
	* config/unix-gdb.exp: Ditto.
	* config/vx-gdb.exp: Ditto.
	* gdb.base/a1-selftest.exp: Ditto.
	* gdb.base/a2-run.exp: Ditto.
	* gdb.base/break.exp: Ditto.
	* gdb.base/corefile.exp: Ditto.
	* gdb.base/list.exp: Ditto.
	* gdb.base/recurse.exp: Ditto.
	* gdb.base/scope.exp: Ditto.
	* gdb.base/signals.exp: Ditto.
This commit is contained in:
Fred Fish
1996-06-26 04:38:38 +00:00
parent 78c09e4af5
commit a26fa899a0
13 changed files with 304 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
gdb/testsuite/gdb.base/a1-selftest.exp
View File

@@ -44,6 +44,7 @@ proc test_with_self {} {
global tool
global det_file
global decimal
global timeout
# load yourself into the debugger
# This can take a relatively long time, particularly for testing where
@@ -56,6 +57,7 @@ proc test_with_self {} {
# of this test, and then back to the original value.
set timeout 600
verbose "Timeout is now $timeout seconds" 2
if {[gdb_load "./x$tool"] <0} then {
return -1
}
@@ -118,6 +120,7 @@ proc test_with_self {} {
# It may take a very long time for the inferior gdb to start (lynx),
# so we wait until after it's started to reset the timeout value.
set timeout 30
verbose "Timeout is now $timeout seconds" 2
# do we have a version number ?
send "print version\n"

15
gdb/testsuite/gdb.base/list.exp
View File

@@ -28,24 +28,29 @@ set bug_id 0
set testfile "list"
set binfile ${objdir}/${subdir}/${testfile}
if { [compile "${srcdir}/${subdir}/list0.c -g -c -o ${binfile}0.o"] != "" } {
if { [compile "-g -c ${srcdir}/${subdir}/list0.c"] != "" } {
perror "Couldn't compile ${testfile}0.c to object"
return -1
}
if { [compile "${srcdir}/${subdir}/list1.c -g -c -o ${binfile}1.o"] != "" } {
execute_anywhere "mv list0.o ${binfile}0.o"
if { [compile "-g -c ${srcdir}/${subdir}/list1.c"] != "" } {
perror "Couldn't compile ${testfile}1.c to object"
return -1
}
execute_anywhere "mv list1.o ${binfile}1.o"
if { [compile "${binfile}0.o ${binfile}1.o -o ${binfile}"] != "" } {
perror "Couldn't link ${testfile}."
return -1
}
# Create and source the file that provides information about the compiler
# used to compile the test case.
execute_anywhere "rm -f ${binfile}.ci"
if { [compile "-E ${srcdir}/${subdir}/compiler.c > ${binfile}.ci"] != "" } {
perror "Couldn't make ${testfile}.ci file"
perror "Couldn't make ${binfile}.ci file"
return -1
}
source ${binfile}.ci
#
# Local utility proc just to set and verify listsize
@@ -545,7 +550,6 @@ proc test_list_function {} {
# Ultrix gdb is the second case, still correct.
# SunPRO cc is the third case.
setup_xfail "powerpc-*-*"
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
send "list foo\n"
expect {
-re "2\[ \t\]+including file.*11\[ \t\]+bar \[(\]+.*\[)\]+;\r\n$prompt $" {
@@ -894,6 +898,7 @@ proc test_forward_search {} {
# being searched is extremely long.
set timeout 30
verbose "Timeout is now $timeout seconds" 2
gdb_test "search 1234" ""
}
@@ -904,8 +909,6 @@ gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
source ${binfile}.ci
if $usestubs {
send "step\n"
# if use stubs step out of the breakpoint() function.

11
gdb/testsuite/gdb.base/signals.exp
View File

@@ -18,12 +18,14 @@ if { [compile "${srcdir}/${subdir}/${srcfile} -g -o ${binfile}"] != "" } {
return -1
}
# Create and source the file that provides information about the compiler
# used to compile the test case.
execute_anywhere "rm -f ${binfile}.ci"
if { [compile "-E ${srcdir}/${subdir}/compiler.c > ${binfile}.ci"] != "" } {
perror "Couldn't make ${testfile}.ci file"
perror "Couldn't make ${binfile}.ci file"
return -1
}
source gdb.base/${testfile}.ci
source ${binfile}.ci
proc signal_tests_1 {} {
global prompt
@@ -303,8 +305,8 @@ proc test_handle_all_print {} {
# Increase timeout and expect input buffer for large output from gdb.
# Allow blank or TAB as whitespace characters.
set timeout 30
verbose "Timeout is now $timeout seconds" 2
match_max 8000
setup_xfail "alpha-dec-osf2*"
gdb_test "handle all print" "Signal\[ \]+Stop\[ \]+Print\[ \]+Pass to program\[ \]+Description\r\nSIGHUP\[ \]+Yes\[ \]+Yes\[ \]+Yes\[ \]+Hangup.*SIG63\[ \]+Yes\[ \]+Yes\[ \]+Yes\[ \]+Real-time event 63"
}
test_handle_all_print
@@ -365,9 +367,8 @@ if [runto_main] then {
The program being debugged stopped while in a function called from GDB.*" \
"p func1 () #2 in signals.exp"
# But we should be able to backtrace...
# On alpha-*-osf2.0 this test works when run manually but fails when
# On alpha-*-osf2.0 this test works when run manually but sometime fails when
# run under dejagnu, making it very hard to debug the problem. Weird...
if {$gcc_compiled} then { setup_xfail "alpha-*-osf2*" }
gdb_test "bt" "#0.*handler.*#1.*#2.*main.*" "bt in signals.exp"
# ...and continue...
gdb_test "continue" "Continuing\\." "continue in signals.exp"