From: Eric Botcazou <ebotcazou@adacore.com>
Date: Sat, 22 Nov 2014 11:29:27 +0000 (+0000)
Subject: backport: re PR target/47500 (-G0 option not recognized by gnat1)
X-Git-Tag: releases/gcc-4.8.4~106
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d429516930bd54e655ce7c62ca223987d9ddd3ce;p=thirdparty%2Fgcc.git

backport: re PR target/47500 (-G0 option not recognized by gnat1)

	Backport from mainline
	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: r217963
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 2f39ad5dbe19..d33633e543e1 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,12 @@
+2014-11-22  Eric Botcazou  <ebotcazou@adacore.com>
+
+	Backport from mainline
+	2014-11-20  Vincent Celier  <celier@adacore.com>
+
+	PR ada/47500
+	* back_end.adb (Scan_Back_End_Switches): Skip switch -G and
+	its argument.
+
 2014-10-13  Eric Botcazou  <ebotcazou@adacore.com>
             Alan Modra  <amodra@gmail.com>
 
diff --git a/gcc/ada/back_end.adb b/gcc/ada/back_end.adb
index f23230ecf9d3..4313ca4500cf 100644
--- a/gcc/ada/back_end.adb
+++ b/gcc/ada/back_end.adb
@@ -209,9 +209,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;