2001-09-27 Michael Snyder <msnyder@redhat.com>

        * lib/gdb.exp (test_debug_format): New proc.
	(setup_xfail_format): Use new proc test_debug_format.
	* gdb.base/constvars.exp (local_compiler_xfail_check): New
	proc; use new service proc test_debug_format.
	Replace all other "gcc_compiled" tests with this test.
	* gdb.base/volatile.exp (local_compiler_xfail_check): New
	proc; use new service proc test_debug_format.
	Replace all other "gcc_compiled" tests with this test.

1 files changed, 11 insertions, 3 deletions

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 3d1ef71..6388877 100644
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -1424,15 +1424,23 @@ proc get_debug_format { } {
 # expected to fail, 0 otherwise (or if it is unknown).  Must have
 # previously called get_debug_format.
 
-proc setup_xfail_format { format } {
+proc test_debug_format { format } {
     global debug_format
 
     if [string match $debug_format $format] then {
-	setup_xfail "*-*-*"
 	return 1;
     }
     return 0
-}    
+}
+
+proc setup_xfail_format { format } {
+    set ret [test_debug_format format];
+
+    if [expr $ret != 0] then {
+	setup_xfail "*-*-*"
+    }
+    return $ret;
+}
 
 proc gdb_step_for_stub { } {
     global gdb_prompt;