+2001-12-04 Robert Dewar <dewar@gnat.com>
+
+ * errout.adb: Minor reformatting
+
2001-12-04 Robert Dewar <dewar@gnat.com>
* exp_util.adb: Minor reformatting from last change
Traverse_Func (Check_For_Warning);
-- This defines the traversal operation
- Discard : Traverse_Result;
-
-----------------------
-- Check_For_Warning --
-----------------------
-- 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
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
-- any node in the current tree.
declare
- Old : Node_Id := N;
+ Old : Node_Id := N;
Status : Traverse_Result;
begin
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;