Commit 5dc6778c by Eric Botcazou Committed by Arnaud Charlet

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
parent bb6c60f4
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> 2015-01-06 Vincent Celier <celier@adacore.com>
* prj-conf.adb (Check_Target): Improve error message when * prj-conf.adb (Check_Target): Improve error message when
......
...@@ -2450,7 +2450,6 @@ package body Freeze is ...@@ -2450,7 +2450,6 @@ package body Freeze is
Get_Attribute_Definition_Clause Get_Attribute_Definition_Clause
(FS, Attribute_Component_Size); (FS, Attribute_Component_Size);
if Known_Static_Esize (Ctyp) then
Error_Msg_N Error_Msg_N
("incorrect component size for " ("incorrect component size for "
& T & " components", Clause); & T & " components", Clause);
...@@ -2460,17 +2459,9 @@ package body Freeze is ...@@ -2460,17 +2459,9 @@ package body Freeze is
else else
Error_Msg_N Error_Msg_N
("component size cannot be given for "
& T & " components", Clause);
end if;
else
Error_Msg_N
("cannot pack " & T & " components", ("cannot pack " & T & " components",
Get_Rep_Pragma (FS, Name_Pack)); Get_Rep_Pragma (FS, Name_Pack));
end if; end if;
return;
end Complain_CS; end Complain_CS;
-- Start of processing for Alias_Atomic_Check -- Start of processing for Alias_Atomic_Check
......
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