Index: lib/gdb.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/lib/gdb.exp,v
retrieving revision 1.49
diff -u -p -r1.49 gdb.exp
--- lib/gdb.exp	23 Feb 2004 19:27:46 -0000	1.49
+++ lib/gdb.exp	24 Feb 2004 19:50:10 -0000
@@ -1361,6 +1361,17 @@ proc gdb_compile_objc {source dest type 
     }
 }
 
+proc gdb_compile_ada {source dest type options} {
+    
+    lappend options "compiler=gnatmake"
+
+    set result [target_compile $source $dest $type $options]
+    if { $result != "" } {
+        verbose "target_compile failed: $result" 2
+        return "gdb_compile_ada failed: $result"
+    }
+}
+
 proc send_gdb { string } {
     global suppress_flag;
     if { $suppress_flag } {