From: Simon Wright <simon@pushface.org>
Date: Tue, 11 Nov 2014 11:58:26 +0000 (+0000)
Subject: re PR ada/42978 (gnatmake doesn't report the options it actually provides to ranlib)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=568ccfea0f9f6c4a188429faa42c89087503f5a9;p=gcc.git

re PR ada/42978 (gnatmake doesn't report the options it actually provides to ranlib)

	PR ada/42978
	* mlib-utl.adb (ar): Output the options passed to ranlib.

From-SVN: r217346
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index f54c409d4f8..a5daae16c69 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2014-11-11  Simon Wright  <simon@pushface.org>
+
+	PR ada/42978
+	* mlib-utl.adb (ar): Output the options passed to ranlib.
+
 2014-11-07  Arnaud Charlet  <charlet@adacore.com>
 
 	* debug.adb, snames.adb-tmpl (Is_Keyword_Name): Consider 'overriding'
diff --git a/gcc/ada/mlib-utl.adb b/gcc/ada/mlib-utl.adb
index 756add1d4ac..7e2d56b75e2 100644
--- a/gcc/ada/mlib-utl.adb
+++ b/gcc/ada/mlib-utl.adb
@@ -282,6 +282,10 @@ package body MLib.Utl is
          if not Opt.Quiet_Output then
             Write_Str  (Ranlib_Name.all);
             Write_Char (' ');
+            for J in Ranlib_Options'Range loop
+               Write_Str  (Ranlib_Options (J).all);
+               Write_Char (' ');
+            end loop;
             Write_Line (Arguments (Ar_Options'Length + 1).all);
          end if;