diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2015-01-06 10:35:08 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-01-06 11:35:08 +0100 |
| commit | 5dc6778ce163e025c4eee5545c8021abab64c8c7 (patch) | |
| tree | 3172d88ca30cedbda4dc30f9752cecd7b340c7b7 | |
| parent | bb6c60f4c6f9ead08315e4de6d71320d1af7a16d (diff) | |
| download | gcc-5dc6778ce163e025c4eee5545c8021abab64c8c7.zip gcc-5dc6778ce163e025c4eee5545c8021abab64c8c7.tar.gz gcc-5dc6778ce163e025c4eee5545c8021abab64c8c7.tar.bz2 | |
freeze.adb (Freeze_Array_Type): Remove always true test and unreachable 'else' arm.
2015-01-06 Eric Botcazou <ebotcazou@adacore.com>
* freeze.adb (Freeze_Array_Type) <Complain_CS>: Remove always
true test and unreachable 'else' arm.
From-SVN: r219254
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/freeze.adb | 21 |
2 files changed, 11 insertions, 15 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 861d0c8..6e363c3 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2015-01-06 Eric Botcazou <ebotcazou@adacore.com> + + * freeze.adb (Freeze_Array_Type) <Complain_CS>: Remove always + true test and unreachable 'else' arm. + 2015-01-06 Vincent Celier <celier@adacore.com> * prj-conf.adb (Check_Target): Improve error message when diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index a2fcddc..c07bb56 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -2450,27 +2450,18 @@ package body Freeze is Get_Attribute_Definition_Clause (FS, Attribute_Component_Size); - if Known_Static_Esize (Ctyp) then - Error_Msg_N - ("incorrect component size for " - & T & " components", Clause); - Error_Msg_Uint_1 := Esize (Ctyp); - Error_Msg_N - ("\only allowed value is^", Clause); - - else - Error_Msg_N - ("component size cannot be given for " - & T & " components", Clause); - end if; + Error_Msg_N + ("incorrect component size for " + & T & " components", Clause); + Error_Msg_Uint_1 := Esize (Ctyp); + Error_Msg_N + ("\only allowed value is^", Clause); else Error_Msg_N ("cannot pack " & T & " components", Get_Rep_Pragma (FS, Name_Pack)); end if; - - return; end Complain_CS; -- Start of processing for Alias_Atomic_Check |