[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [patch] Add find_gnat to libgloss.exp
From: |
Rob Savoye |
Subject: |
Re: [patch] Add find_gnat to libgloss.exp |
Date: |
Fri, 26 Nov 2004 17:44:03 -0700 |
User-agent: |
Mozilla Thunderbird 0.9 (X11/20041103) |
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 -