procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR ada/27769 (cross-gnatmake needs host gcc)

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

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

From-SVN: r114429
This commit is contained in:
Laurent GUERBY 2006-06-06 12:37:01 +00:00 • committed by Laurent Guerby
parent 3db45ab592
commit 8c60f779e1
2 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/ada/ChangeLog
View file

@ -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,

6
gcc/ada/mlib-utl.adb
View file

@ -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);