procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[Ada] Refactor repeated code for Width attributes

Browse source 
gcc/ada/

	* sem_attr.adb (Analyze_Attribute): Merge identical code for
	Wide_Wide_Width, Wide_Width and Width attributes.
This commit is contained in:
Piotr Trojanek 2020-11-24 00:18:47 +01:00 • committed by Pierre-Marie de Rodat
parent bc57641099
commit ce20ff0260
1 changed files with 6 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
gcc/ada/sem_attr.adb
View file

@ -7219,7 +7219,10 @@ package body Sem_Attr is
-- Wide_Wide_Width --
---------------------
when Attribute_Wide_Wide_Width =>
when Attribute_Wide_Wide_Width
| Attribute_Wide_Width
| Attribute_Width
=>
Check_E0;
Check_Scalar_Type;
Set_Etype (N, Universal_Integer);
@ -7228,19 +7231,13 @@ package body Sem_Attr is
-- Wide_Width --
----------------
when Attribute_Wide_Width =>
Check_E0;
Check_Scalar_Type;
Set_Etype (N, Universal_Integer);
-- Shares processing with Wide_Wide_Width attribute
-----------
-- Width --
-----------
when Attribute_Width =>
Check_E0;
Check_Scalar_Type;
Set_Etype (N, Universal_Integer);
-- Shares processing with Wide_Wide_Width attribute
---------------
-- Word_Size --