From: Simon Wright 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 + + 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;