Mercurial > hg > CbC > CbC_gcc
diff gcc/ada/back_end.adb @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line diff
--- a/gcc/ada/back_end.adb Thu Oct 25 07:37:49 2018 +0900 +++ b/gcc/ada/back_end.adb Thu Feb 13 11:34:05 2020 +0900 @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2018, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2019, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -237,22 +237,21 @@ Last : constant Natural := Switch_Last (Switch_Chars); begin - -- Skip -o or internal GCC switches together with their argument. + -- Skip -o or internal GCC switches together with their argument if Switch_Chars (First .. Last) = "o" or else Is_Internal_GCC_Switch (Switch_Chars) then Next_Arg := Next_Arg + 1; - -- Store -G xxx as -Gxxx and go directly to the next argument. + -- Store -G xxx as -Gxxx and go directly to the next argument elsif Switch_Chars (First .. Last) = "G" then Next_Arg := Next_Arg + 1; -- Should never get there with -G not followed by an argument, - -- but use defensive code nonetheless. - -- Store as -Gxxx to avoid storing parameters in ALI files that - -- might create confusion. + -- but use defensive code nonetheless. Store as -Gxxx to avoid + -- storing parameters in ALI files that might create confusion. if Next_Arg <= Args'Last then Store_Compilation_Switch (Switch_Chars & Args (Next_Arg).all);