[Ada] Couple of formatting and stylistic fixes

2020-06-16  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

	* freeze.adb (Freeze_Expression): Use consistent style and
	formatting in a couple of cases.

diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb
index 47a063ae043736f95e71e499358a5d67e3809c19..0f6739f97bc09ed6745fdd834cf32429fc50d2cb 100644 (file)
--- a/gcc/ada/freeze.adb
+++ b/gcc/ada/freeze.adb
@@ -7624,11 +7624,8 @@ package body Freeze is
                --  case of array types.
 
                when N_Expression_With_Actions =>
-                  if Is_List_Member (P)
-                    and then List_Containing (P) = Actions (Parent_P)
-                  then
-                     exit;
-                  end if;
+                  exit when Is_List_Member (P)
+                    and then List_Containing (P) = Actions (Parent_P);
 
                --  N_Loop_Statement is a special case: a type that appears in
                --  the source can never be frozen in a loop (this occurs only
@@ -7641,7 +7638,8 @@ package body Freeze is
 
                when N_Loop_Statement
                   | N_If_Expression
-                  | N_Case_Expression =>
+                  | N_Case_Expression
+               =>
                   exit when not Comes_From_Source (Etype (N))
                     and then (No (Nam) or else not Comes_From_Source (Nam));