From: Arnaud Charlet <charlet@adacore.com>
Date: Mon, 13 Jul 2020 16:28:31 +0000 (+0200)
Subject: [Ada] Code clean up
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=e837a621857bf6c61be5db4666fadf8db14fa2a0;p=gcc.git

[Ada] Code clean up

gcc/ada/

	* exp_attr.adb (Expand_N_Attribute_Reference): Merge handling of
	Simple_Storage_Pool and Storage_Pool.
---

diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb
index 70f353fe3c3..49888d14699 100644
--- a/gcc/ada/exp_attr.adb
+++ b/gcc/ada/exp_attr.adb
@@ -6037,11 +6037,11 @@ package body Exp_Attr is
       when Attribute_Scaling =>
          Expand_Fpt_Attribute_RI (N);
 
-      -------------------------
-      -- Simple_Storage_Pool --
-      -------------------------
+      ----------------------------------------
+      -- Simple_Storage_Pool & Storage_Pool --
+      ----------------------------------------
 
-      when Attribute_Simple_Storage_Pool =>
+      when Attribute_Simple_Storage_Pool | Attribute_Storage_Pool =>
          Rewrite (N,
            Make_Type_Conversion (Loc,
              Subtype_Mark => New_Occurrence_Of (Etype (N), Loc),
@@ -6177,17 +6177,6 @@ package body Exp_Attr is
             Expand_Size_Attribute (N);
          end Size;
 
-      ------------------
-      -- Storage_Pool --
-      ------------------
-
-      when Attribute_Storage_Pool =>
-         Rewrite (N,
-           Make_Type_Conversion (Loc,
-             Subtype_Mark => New_Occurrence_Of (Etype (N), Loc),
-             Expression   => New_Occurrence_Of (Entity (N), Loc)));
-         Analyze_And_Resolve (N, Typ);
-
       ------------------
       -- Storage_Size --
       ------------------