* lib/gdb.exp (test_xfail_format): Simplify.
authorJim Blandy <jimb@codesourcery.com>
Tue, 2 Oct 2001 19:42:10 +0000 (19:42 +0000)
committerJim Blandy <jimb@codesourcery.com>
Tue, 2 Oct 2001 19:42:10 +0000 (19:42 +0000)
* lib/gdb.exp (setup_xfail_format): Don't forget to put a `$' in
front of the variable name `format'.  Simplify `if'.

gdb/testsuite/ChangeLog
gdb/testsuite/lib/gdb.exp

index 67cadf4a7aef84e2d0e8813f533c6e9ed68963af..59d888a0c7d46733fddeb1817c9420d1eb239551 100644 (file)
@@ -1,3 +1,10 @@
+2001-10-02  Jim Blandy  <jimb@redhat.com>
+
+       * lib/gdb.exp (test_xfail_format): Simplify.
+
+       * lib/gdb.exp (setup_xfail_format): Don't forget to put a `$' in
+       front of the variable name `format'.  Simplify `if'.
+
 2001-10-01  Daniel Jacobowitz  <drow@mvista.com>
 
        * gdb.threads/pthreads.exp: Wait for output and delay
index 6388877ee03a56c50349e1883930e60843e9c838..b36211ff559a257625871df1b92172e88d019a24 100644 (file)
@@ -1417,26 +1417,28 @@ proc get_debug_format { } {
     }
 }
 
+# Return true if FORMAT matches the debug format the current test was
+# compiled with.  FORMAT is a shell-style globbing pattern; it can use
+# `*', `[...]', and so on.
+#
+# This function depends on variables set by `get_debug_format', above.
+
+proc test_debug_format {format} {
+    global debug_format
+
+    return [expr [string match $format $debug_format] != 0]
+}
+
 # Like setup_xfail, but takes the name of a debug format (DWARF 1,
 # COFF, stabs, etc).  If that format matches the format that the
 # current test was compiled with, then the next test is expected to
 # fail for any target.  Returns 1 if the next test or set of tests is
 # expected to fail, 0 otherwise (or if it is unknown).  Must have
 # previously called get_debug_format.
-
-proc test_debug_format { format } {
-    global debug_format
-
-    if [string match $debug_format $format] then {
-       return 1;
-    }
-    return 0
-}
-
 proc setup_xfail_format { format } {
-    set ret [test_debug_format format];
+    set ret [test_debug_format $format];
 
-    if [expr $ret != 0] then {
+    if {$ret} then {
        setup_xfail "*-*-*"
     }
     return $ret;