diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-06-05 13:30:54 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-07-15 09:43:01 -0400 |
| commit | 790b1f64157b53265f85ad9a093cdce03761db87 (patch) | |
| tree | 3ce31a6af630528aba2d0d6f261c83a3fee4a9dc | |
| parent | c2ba82add6af32344b056b272ca1c31b60b8f903 (diff) | |
| download | gcc-790b1f64157b53265f85ad9a093cdce03761db87.zip gcc-790b1f64157b53265f85ad9a093cdce03761db87.tar.gz gcc-790b1f64157b53265f85ad9a093cdce03761db87.tar.bz2 | |
[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.
| -rw-r--r-- | gcc/ada/sem_util.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 56fd677..06e425d 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); |