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

[deliverable/binutils-gdb.git] / gdb / testsuite / lib / gdb.exp

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 3d1ef7174d74650569308315b8bf852910d381ef..6388877ee03a56c50349e1883930e60843e9c838 100644 (file)
--- 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;