diff options
| author | Simon Wright <simon@pushface.org> | 2014-11-11 11:58:26 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2014-11-11 11:58:26 +0000 |
| commit | 568ccfea0f9f6c4a188429faa42c89087503f5a9 (patch) | |
| tree | 607a75b85ac368cae88ff1247422b644927a8eac /gcc | |
| parent | 36a8422688457ada0e191fda2c03f602fe08b6b7 (diff) | |
| download | gcc-568ccfea0f9f6c4a188429faa42c89087503f5a9.zip gcc-568ccfea0f9f6c4a188429faa42c89087503f5a9.tar.gz gcc-568ccfea0f9f6c4a188429faa42c89087503f5a9.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/mlib-utl.adb | 4 |
2 files changed, 9 insertions, 0 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index f54c409..a5daae1 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 756add1..7e2d56b 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; |