[Ada] Remove obsolete stuff from repinfo.adb

2018-05-23  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

	* repinfo.adb (List_Type_Info): Remove obsolete stuff.

From-SVN: r260579

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 6f495c1c3b275694eb24552f3dde04495756136f..d5679e23fe88cbaff963d1dfc4d7197d4004896b 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2018-05-23  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * repinfo.adb (List_Type_Info): Remove obsolete stuff.
+
 2018-05-23  Hristian Kirtchev  <kirtchev@adacore.com>
 
        * einfo.adb: Flag304 is now Is_Elaboration_Warnings_OK_Id.

diff --git a/gcc/ada/repinfo.adb b/gcc/ada/repinfo.adb
index 1012df365c8842c5b5f3ee2b0a50385947ade849..7f7152d7b12ff791bcccb0efee5e59391a0b04bf 100644 (file)
--- a/gcc/ada/repinfo.adb
+++ b/gcc/ada/repinfo.adb
@@ -1313,8 +1313,8 @@ package body Repinfo is
          null;
 
       else
-         --  If Esize and RM_Size are the same and known, list as Size. This
-         --  is a common case, which we may as well list in simple form.
+         --  If Esize and RM_Size are the same, list as Size. This is a common
+         --  case, which we may as well list in simple form.
 
          if Esize (Ent) = RM_Size (Ent) then
             Write_Str ("for ");
@@ -1323,18 +1323,7 @@ package body Repinfo is
             Write_Val (Esize (Ent));
             Write_Line (";");
 
-         --  For now, temporary case, to be removed when gigi properly back
-         --  annotates RM_Size, if RM_Size is not set, then list Esize as Size.
-         --  This avoids odd Object_Size output till we fix things???
-
-         elsif Unknown_RM_Size (Ent) then
-            Write_Str ("for ");
-            List_Name (Ent);
-            Write_Str ("'Size use ");
-            Write_Val (Esize (Ent));
-            Write_Line (";");
-
-         --  Otherwise list size values separately if they are set
+         --  Otherwise list size values separately
 
          else
             Write_Str ("for ");
@@ -1343,9 +1332,6 @@ package body Repinfo is
             Write_Val (Esize (Ent));
             Write_Line (";");
 
-            --  Note on following check: The RM_Size of a discrete type can
-            --  legitimately be set to zero, so a special check is needed.
-
             Write_Str ("for ");
             List_Name (Ent);
             Write_Str ("'Value_Size use ");