Re: [patch] Add find_gnat to libgloss.exp

[Rob Savoye]

James A. Morrison wrote:

> Is the other version only in CVS? I can't seem to find it in the 
> libgloss.exp available in 1.4.4.

 Yeah, it's reasonably new. Guess there weren't as many GNAT developers 
a year ago... Here's that patch in it's entirety:

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
}

   - rob -