From 8c60f779e1bb9e95e9b4135e6c5b6b2dc9529b9d Mon Sep 17 00:00:00 2001 From: Laurent GUERBY Date: Tue, 6 Jun 2006 12:37:01 +0000 Subject: [PATCH] re PR ada/27769 (cross-gnatmake needs host gcc) 2006-06-06 Laurent GUERBY PR ada/27769 mlib-utl.adb: Use Program_Name. From-SVN: r114429 --- 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 6698b77a073..215609e9f56 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 ab0689b9459..b6dc7c2fbe5 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);