OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Ada] Code clean up 

gcc/ada/

	* exp_attr.adb (Expand_N_Attribute_Reference): Merge handling of
	Simple_Storage_Pool and Storage_Pool.
This commit is contained in:
Arnaud Charlet 2020-07-13 18:28:31 +02:00 committed by Pierre-Marie de Rodat
parent afa1ffd42c
commit e837a62185
1 changed files with 4 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
gcc/ada/exp_attr.adb
View File

@ -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 --
------------------