diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2018-05-23 10:22:20 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-05-23 10:22:20 +0000 |
| commit | 6e6e00ffd2e588af096ea00e8ae9576efd1d1e49 (patch) | |
| tree | 144619fc44f881c696272e36ef9eb2684289ea39 /gcc | |
| parent | 162ed06fb32b64802db9909e27c447527dd759ee (diff) | |
| download | gcc-6e6e00ffd2e588af096ea00e8ae9576efd1d1e49.zip gcc-6e6e00ffd2e588af096ea00e8ae9576efd1d1e49.tar.gz gcc-6e6e00ffd2e588af096ea00e8ae9576efd1d1e49.tar.bz2 | |
[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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | 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 <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 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 "); |