* lib/gnat.exp (local_find_gnatmake): Pass --LINK to gnatlink.
Do not pass -B$root after -margs.
From-SVN: r146345
+2009-04-19 Eric Botcazou <ebotcazou@adacore.com>
+
+ * lib/gnat.exp (local_find_gnatmake): Pass --LINK to gnatlink.
+ Do not pass -B$root after -margs.
+
2009-04-19 Manuel López-Ibáñez <manu@gcc.gnu.org>
PR c/32061
2009-04-19 Manuel López-Ibáñez <manu@gcc.gnu.org>
PR c/32061
proc local_find_gnatmake {} {
global tool_root_dir
proc local_find_gnatmake {} {
global tool_root_dir
if ![is_remote host] {
set file [lookfor_file $tool_root_dir gnatmake]
if { $file == "" } {
if ![is_remote host] {
set file [lookfor_file $tool_root_dir gnatmake]
if { $file == "" } {
}
if { $file != "" } {
set root [file dirname $file]
}
if { $file != "" } {
set root [file dirname $file]
- set CC "$file --GCC=$root/xgcc --GNATBIND=$root/gnatbind --GNATLINK=$root/gnatlink -cargs -B$root -largs -B$root -margs -B$root";
+ set CC "$file --GCC=$root/xgcc --GNATBIND=$root/gnatbind --GNATLINK=$root/gnatlink -cargs -B$root -largs --LINK=$root/xgcc -B$root -margs";
} else {
set CC [transform gnatmake]
}
} else {
set CC [transform gnatmake]
}