From: Piotr Trojanek <trojanek@adacore.com>
Date: Fri, 5 Nov 2021 15:51:46 +0000 (+0100)
Subject: [Ada] Cleanup listing of representation info
X-Git-Tag: basepoints/gcc-13~2658
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f05f68bc00755e39ed05a17e5f74483f151a7fee;p=thirdparty%2Fgcc.git

[Ada] Cleanup listing of representation info

gcc/ada/

	* repinfo.adb (List_Entities): Simplify detection of entries;
	refactor potentially redundant comparison.
---

diff --git a/gcc/ada/repinfo.adb b/gcc/ada/repinfo.adb
index 75af649e166e..36ad8050d1fe 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