* lib/gdb.exp(gdb_suppress_tests): Add explanation for subsequent

	failures.
	(gdb_stop_suppressing_tests): Note that tests have restarted.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 68807ee98dfda3d599967664c019442f88fb4887..57927d6ce517604f222d2d7c10c44319fb892d7e 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -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>
 
        * config/h8300.exp: New file.

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 023905ce5c9a64c1ec1e72a03ad5ea1c4673f88f..3f1d646486704faa7a4ad93aa1ca059edd00e4dd 100644 (file)
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -42,7 +42,7 @@ if ![info exists GDB] {
     if ![is_remote host] {
        set GDB [findfile $base_dir/../../gdb/gdb "$base_dir/../../gdb/gdb" [transform gdb]]
     } else {
-       set GDB gdb
+       set GDB [transform gdb];
     }
 }
 verbose "using GDB = $GDB" 2
@@ -708,7 +708,6 @@ proc default_gdb_start { } {
     verbose "Spawning $GDB -nw $GDBFLAGS"
 
     if [info exists gdb_spawn_id] {
-       foo;
        return 0;
     }
 
@@ -725,7 +724,8 @@ proc default_gdb_start { } {
        set res [remote_spawn host "$GDB -nw $GDBFLAGS"];
     }
     if { $res < 0 || $res == "" } {
-       bar
+       perror "Spawning $GDB failed."
+       return 1;
     }
     set timeout 10
     gdb_expect {
@@ -821,11 +821,16 @@ proc get_compiler_info {binfile} {
 }
 
 proc gdb_compile {source dest type options} {
+    global GDB_TESTCASE_OPTIONS;
+
     if [target_info exists gdb_stub] {
        set options2 { "additional_flags=-Dusestubs" }
        lappend options "libs=[target_info gdb_stub]";
        set options [concat $options2 $options]
     }
+    if [info exists GDB_TESTCASE_OPTIONS] {
+       lappend options "additional_flags=$GDB_TESTCASE_OPTIONS";
+    }
     verbose "options are $options"
     verbose "source is $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_stop_suppressing_tests).
 #
-proc gdb_suppress_tests { } {
+proc gdb_suppress_tests { args } {
     global 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;
 
     set suppress_flag 0;
+    clone_output "Tests restarted.\n";
 }
 
 proc gdb_start { } {
@@ -911,6 +923,7 @@ proc gdb_init { args } {
     # testcase that will fail in random places if we don't increase this.
     match_max -d 20000
 
+    # We want to add the name of the TCL testcase to the PASS/FAIL messages.
     if { [llength $args] > 0 } {
        global pf_prefix