Commit 6e6e00ff by Eric Botcazou Committed by Pierre-Marie de Rodat

[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
parent 162ed06f
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.
......
......@@ -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 ");
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment