From: Piotr Trojanek Date: Wed, 14 Oct 2020 13:56:34 +0000 (+0200) Subject: [Ada] Minor whitespace fix in expansion of attribute Size X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=14a16e30caecaddd7e19aabed2357cb9489d8d5c;p=gcc.git [Ada] Minor whitespace fix in expansion of attribute Size gcc/ada/ * exp_attr.adb (Expand_Size_Attribute): Remove whitespace; simplify with a membership test, which are now allowed in the frontend code. --- diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index 6598b706ccc..436de74f557 100644 --- a/gcc/ada/exp_attr.adb +++ b/gcc/ada/exp_attr.adb @@ -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))