* lib/gdb.exp(gdb_suppress_tests): Add explanation for subsequent
failures. (gdb_stop_suppressing_tests): Note that tests have restarted.
This commit is contained in:
parent
d0c45fcb75
commit
ddb594ac2a
|
@ -1,3 +1,9 @@
|
||||||
|
Thu Apr 3 09:38:53 1997 Bob Manson <manson@charmed.cygnus.com>
|
||||||
|
|
||||||
|
* lib/gdb.exp(gdb_suppress_tests): Add explanation for subsequent
|
||||||
|
failures.
|
||||||
|
(gdb_stop_suppressing_tests): Note that tests have restarted.
|
||||||
|
|
||||||
Wed Apr 2 19:04:20 1997 Bob Manson <manson@charmed.cygnus.com>
|
Wed Apr 2 19:04:20 1997 Bob Manson <manson@charmed.cygnus.com>
|
||||||
|
|
||||||
* config/h8300.exp: New file.
|
* config/h8300.exp: New file.
|
||||||
|
|
|
@ -42,7 +42,7 @@ if ![info exists GDB] {
|
||||||
if ![is_remote host] {
|
if ![is_remote host] {
|
||||||
set GDB [findfile $base_dir/../../gdb/gdb "$base_dir/../../gdb/gdb" [transform gdb]]
|
set GDB [findfile $base_dir/../../gdb/gdb "$base_dir/../../gdb/gdb" [transform gdb]]
|
||||||
} else {
|
} else {
|
||||||
set GDB gdb
|
set GDB [transform gdb];
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
verbose "using GDB = $GDB" 2
|
verbose "using GDB = $GDB" 2
|
||||||
|
@ -708,7 +708,6 @@ proc default_gdb_start { } {
|
||||||
verbose "Spawning $GDB -nw $GDBFLAGS"
|
verbose "Spawning $GDB -nw $GDBFLAGS"
|
||||||
|
|
||||||
if [info exists gdb_spawn_id] {
|
if [info exists gdb_spawn_id] {
|
||||||
foo;
|
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -725,7 +724,8 @@ proc default_gdb_start { } {
|
||||||
set res [remote_spawn host "$GDB -nw $GDBFLAGS"];
|
set res [remote_spawn host "$GDB -nw $GDBFLAGS"];
|
||||||
}
|
}
|
||||||
if { $res < 0 || $res == "" } {
|
if { $res < 0 || $res == "" } {
|
||||||
bar
|
perror "Spawning $GDB failed."
|
||||||
|
return 1;
|
||||||
}
|
}
|
||||||
set timeout 10
|
set timeout 10
|
||||||
gdb_expect {
|
gdb_expect {
|
||||||
|
@ -821,11 +821,16 @@ proc get_compiler_info {binfile} {
|
||||||
}
|
}
|
||||||
|
|
||||||
proc gdb_compile {source dest type options} {
|
proc gdb_compile {source dest type options} {
|
||||||
|
global GDB_TESTCASE_OPTIONS;
|
||||||
|
|
||||||
if [target_info exists gdb_stub] {
|
if [target_info exists gdb_stub] {
|
||||||
set options2 { "additional_flags=-Dusestubs" }
|
set options2 { "additional_flags=-Dusestubs" }
|
||||||
lappend options "libs=[target_info gdb_stub]";
|
lappend options "libs=[target_info gdb_stub]";
|
||||||
set options [concat $options2 $options]
|
set options [concat $options2 $options]
|
||||||
}
|
}
|
||||||
|
if [info exists GDB_TESTCASE_OPTIONS] {
|
||||||
|
lappend options "additional_flags=$GDB_TESTCASE_OPTIONS";
|
||||||
|
}
|
||||||
verbose "options are $options"
|
verbose "options are $options"
|
||||||
verbose "source is $source $dest $type $options"
|
verbose "source is $source $dest $type $options"
|
||||||
set result [target_compile $source $dest $type $options];
|
set result [target_compile $source $dest $type $options];
|
||||||
|
@ -867,10 +872,16 @@ proc gdb_expect { args } {
|
||||||
# gdb_expect to fail immediately (until the next call to
|
# gdb_expect to fail immediately (until the next call to
|
||||||
# gdb_stop_suppressing_tests).
|
# gdb_stop_suppressing_tests).
|
||||||
#
|
#
|
||||||
proc gdb_suppress_tests { } {
|
proc gdb_suppress_tests { args } {
|
||||||
global suppress_flag;
|
global suppress_flag;
|
||||||
|
|
||||||
incr suppress_flag;
|
incr suppress_flag;
|
||||||
|
|
||||||
|
if { [llength $args] > 0 } {
|
||||||
|
warning "[lindex $args 0]\n";
|
||||||
|
} else {
|
||||||
|
warning "Because of previous failure, all subsequent tests in this group will automatically fail.\n";
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
#
|
#
|
||||||
|
@ -880,6 +891,7 @@ proc gdb_stop_suppressing_tests { } {
|
||||||
global suppress_flag;
|
global suppress_flag;
|
||||||
|
|
||||||
set suppress_flag 0;
|
set suppress_flag 0;
|
||||||
|
clone_output "Tests restarted.\n";
|
||||||
}
|
}
|
||||||
|
|
||||||
proc gdb_start { } {
|
proc gdb_start { } {
|
||||||
|
@ -911,6 +923,7 @@ proc gdb_init { args } {
|
||||||
# testcase that will fail in random places if we don't increase this.
|
# testcase that will fail in random places if we don't increase this.
|
||||||
match_max -d 20000
|
match_max -d 20000
|
||||||
|
|
||||||
|
# We want to add the name of the TCL testcase to the PASS/FAIL messages.
|
||||||
if { [llength $args] > 0 } {
|
if { [llength $args] > 0 } {
|
||||||
global pf_prefix
|
global pf_prefix
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue