diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-12 15:19:15 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-12 15:19:15 +0200 |
| commit | 489c6e198e9e78f635878bdec992ce4d9fa807a2 (patch) | |
| tree | dee6613608262bd3a26f31a89d7813d8d30eabc4 /gcc/ada/restrict.adb | |
| parent | a7e68e7fa76aa33eab48a30186abcb4d3b291322 (diff) | |
| download | gcc-489c6e198e9e78f635878bdec992ce4d9fa807a2.zip gcc-489c6e198e9e78f635878bdec992ce4d9fa807a2.tar.gz gcc-489c6e198e9e78f635878bdec992ce4d9fa807a2.tar.bz2 | |
[multiple changes]
2013-04-12 Robert Dewar <dewar@adacore.com>
* checks.adb, sem_elab.adb, repinfo.adb, sem_ch4.adb, restrict.adb,
restrict.ads: Minor reformatting.
2013-04-12 Ed Schonberg <schonberg@adacore.com>
* lib-xref.adb: Retrieve original name of classwide type if any.
2013-04-12 Thomas Quinot <quinot@adacore.com>
* exp_ch11.ads: Minor reformatting.
From-SVN: r197910
Diffstat (limited to 'gcc/ada/restrict.adb')
| -rw-r--r-- | gcc/ada/restrict.adb | 24 |
1 files changed, 13 insertions, 11 deletions
diff --git a/gcc/ada/restrict.adb b/gcc/ada/restrict.adb index 2e225f1..6502bb1 100644 --- a/gcc/ada/restrict.adb +++ b/gcc/ada/restrict.adb @@ -69,22 +69,22 @@ package body Restrict is -- Once set True, this is never turned off again. No_Use_Of_Attribute : array (Attribute_Id) of Source_Ptr := - (others => No_Location); + (others => No_Location); No_Use_Of_Attribute_Warning : array (Attribute_Id) of Boolean := - (others => False); + (others => False); No_Use_Of_Attribute_Set : Boolean := False; - -- Indicates that No_Use_Of_Attribute was set at least once. + -- Indicates that No_Use_Of_Attribute was set at least once No_Use_Of_Pragma : array (Pragma_Id) of Source_Ptr := (others => No_Location); No_Use_Of_Pragma_Warning : array (Pragma_Id) of Boolean := - (others => False); + (others => False); No_Use_Of_Pragma_Set : Boolean := False; - -- Indicates that No_Use_Of_Pragma was set at least once. + -- Indicates that No_Use_Of_Pragma was set at least once ----------------------- -- Local Subprograms -- @@ -322,7 +322,7 @@ package body Restrict is return; end if; - -- If nothing set, nothing to check. + -- If nothing set, nothing to check if not No_Use_Of_Attribute_Set then return; @@ -334,8 +334,7 @@ package body Restrict is Error_Msg_Node_1 := N; Error_Msg_Warn := No_Use_Of_Attribute_Warning (A_Id); Error_Msg_N - ("<violation of restriction `No_Use_Of_Attribute '='> &`#", - N); + ("<violation of restriction `No_Use_Of_Attribute '='> &`#", N); end if; end Check_Restriction_No_Use_Of_Attribute; @@ -356,7 +355,7 @@ package body Restrict is return; end if; - -- If nothing set, nothing to check. + -- If nothing set, nothing to check if not No_Use_Of_Pragma_Set then return; @@ -368,8 +367,7 @@ package body Restrict is Error_Msg_Node_1 := Id; Error_Msg_Warn := No_Use_Of_Pragma_Warning (P_Id); Error_Msg_N - ("<violation of restriction `No_Use_Of_Pragma '='> &`#", - Id); + ("<violation of restriction `No_Use_Of_Pragma '='> &`#", Id); end if; end Check_Restriction_No_Use_Of_Pragma; @@ -381,6 +379,10 @@ package body Restrict is function Chars_Is (E : Entity_Id; S : String) return Boolean; -- Return True iff Chars (E) matches S (given in lower case) + -------------- + -- Chars_Is -- + -------------- + function Chars_Is (E : Entity_Id; S : String) return Boolean is Nam : constant Name_Id := Chars (E); begin |