From 15e6e014c0cefbe3ab0a15e38f000abcf8053c64 Mon Sep 17 00:00:00 2001 From: ebotcazou Date: Tue, 11 Nov 2014 11:58:26 +0000 Subject: [PATCH] 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 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/mlib-utl.adb | 4 ++++ 2 files changed, 9 insertions(+) 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 + + PR ada/42978 + * mlib-utl.adb (ar): Output the options passed to ranlib. + 2014-11-07 Arnaud Charlet * 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; -- 2.11.4.GIT