* back_end.adb (Scan_Back_End_Switches): Accept --param.

	* lang-specs.h: Accept --param.


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

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},