From 489c6e198e9e78f635878bdec992ce4d9fa807a2 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 12 Apr 2013 15:19:15 +0200 Subject: [multiple changes] 2013-04-12 Robert Dewar * checks.adb, sem_elab.adb, repinfo.adb, sem_ch4.adb, restrict.adb, restrict.ads: Minor reformatting. 2013-04-12 Ed Schonberg * lib-xref.adb: Retrieve original name of classwide type if any. 2013-04-12 Thomas Quinot * exp_ch11.ads: Minor reformatting. From-SVN: r197910 --- gcc/ada/restrict.adb | 24 +++++++++++++----------- 1 file changed, 13 insertions(+), 11 deletions(-) (limited to 'gcc/ada/restrict.adb') 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 - (" &`#", 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 - (" &`#", 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 -- cgit v1.1