From b5e09f300d62b16252b9238b9ac7ae2a95dfbcd8 Mon Sep 17 00:00:00 2001 From: guerby Date: Tue, 6 Jun 2006 12:37:01 +0000 Subject: [PATCH] 2006-06-06 Laurent GUERBY 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 --- gcc/ada/ChangeLog | 5 +++++ 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 + + PR ada/27769 + mlib-utl.adb: Use Program_Name. + 2006-05-28 Kazu Hirata * 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); -- 2.7.4