From: charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Thu, 20 Nov 2014 11:55:25 +0000 (+0000)
Subject: 2014-11-20  Vincent Celier  <celier@adacore.com>
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=e3c972b6b0798dbbe3175dffffab50334411d484;p=thirdparty%2Fgcc.git

2014-11-20  Vincent Celier  <celier@adacore.com>

	PR ada/47500
	* back_end.adb (Scan_Back_End_Switches): Skip switch -G and
	its argument.



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@217849 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/ada/back_end.adb b/gcc/ada/back_end.adb
index 3e535547db63..adba33e5e319 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;