00cf531
2003-07-11  Elena Zannoni  <ezannoni@redhat.com>
00cf531
00cf531
        * lib/gdb.exp (setup_kfail, kfail): Redefine procedures.
00cf531
                                                                               
00cf531
--- ./gdb/testsuite/lib/gdb.exp.1	2004-11-24 15:59:46.131394720 -0500
00cf531
+++ ./gdb/testsuite/lib/gdb.exp	2004-11-24 16:01:06.304206600 -0500
00cf531
@@ -63,6 +63,15 @@
00cf531
 
00cf531
 ### Only procedures should come after this point.
00cf531
 
00cf531
+if {![llength [info procs kfail]]} {
00cf531
+    proc setup_kfail { args } {
00cf531
+	#setup_xfail args
00cf531
+    }
00cf531
+    proc kfail { bugid message } {
00cf531
+	fail $message
00cf531
+    }
00cf531
+}
00cf531
+
00cf531
 #
00cf531
 # gdb_version -- extract and print the version number of GDB
00cf531
 #