Re: [patch] Add find_gnat to libgloss.exp

[James A. Morrison]

Rob Savoye <address@hidden> writes:

> 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 -

 Thanks, these functions are pretty much the same.  I decided to add the
-I in ada.exp and -B is set by something else in the GCC testsuite.  However,
I think what is in there is better than what I have.

-- 
Thanks,
Jim

http://www.student.cs.uwaterloo.ca/~ja2morri/
http://phython.blogspot.com
http://open.nit.ca/wiki/?page=jim