PR ada/42978

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

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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index f54c409d4f8870041c5d9fa8d27024a2b98badae..a5daae16c69059b1dca74eedfafcc300338f6f32 100644 (file)
--- 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 756add1d4acb8dd5715b805af9463f4919c29034..7e2d56b75e244b184b440a8bbbafb1eabd5f6796 100644 (file)
--- 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;