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
This commit is contained in:
Vincent Celier 2014-11-20 12:55:25 +01:00 committed by Arnaud Charlet
parent 5073ad7a64
commit bfe25016e3
1 changed files with 2 additions and 1 deletions

View File

@ -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;