2006-06-06 Laurent GUERBY <laurent@guerby.net>

        PR ada/27769
        mlib-utl.adb: Use Program_Name.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@114429 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 6698b77..215609e 100644 (file)
--- 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 (file)
--- 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);