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

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

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

From-SVN: r91876

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;

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