Index: libgloss.exp
===================================================================
RCS file: /cvsroot/dejagnu/dejagnu/lib/libgloss.exp,v
retrieving revision 1.14
diff -u -p -r1.14 libgloss.exp
--- libgloss.exp	23 Aug 2003 05:55:08 -0000	1.14
+++ libgloss.exp	29 Mar 2004 19:17:57 -0000
@@ -695,6 +695,26 @@ proc find_g77 {} {
     return $CC
 }
 
+proc find_gnatmake {} {
+    global tool_root_dir
+
+    set root "$tool_root_dir/gcc"
+    set GM ""
+
+    if ![is_remote host] {
+        set file [lookfor_file $root gnatmake]
+        if { $file != "" } {
+            set GM "$file -I$root/ada/rts --GCC=$root/xgcc --GNATBIND=$root/gnatbind --GNATLINK=$root/gnatlink -cargs -B$root -largs --GCC=$root/xgcc -margs";
+        }
+    }
+
+    if {$GM == ""} {
+        set GM [transform gnatmake]
+    }
+
+    return $GM
+}
+
 proc find_nm {} {
     global tool_root_dir