mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-22 21:31:19 +08:00
Code Issues Packages Projects Releases Wiki Activity

[Ada] Minor whitespace fix in expansion of attribute Size

Browse Source 
gcc/ada/

	* exp_attr.adb (Expand_Size_Attribute): Remove whitespace;
	simplify with a membership test, which are now allowed in the
	frontend code.
This commit is contained in:
Piotr Trojanek 2020-10-14 15:56:34 +02:00 committed by Pierre-Marie de Rodat
parent 52b9a264dd
commit 14a16e30ca
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gcc/ada/exp_attr.adb
View File

@ -7796,17 +7796,17 @@ package body Exp_Attr is
---------------------------
procedure Expand_Size_Attribute (N : Node_Id) is
Loc : constant Source_Ptr := Sloc (N);
Typ : constant Entity_Id := Etype (N);
Pref : constant Node_Id := Prefix (N);
Ptyp : constant Entity_Id := Etype (Pref);
Id : constant Attribute_Id := Get_Attribute_Id (Attribute_Name (N));
Siz : Uint;
Loc : constant Source_Ptr := Sloc (N);
Typ : constant Entity_Id := Etype (N);
Pref : constant Node_Id := Prefix (N);
Ptyp : constant Entity_Id := Etype (Pref);
Id : constant Attribute_Id := Get_Attribute_Id (Attribute_Name (N));
Siz : Uint;
begin
-- Case of known RM_Size of a type
if (Id = Attribute_Size or else Id = Attribute_Value_Size)
if Id in Attribute_Size | Attribute_Value_Size
and then Is_Entity_Name (Pref)
and then Is_Type (Entity (Pref))
and then Known_Static_RM_Size (Entity (Pref))