diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-10-14 15:56:34 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-11-25 08:22:41 -0500 |
| commit | 14a16e30caecaddd7e19aabed2357cb9489d8d5c (patch) | |
| tree | 0b31963fba09988d68e8f5b1cf89a9a647f9e2ae | |
| parent | 52b9a264dd81bb3918664e6c7cf0e35c95ce37c2 (diff) | |
| download | gcc-14a16e30caecaddd7e19aabed2357cb9489d8d5c.zip gcc-14a16e30caecaddd7e19aabed2357cb9489d8d5c.tar.gz gcc-14a16e30caecaddd7e19aabed2357cb9489d8d5c.tar.bz2 | |
[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.
| -rw-r--r-- | gcc/ada/exp_attr.adb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index 6598b70..436de74 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)) |