From: Piotr Trojanek <trojanek@adacore.com>
Date: Fri, 5 Jun 2020 11:30:54 +0000 (+0200)
Subject: [Ada] Cleanup code related to object overlays
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=790b1f64157b53265f85ad9a093cdce03761db87;p=gcc.git

[Ada] Cleanup code related to object overlays

gcc/ada/

	* sem_util.adb (Find_Overlaid_Entity): Fix style in comment.
	(Note_Possible_Modification): Simplify repeated calls to Ekind.
---

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index 56fd677ed3c..06e425de037 100644
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -8691,7 +8691,7 @@ package body Sem_Util is
                Expr := Prefix (Expr);
                exit;
 
-               --  Check for Const where Const is a constant entity
+            --  Check for Const where Const is a constant entity
 
             elsif Is_Entity_Name (Expr)
               and then Ekind (Entity (Expr)) = E_Constant
@@ -23841,7 +23841,7 @@ package body Sem_Util is
 
                --  Follow renaming chain
 
-               if (Ekind (Ent) = E_Variable or else Ekind (Ent) = E_Constant)
+               if Ekind_In (Ent, E_Variable, E_Constant)
                  and then Present (Renamed_Object (Ent))
                then
                   Exp := Renamed_Object (Ent);