From: Eric Botcazou <ebotcazou@adacore.com>
Date: Wed, 8 Apr 2020 07:49:01 +0000 (+0200)
Subject: [Ada] Couple of formatting and stylistic fixes
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=9d2e727e9a0de219f60b8f2f1221e88879f06116;p=gcc.git

[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 47a063ae043..0f6739f97bc 100644
--- 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));