diff options
| author | Vincent Celier <celier@adacore.com> | 2014-11-20 12:55:25 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-11-20 12:55:25 +0100 |
| commit | bfe25016e3146d7d6d11c1d378dc00507ab0b8c6 (patch) | |
| tree | 9129062fc473478e8f509ecfaa0eb747c2abc30b /gcc | |
| parent | 5073ad7a647c3f8075429d7b69ac810cc53f118d (diff) | |
| download | gcc-bfe25016e3146d7d6d11c1d378dc00507ab0b8c6.zip gcc-bfe25016e3146d7d6d11c1d378dc00507ab0b8c6.tar.gz gcc-bfe25016e3146d7d6d11c1d378dc00507ab0b8c6.tar.bz2 | |
re PR target/47500 (-G0 option not recognized by gnat1)
2014-11-20 Vincent Celier <celier@adacore.com>
PR ada/47500
* back_end.adb (Scan_Back_End_Switches): Skip switch -G and
its argument.
From-SVN: r217849
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/back_end.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/back_end.adb b/gcc/ada/back_end.adb index 3e53554..adba33e 100644 --- a/gcc/ada/back_end.adb +++ b/gcc/ada/back_end.adb @@ -232,9 +232,10 @@ package body Back_End is Last : constant Natural := Switch_Last (Switch_Chars); begin - -- Skip -o or internal GCC switches together with their argument + -- Skip -o, -G or internal GCC switches together with their argument. if Switch_Chars (First .. Last) = "o" + or else Switch_Chars (First .. Last) = "G" or else Is_Internal_GCC_Switch (Switch_Chars) then Next_Arg := Next_Arg + 1; |