diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2020-07-13 18:28:31 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-10-20 03:21:29 -0400 |
| commit | e837a621857bf6c61be5db4666fadf8db14fa2a0 (patch) | |
| tree | d52558a4fad4fa3e8457f5567aad1414df40d42d /gcc | |
| parent | afa1ffd42cd208fc1c6c819567c363dd8080efa2 (diff) | |
| download | gcc-e837a621857bf6c61be5db4666fadf8db14fa2a0.zip gcc-e837a621857bf6c61be5db4666fadf8db14fa2a0.tar.gz gcc-e837a621857bf6c61be5db4666fadf8db14fa2a0.tar.bz2 | |
[Ada] Code clean up
gcc/ada/
* exp_attr.adb (Expand_N_Attribute_Reference): Merge handling of
Simple_Storage_Pool and Storage_Pool.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_attr.adb | 19 |
1 files changed, 4 insertions, 15 deletions
diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index 70f353f..49888d1 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), @@ -6178,17 +6178,6 @@ package body Exp_Attr is 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 -- ------------------ |