From e3c972b6b0798dbbe3175dffffab50334411d484 Mon Sep 17 00:00:00 2001 From: charlet Date: Thu, 20 Nov 2014 11:55:25 +0000 Subject: [PATCH] 2014-11-20 Vincent Celier 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 --- gcc/ada/back_end.adb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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; -- 2.47.3