diff options
| -rw-r--r-- | gcc/ada/back_end.adb | 5 | ||||
| -rw-r--r-- | gcc/ada/lang-specs.h | 2 |
2 files changed, 4 insertions, 3 deletions
diff --git a/gcc/ada/back_end.adb b/gcc/ada/back_end.adb index ede3f8b2097..13a7c7215e0 100644 --- a/gcc/ada/back_end.adb +++ b/gcc/ada/back_end.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2003 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2004 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- -- @@ -207,11 +207,12 @@ package body Back_End is Last := Last - 1; end if; - -- For dumpbase and o, skip following argument and do not + -- For these switches, skip following argument and do not -- store either the switch or the following argument if Switch_Chars (First .. Last) = "o" or else Switch_Chars (First .. Last) = "dumpbase" + or else Switch_Chars (First .. Last) = "-param" then Next_Arg := Next_Arg + 1; diff --git a/gcc/ada/lang-specs.h b/gcc/ada/lang-specs.h index 7924c23729a..efcb4f96c72 100644 --- a/gcc/ada/lang-specs.h +++ b/gcc/ada/lang-specs.h @@ -39,5 +39,5 @@ %{O*} %{W*} %{w} %{p} %{pg:-p} %{a} %{f*} %{d*} %{g*&m*} %1\ %{!S:%{o*:%w%*-gnatO}} \ %i %{S:%W{o*}%{!o*:-o %b.s}} \ - %{gnatc*|gnats*: -o %j} \ + %{gnatc*|gnats*: -o %j} %{-param*} \ %{!gnatc*:%{!gnats*:%(invoke_as)}}", 0, 0, 0}, |
