From e837a621857bf6c61be5db4666fadf8db14fa2a0 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 13 Jul 2020 18:28:31 +0200 Subject: [PATCH] [Ada] Code clean up gcc/ada/ * exp_attr.adb (Expand_N_Attribute_Reference): Merge handling of Simple_Storage_Pool and Storage_Pool. --- gcc/ada/exp_attr.adb | 19 ++++--------------- 1 file changed, 4 insertions(+), 15 deletions(-) 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 -- ------------------ -- 2.30.2