From bfe25016e3146d7d6d11c1d378dc00507ab0b8c6 Mon Sep 17 00:00:00 2001 From: Vincent Celier Date: Thu, 20 Nov 2014 12:55:25 +0100 Subject: [PATCH] re PR target/47500 (-G0 option not recognized by gnat1) 2014-11-20 Vincent Celier PR ada/47500 * back_end.adb (Scan_Back_End_Switches): Skip switch -G and its argument. From-SVN: r217849 --- 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 3e535547db6..adba33e5e31 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.30.2