From: Robert Dewar Date: Wed, 5 Dec 2001 01:10:00 +0000 (+0000) Subject: * errout.adb: Minor reformatting X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=0ae8475357b8d605200056d51e0946d40ff57e39;p=gcc.git * errout.adb: Minor reformatting From-SVN: r47640 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 02bc72d4575..5d762463889 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2001-12-04 Robert Dewar + + * errout.adb: Minor reformatting + 2001-12-04 Robert Dewar * exp_util.adb: Minor reformatting from last change diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb index 28b0c4c212a..74fc82124c7 100644 --- a/gcc/ada/errout.adb +++ b/gcc/ada/errout.adb @@ -1937,8 +1937,6 @@ package body Errout is Traverse_Func (Check_For_Warning); -- This defines the traversal operation - Discard : Traverse_Result; - ----------------------- -- Check_For_Warning -- ----------------------- @@ -1951,6 +1949,10 @@ package body Errout is -- Returns True for a message that is to be removed. Also adjusts -- warning count appropriately. + ------------------- + -- To_Be_Removed -- + ------------------- + function To_Be_Removed (E : Error_Msg_Id) return Boolean is begin if E /= No_Error_Msg @@ -1984,7 +1986,6 @@ package body Errout is if Nkind (N) = N_Raise_Constraint_Error and then Original_Node (N) /= N then - -- Warnings may have been posted on subexpressions of -- the original tree. We temporarily replace the raise -- statement with the original expression to remove @@ -1992,7 +1993,7 @@ package body Errout is -- any node in the current tree. declare - Old : Node_Id := N; + Old : Node_Id := N; Status : Traverse_Result; begin @@ -2011,7 +2012,11 @@ package body Errout is begin if Warnings_Detected /= 0 then - Discard := Check_All_Warnings (N); + declare + Discard : Traverse_Result; + begin + Discard := Check_All_Warnings (N); + end; end if; end Remove_Warning_Messages;