* gdb.base/overlays.exp: Preliminary fixes; temporarily disabled

 	until it has been modified to work with the new testsuite.

	* gdb.*/*.exp: Instead of causing 1 unresolved test when the
 	testcase won't compile, cause all of the testcases in the file to
 	fail instead.

	* lib/gdb.exp(gdb_suppress_entire_file): New procedure.
	(gdb_clear_suppressed): New procedure.
	(gdb_stop_suppressing_tests): Only clear suppress_flag if
	it contains a positive value.

1 files changed, 15 insertions, 2 deletions

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 6994c6d..250f952 100644
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -874,6 +874,13 @@ proc gdb_expect { args } {
     }
 }
 
+proc gdb_suppress_entire_file { reason } {
+    global suppress_flag;
+
+    warning "$reason\n";
+    set suppress_flag -1;
+}
+
 #
 # Set suppress_flag, which will cause all subsequent calls to send_gdb and
 # gdb_expect to fail immediately (until the next call to 
@@ -900,7 +907,7 @@ proc gdb_stop_suppressing_tests { } {
     global suppress_flag;
 
     if [info exists suppress_flag] {
-	if { $suppress_flag != 0 } {
+	if { $suppress_flag > 0 } {
 	    set suppress_flag 0;
 	    clone_output "Tests restarted.\n";
 	}
@@ -909,6 +916,12 @@ proc gdb_stop_suppressing_tests { } {
     }
 }
 
+proc gdb_clear_suppressed { } {
+    global suppress_flag;
+
+    set suppress_flag 0;
+}
+
 proc gdb_start { } {
     default_gdb_start
 }
@@ -932,7 +945,7 @@ proc gdb_continue { function } {
 }
 
 proc default_gdb_init { args } {
-    gdb_stop_suppressing_tests;
+    gdb_clear_suppressed;
 
     # Uh, this is lame. Really, really, really lame. But there's this *one*
     # testcase that will fail in random places if we don't increase this.