OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

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

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

From-SVN: r91876
This commit is contained in:
Arnaud Charlet 2004-12-08 12:25:14 +01:00
parent dcdf1790ad
commit a7e5b6df8d
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/back_end.adb
View File

@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- 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; Last := Last - 1;
end if; 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 -- store either the switch or the following argument
if Switch_Chars (First .. Last) = "o" if Switch_Chars (First .. Last) = "o"
or else Switch_Chars (First .. Last) = "dumpbase" or else Switch_Chars (First .. Last) = "dumpbase"
or else Switch_Chars (First .. Last) = "-param"
then then
Next_Arg := Next_Arg + 1; Next_Arg := Next_Arg + 1;

2
gcc/ada/lang-specs.h
View File

@ -39,5 +39,5 @@
%{O*} %{W*} %{w} %{p} %{pg:-p} %{a} %{f*} %{d*} %{g*&m*} %1\ %{O*} %{W*} %{w} %{p} %{pg:-p} %{a} %{f*} %{d*} %{g*&m*} %1\
%{!S:%{o*:%w%*-gnatO}} \ %{!S:%{o*:%w%*-gnatO}} \
%i %{S:%W{o*}%{!o*:-o %b.s}} \ %i %{S:%W{o*}%{!o*:-o %b.s}} \
%{gnatc*|gnats*: -o %j} \ %{gnatc*|gnats*: -o %j} %{-param*} \
%{!gnatc*:%{!gnats*:%(invoke_as)}}", 0, 0, 0}, %{!gnatc*:%{!gnats*:%(invoke_as)}}", 0, 0, 0},