[gcc r12-5655] [Ada] Cleanup listing of representation info

[gcc r12-5655] [Ada] Cleanup listing of representation info

[Pierre-Marie de Rodat]

https://gcc.gnu.org/g:f05f68bc00755e39ed05a17e5f74483f151a7fee

commit r12-5655-gf05f68bc00755e39ed05a17e5f74483f151a7fee
Author: Piotr Trojanek <trojanek@adacore.com>
Date:   Fri Nov 5 16:51:46 2021 +0100

    [Ada] Cleanup listing of representation info
    
    gcc/ada/
    
            * repinfo.adb (List_Entities): Simplify detection of entries;
            refactor potentially redundant comparison.

Diff:
---
 gcc/ada/repinfo.adb | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/gcc/ada/repinfo.adb b/gcc/ada/repinfo.adb
index 75af649e166..36ad8050d1f 100644
--- a/gcc/ada/repinfo.adb
+++ b/gcc/ada/repinfo.adb
@@ -491,9 +491,7 @@ package body Repinfo is
          --  been produced when listing the enclosing scope.
 
          if List_Representation_Info_Mechanisms
-           and then (Is_Subprogram (Ent)
-                      or else Ekind (Ent) = E_Entry
-                      or else Ekind (Ent) = E_Entry_Family)
+           and then Is_Subprogram_Or_Entry (Ent)
            and then not In_Subprogram
          then
             List_Subprogram_Info (Ent);
@@ -541,12 +539,12 @@ package body Repinfo is
                elsif Is_Record_Type (E) then
                   if List_Representation_Info >= 1 then
                      List_Record_Info (E, Bytes_Big_Endian);
-                  end if;
 
-                  --  Recurse into entities local to a record type
+                     --  Recurse into entities local to a record type
 
-                  if List_Representation_Info = 4 then
-                     List_Entities (E, Bytes_Big_Endian, False);
+                     if List_Representation_Info = 4 then
+                        List_Entities (E, Bytes_Big_Endian, False);
+                     end if;
                   end if;
 
                elsif Is_Array_Type (E) then