diff options
author | Laurent GUERBY <laurent@guerby.net> | 2006-06-06 12:37:01 +0000 |
---|---|---|
committer | Laurent Guerby <guerby@gcc.gnu.org> | 2006-06-06 12:37:01 +0000 |
commit | 8c60f779e1bb9e95e9b4135e6c5b6b2dc9529b9d (patch) | |
tree | 18283a242822b390002d79e2559743a61614219f /gcc/ada | |
parent | 3db45ab5922caf3331b231c9305ce7c0aa85862c (diff) | |
download | gcc-8c60f779e1bb9e95e9b4135e6c5b6b2dc9529b9d.zip gcc-8c60f779e1bb9e95e9b4135e6c5b6b2dc9529b9d.tar.gz gcc-8c60f779e1bb9e95e9b4135e6c5b6b2dc9529b9d.tar.bz2 |
re PR ada/27769 (cross-gnatmake needs host gcc)
2006-06-06 Laurent GUERBY <laurent@guerby.net>
PR ada/27769
mlib-utl.adb: Use Program_Name.
From-SVN: r114429
Diffstat (limited to 'gcc/ada')
-rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/ada/mlib-utl.adb | 6 |
2 files changed, 8 insertions, 3 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 6698b77..215609e 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2006-06-06 Laurent GUERBY <laurent@guerby.net> + + PR ada/27769 + mlib-utl.adb: Use Program_Name. + 2006-05-28 Kazu Hirata <kazu@codesourcery.com> * decl.c, env.c, gigi.h, init.c, initialize.c, raise-gcc.c, diff --git a/gcc/ada/mlib-utl.adb b/gcc/ada/mlib-utl.adb index ab0689b..b6dc7c2 100644 --- a/gcc/ada/mlib-utl.adb +++ b/gcc/ada/mlib-utl.adb @@ -38,7 +38,7 @@ package body MLib.Utl is Initialized : Boolean := False; - Gcc_Name : constant String := "gcc"; + Gcc_Name : constant String := Osint.Program_Name ("gcc").all; Gcc_Exec : OS_Lib.String_Access; Ar_Name : OS_Lib.String_Access; @@ -257,7 +257,7 @@ package body MLib.Utl is -- ar - Ar_Name := new String'(Archive_Builder); + Ar_Name := Osint.Program_Name (Archive_Builder); Ar_Exec := OS_Lib.Locate_Exec_On_Path (Ar_Name.all); if Ar_Exec = null then @@ -272,7 +272,7 @@ package body MLib.Utl is -- ranlib - Ranlib_Name := new String'(Archive_Indexer); + Ranlib_Name := Osint.Program_Name (Archive_Indexer); if Ranlib_Name'Length > 0 then Ranlib_Exec := OS_Lib.Locate_Exec_On_Path (Ranlib_Name.all); |