diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-17 09:42:04 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-17 09:42:04 +0200 |
| commit | b26be063b3ef38c6ddc67e68992a4ecd9c92cd8d (patch) | |
| tree | 24565076b0bd54cc2731f9f111de628d53b3aa07 /gcc/ada/switch-c.ads | |
| parent | 038253e614ae4a012cceeffdabd92185164b4f15 (diff) | |
| download | gcc-b26be063b3ef38c6ddc67e68992a4ecd9c92cd8d.zip gcc-b26be063b3ef38c6ddc67e68992a4ecd9c92cd8d.tar.gz gcc-b26be063b3ef38c6ddc67e68992a4ecd9c92cd8d.tar.bz2 | |
[multiple changes]
2010-06-17 Ed Schonberg <schonberg@adacore.com>
* sem_ch12.adb: propagate Pragma_Enabled flag to generic.
* get_scos.adb: Set C2 flag in decision entry of pragma to 'e' (enabled)
* par_sco.ads, par_sco.adb (Set_SCO_Pragma_Enabled): New procedure
Remove use of Node field in SCOs table
(Output_Header): Set 'd' to initially disable pragma entry
* put_scos.adb (Put_SCOs): New flag indicating if pragma is enabled
* scos.ads, scos.adb: Remove Node field from internal SCOs table.
Use C2 field of pragma decision header to indicate enabled.
* sem_prag.adb: Add calls to Set_SCO_Pragma_Enabled.
* gcc-interface/Make-lang.in: Update dependencies.
2010-06-17 Vincent Celier <celier@adacore.com>
* back_end.adb (Next_Arg): Moved to procedure Scan_Compiler_Arguments
(Scan_Compiler_Arguments): Call Scan_Front_End_Switches with Next_Arg
(Switch_Subsequently_Cancelled): Function moved to the body of Switch.C
* back_end.ads (Scan_Front_End_Switches): Function moved to the body of
Switch.C.
* switch-c.adb: Copied a number of global declarations from back_end.adb
(Len_Arg): New function copied from back_end.adb
(Switch_Subsequently_Cancelled): New function moved from back_end.adb
(Scan_Front_End_Switches): New parameter Arg_Rank used to call
Switch_Subsequently_Cancelled.
* switch-c.ads (Scan_Front_End_Switches): New parameter Arg_Rank.
* gcc-interface/Makefile.in: Add line so that shared libgnat is linked
with -lexc on Tru64.
From-SVN: r160878
Diffstat (limited to 'gcc/ada/switch-c.ads')
| -rw-r--r-- | gcc/ada/switch-c.ads | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/gcc/ada/switch-c.ads b/gcc/ada/switch-c.ads index 09ac49e..126183e 100644 --- a/gcc/ada/switch-c.ads +++ b/gcc/ada/switch-c.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2001-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2009, 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- -- @@ -31,13 +31,18 @@ package Switch.C is - procedure Scan_Front_End_Switches (Switch_Chars : String); + procedure Scan_Front_End_Switches + (Switch_Chars : String; + Arg_Rank : Pos); -- Procedures to scan out front end switches stored in the given string. -- The first character is known to be a valid switch character, and there -- are no blanks or other switch terminator characters in the string, so -- the entire string should consist of valid switch characters, except that -- an optional terminating NUL character is allowed. A bad switch causes -- a fatal error exit and control does not return. The call also sets - -- Usage_Requested to True if a ? switch is encountered. + -- Usage_Requested to True if a switch -gnath is encountered. + -- Arg_Rank is the position of the switch in the command line arguments. + -- It is used for certain switches -gnatx to check if a subsequent switch + -- -gnat-x cancels the switch -gnatx. end Switch.C; |