From 6e6e00ffd2e588af096ea00e8ae9576efd1d1e49 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Wed, 23 May 2018 10:22:20 +0000 Subject: [PATCH] [Ada] Remove obsolete stuff from repinfo.adb 2018-05-23 Eric Botcazou gcc/ada/ * repinfo.adb (List_Type_Info): Remove obsolete stuff. From-SVN: r260579 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/repinfo.adb | 20 +++----------------- 2 files changed, 7 insertions(+), 17 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 6f495c1..d5679e2 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2018-05-23 Eric Botcazou + + * repinfo.adb (List_Type_Info): Remove obsolete stuff. + 2018-05-23 Hristian Kirtchev * einfo.adb: Flag304 is now Is_Elaboration_Warnings_OK_Id. diff --git a/gcc/ada/repinfo.adb b/gcc/ada/repinfo.adb index 1012df3..7f7152d 100644 --- 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 "); -- 2.7.4