OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Ada] Fix imprecise wording for error on scalar storage order

Browse Source 
gcc/ada/

	* freeze.adb (Check_Component_Storage_Order): Give a specific error
	message for non-byte-aligned component in the packed case.  Replace
	"composite" with "record" in both cases.
This commit is contained in:
Eric Botcazou 2021-07-13 11:23:38 +02:00 committed by Pierre-Marie de Rodat
parent d232417a88
commit c5ff859dc0
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gcc/ada/freeze.adb
View File

@ -1352,9 +1352,15 @@ package body Freeze is
elsif Is_Record_Type (Encl_Base)
and then not Comp_Byte_Aligned
then
Error_Msg_N
("type of non-byte-aligned component must have same scalar "
& "storage order as enclosing composite", Err_Node);
if Present (Component_Clause (Comp)) then
Error_Msg_N
("type of non-byte-aligned component must have same scalar"
& " storage order as enclosing record", Err_Node);
else
Error_Msg_N
("type of packed component must have same scalar"
& " storage order as enclosing record", Err_Node);
end if;
-- Warn if specified only for the outer composite