diff options
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); |